a OFILE=&AA3A:BACK=&8034:OBroutine=&8012:B2routine=&A000:filenames$="CRAZEE"+�13+"CRAZEER"+�13
8 OSFILE=&FFDD:OSBGET=&FFD7:OSFIND=&FFCE:OSASCI=&FFE3

& �pass=0 � 2 � 2:P%=&3000:[OPTpass
f 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
7 INC&8800:CMP&8800:BNEfound:DEX:DEX:BPLtest:LDX#&FF
(2 .found DEC&8800:CLI:STXbank1+1:INX:STXbank2+1
2� .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
<�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
F� .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
P� .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
Za .ADFSdata LDA#0:STA&70:STA&72:STA&74:LDA#9:STA&71:LDA#&89:STA&73:LDA#&1D:STA&75:JSRmoveloop2
d� .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
n� .b1osbyte JSRbank1:LDA#(osbyte �256):STA&70:LDA#(osbyte �256):STA&71:LDA#(OBroutine �256):STA&72:LDA#(OBroutine �256):STA&73:LDA#(file �256):STA&74:LDA#(file �256):STA&75:JSRmoveloop2
x� .b1osfile LDA#(file �256):STA&70:LDA#(file �256):STA&71:LDA#(OFILE �256):STA&72:LDA#(OFILE �256):STA&73:LDA#(fileret �256):STA&74:LDA#(fileret �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#(fretend �256):STA&74:LDA#(fretend �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:STAOBroutine+19:LDA&20B:STAOBroutine+20:JSRbank2:LDA&20A:STAosbyteLO:LDA&20B:STAosbyteHI:LDA&212:STAosfileLO:LDA&213:STAosfileHI:LDA&21E:STAosfscLO:LDA&21F:STAosfscHI:JSRvectors:JSRbank1: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:LDAosfscLO:STA&21E:LDAosfscHI:STA&21F:LDAosfileLO:STA&212:LDAosfileHI:STA&213:LDAosbyteLO:STA&20A:LDAosbyteHI:STA&20B
� STXendadd:LDX#0:.savevars LDA&70,X:STAtempstore,X:INX:CPX#6:BNEsavevars:STY&75:LDXendadd:STX&74:PLA:BEQfilerout:JMPfscrout
�V .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
�c .moveloop LDA(&70),Y:STA(&72),Y:INY:BNEmoveloop:INC&71:INC&73:LDA&71:CMPendadd:BNEmoveloop:RTS
�� .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
�h .exec LDA#0:STA&A00:LDA#&B:STA&A01: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:LDX&A06:LDY&A07:DEX:CPX#&FF:BNEstack:DEY:.stack TYA:PHA:TXA: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

,P LDA#&AC:STA&71:BNEbget:.sub LDA#&1D:STA&71:BNEbget:.endload LDA#0:JSROSFIND

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

@� .ret JSRvectors2:JMPvars:]: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:LDA#(OFSC �256):STA&21E:LDA#(OFSC �256):STA&21F:RTS

J� .vars LDY&75:LDX&74:STXendadd:LDX#0:.loadvars LDAtempstore,X:STA&70,X:INX:CPX#6:BNEloadvars:LDXendadd:JMP BACK-(osbyte-bank1-1)

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

Y� .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)

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

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

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

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

�S .tempstore EQUD0:EQUW0:.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:LDAOBroutine+19:STA&20A:LDAOBroutine+20:STA&20B:PLA:JSR&0000

�R PHA:LDA#(OBroutine �256):STA&20A:LDA#(OBroutine �256):STA&20B:PLA:.tape RTS:]

