10 DIMA$(255),B$(255),C$(255):DIM B%(255)
20 FOR A=0TO255
30 READ A$(A)
40 NEXT A
50 FOR A=0TO255
60 READ B$(A)
70 NEXT A
80 FOR A=0TO255
90 READ C$(A)
100 NEXT A
110 FOR A=0TO255
120 READ B%(A)
130 NEXT A
200 DATA "@","NOP","@","@","LSRD","ASLD","TAP","TPA","INX","DEX","CLV","SEV","CLC","SEC","CLI","SEI","SBA","CBA","@","@","@","@","TAB","TBA","XGDX","DAA","SLP","ABA","@","@","@","@"
205 DATA "BRA","BRN","BHI","BLS","BCC","BCS","BNE","BEQ","BVC","BVS","BPL","BMI","BGE","BLT","BGT","BLE","TSX","INS","PULA","PULB","DES","TXS","PSHA","PSHB","PULX","RTS","ABX","RTI","PSHX","MUL","WAI","SWI"
210 DATA "NEGA","@","@","COMA","LSRA","@","RORA","ASRA","ASLA","ROLA","DECA","@","INCA","TSTA","T","CLRA","NEGB","@","@","COMB","LSRB","@","RORB","ASRB","ASLB","ROLB","DECB","@","INCB","TSTB","T","CLRB"
215 DATA "NEG","AIM","OIM","COM","LSR","EIM","ROR","ASR","ASL","ROL","DEC","TIM","INC","TST","JMP","CLR","NEG","AIM","OIM","COM","LSR","EIM","ROR","ASR","ASL","ROL","DEC","TIM","INC","TST","JMP","CLR"
220 DATA "SUBA","CMPA","SBCA","SUBD","ANDA","BITA","LDAA","@","EORA","ADCA","ORAA","ADDA","CPX","BSR","LDS","@","SUBA","CMPA","SBCA","SUBD","ANDA","BITA","LDAA","STAA","EORA","ADCA","ORAA","ADDA","CPX","JSR","LDS","STS"
225 DATA "SUBA","CMPA","SBCA","SUBD","ANDA","BITA","LDAA","STAA","EORA","ADCA","ORAA","ADDA","CPX","JSR","LDS","STS","SUBA","CMPA","SBCA","SUBD","ANDA","BITA","LDAA","STAA","EORA","ADCA","ORAA","ADDA","CPX","JSR","LDS","STS"
230 DATA "SUBB","CMPB","SBCB","ADDD","ANDB","BITB","LDAB","@","EORB","ADCB","ORAB","ADDB","LDD","@","LDX","@","SUBB","CMPB","SBCB","ADDD","ANDB","BITB","LDAB","STAB","EORB","ADCB","ORAB","ADDB","LDD","STD","LDX","STX"
235 DATA "SUBB","CMPB","SBCB","ADDD","ANDB","BITB","LDAB","STAB","EORB","ADCB","ORAB","ADDB","LDD","STD","LDX","STX","SUBB","CMPB","SBCB","ADDD","ANDB","BITB","LDAB","STAB","EORB","ADCB","ORAB","ADDB","LDD","STD","LDX","STX"
240 DATA "","INHER","","","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER"
245 DATA "INHER","INHER","","","","","INHER","INHER","INHER","INHER","INHER","INHER","","","",""
250 DATA "REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL","REL"
255 DATA "INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER","INHER"
260 DATA "INHER","","","INHER","INHER","","INHER","INHER","INHER","INHER","INHER","","INHER","INHER","","INHER"
265 DATA "INHER","","","INHER","INHER","","INHER","INHER","INHER","INHER","INHER","","INHER","INHER","","INHER"
270 DATA "INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX"
275 DATA "EXTEND","DIRECT","DIRECT","EXTEND","EXTEND","DIRECT","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","DIRECT","EXTEND","EXTEND","EXTEND","EXTEND"
280 DATA "IMMED","IMMED","IMMED","IMMED","IMMED","IMMED","IMMED","","IMMED","IMMED","IMMED","IMMED","IMMED","REL","IMMED",""
285 DATA "DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT"
290 DATA "INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX"
295 DATA "EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND"
300 DATA "IMMED","IMMED","IMMED","IMMED","IMMED","IMMED","IMMED","","IMMED","IMMED","IMMED","IMMED","IMMED","","IMMED",""
305 DATA "DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT","DIRECT"
310 DATA "INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX","INDEX"
315 DATA "EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND","EXTEND"
320 DATA "","","","","","","","","","","","","","","",""
325 DATA "","","","","","","","","","","","","","","",""
330 DATA "Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel","Rel"
335 DATA "","","","","","","","","","","","","","","",""
340 DATA "","","","","","","","","","","","","","","",""
345 DATA "","","","","","","","","","","","","","","",""
350 DATA "Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp"
355 DATA "M","M","M","M","M","M","M","M","M","M","M","M","M","M","M","M"
360 DATA "Imm","Imm","Imm","Imm","Imm","Imm","Imm","","Imm","Imm","Imm","Imm","Imm","Rel","Imm",""
365 DATA "M","M","M","M","M","M","M","M","M","M","M","M","M","M","M","M"
370 DATA "Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp"
375 DATA "M","M","M","M","M","M","M","M","M","M","M","M","M","M","M","M"
380 DATA "Imm","Imm","Imm","Imm","Imm","Imm","Imm","","Imm","Imm","Imm","Imm","Imm","","Imm",""
385 DATA "M","M","M","M","M","M","M","M","M","M","M","M","M","M","M","M"
390 DATA "Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp","Disp"
395 DATA "M","M","M","M","M","M","M","M","M","M","M","M","M","M","M","M"
400 DATA 0,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,0
405 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
410 DATA 1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,0,0,1,1,0,1,1,1,1,1,0,1,1,0,1
415 DATA 2,3,3,2,2,3,2,2,2,2,2,3,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
420 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,2,3,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
425 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
430 DATA 2,2,2,3,2,2,2,0,2,2,2,2,3,0,3,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
435 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
500 '
510 '
520 '
530 '
540 '
600 OPEN"O",#1,"COM0:"
610 PRINT#1,CHR$(13)
700 CLS:INPUT"@ ADDRESS";E
701 INPUT"* ADDRESS";ESTOP
702 PRINT"CONTINUE?(RETURN)"
703 PRINT"ABORT?(SPACE BAR)";
704 FSTOP$=INPUT$(1)
705 IF FSTOP$<>CHR$(13)THEN700
710 IF E>ESTOP THEN870
720 F=PEEK(E)
730 PRINT#1,CHR$(10)+"$"+HEX$(E);
740 PRINT#1,TAB(10)+HEX$(F)+":"+A$(F);
750 IF B%(F)<>0THENPRINT#1,TAB(20)+"("+B$(F)+");";
760 C=B%(F)+1:ON C GOTO850,830,800,770
770 E=E+1
780 G=PEEK(E)
790 PRINT#1,TAB(30)+"<"+C$(F)+":"+HEX$(G)+">";
800 E=E+1
810 G=PEEK(E)
820 PRINT#1,TAB(C*10)+"<"+C$(F)+":"+HEX$(G)+">";
830 E=E+1
840 GOTO710
850 PRINT#1,TAB(20)+"**Error: Undefined Op Code**";
860 E=E+1:GOTO710
870 CLS:CLOSE#1
880 PRINT"CONTINUE?(RETURN)"
890 PRINT"ABORT?(SPACE BAR)"
900 FSTOP$=INPUT$(1)
910 IF FSTOP$<>CHR$(32)THEN600ELSE END
