10MODE0 20REM ?&7B= Show Codes Flag 0/1 90PROCassemble 92FORA%=128TO255:CALLT%:NEXT 160PROCfile("Load File") 170OSCLI("EDIT "+f$) 290END 300: 310DEFPROCassemble 314code%=&900 330FORI%=0TO2STEP2 340P%=code% 350[OPTI% 740.T% 750STAtemp% 770CMP#&88:BCStb2 780LDA#0:STAgraph% 790LDA#65:JMPeor 800.tb2 810CMP#&8D:BNEtb3 812LDA#68:JMPeor 820.tb3 830CMP#&98:BCStb5 840CMP#&91:BCCspace 850.tb4 860LDA#1:STAgraph% 870LDA#71:JMPeor 880.tb5 890CMP#&99:BNEtb6 900LDA#0:STAsep% 910LDA#67:JMPeor 920.tb6 930CMP#&9A:BNEtb7 940LDA#1:STAsep% 950LDA#83:JMPeor 960.tb7 970CMP#&A0:BCCspace 980.tb8 990CMP#&C0:BCCgraphic 1000CMP#&E0:BCSgraphic 1002.space 1003LDX#8:LDA#0 1004.sploop 1005STAgstore%,X:DEX:BNEsploop 1006JMPredef 1010.graphic 1030LDX#0 1040LDA#1:BITtemp%:BEQtp10:LDX#&F0 1050.tp10 1060LDA#2:BITtemp%:BEQtp11 1070TXA:ORA#&0F:TAX 1080.tp11 1090STXgstore%+1:STXgstore%+2 1100LDX#0 1110LDA#4:BITtemp%:BEQtp12:LDX#&F0 1120.tp12 1130LDA#8:BITtemp%:BEQtp13 1140TXA:ORA#&0F:TAX 1150.tp13 1160STXgstore%+3:STXgstore%+4:STXgstore %+5 1170LDX#0 1180LDA#16:BITtemp%:BEQtp14:LDX#&F0 1190.tp14 1200LDA#64:BITtemp%:BEQtp15 1210TXA:ORA#&0F:TAX 1220.tp15 1230STXgstore%+6:STXgstore%+7:STXgstore %+8 1232JMPredef 1240.eor 1250LDX&7B:BEQspace ½ show codes flag 1260.edo 1262STAgstore% 1264LDX#gstore%MOD256:LDY#gstore%DIV256 1270LDA#10:JSR&FFF1 1280LDA#23:JSR&FFEE 1290LDAtemp%:JSR&FFEE 1300LDX#1 1310.eloop 1320LDAgstore%,X:EOR#&FF:JSR&FFEE 1330INX:CPX#9:BNEeloop:BEQemit 1360.redef 1370LDA#23:JSR&FFEE 1380LDAtemp%:JSR&FFEE 1390LDAgstore%+1:JSR&FFEE 1400LDAgstore%+2:JSR&FFEE 1410LDAgstore%+3:JSR&FFEE 1420LDAgstore%+4:JSR&FFEE 1430LDAgstore%+5:JSR&FFEE 1440LDAgstore%+6:JSR&FFEE 1450LDAgstore%+7:JSR&FFEE 1460LDAgstore%+8:JSR&FFEE 1462.emit 1470RTS 1680.gstore% 1682EQUB0 1684EQUD0 1686EQUD0 1687.temp% 1688EQUB0 1700.sep% 1710EQUB0 1720.graph% 1730EQUB0 1760]NEXT 1770ENDPROC 2300: 2310DEFPROCfile(message$) 2330REPEAT 2340CLS 2350PRINTTAB(10)message$ 2360PRINTTAB(10)"---------" 2370PRINT 2380OSCLI(".") 2390REPEAT 2400INPUTLINE'"OS command or Filename ? "f$ 2410UNTILf$<>"" 2420IFINSTR(f$,"*"):OSCLIf$ 2430UNTILINSTR(f$,"*")=0 2450ENDPROC