�� file=O%:P%=OFILE:[OPTpass+4:CLC:BCCof:.OFSC SEC:.of PHA:]:bank2=O%:[OPTpass+4:LDA#0:STA&F4:STA&FE05:.enter:]:P%=O%:[OPTpass+4:RTS:]:fileret=O%:P%=BACK:[OPTpass+4:PLA:RTS:]:fretend=O%:�
�

00000000  0d 00 05 61 20 4f 46 49  4c 45 3d 26 41 41 33 41  |...a OFILE=&AA3A|
00000010  3a 42 41 43 4b 3d 26 38  30 33 34 3a 4f 42 72 6f  |:BACK=&8034:OBro|
00000020  75 74 69 6e 65 3d 26 38  30 31 32 3a 42 32 72 6f  |utine=&8012:B2ro|
00000030  75 74 69 6e 65 3d 26 41  30 30 30 3a 66 69 6c 65  |utine=&A000:file|
00000040  6e 61 6d 65 73 24 3d 22  43 52 41 5a 45 45 22 2b  |names$="CRAZEE"+|
00000050  bd 31 33 2b 22 43 52 41  5a 45 45 52 22 2b bd 31  |.13+"CRAZEER"+.1|
00000060  33 0d 00 06 38 20 4f 53  46 49 4c 45 3d 26 46 46  |3...8 OSFILE=&FF|
00000070  44 44 3a 4f 53 42 47 45  54 3d 26 46 46 44 37 3a  |DD:OSBGET=&FFD7:|
00000080  4f 53 46 49 4e 44 3d 26  46 46 43 45 3a 4f 53 41  |OSFIND=&FFCE:OSA|
00000090  53 43 49 3d 26 46 46 45  33 0d 00 0a 26 20 e3 70  |SCI=&FFE3...& .p|
000000a0  61 73 73 3d 30 20 b8 20  32 20 88 20 32 3a 50 25  |ass=0 . 2 . 2:P%|
000000b0  3d 26 33 30 30 30 3a 5b  4f 50 54 70 61 73 73 0d  |=&3000:[OPTpass.|
000000c0  00 14 66 20 4c 44 41 23  30 3a 53 54 41 26 46 43  |..f LDA#0:STA&FC|
000000d0  44 43 3a 53 54 41 26 46  43 44 45 3a 4c 44 41 23  |DC:STA&FCDE:LDA#|
000000e0  31 35 3a 53 54 41 26 46  34 3a 53 54 41 26 46 45  |15:STA&F4:STA&FE|
000000f0  30 35 3a 4c 44 58 23 32  3a 53 45 49 3a 2e 74 65  |05:LDX#2:SEI:.te|
00000100  73 74 20 54 58 41 3a 53  54 41 26 46 34 3a 53 54  |st TXA:STA&F4:ST|
00000110  41 26 46 45 30 35 3a 4c  44 41 23 30 3a 4c 44 41  |A&FE05:LDA#0:LDA|
00000120  26 38 38 30 30 0d 00 1e  37 20 49 4e 43 26 38 38  |&8800...7 INC&88|
00000130  30 30 3a 43 4d 50 26 38  38 30 30 3a 42 4e 45 66  |00:CMP&8800:BNEf|
00000140  6f 75 6e 64 3a 44 45 58  3a 44 45 58 3a 42 50 4c  |ound:DEX:DEX:BPL|
00000150  74 65 73 74 3a 4c 44 58  23 26 46 46 0d 00 28 32  |test:LDX#&FF..(2|
00000160  20 2e 66 6f 75 6e 64 20  44 45 43 26 38 38 30 30  | .found DEC&8800|
00000170  3a 43 4c 49 3a 53 54 58  62 61 6e 6b 31 2b 31 3a  |:CLI:STXbank1+1:|
00000180  49 4e 58 3a 53 54 58 62  61 6e 6b 32 2b 31 0d 00  |INX:STXbank2+1..|
00000190  32 ef 20 2e 42 41 53 49  43 72 6f 6d 20 4c 44 41  |2. .BASICrom LDA|
000001a0  23 31 31 3a 53 54 41 26  46 34 3a 53 54 41 26 46  |#11:STA&F4:STA&F|
000001b0  45 30 35 3a 4c 44 41 23  30 3a 53 54 41 26 37 30  |E05:LDA#0:STA&70|
000001c0  3a 53 54 41 26 37 32 3a  53 54 41 26 37 34 3a 4c  |:STA&72:STA&74:L|
000001d0  44 41 23 26 38 30 3a 53  54 41 26 37 31 3a 4c 44  |DA#&80:STA&71:LD|
000001e0  41 23 26 34 30 3a 53 54  41 26 37 33 3a 4c 44 41  |A#&40:STA&73:LDA|
000001f0  23 26 41 30 3a 53 54 41  26 37 35 3a 4a 53 52 6d  |#&A0:STA&75:JSRm|
00000200  6f 76 65 6c 6f 6f 70 32  3a 4c 44 41 23 31 35 3a  |oveloop2:LDA#15:|
00000210  53 54 41 26 46 34 3a 53  54 41 26 46 45 30 35 3a  |STA&F4:STA&FE05:|
00000220  4a 53 52 62 61 6e 6b 31  3a 4c 44 41 23 30 3a 53  |JSRbank1:LDA#0:S|
00000230  54 41 26 37 30 3a 53 54  41 26 37 32 3a 53 54 41  |TA&70:STA&72:STA|
00000240  26 37 34 3a 4c 44 41 23  26 34 30 3a 53 54 41 26  |&74:LDA#&40:STA&|
00000250  37 31 3a 4c 44 41 23 26  38 30 3a 53 54 41 26 37  |71:LDA#&80:STA&7|
00000260  33 3a 4c 44 41 23 26 36  30 3a 53 54 41 26 37 35  |3:LDA#&60:STA&75|
00000270  3a 4a 53 52 6d 6f 76 65  6c 6f 6f 70 32 0d 00 3c  |:JSRmoveloop2..<|
00000280  e4 4c 44 41 23 31 31 3a  53 54 41 26 46 34 3a 53  |.LDA#11:STA&F4:S|
00000290  54 41 26 46 45 30 35 3a  4c 44 41 23 30 3a 53 54  |TA&FE05:LDA#0:ST|
000002a0  41 26 37 30 3a 53 54 41  26 37 32 3a 53 54 41 26  |A&70:STA&72:STA&|
000002b0  37 34 3a 4c 44 41 23 26  41 30 3a 53 54 41 26 37  |74:LDA#&A0:STA&7|
000002c0  31 3a 4c 44 41 23 26 34  30 3a 53 54 41 26 37 33  |1:LDA#&40:STA&73|
000002d0  3a 4c 44 41 23 26 43 30  3a 53 54 41 26 37 35 3a  |:LDA#&C0:STA&75:|
000002e0  4a 53 52 6d 6f 76 65 6c  6f 6f 70 32 3a 4c 44 41  |JSRmoveloop2:LDA|
000002f0  23 31 35 3a 53 54 41 26  46 34 3a 53 54 41 26 46  |#15:STA&F4:STA&F|
00000300  45 30 35 3a 4a 53 52 62  61 6e 6b 31 3a 4c 44 41  |E05:JSRbank1:LDA|
00000310  23 30 3a 53 54 41 26 37  30 3a 53 54 41 26 37 32  |#0:STA&70:STA&72|
00000320  3a 53 54 41 26 37 34 3a  4c 44 41 23 26 34 30 3a  |:STA&74:LDA#&40:|
00000330  53 54 41 26 37 31 3a 4c  44 41 23 26 41 30 3a 53  |STA&71:LDA#&A0:S|
00000340  54 41 26 37 33 3a 4c 44  41 23 26 36 30 3a 53 54  |TA&73:LDA#&60:ST|
00000350  41 26 37 35 3a 4a 53 52  6d 6f 76 65 6c 6f 6f 70  |A&75:JSRmoveloop|
00000360  32 0d 00 46 aa 20 2e 62  61 6e 6b 32 65 6e 74 72  |2..F. .bank2entr|
00000370  79 20 4a 53 52 62 61 6e  6b 32 3a 4c 44 41 23 28  |y JSRbank2:LDA#(|
00000380  65 6e 74 65 72 20 83 32  35 36 29 3a 53 54 41 26  |enter .256):STA&|
00000390  37 30 3a 4c 44 41 23 28  65 6e 74 65 72 20 81 32  |70:LDA#(enter .2|
000003a0  35 36 29 3a 53 54 41 26  37 31 3a 4c 44 59 23 30  |56):STA&71:LDY#0|
000003b0  3a 4c 44 41 23 26 34 43  3a 53 54 41 28 26 37 30  |:LDA#&4C:STA(&70|
000003c0  29 2c 59 3a 49 4e 59 3a  4c 44 41 23 28 42 32 72  |),Y:INY:LDA#(B2r|
000003d0  6f 75 74 69 6e 65 20 83  32 35 36 29 3a 53 54 41  |outine .256):STA|
000003e0  28 26 37 30 29 2c 59 3a  49 4e 59 3a 4c 44 41 23  |(&70),Y:INY:LDA#|
000003f0  28 42 32 72 6f 75 74 69  6e 65 20 81 32 35 36 29  |(B2routine .256)|
00000400  3a 53 54 41 28 26 37 30  29 2c 59 0d 00 50 b4 20  |:STA(&70),Y..P. |
00000410  2e 62 61 6e 6b 32 6d 61  69 6e 20 4c 44 41 23 28  |.bank2main LDA#(|
00000420  73 74 61 72 74 20 83 32  35 36 29 3a 53 54 41 26  |start .256):STA&|
00000430  37 30 3a 4c 44 41 23 28  73 74 61 72 74 20 81 32  |70:LDA#(start .2|
00000440  35 36 29 3a 53 54 41 26  37 31 3a 4c 44 41 23 28  |56):STA&71:LDA#(|
00000450  62 61 6e 6b 31 20 83 32  35 36 29 3a 53 54 41 26  |bank1 .256):STA&|
00000460  37 34 3a 4c 44 41 23 28  62 61 6e 6b 31 20 81 32  |74:LDA#(bank1 .2|
00000470  35 36 29 3a 53 54 41 26  37 35 3a 4c 44 41 23 28  |56):STA&75:LDA#(|
00000480  42 32 72 6f 75 74 69 6e  65 20 83 32 35 36 29 3a  |B2routine .256):|
00000490  53 54 41 26 37 32 3a 4c  44 41 23 28 42 32 72 6f  |STA&72:LDA#(B2ro|
000004a0  75 74 69 6e 65 20 81 32  35 36 29 3a 53 54 41 26  |utine .256):STA&|
000004b0  37 33 3a 4a 53 52 6d 6f  76 65 6c 6f 6f 70 32 0d  |73:JSRmoveloop2.|
000004c0  00 5a 61 20 2e 41 44 46  53 64 61 74 61 20 4c 44  |.Za .ADFSdata LD|
000004d0  41 23 30 3a 53 54 41 26  37 30 3a 53 54 41 26 37  |A#0:STA&70:STA&7|
000004e0  32 3a 53 54 41 26 37 34  3a 4c 44 41 23 39 3a 53  |2:STA&74:LDA#9:S|
000004f0  54 41 26 37 31 3a 4c 44  41 23 26 38 39 3a 53 54  |TA&71:LDA#&89:ST|
00000500  41 26 37 33 3a 4c 44 41  23 26 31 44 3a 53 54 41  |A&73:LDA#&1D:STA|
00000510  26 37 35 3a 4a 53 52 6d  6f 76 65 6c 6f 6f 70 32  |&75:JSRmoveloop2|
00000520  0d 00 64 d7 20 2e 62 31  72 65 74 75 72 6e 20 4c  |..d. .b1return L|
00000530  44 41 23 28 62 61 6e 6b  31 20 83 32 35 36 29 3a  |DA#(bank1 .256):|
00000540  53 54 41 26 37 30 3a 4c  44 41 23 28 62 61 6e 6b  |STA&70:LDA#(bank|
00000550  31 20 81 32 35 36 29 3a  53 54 41 26 37 31 3a 4c  |1 .256):STA&71:L|
00000560  44 41 23 28 42 41 43 4b  2d 28 6f 73 62 79 74 65  |DA#(BACK-(osbyte|
00000570  2d 62 61 6e 6b 31 2d 31  29 29 20 83 32 35 36 29  |-bank1-1)) .256)|
00000580  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 42 41 43  |:STA&72:LDA#(BAC|
00000590  4b 2d 28 6f 73 62 79 74  65 2d 62 61 6e 6b 31 2d  |K-(osbyte-bank1-|
000005a0  31 29 29 20 81 32 35 36  29 3a 53 54 41 26 37 33  |1)) .256):STA&73|
000005b0  3a 4c 44 41 23 28 28 6f  73 62 79 74 65 2d 31 29  |:LDA#((osbyte-1)|
000005c0  20 83 32 35 36 29 3a 53  54 41 26 37 34 3a 4c 44  | .256):STA&74:LD|
000005d0  41 23 28 28 6f 73 62 79  74 65 2d 31 29 20 81 32  |A#((osbyte-1) .2|
000005e0  35 36 29 3a 53 54 41 26  37 35 3a 4a 53 52 6d 6f  |56):STA&75:JSRmo|
000005f0  76 65 6c 6f 6f 70 32 0d  00 6e bc 20 2e 62 31 6f  |veloop2..n. .b1o|
00000600  73 62 79 74 65 20 4a 53  52 62 61 6e 6b 31 3a 4c  |sbyte JSRbank1:L|
00000610  44 41 23 28 6f 73 62 79  74 65 20 83 32 35 36 29  |DA#(osbyte .256)|
00000620  3a 53 54 41 26 37 30 3a  4c 44 41 23 28 6f 73 62  |:STA&70:LDA#(osb|
00000630  79 74 65 20 81 32 35 36  29 3a 53 54 41 26 37 31  |yte .256):STA&71|
00000640  3a 4c 44 41 23 28 4f 42  72 6f 75 74 69 6e 65 20  |:LDA#(OBroutine |
00000650  83 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  |.256):STA&72:LDA|
00000660  23 28 4f 42 72 6f 75 74  69 6e 65 20 81 32 35 36  |#(OBroutine .256|
00000670  29 3a 53 54 41 26 37 33  3a 4c 44 41 23 28 66 69  |):STA&73:LDA#(fi|
00000680  6c 65 20 83 32 35 36 29  3a 53 54 41 26 37 34 3a  |le .256):STA&74:|
00000690  4c 44 41 23 28 66 69 6c  65 20 81 32 35 36 29 3a  |LDA#(file .256):|
000006a0  53 54 41 26 37 35 3a 4a  53 52 6d 6f 76 65 6c 6f  |STA&75:JSRmovelo|
000006b0  6f 70 32 0d 00 78 ad 20  2e 62 31 6f 73 66 69 6c  |op2..x. .b1osfil|
000006c0  65 20 4c 44 41 23 28 66  69 6c 65 20 83 32 35 36  |e LDA#(file .256|
000006d0  29 3a 53 54 41 26 37 30  3a 4c 44 41 23 28 66 69  |):STA&70:LDA#(fi|
000006e0  6c 65 20 81 32 35 36 29  3a 53 54 41 26 37 31 3a  |le .256):STA&71:|
000006f0  4c 44 41 23 28 4f 46 49  4c 45 20 83 32 35 36 29  |LDA#(OFILE .256)|
00000700  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 4f 46 49  |:STA&72:LDA#(OFI|
00000710  4c 45 20 81 32 35 36 29  3a 53 54 41 26 37 33 3a  |LE .256):STA&73:|
00000720  4c 44 41 23 28 66 69 6c  65 72 65 74 20 83 32 35  |LDA#(fileret .25|
00000730  36 29 3a 53 54 41 26 37  34 3a 4c 44 41 23 28 66  |6):STA&74:LDA#(f|
00000740  69 6c 65 72 65 74 20 81  32 35 36 29 3a 53 54 41  |ileret .256):STA|
00000750  26 37 35 3a 4a 53 52 6d  6f 76 65 6c 6f 6f 70 32  |&75:JSRmoveloop2|
00000760  0d 00 82 b2 20 2e 62 31  66 69 6c 65 72 65 74 20  |.... .b1fileret |
00000770  4c 44 41 23 28 66 69 6c  65 72 65 74 20 83 32 35  |LDA#(fileret .25|
00000780  36 29 3a 53 54 41 26 37  30 3a 4c 44 41 23 28 66  |6):STA&70:LDA#(f|
00000790  69 6c 65 72 65 74 20 81  32 35 36 29 3a 53 54 41  |ileret .256):STA|
000007a0  26 37 31 3a 4c 44 41 23  28 42 41 43 4b 20 83 32  |&71:LDA#(BACK .2|
000007b0  35 36 29 3a 53 54 41 26  37 32 3a 4c 44 41 23 28  |56):STA&72:LDA#(|
000007c0  42 41 43 4b 20 81 32 35  36 29 3a 53 54 41 26 37  |BACK .256):STA&7|
000007d0  33 3a 4c 44 41 23 28 66  72 65 74 65 6e 64 20 83  |3:LDA#(fretend .|
000007e0  32 35 36 29 3a 53 54 41  26 37 34 3a 4c 44 41 23  |256):STA&74:LDA#|
000007f0  28 66 72 65 74 65 6e 64  20 81 32 35 36 29 3a 53  |(fretend .256):S|
00000800  54 41 26 37 35 3a 4a 53  52 6d 6f 76 65 6c 6f 6f  |TA&75:JSRmoveloo|
00000810  70 32 0d 00 8c 6a 20 2e  70 61 67 65 20 4c 44 41  |p2...j .page LDA|
00000820  23 30 3a 53 54 41 26 37  30 3a 53 54 41 26 37 32  |#0:STA&70:STA&72|
00000830  3a 4c 44 41 26 31 38 3a  53 54 41 26 37 31 3a 4c  |:LDA&18:STA&71:L|
00000840  44 41 23 26 45 3a 53 54  41 26 37 33 3a 53 54 41  |DA#&E:STA&73:STA|
00000850  26 31 38 3a 4c 44 41 26  31 32 3a 53 54 41 26 37  |&18:LDA&12:STA&7|
00000860  34 3a 4c 44 41 26 31 33  3a 53 54 41 26 37 35 3a  |4:LDA&13:STA&75:|
00000870  4a 53 52 6d 6f 76 65 6c  6f 6f 70 32 0d 00 96 67  |JSRmoveloop2...g|
00000880  20 2e 6c 61 6e 67 52 4f  4d 20 4c 44 41 62 61 6e  | .langROM LDAban|
00000890  6b 31 2b 31 3a 53 54 41  26 32 38 43 3a 43 4c 43  |k1+1:STA&28C:CLC|
000008a0  3a 41 44 43 23 26 41 30  3a 53 54 41 26 37 30 3a  |:ADC#&A0:STA&70:|
000008b0  4c 44 41 23 32 3a 53 54  41 26 37 31 3a 4c 44 59  |LDA#2:STA&71:LDY|
000008c0  23 30 3a 4c 44 41 23 26  36 30 3a 53 54 41 28 26  |#0:LDA#&60:STA(&|
000008d0  37 30 29 2c 59 3a 4c 44  41 23 30 3a 53 54 41 26  |70),Y:LDA#0:STA&|
000008e0  32 41 42 0d 00 a0 d1 20  2e 76 65 63 74 20 4c 44  |2AB.... .vect LD|
000008f0  41 26 32 30 41 3a 53 54  41 4f 42 72 6f 75 74 69  |A&20A:STAOBrouti|
00000900  6e 65 2b 31 39 3a 4c 44  41 26 32 30 42 3a 53 54  |ne+19:LDA&20B:ST|
00000910  41 4f 42 72 6f 75 74 69  6e 65 2b 32 30 3a 4a 53  |AOBroutine+20:JS|
00000920  52 62 61 6e 6b 32 3a 4c  44 41 26 32 30 41 3a 53  |Rbank2:LDA&20A:S|
00000930  54 41 6f 73 62 79 74 65  4c 4f 3a 4c 44 41 26 32  |TAosbyteLO:LDA&2|
00000940  30 42 3a 53 54 41 6f 73  62 79 74 65 48 49 3a 4c  |0B:STAosbyteHI:L|
00000950  44 41 26 32 31 32 3a 53  54 41 6f 73 66 69 6c 65  |DA&212:STAosfile|
00000960  4c 4f 3a 4c 44 41 26 32  31 33 3a 53 54 41 6f 73  |LO:LDA&213:STAos|
00000970  66 69 6c 65 48 49 3a 4c  44 41 26 32 31 45 3a 53  |fileHI:LDA&21E:S|
00000980  54 41 6f 73 66 73 63 4c  4f 3a 4c 44 41 26 32 31  |TAosfscLO:LDA&21|
00000990  46 3a 53 54 41 6f 73 66  73 63 48 49 3a 4a 53 52  |F:STAosfscHI:JSR|
000009a0  76 65 63 74 6f 72 73 3a  4a 53 52 62 61 6e 6b 31  |vectors:JSRbank1|
000009b0  3a 52 54 53 0d 00 aa 8d  20 2e 6d 6f 76 65 6c 6f  |:RTS.... .movelo|
000009c0  6f 70 32 20 4c 44 59 23  30 3a 2e 6c 6f 6f 70 20  |op2 LDY#0:.loop |
000009d0  4c 44 41 28 26 37 30 29  2c 59 3a 53 54 41 28 26  |LDA(&70),Y:STA(&|
000009e0  37 32 29 2c 59 3a 49 4e  43 26 37 30 3a 42 4e 45  |72),Y:INC&70:BNE|
000009f0  61 3a 49 4e 43 26 37 31  3a 2e 61 20 49 4e 43 26  |a:INC&71:.a INC&|
00000a00  37 32 3a 42 4e 45 62 3a  49 4e 43 26 37 33 3a 2e  |72:BNEb:INC&73:.|
00000a10  62 20 4c 44 41 26 37 30  3a 43 4d 50 26 37 34 3a  |b LDA&70:CMP&74:|
00000a20  42 4e 45 6c 6f 6f 70 3a  4c 44 41 26 37 31 3a 43  |BNEloop:LDA&71:C|
00000a30  4d 50 26 37 35 3a 42 4e  45 6c 6f 6f 70 3a 52 54  |MP&75:BNEloop:RT|
00000a40  53 0d 00 b4 2d 20 5d 3a  4f 25 3d 50 25 3a 73 74  |S...- ]:O%=P%:st|
00000a50  61 72 74 3d 4f 25 3a 50  25 3d 42 32 72 6f 75 74  |art=O%:P%=B2rout|
00000a60  69 6e 65 3a 5b 4f 50 54  70 61 73 73 2b 34 0d 00  |ine:[OPTpass+4..|
00000a70  be 8a 20 4c 44 41 23 30  3a 41 44 43 23 30 3a 50  |.. LDA#0:ADC#0:P|
00000a80  48 41 3a 4c 44 41 6f 73  66 73 63 4c 4f 3a 53 54  |HA:LDAosfscLO:ST|
00000a90  41 26 32 31 45 3a 4c 44  41 6f 73 66 73 63 48 49  |A&21E:LDAosfscHI|
00000aa0  3a 53 54 41 26 32 31 46  3a 4c 44 41 6f 73 66 69  |:STA&21F:LDAosfi|
00000ab0  6c 65 4c 4f 3a 53 54 41  26 32 31 32 3a 4c 44 41  |leLO:STA&212:LDA|
00000ac0  6f 73 66 69 6c 65 48 49  3a 53 54 41 26 32 31 33  |osfileHI:STA&213|
00000ad0  3a 4c 44 41 6f 73 62 79  74 65 4c 4f 3a 53 54 41  |:LDAosbyteLO:STA|
00000ae0  26 32 30 41 3a 4c 44 41  6f 73 62 79 74 65 48 49  |&20A:LDAosbyteHI|
00000af0  3a 53 54 41 26 32 30 42  0d 00 c3 7f 20 53 54 58  |:STA&20B.... STX|
00000b00  65 6e 64 61 64 64 3a 4c  44 58 23 30 3a 2e 73 61  |endadd:LDX#0:.sa|
00000b10  76 65 76 61 72 73 20 4c  44 41 26 37 30 2c 58 3a  |vevars LDA&70,X:|
00000b20  53 54 41 74 65 6d 70 73  74 6f 72 65 2c 58 3a 49  |STAtempstore,X:I|
00000b30  4e 58 3a 43 50 58 23 36  3a 42 4e 45 73 61 76 65  |NX:CPX#6:BNEsave|
00000b40  76 61 72 73 3a 53 54 59  26 37 35 3a 4c 44 58 65  |vars:STY&75:LDXe|
00000b50  6e 64 61 64 64 3a 53 54  58 26 37 34 3a 50 4c 41  |ndadd:STX&74:PLA|
00000b60  3a 42 45 51 66 69 6c 65  72 6f 75 74 3a 4a 4d 50  |:BEQfilerout:JMP|
00000b70  66 73 63 72 6f 75 74 0d  00 c8 56 20 2e 66 69 6c  |fscrout...V .fil|
00000b80  65 72 6f 75 74 20 4c 44  59 23 30 3a 4c 44 41 28  |erout LDY#0:LDA(|
00000b90  26 37 34 29 2c 59 3a 54  41 58 3a 49 4e 59 3a 4c  |&74),Y:TAX:INY:L|
00000ba0  44 41 28 26 37 34 29 2c  59 3a 53 54 58 26 37 30  |DA(&74),Y:STX&70|
00000bb0  3a 53 54 41 26 37 31 3a  44 45 59 3a 4a 53 52 66  |:STA&71:DEY:JSRf|
00000bc0  69 6c 65 6e 61 6d 65 3a  4c 44 58 23 30 0d 00 d2  |ilename:LDX#0...|
00000bd0  a9 20 2e 6c 6f 61 64 20  4c 44 41 23 30 3a 53 54  |. .load LDA#0:ST|
00000be0  41 26 37 30 3a 53 54 41  26 37 32 3a 4c 44 41 23  |A&70:STA&72:LDA#|
00000bf0  39 3a 53 54 41 26 37 31  3a 4c 44 41 23 26 41 43  |9:STA&71:LDA#&AC|
00000c00  3a 53 54 41 26 37 33 3a  4c 44 41 23 26 31 44 3a  |:STA&73:LDA#&1D:|
00000c10  53 54 41 65 6e 64 61 64  64 3a 4c 44 59 23 30 3a  |STAendadd:LDY#0:|
00000c20  4a 53 52 6d 6f 76 65 6c  6f 6f 70 3a 4c 44 41 23  |JSRmoveloop:LDA#|
00000c30  26 38 39 3a 53 54 41 26  37 31 3a 4c 44 41 23 39  |&89:STA&71:LDA#9|
00000c40  3a 53 54 41 26 37 33 3a  4c 44 41 23 26 39 44 3a  |:STA&73:LDA#&9D:|
00000c50  53 54 41 65 6e 64 61 64  64 3a 4c 44 59 23 30 3a  |STAendadd:LDY#0:|
00000c60  4a 53 52 6d 6f 76 65 6c  6f 6f 70 3a 4a 4d 50 6c  |JSRmoveloop:JMPl|
00000c70  6f 61 64 61 64 64 0d 00  dc 63 20 2e 6d 6f 76 65  |oadadd...c .move|
00000c80  6c 6f 6f 70 20 4c 44 41  28 26 37 30 29 2c 59 3a  |loop LDA(&70),Y:|
00000c90  53 54 41 28 26 37 32 29  2c 59 3a 49 4e 59 3a 42  |STA(&72),Y:INY:B|
00000ca0  4e 45 6d 6f 76 65 6c 6f  6f 70 3a 49 4e 43 26 37  |NEmoveloop:INC&7|
00000cb0  31 3a 49 4e 43 26 37 33  3a 4c 44 41 26 37 31 3a  |1:INC&73:LDA&71:|
00000cc0  43 4d 50 65 6e 64 61 64  64 3a 42 4e 45 6d 6f 76  |CMPendadd:BNEmov|
00000cd0  65 6c 6f 6f 70 3a 52 54  53 0d 00 e6 e3 20 2e 6c  |eloop:RTS.... .l|
00000ce0  6f 61 64 61 64 64 20 4c  44 41 23 30 3a 53 54 41  |oadadd LDA#0:STA|
00000cf0  26 41 30 30 3a 4c 44 41  23 26 42 3a 53 54 41 26  |&A00:LDA#&B:STA&|
00000d00  41 30 31 3a 53 54 58 65  6e 64 61 64 64 3a 43 50  |A01:STXendadd:CP|
00000d10  58 23 31 3a 42 45 51 66  69 6e 64 61 64 64 3a 4c  |X#1:BEQfindadd:L|
00000d20  44 41 23 30 3a 53 54 41  26 37 32 3a 4c 44 41 23  |DA#0:STA&72:LDA#|
00000d30  26 41 3a 53 54 41 26 37  33 3a 4c 44 41 26 37 34  |&A:STA&73:LDA&74|
00000d40  3a 53 54 41 26 37 30 3a  4c 44 41 23 33 3a 53 54  |:STA&70:LDA#3:ST|
00000d50  41 65 6e 64 61 64 64 3a  4c 44 41 26 37 35 3a 4c  |Aendadd:LDA&75:L|
00000d60  44 59 23 30 3a 2e 72 61  6d 20 43 4d 50 23 26 43  |DY#0:.ram CMP#&C|
00000d70  30 3a 42 4e 45 6e 6f 31  3a 4c 44 41 23 26 31 44  |0:BNEno1:LDA#&1D|
00000d80  3a 4a 4d 50 73 74 3a 2e  6e 6f 31 20 43 4d 50 23  |:JMPst:.no1 CMP#|
00000d90  26 31 44 3a 42 43 53 73  74 3a 43 4d 50 23 39 3a  |&1D:BCSst:CMP#9:|
00000da0  42 43 43 73 74 3a 43 4c  43 3a 41 44 43 23 26 41  |BCCst:CLC:ADC#&A|
00000db0  33 3a 2e 73 74 20 53 54  41 26 37 31 0d 00 f0 5e  |3:.st STA&71...^|
00000dc0  20 2e 74 72 20 4c 44 41  28 26 37 30 29 2c 59 3a  | .tr LDA(&70),Y:|
00000dd0  53 54 41 28 26 37 32 29  2c 59 3a 49 4e 43 26 37  |STA(&72),Y:INC&7|
00000de0  32 3a 4c 44 41 26 37 32  3a 43 4d 50 23 26 31 32  |2:LDA&72:CMP#&12|
00000df0  3a 42 45 51 65 78 65 63  3a 49 4e 43 26 37 30 3a  |:BEQexec:INC&70:|
00000e00  42 4e 45 74 72 3a 49 4e  43 26 37 31 3a 4c 44 41  |BNEtr:INC&71:LDA|
00000e10  26 37 31 3a 4a 4d 50 72  61 6d 0d 00 fa 68 20 2e  |&71:JMPram...h .|
00000e20  65 78 65 63 20 4c 44 41  23 30 3a 53 54 41 26 41  |exec LDA#0:STA&A|
00000e30  30 30 3a 4c 44 41 23 26  42 3a 53 54 41 26 41 30  |00:LDA#&B:STA&A0|
00000e40  31 3a 4c 44 41 26 41 30  36 3a 42 4e 45 66 69 6e  |1:LDA&A06:BNEfin|
00000e50  64 61 64 64 3a 4c 44 41  26 41 30 32 3a 53 54 41  |dadd:LDA&A02:STA|
00000e60  26 37 30 3a 4c 44 41 26  41 30 33 3a 53 54 41 26  |&70:LDA&A03:STA&|
00000e70  37 31 3a 4c 44 41 23 32  3a 53 54 41 65 6e 64 61  |71:LDA#2:STAenda|
00000e80  64 64 0d 01 04 bd 20 2e  66 69 6e 64 61 64 64 20  |dd.... .findadd |
00000e90  4c 44 41 23 35 3a 4c 44  58 23 30 3a 4c 44 59 23  |LDA#5:LDX#0:LDY#|
00000ea0  26 41 3a 4a 53 52 4f 53  46 49 4c 45 3a 43 4d 50  |&A:JSROSFILE:CMP|
00000eb0  23 31 3a 42 45 51 72 75  6e 3a 4a 4d 50 65 72 72  |#1:BEQrun:JMPerr|
00000ec0  6f 72 31 3a 2e 72 75 6e  20 4c 44 58 65 6e 64 61  |or1:.run LDXenda|
00000ed0  64 64 3a 43 50 58 23 31  3a 42 4e 45 6c 61 64 64  |dd:CPX#1:BNEladd|
00000ee0  72 3a 50 4c 41 3a 53 54  41 26 37 32 3a 4c 44 58  |r:PLA:STA&72:LDX|
00000ef0  26 41 30 36 3a 4c 44 59  26 41 30 37 3a 44 45 58  |&A06:LDY&A07:DEX|
00000f00  3a 43 50 58 23 26 46 46  3a 42 4e 45 73 74 61 63  |:CPX#&FF:BNEstac|
00000f10  6b 3a 44 45 59 3a 2e 73  74 61 63 6b 20 54 59 41  |k:DEY:.stack TYA|
00000f20  3a 50 48 41 3a 54 58 41  3a 50 48 41 3a 4c 44 41  |:PHA:TXA:PHA:LDA|
00000f30  26 37 32 3a 50 48 41 3a  4a 4d 50 61 72 65 61 0d  |&72:PHA:JMParea.|
00000f40  01 0e ac 20 2e 6c 61 64  64 72 20 43 50 58 23 32  |... .laddr CPX#2|
00000f50  3a 42 4e 45 61 72 65 61  3a 4c 44 41 26 37 30 3a  |:BNEarea:LDA&70:|
00000f60  53 54 41 26 41 30 32 3a  4c 44 41 26 37 31 3a 53  |STA&A02:LDA&71:S|
00000f70  54 41 26 41 30 33 3a 4c  44 41 23 30 3a 53 54 41  |TA&A03:LDA#0:STA|
00000f80  26 41 30 36 3a 2e 61 72  65 61 20 4c 44 41 26 41  |&A06:.area LDA&A|
00000f90  30 33 3a 43 4d 50 23 26  31 44 3a 42 43 53 6c 6f  |03:CMP#&1D:BCSlo|
00000fa0  61 64 32 3a 43 4d 50 23  39 3a 42 43 53 62 79 74  |ad2:CMP#9:BCSbyt|
00000fb0  65 6c 6f 61 64 3a 43 4c  43 3a 4c 44 41 26 41 30  |eload:CLC:LDA&A0|
00000fc0  32 3a 41 44 43 26 41 30  41 3a 4c 44 41 26 41 30  |2:ADC&A0A:LDA&A0|
00000fd0  33 3a 41 44 43 26 41 30  42 3a 43 4d 50 23 39 3a  |3:ADC&A0B:CMP#9:|
00000fe0  42 43 53 62 79 74 65 6c  6f 61 64 0d 01 18 31 20  |BCSbyteload...1 |
00000ff0  2e 6c 6f 61 64 32 20 4c  44 41 23 26 46 46 3a 4c  |.load2 LDA#&FF:L|
00001000  44 58 23 30 3a 4c 44 59  23 26 41 3a 4a 53 52 4f  |DX#0:LDY#&A:JSRO|
00001010  53 46 49 4c 45 3a 4a 4d  50 65 6e 64 0d 01 22 ed  |SFILE:JMPend..".|
00001020  20 2e 62 79 74 65 6c 6f  61 64 20 4c 44 41 23 26  | .byteload LDA#&|
00001030  34 30 3a 4c 44 58 23 30  3a 4c 44 59 23 26 42 3a  |40:LDX#0:LDY#&B:|
00001040  4a 53 52 4f 53 46 49 4e  44 3a 54 41 59 3a 43 4d  |JSROSFIND:TAY:CM|
00001050  50 23 30 3a 42 4e 45 6f  6b 3a 4a 4d 50 65 72 72  |P#0:BNEok:JMPerr|
00001060  6f 72 31 3a 2e 6f 6b 20  4c 44 41 26 41 30 32 3a  |or1:.ok LDA&A02:|
00001070  53 54 41 26 37 30 3a 4c  44 41 26 41 30 33 3a 43  |STA&70:LDA&A03:C|
00001080  4d 50 23 39 3a 42 43 43  6e 6f 72 6d 3a 43 4c 43  |MP#9:BCCnorm:CLC|
00001090  3a 41 44 43 23 26 41 33  3a 2e 6e 6f 72 6d 20 53  |:ADC#&A3:.norm S|
000010a0  54 41 26 37 31 3a 2e 62  67 65 74 20 43 4c 43 3a  |TA&71:.bget CLC:|
000010b0  4a 53 52 4f 53 42 47 45  54 3a 42 43 53 65 6e 64  |JSROSBGET:BCSend|
000010c0  6c 6f 61 64 3a 53 54 41  28 26 37 30 2c 58 29 3a  |load:STA(&70,X):|
000010d0  49 4e 43 26 37 30 3a 42  4e 45 62 67 65 74 3a 49  |INC&70:BNEbget:I|
000010e0  4e 43 26 37 31 3a 4c 44  41 26 37 31 3a 43 4d 50  |NC&71:LDA&71:CMP|
000010f0  23 26 43 30 3a 42 45 51  73 75 62 3a 43 4d 50 23  |#&C0:BEQsub:CMP#|
00001100  39 3a 42 4e 45 62 67 65  74 0d 01 2c 50 20 4c 44  |9:BNEbget..,P LD|
00001110  41 23 26 41 43 3a 53 54  41 26 37 31 3a 42 4e 45  |A#&AC:STA&71:BNE|
00001120  62 67 65 74 3a 2e 73 75  62 20 4c 44 41 23 26 31  |bget:.sub LDA#&1|
00001130  44 3a 53 54 41 26 37 31  3a 42 4e 45 62 67 65 74  |D:STA&71:BNEbget|
00001140  3a 2e 65 6e 64 6c 6f 61  64 20 4c 44 41 23 30 3a  |:.endload LDA#0:|
00001150  4a 53 52 4f 53 46 49 4e  44 0d 01 36 97 20 2e 65  |JSROSFIND..6. .e|
00001160  6e 64 20 4c 44 41 23 30  3a 53 54 41 26 37 30 3a  |nd LDA#0:STA&70:|
00001170  53 54 41 26 37 32 3a 4c  44 41 23 39 3a 53 54 41  |STA&72:LDA#9:STA|
00001180  26 37 31 3a 4c 44 41 23  26 38 39 3a 53 54 41 26  |&71:LDA#&89:STA&|
00001190  37 33 3a 4c 44 41 23 26  31 44 3a 53 54 41 65 6e  |73:LDA#&1D:STAen|
000011a0  64 61 64 64 3a 4c 44 59  23 30 3a 4a 53 52 6d 6f  |dadd:LDY#0:JSRmo|
000011b0  76 65 6c 6f 6f 70 3a 4c  44 41 23 26 41 43 3a 53  |veloop:LDA#&AC:S|
000011c0  54 41 26 37 31 3a 4c 44  41 23 39 3a 53 54 41 26  |TA&71:LDA#9:STA&|
000011d0  37 33 3a 4c 44 41 23 26  43 30 3a 53 54 41 65 6e  |73:LDA#&C0:STAen|
000011e0  64 61 64 64 3a 4a 53 52  6d 6f 76 65 6c 6f 6f 70  |dadd:JSRmoveloop|
000011f0  0d 01 40 df 20 2e 72 65  74 20 4a 53 52 76 65 63  |..@. .ret JSRvec|
00001200  74 6f 72 73 32 3a 4a 4d  50 76 61 72 73 3a 5d 3a  |tors2:JMPvars:]:|
00001210  76 65 63 74 6f 72 73 3d  4f 25 3a 5b 4f 50 54 70  |vectors=O%:[OPTp|
00001220  61 73 73 2b 34 3a 2e 76  65 63 74 6f 72 73 32 20  |ass+4:.vectors2 |
00001230  4c 44 41 23 28 4f 42 72  6f 75 74 69 6e 65 20 83  |LDA#(OBroutine .|
00001240  32 35 36 29 3a 53 54 41  26 32 30 41 3a 4c 44 41  |256):STA&20A:LDA|
00001250  23 28 4f 42 72 6f 75 74  69 6e 65 20 81 32 35 36  |#(OBroutine .256|
00001260  29 3a 53 54 41 26 32 30  42 3a 4c 44 41 23 28 4f  |):STA&20B:LDA#(O|
00001270  46 49 4c 45 20 83 32 35  36 29 3a 53 54 41 26 32  |FILE .256):STA&2|
00001280  31 32 3a 4c 44 41 23 28  4f 46 49 4c 45 20 81 32  |12:LDA#(OFILE .2|
00001290  35 36 29 3a 53 54 41 26  32 31 33 3a 4c 44 41 23  |56):STA&213:LDA#|
000012a0  28 4f 46 53 43 20 83 32  35 36 29 3a 53 54 41 26  |(OFSC .256):STA&|
000012b0  32 31 45 3a 4c 44 41 23  28 4f 46 53 43 20 81 32  |21E:LDA#(OFSC .2|
000012c0  35 36 29 3a 53 54 41 26  32 31 46 3a 52 54 53 0d  |56):STA&21F:RTS.|
000012d0  01 4a 84 20 2e 76 61 72  73 20 4c 44 59 26 37 35  |.J. .vars LDY&75|
000012e0  3a 4c 44 58 26 37 34 3a  53 54 58 65 6e 64 61 64  |:LDX&74:STXendad|
000012f0  64 3a 4c 44 58 23 30 3a  2e 6c 6f 61 64 76 61 72  |d:LDX#0:.loadvar|
00001300  73 20 4c 44 41 74 65 6d  70 73 74 6f 72 65 2c 58  |s LDAtempstore,X|
00001310  3a 53 54 41 26 37 30 2c  58 3a 49 4e 58 3a 43 50  |:STA&70,X:INX:CP|
00001320  58 23 36 3a 42 4e 45 6c  6f 61 64 76 61 72 73 3a  |X#6:BNEloadvars:|
00001330  4c 44 58 65 6e 64 61 64  64 3a 4a 4d 50 20 42 41  |LDXendadd:JMP BA|
00001340  43 4b 2d 28 6f 73 62 79  74 65 2d 62 61 6e 6b 31  |CK-(osbyte-bank1|
00001350  2d 31 29 0d 01 54 c1 20  2e 66 73 63 72 6f 75 74  |-1)..T. .fscrout|
00001360  20 50 4c 41 3a 50 48 41  3a 42 45 51 72 65 74 3a  | PLA:PHA:BEQret:|
00001370  43 4d 50 23 34 3a 42 45  51 66 73 63 3a 43 4d 50  |CMP#4:BEQfsc:CMP|
00001380  23 32 3a 42 45 51 66 73  63 3a 4a 53 52 6f 6c 64  |#2:BEQfsc:JSRold|
00001390  4f 53 46 53 43 3a 4c 44  41 26 37 30 3a 53 54 41  |OSFSC:LDA&70:STA|
000013a0  26 31 30 44 35 3a 4c 44  41 26 37 31 3a 53 54 41  |&10D5:LDA&71:STA|
000013b0  26 44 43 43 3a 4c 44 41  26 37 32 3a 53 54 41 26  |&DCC:LDA&72:STA&|
000013c0  44 43 44 3a 4c 44 41 26  37 33 3a 53 54 41 26 44  |DCD:LDA&73:STA&D|
000013d0  43 45 3a 4a 4d 50 72 65  74 3a 2e 66 73 63 20 4c  |CE:JMPret:.fsc L|
000013e0  44 41 26 37 34 3a 53 54  41 26 37 30 3a 4c 44 41  |DA&74:STA&70:LDA|
000013f0  26 37 35 3a 53 54 41 26  37 31 3a 4a 53 52 66 69  |&75:STA&71:JSRfi|
00001400  6c 65 6e 61 6d 65 3a 4c  44 58 23 31 3a 4a 4d 50  |lename:LDX#1:JMP|
00001410  6c 6f 61 64 0d 01 59 8e  20 2e 6f 6c 64 4f 53 46  |load..Y. .oldOSF|
00001420  53 43 20 4c 44 41 26 31  30 44 35 3a 53 54 41 26  |SC LDA&10D5:STA&|
00001430  37 30 3a 4c 44 41 26 44  43 43 3a 53 54 41 26 37  |70:LDA&DCC:STA&7|
00001440  31 3a 4c 44 41 26 44 43  44 3a 53 54 41 26 37 32  |1:LDA&DCD:STA&72|
00001450  3a 4c 44 41 26 44 43 45  3a 53 54 41 26 37 33 3a  |:LDA&DCE:STA&73:|
00001460  4c 44 41 23 26 36 30 3a  53 54 41 26 44 43 43 3a  |LDA#&60:STA&DCC:|
00001470  4c 44 41 23 26 39 45 3a  53 54 41 26 44 43 44 3a  |LDA#&9E:STA&DCD:|
00001480  4c 44 41 23 34 3a 53 54  41 26 44 43 45 3a 50 4c  |LDA#4:STA&DCE:PL|
00001490  41 3a 50 48 41 3a 4a 4d  50 28 6f 73 66 73 63 4c  |A:PHA:JMP(osfscL|
000014a0  4f 29 0d 01 5e cd 20 2e  66 69 6c 65 6e 61 6d 65  |O)..^. .filename|
000014b0  20 4c 44 59 23 30 3a 4c  44 41 28 26 37 30 29 2c  | LDY#0:LDA(&70),|
000014c0  59 3a 43 4d 50 23 26 44  3a 42 45 51 6e 61 6d 65  |Y:CMP#&D:BEQname|
000014d0  3a 43 4d 50 23 26 32 30  3a 42 45 51 6e 61 6d 65  |:CMP#&20:BEQname|
000014e0  3a 4a 4d 50 6e 6f 74 7a  65 72 6f 3a 2e 6e 61 6d  |:JMPnotzero:.nam|
000014f0  65 20 4c 44 41 6e 61 6d  65 4c 4f 3a 53 54 41 26  |e LDAnameLO:STA&|
00001500  37 30 3a 53 54 41 26 37  32 3a 4c 44 41 6e 61 6d  |70:STA&72:LDAnam|
00001510  65 48 49 3a 53 54 41 26  37 31 3a 53 54 41 26 37  |eHI:STA&71:STA&7|
00001520  33 3a 4c 44 41 28 26 37  30 29 2c 59 3a 43 4d 50  |3:LDA(&70),Y:CMP|
00001530  23 30 3a 42 4e 45 6f 6b  32 3a 50 4c 41 3a 50 4c  |#0:BNEok2:PLA:PL|
00001540  41 3a 4a 4d 50 65 72 72  6f 72 32 3a 2e 6f 6b 32  |A:JMPerror2:.ok2|
00001550  20 4c 44 41 28 26 37 32  29 2c 59 3a 49 4e 43 26  | LDA(&72),Y:INC&|
00001560  37 32 3a 42 4e 45 6e 6f  3a 49 4e 43 26 37 33 0d  |72:BNEno:INC&73.|
00001570  01 68 e9 20 2e 6e 6f 20  43 4d 50 23 26 44 3a 42  |.h. .no CMP#&D:B|
00001580  4e 45 6f 6b 32 3a 4c 44  41 26 37 32 3a 53 54 41  |NEok2:LDA&72:STA|
00001590  6e 61 6d 65 4c 4f 3a 4c  44 41 26 37 33 3a 53 54  |nameLO:LDA&73:ST|
000015a0  41 6e 61 6d 65 48 49 3a  2e 6e 6f 74 7a 65 72 6f  |AnameHI:.notzero|
000015b0  20 4c 44 41 23 30 3a 53  54 41 26 37 32 3a 4c 44  | LDA#0:STA&72:LD|
000015c0  41 23 26 38 42 3a 53 54  41 26 37 33 3a 2e 74 72  |A#&8B:STA&73:.tr|
000015d0  61 6e 73 6c 6f 6f 70 20  4c 44 41 28 26 37 30 29  |ansloop LDA(&70)|
000015e0  2c 59 3a 53 54 41 28 26  37 32 29 2c 59 3a 43 4d  |,Y:STA(&72),Y:CM|
000015f0  50 23 26 44 3a 42 45 51  65 6e 64 66 69 6c 65 3a  |P#&D:BEQendfile:|
00001600  43 4d 50 23 26 32 30 3a  42 4e 45 63 6f 6e 74 66  |CMP#&20:BNEcontf|
00001610  69 6c 65 3a 4c 44 41 23  26 44 3a 53 54 41 28 26  |ile:LDA#&D:STA(&|
00001620  37 32 29 2c 59 3a 42 4e  45 65 6e 64 66 69 6c 65  |72),Y:BNEendfile|
00001630  3a 2e 63 6f 6e 74 66 69  6c 65 20 49 4e 59 3a 4a  |:.contfile INY:J|
00001640  4d 50 74 72 61 6e 73 6c  6f 6f 70 3a 2e 65 6e 64  |MPtransloop:.end|
00001650  66 69 6c 65 20 52 54 53  0d 01 72 d1 20 2e 65 72  |file RTS..r. .er|
00001660  72 6f 72 31 20 4c 44 41  23 28 6e 6f 74 66 6f 75  |ror1 LDA#(notfou|
00001670  6e 64 20 83 32 35 36 29  3a 53 54 41 26 37 30 3a  |nd .256):STA&70:|
00001680  4c 44 41 23 28 6e 6f 74  66 6f 75 6e 64 20 81 32  |LDA#(notfound .2|
00001690  35 36 29 3a 53 54 41 26  37 31 3a 4a 4d 50 65 72  |56):STA&71:JMPer|
000016a0  72 6f 72 3a 2e 65 72 72  6f 72 32 20 4c 44 41 23  |ror:.error2 LDA#|
000016b0  28 6e 6f 6d 6f 72 65 20  83 32 35 36 29 3a 53 54  |(nomore .256):ST|
000016c0  41 26 37 30 3a 4c 44 41  23 28 6e 6f 6d 6f 72 65  |A&70:LDA#(nomore|
000016d0  20 81 32 35 36 29 3a 53  54 41 26 37 31 3a 2e 65  | .256):STA&71:.e|
000016e0  72 72 6f 72 20 4c 44 59  23 30 3a 2e 70 72 69 6e  |rror LDY#0:.prin|
000016f0  74 6c 6f 6f 70 20 4c 44  41 28 26 37 30 29 2c 59  |tloop LDA(&70),Y|
00001700  3a 49 4e 59 3a 4a 53 52  4f 53 41 53 43 49 3a 43  |:INY:JSROSASCI:C|
00001710  4d 50 23 26 44 3a 42 4e  45 70 72 69 6e 74 6c 6f  |MP#&D:BNEprintlo|
00001720  6f 70 3a 4a 4d 50 72 65  74 0d 01 7c e6 20 2e 6e  |op:JMPret..|. .n|
00001730  6f 74 66 6f 75 6e 64 20  45 51 55 53 22 4e 6f 74  |otfound EQUS"Not|
00001740  20 66 6f 75 6e 64 22 3a  45 51 55 42 31 33 3a 2e  | found":EQUB13:.|
00001750  6e 6f 6d 6f 72 65 20 45  51 55 53 22 4e 6f 20 6d  |nomore EQUS"No m|
00001760  6f 72 65 20 66 69 6c 65  6e 61 6d 65 73 22 3a 45  |ore filenames":E|
00001770  51 55 42 31 33 3a 2e 6e  61 6d 65 4c 4f 20 45 51  |QUB13:.nameLO EQ|
00001780  55 42 6e 61 6d 65 73 20  83 32 35 36 3a 2e 6e 61  |UBnames .256:.na|
00001790  6d 65 48 49 20 45 51 55  42 6e 61 6d 65 73 20 81  |meHI EQUBnames .|
000017a0  32 35 36 3a 2e 65 6e 64  61 64 64 20 45 51 55 42  |256:.endadd EQUB|
000017b0  30 3a 2e 6f 73 66 69 6c  65 4c 4f 20 45 51 55 42  |0:.osfileLO EQUB|
000017c0  30 3a 2e 6f 73 66 69 6c  65 48 49 20 45 51 55 42  |0:.osfileHI EQUB|
000017d0  30 3a 2e 6f 73 66 73 63  4c 4f 20 45 51 55 42 30  |0:.osfscLO EQUB0|
000017e0  3a 2e 6f 73 66 73 63 48  49 20 45 51 55 42 30 3a  |:.osfscHI EQUB0:|
000017f0  2e 6f 73 62 79 74 65 4c  4f 20 45 51 55 42 30 3a  |.osbyteLO EQUB0:|
00001800  2e 6f 73 62 79 74 65 48  49 20 45 51 55 42 30 0d  |.osbyteHI EQUB0.|
00001810  01 81 53 20 2e 74 65 6d  70 73 74 6f 72 65 20 45  |..S .tempstore E|
00001820  51 55 44 30 3a 45 51 55  57 30 3a 2e 6e 61 6d 65  |QUD0:EQUW0:.name|
00001830  73 3a 5d 3a 24 4f 25 3d  66 69 6c 65 6e 61 6d 65  |s:]:$O%=filename|
00001840  73 24 3a 4f 25 3d 4f 25  2b a9 28 66 69 6c 65 6e  |s$:O%=O%+.(filen|
00001850  61 6d 65 73 24 29 2b 31  3a 3f 28 4f 25 2d 31 29  |ames$)+1:?(O%-1)|
00001860  3d 30 0d 01 86 ba 20 62  61 6e 6b 31 3d 4f 25 3a  |=0.... bank1=O%:|
00001870  5b 4f 50 54 70 61 73 73  2b 34 3a 4c 44 41 23 30  |[OPTpass+4:LDA#0|
00001880  3a 53 54 41 26 46 34 3a  53 54 41 26 46 45 30 35  |:STA&F4:STA&FE05|
00001890  3a 5d 3a 50 25 3d 4f 25  3a 5b 4f 50 54 70 61 73  |:]:P%=O%:[OPTpas|
000018a0  73 2b 34 3a 52 54 53 3a  5d 3a 6f 73 62 79 74 65  |s+4:RTS:]:osbyte|
000018b0  3d 4f 25 3a 50 25 3d 4f  42 72 6f 75 74 69 6e 65  |=O%:P%=OBroutine|
000018c0  3a 5b 4f 50 54 70 61 73  73 2b 34 3a 43 4d 50 23  |:[OPTpass+4:CMP#|
000018d0  31 34 30 3a 42 45 51 74  61 70 65 3a 50 48 41 3a  |140:BEQtape:PHA:|
000018e0  4c 44 41 4f 42 72 6f 75  74 69 6e 65 2b 31 39 3a  |LDAOBroutine+19:|
000018f0  53 54 41 26 32 30 41 3a  4c 44 41 4f 42 72 6f 75  |STA&20A:LDAOBrou|
00001900  74 69 6e 65 2b 32 30 3a  53 54 41 26 32 30 42 3a  |tine+20:STA&20B:|
00001910  50 4c 41 3a 4a 53 52 26  30 30 30 30 0d 01 8b 52  |PLA:JSR&0000...R|
00001920  20 50 48 41 3a 4c 44 41  23 28 4f 42 72 6f 75 74  | PHA:LDA#(OBrout|
00001930  69 6e 65 20 83 32 35 36  29 3a 53 54 41 26 32 30  |ine .256):STA&20|
00001940  41 3a 4c 44 41 23 28 4f  42 72 6f 75 74 69 6e 65  |A:LDA#(OBroutine|
00001950  20 81 32 35 36 29 3a 53  54 41 26 32 30 42 3a 50  | .256):STA&20B:P|
00001960  4c 41 3a 2e 74 61 70 65  20 52 54 53 3a 5d 0d 01  |LA:.tape RTS:]..|
00001970  90 bd 20 66 69 6c 65 3d  4f 25 3a 50 25 3d 4f 46  |.. file=O%:P%=OF|
00001980  49 4c 45 3a 5b 4f 50 54  70 61 73 73 2b 34 3a 43  |ILE:[OPTpass+4:C|
00001990  4c 43 3a 42 43 43 6f 66  3a 2e 4f 46 53 43 20 53  |LC:BCCof:.OFSC S|
000019a0  45 43 3a 2e 6f 66 20 50  48 41 3a 5d 3a 62 61 6e  |EC:.of PHA:]:ban|
000019b0  6b 32 3d 4f 25 3a 5b 4f  50 54 70 61 73 73 2b 34  |k2=O%:[OPTpass+4|
000019c0  3a 4c 44 41 23 30 3a 53  54 41 26 46 34 3a 53 54  |:LDA#0:STA&F4:ST|
000019d0  41 26 46 45 30 35 3a 2e  65 6e 74 65 72 3a 5d 3a  |A&FE05:.enter:]:|
000019e0  50 25 3d 4f 25 3a 5b 4f  50 54 70 61 73 73 2b 34  |P%=O%:[OPTpass+4|
000019f0  3a 52 54 53 3a 5d 3a 66  69 6c 65 72 65 74 3d 4f  |:RTS:]:fileret=O|
00001a00  25 3a 50 25 3d 42 41 43  4b 3a 5b 4f 50 54 70 61  |%:P%=BACK:[OPTpa|
00001a10  73 73 2b 34 3a 50 4c 41  3a 52 54 53 3a 5d 3a 66  |ss+4:PLA:RTS:]:f|
00001a20  72 65 74 65 6e 64 3d 4f  25 3a ed 0d ff           |retend=O%:...|
00001a2d