10 REM -- SORTED OPCODES --
15 DIMA(151),B$(151),C$(151):FORX=1TO151:READA(X),B$(X):NEXT:GOTO285
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"
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
285 GOSUB400
290 FORX=1TO151:C$(X)=B$(X):NEXTX
295 N=151:M=N
300 M=INT(M/2):IFM=0THENGOTO 335
305 J=1:K=N-M
310 I=J
315 L=I+M
320 IFC$(I)>C$(L) THENU$=C$(I):C$(I)=C$(L):C$(L)=U$:I=I-M:IFI>0THEN315
325 J=J+1:IFJ>KTHEN300
330 GOTO310
335 OPEN3,D,7:PRINT#3,CHR$(147):REM FOR NX1000C INSERT YOUR OWN PRINTER CODES
340 FORY=1TO151
345 FORX=1TO151
350 IFC$(Y)=B$(X)THENGOSUB215
355 NEXTX:NEXTY:PRINT#3:CLOSE3
360 GOTO 600
400 POKE53281,6:POKE53280,6:POKE646,1
401 PRINT"[147] DO YOU WANT OUTPUT SENT TO SCREEN OR    PRINTER? (S/P)"
402 GET D$:IF D$=""THEN402
405 IF D$<>"P" AND D$<>"S" THEN 402
407 IF D$="S"THEN D=3
409 IF D$="P"THEN D=4
410 IF D=3 THEN430
415 PRINT"      MAKE SURE PRINTER IS ONLINE       ";
416 PRINT"           THEN HIT ANY KEY             "
420 GET A$:IF A$=""THEN 420
430 PRINT" STAND BY ....
450 [142]
600 [153]"           PRESS ANY KEY            ON"::[161]A$:[139] A$[178]""[167]600
601 [153]"LOAD DO YOU WANT TO
605 PRINT" 1) RUN OPCODES (NUMERICALLY)
610 [153]" 2) RETURN TO FEATURES MENU
615 PRINT" 3) QUIT
620 [133]" SELECT A NUMBER";A
625 [139] A[177]3[167] 620
650 [145] A [137] 1000,2000,3000
750 [153]"LOADWAITLISTLOADWAIT";[199](34);P$;[199](34);",8":[153]"RUN"
760 [151]631,13:[151]632,13:[151]198,2:[128]
1000 P$[178]"OPCODES.N":[137]750
2000 P$[178]"MENU.FEATURE":[137]750
3000 [128]