10MODE0 20VDU28,0,21,79,2 30*FX21 40*FX229,1 80?&7B=0:REM Show code flag 90PROCassemble:CALLZ% 100VDU23,1,0;0;0;0; 110CALLS% 120CLS 130F%=OPENIN"help72" 140FORI%=1TO320:VDUBGET#F%:NEXT 150CLOSE#F% 160D%=0:E%=1:REM Datac Epson 170PRINT' 180PRINT 190PRINTTAB(4)"H to load help screen" 200PRINT 210PRINTTAB(4)"Any other key for a new page." 220Q%=GET 230*FX229,0 240CALLR% 250IFQ%=27:CHAIN"TelMenu" 260IFQ%=ASC"D"ORQ%=ASC"d":D%=1:E%=0:RE M Datac Epson 270IFQ%=ASC"H"ORQ%=ASC"h":OSCLI("LOAD Help72 "+STR$÷(buffer%)) 280CHAIN"Editor" 290END 300: 310DEFPROCassemble 312buffer%=&6700 314code%=&7E00 316start%=&70 320source%=&74 322dest%=&76 330FORI%=0TO2STEP2 340P%=code% 350[OPTI% 360.C% 370LDA#30:JSR&FFEE 390LDAstart%:STAsource% 400LDAstart%+1:STAsource%+1 402LDX#19:STXline% 404.loop1 409LDX#80:STXcol% 410.loop2 420LDY#0:LDA(source%),Y:JSR&FFEE 470INCsource%:BNEnc2:INCsource%+1 480.nc2 482DECcol%:BNEloop2 484DECline%:BNEloop1 530RTS 540.R% 550LDA&7D:STA&020E 560LDA&7E:STA&020F 630RTS 640.S% 650LDA#&20:STA&7C 660LDA&020E:STA&7D 670LDA&020F:STA&7E 680LDA#&60:STA&7F 710LDA#T%MOD256:STA&020E 720LDA#T%DIV256:STA&020F 730RTS 740.T% 742LDX&318:BNEnt0 744STXsep%:STXgraph% 745.nt0 750CMP#&81:BCS tb1:JMP(&007D) 760.tb1 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 1004LDA#&20:JMP(&007D) 1010.graphic 1012LDXgraph%:BNEgdo:JMP(&007D) 1014.gdo 1020STAtemp% 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 1232JMPseptest 1240.eor 1250LDX&7B:BEQspace ½ show codes flag 1260.edo 1262STAgstore% 1264LDX#gstore%MOD256:LDY#gstore%DIV256 1270LDA#10:JSR&FFF1 1280LDA#23:JSR&007C 1290LDA#128:JSR&007C 1300LDX#1 1310.eloop 1320LDAgstore%,X:EOR#&FF:JSR&007C 1330INX:CPX#9:BNEeloop:BEQemit 1360.septest 1370LDA#23:JSR&007C 1380LDA#128:JSR&007C 1390LDAgstore%+1:JSRseptest0 1400LDAgstore%+2:JSRseptestN 1410LDAgstore%+3:JSRseptest0 1420LDAgstore%+4:JSRseptestN 1430LDAgstore%+5:JSRseptestN 1440LDAgstore%+6:JSRseptest0 1450LDAgstore%+7:JSRseptestN 1460LDAgstore%+8:JSRseptestN 1462.emit 1470LDA#128 1480JMP(&007D) 1490.septest0 1500LDXsep%:BEQst2:LDA#0:BEQst2 1530.septestN 1540LDXsep%:BEQst2:AND#&66 1550.st2 1560JSR&007C:RTS 1570.Z% 1580LDA#buffer%MOD256:STAdest% 1590LDA#buffer%DIV256:STAdest%+1 1600LDA#32:LDY#0 1610.zaploop 1620STA(dest%),Y 1630INCdest%:BNEnc5:INCdest%+1 1640.nc5 1650LDXdest%+1:CPX#code%DIV256:BNEzaplo op 1660LDXdest%:CPX#code%MOD256:BNEzaploop 1670RTS 1680.gstore% 1682EQUB0 1684EQUD0 1686EQUD0 1687.temp% 1688EQUB0 1700.sep% 1710EQUB0 1720.graph% 1730EQUB0 1740.line% 1750EQUB0 1752.col% 1754EQUB0 1760]NEXT 1770ENDPROC