10 REM -- OPCODES --
15 DIMA(151),B$(151):FORX=1TO151:READA(X),B$(X):NEXT:GOTO185
20 DATA0,BRK,1,"ORA (15,X)",5,ORA 15,6,ASL 15,8,PHP,9,ORA #15,10,ASL
25 DATA13,ORA 1500,14,ASL 1500,16,BPL ADDR,17,"ORA (15),Y
30 [131]21,"ORA 15,X",22,"ASL 15,X",24,CLC,25,"ORA 1500,Y",29,"ORA 1500,X
35 DATA30,"ASL 1500,X",32,JSR,33,"AND (15,X)",36,BIT 15,37,AND 15
40 DATA38,ROL 15,40,PLP,41,AND #15,42,ROL,44,BIT 1500,45,AND 1500
45 DATA46,ROL 1500,48,BMI ADDR,49,"AND (15),Y",53,"AND 15,X
50 [131]54,"ROL 15,X",56,SEC,57,"AND 1500,Y",61,"AND 1500,X",62,"ROL 1500,X
55 DATA64,RTI,65,"EOR (15,X)",69,EOR 15,70,LSR 15,72,PHA
60 DATA73,EOR #15,74,LSR,76,JMP 1500,77,EOR 1500,78,LSR 1500
65 DATA80,BVC ADDR,81,"EOR (15),Y",85,"EOR 15,X",86,"LSR 15,X",88,CLI
70 DATA89,"EOR 1500,Y",93,"EOR 1500,X",94,"LSR 1500,X",96,RTS
75 DATA97,"ADC (15,X)",101,ADC 15,102,ROR 15,104,PLA,105,ADC #15
80 DATA106,ROR,108,JMP (1500),109,ADC 1500,110,ROR 1500,112,BVS ADDR
85 DATA113,"ADC (15),Y",117,"ADC 15,X",118,"ROR 15,X",120,SEI,121,"ADC 1500,Y
90 [131]125,"ADC 1500,X",126,"ROR 1500,X
95 DATA129,"STA (15,X)",132,STY 15,133,STA 15,134,STX 15,136,DEY
100 DATA138,TXA,140,STY 1500,141,STA 1500,142,STX 1500,144,BCC ADDR
105 DATA145,"STA (15),Y",148,"STY 15,X",149,"STA 15,X",150,"STX 15,Y",152,TYA
110 DATA153,"STA 1500,Y",154,TXS,157,"STA 1500,X",160,LDY #15
115 DATA161,"LDA (15,X)",162,LDX #15,164,LDY 15,165,LDA 15,166,LDX 15
120 DATA168,TAY,169,LDA #15,170,TAX,172,LDY 1500,173,LDA 1500
125 DATA174,LDX 1500,176,BCS ADDR,177,"LDA (15),Y
130 [131]180,"LDY 15,X",181,"LDA 15,X",182,"LDX 15,Y",184,CLV,185,"LDA 1500,Y
135 DATA186,TSX,188,"LDY 1500,X",189,"LDA 1500,X",190,"LDX 1500,Y"
140 DATA 192,CPY #15,193,"CMP (15,X)",196,CPY 15,197,CMP 15
145 DATA 198,DEC 15,200,INY,201,CMP #15,202,DEX,204,CPY 1500
150 DATA205,CMP 1500,206,DEC 1500,208,BNE ADDR,209,"CMP (15),Y"
155 DATA213,"CMP 15,X",214,"DEC 15,X",216,CLD,217,"CMP 1500,Y"
160 DATA 221,"CMP 1500,X",222,"DEC 1500,X",224,CPX #15
165 DATA225,"SBC (15,X)",228,CPX 15,229,SBC 15,230,INC 15,232,INX
170 DATA233,SBC #15,234,NOP,236,CPX 1500,237,SBC 1500,238,INC 1500
175 DATA240,BEQ ADDR,241,"SBC (15),Y",245,"SBC 15,X",246,"INC 15,X",248,SED
180 DATA249,"SBC 1500,Y",253,"SBC 1500,X",254,"INC 1500,X"
185 GOSUB300
190 OPEN3,D,7:PRINT#3,CHR$(147):REM FOR NX1000C INSERT YOUR OWN PRINTER CODES
195 FORX=1TO151
200 GOSUB210
205 NEXTX:PRINT#3:CLOSE3:GOTO 600
210 :
215 P=128:Z=A(X)
220 PRINT#3,"  ";:FORI=1TO8
225 IFINT(Z/P)=1 THEN PRINT#3,"1";:Z=Z-P:GOTO235
230 PRINT#3,"0";
235 P=P/2:NEXT
240 W=A(X)
245 HE$="0123456789ABCDEF":SZ=1:H$="$":FORM=SZTO0STEP-1
250 N%=W/16^M:W=W-N%*16^M:H$=H$+MID$(HE$,N%+1,1):NEXT
255 PRINT#3,"   ";H$;
260 T$=STR$(A(X))
270 PRINT#3,"   ";A(X);:PRINT#3,SPC(7-LEN(T$));B$(X)
280 RETURN
300 POKE53281,6:POKE53280,6:POKE646,1
301 PRINT"[147] DO YOU WANT OUTPUT SENT TO SCREEN OR    PRINTER? (S/P)"
302 GET D$:IF D$=""THEN302
305 IF D$<>"P" AND D$<>"S" THEN 302
307 IF D$="S"THEN D=3
309 IF D$="P"THEN D=4
310 IF D=3 THEN350
315 PRINT"      MAKE SURE PRINTER IS ONLINE       ";
316 PRINT"           THEN HIT ANY KEY             "
320 GET A$:IF A$=""THEN 320
350 RETURN
600 PRINT"           PRESS ANY KEY            [145]"::GETA$:IF A$=""THEN600
601 PRINT"[147] DO YOU WANT TO
605 [153]" 1) RUN OPCODES (ALPHABETICAL)
610 PRINT" 2) RETURN TO FEATURES MENU
615 [153]" 3) QUIT
620 INPUT" SELECT A NUMBER";A
625 IF A>3THEN PRINT"[145][145]";:GOTO620
650 ON A GOTO 1000,2000,3000
750 PRINT"[147][146][155]LOAD[146]";CHR$(34);P$;CHR$(34);",8":PRINT"RUN"
760 POKE631,13:POKE632,13:POKE198,2:END
1000 P$="OPCODES.A":GOTO750
2000 P$="MENU.FEATURE":GOTO750
3000 END