� �    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