Home » Personal collection » Acorn ADFS disks » Electron » Electron_disk_loader_A.ADF » DLoadSave4

DLoadSave4

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron » Electron_disk_loader_A.ADF
Filename: DLoadSave4
Read OK:
File size: 2E80 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM    TAPE -> ADFS  Loader/Saver                   by M. FORD , 1994        (with event-driven pause, slow/fast,     and memory save. N.B. memory saved      positions cannot be run)                 Filename: DLoadSave4
   20 MODE6:VDU 28,0,24,39,14:HIMEM=&7000
   30 filenames$="CRAZEE"+CHR$13+"CRAZEER"+CHR$13
   40 PauseKey$="P":ContKey$="O":SlowKey$="S":FastKey$="W":MemSaveKey$="M"
   50 OFILE=&AA3A:BACK=&8698:OBroutine=&9C05:OBrout2=&8C10:OBrout3=&99A9:B2routine=&A000:EVENT=&AAAE:msblock=&8020:osclitext=&5000
   60 OSBYTE=&FFF4:OSWORD=&FFF1:OSFILE=&FFDD:OSBGET=&FFD7:OSBPUT=&FFD4:OSFIND=&FFCE:OSASCI=&FFE3:oscli=&FFF7
   70 FORpass=0 TO 2 STEP 2:P%=&2000:[OPTpass
   80 LDA#0:STA&FCDC:STA&FCDE:LDA#15:STA&F4:STA&FE05:LDX#2:SEI:.test TXA:STA&F4:STA&FE05:LDA#0:LDA&8800
   90 INC&8800:CMP&8800:BNEfound:DEX:DEX:BPLtest:LDX#&FF
  100 .found DEC&8800:CLI:STXbank1+1:INX:STXbank2+1:STXevrout+3
  110 .BASICrom LDA#11:STA&F4:STA&FE05:LDA#0:STA&70:STA&72:STA&74:LDA#&80:STA&71:LDA#&40:STA&73:LDA#&A0:STA&75:JSRmoveloop2:LDA#15:STA&F4:STA&FE05:JSRbank1:LDA#0:STA&70:STA&72:STA&74:LDA#&40:STA&71:LDA#&80:STA&73:LDA#&60:STA&75:JSRmoveloop2
  120LDA#11:STA&F4:STA&FE05:LDA#0:STA&70:STA&72:STA&74:LDA#&A0:STA&71:LDA#&40:STA&73:LDA#&C0:STA&75:JSRmoveloop2:LDA#15:STA&F4:STA&FE05:JSRbank1:LDA#0:STA&70:STA&72:STA&74:LDA#&40:STA&71:LDA#&A0:STA&73:LDA#&60:STA&75:JSRmoveloop2
  130 .bank2entry JSRbank2:LDA#(enter MOD256):STA&70:LDA#(enter DIV256):STA&71:LDY#0:LDA#&4C:STA(&70),Y:INY:LDA#(B2routine MOD256):STA(&70),Y:INY:LDA#(B2routine DIV256):STA(&70),Y
  140 .evententry LDA#(enterev MOD256):STA&70:LDA#(enterev DIV256):STA&71:LDY#0:LDA#&4C:STA(&70),Y:INY:LDA#(evroutine MOD256):STA(&70),Y:INY:LDA#(evroutine DIV256):STA(&70),Y
  150 .bank2main LDA#(start MOD256):STA&70:LDA#(start DIV256):STA&71:LDA#(bank1 MOD256):STA&74:LDA#(bank1 DIV256):STA&75:LDA#(B2routine MOD256):STA&72:LDA#(B2routine DIV256):STA&73:JSRmoveloop2
  160 .ADFSdata LDA#0:STA&70:STA&72:STA&74:LDA#9:STA&71:LDA#&89:STA&73:LDA#&1D:STA&75:JSRmoveloop2
  170 .b1return LDA#(bank1 MOD256):STA&70:LDA#(bank1 DIV256):STA&71:LDA#(BACK-(osbyte-bank1-1)) MOD256):STA&72:LDA#(BACK-(osbyte-bank1-1)) DIV256):STA&73:LDA#((osbyte-1) MOD256):STA&74:LDA#((osbyte-1) DIV256):STA&75:JSRmoveloop2
  180 .b1osbyte JSRbank1:LDA#(osbyte MOD256):STA&70:LDA#(osbyte DIV256):STA&71:LDA#(OBroutine MOD256):STA&72:LDA#(OBroutine DIV256):STA&73:LDA#(osbyte2 MOD256):STA&74:LDA#(osbyte2 DIV256):STA&75:JSRmoveloop2
  190 .b1osbyte2 LDA#(osbyte2 MOD256):STA&70:LDA#(osbyte2 DIV256):STA&71:LDA#(OBrout2 MOD256):STA&72:LDA#(OBrout2 DIV256):STA&73:LDA#(osbyte3 MOD256):STA&74:LDA#(osbyte3 DIV256):STA&75:JSRmoveloop2
  200 .b1osbyte3 LDA#(osbyte3 MOD256):STA&70:LDA#(osbyte3 DIV256):STA&71:LDA#(OBrout3 MOD256):STA&72:LDA#(OBrout3 DIV256):STA&73:LDA#(file MOD256):STA&74:LDA#(file DIV256):STA&75:JSRmoveloop2
  210 .b1osfile LDA#(file MOD256):STA&70:LDA#(file DIV256):STA&71:LDA#(OFILE MOD256):STA&72:LDA#(OFILE DIV256):STA&73:LDA#((fileret-1) MOD256):STA&74:LDA#((fileret-1) DIV256):STA&75:JSRmoveloop2
  220 .b1fileret LDA#(fileret MOD256):STA&70:LDA#(fileret DIV256):STA&71:LDA#(BACK MOD256):STA&72:LDA#(BACK DIV256):STA&73:LDA#(evrout MOD256):STA&74:LDA#(evrout DIV256):STA&75:JSRmoveloop2
  230 .b1event LDA#(evrout MOD256):STA&70:LDA#(evrout DIV256):STA&71:LDA#(EVENT MOD256):STA&72:LDA#(EVENT DIV256):STA&73:LDA#(evend MOD256):STA&74:LDA#(evend DIV256):STA&75:JSRmoveloop2
  240 .page LDA#0:STA&70:STA&72:LDA&18:STA&71:LDA#&E:STA&73:STA&18:LDA&12:STA&74:LDA&13:STA&75:JSRmoveloop2
  250 .langROM LDAbank1+1:STA&28C:CLC:ADC#&A0:STA&70:LDA#2:STA&71:LDY#0:LDA#&60:STA(&70),Y:LDA#0:STA&2AB
  260 .vect LDA&20A:STAOBrout2+8:LDA&20B:STAOBrout2+9:JSRbank2:LDA&20A:STAosbyteLO:LDA&20B:STAosbyteHI:LDA&212:STAosfileLO:LDA&213:STAosfileHI:LDA&21E:STAosfscLO:LDA&21F:STAosfscHI
  270 LDA&204:STAinterLO:LDA&205:STAinterHI:LDA&220:STAeventLO:LDA&221:STAeventHI:LDA#14:LDX#4:LDY#0:JSROSBYTE:LDX#2:LDY#0:JSROSBYTE:SEI:JSRvectors:CLI:JSRbank1:LDA#0:STA&FCDD:RTS
  280 .moveloop2 LDY#0:.loop LDA(&70),Y:STA(&72),Y:INC&70:BNEa:INC&71:.a INC&72:BNEb:INC&73:.b LDA&70:CMP&74:BNEloop:LDA&71:CMP&75:BNEloop:RTS
  290 ]:O%=P%:start=O%:P%=B2routine:[OPTpass+4
  300 LDA#0:ADC#0:PHA:SEI:JSRvecnorm:CLI:JMPcont:.vecnorm LDAosfscLO:STA&21E:LDAosfscHI:STA&21F:LDAosfileLO:STA&212:LDAosfileHI:STA&213:LDAosbyteLO:STA&20A:LDAosbyteHI:STA&20B
  310 LDAeventLO:STA&220:LDAeventHI:STA&221:LDA&204:STAinternewLO:LDA&205:STAinternewHI:LDAinterLO:STA&204:LDAinterHI:STA&205
  320 STXendadd:LDX#0:.savevars LDA&70,X:STAtempstore,X:INX:CPX#6:BNEsavevars:STY&75:LDXendadd:STX&74:RTS
  330 .cont LDAmsblock:TSX:INX:STXmsblock+15:PLA:BEQfilerout:JMPfscrout
  340 .filerout LDY#0:LDA(&74),Y:TAX:INY:LDA(&74),Y:STX&70:STA&71:DEY:JSRfilename:LDX#0
  350 .load LDA#0:STA&70:STA&72:LDA#9:STA&71:LDA#&AC:STA&73:LDA#&1D:STAendadd:LDY#0:JSRmoveloop:LDA#&89:STA&71:LDA#9:STA&73:LDA#&9D:STAendadd:LDY#0:JSRmoveloop:JMPloadadd
  360 .moveloop LDA(&70),Y:STA(&72),Y:INY:BNEmoveloop:INC&71:INC&73:LDA&71:CMPendadd:BNEmoveloop:RTS
  370 .loadadd LDA#0:STA&A00:LDA#&B:STA&A01:STXendadd:CPX#1:BEQfindadd:LDA#0:STA&72:LDA#&A:STA&73:LDA&74:STA&70:LDA#3:STAendadd:LDA&75:LDY#0:.ram CMP#&C0:BNEno1:LDA#&1D:JMPst:.no1 CMP#&1D:BCSst:CMP#9:BCCst:CLC:ADC#&A3:.st STA&71
  380 .tr LDA(&70),Y:STA(&72),Y:INC&72:LDA&72:CMP#&12:BEQexec:INC&70:BNEtr:INC&71:LDA&71:JMPram
  390 .exec LDA#0:STA&A00:LDA#&B:STA&A01:PLA:PHA:BNEloader:JMPsave:.loader LDA&A06:BNEfindadd:LDA&A02:STA&70:LDA&A03:STA&71:LDA#2:STAendadd
  400 .findadd LDA#5:LDX#0:LDY#&A:JSROSFILE:CMP#1:BEQrun:JMPerror1:.run LDXendadd:CPX#1:BNEladdr:PLA:STA&72:PLA:STA&73:LDX&A06:LDY&A07:DEX:CPX#&FF:BNEstack:DEY:.stack TYA:PHA:TXA:PHA:LDA&73:PHA:LDA&72:PHA:JMParea
  410 .laddr CPX#2:BNEarea:LDA&70:STA&A02:LDA&71:STA&A03:LDA#0:STA&A06:.area LDA&A03:CMP#&1D:BCSload2:CMP#9:BCSbyteload:CLC:LDA&A02:ADC&A0A:LDA&A03:ADC&A0B:CMP#9:BCSbyteload
  420 .load2 LDA#&FF:LDX#0:LDY#&A:JSROSFILE:JMPend
  430 .byteload LDA#&40:LDX#0:LDY#&B:JSROSFIND:TAY:CMP#0:BNEok:JMPerror1:.ok LDA&A02:STA&70:LDA&A03:CMP#9:BCCnorm:CLC:ADC#&A3:.norm STA&71:.bget CLC:JSROSBGET:BCSendload:STA(&70,X):INC&70:BNEbget:INC&71:LDA&71:CMP#&C0:BEQsub:CMP#9:BNEbget
  440 LDA#&AC:STA&71:BNEbget:.sub LDA#&1D:STA&71:BNEbget:.endload LDA#0:JSROSFIND:LDAmsblock:BNEreadstack:JMPend
  450 .readstack LDA#&40:LDX#0:LDY#&B:JSROSFIND:TAY:LDX#0:.page0 JSROSBGET:INX:BNEpage0:LDXmsblock+15:TXS:LDX#0:.page1 JSROSBGET:STA&100,X:INX:BNEpage1:LDA#0:JSROSFIND:LDA&351:LSR A:STA&FE03:LDA&350:ROR A:STA&FE02:JMPend
  460 .save LDA&A0B:CMP#&1D:BCSsave2:CMP#9:BCSbytesave:LDA&A0F:CMP#9:BCSbytesave
  470 .save2 LDA#0:TAX:LDY#&A:JSROSFILE:JMPend
  480 .bytesave LDA&A0F:CMP#&1D:BCSopenout:CLC:ADC#&A3:STA&A0F:.openout LDA#&80:LDX#0:LDY#&B:JSROSFIND:TAY:CMP#0:BNEokS:JMPerror1:.okS LDA&A0A:STA&70:LDA&A0B:CMP#9:BCCnormS:CLC:ADC#&A3:.normS STA&71
  490 .bput LDA&70:CMP&A0E:BNEsa:LDA&71:CMP&A0F:BEQendsave:.sa LDA(&70,X):JSROSBPUT:INC&70:BNEbput:INC&71:LDA&71:CMP#&C0:BEQsubS:CMP#9:BNEbput:LDA#&AC:STA&71:BNEbput:.subS LDA#&1D:STA&71:BNEbput:.endsave LDA#0:JSROSFIND
  500 LDA#1:LDX#0:LDY#&A:JSROSFILE:LDA#3:STA&A0E:LDA#4:LDX#0:LDY#&A:JSROSFILE
  510 .end LDA#0:STA&70:STA&72:LDA#9:STA&71:LDA#&89:STA&73:LDA#&1D:STAendadd:LDY#0:JSRmoveloop:LDA#&AC:STA&71:LDA#9:STA&73:LDA#&C0:STAendadd:JSRmoveloop
  520 JSRpause:.wait2 JSRpauseend:BCCwait2
  530 .ret SEI:JSRvectors2:JSRvars:CLI:JMP BACK-(osbyte-bank1-1):]:vectors=O%:[OPTpass+4:.vectors2 LDA#(OBroutine MOD256):STA&20A:LDA#(OBroutine DIV256):STA&20B:LDA#(OFILE MOD256):STA&212:LDA#(OFILE DIV256):STA&213
  540 LDA#(OFSC MOD256):STA&21E:LDA#(OFSC DIV256):STA&21F:LDA#(EVENT MOD256):STA&220:LDA#(EVENT DIV256):STA&221:RTS
  550 .vars LDY&75:LDX&74:STXendadd:LDX#0:.loadvars LDAtempstore,X:STA&70,X:INX:CPX#6:BNEloadvars:LDXendadd
  560 LDAinternewLO:STA&204:LDAinternewHI:STA&205:LDA#0:STA&FCDD:RTS
  570 .fscrout PLA:PHA:BEQret:CMP#4:BEQfsc:CMP#2:BEQfsc:JSRoldOSFSC:LDA&70:STA&10D5:LDA&71:STA&DCC:LDA&72:STA&DCD:LDA&73:STA&DCE:JMPret:.fsc LDA&74:STA&70:LDA&75:STA&71:JSRfilename:LDX#1:JMPload
  580 .oldOSFSC LDA&10D5:STA&70:LDA&DCC:STA&71:LDA&DCD:STA&72:LDA&DCE:STA&73:LDA#&60:STA&DCC:LDA#&9E:STA&DCD:LDA#4:STA&DCE:PLA:PHA:JMP(osfscLO)
  590 .filename LDY#0:LDA(&70),Y:CMP#&D:BEQname:CMP#&20:BEQname:JMPnotzero:.name LDAnameLO:STA&70:STA&72:LDAnameHI:STA&71:STA&73:LDA(&70),Y:CMP#0:BNEok2:PLA:PLA:JMPerror2:.ok2 LDA(&72),Y:INC&72:BNEno:INC&73
  600 .no CMP#&D:BNEok2:LDA&72:STAnameLO:LDA&73:STAnameHI:.notzero LDA#0:STA&72:LDA#&8B:STA&73:.transloop LDA(&70),Y:STA(&72),Y:CMP#&D:BEQendfile:CMP#&20:BNEcontfile:LDA#&D:STA(&72),Y:BNEendfile:.contfile INY:JMPtransloop:.endfile RTS
  610 .error1 LDA#(notfound MOD256):STA&70:LDA#(notfound DIV256):STA&71:JMPerror:.error2 LDA#(nomore MOD256):STA&70:LDA#(nomore DIV256):STA&71:.error LDY#0:.printloop LDA(&70),Y:INY:JSROSASCI:CMP#&D:BNEprintloop:JMPret
  620 .evroutine JSRvecnorm:LDA#13:LDX#4:LDY#0:JSROSBYTE:JSRpause:.wait JSRslow:JSRmemsave:JSRpauseend:BCCwait:LDA#14:LDX#4:LDY#0:JSROSBYTE:JSRvectors2:JSRvars:JMP BACK-(osbyte-bank1-1)
  630 .slow LDA#&81:LDX#(FNinkey(SlowKey$)):LDY#&FF:JSROSBYTE:BCCfast:LDX#&FE:LDY#&FF:JSROSBYTE:BCCfast:INCdelay:LDXdelay:CPX#1:BNEfast:DECdelay
  640 .fast LDX#(FNinkey(FastKey$)):LDY#&FF:JSROSBYTE:BCCdelloop:LDX#&FE:LDY#&FF:JSROSBYTE:BCCdelloop:DECdelay:BNEdelloop:INCdelay
  650 .delloop LDAdelay:STA&70:.del1 DEC&70:BEQdelend:LDA#0:STA&71:.del2 DEC&71:BNEdel2:JMPdel1:.delend RTS
  660 .pause LDA#&81:LDX#(FNinkey(PauseKey$)):LDY#&FF:JSROSBYTE:LDA#0:BCCpauseret:LDA#&81:LDX#&FE:LDY#&FF:JSROSBYTE:LDA#0:BCCpauseret:LDA#1:.pauseret STApauseflag:RTS
  670 .pauseend LDApauseflag:BEQunpause:LDA#&81:LDX#(FNinkey(ContKey$)):LDY#&FF:JSROSBYTE:BCCstaypause:LDA#&81:LDX#&FE:LDY#&FF:JSROSBYTE:BCCstaypause:.unpause SEC:.staypause RTS
  680 .memsave LDAmsblock:BEQmsa:JMPmemload:.msa LDA#&81:LDX#(FNinkey(MemSaveKey$)):LDY#&FF:JSROSBYTE:BCCmsend:LDX#&FE:LDY#&FF:JSROSBYTE:BCCmsend
  690 LDA#1:STAmsblock:LDY#0:.msvars LDAtempstore,Y:STAmsblock+1,Y:INY:CPY#6:BNEmsvars:LDA&74:STAmsblock+7:LDA&75:STAmsblock+8
  700 PLA:STA&70:PLA:STA&71:PLA:STAmsblock+9:PLA:STAmsblock+10:LDA#((EVENT-1) DIV256):PHA:LDA#((EVENT-1) MOD256):PHA:LDA#((oscli-1) DIV256):PHA:LDA#((oscli-1) MOD256):PHA
  710 LDAmsblock+10:PHA:LDAmsblock+9:PHA:LDA&71:PHA:LDA&70:PHA:LDA&FE00:STAmsblock+11
  720 LDY#0:.textloop LDAosclitext,Y:STAmsblock+&10,Y:LDAmstext,Y:STAosclitext,Y:INY:CMP#&D:BNEtextloop
  730 LDX#(osclitext MOD256):STX&74:LDY#(osclitext DIV256):STY&75:INCmsletter:.msend RTS
  740 .memload LDA#0:STAmsblock:LDY#0:.msvars2 LDAmsblock+1,Y:STAtempstore,Y:INY:CPY#6:BNEmsvars2:PLA:STA&70:PLA:STA&71:PLA:PLA:LDAmsblock+10:PHA:LDAmsblock+9:PHA:LDA&71:PHA:LDA&70:PHA
  750 LDY#0:.textloop2 LDAosclitext,Y:TAX:LDAmsblock+&10,Y:STAosclitext,Y:INY:CPX#&D:BNEtextloop2
  760 LDAmsblock+7:STA&74:LDAmsblock+8:STA&75:LDAmsblock+11:STA&FE00:RTS
  770 .notfound EQUS"Not found":EQUB13:.nomore EQUS"No more filenames":EQUB13:.nameLO EQUBnames MOD256:.nameHI EQUBnames DIV256:.endadd EQUB0:.osfileLO EQUB0:.osfileHI EQUB0:.osfscLO EQUB0:.osfscHI EQUB0:.osbyteLO EQUB0:.osbyteHI EQUB0
  780 .eventLO EQUB0:.eventHI EQUB0:.interLO EQUB0:.interHI EQUB0:.internewLO EQUB0:.internewHI EQUB0
  790 .tempstore EQUD0:EQUW0:.pauseflag EQUB0:.delay EQUB1:.mstext EQUS"SAVE Position":.msletter EQUS"A 0000 8050":EQUB13:.names:]:$O%=filenames$:O%=O%+LEN(filenames$)+1:?(O%-1)=0
  800 bank1=O%:[OPTpass+4:LDA#0:STA&F4:STA&FE05:]:P%=O%:[OPTpass+4:RTS:]:osbyte=O%:P%=OBroutine:[OPTpass+4:CMP#140:BEQtape:PHA:LDAOBrout2+8:STA&20A:JMPOBrout2:.tape RTS:]:osbyte2=O%:P%=OBrout2:[OPTpass+4
  810 LDAOBrout2+9:STA&20B:PLA:JSR&0000:JMPOBrout3:]:osbyte3=O%:P%=OBrout3:[OPTpass+4:PHA:LDA#(OBroutine MOD256):STA&20A:LDA#(OBroutine DIV256):STA&20B:PLA:RTS:]
  820 file=O%:P%=OFILE:[OPTpass+4:CLC:BCCof:.OFSC SEC:.of PHP:PHA:]:bank2=O%:[OPTpass+4:LDA#0:STA&F4:STA&FE05:.enter:]:P%=O%:[OPTpass+4:RTS:]:fileret=O%:P%=BACK:[OPTpass+4:PLA:PLP:RTS:]
  830 evrout=O%:P%=EVENT:[OPTpass+4:PHP:PHA:LDA#0:STA&F4:STA&FE05:.enterev:]:evend=O%
  840 NEXT
  850 PRINT"Save (Y/N)?":A$=GET$:IF A$="Y" THEN OSCLI"SAVE DLS 2000 "+STR$~O%
  860 END
  870 DEFFNinkey(Key$)
  880 RESTORE
  890 FORletter=1 TO ASC(Key$)-64
  900 READ value
  910 NEXT letter
  920 =value+256
  930 DATA -66,-101,-83,-51,-35,-68,-84,-85,-38,-70,-71,-87,-102,-86,-55,-56,-17,-52,-82,-36,-54,-100,-34,-67,-69,-98

� �    TAPE -> ADFS  Loader/Saver                   by M. FORD , 1994        (with event-driven pause, slow/fast,     and memory save. N.B. memory saved      positions cannot be run)                 Filename: DLoadSave4
 �6:� 28,0,24,39,14:�=&7000
* filenames$="CRAZEE"+�13+"CRAZEER"+�13
(I PauseKey$="P":ContKey$="O":SlowKey$="S":FastKey$="W":MemSaveKey$="M"
2� OFILE=&AA3A:BACK=&8698:OBroutine=&9C05:OBrout2=&8C10:OBrout3=&99A9:B2routine=&A000:EVENT=&AAAE:msblock=&8020:osclitext=&5000
<k OSBYTE=&FFF4:OSWORD=&FFF1:OSFILE=&FFDD:OSBGET=&FFD7:OSBPUT=&FFD4:OSFIND=&FFCE:OSASCI=&FFE3:oscli=&FFF7
F& �pass=0 � 2 � 2:P%=&2000:[OPTpass
Pf LDA#0:STA&FCDC:STA&FCDE:LDA#15:STA&F4:STA&FE05:LDX#2:SEI:.test TXA:STA&F4:STA&FE05:LDA#0:LDA&8800
Z7 INC&8800:CMP&8800:BNEfound:DEX:DEX:BPLtest:LDX#&FF
d> .found DEC&8800:CLI:STXbank1+1:INX:STXbank2+1:STXevrout+3
n� .BASICrom LDA#11:STA&F4:STA&FE05:LDA#0:STA&70:STA&72:STA&74:LDA#&80:STA&71:LDA#&40:STA&73:LDA#&A0:STA&75:JSRmoveloop2:LDA#15:STA&F4:STA&FE05:JSRbank1:LDA#0:STA&70:STA&72:STA&74:LDA#&40:STA&71:LDA#&80:STA&73:LDA#&60:STA&75:JSRmoveloop2
x�LDA#11:STA&F4:STA&FE05:LDA#0:STA&70:STA&72:STA&74:LDA#&A0:STA&71:LDA#&40:STA&73:LDA#&C0:STA&75:JSRmoveloop2:LDA#15:STA&F4:STA&FE05:JSRbank1:LDA#0:STA&70:STA&72:STA&74:LDA#&40:STA&71:LDA#&A0:STA&73:LDA#&60:STA&75:JSRmoveloop2
�� .bank2entry JSRbank2:LDA#(enter �256):STA&70:LDA#(enter �256):STA&71:LDY#0:LDA#&4C:STA(&70),Y:INY:LDA#(B2routine �256):STA(&70),Y:INY:LDA#(B2routine �256):STA(&70),Y
�� .evententry LDA#(enterev �256):STA&70:LDA#(enterev �256):STA&71:LDY#0:LDA#&4C:STA(&70),Y:INY:LDA#(evroutine �256):STA(&70),Y:INY:LDA#(evroutine �256):STA(&70),Y
�� .bank2main LDA#(start �256):STA&70:LDA#(start �256):STA&71:LDA#(bank1 �256):STA&74:LDA#(bank1 �256):STA&75:LDA#(B2routine �256):STA&72:LDA#(B2routine �256):STA&73:JSRmoveloop2
�a .ADFSdata LDA#0:STA&70:STA&72:STA&74:LDA#9:STA&71:LDA#&89:STA&73:LDA#&1D:STA&75:JSRmoveloop2
�� .b1return LDA#(bank1 �256):STA&70:LDA#(bank1 �256):STA&71:LDA#(BACK-(osbyte-bank1-1)) �256):STA&72:LDA#(BACK-(osbyte-bank1-1)) �256):STA&73:LDA#((osbyte-1) �256):STA&74:LDA#((osbyte-1) �256):STA&75:JSRmoveloop2
�� .b1osbyte JSRbank1:LDA#(osbyte �256):STA&70:LDA#(osbyte �256):STA&71:LDA#(OBroutine �256):STA&72:LDA#(OBroutine �256):STA&73:LDA#(osbyte2 �256):STA&74:LDA#(osbyte2 �256):STA&75:JSRmoveloop2
�� .b1osbyte2 LDA#(osbyte2 �256):STA&70:LDA#(osbyte2 �256):STA&71:LDA#(OBrout2 �256):STA&72:LDA#(OBrout2 �256):STA&73:LDA#(osbyte3 �256):STA&74:LDA#(osbyte3 �256):STA&75:JSRmoveloop2
Ȳ .b1osbyte3 LDA#(osbyte3 �256):STA&70:LDA#(osbyte3 �256):STA&71:LDA#(OBrout3 �256):STA&72:LDA#(OBrout3 �256):STA&73:LDA#(file �256):STA&74:LDA#(file �256):STA&75:JSRmoveloop2
ҵ .b1osfile LDA#(file �256):STA&70:LDA#(file �256):STA&71:LDA#(OFILE �256):STA&72:LDA#(OFILE �256):STA&73:LDA#((fileret-1) �256):STA&74:LDA#((fileret-1) �256):STA&75:JSRmoveloop2
ܰ .b1fileret LDA#(fileret �256):STA&70:LDA#(fileret �256):STA&71:LDA#(BACK �256):STA&72:LDA#(BACK �256):STA&73:LDA#(evrout �256):STA&74:LDA#(evrout �256):STA&75:JSRmoveloop2
� .b1event LDA#(evrout �256):STA&70:LDA#(evrout �256):STA&71:LDA#(EVENT �256):STA&72:LDA#(EVENT �256):STA&73:LDA#(evend �256):STA&74:LDA#(evend �256):STA&75:JSRmoveloop2
�j .page LDA#0:STA&70:STA&72:LDA&18:STA&71:LDA#&E:STA&73:STA&18:LDA&12:STA&74:LDA&13:STA&75:JSRmoveloop2
�g .langROM LDAbank1+1:STA&28C:CLC:ADC#&A0:STA&70:LDA#2:STA&71:LDY#0:LDA#&60:STA(&70),Y:LDA#0:STA&2AB
� .vect LDA&20A:STAOBrout2+8:LDA&20B:STAOBrout2+9:JSRbank2:LDA&20A:STAosbyteLO:LDA&20B:STAosbyteHI:LDA&212:STAosfileLO:LDA&213:STAosfileHI:LDA&21E:STAosfscLO:LDA&21F:STAosfscHI
� LDA&204:STAinterLO:LDA&205:STAinterHI:LDA&220:STAeventLO:LDA&221:STAeventHI:LDA#14:LDX#4:LDY#0:JSROSBYTE:LDX#2:LDY#0:JSROSBYTE:SEI:JSRvectors:CLI:JSRbank1:LDA#0:STA&FCDD:RTS
� .moveloop2 LDY#0:.loop LDA(&70),Y:STA(&72),Y:INC&70:BNEa:INC&71:.a INC&72:BNEb:INC&73:.b LDA&70:CMP&74:BNEloop:LDA&71:CMP&75:BNEloop:RTS
"- ]:O%=P%:start=O%:P%=B2routine:[OPTpass+4
,� LDA#0:ADC#0:PHA:SEI:JSRvecnorm:CLI:JMPcont:.vecnorm LDAosfscLO:STA&21E:LDAosfscHI:STA&21F:LDAosfileLO:STA&212:LDAosfileHI:STA&213:LDAosbyteLO:STA&20A:LDAosbyteHI:STA&20B
6| LDAeventLO:STA&220:LDAeventHI:STA&221:LDA&204:STAinternewLO:LDA&205:STAinternewHI:LDAinterLO:STA&204:LDAinterHI:STA&205
@h STXendadd:LDX#0:.savevars LDA&70,X:STAtempstore,X:INX:CPX#6:BNEsavevars:STY&75:LDXendadd:STX&74:RTS
JF .cont LDAmsblock:TSX:INX:STXmsblock+15:PLA:BEQfilerout:JMPfscrout
TV .filerout LDY#0:LDA(&74),Y:TAX:INY:LDA(&74),Y:STX&70:STA&71:DEY:JSRfilename:LDX#0
^� .load LDA#0:STA&70:STA&72:LDA#9:STA&71:LDA#&AC:STA&73:LDA#&1D:STAendadd:LDY#0:JSRmoveloop:LDA#&89:STA&71:LDA#9:STA&73:LDA#&9D:STAendadd:LDY#0:JSRmoveloop:JMPloadadd
hc .moveloop LDA(&70),Y:STA(&72),Y:INY:BNEmoveloop:INC&71:INC&73:LDA&71:CMPendadd:BNEmoveloop:RTS
r� .loadadd LDA#0:STA&A00:LDA#&B:STA&A01:STXendadd:CPX#1:BEQfindadd:LDA#0:STA&72:LDA#&A:STA&73:LDA&74:STA&70:LDA#3:STAendadd:LDA&75:LDY#0:.ram CMP#&C0:BNEno1:LDA#&1D:JMPst:.no1 CMP#&1D:BCSst:CMP#9:BCCst:CLC:ADC#&A3:.st STA&71
|^ .tr LDA(&70),Y:STA(&72),Y:INC&72:LDA&72:CMP#&12:BEQexec:INC&70:BNEtr:INC&71:LDA&71:JMPram
�� .exec LDA#0:STA&A00:LDA#&B:STA&A01:PLA:PHA:BNEloader:JMPsave:.loader LDA&A06:BNEfindadd:LDA&A02:STA&70:LDA&A03:STA&71:LDA#2:STAendadd
�� .findadd LDA#5:LDX#0:LDY#&A:JSROSFILE:CMP#1:BEQrun:JMPerror1:.run LDXendadd:CPX#1:BNEladdr:PLA:STA&72:PLA:STA&73:LDX&A06:LDY&A07:DEX:CPX#&FF:BNEstack:DEY:.stack TYA:PHA:TXA:PHA:LDA&73:PHA:LDA&72:PHA:JMParea
�� .laddr CPX#2:BNEarea:LDA&70:STA&A02:LDA&71:STA&A03:LDA#0:STA&A06:.area LDA&A03:CMP#&1D:BCSload2:CMP#9:BCSbyteload:CLC:LDA&A02:ADC&A0A:LDA&A03:ADC&A0B:CMP#9:BCSbyteload
�1 .load2 LDA#&FF:LDX#0:LDY#&A:JSROSFILE:JMPend
�� .byteload LDA#&40:LDX#0:LDY#&B:JSROSFIND:TAY:CMP#0:BNEok:JMPerror1:.ok LDA&A02:STA&70:LDA&A03:CMP#9:BCCnorm:CLC:ADC#&A3:.norm STA&71:.bget CLC:JSROSBGET:BCSendload:STA(&70,X):INC&70:BNEbget:INC&71:LDA&71:CMP#&C0:BEQsub:CMP#9:BNEbget
�o LDA#&AC:STA&71:BNEbget:.sub LDA#&1D:STA&71:BNEbget:.endload LDA#0:JSROSFIND:LDAmsblock:BNEreadstack:JMPend
�� .readstack LDA#&40:LDX#0:LDY#&B:JSROSFIND:TAY:LDX#0:.page0 JSROSBGET:INX:BNEpage0:LDXmsblock+15:TXS:LDX#0:.page1 JSROSBGET:STA&100,X:INX:BNEpage1:LDA#0:JSROSFIND:LDA&351:LSR A:STA&FE03:LDA&350:ROR A:STA&FE02:JMPend
�O .save LDA&A0B:CMP#&1D:BCSsave2:CMP#9:BCSbytesave:LDA&A0F:CMP#9:BCSbytesave
�- .save2 LDA#0:TAX:LDY#&A:JSROSFILE:JMPend
�� .bytesave LDA&A0F:CMP#&1D:BCSopenout:CLC:ADC#&A3:STA&A0F:.openout LDA#&80:LDX#0:LDY#&B:JSROSFIND:TAY:CMP#0:BNEokS:JMPerror1:.okS LDA&A0A:STA&70:LDA&A0B:CMP#9:BCCnormS:CLC:ADC#&A3:.normS STA&71
�� .bput LDA&70:CMP&A0E:BNEsa:LDA&71:CMP&A0F:BEQendsave:.sa LDA(&70,X):JSROSBPUT:INC&70:BNEbput:INC&71:LDA&71:CMP#&C0:BEQsubS:CMP#9:BNEbput:LDA#&AC:STA&71:BNEbput:.subS LDA#&1D:STA&71:BNEbput:.endsave LDA#0:JSROSFIND
�L LDA#1:LDX#0:LDY#&A:JSROSFILE:LDA#3:STA&A0E:LDA#4:LDX#0:LDY#&A:JSROSFILE
�� .end LDA#0:STA&70:STA&72:LDA#9:STA&71:LDA#&89:STA&73:LDA#&1D:STAendadd:LDY#0:JSRmoveloop:LDA#&AC:STA&71:LDA#9:STA&73:LDA#&C0:STAendadd:JSRmoveloop
) JSRpause:.wait2 JSRpauseend:BCCwait2
� .ret SEI:JSRvectors2:JSRvars:CLI:JMP BACK-(osbyte-bank1-1):]:vectors=O%:[OPTpass+4:.vectors2 LDA#(OBroutine �256):STA&20A:LDA#(OBroutine �256):STA&20B:LDA#(OFILE �256):STA&212:LDA#(OFILE �256):STA&213
j LDA#(OFSC �256):STA&21E:LDA#(OFSC �256):STA&21F:LDA#(EVENT �256):STA&220:LDA#(EVENT �256):STA&221:RTS
&j .vars LDY&75:LDX&74:STXendadd:LDX#0:.loadvars LDAtempstore,X:STA&70,X:INX:CPX#6:BNEloadvars:LDXendadd
0C LDAinternewLO:STA&204:LDAinternewHI:STA&205:LDA#0:STA&FCDD:RTS
:� .fscrout PLA:PHA:BEQret:CMP#4:BEQfsc:CMP#2:BEQfsc:JSRoldOSFSC:LDA&70:STA&10D5:LDA&71:STA&DCC:LDA&72:STA&DCD:LDA&73:STA&DCE:JMPret:.fsc LDA&74:STA&70:LDA&75:STA&71:JSRfilename:LDX#1:JMPload
D� .oldOSFSC LDA&10D5:STA&70:LDA&DCC:STA&71:LDA&DCD:STA&72:LDA&DCE:STA&73:LDA#&60:STA&DCC:LDA#&9E:STA&DCD:LDA#4:STA&DCE:PLA:PHA:JMP(osfscLO)
N� .filename LDY#0:LDA(&70),Y:CMP#&D:BEQname:CMP#&20:BEQname:JMPnotzero:.name LDAnameLO:STA&70:STA&72:LDAnameHI:STA&71:STA&73:LDA(&70),Y:CMP#0:BNEok2:PLA:PLA:JMPerror2:.ok2 LDA(&72),Y:INC&72:BNEno:INC&73
X� .no CMP#&D:BNEok2:LDA&72:STAnameLO:LDA&73:STAnameHI:.notzero LDA#0:STA&72:LDA#&8B:STA&73:.transloop LDA(&70),Y:STA(&72),Y:CMP#&D:BEQendfile:CMP#&20:BNEcontfile:LDA#&D:STA(&72),Y:BNEendfile:.contfile INY:JMPtransloop:.endfile RTS
b� .error1 LDA#(notfound �256):STA&70:LDA#(notfound �256):STA&71:JMPerror:.error2 LDA#(nomore �256):STA&70:LDA#(nomore �256):STA&71:.error LDY#0:.printloop LDA(&70),Y:INY:JSROSASCI:CMP#&D:BNEprintloop:JMPret
l� .evroutine JSRvecnorm:LDA#13:LDX#4:LDY#0:JSROSBYTE:JSRpause:.wait JSRslow:JSRmemsave:JSRpauseend:BCCwait:LDA#14:LDX#4:LDY#0:JSROSBYTE:JSRvectors2:JSRvars:JMP BACK-(osbyte-bank1-1)
v� .slow LDA#&81:LDX#(�inkey(SlowKey$)):LDY#&FF:JSROSBYTE:BCCfast:LDX#&FE:LDY#&FF:JSROSBYTE:BCCfast:INCdelay:LDXdelay:CPX#1:BNEfast:DECdelay
�� .fast LDX#(�inkey(FastKey$)):LDY#&FF:JSROSBYTE:BCCdelloop:LDX#&FE:LDY#&FF:JSROSBYTE:BCCdelloop:DECdelay:BNEdelloop:INCdelay
�j .delloop LDAdelay:STA&70:.del1 DEC&70:BEQdelend:LDA#0:STA&71:.del2 DEC&71:BNEdel2:JMPdel1:.delend RTS
�� .pause LDA#&81:LDX#(�inkey(PauseKey$)):LDY#&FF:JSROSBYTE:LDA#0:BCCpauseret:LDA#&81:LDX#&FE:LDY#&FF:JSROSBYTE:LDA#0:BCCpauseret:LDA#1:.pauseret STApauseflag:RTS
�� .pauseend LDApauseflag:BEQunpause:LDA#&81:LDX#(�inkey(ContKey$)):LDY#&FF:JSROSBYTE:BCCstaypause:LDA#&81:LDX#&FE:LDY#&FF:JSROSBYTE:BCCstaypause:.unpause SEC:.staypause RTS
�� .memsave LDAmsblock:BEQmsa:JMPmemload:.msa LDA#&81:LDX#(�inkey(MemSaveKey$)):LDY#&FF:JSROSBYTE:BCCmsend:LDX#&FE:LDY#&FF:JSROSBYTE:BCCmsend
�} LDA#1:STAmsblock:LDY#0:.msvars LDAtempstore,Y:STAmsblock+1,Y:INY:CPY#6:BNEmsvars:LDA&74:STAmsblock+7:LDA&75:STAmsblock+8
�� PLA:STA&70:PLA:STA&71:PLA:STAmsblock+9:PLA:STAmsblock+10:LDA#((EVENT-1) �256):PHA:LDA#((EVENT-1) �256):PHA:LDA#((oscli-1) �256):PHA:LDA#((oscli-1) �256):PHA
�T LDAmsblock+10:PHA:LDAmsblock+9:PHA:LDA&71:PHA:LDA&70:PHA:LDA&FE00:STAmsblock+11
�f LDY#0:.textloop LDAosclitext,Y:STAmsblock+&10,Y:LDAmstext,Y:STAosclitext,Y:INY:CMP#&D:BNEtextloop
�S LDX#(osclitext �256):STX&74:LDY#(osclitext �256):STY&75:INCmsletter:.msend RTS
� .memload LDA#0:STAmsblock:LDY#0:.msvars2 LDAmsblock+1,Y:STAtempstore,Y:INY:CPY#6:BNEmsvars2:PLA:STA&70:PLA:STA&71:PLA:PLA:LDAmsblock+10:PHA:LDAmsblock+9:PHA:LDA&71:PHA:LDA&70:PHA
�` LDY#0:.textloop2 LDAosclitext,Y:TAX:LDAmsblock+&10,Y:STAosclitext,Y:INY:CPX#&D:BNEtextloop2
�G LDAmsblock+7:STA&74:LDAmsblock+8:STA&75:LDAmsblock+11:STA&FE00:RTS
� .notfound EQUS"Not found":EQUB13:.nomore EQUS"No more filenames":EQUB13:.nameLO EQUBnames �256:.nameHI EQUBnames �256:.endadd EQUB0:.osfileLO EQUB0:.osfileHI EQUB0:.osfscLO EQUB0:.osfscHI EQUB0:.osbyteLO EQUB0:.osbyteHI EQUB0
d .eventLO EQUB0:.eventHI EQUB0:.interLO EQUB0:.interHI EQUB0:.internewLO EQUB0:.internewHI EQUB0
� .tempstore EQUD0:EQUW0:.pauseflag EQUB0:.delay EQUB1:.mstext EQUS"SAVE Position":.msletter EQUS"A 0000 8050":EQUB13:.names:]:$O%=filenames$:O%=O%+�(filenames$)+1:?(O%-1)=0
 � bank1=O%:[OPTpass+4:LDA#0:STA&F4:STA&FE05:]:P%=O%:[OPTpass+4:RTS:]:osbyte=O%:P%=OBroutine:[OPTpass+4:CMP#140:BEQtape:PHA:LDAOBrout2+8:STA&20A:JMPOBrout2:.tape RTS:]:osbyte2=O%:P%=OBrout2:[OPTpass+4
*� LDAOBrout2+9:STA&20B:PLA:JSR&0000:JMPOBrout3:]:osbyte3=O%:P%=OBrout3:[OPTpass+4:PHA:LDA#(OBroutine �256):STA&20A:LDA#(OBroutine �256):STA&20B:PLA:RTS:]
4� file=O%:P%=OFILE:[OPTpass+4:CLC:BCCof:.OFSC SEC:.of PHP:PHA:]:bank2=O%:[OPTpass+4:LDA#0:STA&F4:STA&FE05:.enter:]:P%=O%:[OPTpass+4:RTS:]:fileret=O%:P%=BACK:[OPTpass+4:PLA:PLP:RTS:]
>T evrout=O%:P%=EVENT:[OPTpass+4:PHP:PHA:LDA#0:STA&F4:STA&FE05:.enterev:]:evend=O%
H �
R: �"Save (Y/N)?":A$=�:� A$="Y" � �"SAVE DLS 2000 "+�~O%
\ �
f ݤinkey(Key$)
p �
z �letter=1 � �(Key$)-64
� � value
�
 � letter
� =value+256
�q � -66,-101,-83,-51,-35,-68,-84,-85,-38,-70,-71,-87,-102,-86,-55,-56,-17,-52,-82,-36,-54,-100,-34,-67,-69,-98
�
00000000  0d 00 0a de 20 f4 20 20  20 20 54 41 50 45 20 2d  |.... .    TAPE -|
00000010  3e 20 41 44 46 53 20 20  4c 6f 61 64 65 72 2f 53  |> ADFS  Loader/S|
00000020  61 76 65 72 20 20 20 20  20 20 20 20 20 20 20 20  |aver            |
00000030  20 20 20 20 20 20 20 62  79 20 4d 2e 20 46 4f 52  |       by M. FOR|
00000040  44 20 2c 20 31 39 39 34  20 20 20 20 20 20 20 20  |D , 1994        |
00000050  28 77 69 74 68 20 65 76  65 6e 74 2d 64 72 69 76  |(with event-driv|
00000060  65 6e 20 70 61 75 73 65  2c 20 73 6c 6f 77 2f 66  |en pause, slow/f|
00000070  61 73 74 2c 20 20 20 20  20 61 6e 64 20 6d 65 6d  |ast,     and mem|
00000080  6f 72 79 20 73 61 76 65  2e 20 4e 2e 42 2e 20 6d  |ory save. N.B. m|
00000090  65 6d 6f 72 79 20 73 61  76 65 64 20 20 20 20 20  |emory saved     |
000000a0  20 70 6f 73 69 74 69 6f  6e 73 20 63 61 6e 6e 6f  | positions canno|
000000b0  74 20 62 65 20 72 75 6e  29 20 20 20 20 20 20 20  |t be run)       |
000000c0  20 20 20 20 20 20 20 20  20 20 46 69 6c 65 6e 61  |          Filena|
000000d0  6d 65 3a 20 44 4c 6f 61  64 53 61 76 65 34 0d 00  |me: DLoadSave4..|
000000e0  14 1f 20 eb 36 3a ef 20  32 38 2c 30 2c 32 34 2c  |.. .6:. 28,0,24,|
000000f0  33 39 2c 31 34 3a d3 3d  26 37 30 30 30 0d 00 1e  |39,14:.=&7000...|
00000100  2a 20 66 69 6c 65 6e 61  6d 65 73 24 3d 22 43 52  |* filenames$="CR|
00000110  41 5a 45 45 22 2b bd 31  33 2b 22 43 52 41 5a 45  |AZEE"+.13+"CRAZE|
00000120  45 52 22 2b bd 31 33 0d  00 28 49 20 50 61 75 73  |ER"+.13..(I Paus|
00000130  65 4b 65 79 24 3d 22 50  22 3a 43 6f 6e 74 4b 65  |eKey$="P":ContKe|
00000140  79 24 3d 22 4f 22 3a 53  6c 6f 77 4b 65 79 24 3d  |y$="O":SlowKey$=|
00000150  22 53 22 3a 46 61 73 74  4b 65 79 24 3d 22 57 22  |"S":FastKey$="W"|
00000160  3a 4d 65 6d 53 61 76 65  4b 65 79 24 3d 22 4d 22  |:MemSaveKey$="M"|
00000170  0d 00 32 81 20 4f 46 49  4c 45 3d 26 41 41 33 41  |..2. OFILE=&AA3A|
00000180  3a 42 41 43 4b 3d 26 38  36 39 38 3a 4f 42 72 6f  |:BACK=&8698:OBro|
00000190  75 74 69 6e 65 3d 26 39  43 30 35 3a 4f 42 72 6f  |utine=&9C05:OBro|
000001a0  75 74 32 3d 26 38 43 31  30 3a 4f 42 72 6f 75 74  |ut2=&8C10:OBrout|
000001b0  33 3d 26 39 39 41 39 3a  42 32 72 6f 75 74 69 6e  |3=&99A9:B2routin|
000001c0  65 3d 26 41 30 30 30 3a  45 56 45 4e 54 3d 26 41  |e=&A000:EVENT=&A|
000001d0  41 41 45 3a 6d 73 62 6c  6f 63 6b 3d 26 38 30 32  |AAE:msblock=&802|
000001e0  30 3a 6f 73 63 6c 69 74  65 78 74 3d 26 35 30 30  |0:osclitext=&500|
000001f0  30 0d 00 3c 6b 20 4f 53  42 59 54 45 3d 26 46 46  |0..<k OSBYTE=&FF|
00000200  46 34 3a 4f 53 57 4f 52  44 3d 26 46 46 46 31 3a  |F4:OSWORD=&FFF1:|
00000210  4f 53 46 49 4c 45 3d 26  46 46 44 44 3a 4f 53 42  |OSFILE=&FFDD:OSB|
00000220  47 45 54 3d 26 46 46 44  37 3a 4f 53 42 50 55 54  |GET=&FFD7:OSBPUT|
00000230  3d 26 46 46 44 34 3a 4f  53 46 49 4e 44 3d 26 46  |=&FFD4:OSFIND=&F|
00000240  46 43 45 3a 4f 53 41 53  43 49 3d 26 46 46 45 33  |FCE:OSASCI=&FFE3|
00000250  3a 6f 73 63 6c 69 3d 26  46 46 46 37 0d 00 46 26  |:oscli=&FFF7..F&|
00000260  20 e3 70 61 73 73 3d 30  20 b8 20 32 20 88 20 32  | .pass=0 . 2 . 2|
00000270  3a 50 25 3d 26 32 30 30  30 3a 5b 4f 50 54 70 61  |:P%=&2000:[OPTpa|
00000280  73 73 0d 00 50 66 20 4c  44 41 23 30 3a 53 54 41  |ss..Pf LDA#0:STA|
00000290  26 46 43 44 43 3a 53 54  41 26 46 43 44 45 3a 4c  |&FCDC:STA&FCDE:L|
000002a0  44 41 23 31 35 3a 53 54  41 26 46 34 3a 53 54 41  |DA#15:STA&F4:STA|
000002b0  26 46 45 30 35 3a 4c 44  58 23 32 3a 53 45 49 3a  |&FE05:LDX#2:SEI:|
000002c0  2e 74 65 73 74 20 54 58  41 3a 53 54 41 26 46 34  |.test TXA:STA&F4|
000002d0  3a 53 54 41 26 46 45 30  35 3a 4c 44 41 23 30 3a  |:STA&FE05:LDA#0:|
000002e0  4c 44 41 26 38 38 30 30  0d 00 5a 37 20 49 4e 43  |LDA&8800..Z7 INC|
000002f0  26 38 38 30 30 3a 43 4d  50 26 38 38 30 30 3a 42  |&8800:CMP&8800:B|
00000300  4e 45 66 6f 75 6e 64 3a  44 45 58 3a 44 45 58 3a  |NEfound:DEX:DEX:|
00000310  42 50 4c 74 65 73 74 3a  4c 44 58 23 26 46 46 0d  |BPLtest:LDX#&FF.|
00000320  00 64 3e 20 2e 66 6f 75  6e 64 20 44 45 43 26 38  |.d> .found DEC&8|
00000330  38 30 30 3a 43 4c 49 3a  53 54 58 62 61 6e 6b 31  |800:CLI:STXbank1|
00000340  2b 31 3a 49 4e 58 3a 53  54 58 62 61 6e 6b 32 2b  |+1:INX:STXbank2+|
00000350  31 3a 53 54 58 65 76 72  6f 75 74 2b 33 0d 00 6e  |1:STXevrout+3..n|
00000360  ef 20 2e 42 41 53 49 43  72 6f 6d 20 4c 44 41 23  |. .BASICrom LDA#|
00000370  31 31 3a 53 54 41 26 46  34 3a 53 54 41 26 46 45  |11:STA&F4:STA&FE|
00000380  30 35 3a 4c 44 41 23 30  3a 53 54 41 26 37 30 3a  |05:LDA#0:STA&70:|
00000390  53 54 41 26 37 32 3a 53  54 41 26 37 34 3a 4c 44  |STA&72:STA&74:LD|
000003a0  41 23 26 38 30 3a 53 54  41 26 37 31 3a 4c 44 41  |A#&80:STA&71:LDA|
000003b0  23 26 34 30 3a 53 54 41  26 37 33 3a 4c 44 41 23  |#&40:STA&73:LDA#|
000003c0  26 41 30 3a 53 54 41 26  37 35 3a 4a 53 52 6d 6f  |&A0:STA&75:JSRmo|
000003d0  76 65 6c 6f 6f 70 32 3a  4c 44 41 23 31 35 3a 53  |veloop2:LDA#15:S|
000003e0  54 41 26 46 34 3a 53 54  41 26 46 45 30 35 3a 4a  |TA&F4:STA&FE05:J|
000003f0  53 52 62 61 6e 6b 31 3a  4c 44 41 23 30 3a 53 54  |SRbank1:LDA#0:ST|
00000400  41 26 37 30 3a 53 54 41  26 37 32 3a 53 54 41 26  |A&70:STA&72:STA&|
00000410  37 34 3a 4c 44 41 23 26  34 30 3a 53 54 41 26 37  |74:LDA#&40:STA&7|
00000420  31 3a 4c 44 41 23 26 38  30 3a 53 54 41 26 37 33  |1:LDA#&80:STA&73|
00000430  3a 4c 44 41 23 26 36 30  3a 53 54 41 26 37 35 3a  |:LDA#&60:STA&75:|
00000440  4a 53 52 6d 6f 76 65 6c  6f 6f 70 32 0d 00 78 e4  |JSRmoveloop2..x.|
00000450  4c 44 41 23 31 31 3a 53  54 41 26 46 34 3a 53 54  |LDA#11:STA&F4:ST|
00000460  41 26 46 45 30 35 3a 4c  44 41 23 30 3a 53 54 41  |A&FE05:LDA#0:STA|
00000470  26 37 30 3a 53 54 41 26  37 32 3a 53 54 41 26 37  |&70:STA&72:STA&7|
00000480  34 3a 4c 44 41 23 26 41  30 3a 53 54 41 26 37 31  |4:LDA#&A0:STA&71|
00000490  3a 4c 44 41 23 26 34 30  3a 53 54 41 26 37 33 3a  |:LDA#&40:STA&73:|
000004a0  4c 44 41 23 26 43 30 3a  53 54 41 26 37 35 3a 4a  |LDA#&C0:STA&75:J|
000004b0  53 52 6d 6f 76 65 6c 6f  6f 70 32 3a 4c 44 41 23  |SRmoveloop2:LDA#|
000004c0  31 35 3a 53 54 41 26 46  34 3a 53 54 41 26 46 45  |15:STA&F4:STA&FE|
000004d0  30 35 3a 4a 53 52 62 61  6e 6b 31 3a 4c 44 41 23  |05:JSRbank1:LDA#|
000004e0  30 3a 53 54 41 26 37 30  3a 53 54 41 26 37 32 3a  |0:STA&70:STA&72:|
000004f0  53 54 41 26 37 34 3a 4c  44 41 23 26 34 30 3a 53  |STA&74:LDA#&40:S|
00000500  54 41 26 37 31 3a 4c 44  41 23 26 41 30 3a 53 54  |TA&71:LDA#&A0:ST|
00000510  41 26 37 33 3a 4c 44 41  23 26 36 30 3a 53 54 41  |A&73:LDA#&60:STA|
00000520  26 37 35 3a 4a 53 52 6d  6f 76 65 6c 6f 6f 70 32  |&75:JSRmoveloop2|
00000530  0d 00 82 aa 20 2e 62 61  6e 6b 32 65 6e 74 72 79  |.... .bank2entry|
00000540  20 4a 53 52 62 61 6e 6b  32 3a 4c 44 41 23 28 65  | JSRbank2:LDA#(e|
00000550  6e 74 65 72 20 83 32 35  36 29 3a 53 54 41 26 37  |nter .256):STA&7|
00000560  30 3a 4c 44 41 23 28 65  6e 74 65 72 20 81 32 35  |0:LDA#(enter .25|
00000570  36 29 3a 53 54 41 26 37  31 3a 4c 44 59 23 30 3a  |6):STA&71:LDY#0:|
00000580  4c 44 41 23 26 34 43 3a  53 54 41 28 26 37 30 29  |LDA#&4C:STA(&70)|
00000590  2c 59 3a 49 4e 59 3a 4c  44 41 23 28 42 32 72 6f  |,Y:INY:LDA#(B2ro|
000005a0  75 74 69 6e 65 20 83 32  35 36 29 3a 53 54 41 28  |utine .256):STA(|
000005b0  26 37 30 29 2c 59 3a 49  4e 59 3a 4c 44 41 23 28  |&70),Y:INY:LDA#(|
000005c0  42 32 72 6f 75 74 69 6e  65 20 81 32 35 36 29 3a  |B2routine .256):|
000005d0  53 54 41 28 26 37 30 29  2c 59 0d 00 8c a5 20 2e  |STA(&70),Y.... .|
000005e0  65 76 65 6e 74 65 6e 74  72 79 20 4c 44 41 23 28  |evententry LDA#(|
000005f0  65 6e 74 65 72 65 76 20  83 32 35 36 29 3a 53 54  |enterev .256):ST|
00000600  41 26 37 30 3a 4c 44 41  23 28 65 6e 74 65 72 65  |A&70:LDA#(entere|
00000610  76 20 81 32 35 36 29 3a  53 54 41 26 37 31 3a 4c  |v .256):STA&71:L|
00000620  44 59 23 30 3a 4c 44 41  23 26 34 43 3a 53 54 41  |DY#0:LDA#&4C:STA|
00000630  28 26 37 30 29 2c 59 3a  49 4e 59 3a 4c 44 41 23  |(&70),Y:INY:LDA#|
00000640  28 65 76 72 6f 75 74 69  6e 65 20 83 32 35 36 29  |(evroutine .256)|
00000650  3a 53 54 41 28 26 37 30  29 2c 59 3a 49 4e 59 3a  |:STA(&70),Y:INY:|
00000660  4c 44 41 23 28 65 76 72  6f 75 74 69 6e 65 20 81  |LDA#(evroutine .|
00000670  32 35 36 29 3a 53 54 41  28 26 37 30 29 2c 59 0d  |256):STA(&70),Y.|
00000680  00 96 b4 20 2e 62 61 6e  6b 32 6d 61 69 6e 20 4c  |... .bank2main L|
00000690  44 41 23 28 73 74 61 72  74 20 83 32 35 36 29 3a  |DA#(start .256):|
000006a0  53 54 41 26 37 30 3a 4c  44 41 23 28 73 74 61 72  |STA&70:LDA#(star|
000006b0  74 20 81 32 35 36 29 3a  53 54 41 26 37 31 3a 4c  |t .256):STA&71:L|
000006c0  44 41 23 28 62 61 6e 6b  31 20 83 32 35 36 29 3a  |DA#(bank1 .256):|
000006d0  53 54 41 26 37 34 3a 4c  44 41 23 28 62 61 6e 6b  |STA&74:LDA#(bank|
000006e0  31 20 81 32 35 36 29 3a  53 54 41 26 37 35 3a 4c  |1 .256):STA&75:L|
000006f0  44 41 23 28 42 32 72 6f  75 74 69 6e 65 20 83 32  |DA#(B2routine .2|
00000700  35 36 29 3a 53 54 41 26  37 32 3a 4c 44 41 23 28  |56):STA&72:LDA#(|
00000710  42 32 72 6f 75 74 69 6e  65 20 81 32 35 36 29 3a  |B2routine .256):|
00000720  53 54 41 26 37 33 3a 4a  53 52 6d 6f 76 65 6c 6f  |STA&73:JSRmovelo|
00000730  6f 70 32 0d 00 a0 61 20  2e 41 44 46 53 64 61 74  |op2...a .ADFSdat|
00000740  61 20 4c 44 41 23 30 3a  53 54 41 26 37 30 3a 53  |a LDA#0:STA&70:S|
00000750  54 41 26 37 32 3a 53 54  41 26 37 34 3a 4c 44 41  |TA&72:STA&74:LDA|
00000760  23 39 3a 53 54 41 26 37  31 3a 4c 44 41 23 26 38  |#9:STA&71:LDA#&8|
00000770  39 3a 53 54 41 26 37 33  3a 4c 44 41 23 26 31 44  |9:STA&73:LDA#&1D|
00000780  3a 53 54 41 26 37 35 3a  4a 53 52 6d 6f 76 65 6c  |:STA&75:JSRmovel|
00000790  6f 6f 70 32 0d 00 aa d7  20 2e 62 31 72 65 74 75  |oop2.... .b1retu|
000007a0  72 6e 20 4c 44 41 23 28  62 61 6e 6b 31 20 83 32  |rn LDA#(bank1 .2|
000007b0  35 36 29 3a 53 54 41 26  37 30 3a 4c 44 41 23 28  |56):STA&70:LDA#(|
000007c0  62 61 6e 6b 31 20 81 32  35 36 29 3a 53 54 41 26  |bank1 .256):STA&|
000007d0  37 31 3a 4c 44 41 23 28  42 41 43 4b 2d 28 6f 73  |71:LDA#(BACK-(os|
000007e0  62 79 74 65 2d 62 61 6e  6b 31 2d 31 29 29 20 83  |byte-bank1-1)) .|
000007f0  32 35 36 29 3a 53 54 41  26 37 32 3a 4c 44 41 23  |256):STA&72:LDA#|
00000800  28 42 41 43 4b 2d 28 6f  73 62 79 74 65 2d 62 61  |(BACK-(osbyte-ba|
00000810  6e 6b 31 2d 31 29 29 20  81 32 35 36 29 3a 53 54  |nk1-1)) .256):ST|
00000820  41 26 37 33 3a 4c 44 41  23 28 28 6f 73 62 79 74  |A&73:LDA#((osbyt|
00000830  65 2d 31 29 20 83 32 35  36 29 3a 53 54 41 26 37  |e-1) .256):STA&7|
00000840  34 3a 4c 44 41 23 28 28  6f 73 62 79 74 65 2d 31  |4:LDA#((osbyte-1|
00000850  29 20 81 32 35 36 29 3a  53 54 41 26 37 35 3a 4a  |) .256):STA&75:J|
00000860  53 52 6d 6f 76 65 6c 6f  6f 70 32 0d 00 b4 c2 20  |SRmoveloop2.... |
00000870  2e 62 31 6f 73 62 79 74  65 20 4a 53 52 62 61 6e  |.b1osbyte JSRban|
00000880  6b 31 3a 4c 44 41 23 28  6f 73 62 79 74 65 20 83  |k1:LDA#(osbyte .|
00000890  32 35 36 29 3a 53 54 41  26 37 30 3a 4c 44 41 23  |256):STA&70:LDA#|
000008a0  28 6f 73 62 79 74 65 20  81 32 35 36 29 3a 53 54  |(osbyte .256):ST|
000008b0  41 26 37 31 3a 4c 44 41  23 28 4f 42 72 6f 75 74  |A&71:LDA#(OBrout|
000008c0  69 6e 65 20 83 32 35 36  29 3a 53 54 41 26 37 32  |ine .256):STA&72|
000008d0  3a 4c 44 41 23 28 4f 42  72 6f 75 74 69 6e 65 20  |:LDA#(OBroutine |
000008e0  81 32 35 36 29 3a 53 54  41 26 37 33 3a 4c 44 41  |.256):STA&73:LDA|
000008f0  23 28 6f 73 62 79 74 65  32 20 83 32 35 36 29 3a  |#(osbyte2 .256):|
00000900  53 54 41 26 37 34 3a 4c  44 41 23 28 6f 73 62 79  |STA&74:LDA#(osby|
00000910  74 65 32 20 81 32 35 36  29 3a 53 54 41 26 37 35  |te2 .256):STA&75|
00000920  3a 4a 53 52 6d 6f 76 65  6c 6f 6f 70 32 0d 00 be  |:JSRmoveloop2...|
00000930  b8 20 2e 62 31 6f 73 62  79 74 65 32 20 4c 44 41  |. .b1osbyte2 LDA|
00000940  23 28 6f 73 62 79 74 65  32 20 83 32 35 36 29 3a  |#(osbyte2 .256):|
00000950  53 54 41 26 37 30 3a 4c  44 41 23 28 6f 73 62 79  |STA&70:LDA#(osby|
00000960  74 65 32 20 81 32 35 36  29 3a 53 54 41 26 37 31  |te2 .256):STA&71|
00000970  3a 4c 44 41 23 28 4f 42  72 6f 75 74 32 20 83 32  |:LDA#(OBrout2 .2|
00000980  35 36 29 3a 53 54 41 26  37 32 3a 4c 44 41 23 28  |56):STA&72:LDA#(|
00000990  4f 42 72 6f 75 74 32 20  81 32 35 36 29 3a 53 54  |OBrout2 .256):ST|
000009a0  41 26 37 33 3a 4c 44 41  23 28 6f 73 62 79 74 65  |A&73:LDA#(osbyte|
000009b0  33 20 83 32 35 36 29 3a  53 54 41 26 37 34 3a 4c  |3 .256):STA&74:L|
000009c0  44 41 23 28 6f 73 62 79  74 65 33 20 81 32 35 36  |DA#(osbyte3 .256|
000009d0  29 3a 53 54 41 26 37 35  3a 4a 53 52 6d 6f 76 65  |):STA&75:JSRmove|
000009e0  6c 6f 6f 70 32 0d 00 c8  b2 20 2e 62 31 6f 73 62  |loop2.... .b1osb|
000009f0  79 74 65 33 20 4c 44 41  23 28 6f 73 62 79 74 65  |yte3 LDA#(osbyte|
00000a00  33 20 83 32 35 36 29 3a  53 54 41 26 37 30 3a 4c  |3 .256):STA&70:L|
00000a10  44 41 23 28 6f 73 62 79  74 65 33 20 81 32 35 36  |DA#(osbyte3 .256|
00000a20  29 3a 53 54 41 26 37 31  3a 4c 44 41 23 28 4f 42  |):STA&71:LDA#(OB|
00000a30  72 6f 75 74 33 20 83 32  35 36 29 3a 53 54 41 26  |rout3 .256):STA&|
00000a40  37 32 3a 4c 44 41 23 28  4f 42 72 6f 75 74 33 20  |72:LDA#(OBrout3 |
00000a50  81 32 35 36 29 3a 53 54  41 26 37 33 3a 4c 44 41  |.256):STA&73:LDA|
00000a60  23 28 66 69 6c 65 20 83  32 35 36 29 3a 53 54 41  |#(file .256):STA|
00000a70  26 37 34 3a 4c 44 41 23  28 66 69 6c 65 20 81 32  |&74:LDA#(file .2|
00000a80  35 36 29 3a 53 54 41 26  37 35 3a 4a 53 52 6d 6f  |56):STA&75:JSRmo|
00000a90  76 65 6c 6f 6f 70 32 0d  00 d2 b5 20 2e 62 31 6f  |veloop2.... .b1o|
00000aa0  73 66 69 6c 65 20 4c 44  41 23 28 66 69 6c 65 20  |sfile LDA#(file |
00000ab0  83 32 35 36 29 3a 53 54  41 26 37 30 3a 4c 44 41  |.256):STA&70:LDA|
00000ac0  23 28 66 69 6c 65 20 81  32 35 36 29 3a 53 54 41  |#(file .256):STA|
00000ad0  26 37 31 3a 4c 44 41 23  28 4f 46 49 4c 45 20 83  |&71:LDA#(OFILE .|
00000ae0  32 35 36 29 3a 53 54 41  26 37 32 3a 4c 44 41 23  |256):STA&72:LDA#|
00000af0  28 4f 46 49 4c 45 20 81  32 35 36 29 3a 53 54 41  |(OFILE .256):STA|
00000b00  26 37 33 3a 4c 44 41 23  28 28 66 69 6c 65 72 65  |&73:LDA#((filere|
00000b10  74 2d 31 29 20 83 32 35  36 29 3a 53 54 41 26 37  |t-1) .256):STA&7|
00000b20  34 3a 4c 44 41 23 28 28  66 69 6c 65 72 65 74 2d  |4:LDA#((fileret-|
00000b30  31 29 20 81 32 35 36 29  3a 53 54 41 26 37 35 3a  |1) .256):STA&75:|
00000b40  4a 53 52 6d 6f 76 65 6c  6f 6f 70 32 0d 00 dc b0  |JSRmoveloop2....|
00000b50  20 2e 62 31 66 69 6c 65  72 65 74 20 4c 44 41 23  | .b1fileret LDA#|
00000b60  28 66 69 6c 65 72 65 74  20 83 32 35 36 29 3a 53  |(fileret .256):S|
00000b70  54 41 26 37 30 3a 4c 44  41 23 28 66 69 6c 65 72  |TA&70:LDA#(filer|
00000b80  65 74 20 81 32 35 36 29  3a 53 54 41 26 37 31 3a  |et .256):STA&71:|
00000b90  4c 44 41 23 28 42 41 43  4b 20 83 32 35 36 29 3a  |LDA#(BACK .256):|
00000ba0  53 54 41 26 37 32 3a 4c  44 41 23 28 42 41 43 4b  |STA&72:LDA#(BACK|
00000bb0  20 81 32 35 36 29 3a 53  54 41 26 37 33 3a 4c 44  | .256):STA&73:LD|
00000bc0  41 23 28 65 76 72 6f 75  74 20 83 32 35 36 29 3a  |A#(evrout .256):|
00000bd0  53 54 41 26 37 34 3a 4c  44 41 23 28 65 76 72 6f  |STA&74:LDA#(evro|
00000be0  75 74 20 81 32 35 36 29  3a 53 54 41 26 37 35 3a  |ut .256):STA&75:|
00000bf0  4a 53 52 6d 6f 76 65 6c  6f 6f 70 32 0d 00 e6 ac  |JSRmoveloop2....|
00000c00  20 2e 62 31 65 76 65 6e  74 20 4c 44 41 23 28 65  | .b1event LDA#(e|
00000c10  76 72 6f 75 74 20 83 32  35 36 29 3a 53 54 41 26  |vrout .256):STA&|
00000c20  37 30 3a 4c 44 41 23 28  65 76 72 6f 75 74 20 81  |70:LDA#(evrout .|
00000c30  32 35 36 29 3a 53 54 41  26 37 31 3a 4c 44 41 23  |256):STA&71:LDA#|
00000c40  28 45 56 45 4e 54 20 83  32 35 36 29 3a 53 54 41  |(EVENT .256):STA|
00000c50  26 37 32 3a 4c 44 41 23  28 45 56 45 4e 54 20 81  |&72:LDA#(EVENT .|
00000c60  32 35 36 29 3a 53 54 41  26 37 33 3a 4c 44 41 23  |256):STA&73:LDA#|
00000c70  28 65 76 65 6e 64 20 83  32 35 36 29 3a 53 54 41  |(evend .256):STA|
00000c80  26 37 34 3a 4c 44 41 23  28 65 76 65 6e 64 20 81  |&74:LDA#(evend .|
00000c90  32 35 36 29 3a 53 54 41  26 37 35 3a 4a 53 52 6d  |256):STA&75:JSRm|
00000ca0  6f 76 65 6c 6f 6f 70 32  0d 00 f0 6a 20 2e 70 61  |oveloop2...j .pa|
00000cb0  67 65 20 4c 44 41 23 30  3a 53 54 41 26 37 30 3a  |ge LDA#0:STA&70:|
00000cc0  53 54 41 26 37 32 3a 4c  44 41 26 31 38 3a 53 54  |STA&72:LDA&18:ST|
00000cd0  41 26 37 31 3a 4c 44 41  23 26 45 3a 53 54 41 26  |A&71:LDA#&E:STA&|
00000ce0  37 33 3a 53 54 41 26 31  38 3a 4c 44 41 26 31 32  |73:STA&18:LDA&12|
00000cf0  3a 53 54 41 26 37 34 3a  4c 44 41 26 31 33 3a 53  |:STA&74:LDA&13:S|
00000d00  54 41 26 37 35 3a 4a 53  52 6d 6f 76 65 6c 6f 6f  |TA&75:JSRmoveloo|
00000d10  70 32 0d 00 fa 67 20 2e  6c 61 6e 67 52 4f 4d 20  |p2...g .langROM |
00000d20  4c 44 41 62 61 6e 6b 31  2b 31 3a 53 54 41 26 32  |LDAbank1+1:STA&2|
00000d30  38 43 3a 43 4c 43 3a 41  44 43 23 26 41 30 3a 53  |8C:CLC:ADC#&A0:S|
00000d40  54 41 26 37 30 3a 4c 44  41 23 32 3a 53 54 41 26  |TA&70:LDA#2:STA&|
00000d50  37 31 3a 4c 44 59 23 30  3a 4c 44 41 23 26 36 30  |71:LDY#0:LDA#&60|
00000d60  3a 53 54 41 28 26 37 30  29 2c 59 3a 4c 44 41 23  |:STA(&70),Y:LDA#|
00000d70  30 3a 53 54 41 26 32 41  42 0d 01 04 b3 20 2e 76  |0:STA&2AB.... .v|
00000d80  65 63 74 20 4c 44 41 26  32 30 41 3a 53 54 41 4f  |ect LDA&20A:STAO|
00000d90  42 72 6f 75 74 32 2b 38  3a 4c 44 41 26 32 30 42  |Brout2+8:LDA&20B|
00000da0  3a 53 54 41 4f 42 72 6f  75 74 32 2b 39 3a 4a 53  |:STAOBrout2+9:JS|
00000db0  52 62 61 6e 6b 32 3a 4c  44 41 26 32 30 41 3a 53  |Rbank2:LDA&20A:S|
00000dc0  54 41 6f 73 62 79 74 65  4c 4f 3a 4c 44 41 26 32  |TAosbyteLO:LDA&2|
00000dd0  30 42 3a 53 54 41 6f 73  62 79 74 65 48 49 3a 4c  |0B:STAosbyteHI:L|
00000de0  44 41 26 32 31 32 3a 53  54 41 6f 73 66 69 6c 65  |DA&212:STAosfile|
00000df0  4c 4f 3a 4c 44 41 26 32  31 33 3a 53 54 41 6f 73  |LO:LDA&213:STAos|
00000e00  66 69 6c 65 48 49 3a 4c  44 41 26 32 31 45 3a 53  |fileHI:LDA&21E:S|
00000e10  54 41 6f 73 66 73 63 4c  4f 3a 4c 44 41 26 32 31  |TAosfscLO:LDA&21|
00000e20  46 3a 53 54 41 6f 73 66  73 63 48 49 0d 01 0e b2  |F:STAosfscHI....|
00000e30  20 4c 44 41 26 32 30 34  3a 53 54 41 69 6e 74 65  | LDA&204:STAinte|
00000e40  72 4c 4f 3a 4c 44 41 26  32 30 35 3a 53 54 41 69  |rLO:LDA&205:STAi|
00000e50  6e 74 65 72 48 49 3a 4c  44 41 26 32 32 30 3a 53  |nterHI:LDA&220:S|
00000e60  54 41 65 76 65 6e 74 4c  4f 3a 4c 44 41 26 32 32  |TAeventLO:LDA&22|
00000e70  31 3a 53 54 41 65 76 65  6e 74 48 49 3a 4c 44 41  |1:STAeventHI:LDA|
00000e80  23 31 34 3a 4c 44 58 23  34 3a 4c 44 59 23 30 3a  |#14:LDX#4:LDY#0:|
00000e90  4a 53 52 4f 53 42 59 54  45 3a 4c 44 58 23 32 3a  |JSROSBYTE:LDX#2:|
00000ea0  4c 44 59 23 30 3a 4a 53  52 4f 53 42 59 54 45 3a  |LDY#0:JSROSBYTE:|
00000eb0  53 45 49 3a 4a 53 52 76  65 63 74 6f 72 73 3a 43  |SEI:JSRvectors:C|
00000ec0  4c 49 3a 4a 53 52 62 61  6e 6b 31 3a 4c 44 41 23  |LI:JSRbank1:LDA#|
00000ed0  30 3a 53 54 41 26 46 43  44 44 3a 52 54 53 0d 01  |0:STA&FCDD:RTS..|
00000ee0  18 8d 20 2e 6d 6f 76 65  6c 6f 6f 70 32 20 4c 44  |.. .moveloop2 LD|
00000ef0  59 23 30 3a 2e 6c 6f 6f  70 20 4c 44 41 28 26 37  |Y#0:.loop LDA(&7|
00000f00  30 29 2c 59 3a 53 54 41  28 26 37 32 29 2c 59 3a  |0),Y:STA(&72),Y:|
00000f10  49 4e 43 26 37 30 3a 42  4e 45 61 3a 49 4e 43 26  |INC&70:BNEa:INC&|
00000f20  37 31 3a 2e 61 20 49 4e  43 26 37 32 3a 42 4e 45  |71:.a INC&72:BNE|
00000f30  62 3a 49 4e 43 26 37 33  3a 2e 62 20 4c 44 41 26  |b:INC&73:.b LDA&|
00000f40  37 30 3a 43 4d 50 26 37  34 3a 42 4e 45 6c 6f 6f  |70:CMP&74:BNEloo|
00000f50  70 3a 4c 44 41 26 37 31  3a 43 4d 50 26 37 35 3a  |p:LDA&71:CMP&75:|
00000f60  42 4e 45 6c 6f 6f 70 3a  52 54 53 0d 01 22 2d 20  |BNEloop:RTS.."- |
00000f70  5d 3a 4f 25 3d 50 25 3a  73 74 61 72 74 3d 4f 25  |]:O%=P%:start=O%|
00000f80  3a 50 25 3d 42 32 72 6f  75 74 69 6e 65 3a 5b 4f  |:P%=B2routine:[O|
00000f90  50 54 70 61 73 73 2b 34  0d 01 2c ae 20 4c 44 41  |PTpass+4..,. LDA|
00000fa0  23 30 3a 41 44 43 23 30  3a 50 48 41 3a 53 45 49  |#0:ADC#0:PHA:SEI|
00000fb0  3a 4a 53 52 76 65 63 6e  6f 72 6d 3a 43 4c 49 3a  |:JSRvecnorm:CLI:|
00000fc0  4a 4d 50 63 6f 6e 74 3a  2e 76 65 63 6e 6f 72 6d  |JMPcont:.vecnorm|
00000fd0  20 4c 44 41 6f 73 66 73  63 4c 4f 3a 53 54 41 26  | LDAosfscLO:STA&|
00000fe0  32 31 45 3a 4c 44 41 6f  73 66 73 63 48 49 3a 53  |21E:LDAosfscHI:S|
00000ff0  54 41 26 32 31 46 3a 4c  44 41 6f 73 66 69 6c 65  |TA&21F:LDAosfile|
00001000  4c 4f 3a 53 54 41 26 32  31 32 3a 4c 44 41 6f 73  |LO:STA&212:LDAos|
00001010  66 69 6c 65 48 49 3a 53  54 41 26 32 31 33 3a 4c  |fileHI:STA&213:L|
00001020  44 41 6f 73 62 79 74 65  4c 4f 3a 53 54 41 26 32  |DAosbyteLO:STA&2|
00001030  30 41 3a 4c 44 41 6f 73  62 79 74 65 48 49 3a 53  |0A:LDAosbyteHI:S|
00001040  54 41 26 32 30 42 0d 01  36 7c 20 4c 44 41 65 76  |TA&20B..6| LDAev|
00001050  65 6e 74 4c 4f 3a 53 54  41 26 32 32 30 3a 4c 44  |entLO:STA&220:LD|
00001060  41 65 76 65 6e 74 48 49  3a 53 54 41 26 32 32 31  |AeventHI:STA&221|
00001070  3a 4c 44 41 26 32 30 34  3a 53 54 41 69 6e 74 65  |:LDA&204:STAinte|
00001080  72 6e 65 77 4c 4f 3a 4c  44 41 26 32 30 35 3a 53  |rnewLO:LDA&205:S|
00001090  54 41 69 6e 74 65 72 6e  65 77 48 49 3a 4c 44 41  |TAinternewHI:LDA|
000010a0  69 6e 74 65 72 4c 4f 3a  53 54 41 26 32 30 34 3a  |interLO:STA&204:|
000010b0  4c 44 41 69 6e 74 65 72  48 49 3a 53 54 41 26 32  |LDAinterHI:STA&2|
000010c0  30 35 0d 01 40 68 20 53  54 58 65 6e 64 61 64 64  |05..@h STXendadd|
000010d0  3a 4c 44 58 23 30 3a 2e  73 61 76 65 76 61 72 73  |:LDX#0:.savevars|
000010e0  20 4c 44 41 26 37 30 2c  58 3a 53 54 41 74 65 6d  | LDA&70,X:STAtem|
000010f0  70 73 74 6f 72 65 2c 58  3a 49 4e 58 3a 43 50 58  |pstore,X:INX:CPX|
00001100  23 36 3a 42 4e 45 73 61  76 65 76 61 72 73 3a 53  |#6:BNEsavevars:S|
00001110  54 59 26 37 35 3a 4c 44  58 65 6e 64 61 64 64 3a  |TY&75:LDXendadd:|
00001120  53 54 58 26 37 34 3a 52  54 53 0d 01 4a 46 20 2e  |STX&74:RTS..JF .|
00001130  63 6f 6e 74 20 4c 44 41  6d 73 62 6c 6f 63 6b 3a  |cont LDAmsblock:|
00001140  54 53 58 3a 49 4e 58 3a  53 54 58 6d 73 62 6c 6f  |TSX:INX:STXmsblo|
00001150  63 6b 2b 31 35 3a 50 4c  41 3a 42 45 51 66 69 6c  |ck+15:PLA:BEQfil|
00001160  65 72 6f 75 74 3a 4a 4d  50 66 73 63 72 6f 75 74  |erout:JMPfscrout|
00001170  0d 01 54 56 20 2e 66 69  6c 65 72 6f 75 74 20 4c  |..TV .filerout L|
00001180  44 59 23 30 3a 4c 44 41  28 26 37 34 29 2c 59 3a  |DY#0:LDA(&74),Y:|
00001190  54 41 58 3a 49 4e 59 3a  4c 44 41 28 26 37 34 29  |TAX:INY:LDA(&74)|
000011a0  2c 59 3a 53 54 58 26 37  30 3a 53 54 41 26 37 31  |,Y:STX&70:STA&71|
000011b0  3a 44 45 59 3a 4a 53 52  66 69 6c 65 6e 61 6d 65  |:DEY:JSRfilename|
000011c0  3a 4c 44 58 23 30 0d 01  5e a9 20 2e 6c 6f 61 64  |:LDX#0..^. .load|
000011d0  20 4c 44 41 23 30 3a 53  54 41 26 37 30 3a 53 54  | LDA#0:STA&70:ST|
000011e0  41 26 37 32 3a 4c 44 41  23 39 3a 53 54 41 26 37  |A&72:LDA#9:STA&7|
000011f0  31 3a 4c 44 41 23 26 41  43 3a 53 54 41 26 37 33  |1:LDA#&AC:STA&73|
00001200  3a 4c 44 41 23 26 31 44  3a 53 54 41 65 6e 64 61  |:LDA#&1D:STAenda|
00001210  64 64 3a 4c 44 59 23 30  3a 4a 53 52 6d 6f 76 65  |dd:LDY#0:JSRmove|
00001220  6c 6f 6f 70 3a 4c 44 41  23 26 38 39 3a 53 54 41  |loop:LDA#&89:STA|
00001230  26 37 31 3a 4c 44 41 23  39 3a 53 54 41 26 37 33  |&71:LDA#9:STA&73|
00001240  3a 4c 44 41 23 26 39 44  3a 53 54 41 65 6e 64 61  |:LDA#&9D:STAenda|
00001250  64 64 3a 4c 44 59 23 30  3a 4a 53 52 6d 6f 76 65  |dd:LDY#0:JSRmove|
00001260  6c 6f 6f 70 3a 4a 4d 50  6c 6f 61 64 61 64 64 0d  |loop:JMPloadadd.|
00001270  01 68 63 20 2e 6d 6f 76  65 6c 6f 6f 70 20 4c 44  |.hc .moveloop LD|
00001280  41 28 26 37 30 29 2c 59  3a 53 54 41 28 26 37 32  |A(&70),Y:STA(&72|
00001290  29 2c 59 3a 49 4e 59 3a  42 4e 45 6d 6f 76 65 6c  |),Y:INY:BNEmovel|
000012a0  6f 6f 70 3a 49 4e 43 26  37 31 3a 49 4e 43 26 37  |oop:INC&71:INC&7|
000012b0  33 3a 4c 44 41 26 37 31  3a 43 4d 50 65 6e 64 61  |3:LDA&71:CMPenda|
000012c0  64 64 3a 42 4e 45 6d 6f  76 65 6c 6f 6f 70 3a 52  |dd:BNEmoveloop:R|
000012d0  54 53 0d 01 72 e3 20 2e  6c 6f 61 64 61 64 64 20  |TS..r. .loadadd |
000012e0  4c 44 41 23 30 3a 53 54  41 26 41 30 30 3a 4c 44  |LDA#0:STA&A00:LD|
000012f0  41 23 26 42 3a 53 54 41  26 41 30 31 3a 53 54 58  |A#&B:STA&A01:STX|
00001300  65 6e 64 61 64 64 3a 43  50 58 23 31 3a 42 45 51  |endadd:CPX#1:BEQ|
00001310  66 69 6e 64 61 64 64 3a  4c 44 41 23 30 3a 53 54  |findadd:LDA#0:ST|
00001320  41 26 37 32 3a 4c 44 41  23 26 41 3a 53 54 41 26  |A&72:LDA#&A:STA&|
00001330  37 33 3a 4c 44 41 26 37  34 3a 53 54 41 26 37 30  |73:LDA&74:STA&70|
00001340  3a 4c 44 41 23 33 3a 53  54 41 65 6e 64 61 64 64  |:LDA#3:STAendadd|
00001350  3a 4c 44 41 26 37 35 3a  4c 44 59 23 30 3a 2e 72  |:LDA&75:LDY#0:.r|
00001360  61 6d 20 43 4d 50 23 26  43 30 3a 42 4e 45 6e 6f  |am CMP#&C0:BNEno|
00001370  31 3a 4c 44 41 23 26 31  44 3a 4a 4d 50 73 74 3a  |1:LDA#&1D:JMPst:|
00001380  2e 6e 6f 31 20 43 4d 50  23 26 31 44 3a 42 43 53  |.no1 CMP#&1D:BCS|
00001390  73 74 3a 43 4d 50 23 39  3a 42 43 43 73 74 3a 43  |st:CMP#9:BCCst:C|
000013a0  4c 43 3a 41 44 43 23 26  41 33 3a 2e 73 74 20 53  |LC:ADC#&A3:.st S|
000013b0  54 41 26 37 31 0d 01 7c  5e 20 2e 74 72 20 4c 44  |TA&71..|^ .tr LD|
000013c0  41 28 26 37 30 29 2c 59  3a 53 54 41 28 26 37 32  |A(&70),Y:STA(&72|
000013d0  29 2c 59 3a 49 4e 43 26  37 32 3a 4c 44 41 26 37  |),Y:INC&72:LDA&7|
000013e0  32 3a 43 4d 50 23 26 31  32 3a 42 45 51 65 78 65  |2:CMP#&12:BEQexe|
000013f0  63 3a 49 4e 43 26 37 30  3a 42 4e 45 74 72 3a 49  |c:INC&70:BNEtr:I|
00001400  4e 43 26 37 31 3a 4c 44  41 26 37 31 3a 4a 4d 50  |NC&71:LDA&71:JMP|
00001410  72 61 6d 0d 01 86 8a 20  2e 65 78 65 63 20 4c 44  |ram.... .exec LD|
00001420  41 23 30 3a 53 54 41 26  41 30 30 3a 4c 44 41 23  |A#0:STA&A00:LDA#|
00001430  26 42 3a 53 54 41 26 41  30 31 3a 50 4c 41 3a 50  |&B:STA&A01:PLA:P|
00001440  48 41 3a 42 4e 45 6c 6f  61 64 65 72 3a 4a 4d 50  |HA:BNEloader:JMP|
00001450  73 61 76 65 3a 2e 6c 6f  61 64 65 72 20 4c 44 41  |save:.loader LDA|
00001460  26 41 30 36 3a 42 4e 45  66 69 6e 64 61 64 64 3a  |&A06:BNEfindadd:|
00001470  4c 44 41 26 41 30 32 3a  53 54 41 26 37 30 3a 4c  |LDA&A02:STA&70:L|
00001480  44 41 26 41 30 33 3a 53  54 41 26 37 31 3a 4c 44  |DA&A03:STA&71:LD|
00001490  41 23 32 3a 53 54 41 65  6e 64 61 64 64 0d 01 90  |A#2:STAendadd...|
000014a0  d3 20 2e 66 69 6e 64 61  64 64 20 4c 44 41 23 35  |. .findadd LDA#5|
000014b0  3a 4c 44 58 23 30 3a 4c  44 59 23 26 41 3a 4a 53  |:LDX#0:LDY#&A:JS|
000014c0  52 4f 53 46 49 4c 45 3a  43 4d 50 23 31 3a 42 45  |ROSFILE:CMP#1:BE|
000014d0  51 72 75 6e 3a 4a 4d 50  65 72 72 6f 72 31 3a 2e  |Qrun:JMPerror1:.|
000014e0  72 75 6e 20 4c 44 58 65  6e 64 61 64 64 3a 43 50  |run LDXendadd:CP|
000014f0  58 23 31 3a 42 4e 45 6c  61 64 64 72 3a 50 4c 41  |X#1:BNEladdr:PLA|
00001500  3a 53 54 41 26 37 32 3a  50 4c 41 3a 53 54 41 26  |:STA&72:PLA:STA&|
00001510  37 33 3a 4c 44 58 26 41  30 36 3a 4c 44 59 26 41  |73:LDX&A06:LDY&A|
00001520  30 37 3a 44 45 58 3a 43  50 58 23 26 46 46 3a 42  |07:DEX:CPX#&FF:B|
00001530  4e 45 73 74 61 63 6b 3a  44 45 59 3a 2e 73 74 61  |NEstack:DEY:.sta|
00001540  63 6b 20 54 59 41 3a 50  48 41 3a 54 58 41 3a 50  |ck TYA:PHA:TXA:P|
00001550  48 41 3a 4c 44 41 26 37  33 3a 50 48 41 3a 4c 44  |HA:LDA&73:PHA:LD|
00001560  41 26 37 32 3a 50 48 41  3a 4a 4d 50 61 72 65 61  |A&72:PHA:JMParea|
00001570  0d 01 9a ac 20 2e 6c 61  64 64 72 20 43 50 58 23  |.... .laddr CPX#|
00001580  32 3a 42 4e 45 61 72 65  61 3a 4c 44 41 26 37 30  |2:BNEarea:LDA&70|
00001590  3a 53 54 41 26 41 30 32  3a 4c 44 41 26 37 31 3a  |:STA&A02:LDA&71:|
000015a0  53 54 41 26 41 30 33 3a  4c 44 41 23 30 3a 53 54  |STA&A03:LDA#0:ST|
000015b0  41 26 41 30 36 3a 2e 61  72 65 61 20 4c 44 41 26  |A&A06:.area LDA&|
000015c0  41 30 33 3a 43 4d 50 23  26 31 44 3a 42 43 53 6c  |A03:CMP#&1D:BCSl|
000015d0  6f 61 64 32 3a 43 4d 50  23 39 3a 42 43 53 62 79  |oad2:CMP#9:BCSby|
000015e0  74 65 6c 6f 61 64 3a 43  4c 43 3a 4c 44 41 26 41  |teload:CLC:LDA&A|
000015f0  30 32 3a 41 44 43 26 41  30 41 3a 4c 44 41 26 41  |02:ADC&A0A:LDA&A|
00001600  30 33 3a 41 44 43 26 41  30 42 3a 43 4d 50 23 39  |03:ADC&A0B:CMP#9|
00001610  3a 42 43 53 62 79 74 65  6c 6f 61 64 0d 01 a4 31  |:BCSbyteload...1|
00001620  20 2e 6c 6f 61 64 32 20  4c 44 41 23 26 46 46 3a  | .load2 LDA#&FF:|
00001630  4c 44 58 23 30 3a 4c 44  59 23 26 41 3a 4a 53 52  |LDX#0:LDY#&A:JSR|
00001640  4f 53 46 49 4c 45 3a 4a  4d 50 65 6e 64 0d 01 ae  |OSFILE:JMPend...|
00001650  ed 20 2e 62 79 74 65 6c  6f 61 64 20 4c 44 41 23  |. .byteload LDA#|
00001660  26 34 30 3a 4c 44 58 23  30 3a 4c 44 59 23 26 42  |&40:LDX#0:LDY#&B|
00001670  3a 4a 53 52 4f 53 46 49  4e 44 3a 54 41 59 3a 43  |:JSROSFIND:TAY:C|
00001680  4d 50 23 30 3a 42 4e 45  6f 6b 3a 4a 4d 50 65 72  |MP#0:BNEok:JMPer|
00001690  72 6f 72 31 3a 2e 6f 6b  20 4c 44 41 26 41 30 32  |ror1:.ok LDA&A02|
000016a0  3a 53 54 41 26 37 30 3a  4c 44 41 26 41 30 33 3a  |:STA&70:LDA&A03:|
000016b0  43 4d 50 23 39 3a 42 43  43 6e 6f 72 6d 3a 43 4c  |CMP#9:BCCnorm:CL|
000016c0  43 3a 41 44 43 23 26 41  33 3a 2e 6e 6f 72 6d 20  |C:ADC#&A3:.norm |
000016d0  53 54 41 26 37 31 3a 2e  62 67 65 74 20 43 4c 43  |STA&71:.bget CLC|
000016e0  3a 4a 53 52 4f 53 42 47  45 54 3a 42 43 53 65 6e  |:JSROSBGET:BCSen|
000016f0  64 6c 6f 61 64 3a 53 54  41 28 26 37 30 2c 58 29  |dload:STA(&70,X)|
00001700  3a 49 4e 43 26 37 30 3a  42 4e 45 62 67 65 74 3a  |:INC&70:BNEbget:|
00001710  49 4e 43 26 37 31 3a 4c  44 41 26 37 31 3a 43 4d  |INC&71:LDA&71:CM|
00001720  50 23 26 43 30 3a 42 45  51 73 75 62 3a 43 4d 50  |P#&C0:BEQsub:CMP|
00001730  23 39 3a 42 4e 45 62 67  65 74 0d 01 b8 6f 20 4c  |#9:BNEbget...o L|
00001740  44 41 23 26 41 43 3a 53  54 41 26 37 31 3a 42 4e  |DA#&AC:STA&71:BN|
00001750  45 62 67 65 74 3a 2e 73  75 62 20 4c 44 41 23 26  |Ebget:.sub LDA#&|
00001760  31 44 3a 53 54 41 26 37  31 3a 42 4e 45 62 67 65  |1D:STA&71:BNEbge|
00001770  74 3a 2e 65 6e 64 6c 6f  61 64 20 4c 44 41 23 30  |t:.endload LDA#0|
00001780  3a 4a 53 52 4f 53 46 49  4e 44 3a 4c 44 41 6d 73  |:JSROSFIND:LDAms|
00001790  62 6c 6f 63 6b 3a 42 4e  45 72 65 61 64 73 74 61  |block:BNEreadsta|
000017a0  63 6b 3a 4a 4d 50 65 6e  64 0d 01 c2 db 20 2e 72  |ck:JMPend.... .r|
000017b0  65 61 64 73 74 61 63 6b  20 4c 44 41 23 26 34 30  |eadstack LDA#&40|
000017c0  3a 4c 44 58 23 30 3a 4c  44 59 23 26 42 3a 4a 53  |:LDX#0:LDY#&B:JS|
000017d0  52 4f 53 46 49 4e 44 3a  54 41 59 3a 4c 44 58 23  |ROSFIND:TAY:LDX#|
000017e0  30 3a 2e 70 61 67 65 30  20 4a 53 52 4f 53 42 47  |0:.page0 JSROSBG|
000017f0  45 54 3a 49 4e 58 3a 42  4e 45 70 61 67 65 30 3a  |ET:INX:BNEpage0:|
00001800  4c 44 58 6d 73 62 6c 6f  63 6b 2b 31 35 3a 54 58  |LDXmsblock+15:TX|
00001810  53 3a 4c 44 58 23 30 3a  2e 70 61 67 65 31 20 4a  |S:LDX#0:.page1 J|
00001820  53 52 4f 53 42 47 45 54  3a 53 54 41 26 31 30 30  |SROSBGET:STA&100|
00001830  2c 58 3a 49 4e 58 3a 42  4e 45 70 61 67 65 31 3a  |,X:INX:BNEpage1:|
00001840  4c 44 41 23 30 3a 4a 53  52 4f 53 46 49 4e 44 3a  |LDA#0:JSROSFIND:|
00001850  4c 44 41 26 33 35 31 3a  4c 53 52 20 41 3a 53 54  |LDA&351:LSR A:ST|
00001860  41 26 46 45 30 33 3a 4c  44 41 26 33 35 30 3a 52  |A&FE03:LDA&350:R|
00001870  4f 52 20 41 3a 53 54 41  26 46 45 30 32 3a 4a 4d  |OR A:STA&FE02:JM|
00001880  50 65 6e 64 0d 01 cc 4f  20 2e 73 61 76 65 20 4c  |Pend...O .save L|
00001890  44 41 26 41 30 42 3a 43  4d 50 23 26 31 44 3a 42  |DA&A0B:CMP#&1D:B|
000018a0  43 53 73 61 76 65 32 3a  43 4d 50 23 39 3a 42 43  |CSsave2:CMP#9:BC|
000018b0  53 62 79 74 65 73 61 76  65 3a 4c 44 41 26 41 30  |Sbytesave:LDA&A0|
000018c0  46 3a 43 4d 50 23 39 3a  42 43 53 62 79 74 65 73  |F:CMP#9:BCSbytes|
000018d0  61 76 65 0d 01 d6 2d 20  2e 73 61 76 65 32 20 4c  |ave...- .save2 L|
000018e0  44 41 23 30 3a 54 41 58  3a 4c 44 59 23 26 41 3a  |DA#0:TAX:LDY#&A:|
000018f0  4a 53 52 4f 53 46 49 4c  45 3a 4a 4d 50 65 6e 64  |JSROSFILE:JMPend|
00001900  0d 01 e0 c5 20 2e 62 79  74 65 73 61 76 65 20 4c  |.... .bytesave L|
00001910  44 41 26 41 30 46 3a 43  4d 50 23 26 31 44 3a 42  |DA&A0F:CMP#&1D:B|
00001920  43 53 6f 70 65 6e 6f 75  74 3a 43 4c 43 3a 41 44  |CSopenout:CLC:AD|
00001930  43 23 26 41 33 3a 53 54  41 26 41 30 46 3a 2e 6f  |C#&A3:STA&A0F:.o|
00001940  70 65 6e 6f 75 74 20 4c  44 41 23 26 38 30 3a 4c  |penout LDA#&80:L|
00001950  44 58 23 30 3a 4c 44 59  23 26 42 3a 4a 53 52 4f  |DX#0:LDY#&B:JSRO|
00001960  53 46 49 4e 44 3a 54 41  59 3a 43 4d 50 23 30 3a  |SFIND:TAY:CMP#0:|
00001970  42 4e 45 6f 6b 53 3a 4a  4d 50 65 72 72 6f 72 31  |BNEokS:JMPerror1|
00001980  3a 2e 6f 6b 53 20 4c 44  41 26 41 30 41 3a 53 54  |:.okS LDA&A0A:ST|
00001990  41 26 37 30 3a 4c 44 41  26 41 30 42 3a 43 4d 50  |A&70:LDA&A0B:CMP|
000019a0  23 39 3a 42 43 43 6e 6f  72 6d 53 3a 43 4c 43 3a  |#9:BCCnormS:CLC:|
000019b0  41 44 43 23 26 41 33 3a  2e 6e 6f 72 6d 53 20 53  |ADC#&A3:.normS S|
000019c0  54 41 26 37 31 0d 01 ea  da 20 2e 62 70 75 74 20  |TA&71.... .bput |
000019d0  4c 44 41 26 37 30 3a 43  4d 50 26 41 30 45 3a 42  |LDA&70:CMP&A0E:B|
000019e0  4e 45 73 61 3a 4c 44 41  26 37 31 3a 43 4d 50 26  |NEsa:LDA&71:CMP&|
000019f0  41 30 46 3a 42 45 51 65  6e 64 73 61 76 65 3a 2e  |A0F:BEQendsave:.|
00001a00  73 61 20 4c 44 41 28 26  37 30 2c 58 29 3a 4a 53  |sa LDA(&70,X):JS|
00001a10  52 4f 53 42 50 55 54 3a  49 4e 43 26 37 30 3a 42  |ROSBPUT:INC&70:B|
00001a20  4e 45 62 70 75 74 3a 49  4e 43 26 37 31 3a 4c 44  |NEbput:INC&71:LD|
00001a30  41 26 37 31 3a 43 4d 50  23 26 43 30 3a 42 45 51  |A&71:CMP#&C0:BEQ|
00001a40  73 75 62 53 3a 43 4d 50  23 39 3a 42 4e 45 62 70  |subS:CMP#9:BNEbp|
00001a50  75 74 3a 4c 44 41 23 26  41 43 3a 53 54 41 26 37  |ut:LDA#&AC:STA&7|
00001a60  31 3a 42 4e 45 62 70 75  74 3a 2e 73 75 62 53 20  |1:BNEbput:.subS |
00001a70  4c 44 41 23 26 31 44 3a  53 54 41 26 37 31 3a 42  |LDA#&1D:STA&71:B|
00001a80  4e 45 62 70 75 74 3a 2e  65 6e 64 73 61 76 65 20  |NEbput:.endsave |
00001a90  4c 44 41 23 30 3a 4a 53  52 4f 53 46 49 4e 44 0d  |LDA#0:JSROSFIND.|
00001aa0  01 f4 4c 20 4c 44 41 23  31 3a 4c 44 58 23 30 3a  |..L LDA#1:LDX#0:|
00001ab0  4c 44 59 23 26 41 3a 4a  53 52 4f 53 46 49 4c 45  |LDY#&A:JSROSFILE|
00001ac0  3a 4c 44 41 23 33 3a 53  54 41 26 41 30 45 3a 4c  |:LDA#3:STA&A0E:L|
00001ad0  44 41 23 34 3a 4c 44 58  23 30 3a 4c 44 59 23 26  |DA#4:LDX#0:LDY#&|
00001ae0  41 3a 4a 53 52 4f 53 46  49 4c 45 0d 01 fe 97 20  |A:JSROSFILE.... |
00001af0  2e 65 6e 64 20 4c 44 41  23 30 3a 53 54 41 26 37  |.end LDA#0:STA&7|
00001b00  30 3a 53 54 41 26 37 32  3a 4c 44 41 23 39 3a 53  |0:STA&72:LDA#9:S|
00001b10  54 41 26 37 31 3a 4c 44  41 23 26 38 39 3a 53 54  |TA&71:LDA#&89:ST|
00001b20  41 26 37 33 3a 4c 44 41  23 26 31 44 3a 53 54 41  |A&73:LDA#&1D:STA|
00001b30  65 6e 64 61 64 64 3a 4c  44 59 23 30 3a 4a 53 52  |endadd:LDY#0:JSR|
00001b40  6d 6f 76 65 6c 6f 6f 70  3a 4c 44 41 23 26 41 43  |moveloop:LDA#&AC|
00001b50  3a 53 54 41 26 37 31 3a  4c 44 41 23 39 3a 53 54  |:STA&71:LDA#9:ST|
00001b60  41 26 37 33 3a 4c 44 41  23 26 43 30 3a 53 54 41  |A&73:LDA#&C0:STA|
00001b70  65 6e 64 61 64 64 3a 4a  53 52 6d 6f 76 65 6c 6f  |endadd:JSRmovelo|
00001b80  6f 70 0d 02 08 29 20 4a  53 52 70 61 75 73 65 3a  |op...) JSRpause:|
00001b90  2e 77 61 69 74 32 20 4a  53 52 70 61 75 73 65 65  |.wait2 JSRpausee|
00001ba0  6e 64 3a 42 43 43 77 61  69 74 32 0d 02 12 cd 20  |nd:BCCwait2.... |
00001bb0  2e 72 65 74 20 53 45 49  3a 4a 53 52 76 65 63 74  |.ret SEI:JSRvect|
00001bc0  6f 72 73 32 3a 4a 53 52  76 61 72 73 3a 43 4c 49  |ors2:JSRvars:CLI|
00001bd0  3a 4a 4d 50 20 42 41 43  4b 2d 28 6f 73 62 79 74  |:JMP BACK-(osbyt|
00001be0  65 2d 62 61 6e 6b 31 2d  31 29 3a 5d 3a 76 65 63  |e-bank1-1):]:vec|
00001bf0  74 6f 72 73 3d 4f 25 3a  5b 4f 50 54 70 61 73 73  |tors=O%:[OPTpass|
00001c00  2b 34 3a 2e 76 65 63 74  6f 72 73 32 20 4c 44 41  |+4:.vectors2 LDA|
00001c10  23 28 4f 42 72 6f 75 74  69 6e 65 20 83 32 35 36  |#(OBroutine .256|
00001c20  29 3a 53 54 41 26 32 30  41 3a 4c 44 41 23 28 4f  |):STA&20A:LDA#(O|
00001c30  42 72 6f 75 74 69 6e 65  20 81 32 35 36 29 3a 53  |Broutine .256):S|
00001c40  54 41 26 32 30 42 3a 4c  44 41 23 28 4f 46 49 4c  |TA&20B:LDA#(OFIL|
00001c50  45 20 83 32 35 36 29 3a  53 54 41 26 32 31 32 3a  |E .256):STA&212:|
00001c60  4c 44 41 23 28 4f 46 49  4c 45 20 81 32 35 36 29  |LDA#(OFILE .256)|
00001c70  3a 53 54 41 26 32 31 33  0d 02 1c 6a 20 4c 44 41  |:STA&213...j LDA|
00001c80  23 28 4f 46 53 43 20 83  32 35 36 29 3a 53 54 41  |#(OFSC .256):STA|
00001c90  26 32 31 45 3a 4c 44 41  23 28 4f 46 53 43 20 81  |&21E:LDA#(OFSC .|
00001ca0  32 35 36 29 3a 53 54 41  26 32 31 46 3a 4c 44 41  |256):STA&21F:LDA|
00001cb0  23 28 45 56 45 4e 54 20  83 32 35 36 29 3a 53 54  |#(EVENT .256):ST|
00001cc0  41 26 32 32 30 3a 4c 44  41 23 28 45 56 45 4e 54  |A&220:LDA#(EVENT|
00001cd0  20 81 32 35 36 29 3a 53  54 41 26 32 32 31 3a 52  | .256):STA&221:R|
00001ce0  54 53 0d 02 26 6a 20 2e  76 61 72 73 20 4c 44 59  |TS..&j .vars LDY|
00001cf0  26 37 35 3a 4c 44 58 26  37 34 3a 53 54 58 65 6e  |&75:LDX&74:STXen|
00001d00  64 61 64 64 3a 4c 44 58  23 30 3a 2e 6c 6f 61 64  |dadd:LDX#0:.load|
00001d10  76 61 72 73 20 4c 44 41  74 65 6d 70 73 74 6f 72  |vars LDAtempstor|
00001d20  65 2c 58 3a 53 54 41 26  37 30 2c 58 3a 49 4e 58  |e,X:STA&70,X:INX|
00001d30  3a 43 50 58 23 36 3a 42  4e 45 6c 6f 61 64 76 61  |:CPX#6:BNEloadva|
00001d40  72 73 3a 4c 44 58 65 6e  64 61 64 64 0d 02 30 43  |rs:LDXendadd..0C|
00001d50  20 4c 44 41 69 6e 74 65  72 6e 65 77 4c 4f 3a 53  | LDAinternewLO:S|
00001d60  54 41 26 32 30 34 3a 4c  44 41 69 6e 74 65 72 6e  |TA&204:LDAintern|
00001d70  65 77 48 49 3a 53 54 41  26 32 30 35 3a 4c 44 41  |ewHI:STA&205:LDA|
00001d80  23 30 3a 53 54 41 26 46  43 44 44 3a 52 54 53 0d  |#0:STA&FCDD:RTS.|
00001d90  02 3a c1 20 2e 66 73 63  72 6f 75 74 20 50 4c 41  |.:. .fscrout PLA|
00001da0  3a 50 48 41 3a 42 45 51  72 65 74 3a 43 4d 50 23  |:PHA:BEQret:CMP#|
00001db0  34 3a 42 45 51 66 73 63  3a 43 4d 50 23 32 3a 42  |4:BEQfsc:CMP#2:B|
00001dc0  45 51 66 73 63 3a 4a 53  52 6f 6c 64 4f 53 46 53  |EQfsc:JSRoldOSFS|
00001dd0  43 3a 4c 44 41 26 37 30  3a 53 54 41 26 31 30 44  |C:LDA&70:STA&10D|
00001de0  35 3a 4c 44 41 26 37 31  3a 53 54 41 26 44 43 43  |5:LDA&71:STA&DCC|
00001df0  3a 4c 44 41 26 37 32 3a  53 54 41 26 44 43 44 3a  |:LDA&72:STA&DCD:|
00001e00  4c 44 41 26 37 33 3a 53  54 41 26 44 43 45 3a 4a  |LDA&73:STA&DCE:J|
00001e10  4d 50 72 65 74 3a 2e 66  73 63 20 4c 44 41 26 37  |MPret:.fsc LDA&7|
00001e20  34 3a 53 54 41 26 37 30  3a 4c 44 41 26 37 35 3a  |4:STA&70:LDA&75:|
00001e30  53 54 41 26 37 31 3a 4a  53 52 66 69 6c 65 6e 61  |STA&71:JSRfilena|
00001e40  6d 65 3a 4c 44 58 23 31  3a 4a 4d 50 6c 6f 61 64  |me:LDX#1:JMPload|
00001e50  0d 02 44 8e 20 2e 6f 6c  64 4f 53 46 53 43 20 4c  |..D. .oldOSFSC L|
00001e60  44 41 26 31 30 44 35 3a  53 54 41 26 37 30 3a 4c  |DA&10D5:STA&70:L|
00001e70  44 41 26 44 43 43 3a 53  54 41 26 37 31 3a 4c 44  |DA&DCC:STA&71:LD|
00001e80  41 26 44 43 44 3a 53 54  41 26 37 32 3a 4c 44 41  |A&DCD:STA&72:LDA|
00001e90  26 44 43 45 3a 53 54 41  26 37 33 3a 4c 44 41 23  |&DCE:STA&73:LDA#|
00001ea0  26 36 30 3a 53 54 41 26  44 43 43 3a 4c 44 41 23  |&60:STA&DCC:LDA#|
00001eb0  26 39 45 3a 53 54 41 26  44 43 44 3a 4c 44 41 23  |&9E:STA&DCD:LDA#|
00001ec0  34 3a 53 54 41 26 44 43  45 3a 50 4c 41 3a 50 48  |4:STA&DCE:PLA:PH|
00001ed0  41 3a 4a 4d 50 28 6f 73  66 73 63 4c 4f 29 0d 02  |A:JMP(osfscLO)..|
00001ee0  4e cd 20 2e 66 69 6c 65  6e 61 6d 65 20 4c 44 59  |N. .filename LDY|
00001ef0  23 30 3a 4c 44 41 28 26  37 30 29 2c 59 3a 43 4d  |#0:LDA(&70),Y:CM|
00001f00  50 23 26 44 3a 42 45 51  6e 61 6d 65 3a 43 4d 50  |P#&D:BEQname:CMP|
00001f10  23 26 32 30 3a 42 45 51  6e 61 6d 65 3a 4a 4d 50  |#&20:BEQname:JMP|
00001f20  6e 6f 74 7a 65 72 6f 3a  2e 6e 61 6d 65 20 4c 44  |notzero:.name LD|
00001f30  41 6e 61 6d 65 4c 4f 3a  53 54 41 26 37 30 3a 53  |AnameLO:STA&70:S|
00001f40  54 41 26 37 32 3a 4c 44  41 6e 61 6d 65 48 49 3a  |TA&72:LDAnameHI:|
00001f50  53 54 41 26 37 31 3a 53  54 41 26 37 33 3a 4c 44  |STA&71:STA&73:LD|
00001f60  41 28 26 37 30 29 2c 59  3a 43 4d 50 23 30 3a 42  |A(&70),Y:CMP#0:B|
00001f70  4e 45 6f 6b 32 3a 50 4c  41 3a 50 4c 41 3a 4a 4d  |NEok2:PLA:PLA:JM|
00001f80  50 65 72 72 6f 72 32 3a  2e 6f 6b 32 20 4c 44 41  |Perror2:.ok2 LDA|
00001f90  28 26 37 32 29 2c 59 3a  49 4e 43 26 37 32 3a 42  |(&72),Y:INC&72:B|
00001fa0  4e 45 6e 6f 3a 49 4e 43  26 37 33 0d 02 58 e9 20  |NEno:INC&73..X. |
00001fb0  2e 6e 6f 20 43 4d 50 23  26 44 3a 42 4e 45 6f 6b  |.no CMP#&D:BNEok|
00001fc0  32 3a 4c 44 41 26 37 32  3a 53 54 41 6e 61 6d 65  |2:LDA&72:STAname|
00001fd0  4c 4f 3a 4c 44 41 26 37  33 3a 53 54 41 6e 61 6d  |LO:LDA&73:STAnam|
00001fe0  65 48 49 3a 2e 6e 6f 74  7a 65 72 6f 20 4c 44 41  |eHI:.notzero LDA|
00001ff0  23 30 3a 53 54 41 26 37  32 3a 4c 44 41 23 26 38  |#0:STA&72:LDA#&8|
00002000  42 3a 53 54 41 26 37 33  3a 2e 74 72 61 6e 73 6c  |B:STA&73:.transl|
00002010  6f 6f 70 20 4c 44 41 28  26 37 30 29 2c 59 3a 53  |oop LDA(&70),Y:S|
00002020  54 41 28 26 37 32 29 2c  59 3a 43 4d 50 23 26 44  |TA(&72),Y:CMP#&D|
00002030  3a 42 45 51 65 6e 64 66  69 6c 65 3a 43 4d 50 23  |:BEQendfile:CMP#|
00002040  26 32 30 3a 42 4e 45 63  6f 6e 74 66 69 6c 65 3a  |&20:BNEcontfile:|
00002050  4c 44 41 23 26 44 3a 53  54 41 28 26 37 32 29 2c  |LDA#&D:STA(&72),|
00002060  59 3a 42 4e 45 65 6e 64  66 69 6c 65 3a 2e 63 6f  |Y:BNEendfile:.co|
00002070  6e 74 66 69 6c 65 20 49  4e 59 3a 4a 4d 50 74 72  |ntfile INY:JMPtr|
00002080  61 6e 73 6c 6f 6f 70 3a  2e 65 6e 64 66 69 6c 65  |ansloop:.endfile|
00002090  20 52 54 53 0d 02 62 d1  20 2e 65 72 72 6f 72 31  | RTS..b. .error1|
000020a0  20 4c 44 41 23 28 6e 6f  74 66 6f 75 6e 64 20 83  | LDA#(notfound .|
000020b0  32 35 36 29 3a 53 54 41  26 37 30 3a 4c 44 41 23  |256):STA&70:LDA#|
000020c0  28 6e 6f 74 66 6f 75 6e  64 20 81 32 35 36 29 3a  |(notfound .256):|
000020d0  53 54 41 26 37 31 3a 4a  4d 50 65 72 72 6f 72 3a  |STA&71:JMPerror:|
000020e0  2e 65 72 72 6f 72 32 20  4c 44 41 23 28 6e 6f 6d  |.error2 LDA#(nom|
000020f0  6f 72 65 20 83 32 35 36  29 3a 53 54 41 26 37 30  |ore .256):STA&70|
00002100  3a 4c 44 41 23 28 6e 6f  6d 6f 72 65 20 81 32 35  |:LDA#(nomore .25|
00002110  36 29 3a 53 54 41 26 37  31 3a 2e 65 72 72 6f 72  |6):STA&71:.error|
00002120  20 4c 44 59 23 30 3a 2e  70 72 69 6e 74 6c 6f 6f  | LDY#0:.printloo|
00002130  70 20 4c 44 41 28 26 37  30 29 2c 59 3a 49 4e 59  |p LDA(&70),Y:INY|
00002140  3a 4a 53 52 4f 53 41 53  43 49 3a 43 4d 50 23 26  |:JSROSASCI:CMP#&|
00002150  44 3a 42 4e 45 70 72 69  6e 74 6c 6f 6f 70 3a 4a  |D:BNEprintloop:J|
00002160  4d 50 72 65 74 0d 02 6c  b8 20 2e 65 76 72 6f 75  |MPret..l. .evrou|
00002170  74 69 6e 65 20 4a 53 52  76 65 63 6e 6f 72 6d 3a  |tine JSRvecnorm:|
00002180  4c 44 41 23 31 33 3a 4c  44 58 23 34 3a 4c 44 59  |LDA#13:LDX#4:LDY|
00002190  23 30 3a 4a 53 52 4f 53  42 59 54 45 3a 4a 53 52  |#0:JSROSBYTE:JSR|
000021a0  70 61 75 73 65 3a 2e 77  61 69 74 20 4a 53 52 73  |pause:.wait JSRs|
000021b0  6c 6f 77 3a 4a 53 52 6d  65 6d 73 61 76 65 3a 4a  |low:JSRmemsave:J|
000021c0  53 52 70 61 75 73 65 65  6e 64 3a 42 43 43 77 61  |SRpauseend:BCCwa|
000021d0  69 74 3a 4c 44 41 23 31  34 3a 4c 44 58 23 34 3a  |it:LDA#14:LDX#4:|
000021e0  4c 44 59 23 30 3a 4a 53  52 4f 53 42 59 54 45 3a  |LDY#0:JSROSBYTE:|
000021f0  4a 53 52 76 65 63 74 6f  72 73 32 3a 4a 53 52 76  |JSRvectors2:JSRv|
00002200  61 72 73 3a 4a 4d 50 20  42 41 43 4b 2d 28 6f 73  |ars:JMP BACK-(os|
00002210  62 79 74 65 2d 62 61 6e  6b 31 2d 31 29 0d 02 76  |byte-bank1-1)..v|
00002220  8e 20 2e 73 6c 6f 77 20  4c 44 41 23 26 38 31 3a  |. .slow LDA#&81:|
00002230  4c 44 58 23 28 a4 69 6e  6b 65 79 28 53 6c 6f 77  |LDX#(.inkey(Slow|
00002240  4b 65 79 24 29 29 3a 4c  44 59 23 26 46 46 3a 4a  |Key$)):LDY#&FF:J|
00002250  53 52 4f 53 42 59 54 45  3a 42 43 43 66 61 73 74  |SROSBYTE:BCCfast|
00002260  3a 4c 44 58 23 26 46 45  3a 4c 44 59 23 26 46 46  |:LDX#&FE:LDY#&FF|
00002270  3a 4a 53 52 4f 53 42 59  54 45 3a 42 43 43 66 61  |:JSROSBYTE:BCCfa|
00002280  73 74 3a 49 4e 43 64 65  6c 61 79 3a 4c 44 58 64  |st:INCdelay:LDXd|
00002290  65 6c 61 79 3a 43 50 58  23 31 3a 42 4e 45 66 61  |elay:CPX#1:BNEfa|
000022a0  73 74 3a 44 45 43 64 65  6c 61 79 0d 02 80 80 20  |st:DECdelay.... |
000022b0  2e 66 61 73 74 20 4c 44  58 23 28 a4 69 6e 6b 65  |.fast LDX#(.inke|
000022c0  79 28 46 61 73 74 4b 65  79 24 29 29 3a 4c 44 59  |y(FastKey$)):LDY|
000022d0  23 26 46 46 3a 4a 53 52  4f 53 42 59 54 45 3a 42  |#&FF:JSROSBYTE:B|
000022e0  43 43 64 65 6c 6c 6f 6f  70 3a 4c 44 58 23 26 46  |CCdelloop:LDX#&F|
000022f0  45 3a 4c 44 59 23 26 46  46 3a 4a 53 52 4f 53 42  |E:LDY#&FF:JSROSB|
00002300  59 54 45 3a 42 43 43 64  65 6c 6c 6f 6f 70 3a 44  |YTE:BCCdelloop:D|
00002310  45 43 64 65 6c 61 79 3a  42 4e 45 64 65 6c 6c 6f  |ECdelay:BNEdello|
00002320  6f 70 3a 49 4e 43 64 65  6c 61 79 0d 02 8a 6a 20  |op:INCdelay...j |
00002330  2e 64 65 6c 6c 6f 6f 70  20 4c 44 41 64 65 6c 61  |.delloop LDAdela|
00002340  79 3a 53 54 41 26 37 30  3a 2e 64 65 6c 31 20 44  |y:STA&70:.del1 D|
00002350  45 43 26 37 30 3a 42 45  51 64 65 6c 65 6e 64 3a  |EC&70:BEQdelend:|
00002360  4c 44 41 23 30 3a 53 54  41 26 37 31 3a 2e 64 65  |LDA#0:STA&71:.de|
00002370  6c 32 20 44 45 43 26 37  31 3a 42 4e 45 64 65 6c  |l2 DEC&71:BNEdel|
00002380  32 3a 4a 4d 50 64 65 6c  31 3a 2e 64 65 6c 65 6e  |2:JMPdel1:.delen|
00002390  64 20 52 54 53 0d 02 94  a4 20 2e 70 61 75 73 65  |d RTS.... .pause|
000023a0  20 4c 44 41 23 26 38 31  3a 4c 44 58 23 28 a4 69  | LDA#&81:LDX#(.i|
000023b0  6e 6b 65 79 28 50 61 75  73 65 4b 65 79 24 29 29  |nkey(PauseKey$))|
000023c0  3a 4c 44 59 23 26 46 46  3a 4a 53 52 4f 53 42 59  |:LDY#&FF:JSROSBY|
000023d0  54 45 3a 4c 44 41 23 30  3a 42 43 43 70 61 75 73  |TE:LDA#0:BCCpaus|
000023e0  65 72 65 74 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |eret:LDA#&81:LDX|
000023f0  23 26 46 45 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&FE:LDY#&FF:JSR|
00002400  4f 53 42 59 54 45 3a 4c  44 41 23 30 3a 42 43 43  |OSBYTE:LDA#0:BCC|
00002410  70 61 75 73 65 72 65 74  3a 4c 44 41 23 31 3a 2e  |pauseret:LDA#1:.|
00002420  70 61 75 73 65 72 65 74  20 53 54 41 70 61 75 73  |pauseret STApaus|
00002430  65 66 6c 61 67 3a 52 54  53 0d 02 9e af 20 2e 70  |eflag:RTS.... .p|
00002440  61 75 73 65 65 6e 64 20  4c 44 41 70 61 75 73 65  |auseend LDApause|
00002450  66 6c 61 67 3a 42 45 51  75 6e 70 61 75 73 65 3a  |flag:BEQunpause:|
00002460  4c 44 41 23 26 38 31 3a  4c 44 58 23 28 a4 69 6e  |LDA#&81:LDX#(.in|
00002470  6b 65 79 28 43 6f 6e 74  4b 65 79 24 29 29 3a 4c  |key(ContKey$)):L|
00002480  44 59 23 26 46 46 3a 4a  53 52 4f 53 42 59 54 45  |DY#&FF:JSROSBYTE|
00002490  3a 42 43 43 73 74 61 79  70 61 75 73 65 3a 4c 44  |:BCCstaypause:LD|
000024a0  41 23 26 38 31 3a 4c 44  58 23 26 46 45 3a 4c 44  |A#&81:LDX#&FE:LD|
000024b0  59 23 26 46 46 3a 4a 53  52 4f 53 42 59 54 45 3a  |Y#&FF:JSROSBYTE:|
000024c0  42 43 43 73 74 61 79 70  61 75 73 65 3a 2e 75 6e  |BCCstaypause:.un|
000024d0  70 61 75 73 65 20 53 45  43 3a 2e 73 74 61 79 70  |pause SEC:.stayp|
000024e0  61 75 73 65 20 52 54 53  0d 02 a8 8f 20 2e 6d 65  |ause RTS.... .me|
000024f0  6d 73 61 76 65 20 4c 44  41 6d 73 62 6c 6f 63 6b  |msave LDAmsblock|
00002500  3a 42 45 51 6d 73 61 3a  4a 4d 50 6d 65 6d 6c 6f  |:BEQmsa:JMPmemlo|
00002510  61 64 3a 2e 6d 73 61 20  4c 44 41 23 26 38 31 3a  |ad:.msa LDA#&81:|
00002520  4c 44 58 23 28 a4 69 6e  6b 65 79 28 4d 65 6d 53  |LDX#(.inkey(MemS|
00002530  61 76 65 4b 65 79 24 29  29 3a 4c 44 59 23 26 46  |aveKey$)):LDY#&F|
00002540  46 3a 4a 53 52 4f 53 42  59 54 45 3a 42 43 43 6d  |F:JSROSBYTE:BCCm|
00002550  73 65 6e 64 3a 4c 44 58  23 26 46 45 3a 4c 44 59  |send:LDX#&FE:LDY|
00002560  23 26 46 46 3a 4a 53 52  4f 53 42 59 54 45 3a 42  |#&FF:JSROSBYTE:B|
00002570  43 43 6d 73 65 6e 64 0d  02 b2 7d 20 4c 44 41 23  |CCmsend...} LDA#|
00002580  31 3a 53 54 41 6d 73 62  6c 6f 63 6b 3a 4c 44 59  |1:STAmsblock:LDY|
00002590  23 30 3a 2e 6d 73 76 61  72 73 20 4c 44 41 74 65  |#0:.msvars LDAte|
000025a0  6d 70 73 74 6f 72 65 2c  59 3a 53 54 41 6d 73 62  |mpstore,Y:STAmsb|
000025b0  6c 6f 63 6b 2b 31 2c 59  3a 49 4e 59 3a 43 50 59  |lock+1,Y:INY:CPY|
000025c0  23 36 3a 42 4e 45 6d 73  76 61 72 73 3a 4c 44 41  |#6:BNEmsvars:LDA|
000025d0  26 37 34 3a 53 54 41 6d  73 62 6c 6f 63 6b 2b 37  |&74:STAmsblock+7|
000025e0  3a 4c 44 41 26 37 35 3a  53 54 41 6d 73 62 6c 6f  |:LDA&75:STAmsblo|
000025f0  63 6b 2b 38 0d 02 bc a1  20 50 4c 41 3a 53 54 41  |ck+8.... PLA:STA|
00002600  26 37 30 3a 50 4c 41 3a  53 54 41 26 37 31 3a 50  |&70:PLA:STA&71:P|
00002610  4c 41 3a 53 54 41 6d 73  62 6c 6f 63 6b 2b 39 3a  |LA:STAmsblock+9:|
00002620  50 4c 41 3a 53 54 41 6d  73 62 6c 6f 63 6b 2b 31  |PLA:STAmsblock+1|
00002630  30 3a 4c 44 41 23 28 28  45 56 45 4e 54 2d 31 29  |0:LDA#((EVENT-1)|
00002640  20 81 32 35 36 29 3a 50  48 41 3a 4c 44 41 23 28  | .256):PHA:LDA#(|
00002650  28 45 56 45 4e 54 2d 31  29 20 83 32 35 36 29 3a  |(EVENT-1) .256):|
00002660  50 48 41 3a 4c 44 41 23  28 28 6f 73 63 6c 69 2d  |PHA:LDA#((oscli-|
00002670  31 29 20 81 32 35 36 29  3a 50 48 41 3a 4c 44 41  |1) .256):PHA:LDA|
00002680  23 28 28 6f 73 63 6c 69  2d 31 29 20 83 32 35 36  |#((oscli-1) .256|
00002690  29 3a 50 48 41 0d 02 c6  54 20 4c 44 41 6d 73 62  |):PHA...T LDAmsb|
000026a0  6c 6f 63 6b 2b 31 30 3a  50 48 41 3a 4c 44 41 6d  |lock+10:PHA:LDAm|
000026b0  73 62 6c 6f 63 6b 2b 39  3a 50 48 41 3a 4c 44 41  |sblock+9:PHA:LDA|
000026c0  26 37 31 3a 50 48 41 3a  4c 44 41 26 37 30 3a 50  |&71:PHA:LDA&70:P|
000026d0  48 41 3a 4c 44 41 26 46  45 30 30 3a 53 54 41 6d  |HA:LDA&FE00:STAm|
000026e0  73 62 6c 6f 63 6b 2b 31  31 0d 02 d0 66 20 4c 44  |sblock+11...f LD|
000026f0  59 23 30 3a 2e 74 65 78  74 6c 6f 6f 70 20 4c 44  |Y#0:.textloop LD|
00002700  41 6f 73 63 6c 69 74 65  78 74 2c 59 3a 53 54 41  |Aosclitext,Y:STA|
00002710  6d 73 62 6c 6f 63 6b 2b  26 31 30 2c 59 3a 4c 44  |msblock+&10,Y:LD|
00002720  41 6d 73 74 65 78 74 2c  59 3a 53 54 41 6f 73 63  |Amstext,Y:STAosc|
00002730  6c 69 74 65 78 74 2c 59  3a 49 4e 59 3a 43 4d 50  |litext,Y:INY:CMP|
00002740  23 26 44 3a 42 4e 45 74  65 78 74 6c 6f 6f 70 0d  |#&D:BNEtextloop.|
00002750  02 da 53 20 4c 44 58 23  28 6f 73 63 6c 69 74 65  |..S LDX#(osclite|
00002760  78 74 20 83 32 35 36 29  3a 53 54 58 26 37 34 3a  |xt .256):STX&74:|
00002770  4c 44 59 23 28 6f 73 63  6c 69 74 65 78 74 20 81  |LDY#(osclitext .|
00002780  32 35 36 29 3a 53 54 59  26 37 35 3a 49 4e 43 6d  |256):STY&75:INCm|
00002790  73 6c 65 74 74 65 72 3a  2e 6d 73 65 6e 64 20 52  |sletter:.msend R|
000027a0  54 53 0d 02 e4 b7 20 2e  6d 65 6d 6c 6f 61 64 20  |TS.... .memload |
000027b0  4c 44 41 23 30 3a 53 54  41 6d 73 62 6c 6f 63 6b  |LDA#0:STAmsblock|
000027c0  3a 4c 44 59 23 30 3a 2e  6d 73 76 61 72 73 32 20  |:LDY#0:.msvars2 |
000027d0  4c 44 41 6d 73 62 6c 6f  63 6b 2b 31 2c 59 3a 53  |LDAmsblock+1,Y:S|
000027e0  54 41 74 65 6d 70 73 74  6f 72 65 2c 59 3a 49 4e  |TAtempstore,Y:IN|
000027f0  59 3a 43 50 59 23 36 3a  42 4e 45 6d 73 76 61 72  |Y:CPY#6:BNEmsvar|
00002800  73 32 3a 50 4c 41 3a 53  54 41 26 37 30 3a 50 4c  |s2:PLA:STA&70:PL|
00002810  41 3a 53 54 41 26 37 31  3a 50 4c 41 3a 50 4c 41  |A:STA&71:PLA:PLA|
00002820  3a 4c 44 41 6d 73 62 6c  6f 63 6b 2b 31 30 3a 50  |:LDAmsblock+10:P|
00002830  48 41 3a 4c 44 41 6d 73  62 6c 6f 63 6b 2b 39 3a  |HA:LDAmsblock+9:|
00002840  50 48 41 3a 4c 44 41 26  37 31 3a 50 48 41 3a 4c  |PHA:LDA&71:PHA:L|
00002850  44 41 26 37 30 3a 50 48  41 0d 02 ee 60 20 4c 44  |DA&70:PHA...` LD|
00002860  59 23 30 3a 2e 74 65 78  74 6c 6f 6f 70 32 20 4c  |Y#0:.textloop2 L|
00002870  44 41 6f 73 63 6c 69 74  65 78 74 2c 59 3a 54 41  |DAosclitext,Y:TA|
00002880  58 3a 4c 44 41 6d 73 62  6c 6f 63 6b 2b 26 31 30  |X:LDAmsblock+&10|
00002890  2c 59 3a 53 54 41 6f 73  63 6c 69 74 65 78 74 2c  |,Y:STAosclitext,|
000028a0  59 3a 49 4e 59 3a 43 50  58 23 26 44 3a 42 4e 45  |Y:INY:CPX#&D:BNE|
000028b0  74 65 78 74 6c 6f 6f 70  32 0d 02 f8 47 20 4c 44  |textloop2...G LD|
000028c0  41 6d 73 62 6c 6f 63 6b  2b 37 3a 53 54 41 26 37  |Amsblock+7:STA&7|
000028d0  34 3a 4c 44 41 6d 73 62  6c 6f 63 6b 2b 38 3a 53  |4:LDAmsblock+8:S|
000028e0  54 41 26 37 35 3a 4c 44  41 6d 73 62 6c 6f 63 6b  |TA&75:LDAmsblock|
000028f0  2b 31 31 3a 53 54 41 26  46 45 30 30 3a 52 54 53  |+11:STA&FE00:RTS|
00002900  0d 03 02 e6 20 2e 6e 6f  74 66 6f 75 6e 64 20 45  |.... .notfound E|
00002910  51 55 53 22 4e 6f 74 20  66 6f 75 6e 64 22 3a 45  |QUS"Not found":E|
00002920  51 55 42 31 33 3a 2e 6e  6f 6d 6f 72 65 20 45 51  |QUB13:.nomore EQ|
00002930  55 53 22 4e 6f 20 6d 6f  72 65 20 66 69 6c 65 6e  |US"No more filen|
00002940  61 6d 65 73 22 3a 45 51  55 42 31 33 3a 2e 6e 61  |ames":EQUB13:.na|
00002950  6d 65 4c 4f 20 45 51 55  42 6e 61 6d 65 73 20 83  |meLO EQUBnames .|
00002960  32 35 36 3a 2e 6e 61 6d  65 48 49 20 45 51 55 42  |256:.nameHI EQUB|
00002970  6e 61 6d 65 73 20 81 32  35 36 3a 2e 65 6e 64 61  |names .256:.enda|
00002980  64 64 20 45 51 55 42 30  3a 2e 6f 73 66 69 6c 65  |dd EQUB0:.osfile|
00002990  4c 4f 20 45 51 55 42 30  3a 2e 6f 73 66 69 6c 65  |LO EQUB0:.osfile|
000029a0  48 49 20 45 51 55 42 30  3a 2e 6f 73 66 73 63 4c  |HI EQUB0:.osfscL|
000029b0  4f 20 45 51 55 42 30 3a  2e 6f 73 66 73 63 48 49  |O EQUB0:.osfscHI|
000029c0  20 45 51 55 42 30 3a 2e  6f 73 62 79 74 65 4c 4f  | EQUB0:.osbyteLO|
000029d0  20 45 51 55 42 30 3a 2e  6f 73 62 79 74 65 48 49  | EQUB0:.osbyteHI|
000029e0  20 45 51 55 42 30 0d 03  0c 64 20 2e 65 76 65 6e  | EQUB0...d .even|
000029f0  74 4c 4f 20 45 51 55 42  30 3a 2e 65 76 65 6e 74  |tLO EQUB0:.event|
00002a00  48 49 20 45 51 55 42 30  3a 2e 69 6e 74 65 72 4c  |HI EQUB0:.interL|
00002a10  4f 20 45 51 55 42 30 3a  2e 69 6e 74 65 72 48 49  |O EQUB0:.interHI|
00002a20  20 45 51 55 42 30 3a 2e  69 6e 74 65 72 6e 65 77  | EQUB0:.internew|
00002a30  4c 4f 20 45 51 55 42 30  3a 2e 69 6e 74 65 72 6e  |LO EQUB0:.intern|
00002a40  65 77 48 49 20 45 51 55  42 30 0d 03 16 b0 20 2e  |ewHI EQUB0.... .|
00002a50  74 65 6d 70 73 74 6f 72  65 20 45 51 55 44 30 3a  |tempstore EQUD0:|
00002a60  45 51 55 57 30 3a 2e 70  61 75 73 65 66 6c 61 67  |EQUW0:.pauseflag|
00002a70  20 45 51 55 42 30 3a 2e  64 65 6c 61 79 20 45 51  | EQUB0:.delay EQ|
00002a80  55 42 31 3a 2e 6d 73 74  65 78 74 20 45 51 55 53  |UB1:.mstext EQUS|
00002a90  22 53 41 56 45 20 50 6f  73 69 74 69 6f 6e 22 3a  |"SAVE Position":|
00002aa0  2e 6d 73 6c 65 74 74 65  72 20 45 51 55 53 22 41  |.msletter EQUS"A|
00002ab0  20 30 30 30 30 20 38 30  35 30 22 3a 45 51 55 42  | 0000 8050":EQUB|
00002ac0  31 33 3a 2e 6e 61 6d 65  73 3a 5d 3a 24 4f 25 3d  |13:.names:]:$O%=|
00002ad0  66 69 6c 65 6e 61 6d 65  73 24 3a 4f 25 3d 4f 25  |filenames$:O%=O%|
00002ae0  2b a9 28 66 69 6c 65 6e  61 6d 65 73 24 29 2b 31  |+.(filenames$)+1|
00002af0  3a 3f 28 4f 25 2d 31 29  3d 30 0d 03 20 ca 20 62  |:?(O%-1)=0.. . b|
00002b00  61 6e 6b 31 3d 4f 25 3a  5b 4f 50 54 70 61 73 73  |ank1=O%:[OPTpass|
00002b10  2b 34 3a 4c 44 41 23 30  3a 53 54 41 26 46 34 3a  |+4:LDA#0:STA&F4:|
00002b20  53 54 41 26 46 45 30 35  3a 5d 3a 50 25 3d 4f 25  |STA&FE05:]:P%=O%|
00002b30  3a 5b 4f 50 54 70 61 73  73 2b 34 3a 52 54 53 3a  |:[OPTpass+4:RTS:|
00002b40  5d 3a 6f 73 62 79 74 65  3d 4f 25 3a 50 25 3d 4f  |]:osbyte=O%:P%=O|
00002b50  42 72 6f 75 74 69 6e 65  3a 5b 4f 50 54 70 61 73  |Broutine:[OPTpas|
00002b60  73 2b 34 3a 43 4d 50 23  31 34 30 3a 42 45 51 74  |s+4:CMP#140:BEQt|
00002b70  61 70 65 3a 50 48 41 3a  4c 44 41 4f 42 72 6f 75  |ape:PHA:LDAOBrou|
00002b80  74 32 2b 38 3a 53 54 41  26 32 30 41 3a 4a 4d 50  |t2+8:STA&20A:JMP|
00002b90  4f 42 72 6f 75 74 32 3a  2e 74 61 70 65 20 52 54  |OBrout2:.tape RT|
00002ba0  53 3a 5d 3a 6f 73 62 79  74 65 32 3d 4f 25 3a 50  |S:]:osbyte2=O%:P|
00002bb0  25 3d 4f 42 72 6f 75 74  32 3a 5b 4f 50 54 70 61  |%=OBrout2:[OPTpa|
00002bc0  73 73 2b 34 0d 03 2a 9c  20 4c 44 41 4f 42 72 6f  |ss+4..*. LDAOBro|
00002bd0  75 74 32 2b 39 3a 53 54  41 26 32 30 42 3a 50 4c  |ut2+9:STA&20B:PL|
00002be0  41 3a 4a 53 52 26 30 30  30 30 3a 4a 4d 50 4f 42  |A:JSR&0000:JMPOB|
00002bf0  72 6f 75 74 33 3a 5d 3a  6f 73 62 79 74 65 33 3d  |rout3:]:osbyte3=|
00002c00  4f 25 3a 50 25 3d 4f 42  72 6f 75 74 33 3a 5b 4f  |O%:P%=OBrout3:[O|
00002c10  50 54 70 61 73 73 2b 34  3a 50 48 41 3a 4c 44 41  |PTpass+4:PHA:LDA|
00002c20  23 28 4f 42 72 6f 75 74  69 6e 65 20 83 32 35 36  |#(OBroutine .256|
00002c30  29 3a 53 54 41 26 32 30  41 3a 4c 44 41 23 28 4f  |):STA&20A:LDA#(O|
00002c40  42 72 6f 75 74 69 6e 65  20 81 32 35 36 29 3a 53  |Broutine .256):S|
00002c50  54 41 26 32 30 42 3a 50  4c 41 3a 52 54 53 3a 5d  |TA&20B:PLA:RTS:]|
00002c60  0d 03 34 b8 20 66 69 6c  65 3d 4f 25 3a 50 25 3d  |..4. file=O%:P%=|
00002c70  4f 46 49 4c 45 3a 5b 4f  50 54 70 61 73 73 2b 34  |OFILE:[OPTpass+4|
00002c80  3a 43 4c 43 3a 42 43 43  6f 66 3a 2e 4f 46 53 43  |:CLC:BCCof:.OFSC|
00002c90  20 53 45 43 3a 2e 6f 66  20 50 48 50 3a 50 48 41  | SEC:.of PHP:PHA|
00002ca0  3a 5d 3a 62 61 6e 6b 32  3d 4f 25 3a 5b 4f 50 54  |:]:bank2=O%:[OPT|
00002cb0  70 61 73 73 2b 34 3a 4c  44 41 23 30 3a 53 54 41  |pass+4:LDA#0:STA|
00002cc0  26 46 34 3a 53 54 41 26  46 45 30 35 3a 2e 65 6e  |&F4:STA&FE05:.en|
00002cd0  74 65 72 3a 5d 3a 50 25  3d 4f 25 3a 5b 4f 50 54  |ter:]:P%=O%:[OPT|
00002ce0  70 61 73 73 2b 34 3a 52  54 53 3a 5d 3a 66 69 6c  |pass+4:RTS:]:fil|
00002cf0  65 72 65 74 3d 4f 25 3a  50 25 3d 42 41 43 4b 3a  |eret=O%:P%=BACK:|
00002d00  5b 4f 50 54 70 61 73 73  2b 34 3a 50 4c 41 3a 50  |[OPTpass+4:PLA:P|
00002d10  4c 50 3a 52 54 53 3a 5d  0d 03 3e 54 20 65 76 72  |LP:RTS:]..>T evr|
00002d20  6f 75 74 3d 4f 25 3a 50  25 3d 45 56 45 4e 54 3a  |out=O%:P%=EVENT:|
00002d30  5b 4f 50 54 70 61 73 73  2b 34 3a 50 48 50 3a 50  |[OPTpass+4:PHP:P|
00002d40  48 41 3a 4c 44 41 23 30  3a 53 54 41 26 46 34 3a  |HA:LDA#0:STA&F4:|
00002d50  53 54 41 26 46 45 30 35  3a 2e 65 6e 74 65 72 65  |STA&FE05:.entere|
00002d60  76 3a 5d 3a 65 76 65 6e  64 3d 4f 25 0d 03 48 06  |v:]:evend=O%..H.|
00002d70  20 ed 0d 03 52 3a 20 f1  22 53 61 76 65 20 28 59  | ...R: ."Save (Y|
00002d80  2f 4e 29 3f 22 3a 41 24  3d be 3a e7 20 41 24 3d  |/N)?":A$=.:. A$=|
00002d90  22 59 22 20 8c 20 ff 22  53 41 56 45 20 44 4c 53  |"Y" . ."SAVE DLS|
00002da0  20 32 30 30 30 20 22 2b  c3 7e 4f 25 0d 03 5c 06  | 2000 "+.~O%..\.|
00002db0  20 e0 0d 03 66 12 20 dd  a4 69 6e 6b 65 79 28 4b  | ...f. ..inkey(K|
00002dc0  65 79 24 29 0d 03 70 06  20 f7 0d 03 7a 1b 20 e3  |ey$)..p. ...z. .|
00002dd0  6c 65 74 74 65 72 3d 31  20 b8 20 97 28 4b 65 79  |letter=1 . .(Key|
00002de0  24 29 2d 36 34 0d 03 84  0c 20 f3 20 76 61 6c 75  |$)-64.... . valu|
00002df0  65 0d 03 8e 0d 20 ed 20  6c 65 74 74 65 72 0d 03  |e.... . letter..|
00002e00  98 0f 20 3d 76 61 6c 75  65 2b 32 35 36 0d 03 a2  |.. =value+256...|
00002e10  71 20 dc 20 2d 36 36 2c  2d 31 30 31 2c 2d 38 33  |q . -66,-101,-83|
00002e20  2c 2d 35 31 2c 2d 33 35  2c 2d 36 38 2c 2d 38 34  |,-51,-35,-68,-84|
00002e30  2c 2d 38 35 2c 2d 33 38  2c 2d 37 30 2c 2d 37 31  |,-85,-38,-70,-71|
00002e40  2c 2d 38 37 2c 2d 31 30  32 2c 2d 38 36 2c 2d 35  |,-87,-102,-86,-5|
00002e50  35 2c 2d 35 36 2c 2d 31  37 2c 2d 35 32 2c 2d 38  |5,-56,-17,-52,-8|
00002e60  32 2c 2d 33 36 2c 2d 35  34 2c 2d 31 30 30 2c 2d  |2,-36,-54,-100,-|
00002e70  33 34 2c 2d 36 37 2c 2d  36 39 2c 2d 39 38 0d ff  |34,-67,-69,-98..|
00002e80
DLoadSave4.m0
DLoadSave4.m1
DLoadSave4.m2
DLoadSave4.m4
DLoadSave4.m5