2 DATA????,0,NOP ,1,????,0,????,0,LSRD,1,ASLD,1,TAP ,1,TPA ,1 4 DATA INX ,1,DEX ,1,CLV ,1,SEV ,1,CLC ,1,SEC ,1,CLI ,1,SEI ,1 6 DATASBA ,1,CBA ,1,????,0,????,0,????,0,????,0,TAB ,1,TBA ,1 8 DATA????,0,DAA ,1,????,0,ABA ,1,????,0,????,0,????,0,????,0 10 DATABRA ,6,BRN ,6,BHI ,6,BLS ,6,BCC ,6,BCS ,6,BNE ,6,BEQ ,6 12 DATABVC ,6,BVS ,6,BPL ,6,BMI ,6,BGE ,6,BLT ,6,BGT ,6,BLE ,6 14 DATASTX ,1,INS ,1,PULA,1,PULB,1,DES ,1,TXS ,1,PSHA,1,PSHB,1 16 DATAPULX,1,RTS ,1,ABX ,1,RTI ,1,PSHX,1,MUL ,1,WAI ,1,SWI ,1 18 DATANEGA,1,????,0,????,0,COMA,1,LSRA,1,????,0,RORA,1,ASRA,1 20 DATAASLA,1,ROLA,1,DECA,1,????,0,INCA,1,TSTA,1,????,0,CLRA,1 22 DATANEGB,1,????,0,????,0,COMB,1,LSRB,1,????,0,RORB,1,ASRB,1 24 DATAASLB,1,ROLB,1,DECB,1,????,0,INCB,1,TSTB,1,????,0,CLRB,1 26 DATANEG ,5,????,0,????,0,COM ,5,LSR ,5,????,0,ROR ,5,ASR ,5 28 DATAASL ,5,ROL ,5,DEC ,5,????,0,INC ,5,TST ,5,JMP ,5,CLR ,5 30 DATANEG ,7,????,0,????,0,COM ,7,LSR ,7,????,0,ROR ,7,ASR ,7 32 DATAASL ,7,ROL ,7,DEC ,7,????,0,INC ,7,TST ,7,JMP ,7,CLR ,7 34 DATASUBA,2,CMPA,2,SBCA,2,SUBD,3,ANDA,2,BITA,2,LDAA,2,????,0 36 DATAEORA,2,ADCA,2,ORAA,2,ADDA,2,CPX ,3,BSR ,6,LDS ,3,????,0 38 DATASUBA,4,CMPA,4,SBCA,4,SUBD,4,ANDA,4,BITA,4,LDAA,4,STAA,4 40 DATAEORA,4,ADCA,4,ORAA,4,ADDA,4,CPX ,4,JSR ,4,LDS ,4,STS ,4 42 DATASUBA,5,CMPA,5,SBCA,5,SUBD,5,ANDA,5,BITA,5,LDAA,5,STAA,5 44 DATAEORA,5,ADCA,5,ORAA,5,ADDA,5,CPX ,5,JSR ,5,LDS ,5,STS ,5 46 DATASUBA,7,CMPA,7,SBCA,7,SUBD,7,ANDA,7,BITA,7,LDAA,7,STAA,7 48 DATAEORA,7,ADCA,7,ORAA,7,ADDA,7,CPX ,7,JSR ,7,LDS ,7,STS ,7 50 DATASUBB,2,CMPB,2,SBCB,2,ADDD,3,ANDB,2,BITB,2,LDAB,2,????,0 52 DATAEORB,2,ADCB,2,ORAB,2,ADDB,2,LDD ,3,????,0,LDX ,3,????,0 54 DATASUBB,4,CMPB,4,SBCB,4,ADDD,4,ANDB,4,BITB,4,LDAB,4,STAB,4 56 DATAEORB,4,ADCB,4,ORAB,4,ADDB,4,LDD ,4,STD ,4,LDX ,4,STX ,4 58 DATASUBB,5,CMPB,5,SBCB,5,ADDD,5,ANDB,5,BITB,5,LDAB,5,STAB,5 60 DATAEORB,5,ADCB,5,ORAB,5,ADDB,5,LDD ,5,STD ,5,LDX ,5,STX ,5 62 DATASUBB,7,CMPB,7,SBCB,7,ADDD,7,ANDB,7,BITB,7,LDAB,7,STAB,7 64 DATAEORB,7,ADCB,7,ORAB,7,ADDB,7,LDD ,7,STD ,7,LDX ,7,STX ,7 72 CLEAR2000 74 DIMM1$(255),O1$(255),A1(255) 76 CLS:PRINT"* * O P - C O D E T A B L E * *" 78 PRINT@128,"READING DATA..." 80 FORC1=0TO255:READM1$(C1),A1(C1):O1$(C1)=STR$(C1):NEXT 82 PRINT@128,"SORTING DATA..." 84 FORC1=255TO1STEP-1 86 PRINT@256,C1 88 M2$=M1$(0):O2$=O1$(0):A2=A1(0) 90 FORC2=1TOC1 92 PRINT@288,C2 94 IFM1$(C2)>M2$THENM2$=M1$(C2):O2$=O1$(C2):A2=A1(C2):F1=C2 96 NEXT:M1$(F1)=M1$(C1):O1$(F1)=O1$(C1):A1(F1)=A1(C1):M1$(C1)=M2$:O1$(C1)=O2$:A1(C1)=A2 97 NEXT 98 PRINT@128,"PRINTING TABLE..." 99 GOSUB2000 100 LPRINT" ---------------------- A D D R E S S M O D E S ----------------------" 101 LPRINT"MNEMONIC =======================================================================" 102 LPRINT"INSTRCTN * IMMEDIATE * DIRECT * INDEXED * EXTENDED * INHERENT * RELATIVE *" 104 LPRINT"================================================================================" 105 LPRINTCHR$(11); 106 FOR LN=36 TO 255 122 GOSUB3000 124 GOSUB4000 128 NEXT 130 LPRINT 132 LPRINT"================================================================================" 134 END 2000 LPRINT:LPRINT:LPRINT 2002 LPRINT" 6666 8888 0000 3333" 2004 LPRINT" 6 6 8 8 0 0 3 3" 2006 LPRINT" 6 8 8 0 00 3" 2008 LPRINT" 66666 8888 0 0 0 333" 2010 LPRINT" 6 6 8 8 0 0 0 3" 2020 LPRINT" 6 6 8 8 00 0 3 3" 2030 LPRINT" 6666 8888 0000 3333 2040 LPRINT 2050 LPRINT" - I N S T R U C T I O N S E T -" 2060 LPRINT:LPRINT:RETURN 3000 REM* H E X C O N V E R T * 3005 OD$=" "+O1$(LN) 3010 ZN=VAL(O1$(LN)):OD$=RIGHT$(OD$,3) 3020 ZH$="" 3030 Z2=INT(ZN/16):Z1=ZN-Z2*16:ZH$=MID$("0123456789ABCDEF",Z1+1,1)+ZH$:IFZ2=0THEN3050 3040 ZN=Z2:GOTO3030 3050 OH$=RIGHT$("00"+ZH$,2) 3060 RETURN 4000 REM * * F O R M A T * * 4010 IFLN=0THEN4030 4020 IFM1$(LN)=M1$(LN-1)THENGOTO4040 4030 LPRINT:LPRINTM1$(LN):LPRINTCHR$(11); 4035 LPRINT" * * * * * * *" 4037 LPRINTCHR$(11); 4040 ON A1(LN) GOTO 4050,4044,4044,4048,4054,4052,4046 4042 PRINT"A.M. ERROR IN:"LN:STOP 4044 LPRINTTAB(12);OH$;" ";OD$ 4045 GOTO4060 4046 LPRINTTAB(47);OH$;" ";OD$ 4047 GOTO4060 4048 LPRINTTAB(24);OH$;" ";OD$ 4049 GOTO4060 4050 LPRINTTAB(59);OH$;" ";OD$ 4051 GOTO4060 4052 LPRINTTAB(71);OH$;" ";OD$ 4053 GOTO4060 4054 LPRINTTAB(35);OH$;" ";OD$ 4060 LPRINTCHR$(11);:RETURN