� �    TAPE -> ADFS  Loader/Saver                   by M. FORD , 1994        (with event-driven pause, slow/fast,     and memory save. N.B. this version      does not work - use "DLoadSave4"         Filename: DLoadSave5
 filenames$="Ziggy"+�13
I PauseKey$="P":ContKey$="O":SlowKey$="S":FastKey$="W":MemSaveKey$="M"
(q OFILE=&AA3A:BACK=&8698:OBroutine=&9C05:OBrout2=&8C10:OBrout3=&99A9:B2routine=&A000:EVENT=&AAAE:msblock=&8020
2k OSBYTE=&FFF4:OSWORD=&FFF1:OSFILE=&FFDD:OSBGET=&FFD7:OSBPUT=&FFD4:OSFIND=&FFCE:OSASCI=&FFE3:oscli=&FFF7
<& �pass=0 � 2 � 2:P%=&2000:[OPTpass
Ff 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
P7 INC&8800:CMP&8800:BNEfound:DEX:DEX:BPLtest:LDX#&FF
Z> .found DEC&8800:CLI:STXbank1+1:INX:STXbank2+1:STXevrout+3
d� .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
n�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
x� .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:JSRbank1:SEI:JSRvectors:CLI: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

,| LDAeventLO:STA&220:LDAeventHI:STA&221:LDA&204:STAinternewLO:LDA&205:STAinternewHI:LDAinterLO:STA&204:LDAinterHI:STA&205

6h STXendadd:LDX#0:.savevars LDA&70,X:STAtempstore,X:INX:CPX#6:BNEsavevars:STY&75:LDXendadd:STX&74:RTS

J% .cont 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

�W LDA#&AC:STA&71:BNEbget:.sub LDA#&1D:STA&71:BNEbget:.endload LDA#0:JSROSFIND: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
W .ret SEI:JSRvectors2:JSRvars:CLI:JMP BACK-(osbyte-bank1-1):]:vectors=O%:[OPTpass+4
� .vectors2 LDA#14:LDX#0:STX&70:.evenable LDY#0:JSROSBYTE:INC&70:LDX&70:CPX#10:BNEevenable: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:JSRpause:.wait JSRslow:JSRmemsave:JSRpauseend:BCCwait: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:BNEmemload:LDA#&81:LDX#(�inkey(MemSaveKey$)):LDY#&FF:JSROSBYTE:BCCmsend:LDX#&FE:LDY#&FF:JSROSBYTE:BCCmsend
�U LDA#1:STAmsblock:LDY#0:.msvars LDAtempstore,Y:STAmsblock+1,Y:INY:CPY#6:BNEmsvars
�� PLA:STA&70:PLA:STA&71:PLA:STA&72:PLA:STA&73:LDA#((EVENT-1) �256):PHA:LDA#((EVENT-1) �256):PHA:LDA#((oscli-1) �256):PHA:LDA#((oscli-1) �256):PHA:LDA&73:PHA:LDA&72:PHA:LDA&71:PHA:LDA&70:PHA
�M LDX#(mstext �256):STX&74:LDY#(mstext �256):STY&75:INCmsletter:.msend RTS
�d .memload LDA#0:STAmsblock:LDY#0:.msvars2 LDAmsblock+1,Y:STAtempstore,Y:INY:CPY#6:BNEmsvars2: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"@ 0000 8030":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:]
� 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%
  �
*: �"Save (Y/N)?":A$=�:� A$="Y" � �"SAVE DLS 2000 "+�~O%
4 �
> ݤinkey(Key$)
H �
R �letter=1 � �(Key$)-64
\ � value
f
 � letter
p =value+256
zq � -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 74  |ory save. N.B. t|
00000090  68 69 73 20 76 65 72 73  69 6f 6e 20 20 20 20 20  |his version     |
000000a0  20 64 6f 65 73 20 6e 6f  74 20 77 6f 72 6b 20 2d  | does not work -|
000000b0  20 75 73 65 20 22 44 4c  6f 61 64 53 61 76 65 34  | use "DLoadSave4|
000000c0  22 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 35 0d 00  |me: DLoadSave5..|
000000e0  14 1b 20 66 69 6c 65 6e  61 6d 65 73 24 3d 22 5a  |.. filenames$="Z|
000000f0  69 67 67 79 22 2b bd 31  33 0d 00 1e 49 20 50 61  |iggy"+.13...I Pa|
00000100  75 73 65 4b 65 79 24 3d  22 50 22 3a 43 6f 6e 74  |useKey$="P":Cont|
00000110  4b 65 79 24 3d 22 4f 22  3a 53 6c 6f 77 4b 65 79  |Key$="O":SlowKey|
00000120  24 3d 22 53 22 3a 46 61  73 74 4b 65 79 24 3d 22  |$="S":FastKey$="|
00000130  57 22 3a 4d 65 6d 53 61  76 65 4b 65 79 24 3d 22  |W":MemSaveKey$="|
00000140  4d 22 0d 00 28 71 20 4f  46 49 4c 45 3d 26 41 41  |M"..(q OFILE=&AA|
00000150  33 41 3a 42 41 43 4b 3d  26 38 36 39 38 3a 4f 42  |3A:BACK=&8698:OB|
00000160  72 6f 75 74 69 6e 65 3d  26 39 43 30 35 3a 4f 42  |routine=&9C05:OB|
00000170  72 6f 75 74 32 3d 26 38  43 31 30 3a 4f 42 72 6f  |rout2=&8C10:OBro|
00000180  75 74 33 3d 26 39 39 41  39 3a 42 32 72 6f 75 74  |ut3=&99A9:B2rout|
00000190  69 6e 65 3d 26 41 30 30  30 3a 45 56 45 4e 54 3d  |ine=&A000:EVENT=|
000001a0  26 41 41 41 45 3a 6d 73  62 6c 6f 63 6b 3d 26 38  |&AAAE:msblock=&8|
000001b0  30 32 30 0d 00 32 6b 20  4f 53 42 59 54 45 3d 26  |020..2k OSBYTE=&|
000001c0  46 46 46 34 3a 4f 53 57  4f 52 44 3d 26 46 46 46  |FFF4:OSWORD=&FFF|
000001d0  31 3a 4f 53 46 49 4c 45  3d 26 46 46 44 44 3a 4f  |1:OSFILE=&FFDD:O|
000001e0  53 42 47 45 54 3d 26 46  46 44 37 3a 4f 53 42 50  |SBGET=&FFD7:OSBP|
000001f0  55 54 3d 26 46 46 44 34  3a 4f 53 46 49 4e 44 3d  |UT=&FFD4:OSFIND=|
00000200  26 46 46 43 45 3a 4f 53  41 53 43 49 3d 26 46 46  |&FFCE:OSASCI=&FF|
00000210  45 33 3a 6f 73 63 6c 69  3d 26 46 46 46 37 0d 00  |E3:oscli=&FFF7..|
00000220  3c 26 20 e3 70 61 73 73  3d 30 20 b8 20 32 20 88  |<& .pass=0 . 2 .|
00000230  20 32 3a 50 25 3d 26 32  30 30 30 3a 5b 4f 50 54  | 2:P%=&2000:[OPT|
00000240  70 61 73 73 0d 00 46 66  20 4c 44 41 23 30 3a 53  |pass..Ff LDA#0:S|
00000250  54 41 26 46 43 44 43 3a  53 54 41 26 46 43 44 45  |TA&FCDC:STA&FCDE|
00000260  3a 4c 44 41 23 31 35 3a  53 54 41 26 46 34 3a 53  |:LDA#15:STA&F4:S|
00000270  54 41 26 46 45 30 35 3a  4c 44 58 23 32 3a 53 45  |TA&FE05:LDX#2:SE|
00000280  49 3a 2e 74 65 73 74 20  54 58 41 3a 53 54 41 26  |I:.test TXA:STA&|
00000290  46 34 3a 53 54 41 26 46  45 30 35 3a 4c 44 41 23  |F4:STA&FE05:LDA#|
000002a0  30 3a 4c 44 41 26 38 38  30 30 0d 00 50 37 20 49  |0:LDA&8800..P7 I|
000002b0  4e 43 26 38 38 30 30 3a  43 4d 50 26 38 38 30 30  |NC&8800:CMP&8800|
000002c0  3a 42 4e 45 66 6f 75 6e  64 3a 44 45 58 3a 44 45  |:BNEfound:DEX:DE|
000002d0  58 3a 42 50 4c 74 65 73  74 3a 4c 44 58 23 26 46  |X:BPLtest:LDX#&F|
000002e0  46 0d 00 5a 3e 20 2e 66  6f 75 6e 64 20 44 45 43  |F..Z> .found DEC|
000002f0  26 38 38 30 30 3a 43 4c  49 3a 53 54 58 62 61 6e  |&8800:CLI:STXban|
00000300  6b 31 2b 31 3a 49 4e 58  3a 53 54 58 62 61 6e 6b  |k1+1:INX:STXbank|
00000310  32 2b 31 3a 53 54 58 65  76 72 6f 75 74 2b 33 0d  |2+1:STXevrout+3.|
00000320  00 64 ef 20 2e 42 41 53  49 43 72 6f 6d 20 4c 44  |.d. .BASICrom LD|
00000330  41 23 31 31 3a 53 54 41  26 46 34 3a 53 54 41 26  |A#11:STA&F4:STA&|
00000340  46 45 30 35 3a 4c 44 41  23 30 3a 53 54 41 26 37  |FE05:LDA#0:STA&7|
00000350  30 3a 53 54 41 26 37 32  3a 53 54 41 26 37 34 3a  |0:STA&72:STA&74:|
00000360  4c 44 41 23 26 38 30 3a  53 54 41 26 37 31 3a 4c  |LDA#&80:STA&71:L|
00000370  44 41 23 26 34 30 3a 53  54 41 26 37 33 3a 4c 44  |DA#&40:STA&73:LD|
00000380  41 23 26 41 30 3a 53 54  41 26 37 35 3a 4a 53 52  |A#&A0:STA&75:JSR|
00000390  6d 6f 76 65 6c 6f 6f 70  32 3a 4c 44 41 23 31 35  |moveloop2:LDA#15|
000003a0  3a 53 54 41 26 46 34 3a  53 54 41 26 46 45 30 35  |:STA&F4:STA&FE05|
000003b0  3a 4a 53 52 62 61 6e 6b  31 3a 4c 44 41 23 30 3a  |:JSRbank1:LDA#0:|
000003c0  53 54 41 26 37 30 3a 53  54 41 26 37 32 3a 53 54  |STA&70:STA&72:ST|
000003d0  41 26 37 34 3a 4c 44 41  23 26 34 30 3a 53 54 41  |A&74:LDA#&40:STA|
000003e0  26 37 31 3a 4c 44 41 23  26 38 30 3a 53 54 41 26  |&71:LDA#&80:STA&|
000003f0  37 33 3a 4c 44 41 23 26  36 30 3a 53 54 41 26 37  |73:LDA#&60:STA&7|
00000400  35 3a 4a 53 52 6d 6f 76  65 6c 6f 6f 70 32 0d 00  |5:JSRmoveloop2..|
00000410  6e e4 4c 44 41 23 31 31  3a 53 54 41 26 46 34 3a  |n.LDA#11:STA&F4:|
00000420  53 54 41 26 46 45 30 35  3a 4c 44 41 23 30 3a 53  |STA&FE05:LDA#0:S|
00000430  54 41 26 37 30 3a 53 54  41 26 37 32 3a 53 54 41  |TA&70:STA&72:STA|
00000440  26 37 34 3a 4c 44 41 23  26 41 30 3a 53 54 41 26  |&74:LDA#&A0:STA&|
00000450  37 31 3a 4c 44 41 23 26  34 30 3a 53 54 41 26 37  |71:LDA#&40:STA&7|
00000460  33 3a 4c 44 41 23 26 43  30 3a 53 54 41 26 37 35  |3:LDA#&C0:STA&75|
00000470  3a 4a 53 52 6d 6f 76 65  6c 6f 6f 70 32 3a 4c 44  |:JSRmoveloop2:LD|
00000480  41 23 31 35 3a 53 54 41  26 46 34 3a 53 54 41 26  |A#15:STA&F4:STA&|
00000490  46 45 30 35 3a 4a 53 52  62 61 6e 6b 31 3a 4c 44  |FE05:JSRbank1:LD|
000004a0  41 23 30 3a 53 54 41 26  37 30 3a 53 54 41 26 37  |A#0:STA&70:STA&7|
000004b0  32 3a 53 54 41 26 37 34  3a 4c 44 41 23 26 34 30  |2:STA&74:LDA#&40|
000004c0  3a 53 54 41 26 37 31 3a  4c 44 41 23 26 41 30 3a  |:STA&71:LDA#&A0:|
000004d0  53 54 41 26 37 33 3a 4c  44 41 23 26 36 30 3a 53  |STA&73:LDA#&60:S|
000004e0  54 41 26 37 35 3a 4a 53  52 6d 6f 76 65 6c 6f 6f  |TA&75:JSRmoveloo|
000004f0  70 32 0d 00 78 aa 20 2e  62 61 6e 6b 32 65 6e 74  |p2..x. .bank2ent|
00000500  72 79 20 4a 53 52 62 61  6e 6b 32 3a 4c 44 41 23  |ry JSRbank2:LDA#|
00000510  28 65 6e 74 65 72 20 83  32 35 36 29 3a 53 54 41  |(enter .256):STA|
00000520  26 37 30 3a 4c 44 41 23  28 65 6e 74 65 72 20 81  |&70:LDA#(enter .|
00000530  32 35 36 29 3a 53 54 41  26 37 31 3a 4c 44 59 23  |256):STA&71:LDY#|
00000540  30 3a 4c 44 41 23 26 34  43 3a 53 54 41 28 26 37  |0:LDA#&4C:STA(&7|
00000550  30 29 2c 59 3a 49 4e 59  3a 4c 44 41 23 28 42 32  |0),Y:INY:LDA#(B2|
00000560  72 6f 75 74 69 6e 65 20  83 32 35 36 29 3a 53 54  |routine .256):ST|
00000570  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 4c 44 41  |A(&70),Y:INY:LDA|
00000580  23 28 42 32 72 6f 75 74  69 6e 65 20 81 32 35 36  |#(B2routine .256|
00000590  29 3a 53 54 41 28 26 37  30 29 2c 59 0d 00 82 a5  |):STA(&70),Y....|
000005a0  20 2e 65 76 65 6e 74 65  6e 74 72 79 20 4c 44 41  | .evententry LDA|
000005b0  23 28 65 6e 74 65 72 65  76 20 83 32 35 36 29 3a  |#(enterev .256):|
000005c0  53 54 41 26 37 30 3a 4c  44 41 23 28 65 6e 74 65  |STA&70:LDA#(ente|
000005d0  72 65 76 20 81 32 35 36  29 3a 53 54 41 26 37 31  |rev .256):STA&71|
000005e0  3a 4c 44 59 23 30 3a 4c  44 41 23 26 34 43 3a 53  |:LDY#0:LDA#&4C:S|
000005f0  54 41 28 26 37 30 29 2c  59 3a 49 4e 59 3a 4c 44  |TA(&70),Y:INY:LD|
00000600  41 23 28 65 76 72 6f 75  74 69 6e 65 20 83 32 35  |A#(evroutine .25|
00000610  36 29 3a 53 54 41 28 26  37 30 29 2c 59 3a 49 4e  |6):STA(&70),Y:IN|
00000620  59 3a 4c 44 41 23 28 65  76 72 6f 75 74 69 6e 65  |Y:LDA#(evroutine|
00000630  20 81 32 35 36 29 3a 53  54 41 28 26 37 30 29 2c  | .256):STA(&70),|
00000640  59 0d 00 8c b4 20 2e 62  61 6e 6b 32 6d 61 69 6e  |Y.... .bank2main|
00000650  20 4c 44 41 23 28 73 74  61 72 74 20 83 32 35 36  | LDA#(start .256|
00000660  29 3a 53 54 41 26 37 30  3a 4c 44 41 23 28 73 74  |):STA&70:LDA#(st|
00000670  61 72 74 20 81 32 35 36  29 3a 53 54 41 26 37 31  |art .256):STA&71|
00000680  3a 4c 44 41 23 28 62 61  6e 6b 31 20 83 32 35 36  |:LDA#(bank1 .256|
00000690  29 3a 53 54 41 26 37 34  3a 4c 44 41 23 28 62 61  |):STA&74:LDA#(ba|
000006a0  6e 6b 31 20 81 32 35 36  29 3a 53 54 41 26 37 35  |nk1 .256):STA&75|
000006b0  3a 4c 44 41 23 28 42 32  72 6f 75 74 69 6e 65 20  |:LDA#(B2routine |
000006c0  83 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  |.256):STA&72:LDA|
000006d0  23 28 42 32 72 6f 75 74  69 6e 65 20 81 32 35 36  |#(B2routine .256|
000006e0  29 3a 53 54 41 26 37 33  3a 4a 53 52 6d 6f 76 65  |):STA&73:JSRmove|
000006f0  6c 6f 6f 70 32 0d 00 96  61 20 2e 41 44 46 53 64  |loop2...a .ADFSd|
00000700  61 74 61 20 4c 44 41 23  30 3a 53 54 41 26 37 30  |ata LDA#0:STA&70|
00000710  3a 53 54 41 26 37 32 3a  53 54 41 26 37 34 3a 4c  |:STA&72:STA&74:L|
00000720  44 41 23 39 3a 53 54 41  26 37 31 3a 4c 44 41 23  |DA#9:STA&71:LDA#|
00000730  26 38 39 3a 53 54 41 26  37 33 3a 4c 44 41 23 26  |&89:STA&73:LDA#&|
00000740  31 44 3a 53 54 41 26 37  35 3a 4a 53 52 6d 6f 76  |1D:STA&75:JSRmov|
00000750  65 6c 6f 6f 70 32 0d 00  a0 d7 20 2e 62 31 72 65  |eloop2.... .b1re|
00000760  74 75 72 6e 20 4c 44 41  23 28 62 61 6e 6b 31 20  |turn LDA#(bank1 |
00000770  83 32 35 36 29 3a 53 54  41 26 37 30 3a 4c 44 41  |.256):STA&70:LDA|
00000780  23 28 62 61 6e 6b 31 20  81 32 35 36 29 3a 53 54  |#(bank1 .256):ST|
00000790  41 26 37 31 3a 4c 44 41  23 28 42 41 43 4b 2d 28  |A&71:LDA#(BACK-(|
000007a0  6f 73 62 79 74 65 2d 62  61 6e 6b 31 2d 31 29 29  |osbyte-bank1-1))|
000007b0  20 83 32 35 36 29 3a 53  54 41 26 37 32 3a 4c 44  | .256):STA&72:LD|
000007c0  41 23 28 42 41 43 4b 2d  28 6f 73 62 79 74 65 2d  |A#(BACK-(osbyte-|
000007d0  62 61 6e 6b 31 2d 31 29  29 20 81 32 35 36 29 3a  |bank1-1)) .256):|
000007e0  53 54 41 26 37 33 3a 4c  44 41 23 28 28 6f 73 62  |STA&73:LDA#((osb|
000007f0  79 74 65 2d 31 29 20 83  32 35 36 29 3a 53 54 41  |yte-1) .256):STA|
00000800  26 37 34 3a 4c 44 41 23  28 28 6f 73 62 79 74 65  |&74:LDA#((osbyte|
00000810  2d 31 29 20 81 32 35 36  29 3a 53 54 41 26 37 35  |-1) .256):STA&75|
00000820  3a 4a 53 52 6d 6f 76 65  6c 6f 6f 70 32 0d 00 aa  |:JSRmoveloop2...|
00000830  c2 20 2e 62 31 6f 73 62  79 74 65 20 4a 53 52 62  |. .b1osbyte JSRb|
00000840  61 6e 6b 31 3a 4c 44 41  23 28 6f 73 62 79 74 65  |ank1:LDA#(osbyte|
00000850  20 83 32 35 36 29 3a 53  54 41 26 37 30 3a 4c 44  | .256):STA&70:LD|
00000860  41 23 28 6f 73 62 79 74  65 20 81 32 35 36 29 3a  |A#(osbyte .256):|
00000870  53 54 41 26 37 31 3a 4c  44 41 23 28 4f 42 72 6f  |STA&71:LDA#(OBro|
00000880  75 74 69 6e 65 20 83 32  35 36 29 3a 53 54 41 26  |utine .256):STA&|
00000890  37 32 3a 4c 44 41 23 28  4f 42 72 6f 75 74 69 6e  |72:LDA#(OBroutin|
000008a0  65 20 81 32 35 36 29 3a  53 54 41 26 37 33 3a 4c  |e .256):STA&73:L|
000008b0  44 41 23 28 6f 73 62 79  74 65 32 20 83 32 35 36  |DA#(osbyte2 .256|
000008c0  29 3a 53 54 41 26 37 34  3a 4c 44 41 23 28 6f 73  |):STA&74:LDA#(os|
000008d0  62 79 74 65 32 20 81 32  35 36 29 3a 53 54 41 26  |byte2 .256):STA&|
000008e0  37 35 3a 4a 53 52 6d 6f  76 65 6c 6f 6f 70 32 0d  |75:JSRmoveloop2.|
000008f0  00 b4 b8 20 2e 62 31 6f  73 62 79 74 65 32 20 4c  |... .b1osbyte2 L|
00000900  44 41 23 28 6f 73 62 79  74 65 32 20 83 32 35 36  |DA#(osbyte2 .256|
00000910  29 3a 53 54 41 26 37 30  3a 4c 44 41 23 28 6f 73  |):STA&70:LDA#(os|
00000920  62 79 74 65 32 20 81 32  35 36 29 3a 53 54 41 26  |byte2 .256):STA&|
00000930  37 31 3a 4c 44 41 23 28  4f 42 72 6f 75 74 32 20  |71:LDA#(OBrout2 |
00000940  83 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  |.256):STA&72:LDA|
00000950  23 28 4f 42 72 6f 75 74  32 20 81 32 35 36 29 3a  |#(OBrout2 .256):|
00000960  53 54 41 26 37 33 3a 4c  44 41 23 28 6f 73 62 79  |STA&73:LDA#(osby|
00000970  74 65 33 20 83 32 35 36  29 3a 53 54 41 26 37 34  |te3 .256):STA&74|
00000980  3a 4c 44 41 23 28 6f 73  62 79 74 65 33 20 81 32  |:LDA#(osbyte3 .2|
00000990  35 36 29 3a 53 54 41 26  37 35 3a 4a 53 52 6d 6f  |56):STA&75:JSRmo|
000009a0  76 65 6c 6f 6f 70 32 0d  00 be b2 20 2e 62 31 6f  |veloop2.... .b1o|
000009b0  73 62 79 74 65 33 20 4c  44 41 23 28 6f 73 62 79  |sbyte3 LDA#(osby|
000009c0  74 65 33 20 83 32 35 36  29 3a 53 54 41 26 37 30  |te3 .256):STA&70|
000009d0  3a 4c 44 41 23 28 6f 73  62 79 74 65 33 20 81 32  |:LDA#(osbyte3 .2|
000009e0  35 36 29 3a 53 54 41 26  37 31 3a 4c 44 41 23 28  |56):STA&71:LDA#(|
000009f0  4f 42 72 6f 75 74 33 20  83 32 35 36 29 3a 53 54  |OBrout3 .256):ST|
00000a00  41 26 37 32 3a 4c 44 41  23 28 4f 42 72 6f 75 74  |A&72:LDA#(OBrout|
00000a10  33 20 81 32 35 36 29 3a  53 54 41 26 37 33 3a 4c  |3 .256):STA&73:L|
00000a20  44 41 23 28 66 69 6c 65  20 83 32 35 36 29 3a 53  |DA#(file .256):S|
00000a30  54 41 26 37 34 3a 4c 44  41 23 28 66 69 6c 65 20  |TA&74:LDA#(file |
00000a40  81 32 35 36 29 3a 53 54  41 26 37 35 3a 4a 53 52  |.256):STA&75:JSR|
00000a50  6d 6f 76 65 6c 6f 6f 70  32 0d 00 c8 b5 20 2e 62  |moveloop2.... .b|
00000a60  31 6f 73 66 69 6c 65 20  4c 44 41 23 28 66 69 6c  |1osfile LDA#(fil|
00000a70  65 20 83 32 35 36 29 3a  53 54 41 26 37 30 3a 4c  |e .256):STA&70:L|
00000a80  44 41 23 28 66 69 6c 65  20 81 32 35 36 29 3a 53  |DA#(file .256):S|
00000a90  54 41 26 37 31 3a 4c 44  41 23 28 4f 46 49 4c 45  |TA&71:LDA#(OFILE|
00000aa0  20 83 32 35 36 29 3a 53  54 41 26 37 32 3a 4c 44  | .256):STA&72:LD|
00000ab0  41 23 28 4f 46 49 4c 45  20 81 32 35 36 29 3a 53  |A#(OFILE .256):S|
00000ac0  54 41 26 37 33 3a 4c 44  41 23 28 28 66 69 6c 65  |TA&73:LDA#((file|
00000ad0  72 65 74 2d 31 29 20 83  32 35 36 29 3a 53 54 41  |ret-1) .256):STA|
00000ae0  26 37 34 3a 4c 44 41 23  28 28 66 69 6c 65 72 65  |&74:LDA#((filere|
00000af0  74 2d 31 29 20 81 32 35  36 29 3a 53 54 41 26 37  |t-1) .256):STA&7|
00000b00  35 3a 4a 53 52 6d 6f 76  65 6c 6f 6f 70 32 0d 00  |5:JSRmoveloop2..|
00000b10  d2 b0 20 2e 62 31 66 69  6c 65 72 65 74 20 4c 44  |.. .b1fileret LD|
00000b20  41 23 28 66 69 6c 65 72  65 74 20 83 32 35 36 29  |A#(fileret .256)|
00000b30  3a 53 54 41 26 37 30 3a  4c 44 41 23 28 66 69 6c  |:STA&70:LDA#(fil|
00000b40  65 72 65 74 20 81 32 35  36 29 3a 53 54 41 26 37  |eret .256):STA&7|
00000b50  31 3a 4c 44 41 23 28 42  41 43 4b 20 83 32 35 36  |1:LDA#(BACK .256|
00000b60  29 3a 53 54 41 26 37 32  3a 4c 44 41 23 28 42 41  |):STA&72:LDA#(BA|
00000b70  43 4b 20 81 32 35 36 29  3a 53 54 41 26 37 33 3a  |CK .256):STA&73:|
00000b80  4c 44 41 23 28 65 76 72  6f 75 74 20 83 32 35 36  |LDA#(evrout .256|
00000b90  29 3a 53 54 41 26 37 34  3a 4c 44 41 23 28 65 76  |):STA&74:LDA#(ev|
00000ba0  72 6f 75 74 20 81 32 35  36 29 3a 53 54 41 26 37  |rout .256):STA&7|
00000bb0  35 3a 4a 53 52 6d 6f 76  65 6c 6f 6f 70 32 0d 00  |5:JSRmoveloop2..|
00000bc0  dc ac 20 2e 62 31 65 76  65 6e 74 20 4c 44 41 23  |.. .b1event LDA#|
00000bd0  28 65 76 72 6f 75 74 20  83 32 35 36 29 3a 53 54  |(evrout .256):ST|
00000be0  41 26 37 30 3a 4c 44 41  23 28 65 76 72 6f 75 74  |A&70:LDA#(evrout|
00000bf0  20 81 32 35 36 29 3a 53  54 41 26 37 31 3a 4c 44  | .256):STA&71:LD|
00000c00  41 23 28 45 56 45 4e 54  20 83 32 35 36 29 3a 53  |A#(EVENT .256):S|
00000c10  54 41 26 37 32 3a 4c 44  41 23 28 45 56 45 4e 54  |TA&72:LDA#(EVENT|
00000c20  20 81 32 35 36 29 3a 53  54 41 26 37 33 3a 4c 44  | .256):STA&73:LD|
00000c30  41 23 28 65 76 65 6e 64  20 83 32 35 36 29 3a 53  |A#(evend .256):S|
00000c40  54 41 26 37 34 3a 4c 44  41 23 28 65 76 65 6e 64  |TA&74:LDA#(evend|
00000c50  20 81 32 35 36 29 3a 53  54 41 26 37 35 3a 4a 53  | .256):STA&75:JS|
00000c60  52 6d 6f 76 65 6c 6f 6f  70 32 0d 00 e6 6a 20 2e  |Rmoveloop2...j .|
00000c70  70 61 67 65 20 4c 44 41  23 30 3a 53 54 41 26 37  |page LDA#0:STA&7|
00000c80  30 3a 53 54 41 26 37 32  3a 4c 44 41 26 31 38 3a  |0:STA&72:LDA&18:|
00000c90  53 54 41 26 37 31 3a 4c  44 41 23 26 45 3a 53 54  |STA&71:LDA#&E:ST|
00000ca0  41 26 37 33 3a 53 54 41  26 31 38 3a 4c 44 41 26  |A&73:STA&18:LDA&|
00000cb0  31 32 3a 53 54 41 26 37  34 3a 4c 44 41 26 31 33  |12:STA&74:LDA&13|
00000cc0  3a 53 54 41 26 37 35 3a  4a 53 52 6d 6f 76 65 6c  |:STA&75:JSRmovel|
00000cd0  6f 6f 70 32 0d 00 f0 67  20 2e 6c 61 6e 67 52 4f  |oop2...g .langRO|
00000ce0  4d 20 4c 44 41 62 61 6e  6b 31 2b 31 3a 53 54 41  |M LDAbank1+1:STA|
00000cf0  26 32 38 43 3a 43 4c 43  3a 41 44 43 23 26 41 30  |&28C:CLC:ADC#&A0|
00000d00  3a 53 54 41 26 37 30 3a  4c 44 41 23 32 3a 53 54  |:STA&70:LDA#2:ST|
00000d10  41 26 37 31 3a 4c 44 59  23 30 3a 4c 44 41 23 26  |A&71:LDY#0:LDA#&|
00000d20  36 30 3a 53 54 41 28 26  37 30 29 2c 59 3a 4c 44  |60:STA(&70),Y:LD|
00000d30  41 23 30 3a 53 54 41 26  32 41 42 0d 00 fa b3 20  |A#0:STA&2AB.... |
00000d40  2e 76 65 63 74 20 4c 44  41 26 32 30 41 3a 53 54  |.vect LDA&20A:ST|
00000d50  41 4f 42 72 6f 75 74 32  2b 38 3a 4c 44 41 26 32  |AOBrout2+8:LDA&2|
00000d60  30 42 3a 53 54 41 4f 42  72 6f 75 74 32 2b 39 3a  |0B:STAOBrout2+9:|
00000d70  4a 53 52 62 61 6e 6b 32  3a 4c 44 41 26 32 30 41  |JSRbank2:LDA&20A|
00000d80  3a 53 54 41 6f 73 62 79  74 65 4c 4f 3a 4c 44 41  |:STAosbyteLO:LDA|
00000d90  26 32 30 42 3a 53 54 41  6f 73 62 79 74 65 48 49  |&20B:STAosbyteHI|
00000da0  3a 4c 44 41 26 32 31 32  3a 53 54 41 6f 73 66 69  |:LDA&212:STAosfi|
00000db0  6c 65 4c 4f 3a 4c 44 41  26 32 31 33 3a 53 54 41  |leLO:LDA&213:STA|
00000dc0  6f 73 66 69 6c 65 48 49  3a 4c 44 41 26 32 31 45  |osfileHI:LDA&21E|
00000dd0  3a 53 54 41 6f 73 66 73  63 4c 4f 3a 4c 44 41 26  |:STAosfscLO:LDA&|
00000de0  32 31 46 3a 53 54 41 6f  73 66 73 63 48 49 0d 01  |21F:STAosfscHI..|
00000df0  04 7f 20 4c 44 41 26 32  30 34 3a 53 54 41 69 6e  |.. LDA&204:STAin|
00000e00  74 65 72 4c 4f 3a 4c 44  41 26 32 30 35 3a 53 54  |terLO:LDA&205:ST|
00000e10  41 69 6e 74 65 72 48 49  3a 4c 44 41 26 32 32 30  |AinterHI:LDA&220|
00000e20  3a 53 54 41 65 76 65 6e  74 4c 4f 3a 4c 44 41 26  |:STAeventLO:LDA&|
00000e30  32 32 31 3a 53 54 41 65  76 65 6e 74 48 49 3a 4a  |221:STAeventHI:J|
00000e40  53 52 62 61 6e 6b 31 3a  53 45 49 3a 4a 53 52 76  |SRbank1:SEI:JSRv|
00000e50  65 63 74 6f 72 73 3a 43  4c 49 3a 4c 44 41 23 30  |ectors:CLI:LDA#0|
00000e60  3a 53 54 41 26 46 43 44  44 3a 52 54 53 0d 01 0e  |:STA&FCDD:RTS...|
00000e70  8d 20 2e 6d 6f 76 65 6c  6f 6f 70 32 20 4c 44 59  |. .moveloop2 LDY|
00000e80  23 30 3a 2e 6c 6f 6f 70  20 4c 44 41 28 26 37 30  |#0:.loop LDA(&70|
00000e90  29 2c 59 3a 53 54 41 28  26 37 32 29 2c 59 3a 49  |),Y:STA(&72),Y:I|
00000ea0  4e 43 26 37 30 3a 42 4e  45 61 3a 49 4e 43 26 37  |NC&70:BNEa:INC&7|
00000eb0  31 3a 2e 61 20 49 4e 43  26 37 32 3a 42 4e 45 62  |1:.a INC&72:BNEb|
00000ec0  3a 49 4e 43 26 37 33 3a  2e 62 20 4c 44 41 26 37  |:INC&73:.b LDA&7|
00000ed0  30 3a 43 4d 50 26 37 34  3a 42 4e 45 6c 6f 6f 70  |0:CMP&74:BNEloop|
00000ee0  3a 4c 44 41 26 37 31 3a  43 4d 50 26 37 35 3a 42  |:LDA&71:CMP&75:B|
00000ef0  4e 45 6c 6f 6f 70 3a 52  54 53 0d 01 18 2d 20 5d  |NEloop:RTS...- ]|
00000f00  3a 4f 25 3d 50 25 3a 73  74 61 72 74 3d 4f 25 3a  |:O%=P%:start=O%:|
00000f10  50 25 3d 42 32 72 6f 75  74 69 6e 65 3a 5b 4f 50  |P%=B2routine:[OP|
00000f20  54 70 61 73 73 2b 34 0d  01 22 ae 20 4c 44 41 23  |Tpass+4..". LDA#|
00000f30  30 3a 41 44 43 23 30 3a  50 48 41 3a 53 45 49 3a  |0:ADC#0:PHA:SEI:|
00000f40  4a 53 52 76 65 63 6e 6f  72 6d 3a 43 4c 49 3a 4a  |JSRvecnorm:CLI:J|
00000f50  4d 50 63 6f 6e 74 3a 2e  76 65 63 6e 6f 72 6d 20  |MPcont:.vecnorm |
00000f60  4c 44 41 6f 73 66 73 63  4c 4f 3a 53 54 41 26 32  |LDAosfscLO:STA&2|
00000f70  31 45 3a 4c 44 41 6f 73  66 73 63 48 49 3a 53 54  |1E:LDAosfscHI:ST|
00000f80  41 26 32 31 46 3a 4c 44  41 6f 73 66 69 6c 65 4c  |A&21F:LDAosfileL|
00000f90  4f 3a 53 54 41 26 32 31  32 3a 4c 44 41 6f 73 66  |O:STA&212:LDAosf|
00000fa0  69 6c 65 48 49 3a 53 54  41 26 32 31 33 3a 4c 44  |ileHI:STA&213:LD|
00000fb0  41 6f 73 62 79 74 65 4c  4f 3a 53 54 41 26 32 30  |AosbyteLO:STA&20|
00000fc0  41 3a 4c 44 41 6f 73 62  79 74 65 48 49 3a 53 54  |A:LDAosbyteHI:ST|
00000fd0  41 26 32 30 42 0d 01 2c  7c 20 4c 44 41 65 76 65  |A&20B..,| LDAeve|
00000fe0  6e 74 4c 4f 3a 53 54 41  26 32 32 30 3a 4c 44 41  |ntLO:STA&220:LDA|
00000ff0  65 76 65 6e 74 48 49 3a  53 54 41 26 32 32 31 3a  |eventHI:STA&221:|
00001000  4c 44 41 26 32 30 34 3a  53 54 41 69 6e 74 65 72  |LDA&204:STAinter|
00001010  6e 65 77 4c 4f 3a 4c 44  41 26 32 30 35 3a 53 54  |newLO:LDA&205:ST|
00001020  41 69 6e 74 65 72 6e 65  77 48 49 3a 4c 44 41 69  |AinternewHI:LDAi|
00001030  6e 74 65 72 4c 4f 3a 53  54 41 26 32 30 34 3a 4c  |nterLO:STA&204:L|
00001040  44 41 69 6e 74 65 72 48  49 3a 53 54 41 26 32 30  |DAinterHI:STA&20|
00001050  35 0d 01 36 68 20 53 54  58 65 6e 64 61 64 64 3a  |5..6h STXendadd:|
00001060  4c 44 58 23 30 3a 2e 73  61 76 65 76 61 72 73 20  |LDX#0:.savevars |
00001070  4c 44 41 26 37 30 2c 58  3a 53 54 41 74 65 6d 70  |LDA&70,X:STAtemp|
00001080  73 74 6f 72 65 2c 58 3a  49 4e 58 3a 43 50 58 23  |store,X:INX:CPX#|
00001090  36 3a 42 4e 45 73 61 76  65 76 61 72 73 3a 53 54  |6:BNEsavevars:ST|
000010a0  59 26 37 35 3a 4c 44 58  65 6e 64 61 64 64 3a 53  |Y&75:LDXendadd:S|
000010b0  54 58 26 37 34 3a 52 54  53 0d 01 4a 25 20 2e 63  |TX&74:RTS..J% .c|
000010c0  6f 6e 74 20 50 4c 41 3a  42 45 51 66 69 6c 65 72  |ont PLA:BEQfiler|
000010d0  6f 75 74 3a 4a 4d 50 66  73 63 72 6f 75 74 0d 01  |out:JMPfscrout..|
000010e0  54 56 20 2e 66 69 6c 65  72 6f 75 74 20 4c 44 59  |TV .filerout LDY|
000010f0  23 30 3a 4c 44 41 28 26  37 34 29 2c 59 3a 54 41  |#0:LDA(&74),Y:TA|
00001100  58 3a 49 4e 59 3a 4c 44  41 28 26 37 34 29 2c 59  |X:INY:LDA(&74),Y|
00001110  3a 53 54 58 26 37 30 3a  53 54 41 26 37 31 3a 44  |:STX&70:STA&71:D|
00001120  45 59 3a 4a 53 52 66 69  6c 65 6e 61 6d 65 3a 4c  |EY:JSRfilename:L|
00001130  44 58 23 30 0d 01 5e a9  20 2e 6c 6f 61 64 20 4c  |DX#0..^. .load L|
00001140  44 41 23 30 3a 53 54 41  26 37 30 3a 53 54 41 26  |DA#0:STA&70:STA&|
00001150  37 32 3a 4c 44 41 23 39  3a 53 54 41 26 37 31 3a  |72:LDA#9:STA&71:|
00001160  4c 44 41 23 26 41 43 3a  53 54 41 26 37 33 3a 4c  |LDA#&AC:STA&73:L|
00001170  44 41 23 26 31 44 3a 53  54 41 65 6e 64 61 64 64  |DA#&1D:STAendadd|
00001180  3a 4c 44 59 23 30 3a 4a  53 52 6d 6f 76 65 6c 6f  |:LDY#0:JSRmovelo|
00001190  6f 70 3a 4c 44 41 23 26  38 39 3a 53 54 41 26 37  |op:LDA#&89:STA&7|
000011a0  31 3a 4c 44 41 23 39 3a  53 54 41 26 37 33 3a 4c  |1:LDA#9:STA&73:L|
000011b0  44 41 23 26 39 44 3a 53  54 41 65 6e 64 61 64 64  |DA#&9D:STAendadd|
000011c0  3a 4c 44 59 23 30 3a 4a  53 52 6d 6f 76 65 6c 6f  |:LDY#0:JSRmovelo|
000011d0  6f 70 3a 4a 4d 50 6c 6f  61 64 61 64 64 0d 01 68  |op:JMPloadadd..h|
000011e0  63 20 2e 6d 6f 76 65 6c  6f 6f 70 20 4c 44 41 28  |c .moveloop LDA(|
000011f0  26 37 30 29 2c 59 3a 53  54 41 28 26 37 32 29 2c  |&70),Y:STA(&72),|
00001200  59 3a 49 4e 59 3a 42 4e  45 6d 6f 76 65 6c 6f 6f  |Y:INY:BNEmoveloo|
00001210  70 3a 49 4e 43 26 37 31  3a 49 4e 43 26 37 33 3a  |p:INC&71:INC&73:|
00001220  4c 44 41 26 37 31 3a 43  4d 50 65 6e 64 61 64 64  |LDA&71:CMPendadd|
00001230  3a 42 4e 45 6d 6f 76 65  6c 6f 6f 70 3a 52 54 53  |:BNEmoveloop:RTS|
00001240  0d 01 72 e3 20 2e 6c 6f  61 64 61 64 64 20 4c 44  |..r. .loadadd LD|
00001250  41 23 30 3a 53 54 41 26  41 30 30 3a 4c 44 41 23  |A#0:STA&A00:LDA#|
00001260  26 42 3a 53 54 41 26 41  30 31 3a 53 54 58 65 6e  |&B:STA&A01:STXen|
00001270  64 61 64 64 3a 43 50 58  23 31 3a 42 45 51 66 69  |dadd:CPX#1:BEQfi|
00001280  6e 64 61 64 64 3a 4c 44  41 23 30 3a 53 54 41 26  |ndadd:LDA#0:STA&|
00001290  37 32 3a 4c 44 41 23 26  41 3a 53 54 41 26 37 33  |72:LDA#&A:STA&73|
000012a0  3a 4c 44 41 26 37 34 3a  53 54 41 26 37 30 3a 4c  |:LDA&74:STA&70:L|
000012b0  44 41 23 33 3a 53 54 41  65 6e 64 61 64 64 3a 4c  |DA#3:STAendadd:L|
000012c0  44 41 26 37 35 3a 4c 44  59 23 30 3a 2e 72 61 6d  |DA&75:LDY#0:.ram|
000012d0  20 43 4d 50 23 26 43 30  3a 42 4e 45 6e 6f 31 3a  | CMP#&C0:BNEno1:|
000012e0  4c 44 41 23 26 31 44 3a  4a 4d 50 73 74 3a 2e 6e  |LDA#&1D:JMPst:.n|
000012f0  6f 31 20 43 4d 50 23 26  31 44 3a 42 43 53 73 74  |o1 CMP#&1D:BCSst|
00001300  3a 43 4d 50 23 39 3a 42  43 43 73 74 3a 43 4c 43  |:CMP#9:BCCst:CLC|
00001310  3a 41 44 43 23 26 41 33  3a 2e 73 74 20 53 54 41  |:ADC#&A3:.st STA|
00001320  26 37 31 0d 01 7c 5e 20  2e 74 72 20 4c 44 41 28  |&71..|^ .tr LDA(|
00001330  26 37 30 29 2c 59 3a 53  54 41 28 26 37 32 29 2c  |&70),Y:STA(&72),|
00001340  59 3a 49 4e 43 26 37 32  3a 4c 44 41 26 37 32 3a  |Y:INC&72:LDA&72:|
00001350  43 4d 50 23 26 31 32 3a  42 45 51 65 78 65 63 3a  |CMP#&12:BEQexec:|
00001360  49 4e 43 26 37 30 3a 42  4e 45 74 72 3a 49 4e 43  |INC&70:BNEtr:INC|
00001370  26 37 31 3a 4c 44 41 26  37 31 3a 4a 4d 50 72 61  |&71:LDA&71:JMPra|
00001380  6d 0d 01 86 8a 20 2e 65  78 65 63 20 4c 44 41 23  |m.... .exec LDA#|
00001390  30 3a 53 54 41 26 41 30  30 3a 4c 44 41 23 26 42  |0:STA&A00:LDA#&B|
000013a0  3a 53 54 41 26 41 30 31  3a 50 4c 41 3a 50 48 41  |:STA&A01:PLA:PHA|
000013b0  3a 42 4e 45 6c 6f 61 64  65 72 3a 4a 4d 50 73 61  |:BNEloader:JMPsa|
000013c0  76 65 3a 2e 6c 6f 61 64  65 72 20 4c 44 41 26 41  |ve:.loader LDA&A|
000013d0  30 36 3a 42 4e 45 66 69  6e 64 61 64 64 3a 4c 44  |06:BNEfindadd:LD|
000013e0  41 26 41 30 32 3a 53 54  41 26 37 30 3a 4c 44 41  |A&A02:STA&70:LDA|
000013f0  26 41 30 33 3a 53 54 41  26 37 31 3a 4c 44 41 23  |&A03:STA&71:LDA#|
00001400  32 3a 53 54 41 65 6e 64  61 64 64 0d 01 90 d3 20  |2:STAendadd.... |
00001410  2e 66 69 6e 64 61 64 64  20 4c 44 41 23 35 3a 4c  |.findadd LDA#5:L|
00001420  44 58 23 30 3a 4c 44 59  23 26 41 3a 4a 53 52 4f  |DX#0:LDY#&A:JSRO|
00001430  53 46 49 4c 45 3a 43 4d  50 23 31 3a 42 45 51 72  |SFILE:CMP#1:BEQr|
00001440  75 6e 3a 4a 4d 50 65 72  72 6f 72 31 3a 2e 72 75  |un:JMPerror1:.ru|
00001450  6e 20 4c 44 58 65 6e 64  61 64 64 3a 43 50 58 23  |n LDXendadd:CPX#|
00001460  31 3a 42 4e 45 6c 61 64  64 72 3a 50 4c 41 3a 53  |1:BNEladdr:PLA:S|
00001470  54 41 26 37 32 3a 50 4c  41 3a 53 54 41 26 37 33  |TA&72:PLA:STA&73|
00001480  3a 4c 44 58 26 41 30 36  3a 4c 44 59 26 41 30 37  |:LDX&A06:LDY&A07|
00001490  3a 44 45 58 3a 43 50 58  23 26 46 46 3a 42 4e 45  |:DEX:CPX#&FF:BNE|
000014a0  73 74 61 63 6b 3a 44 45  59 3a 2e 73 74 61 63 6b  |stack:DEY:.stack|
000014b0  20 54 59 41 3a 50 48 41  3a 54 58 41 3a 50 48 41  | TYA:PHA:TXA:PHA|
000014c0  3a 4c 44 41 26 37 33 3a  50 48 41 3a 4c 44 41 26  |:LDA&73:PHA:LDA&|
000014d0  37 32 3a 50 48 41 3a 4a  4d 50 61 72 65 61 0d 01  |72:PHA:JMParea..|
000014e0  9a ac 20 2e 6c 61 64 64  72 20 43 50 58 23 32 3a  |.. .laddr CPX#2:|
000014f0  42 4e 45 61 72 65 61 3a  4c 44 41 26 37 30 3a 53  |BNEarea:LDA&70:S|
00001500  54 41 26 41 30 32 3a 4c  44 41 26 37 31 3a 53 54  |TA&A02:LDA&71:ST|
00001510  41 26 41 30 33 3a 4c 44  41 23 30 3a 53 54 41 26  |A&A03:LDA#0:STA&|
00001520  41 30 36 3a 2e 61 72 65  61 20 4c 44 41 26 41 30  |A06:.area LDA&A0|
00001530  33 3a 43 4d 50 23 26 31  44 3a 42 43 53 6c 6f 61  |3:CMP#&1D:BCSloa|
00001540  64 32 3a 43 4d 50 23 39  3a 42 43 53 62 79 74 65  |d2:CMP#9:BCSbyte|
00001550  6c 6f 61 64 3a 43 4c 43  3a 4c 44 41 26 41 30 32  |load:CLC:LDA&A02|
00001560  3a 41 44 43 26 41 30 41  3a 4c 44 41 26 41 30 33  |:ADC&A0A:LDA&A03|
00001570  3a 41 44 43 26 41 30 42  3a 43 4d 50 23 39 3a 42  |:ADC&A0B:CMP#9:B|
00001580  43 53 62 79 74 65 6c 6f  61 64 0d 01 a4 31 20 2e  |CSbyteload...1 .|
00001590  6c 6f 61 64 32 20 4c 44  41 23 26 46 46 3a 4c 44  |load2 LDA#&FF:LD|
000015a0  58 23 30 3a 4c 44 59 23  26 41 3a 4a 53 52 4f 53  |X#0:LDY#&A:JSROS|
000015b0  46 49 4c 45 3a 4a 4d 50  65 6e 64 0d 01 ae ed 20  |FILE:JMPend.... |
000015c0  2e 62 79 74 65 6c 6f 61  64 20 4c 44 41 23 26 34  |.byteload LDA#&4|
000015d0  30 3a 4c 44 58 23 30 3a  4c 44 59 23 26 42 3a 4a  |0:LDX#0:LDY#&B:J|
000015e0  53 52 4f 53 46 49 4e 44  3a 54 41 59 3a 43 4d 50  |SROSFIND:TAY:CMP|
000015f0  23 30 3a 42 4e 45 6f 6b  3a 4a 4d 50 65 72 72 6f  |#0:BNEok:JMPerro|
00001600  72 31 3a 2e 6f 6b 20 4c  44 41 26 41 30 32 3a 53  |r1:.ok LDA&A02:S|
00001610  54 41 26 37 30 3a 4c 44  41 26 41 30 33 3a 43 4d  |TA&70:LDA&A03:CM|
00001620  50 23 39 3a 42 43 43 6e  6f 72 6d 3a 43 4c 43 3a  |P#9:BCCnorm:CLC:|
00001630  41 44 43 23 26 41 33 3a  2e 6e 6f 72 6d 20 53 54  |ADC#&A3:.norm ST|
00001640  41 26 37 31 3a 2e 62 67  65 74 20 43 4c 43 3a 4a  |A&71:.bget CLC:J|
00001650  53 52 4f 53 42 47 45 54  3a 42 43 53 65 6e 64 6c  |SROSBGET:BCSendl|
00001660  6f 61 64 3a 53 54 41 28  26 37 30 2c 58 29 3a 49  |oad:STA(&70,X):I|
00001670  4e 43 26 37 30 3a 42 4e  45 62 67 65 74 3a 49 4e  |NC&70:BNEbget:IN|
00001680  43 26 37 31 3a 4c 44 41  26 37 31 3a 43 4d 50 23  |C&71:LDA&71:CMP#|
00001690  26 43 30 3a 42 45 51 73  75 62 3a 43 4d 50 23 39  |&C0:BEQsub:CMP#9|
000016a0  3a 42 4e 45 62 67 65 74  0d 01 b8 57 20 4c 44 41  |:BNEbget...W LDA|
000016b0  23 26 41 43 3a 53 54 41  26 37 31 3a 42 4e 45 62  |#&AC:STA&71:BNEb|
000016c0  67 65 74 3a 2e 73 75 62  20 4c 44 41 23 26 31 44  |get:.sub LDA#&1D|
000016d0  3a 53 54 41 26 37 31 3a  42 4e 45 62 67 65 74 3a  |:STA&71:BNEbget:|
000016e0  2e 65 6e 64 6c 6f 61 64  20 4c 44 41 23 30 3a 4a  |.endload LDA#0:J|
000016f0  53 52 4f 53 46 49 4e 44  3a 4a 4d 50 65 6e 64 0d  |SROSFIND:JMPend.|
00001700  01 c2 4f 20 2e 73 61 76  65 20 4c 44 41 26 41 30  |..O .save LDA&A0|
00001710  42 3a 43 4d 50 23 26 31  44 3a 42 43 53 73 61 76  |B:CMP#&1D:BCSsav|
00001720  65 32 3a 43 4d 50 23 39  3a 42 43 53 62 79 74 65  |e2:CMP#9:BCSbyte|
00001730  73 61 76 65 3a 4c 44 41  26 41 30 46 3a 43 4d 50  |save:LDA&A0F:CMP|
00001740  23 39 3a 42 43 53 62 79  74 65 73 61 76 65 0d 01  |#9:BCSbytesave..|
00001750  cc 2d 20 2e 73 61 76 65  32 20 4c 44 41 23 30 3a  |.- .save2 LDA#0:|
00001760  54 41 58 3a 4c 44 59 23  26 41 3a 4a 53 52 4f 53  |TAX:LDY#&A:JSROS|
00001770  46 49 4c 45 3a 4a 4d 50  65 6e 64 0d 01 d6 c5 20  |FILE:JMPend.... |
00001780  2e 62 79 74 65 73 61 76  65 20 4c 44 41 26 41 30  |.bytesave LDA&A0|
00001790  46 3a 43 4d 50 23 26 31  44 3a 42 43 53 6f 70 65  |F:CMP#&1D:BCSope|
000017a0  6e 6f 75 74 3a 43 4c 43  3a 41 44 43 23 26 41 33  |nout:CLC:ADC#&A3|
000017b0  3a 53 54 41 26 41 30 46  3a 2e 6f 70 65 6e 6f 75  |:STA&A0F:.openou|
000017c0  74 20 4c 44 41 23 26 38  30 3a 4c 44 58 23 30 3a  |t LDA#&80:LDX#0:|
000017d0  4c 44 59 23 26 42 3a 4a  53 52 4f 53 46 49 4e 44  |LDY#&B:JSROSFIND|
000017e0  3a 54 41 59 3a 43 4d 50  23 30 3a 42 4e 45 6f 6b  |:TAY:CMP#0:BNEok|
000017f0  53 3a 4a 4d 50 65 72 72  6f 72 31 3a 2e 6f 6b 53  |S:JMPerror1:.okS|
00001800  20 4c 44 41 26 41 30 41  3a 53 54 41 26 37 30 3a  | LDA&A0A:STA&70:|
00001810  4c 44 41 26 41 30 42 3a  43 4d 50 23 39 3a 42 43  |LDA&A0B:CMP#9:BC|
00001820  43 6e 6f 72 6d 53 3a 43  4c 43 3a 41 44 43 23 26  |CnormS:CLC:ADC#&|
00001830  41 33 3a 2e 6e 6f 72 6d  53 20 53 54 41 26 37 31  |A3:.normS STA&71|
00001840  0d 01 e0 da 20 2e 62 70  75 74 20 4c 44 41 26 37  |.... .bput LDA&7|
00001850  30 3a 43 4d 50 26 41 30  45 3a 42 4e 45 73 61 3a  |0:CMP&A0E:BNEsa:|
00001860  4c 44 41 26 37 31 3a 43  4d 50 26 41 30 46 3a 42  |LDA&71:CMP&A0F:B|
00001870  45 51 65 6e 64 73 61 76  65 3a 2e 73 61 20 4c 44  |EQendsave:.sa LD|
00001880  41 28 26 37 30 2c 58 29  3a 4a 53 52 4f 53 42 50  |A(&70,X):JSROSBP|
00001890  55 54 3a 49 4e 43 26 37  30 3a 42 4e 45 62 70 75  |UT:INC&70:BNEbpu|
000018a0  74 3a 49 4e 43 26 37 31  3a 4c 44 41 26 37 31 3a  |t:INC&71:LDA&71:|
000018b0  43 4d 50 23 26 43 30 3a  42 45 51 73 75 62 53 3a  |CMP#&C0:BEQsubS:|
000018c0  43 4d 50 23 39 3a 42 4e  45 62 70 75 74 3a 4c 44  |CMP#9:BNEbput:LD|
000018d0  41 23 26 41 43 3a 53 54  41 26 37 31 3a 42 4e 45  |A#&AC:STA&71:BNE|
000018e0  62 70 75 74 3a 2e 73 75  62 53 20 4c 44 41 23 26  |bput:.subS LDA#&|
000018f0  31 44 3a 53 54 41 26 37  31 3a 42 4e 45 62 70 75  |1D:STA&71:BNEbpu|
00001900  74 3a 2e 65 6e 64 73 61  76 65 20 4c 44 41 23 30  |t:.endsave LDA#0|
00001910  3a 4a 53 52 4f 53 46 49  4e 44 0d 01 ea 4c 20 4c  |:JSROSFIND...L L|
00001920  44 41 23 31 3a 4c 44 58  23 30 3a 4c 44 59 23 26  |DA#1:LDX#0:LDY#&|
00001930  41 3a 4a 53 52 4f 53 46  49 4c 45 3a 4c 44 41 23  |A:JSROSFILE:LDA#|
00001940  33 3a 53 54 41 26 41 30  45 3a 4c 44 41 23 34 3a  |3:STA&A0E:LDA#4:|
00001950  4c 44 58 23 30 3a 4c 44  59 23 26 41 3a 4a 53 52  |LDX#0:LDY#&A:JSR|
00001960  4f 53 46 49 4c 45 0d 01  f4 97 20 2e 65 6e 64 20  |OSFILE.... .end |
00001970  4c 44 41 23 30 3a 53 54  41 26 37 30 3a 53 54 41  |LDA#0:STA&70:STA|
00001980  26 37 32 3a 4c 44 41 23  39 3a 53 54 41 26 37 31  |&72:LDA#9:STA&71|
00001990  3a 4c 44 41 23 26 38 39  3a 53 54 41 26 37 33 3a  |:LDA#&89:STA&73:|
000019a0  4c 44 41 23 26 31 44 3a  53 54 41 65 6e 64 61 64  |LDA#&1D:STAendad|
000019b0  64 3a 4c 44 59 23 30 3a  4a 53 52 6d 6f 76 65 6c  |d:LDY#0:JSRmovel|
000019c0  6f 6f 70 3a 4c 44 41 23  26 41 43 3a 53 54 41 26  |oop:LDA#&AC:STA&|
000019d0  37 31 3a 4c 44 41 23 39  3a 53 54 41 26 37 33 3a  |71:LDA#9:STA&73:|
000019e0  4c 44 41 23 26 43 30 3a  53 54 41 65 6e 64 61 64  |LDA#&C0:STAendad|
000019f0  64 3a 4a 53 52 6d 6f 76  65 6c 6f 6f 70 0d 01 fe  |d:JSRmoveloop...|
00001a00  29 20 4a 53 52 70 61 75  73 65 3a 2e 77 61 69 74  |) JSRpause:.wait|
00001a10  32 20 4a 53 52 70 61 75  73 65 65 6e 64 3a 42 43  |2 JSRpauseend:BC|
00001a20  43 77 61 69 74 32 0d 02  08 57 20 2e 72 65 74 20  |Cwait2...W .ret |
00001a30  53 45 49 3a 4a 53 52 76  65 63 74 6f 72 73 32 3a  |SEI:JSRvectors2:|
00001a40  4a 53 52 76 61 72 73 3a  43 4c 49 3a 4a 4d 50 20  |JSRvars:CLI:JMP |
00001a50  42 41 43 4b 2d 28 6f 73  62 79 74 65 2d 62 61 6e  |BACK-(osbyte-ban|
00001a60  6b 31 2d 31 29 3a 5d 3a  76 65 63 74 6f 72 73 3d  |k1-1):]:vectors=|
00001a70  4f 25 3a 5b 4f 50 54 70  61 73 73 2b 34 0d 02 12  |O%:[OPTpass+4...|
00001a80  c9 20 2e 76 65 63 74 6f  72 73 32 20 4c 44 41 23  |. .vectors2 LDA#|
00001a90  31 34 3a 4c 44 58 23 30  3a 53 54 58 26 37 30 3a  |14:LDX#0:STX&70:|
00001aa0  2e 65 76 65 6e 61 62 6c  65 20 4c 44 59 23 30 3a  |.evenable LDY#0:|
00001ab0  4a 53 52 4f 53 42 59 54  45 3a 49 4e 43 26 37 30  |JSROSBYTE:INC&70|
00001ac0  3a 4c 44 58 26 37 30 3a  43 50 58 23 31 30 3a 42  |:LDX&70:CPX#10:B|
00001ad0  4e 45 65 76 65 6e 61 62  6c 65 3a 4c 44 41 23 28  |NEevenable:LDA#(|
00001ae0  4f 42 72 6f 75 74 69 6e  65 20 83 32 35 36 29 3a  |OBroutine .256):|
00001af0  53 54 41 26 32 30 41 3a  4c 44 41 23 28 4f 42 72  |STA&20A:LDA#(OBr|
00001b00  6f 75 74 69 6e 65 20 81  32 35 36 29 3a 53 54 41  |outine .256):STA|
00001b10  26 32 30 42 3a 4c 44 41  23 28 4f 46 49 4c 45 20  |&20B:LDA#(OFILE |
00001b20  83 32 35 36 29 3a 53 54  41 26 32 31 32 3a 4c 44  |.256):STA&212:LD|
00001b30  41 23 28 4f 46 49 4c 45  20 81 32 35 36 29 3a 53  |A#(OFILE .256):S|
00001b40  54 41 26 32 31 33 0d 02  1c 6a 20 4c 44 41 23 28  |TA&213...j LDA#(|
00001b50  4f 46 53 43 20 83 32 35  36 29 3a 53 54 41 26 32  |OFSC .256):STA&2|
00001b60  31 45 3a 4c 44 41 23 28  4f 46 53 43 20 81 32 35  |1E:LDA#(OFSC .25|
00001b70  36 29 3a 53 54 41 26 32  31 46 3a 4c 44 41 23 28  |6):STA&21F:LDA#(|
00001b80  45 56 45 4e 54 20 83 32  35 36 29 3a 53 54 41 26  |EVENT .256):STA&|
00001b90  32 32 30 3a 4c 44 41 23  28 45 56 45 4e 54 20 81  |220:LDA#(EVENT .|
00001ba0  32 35 36 29 3a 53 54 41  26 32 32 31 3a 52 54 53  |256):STA&221:RTS|
00001bb0  0d 02 26 6a 20 2e 76 61  72 73 20 4c 44 59 26 37  |..&j .vars LDY&7|
00001bc0  35 3a 4c 44 58 26 37 34  3a 53 54 58 65 6e 64 61  |5:LDX&74:STXenda|
00001bd0  64 64 3a 4c 44 58 23 30  3a 2e 6c 6f 61 64 76 61  |dd:LDX#0:.loadva|
00001be0  72 73 20 4c 44 41 74 65  6d 70 73 74 6f 72 65 2c  |rs LDAtempstore,|
00001bf0  58 3a 53 54 41 26 37 30  2c 58 3a 49 4e 58 3a 43  |X:STA&70,X:INX:C|
00001c00  50 58 23 36 3a 42 4e 45  6c 6f 61 64 76 61 72 73  |PX#6:BNEloadvars|
00001c10  3a 4c 44 58 65 6e 64 61  64 64 0d 02 30 43 20 4c  |:LDXendadd..0C L|
00001c20  44 41 69 6e 74 65 72 6e  65 77 4c 4f 3a 53 54 41  |DAinternewLO:STA|
00001c30  26 32 30 34 3a 4c 44 41  69 6e 74 65 72 6e 65 77  |&204:LDAinternew|
00001c40  48 49 3a 53 54 41 26 32  30 35 3a 4c 44 41 23 30  |HI:STA&205:LDA#0|
00001c50  3a 53 54 41 26 46 43 44  44 3a 52 54 53 0d 02 3a  |:STA&FCDD:RTS..:|
00001c60  c1 20 2e 66 73 63 72 6f  75 74 20 50 4c 41 3a 50  |. .fscrout PLA:P|
00001c70  48 41 3a 42 45 51 72 65  74 3a 43 4d 50 23 34 3a  |HA:BEQret:CMP#4:|
00001c80  42 45 51 66 73 63 3a 43  4d 50 23 32 3a 42 45 51  |BEQfsc:CMP#2:BEQ|
00001c90  66 73 63 3a 4a 53 52 6f  6c 64 4f 53 46 53 43 3a  |fsc:JSRoldOSFSC:|
00001ca0  4c 44 41 26 37 30 3a 53  54 41 26 31 30 44 35 3a  |LDA&70:STA&10D5:|
00001cb0  4c 44 41 26 37 31 3a 53  54 41 26 44 43 43 3a 4c  |LDA&71:STA&DCC:L|
00001cc0  44 41 26 37 32 3a 53 54  41 26 44 43 44 3a 4c 44  |DA&72:STA&DCD:LD|
00001cd0  41 26 37 33 3a 53 54 41  26 44 43 45 3a 4a 4d 50  |A&73:STA&DCE:JMP|
00001ce0  72 65 74 3a 2e 66 73 63  20 4c 44 41 26 37 34 3a  |ret:.fsc LDA&74:|
00001cf0  53 54 41 26 37 30 3a 4c  44 41 26 37 35 3a 53 54  |STA&70:LDA&75:ST|
00001d00  41 26 37 31 3a 4a 53 52  66 69 6c 65 6e 61 6d 65  |A&71:JSRfilename|
00001d10  3a 4c 44 58 23 31 3a 4a  4d 50 6c 6f 61 64 0d 02  |:LDX#1:JMPload..|
00001d20  44 8e 20 2e 6f 6c 64 4f  53 46 53 43 20 4c 44 41  |D. .oldOSFSC LDA|
00001d30  26 31 30 44 35 3a 53 54  41 26 37 30 3a 4c 44 41  |&10D5:STA&70:LDA|
00001d40  26 44 43 43 3a 53 54 41  26 37 31 3a 4c 44 41 26  |&DCC:STA&71:LDA&|
00001d50  44 43 44 3a 53 54 41 26  37 32 3a 4c 44 41 26 44  |DCD:STA&72:LDA&D|
00001d60  43 45 3a 53 54 41 26 37  33 3a 4c 44 41 23 26 36  |CE:STA&73:LDA#&6|
00001d70  30 3a 53 54 41 26 44 43  43 3a 4c 44 41 23 26 39  |0:STA&DCC:LDA#&9|
00001d80  45 3a 53 54 41 26 44 43  44 3a 4c 44 41 23 34 3a  |E:STA&DCD:LDA#4:|
00001d90  53 54 41 26 44 43 45 3a  50 4c 41 3a 50 48 41 3a  |STA&DCE:PLA:PHA:|
00001da0  4a 4d 50 28 6f 73 66 73  63 4c 4f 29 0d 02 4e cd  |JMP(osfscLO)..N.|
00001db0  20 2e 66 69 6c 65 6e 61  6d 65 20 4c 44 59 23 30  | .filename LDY#0|
00001dc0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 43 4d 50 23  |:LDA(&70),Y:CMP#|
00001dd0  26 44 3a 42 45 51 6e 61  6d 65 3a 43 4d 50 23 26  |&D:BEQname:CMP#&|
00001de0  32 30 3a 42 45 51 6e 61  6d 65 3a 4a 4d 50 6e 6f  |20:BEQname:JMPno|
00001df0  74 7a 65 72 6f 3a 2e 6e  61 6d 65 20 4c 44 41 6e  |tzero:.name LDAn|
00001e00  61 6d 65 4c 4f 3a 53 54  41 26 37 30 3a 53 54 41  |ameLO:STA&70:STA|
00001e10  26 37 32 3a 4c 44 41 6e  61 6d 65 48 49 3a 53 54  |&72:LDAnameHI:ST|
00001e20  41 26 37 31 3a 53 54 41  26 37 33 3a 4c 44 41 28  |A&71:STA&73:LDA(|
00001e30  26 37 30 29 2c 59 3a 43  4d 50 23 30 3a 42 4e 45  |&70),Y:CMP#0:BNE|
00001e40  6f 6b 32 3a 50 4c 41 3a  50 4c 41 3a 4a 4d 50 65  |ok2:PLA:PLA:JMPe|
00001e50  72 72 6f 72 32 3a 2e 6f  6b 32 20 4c 44 41 28 26  |rror2:.ok2 LDA(&|
00001e60  37 32 29 2c 59 3a 49 4e  43 26 37 32 3a 42 4e 45  |72),Y:INC&72:BNE|
00001e70  6e 6f 3a 49 4e 43 26 37  33 0d 02 58 e9 20 2e 6e  |no:INC&73..X. .n|
00001e80  6f 20 43 4d 50 23 26 44  3a 42 4e 45 6f 6b 32 3a  |o CMP#&D:BNEok2:|
00001e90  4c 44 41 26 37 32 3a 53  54 41 6e 61 6d 65 4c 4f  |LDA&72:STAnameLO|
00001ea0  3a 4c 44 41 26 37 33 3a  53 54 41 6e 61 6d 65 48  |:LDA&73:STAnameH|
00001eb0  49 3a 2e 6e 6f 74 7a 65  72 6f 20 4c 44 41 23 30  |I:.notzero LDA#0|
00001ec0  3a 53 54 41 26 37 32 3a  4c 44 41 23 26 38 42 3a  |:STA&72:LDA#&8B:|
00001ed0  53 54 41 26 37 33 3a 2e  74 72 61 6e 73 6c 6f 6f  |STA&73:.transloo|
00001ee0  70 20 4c 44 41 28 26 37  30 29 2c 59 3a 53 54 41  |p LDA(&70),Y:STA|
00001ef0  28 26 37 32 29 2c 59 3a  43 4d 50 23 26 44 3a 42  |(&72),Y:CMP#&D:B|
00001f00  45 51 65 6e 64 66 69 6c  65 3a 43 4d 50 23 26 32  |EQendfile:CMP#&2|
00001f10  30 3a 42 4e 45 63 6f 6e  74 66 69 6c 65 3a 4c 44  |0:BNEcontfile:LD|
00001f20  41 23 26 44 3a 53 54 41  28 26 37 32 29 2c 59 3a  |A#&D:STA(&72),Y:|
00001f30  42 4e 45 65 6e 64 66 69  6c 65 3a 2e 63 6f 6e 74  |BNEendfile:.cont|
00001f40  66 69 6c 65 20 49 4e 59  3a 4a 4d 50 74 72 61 6e  |file INY:JMPtran|
00001f50  73 6c 6f 6f 70 3a 2e 65  6e 64 66 69 6c 65 20 52  |sloop:.endfile R|
00001f60  54 53 0d 02 62 d1 20 2e  65 72 72 6f 72 31 20 4c  |TS..b. .error1 L|
00001f70  44 41 23 28 6e 6f 74 66  6f 75 6e 64 20 83 32 35  |DA#(notfound .25|
00001f80  36 29 3a 53 54 41 26 37  30 3a 4c 44 41 23 28 6e  |6):STA&70:LDA#(n|
00001f90  6f 74 66 6f 75 6e 64 20  81 32 35 36 29 3a 53 54  |otfound .256):ST|
00001fa0  41 26 37 31 3a 4a 4d 50  65 72 72 6f 72 3a 2e 65  |A&71:JMPerror:.e|
00001fb0  72 72 6f 72 32 20 4c 44  41 23 28 6e 6f 6d 6f 72  |rror2 LDA#(nomor|
00001fc0  65 20 83 32 35 36 29 3a  53 54 41 26 37 30 3a 4c  |e .256):STA&70:L|
00001fd0  44 41 23 28 6e 6f 6d 6f  72 65 20 81 32 35 36 29  |DA#(nomore .256)|
00001fe0  3a 53 54 41 26 37 31 3a  2e 65 72 72 6f 72 20 4c  |:STA&71:.error L|
00001ff0  44 59 23 30 3a 2e 70 72  69 6e 74 6c 6f 6f 70 20  |DY#0:.printloop |
00002000  4c 44 41 28 26 37 30 29  2c 59 3a 49 4e 59 3a 4a  |LDA(&70),Y:INY:J|
00002010  53 52 4f 53 41 53 43 49  3a 43 4d 50 23 26 44 3a  |SROSASCI:CMP#&D:|
00002020  42 4e 45 70 72 69 6e 74  6c 6f 6f 70 3a 4a 4d 50  |BNEprintloop:JMP|
00002030  72 65 74 0d 02 6c 7e 20  2e 65 76 72 6f 75 74 69  |ret..l~ .evrouti|
00002040  6e 65 20 4a 53 52 76 65  63 6e 6f 72 6d 3a 4a 53  |ne JSRvecnorm:JS|
00002050  52 70 61 75 73 65 3a 2e  77 61 69 74 20 4a 53 52  |Rpause:.wait JSR|
00002060  73 6c 6f 77 3a 4a 53 52  6d 65 6d 73 61 76 65 3a  |slow:JSRmemsave:|
00002070  4a 53 52 70 61 75 73 65  65 6e 64 3a 42 43 43 77  |JSRpauseend:BCCw|
00002080  61 69 74 3a 4a 53 52 76  65 63 74 6f 72 73 32 3a  |ait:JSRvectors2:|
00002090  4a 53 52 76 61 72 73 3a  4a 4d 50 20 42 41 43 4b  |JSRvars:JMP BACK|
000020a0  2d 28 6f 73 62 79 74 65  2d 62 61 6e 6b 31 2d 31  |-(osbyte-bank1-1|
000020b0  29 0d 02 76 8e 20 2e 73  6c 6f 77 20 4c 44 41 23  |)..v. .slow LDA#|
000020c0  26 38 31 3a 4c 44 58 23  28 a4 69 6e 6b 65 79 28  |&81:LDX#(.inkey(|
000020d0  53 6c 6f 77 4b 65 79 24  29 29 3a 4c 44 59 23 26  |SlowKey$)):LDY#&|
000020e0  46 46 3a 4a 53 52 4f 53  42 59 54 45 3a 42 43 43  |FF:JSROSBYTE:BCC|
000020f0  66 61 73 74 3a 4c 44 58  23 26 46 45 3a 4c 44 59  |fast:LDX#&FE:LDY|
00002100  23 26 46 46 3a 4a 53 52  4f 53 42 59 54 45 3a 42  |#&FF:JSROSBYTE:B|
00002110  43 43 66 61 73 74 3a 49  4e 43 64 65 6c 61 79 3a  |CCfast:INCdelay:|
00002120  4c 44 58 64 65 6c 61 79  3a 43 50 58 23 31 3a 42  |LDXdelay:CPX#1:B|
00002130  4e 45 66 61 73 74 3a 44  45 43 64 65 6c 61 79 0d  |NEfast:DECdelay.|
00002140  02 80 80 20 2e 66 61 73  74 20 4c 44 58 23 28 a4  |... .fast LDX#(.|
00002150  69 6e 6b 65 79 28 46 61  73 74 4b 65 79 24 29 29  |inkey(FastKey$))|
00002160  3a 4c 44 59 23 26 46 46  3a 4a 53 52 4f 53 42 59  |:LDY#&FF:JSROSBY|
00002170  54 45 3a 42 43 43 64 65  6c 6c 6f 6f 70 3a 4c 44  |TE:BCCdelloop:LD|
00002180  58 23 26 46 45 3a 4c 44  59 23 26 46 46 3a 4a 53  |X#&FE:LDY#&FF:JS|
00002190  52 4f 53 42 59 54 45 3a  42 43 43 64 65 6c 6c 6f  |ROSBYTE:BCCdello|
000021a0  6f 70 3a 44 45 43 64 65  6c 61 79 3a 42 4e 45 64  |op:DECdelay:BNEd|
000021b0  65 6c 6c 6f 6f 70 3a 49  4e 43 64 65 6c 61 79 0d  |elloop:INCdelay.|
000021c0  02 8a 6a 20 2e 64 65 6c  6c 6f 6f 70 20 4c 44 41  |..j .delloop LDA|
000021d0  64 65 6c 61 79 3a 53 54  41 26 37 30 3a 2e 64 65  |delay:STA&70:.de|
000021e0  6c 31 20 44 45 43 26 37  30 3a 42 45 51 64 65 6c  |l1 DEC&70:BEQdel|
000021f0  65 6e 64 3a 4c 44 41 23  30 3a 53 54 41 26 37 31  |end:LDA#0:STA&71|
00002200  3a 2e 64 65 6c 32 20 44  45 43 26 37 31 3a 42 4e  |:.del2 DEC&71:BN|
00002210  45 64 65 6c 32 3a 4a 4d  50 64 65 6c 31 3a 2e 64  |Edel2:JMPdel1:.d|
00002220  65 6c 65 6e 64 20 52 54  53 0d 02 94 a4 20 2e 70  |elend RTS.... .p|
00002230  61 75 73 65 20 4c 44 41  23 26 38 31 3a 4c 44 58  |ause LDA#&81:LDX|
00002240  23 28 a4 69 6e 6b 65 79  28 50 61 75 73 65 4b 65  |#(.inkey(PauseKe|
00002250  79 24 29 29 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |y$)):LDY#&FF:JSR|
00002260  4f 53 42 59 54 45 3a 4c  44 41 23 30 3a 42 43 43  |OSBYTE:LDA#0:BCC|
00002270  70 61 75 73 65 72 65 74  3a 4c 44 41 23 26 38 31  |pauseret:LDA#&81|
00002280  3a 4c 44 58 23 26 46 45  3a 4c 44 59 23 26 46 46  |:LDX#&FE:LDY#&FF|
00002290  3a 4a 53 52 4f 53 42 59  54 45 3a 4c 44 41 23 30  |:JSROSBYTE:LDA#0|
000022a0  3a 42 43 43 70 61 75 73  65 72 65 74 3a 4c 44 41  |:BCCpauseret:LDA|
000022b0  23 31 3a 2e 70 61 75 73  65 72 65 74 20 53 54 41  |#1:.pauseret STA|
000022c0  70 61 75 73 65 66 6c 61  67 3a 52 54 53 0d 02 9e  |pauseflag:RTS...|
000022d0  af 20 2e 70 61 75 73 65  65 6e 64 20 4c 44 41 70  |. .pauseend LDAp|
000022e0  61 75 73 65 66 6c 61 67  3a 42 45 51 75 6e 70 61  |auseflag:BEQunpa|
000022f0  75 73 65 3a 4c 44 41 23  26 38 31 3a 4c 44 58 23  |use:LDA#&81:LDX#|
00002300  28 a4 69 6e 6b 65 79 28  43 6f 6e 74 4b 65 79 24  |(.inkey(ContKey$|
00002310  29 29 3a 4c 44 59 23 26  46 46 3a 4a 53 52 4f 53  |)):LDY#&FF:JSROS|
00002320  42 59 54 45 3a 42 43 43  73 74 61 79 70 61 75 73  |BYTE:BCCstaypaus|
00002330  65 3a 4c 44 41 23 26 38  31 3a 4c 44 58 23 26 46  |e:LDA#&81:LDX#&F|
00002340  45 3a 4c 44 59 23 26 46  46 3a 4a 53 52 4f 53 42  |E:LDY#&FF:JSROSB|
00002350  59 54 45 3a 42 43 43 73  74 61 79 70 61 75 73 65  |YTE:BCCstaypause|
00002360  3a 2e 75 6e 70 61 75 73  65 20 53 45 43 3a 2e 73  |:.unpause SEC:.s|
00002370  74 61 79 70 61 75 73 65  20 52 54 53 0d 02 a8 83  |taypause RTS....|
00002380  20 2e 6d 65 6d 73 61 76  65 20 4c 44 41 6d 73 62  | .memsave LDAmsb|
00002390  6c 6f 63 6b 3a 42 4e 45  6d 65 6d 6c 6f 61 64 3a  |lock:BNEmemload:|
000023a0  4c 44 41 23 26 38 31 3a  4c 44 58 23 28 a4 69 6e  |LDA#&81:LDX#(.in|
000023b0  6b 65 79 28 4d 65 6d 53  61 76 65 4b 65 79 24 29  |key(MemSaveKey$)|
000023c0  29 3a 4c 44 59 23 26 46  46 3a 4a 53 52 4f 53 42  |):LDY#&FF:JSROSB|
000023d0  59 54 45 3a 42 43 43 6d  73 65 6e 64 3a 4c 44 58  |YTE:BCCmsend:LDX|
000023e0  23 26 46 45 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&FE:LDY#&FF:JSR|
000023f0  4f 53 42 59 54 45 3a 42  43 43 6d 73 65 6e 64 0d  |OSBYTE:BCCmsend.|
00002400  02 b2 55 20 4c 44 41 23  31 3a 53 54 41 6d 73 62  |..U LDA#1:STAmsb|
00002410  6c 6f 63 6b 3a 4c 44 59  23 30 3a 2e 6d 73 76 61  |lock:LDY#0:.msva|
00002420  72 73 20 4c 44 41 74 65  6d 70 73 74 6f 72 65 2c  |rs LDAtempstore,|
00002430  59 3a 53 54 41 6d 73 62  6c 6f 63 6b 2b 31 2c 59  |Y:STAmsblock+1,Y|
00002440  3a 49 4e 59 3a 43 50 59  23 36 3a 42 4e 45 6d 73  |:INY:CPY#6:BNEms|
00002450  76 61 72 73 0d 02 bc c0  20 50 4c 41 3a 53 54 41  |vars.... PLA:STA|
00002460  26 37 30 3a 50 4c 41 3a  53 54 41 26 37 31 3a 50  |&70:PLA:STA&71:P|
00002470  4c 41 3a 53 54 41 26 37  32 3a 50 4c 41 3a 53 54  |LA:STA&72:PLA:ST|
00002480  41 26 37 33 3a 4c 44 41  23 28 28 45 56 45 4e 54  |A&73:LDA#((EVENT|
00002490  2d 31 29 20 81 32 35 36  29 3a 50 48 41 3a 4c 44  |-1) .256):PHA:LD|
000024a0  41 23 28 28 45 56 45 4e  54 2d 31 29 20 83 32 35  |A#((EVENT-1) .25|
000024b0  36 29 3a 50 48 41 3a 4c  44 41 23 28 28 6f 73 63  |6):PHA:LDA#((osc|
000024c0  6c 69 2d 31 29 20 81 32  35 36 29 3a 50 48 41 3a  |li-1) .256):PHA:|
000024d0  4c 44 41 23 28 28 6f 73  63 6c 69 2d 31 29 20 83  |LDA#((oscli-1) .|
000024e0  32 35 36 29 3a 50 48 41  3a 4c 44 41 26 37 33 3a  |256):PHA:LDA&73:|
000024f0  50 48 41 3a 4c 44 41 26  37 32 3a 50 48 41 3a 4c  |PHA:LDA&72:PHA:L|
00002500  44 41 26 37 31 3a 50 48  41 3a 4c 44 41 26 37 30  |DA&71:PHA:LDA&70|
00002510  3a 50 48 41 0d 02 c6 4d  20 4c 44 58 23 28 6d 73  |:PHA...M LDX#(ms|
00002520  74 65 78 74 20 83 32 35  36 29 3a 53 54 58 26 37  |text .256):STX&7|
00002530  34 3a 4c 44 59 23 28 6d  73 74 65 78 74 20 81 32  |4:LDY#(mstext .2|
00002540  35 36 29 3a 53 54 59 26  37 35 3a 49 4e 43 6d 73  |56):STY&75:INCms|
00002550  6c 65 74 74 65 72 3a 2e  6d 73 65 6e 64 20 52 54  |letter:.msend RT|
00002560  53 0d 02 d0 64 20 2e 6d  65 6d 6c 6f 61 64 20 4c  |S...d .memload L|
00002570  44 41 23 30 3a 53 54 41  6d 73 62 6c 6f 63 6b 3a  |DA#0:STAmsblock:|
00002580  4c 44 59 23 30 3a 2e 6d  73 76 61 72 73 32 20 4c  |LDY#0:.msvars2 L|
00002590  44 41 6d 73 62 6c 6f 63  6b 2b 31 2c 59 3a 53 54  |DAmsblock+1,Y:ST|
000025a0  41 74 65 6d 70 73 74 6f  72 65 2c 59 3a 49 4e 59  |Atempstore,Y:INY|
000025b0  3a 43 50 59 23 36 3a 42  4e 45 6d 73 76 61 72 73  |:CPY#6:BNEmsvars|
000025c0  32 3a 52 54 53 0d 02 da  e6 20 2e 6e 6f 74 66 6f  |2:RTS.... .notfo|
000025d0  75 6e 64 20 45 51 55 53  22 4e 6f 74 20 66 6f 75  |und EQUS"Not fou|
000025e0  6e 64 22 3a 45 51 55 42  31 33 3a 2e 6e 6f 6d 6f  |nd":EQUB13:.nomo|
000025f0  72 65 20 45 51 55 53 22  4e 6f 20 6d 6f 72 65 20  |re EQUS"No more |
00002600  66 69 6c 65 6e 61 6d 65  73 22 3a 45 51 55 42 31  |filenames":EQUB1|
00002610  33 3a 2e 6e 61 6d 65 4c  4f 20 45 51 55 42 6e 61  |3:.nameLO EQUBna|
00002620  6d 65 73 20 83 32 35 36  3a 2e 6e 61 6d 65 48 49  |mes .256:.nameHI|
00002630  20 45 51 55 42 6e 61 6d  65 73 20 81 32 35 36 3a  | EQUBnames .256:|
00002640  2e 65 6e 64 61 64 64 20  45 51 55 42 30 3a 2e 6f  |.endadd EQUB0:.o|
00002650  73 66 69 6c 65 4c 4f 20  45 51 55 42 30 3a 2e 6f  |sfileLO EQUB0:.o|
00002660  73 66 69 6c 65 48 49 20  45 51 55 42 30 3a 2e 6f  |sfileHI EQUB0:.o|
00002670  73 66 73 63 4c 4f 20 45  51 55 42 30 3a 2e 6f 73  |sfscLO EQUB0:.os|
00002680  66 73 63 48 49 20 45 51  55 42 30 3a 2e 6f 73 62  |fscHI EQUB0:.osb|
00002690  79 74 65 4c 4f 20 45 51  55 42 30 3a 2e 6f 73 62  |yteLO EQUB0:.osb|
000026a0  79 74 65 48 49 20 45 51  55 42 30 0d 02 e4 64 20  |yteHI EQUB0...d |
000026b0  2e 65 76 65 6e 74 4c 4f  20 45 51 55 42 30 3a 2e  |.eventLO EQUB0:.|
000026c0  65 76 65 6e 74 48 49 20  45 51 55 42 30 3a 2e 69  |eventHI EQUB0:.i|
000026d0  6e 74 65 72 4c 4f 20 45  51 55 42 30 3a 2e 69 6e  |nterLO EQUB0:.in|
000026e0  74 65 72 48 49 20 45 51  55 42 30 3a 2e 69 6e 74  |terHI EQUB0:.int|
000026f0  65 72 6e 65 77 4c 4f 20  45 51 55 42 30 3a 2e 69  |ernewLO EQUB0:.i|
00002700  6e 74 65 72 6e 65 77 48  49 20 45 51 55 42 30 0d  |nternewHI EQUB0.|
00002710  02 ee b0 20 2e 74 65 6d  70 73 74 6f 72 65 20 45  |... .tempstore E|
00002720  51 55 44 30 3a 45 51 55  57 30 3a 2e 70 61 75 73  |QUD0:EQUW0:.paus|
00002730  65 66 6c 61 67 20 45 51  55 42 30 3a 2e 64 65 6c  |eflag EQUB0:.del|
00002740  61 79 20 45 51 55 42 31  3a 2e 6d 73 74 65 78 74  |ay EQUB1:.mstext|
00002750  20 45 51 55 53 22 53 41  56 45 20 50 6f 73 69 74  | EQUS"SAVE Posit|
00002760  69 6f 6e 22 3a 2e 6d 73  6c 65 74 74 65 72 20 45  |ion":.msletter E|
00002770  51 55 53 22 40 20 30 30  30 30 20 38 30 33 30 22  |QUS"@ 0000 8030"|
00002780  3a 45 51 55 42 31 33 3a  2e 6e 61 6d 65 73 3a 5d  |:EQUB13:.names:]|
00002790  3a 24 4f 25 3d 66 69 6c  65 6e 61 6d 65 73 24 3a  |:$O%=filenames$:|
000027a0  4f 25 3d 4f 25 2b a9 28  66 69 6c 65 6e 61 6d 65  |O%=O%+.(filename|
000027b0  73 24 29 2b 31 3a 3f 28  4f 25 2d 31 29 3d 30 0d  |s$)+1:?(O%-1)=0.|
000027c0  02 f8 ca 20 62 61 6e 6b  31 3d 4f 25 3a 5b 4f 50  |... bank1=O%:[OP|
000027d0  54 70 61 73 73 2b 34 3a  4c 44 41 23 30 3a 53 54  |Tpass+4:LDA#0:ST|
000027e0  41 26 46 34 3a 53 54 41  26 46 45 30 35 3a 5d 3a  |A&F4:STA&FE05:]:|
000027f0  50 25 3d 4f 25 3a 5b 4f  50 54 70 61 73 73 2b 34  |P%=O%:[OPTpass+4|
00002800  3a 52 54 53 3a 5d 3a 6f  73 62 79 74 65 3d 4f 25  |:RTS:]:osbyte=O%|
00002810  3a 50 25 3d 4f 42 72 6f  75 74 69 6e 65 3a 5b 4f  |:P%=OBroutine:[O|
00002820  50 54 70 61 73 73 2b 34  3a 43 4d 50 23 31 34 30  |PTpass+4:CMP#140|
00002830  3a 42 45 51 74 61 70 65  3a 50 48 41 3a 4c 44 41  |:BEQtape:PHA:LDA|
00002840  4f 42 72 6f 75 74 32 2b  38 3a 53 54 41 26 32 30  |OBrout2+8:STA&20|
00002850  41 3a 4a 4d 50 4f 42 72  6f 75 74 32 3a 2e 74 61  |A:JMPOBrout2:.ta|
00002860  70 65 20 52 54 53 3a 5d  3a 6f 73 62 79 74 65 32  |pe RTS:]:osbyte2|
00002870  3d 4f 25 3a 50 25 3d 4f  42 72 6f 75 74 32 3a 5b  |=O%:P%=OBrout2:[|
00002880  4f 50 54 70 61 73 73 2b  34 0d 03 02 9c 20 4c 44  |OPTpass+4.... LD|
00002890  41 4f 42 72 6f 75 74 32  2b 39 3a 53 54 41 26 32  |AOBrout2+9:STA&2|
000028a0  30 42 3a 50 4c 41 3a 4a  53 52 26 30 30 30 30 3a  |0B:PLA:JSR&0000:|
000028b0  4a 4d 50 4f 42 72 6f 75  74 33 3a 5d 3a 6f 73 62  |JMPOBrout3:]:osb|
000028c0  79 74 65 33 3d 4f 25 3a  50 25 3d 4f 42 72 6f 75  |yte3=O%:P%=OBrou|
000028d0  74 33 3a 5b 4f 50 54 70  61 73 73 2b 34 3a 50 48  |t3:[OPTpass+4:PH|
000028e0  41 3a 4c 44 41 23 28 4f  42 72 6f 75 74 69 6e 65  |A:LDA#(OBroutine|
000028f0  20 83 32 35 36 29 3a 53  54 41 26 32 30 41 3a 4c  | .256):STA&20A:L|
00002900  44 41 23 28 4f 42 72 6f  75 74 69 6e 65 20 81 32  |DA#(OBroutine .2|
00002910  35 36 29 3a 53 54 41 26  32 30 42 3a 50 4c 41 3a  |56):STA&20B:PLA:|
00002920  52 54 53 3a 5d 0d 03 0c  b8 20 66 69 6c 65 3d 4f  |RTS:].... file=O|
00002930  25 3a 50 25 3d 4f 46 49  4c 45 3a 5b 4f 50 54 70  |%:P%=OFILE:[OPTp|
00002940  61 73 73 2b 34 3a 43 4c  43 3a 42 43 43 6f 66 3a  |ass+4:CLC:BCCof:|
00002950  2e 4f 46 53 43 20 53 45  43 3a 2e 6f 66 20 50 48  |.OFSC SEC:.of PH|
00002960  50 3a 50 48 41 3a 5d 3a  62 61 6e 6b 32 3d 4f 25  |P:PHA:]:bank2=O%|
00002970  3a 5b 4f 50 54 70 61 73  73 2b 34 3a 4c 44 41 23  |:[OPTpass+4:LDA#|
00002980  30 3a 53 54 41 26 46 34  3a 53 54 41 26 46 45 30  |0:STA&F4:STA&FE0|
00002990  35 3a 2e 65 6e 74 65 72  3a 5d 3a 50 25 3d 4f 25  |5:.enter:]:P%=O%|
000029a0  3a 5b 4f 50 54 70 61 73  73 2b 34 3a 52 54 53 3a  |:[OPTpass+4:RTS:|
000029b0  5d 3a 66 69 6c 65 72 65  74 3d 4f 25 3a 50 25 3d  |]:fileret=O%:P%=|
000029c0  42 41 43 4b 3a 5b 4f 50  54 70 61 73 73 2b 34 3a  |BACK:[OPTpass+4:|
000029d0  50 4c 41 3a 50 4c 50 3a  52 54 53 3a 5d 0d 03 16  |PLA:PLP:RTS:]...|
000029e0  54 20 65 76 72 6f 75 74  3d 4f 25 3a 50 25 3d 45  |T evrout=O%:P%=E|
000029f0  56 45 4e 54 3a 5b 4f 50  54 70 61 73 73 2b 34 3a  |VENT:[OPTpass+4:|
00002a00  50 48 50 3a 50 48 41 3a  4c 44 41 23 30 3a 53 54  |PHP:PHA:LDA#0:ST|
00002a10  41 26 46 34 3a 53 54 41  26 46 45 30 35 3a 2e 65  |A&F4:STA&FE05:.e|
00002a20  6e 74 65 72 65 76 3a 5d  3a 65 76 65 6e 64 3d 4f  |nterev:]:evend=O|
00002a30  25 0d 03 20 06 20 ed 0d  03 2a 3a 20 f1 22 53 61  |%.. . ...*: ."Sa|
00002a40  76 65 20 28 59 2f 4e 29  3f 22 3a 41 24 3d be 3a  |ve (Y/N)?":A$=.:|
00002a50  e7 20 41 24 3d 22 59 22  20 8c 20 ff 22 53 41 56  |. A$="Y" . ."SAV|
00002a60  45 20 44 4c 53 20 32 30  30 30 20 22 2b c3 7e 4f  |E DLS 2000 "+.~O|
00002a70  25 0d 03 34 06 20 e0 0d  03 3e 12 20 dd a4 69 6e  |%..4. ...>. ..in|
00002a80  6b 65 79 28 4b 65 79 24  29 0d 03 48 06 20 f7 0d  |key(Key$)..H. ..|
00002a90  03 52 1b 20 e3 6c 65 74  74 65 72 3d 31 20 b8 20  |.R. .letter=1 . |
00002aa0  97 28 4b 65 79 24 29 2d  36 34 0d 03 5c 0c 20 f3  |.(Key$)-64..\. .|
00002ab0  20 76 61 6c 75 65 0d 03  66 0d 20 ed 20 6c 65 74  | value..f. . let|
00002ac0  74 65 72 0d 03 70 0f 20  3d 76 61 6c 75 65 2b 32  |ter..p. =value+2|
00002ad0  35 36 0d 03 7a 71 20 dc  20 2d 36 36 2c 2d 31 30  |56..zq . -66,-10|
00002ae0  31 2c 2d 38 33 2c 2d 35  31 2c 2d 33 35 2c 2d 36  |1,-83,-51,-35,-6|
00002af0  38 2c 2d 38 34 2c 2d 38  35 2c 2d 33 38 2c 2d 37  |8,-84,-85,-38,-7|
00002b00  30 2c 2d 37 31 2c 2d 38  37 2c 2d 31 30 32 2c 2d  |0,-71,-87,-102,-|
00002b10  38 36 2c 2d 35 35 2c 2d  35 36 2c 2d 31 37 2c 2d  |86,-55,-56,-17,-|
00002b20  35 32 2c 2d 38 32 2c 2d  33 36 2c 2d 35 34 2c 2d  |52,-82,-36,-54,-|
00002b30  31 30 30 2c 2d 33 34 2c  2d 36 37 2c 2d 36 39 2c  |100,-34,-67,-69,|
00002b40  2d 39 38 0d ff                                    |-98..|
00002b45