Home » CEEFAX disks » telesoftware17.adl » 11-08-89/BCOPIER
11-08-89/BCOPIER
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » CEEFAX disks » telesoftware17.adl |
| Filename: | 11-08-89/BCOPIER |
| Read OK: | ✔ |
| File size: | 1AB3 bytes |
| Load address: | FFFF1900 |
| Exec address: | FFFF8023 |
File contents
10REM *******************
20REM *BLOCK DISC COPIER*
30REM * By John Kelk *
40REM * (c) Micro User *
50REM *******************
60oswrch=&FFEE:osword=&FFF1
70osbyte=&FFF4:osrdch=&FFE0
80osnewl=&FFE7
90osfile=&FFDD
100drloc1=&CF:drloc2=&10CB
110files=&80:fileno=&81
120xpos=&82:ypos=&83
130lo=&84:hi=&85
140stack=&86:adrive=&87:bdrive=&88
150flag=&89:xtemp=&8A:ytemp=&8B
160buffer1=&E00:buffer2=&F00
170buffer3=&780:buffer4=&500
180address=&7A0:param=&7E0:length=param+10
190name=&7F2:start=&7FC:bytes=&7FE
200FOR pass=0 TO 3 STEP 3
210P%=&880
220[OPT pass
230TSX:STX stack
240JSR initialise
250JSR getdrives
260JSR readcat
270JSR displaycat
280JSR displaymenu
290.copyfiles
300LDA adrive:STA drloc1:STA drloc2
310LDX fileno
320.loop1
330LDA buffer3,X:BEQ goodfile
340INX:CPX files:BNE loop1
350LDA fileno:BNE keeplooking
360RTS
370.keeplooking
380LDX #0:STX fileno:BEQ loop1
390.goodfile
400STX fileno
410JSR getscreenpos
420LDA #134:JSR oswrch
430LDA #8 :JSR oswrch
440.searchkey
450JSR getkey:CMP #136:BNE up
460LDA #1:STA less+4:BPL less
470.up
480CMP #139:BNE right
490LDA #4:STA less+4
500.less
510LDA fileno:SEC:SBC #0:BMI searchkey
520STA fileno:TAX
530LDA #131:JSR oswrch
540.loop2
550LDA buffer3,X:BEQ goodfile
560DEX:BPL loop2
570LDX files:DEX:STX fileno
580BPL loop2
590.right
600CMP #137:BNE down
610LDA #1:BPL more
620.down
630CMP #138:BNE copy
640LDA #4
650.more
660CLC:ADC fileno
670CMP files:BCS searchkey
680STA fileno
690.newfile
700LDA #131:JSR oswrch
710JMP copyfiles
720.copy
730CMP #135:BNE savefiles
740JSR load
750JMP copyfiles
760.savefiles
770CMP #64:BNE searchkey
780LDA #131:JSR oswrch
790JSR save
800JMP copyfiles
810:
820.initialise
830LDA #0:STA track+1:STA sector+1
840 :STA fileno
850LDA #22:JSR oswrch
860LDA #7 :JSR oswrch
870LDA #4:LDX #1:JSR osbyte
880.clearbuff3
890LDA #0:LDX #&7F
900.loop3
910STA buffer3,X:DEX:BPL loop3
920LDA #name MOD256:STA param
930LDA #name DIV256:STA param+1
940.setpointer
950LDA #0:STA start:STA bytes
960LDA #&11:STA start+1
970LDA #&6B:STA bytes+1
980RTS
990:
1000.readcat
1010LDA adrive:STA drloc1:STA drloc2
1020LDX #0:STX &71
1030LDA #buffer1 DIV256:STA &72
1040DEX:STX &70:STX &73:STX &74
1050LDA #3:STA &75
1060LDA #&53:STA &76
1070.track
1080LDA #0:STA &77
1090.sector
1100LDA #0:STA &78
1110LDA #&22:STA &79
1120LDA #&7F:LDX #&70:LDY #0
1130JMP osword
1140:
1150.displaycat
1160LDA #12:JSR oswrch
1170LDX fileno:JSR getscreenpos
1180LDA #8:STA get+1
1190LDA #buffer1 DIV256:STA get+2
1200LDA buffer2+5
1210LSR A:LSR A:LSR A
1220TAX:STX files
1230.loop4
1240LDA #131:JSR oswrch
1250.carryon
1260LDY #7:JSR get
1270AND #&7F:JSR oswrch
1280LDA #ASC".":JSR oswrch
1290.filename
1300LDY #0
1310.loop5
1320JSR get
1330CMP #32:BCS ok
1340LDA #ASC"?"
1350.ok
1360JSR oswrch
1370INY:CPY #7:BNE loop5
1380.nextname
1390STA flag
1400DEX:BEQ endcat
1410LDA get+1:CLC:ADC #8:STA get+1
1420INC fileno
1430LDA flag:BMI carryon
1440BPL loop4
1450.endcat
1460LDA #0:STA fileno
1470RTS
1480:
1490.get
1500LDA buffer1,Y:RTS
1510:
1520.getscreenpos
1530TXA
1540LSR A:LSR A
1550TAY:INY:INY:STY ypos
1560ASL A:ASL A:STA xpos
1570TXA:SEC:SBC xpos
1580ASL A:STA xpos
1590ASL A:ASL A:CLC:ADC xpos:STA xpos
1600.setcursor
1610LDA #31:JSR oswrch
1620LDA xpos:JSR oswrch
1630LDA ypos:JMP oswrch
1640:
1650.load
1660LDA #129:JSR oswrch
1670JSR fetchname
1680LDA fileno:TAX
1690ASL A:TAY
1700LDA start:STA param+2
1710STA address,Y:INY
1720LDA start+1:STA param+3
1730STA address,Y
1740LDA #&FF:STA buffer3,X
1750LDX #param MOD256
1760LDY #param DIV256
1770JSR osfile
1780LDA length:CLC:ADC start:STA start
1790LDA length+1:ADC start+1:STA start+1
1800LDA bytes:SEC:SBC length:STA bytes
1810LDA bytes+1:SBC length+1:STA bytes+1
1820LDX #0
1830.loop6
1840LDA buffer3,X:BNE nexta
1850TXA:ASL A:ASL A:ASL A
1860ADC #12:TAY
1870LDA bytes:CMP buffer2,Y:INY
1880LDA bytes+1:SBC buffer2,Y
1890BCS nexta
1900INC buffer3,X
1910JSR getscreenpos
1920LDA #132:JSR oswrch
1930.nexta
1940INX:CPX files:BNE loop6
1950LDX fileno
1960.loop7
1970LDA buffer3,X:BEQ filefound
1980INX:CPX files:BNE loop7
1990LDX fileno:BEQ save
2000LDX #0:STX fileno:BEQ loop7
2010.filefound
2020STX fileno
2030RTS
2040:
2050.save
2060LDA start:BNE beginsave
2070LDA start+1:CMP #&11:BNE beginsave
2080RTS
2090.beginsave
2100LDA bdrive:STA drloc1:STA drloc2
2110LDX #0
2120.loop8
2130LDA buffer2,X:STA buffer4,X
2140INX:BNE loop8
2150STX xpos:LDA #23:STA ypos
2160JSR setcursor
2170LDX #m3 MOD256:LDY #m3 DIV256
2180JSR message
2190JSR getkey
2200LDX files:DEX:STX xtemp
2210.loop9
2220LDA buffer3,X:BPL reset
2230CMP #&FF:BNE reset
2240DEC buffer3,X
2250JSR getscreenpos
2260LDA #9:JSR oswrch
2270JSR fetchname
2280LDA xtemp:ASL A:TAY
2290LDA address,Y:STA param+10:INY
2300LDA address,Y:STA param+11:DEY
2310TYA:ASL A:ASL A:ADC #8:TAY
2320LDA buffer4,Y:STA param+2:INY
2330LDA buffer4,Y:STA param+3:INY
2340LDA buffer4,Y:STA param+6:INY
2350LDA buffer4,Y:STA param+7:INY
2360LDA buffer4,Y:ADC param+10
2370STA param+14:INY
2380LDA buffer4,Y:ADC param+11
2390STA param+15
2400LDX #param MOD256
2410LDY #param DIV256
2420LDA #0:JSR osfile
2430JMP nextsave
2440.reset
2450BEQ nextsave:BMI nextsave
2460DEC buffer3,X
2470JSR getscreenpos
2480LDA #131:JSR oswrch
2490.nextsave
2500DEC xtemp:LDX xtemp:BPL loop9
2510LDA #7:STA xpos:LDA #23:STA ypos
2520JSR setcursor
2530LDX #m4 MOD256:LDY #m4 DIV256
2540JSR message
2550JSR getkey
2560LDA #0:STA xpos
2570JSR setcursor
2580LDX #40:LDA #32
2590.loopa
2600JSR oswrch:DEX:BNE loopa
2610JMP setpointer
2620:
2630.getkey
2640LDA #21:LDX #0:JSR osbyte
2650JSR osrdch:BCS keyerr:RTS
2660.keyerr
2670CMP #27:BNE getkey
2680LDA #&7E:JSR osbyte
2690LDA #4:LDX #0:JSR osbyte
2700LDA #0:STA xpos:LDA #22:STA ypos
2710JSR setcursor
2720LDX stack:TXS
2730RTS
2740:
2750.fetchname
2760LDY #0:STY ytemp:STY param+6
2770.loopb
2780LDA #135:JSR osbyte
2790LDY ytemp:TXA:STA name,Y
2800JSR oswrch
2810INY:STY ytemp
2820CPY #9:BNE loopb
2830LDA #13:STA name,Y
2840RTS
2850:
2860.getdrives
2870LDA #0:STA xpos:LDA #5:STA ypos
2880JSR setcursor
2890LDX #m1 MOD256:LDY #m1 DIV256
2900JSR message
2910.getdrivea
2920JSR getkey
2930CMP #48:BCC getdrivea
2940CMP #52:BCS getdrivea
2950JSR oswrch:AND #3:STA adrive
2960JSR osnewl
2970LDX #m2 MOD256:LDY #m2 DIV256
2980JSR message
2990.getdriveb
3000JSR getkey
3010CMP #48:BCC getdriveb
3020CMP #52:BCS getdriveb
3030JSR oswrch:AND #3:STA bdrive
3040RTS
3050:
3060.displaymenu
3070LDY #0:STY xpos:LDA #15:STA ypos
3080JSR setcursor
3090LDX #menu MOD256:LDY #menu DIV256
3100:
3110.message
3120STX loopc+1:STY loopc+2
3130LDY #0
3140.loopc
3150LDA &FFFF,Y:BEQ out
3160JSR oswrch:INY:BNE loopc
3170.out
3180RTS
3190:
3200.m1
3210OPT FNEQUS("Source drive ")
3220OPT FNEQUB(0)
3230.m2
3240OPT FNEQUS("Destination drive ")
3250OPT FNEQUB(0)
3260:
3270.menu
3280OPT FNEQUS(" COPY=LOAD @=SAVE ESCAPE=END")
3290OPT FNEQUB(0)
3300:
3310.m3
3320OPT FNEQUB(7)
3330OPT FNEQUS("Insert destination disc and press key")
3340OPT FNEQUB(0)
3350.m4
3360OPT FNEQUB(7)
3370OPT FNEQUS(" source ")
3380OPT FNEQUB(0)
3390]:NEXT
3400*SAVE copier 880 CFF
3410END
3420:
3430DEF FNEQUS(A$)
3440$P%=A$
3450P%=P%+LEN(A$)
3460=pass
3470:
3480DEF FNEQUB(A%)
3490?P%=A%
3500P%=P%+1
3510=pass
� *******************
� *BLOCK DISC COPIER*
� * By John Kelk *
(� * (c) Micro User *
2� *******************
< oswrch=&FFEE:osword=&FFF1
F osbyte=&FFF4:osrdch=&FFE0
Posnewl=&FFE7
Zosfile=&FFDD
ddrloc1=&CF:drloc2=&10CB
nfiles=&80:fileno=&81
xxpos=&82:ypos=&83
�lo=&84:hi=&85
�#stack=&86:adrive=&87:bdrive=&88
� flag=&89:xtemp=&8A:ytemp=&8B
� buffer1=&E00:buffer2=&F00
� buffer3=&780:buffer4=&500
�+address=&7A0:param=&7E0:length=param+10
�#name=&7F2:start=&7FC:bytes=&7FE
�� pass=0 � 3 � 3
� P%=&880
�
[OPT pass
�TSX:STX stack
�JSR initialise
�JSR getdrives
JSR readcat
JSR displaycat
JSR displaymenu
".copyfiles
,$LDA adrive:STA drloc1:STA drloc2
6LDX fileno
@
.loop1
J LDA buffer3,X:BEQ goodfile
TINX:CPX files:BNE loop1
^ LDA fileno:BNE keeplooking
hRTS
r.keeplooking
| LDX #0:STX fileno:BEQ loop1
�
.goodfile
�STX fileno
�JSR getscreenpos
�LDA #134:JSR oswrch
�LDA #8 :JSR oswrch
�.searchkey
� JSR getkey:CMP #136:BNE up
� LDA #1:STA less+4:BPL less
�.up
�CMP #139:BNE right
�LDA #4:STA less+4
� .less
�'LDA fileno:SEC:SBC #0:BMI searchkey
STA fileno:TAX
LDA #131:JSR oswrch
.loop2
& LDA buffer3,X:BEQ goodfile
0DEX:BPL loop2
: LDX files:DEX:STX fileno
D
BPL loop2
N
.right
XCMP #137:BNE down
bLDA #1:BPL more
l .down
vCMP #138:BNE copy
�
LDA #4
� .more
�CLC:ADC fileno
�CMP files:BCS searchkey
�STA fileno
� .newfile
�LDA #131:JSR oswrch
�JMP copyfiles
� .copy
�CMP #135:BNE savefiles
� JSR load
�JMP copyfiles
�.savefiles
CMP #64:BNE searchkey
LDA #131:JSR oswrch
JSR save
JMP copyfiles
*:
4.initialise
>#LDA #0:STA track+1:STA sector+1
H :STA fileno
RLDA #22:JSR oswrch
\LDA #7 :JSR oswrch
f LDA #4:LDX #1:JSR osbyte
p.clearbuff3
zLDA #0:LDX #&7F
�
.loop3
� STA buffer3,X:DEX:BPL loop3
� LDA #name �256:STA param
� LDA #name �256:STA param+1
�.setpointer
� LDA #0:STA start:STA bytes
�LDA #&11:STA start+1
�LDA #&6B:STA bytes+1
�RTS
�:
� .readcat
�$LDA adrive:STA drloc1:STA drloc2
�LDX #0:STX &71
LDA #buffer1 �256:STA &72
DEX:STX &70:STX &73:STX &74
LDA #3:STA &75
$LDA #&53:STA &76
.
.track
8LDA #0:STA &77
B .sector
LLDA #0:STA &78
VLDA #&22:STA &79
` LDA #&7F:LDX #&70:LDY #0
jJMP osword
t:
~.displaycat
�LDA #12:JSR oswrch
� LDX fileno:JSR getscreenpos
�LDA #8:STA get+1
� LDA #buffer1 �256:STA get+2
�LDA buffer2+5
�LSR A:LSR A:LSR A
�TAX:STX files
�
.loop4
�LDA #131:JSR oswrch
� .carryon
�LDY #7:JSR get
�� #&7F:JSR oswrch
LDA #�".":JSR oswrch
.filename
LDY #0
.loop5
( JSR get
2CMP #32:BCS ok
<
LDA #�"?"
F.ok
PJSR oswrch
ZINY:CPY #7:BNE loop5
d
.nextname
n STA flag
xDEX:BEQ endcat
�"LDA get+1:CLC:ADC #8:STA get+1
�INC fileno
�LDA flag:BMI carryon
�
BPL loop4
� .endcat
�LDA #0:STA fileno
�RTS
�:
�.get
�LDA buffer1,Y:RTS
�:
�.getscreenpos
�TXA
LSR A:LSR A
TAY:INY:INY:STY ypos
ASL A:ASL A:STA xpos
"TXA:SEC:SBC xpos
,ASL A:STA xpos
6%ASL A:ASL A:CLC:ADC xpos:STA xpos
@.setcursor
JLDA #31:JSR oswrch
TLDA xpos:JSR oswrch
^LDA ypos:JMP oswrch
h:
r .load
|LDA #129:JSR oswrch
�JSR fetchname
�LDA fileno:TAX
�
ASL A:TAY
�LDA start:STA param+2
�STA address,Y:INY
�LDA start+1:STA param+3
�STA address,Y
�LDA #&FF:STA buffer3,X
�LDX #param �256
�LDY #param �256
�JSR osfile
�&LDA length:CLC:ADC start:STA start
�(LDA length+1:ADC start+1:STA start+1
&LDA bytes:SEC:SBC length:STA bytes
(LDA bytes+1:SBC length+1:STA bytes+1
LDX #0
&
.loop6
0LDA buffer3,X:BNE nexta
:TXA:ASL A:ASL A:ASL A
DADC #12:TAY
N LDA bytes:CMP buffer2,Y:INY
X LDA bytes+1:SBC buffer2,Y
b
BCS nexta
lINC buffer3,X
vJSR getscreenpos
�LDA #132:JSR oswrch
�
.nexta
�INX:CPX files:BNE loop6
�LDX fileno
�
.loop7
� LDA buffer3,X:BEQ filefound
�INX:CPX files:BNE loop7
�LDX fileno:BEQ save
� LDX #0:STX fileno:BEQ loop7
�.filefound
�STX fileno
�RTS
�:
.save
LDA start:BNE beginsave
&LDA start+1:CMP #&11:BNE beginsave
RTS
*.beginsave
4$LDA bdrive:STA drloc1:STA drloc2
>
LDX #0
H
.loop8
R LDA buffer2,X:STA buffer4,X
\INX:BNE loop8
f STX xpos:LDA #23:STA ypos
pJSR setcursor
z LDX #m3 �256:LDY #m3 �256
�JSR message
�JSR getkey
�LDX files:DEX:STX xtemp
�
.loop9
�LDA buffer3,X:BPL reset
�CMP #&FF:BNE reset
�DEC buffer3,X
�JSR getscreenpos
�LDA #9:JSR oswrch
�JSR fetchname
�LDA xtemp:ASL A:TAY
�"LDA address,Y:STA param+10:INY
�"LDA address,Y:STA param+11:DEY
TYA:ASL A:ASL A:ADC #8:TAY
!LDA buffer4,Y:STA param+2:INY
!LDA buffer4,Y:STA param+3:INY
$!LDA buffer4,Y:STA param+6:INY
.!LDA buffer4,Y:STA param+7:INY
8 LDA buffer4,Y:ADC param+10
BSTA param+14:INY
L LDA buffer4,Y:ADC param+11
VSTA param+15
`LDX #param �256
jLDY #param �256
tLDA #0:JSR osfile
~JMP nextsave
�
.reset
� BEQ nextsave:BMI nextsave
�DEC buffer3,X
�JSR getscreenpos
�LDA #131:JSR oswrch
�
.nextsave
�!DEC xtemp:LDX xtemp:BPL loop9
�$LDA #7:STA xpos:LDA #23:STA ypos
�JSR setcursor
� LDX #m4 �256:LDY #m4 �256
�JSR message
�JSR getkey
LDA #0:STA xpos
JSR setcursor
LDX #40:LDA #32
.loopa
( JSR oswrch:DEX:BNE loopa
2JMP setpointer
<:
F .getkey
P LDA #21:LDX #0:JSR osbyte
Z JSR osrdch:BCS keyerr:RTS
d .keyerr
nCMP #27:BNE getkey
xLDA #&7E:JSR osbyte
� LDA #4:LDX #0:JSR osbyte
�$LDA #0:STA xpos:LDA #22:STA ypos
�JSR setcursor
�LDX stack:TXS
�RTS
�:
�.fetchname
� LDY #0:STY ytemp:STY param+6
�
.loopb
�LDA #135:JSR osbyte
� LDY ytemp:TXA:STA name,Y
�JSR oswrch
�INY:STY ytemp
CPY #9:BNE loopb
LDA #13:STA name,Y
RTS
":
,.getdrives
6#LDA #0:STA xpos:LDA #5:STA ypos
@JSR setcursor
J LDX #m1 �256:LDY #m1 �256
TJSR message
^.getdrivea
hJSR getkey
rCMP #48:BCC getdrivea
|CMP #52:BCS getdrivea
� JSR oswrch:� #3:STA adrive
�JSR osnewl
� LDX #m2 �256:LDY #m2 �256
�JSR message
�.getdriveb
�JSR getkey
�CMP #48:BCC getdriveb
�CMP #52:BCS getdriveb
� JSR oswrch:� #3:STA bdrive
�RTS
�:
�.displaymenu
�$LDY #0:STY xpos:LDA #15:STA ypos
JSR setcursor
!LDX #menu �256:LDY #menu �256
:
& .message
0STX loopc+1:STY loopc+2
:
LDY #0
D
.loopc
NLDA &FFFF,Y:BEQ out
X JSR oswrch:INY:BNE loopc
b.out
lRTS
v:
�.m1
�#OPT �EQUS("Source drive ")
�OPT �EQUB(0)
�.m2
�#OPT �EQUS("Destination drive ")
�OPT �EQUB(0)
�:
� .menu
�7OPT �EQUS(" COPY=LOAD @=SAVE ESCAPE=END")
�OPT �EQUB(0)
�:
�.m3
�OPT �EQUB(7)
6OPT �EQUS("Insert destination disc and press key")
OPT �EQUB(0)
.m4
OPT �EQUB(7)
* OPT �EQUS(" source ")
4OPT �EQUB(0)
>]:�
H*SAVE copier 880 CFF
R�
\:
f� �EQUS(A$)
p
$P%=A$
zP%=P%+�(A$)
� =pass
�:
�� �EQUB(A%)
�
?P%=A%
� P%=P%+1
� =pass
� 00000000 0d 00 0a 19 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..... **********|
00000010 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 14 19 f4 20 2a |*********..... *|
00000020 42 4c 4f 43 4b 20 44 49 53 43 20 43 4f 50 49 45 |BLOCK DISC COPIE|
00000030 52 2a 0d 00 1e 19 f4 20 2a 20 20 42 79 20 4a 6f |R*..... * By Jo|
00000040 68 6e 20 4b 65 6c 6b 20 20 20 2a 0d 00 28 19 f4 |hn Kelk *..(..|
00000050 20 2a 20 28 63 29 20 4d 69 63 72 6f 20 55 73 65 | * (c) Micro Use|
00000060 72 20 20 2a 0d 00 32 19 f4 20 2a 2a 2a 2a 2a 2a |r *..2.. ******|
00000070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 3c |*************..<|
00000080 1d 6f 73 77 72 63 68 3d 26 46 46 45 45 3a 6f 73 |.oswrch=&FFEE:os|
00000090 77 6f 72 64 3d 26 46 46 46 31 0d 00 46 1d 6f 73 |word=&FFF1..F.os|
000000a0 62 79 74 65 3d 26 46 46 46 34 3a 6f 73 72 64 63 |byte=&FFF4:osrdc|
000000b0 68 3d 26 46 46 45 30 0d 00 50 10 6f 73 6e 65 77 |h=&FFE0..P.osnew|
000000c0 6c 3d 26 46 46 45 37 0d 00 5a 10 6f 73 66 69 6c |l=&FFE7..Z.osfil|
000000d0 65 3d 26 46 46 44 44 0d 00 64 1b 64 72 6c 6f 63 |e=&FFDD..d.drloc|
000000e0 31 3d 26 43 46 3a 64 72 6c 6f 63 32 3d 26 31 30 |1=&CF:drloc2=&10|
000000f0 43 42 0d 00 6e 18 66 69 6c 65 73 3d 26 38 30 3a |CB..n.files=&80:|
00000100 66 69 6c 65 6e 6f 3d 26 38 31 0d 00 78 15 78 70 |fileno=&81..x.xp|
00000110 6f 73 3d 26 38 32 3a 79 70 6f 73 3d 26 38 33 0d |os=&82:ypos=&83.|
00000120 00 82 11 6c 6f 3d 26 38 34 3a 68 69 3d 26 38 35 |...lo=&84:hi=&85|
00000130 0d 00 8c 23 73 74 61 63 6b 3d 26 38 36 3a 61 64 |...#stack=&86:ad|
00000140 72 69 76 65 3d 26 38 37 3a 62 64 72 69 76 65 3d |rive=&87:bdrive=|
00000150 26 38 38 0d 00 96 20 66 6c 61 67 3d 26 38 39 3a |&88... flag=&89:|
00000160 78 74 65 6d 70 3d 26 38 41 3a 79 74 65 6d 70 3d |xtemp=&8A:ytemp=|
00000170 26 38 42 0d 00 a0 1d 62 75 66 66 65 72 31 3d 26 |&8B....buffer1=&|
00000180 45 30 30 3a 62 75 66 66 65 72 32 3d 26 46 30 30 |E00:buffer2=&F00|
00000190 0d 00 aa 1d 62 75 66 66 65 72 33 3d 26 37 38 30 |....buffer3=&780|
000001a0 3a 62 75 66 66 65 72 34 3d 26 35 30 30 0d 00 b4 |:buffer4=&500...|
000001b0 2b 61 64 64 72 65 73 73 3d 26 37 41 30 3a 70 61 |+address=&7A0:pa|
000001c0 72 61 6d 3d 26 37 45 30 3a 6c 65 6e 67 74 68 3d |ram=&7E0:length=|
000001d0 70 61 72 61 6d 2b 31 30 0d 00 be 23 6e 61 6d 65 |param+10...#name|
000001e0 3d 26 37 46 32 3a 73 74 61 72 74 3d 26 37 46 43 |=&7F2:start=&7FC|
000001f0 3a 62 79 74 65 73 3d 26 37 46 45 0d 00 c8 14 e3 |:bytes=&7FE.....|
00000200 20 70 61 73 73 3d 30 20 b8 20 33 20 88 20 33 0d | pass=0 . 3 . 3.|
00000210 00 d2 0b 50 25 3d 26 38 38 30 0d 00 dc 0d 5b 4f |...P%=&880....[O|
00000220 50 54 20 70 61 73 73 0d 00 e6 11 54 53 58 3a 53 |PT pass....TSX:S|
00000230 54 58 20 73 74 61 63 6b 0d 00 f0 12 4a 53 52 20 |TX stack....JSR |
00000240 69 6e 69 74 69 61 6c 69 73 65 0d 00 fa 11 4a 53 |initialise....JS|
00000250 52 20 67 65 74 64 72 69 76 65 73 0d 01 04 0f 4a |R getdrives....J|
00000260 53 52 20 72 65 61 64 63 61 74 0d 01 0e 12 4a 53 |SR readcat....JS|
00000270 52 20 64 69 73 70 6c 61 79 63 61 74 0d 01 18 13 |R displaycat....|
00000280 4a 53 52 20 64 69 73 70 6c 61 79 6d 65 6e 75 0d |JSR displaymenu.|
00000290 01 22 0e 2e 63 6f 70 79 66 69 6c 65 73 0d 01 2c |."..copyfiles..,|
000002a0 24 4c 44 41 20 61 64 72 69 76 65 3a 53 54 41 20 |$LDA adrive:STA |
000002b0 64 72 6c 6f 63 31 3a 53 54 41 20 64 72 6c 6f 63 |drloc1:STA drloc|
000002c0 32 0d 01 36 0e 4c 44 58 20 66 69 6c 65 6e 6f 0d |2..6.LDX fileno.|
000002d0 01 40 0a 2e 6c 6f 6f 70 31 0d 01 4a 1e 4c 44 41 |.@..loop1..J.LDA|
000002e0 20 62 75 66 66 65 72 33 2c 58 3a 42 45 51 20 67 | buffer3,X:BEQ g|
000002f0 6f 6f 64 66 69 6c 65 0d 01 54 1b 49 4e 58 3a 43 |oodfile..T.INX:C|
00000300 50 58 20 66 69 6c 65 73 3a 42 4e 45 20 6c 6f 6f |PX files:BNE loo|
00000310 70 31 0d 01 5e 1e 4c 44 41 20 66 69 6c 65 6e 6f |p1..^.LDA fileno|
00000320 3a 42 4e 45 20 6b 65 65 70 6c 6f 6f 6b 69 6e 67 |:BNE keeplooking|
00000330 0d 01 68 07 52 54 53 0d 01 72 10 2e 6b 65 65 70 |..h.RTS..r..keep|
00000340 6c 6f 6f 6b 69 6e 67 0d 01 7c 1f 4c 44 58 20 23 |looking..|.LDX #|
00000350 30 3a 53 54 58 20 66 69 6c 65 6e 6f 3a 42 45 51 |0:STX fileno:BEQ|
00000360 20 6c 6f 6f 70 31 0d 01 86 0d 2e 67 6f 6f 64 66 | loop1.....goodf|
00000370 69 6c 65 0d 01 90 0e 53 54 58 20 66 69 6c 65 6e |ile....STX filen|
00000380 6f 0d 01 9a 14 4a 53 52 20 67 65 74 73 63 72 65 |o....JSR getscre|
00000390 65 6e 70 6f 73 0d 01 a4 17 4c 44 41 20 23 31 33 |enpos....LDA #13|
000003a0 34 3a 4a 53 52 20 6f 73 77 72 63 68 0d 01 ae 17 |4:JSR oswrch....|
000003b0 4c 44 41 20 23 38 20 20 3a 4a 53 52 20 6f 73 77 |LDA #8 :JSR osw|
000003c0 72 63 68 0d 01 b8 0e 2e 73 65 61 72 63 68 6b 65 |rch.....searchke|
000003d0 79 0d 01 c2 1e 4a 53 52 20 67 65 74 6b 65 79 3a |y....JSR getkey:|
000003e0 43 4d 50 20 23 31 33 36 3a 42 4e 45 20 75 70 0d |CMP #136:BNE up.|
000003f0 01 cc 1e 4c 44 41 20 23 31 3a 53 54 41 20 6c 65 |...LDA #1:STA le|
00000400 73 73 2b 34 3a 42 50 4c 20 6c 65 73 73 0d 01 d6 |ss+4:BPL less...|
00000410 07 2e 75 70 0d 01 e0 16 43 4d 50 20 23 31 33 39 |..up....CMP #139|
00000420 3a 42 4e 45 20 72 69 67 68 74 0d 01 ea 15 4c 44 |:BNE right....LD|
00000430 41 20 23 34 3a 53 54 41 20 6c 65 73 73 2b 34 0d |A #4:STA less+4.|
00000440 01 f4 09 2e 6c 65 73 73 0d 01 fe 27 4c 44 41 20 |....less...'LDA |
00000450 66 69 6c 65 6e 6f 3a 53 45 43 3a 53 42 43 20 23 |fileno:SEC:SBC #|
00000460 30 3a 42 4d 49 20 73 65 61 72 63 68 6b 65 79 0d |0:BMI searchkey.|
00000470 02 08 12 53 54 41 20 66 69 6c 65 6e 6f 3a 54 41 |...STA fileno:TA|
00000480 58 0d 02 12 17 4c 44 41 20 23 31 33 31 3a 4a 53 |X....LDA #131:JS|
00000490 52 20 6f 73 77 72 63 68 0d 02 1c 0a 2e 6c 6f 6f |R oswrch.....loo|
000004a0 70 32 0d 02 26 1e 4c 44 41 20 62 75 66 66 65 72 |p2..&.LDA buffer|
000004b0 33 2c 58 3a 42 45 51 20 67 6f 6f 64 66 69 6c 65 |3,X:BEQ goodfile|
000004c0 0d 02 30 11 44 45 58 3a 42 50 4c 20 6c 6f 6f 70 |..0.DEX:BPL loop|
000004d0 32 0d 02 3a 1c 4c 44 58 20 66 69 6c 65 73 3a 44 |2..:.LDX files:D|
000004e0 45 58 3a 53 54 58 20 66 69 6c 65 6e 6f 0d 02 44 |EX:STX fileno..D|
000004f0 0d 42 50 4c 20 6c 6f 6f 70 32 0d 02 4e 0a 2e 72 |.BPL loop2..N..r|
00000500 69 67 68 74 0d 02 58 15 43 4d 50 20 23 31 33 37 |ight..X.CMP #137|
00000510 3a 42 4e 45 20 64 6f 77 6e 0d 02 62 13 4c 44 41 |:BNE down..b.LDA|
00000520 20 23 31 3a 42 50 4c 20 6d 6f 72 65 0d 02 6c 09 | #1:BPL more..l.|
00000530 2e 64 6f 77 6e 0d 02 76 15 43 4d 50 20 23 31 33 |.down..v.CMP #13|
00000540 38 3a 42 4e 45 20 63 6f 70 79 0d 02 80 0a 4c 44 |8:BNE copy....LD|
00000550 41 20 23 34 0d 02 8a 09 2e 6d 6f 72 65 0d 02 94 |A #4.....more...|
00000560 12 43 4c 43 3a 41 44 43 20 66 69 6c 65 6e 6f 0d |.CLC:ADC fileno.|
00000570 02 9e 1b 43 4d 50 20 66 69 6c 65 73 3a 42 43 53 |...CMP files:BCS|
00000580 20 73 65 61 72 63 68 6b 65 79 0d 02 a8 0e 53 54 | searchkey....ST|
00000590 41 20 66 69 6c 65 6e 6f 0d 02 b2 0c 2e 6e 65 77 |A fileno.....new|
000005a0 66 69 6c 65 0d 02 bc 17 4c 44 41 20 23 31 33 31 |file....LDA #131|
000005b0 3a 4a 53 52 20 6f 73 77 72 63 68 0d 02 c6 11 4a |:JSR oswrch....J|
000005c0 4d 50 20 63 6f 70 79 66 69 6c 65 73 0d 02 d0 09 |MP copyfiles....|
000005d0 2e 63 6f 70 79 0d 02 da 1a 43 4d 50 20 23 31 33 |.copy....CMP #13|
000005e0 35 3a 42 4e 45 20 73 61 76 65 66 69 6c 65 73 0d |5:BNE savefiles.|
000005f0 02 e4 0c 4a 53 52 20 6c 6f 61 64 0d 02 ee 11 4a |...JSR load....J|
00000600 4d 50 20 63 6f 70 79 66 69 6c 65 73 0d 02 f8 0e |MP copyfiles....|
00000610 2e 73 61 76 65 66 69 6c 65 73 0d 03 02 19 43 4d |.savefiles....CM|
00000620 50 20 23 36 34 3a 42 4e 45 20 73 65 61 72 63 68 |P #64:BNE search|
00000630 6b 65 79 0d 03 0c 17 4c 44 41 20 23 31 33 31 3a |key....LDA #131:|
00000640 4a 53 52 20 6f 73 77 72 63 68 0d 03 16 0c 4a 53 |JSR oswrch....JS|
00000650 52 20 73 61 76 65 0d 03 20 11 4a 4d 50 20 63 6f |R save.. .JMP co|
00000660 70 79 66 69 6c 65 73 0d 03 2a 05 3a 0d 03 34 0f |pyfiles..*.:..4.|
00000670 2e 69 6e 69 74 69 61 6c 69 73 65 0d 03 3e 23 4c |.initialise..>#L|
00000680 44 41 20 23 30 3a 53 54 41 20 74 72 61 63 6b 2b |DA #0:STA track+|
00000690 31 3a 53 54 41 20 73 65 63 74 6f 72 2b 31 0d 03 |1:STA sector+1..|
000006a0 48 15 20 20 20 20 20 20 3a 53 54 41 20 66 69 6c |H. :STA fil|
000006b0 65 6e 6f 0d 03 52 16 4c 44 41 20 23 32 32 3a 4a |eno..R.LDA #22:J|
000006c0 53 52 20 6f 73 77 72 63 68 0d 03 5c 16 4c 44 41 |SR oswrch..\.LDA|
000006d0 20 23 37 20 3a 4a 53 52 20 6f 73 77 72 63 68 0d | #7 :JSR oswrch.|
000006e0 03 66 1c 4c 44 41 20 23 34 3a 4c 44 58 20 23 31 |.f.LDA #4:LDX #1|
000006f0 3a 4a 53 52 20 6f 73 62 79 74 65 0d 03 70 0f 2e |:JSR osbyte..p..|
00000700 63 6c 65 61 72 62 75 66 66 33 0d 03 7a 13 4c 44 |clearbuff3..z.LD|
00000710 41 20 23 30 3a 4c 44 58 20 23 26 37 46 0d 03 84 |A #0:LDX #&7F...|
00000720 0a 2e 6c 6f 6f 70 33 0d 03 8e 1f 53 54 41 20 62 |..loop3....STA b|
00000730 75 66 66 65 72 33 2c 58 3a 44 45 58 3a 42 50 4c |uffer3,X:DEX:BPL|
00000740 20 6c 6f 6f 70 33 0d 03 98 1c 4c 44 41 20 23 6e | loop3....LDA #n|
00000750 61 6d 65 20 83 32 35 36 3a 53 54 41 20 70 61 72 |ame .256:STA par|
00000760 61 6d 0d 03 a2 1e 4c 44 41 20 23 6e 61 6d 65 20 |am....LDA #name |
00000770 81 32 35 36 3a 53 54 41 20 70 61 72 61 6d 2b 31 |.256:STA param+1|
00000780 0d 03 ac 0f 2e 73 65 74 70 6f 69 6e 74 65 72 0d |.....setpointer.|
00000790 03 b6 1e 4c 44 41 20 23 30 3a 53 54 41 20 73 74 |...LDA #0:STA st|
000007a0 61 72 74 3a 53 54 41 20 62 79 74 65 73 0d 03 c0 |art:STA bytes...|
000007b0 18 4c 44 41 20 23 26 31 31 3a 53 54 41 20 73 74 |.LDA #&11:STA st|
000007c0 61 72 74 2b 31 0d 03 ca 18 4c 44 41 20 23 26 36 |art+1....LDA #&6|
000007d0 42 3a 53 54 41 20 62 79 74 65 73 2b 31 0d 03 d4 |B:STA bytes+1...|
000007e0 07 52 54 53 0d 03 de 05 3a 0d 03 e8 0c 2e 72 65 |.RTS....:.....re|
000007f0 61 64 63 61 74 0d 03 f2 24 4c 44 41 20 61 64 72 |adcat...$LDA adr|
00000800 69 76 65 3a 53 54 41 20 64 72 6c 6f 63 31 3a 53 |ive:STA drloc1:S|
00000810 54 41 20 64 72 6c 6f 63 32 0d 03 fc 12 4c 44 58 |TA drloc2....LDX|
00000820 20 23 30 3a 53 54 58 20 26 37 31 0d 04 06 1d 4c | #0:STX &71....L|
00000830 44 41 20 23 62 75 66 66 65 72 31 20 81 32 35 36 |DA #buffer1 .256|
00000840 3a 53 54 41 20 26 37 32 0d 04 10 1f 44 45 58 3a |:STA &72....DEX:|
00000850 53 54 58 20 26 37 30 3a 53 54 58 20 26 37 33 3a |STX &70:STX &73:|
00000860 53 54 58 20 26 37 34 0d 04 1a 12 4c 44 41 20 23 |STX &74....LDA #|
00000870 33 3a 53 54 41 20 26 37 35 0d 04 24 14 4c 44 41 |3:STA &75..$.LDA|
00000880 20 23 26 35 33 3a 53 54 41 20 26 37 36 0d 04 2e | #&53:STA &76...|
00000890 0a 2e 74 72 61 63 6b 0d 04 38 12 4c 44 41 20 23 |..track..8.LDA #|
000008a0 30 3a 53 54 41 20 26 37 37 0d 04 42 0b 2e 73 65 |0:STA &77..B..se|
000008b0 63 74 6f 72 0d 04 4c 12 4c 44 41 20 23 30 3a 53 |ctor..L.LDA #0:S|
000008c0 54 41 20 26 37 38 0d 04 56 14 4c 44 41 20 23 26 |TA &78..V.LDA #&|
000008d0 32 32 3a 53 54 41 20 26 37 39 0d 04 60 1c 4c 44 |22:STA &79..`.LD|
000008e0 41 20 23 26 37 46 3a 4c 44 58 20 23 26 37 30 3a |A #&7F:LDX #&70:|
000008f0 4c 44 59 20 23 30 0d 04 6a 0e 4a 4d 50 20 6f 73 |LDY #0..j.JMP os|
00000900 77 6f 72 64 0d 04 74 05 3a 0d 04 7e 0f 2e 64 69 |word..t.:..~..di|
00000910 73 70 6c 61 79 63 61 74 0d 04 88 16 4c 44 41 20 |splaycat....LDA |
00000920 23 31 32 3a 4a 53 52 20 6f 73 77 72 63 68 0d 04 |#12:JSR oswrch..|
00000930 92 1f 4c 44 58 20 66 69 6c 65 6e 6f 3a 4a 53 52 |..LDX fileno:JSR|
00000940 20 67 65 74 73 63 72 65 65 6e 70 6f 73 0d 04 9c | getscreenpos...|
00000950 14 4c 44 41 20 23 38 3a 53 54 41 20 67 65 74 2b |.LDA #8:STA get+|
00000960 31 0d 04 a6 1f 4c 44 41 20 23 62 75 66 66 65 72 |1....LDA #buffer|
00000970 31 20 81 32 35 36 3a 53 54 41 20 67 65 74 2b 32 |1 .256:STA get+2|
00000980 0d 04 b0 11 4c 44 41 20 62 75 66 66 65 72 32 2b |....LDA buffer2+|
00000990 35 0d 04 ba 15 4c 53 52 20 41 3a 4c 53 52 20 41 |5....LSR A:LSR A|
000009a0 3a 4c 53 52 20 41 0d 04 c4 11 54 41 58 3a 53 54 |:LSR A....TAX:ST|
000009b0 58 20 66 69 6c 65 73 0d 04 ce 0a 2e 6c 6f 6f 70 |X files.....loop|
000009c0 34 0d 04 d8 17 4c 44 41 20 23 31 33 31 3a 4a 53 |4....LDA #131:JS|
000009d0 52 20 6f 73 77 72 63 68 0d 04 e2 0c 2e 63 61 72 |R oswrch.....car|
000009e0 72 79 6f 6e 0d 04 ec 12 4c 44 59 20 23 37 3a 4a |ryon....LDY #7:J|
000009f0 53 52 20 67 65 74 0d 04 f6 15 80 20 23 26 37 46 |SR get..... #&7F|
00000a00 3a 4a 53 52 20 6f 73 77 72 63 68 0d 05 00 18 4c |:JSR oswrch....L|
00000a10 44 41 20 23 97 22 2e 22 3a 4a 53 52 20 6f 73 77 |DA #.".":JSR osw|
00000a20 72 63 68 0d 05 0a 0d 2e 66 69 6c 65 6e 61 6d 65 |rch.....filename|
00000a30 0d 05 14 0a 4c 44 59 20 23 30 0d 05 1e 0a 2e 6c |....LDY #0.....l|
00000a40 6f 6f 70 35 0d 05 28 0b 4a 53 52 20 67 65 74 0d |oop5..(.JSR get.|
00000a50 05 32 12 43 4d 50 20 23 33 32 3a 42 43 53 20 6f |.2.CMP #32:BCS o|
00000a60 6b 0d 05 3c 0d 4c 44 41 20 23 97 22 3f 22 0d 05 |k..<.LDA #."?"..|
00000a70 46 07 2e 6f 6b 0d 05 50 0e 4a 53 52 20 6f 73 77 |F..ok..P.JSR osw|
00000a80 72 63 68 0d 05 5a 18 49 4e 59 3a 43 50 59 20 23 |rch..Z.INY:CPY #|
00000a90 37 3a 42 4e 45 20 6c 6f 6f 70 35 0d 05 64 0d 2e |7:BNE loop5..d..|
00000aa0 6e 65 78 74 6e 61 6d 65 0d 05 6e 0c 53 54 41 20 |nextname..n.STA |
00000ab0 66 6c 61 67 0d 05 78 12 44 45 58 3a 42 45 51 20 |flag..x.DEX:BEQ |
00000ac0 65 6e 64 63 61 74 0d 05 82 22 4c 44 41 20 67 65 |endcat..."LDA ge|
00000ad0 74 2b 31 3a 43 4c 43 3a 41 44 43 20 23 38 3a 53 |t+1:CLC:ADC #8:S|
00000ae0 54 41 20 67 65 74 2b 31 0d 05 8c 0e 49 4e 43 20 |TA get+1....INC |
00000af0 66 69 6c 65 6e 6f 0d 05 96 18 4c 44 41 20 66 6c |fileno....LDA fl|
00000b00 61 67 3a 42 4d 49 20 63 61 72 72 79 6f 6e 0d 05 |ag:BMI carryon..|
00000b10 a0 0d 42 50 4c 20 6c 6f 6f 70 34 0d 05 aa 0b 2e |..BPL loop4.....|
00000b20 65 6e 64 63 61 74 0d 05 b4 15 4c 44 41 20 23 30 |endcat....LDA #0|
00000b30 3a 53 54 41 20 66 69 6c 65 6e 6f 0d 05 be 07 52 |:STA fileno....R|
00000b40 54 53 0d 05 c8 05 3a 0d 05 d2 08 2e 67 65 74 0d |TS....:.....get.|
00000b50 05 dc 15 4c 44 41 20 62 75 66 66 65 72 31 2c 59 |...LDA buffer1,Y|
00000b60 3a 52 54 53 0d 05 e6 05 3a 0d 05 f0 11 2e 67 65 |:RTS....:.....ge|
00000b70 74 73 63 72 65 65 6e 70 6f 73 0d 05 fa 07 54 58 |tscreenpos....TX|
00000b80 41 0d 06 04 0f 4c 53 52 20 41 3a 4c 53 52 20 41 |A....LSR A:LSR A|
00000b90 0d 06 0e 18 54 41 59 3a 49 4e 59 3a 49 4e 59 3a |....TAY:INY:INY:|
00000ba0 53 54 59 20 79 70 6f 73 0d 06 18 18 41 53 4c 20 |STY ypos....ASL |
00000bb0 41 3a 41 53 4c 20 41 3a 53 54 41 20 78 70 6f 73 |A:ASL A:STA xpos|
00000bc0 0d 06 22 14 54 58 41 3a 53 45 43 3a 53 42 43 20 |..".TXA:SEC:SBC |
00000bd0 78 70 6f 73 0d 06 2c 12 41 53 4c 20 41 3a 53 54 |xpos..,.ASL A:ST|
00000be0 41 20 78 70 6f 73 0d 06 36 25 41 53 4c 20 41 3a |A xpos..6%ASL A:|
00000bf0 41 53 4c 20 41 3a 43 4c 43 3a 41 44 43 20 78 70 |ASL A:CLC:ADC xp|
00000c00 6f 73 3a 53 54 41 20 78 70 6f 73 0d 06 40 0e 2e |os:STA xpos..@..|
00000c10 73 65 74 63 75 72 73 6f 72 0d 06 4a 16 4c 44 41 |setcursor..J.LDA|
00000c20 20 23 33 31 3a 4a 53 52 20 6f 73 77 72 63 68 0d | #31:JSR oswrch.|
00000c30 06 54 17 4c 44 41 20 78 70 6f 73 3a 4a 53 52 20 |.T.LDA xpos:JSR |
00000c40 6f 73 77 72 63 68 0d 06 5e 17 4c 44 41 20 79 70 |oswrch..^.LDA yp|
00000c50 6f 73 3a 4a 4d 50 20 6f 73 77 72 63 68 0d 06 68 |os:JMP oswrch..h|
00000c60 05 3a 0d 06 72 09 2e 6c 6f 61 64 0d 06 7c 17 4c |.:..r..load..|.L|
00000c70 44 41 20 23 31 32 39 3a 4a 53 52 20 6f 73 77 72 |DA #129:JSR oswr|
00000c80 63 68 0d 06 86 11 4a 53 52 20 66 65 74 63 68 6e |ch....JSR fetchn|
00000c90 61 6d 65 0d 06 90 12 4c 44 41 20 66 69 6c 65 6e |ame....LDA filen|
00000ca0 6f 3a 54 41 58 0d 06 9a 0d 41 53 4c 20 41 3a 54 |o:TAX....ASL A:T|
00000cb0 41 59 0d 06 a4 19 4c 44 41 20 73 74 61 72 74 3a |AY....LDA start:|
00000cc0 53 54 41 20 70 61 72 61 6d 2b 32 0d 06 ae 15 53 |STA param+2....S|
00000cd0 54 41 20 61 64 64 72 65 73 73 2c 59 3a 49 4e 59 |TA address,Y:INY|
00000ce0 0d 06 b8 1b 4c 44 41 20 73 74 61 72 74 2b 31 3a |....LDA start+1:|
00000cf0 53 54 41 20 70 61 72 61 6d 2b 33 0d 06 c2 11 53 |STA param+3....S|
00000d00 54 41 20 61 64 64 72 65 73 73 2c 59 0d 06 cc 1a |TA address,Y....|
00000d10 4c 44 41 20 23 26 46 46 3a 53 54 41 20 62 75 66 |LDA #&FF:STA buf|
00000d20 66 65 72 33 2c 58 0d 06 d6 13 4c 44 58 20 23 70 |fer3,X....LDX #p|
00000d30 61 72 61 6d 20 83 32 35 36 0d 06 e0 13 4c 44 59 |aram .256....LDY|
00000d40 20 23 70 61 72 61 6d 20 81 32 35 36 0d 06 ea 0e | #param .256....|
00000d50 4a 53 52 20 6f 73 66 69 6c 65 0d 06 f4 26 4c 44 |JSR osfile...&LD|
00000d60 41 20 6c 65 6e 67 74 68 3a 43 4c 43 3a 41 44 43 |A length:CLC:ADC|
00000d70 20 73 74 61 72 74 3a 53 54 41 20 73 74 61 72 74 | start:STA start|
00000d80 0d 06 fe 28 4c 44 41 20 6c 65 6e 67 74 68 2b 31 |...(LDA length+1|
00000d90 3a 41 44 43 20 73 74 61 72 74 2b 31 3a 53 54 41 |:ADC start+1:STA|
00000da0 20 73 74 61 72 74 2b 31 0d 07 08 26 4c 44 41 20 | start+1...&LDA |
00000db0 62 79 74 65 73 3a 53 45 43 3a 53 42 43 20 6c 65 |bytes:SEC:SBC le|
00000dc0 6e 67 74 68 3a 53 54 41 20 62 79 74 65 73 0d 07 |ngth:STA bytes..|
00000dd0 12 28 4c 44 41 20 62 79 74 65 73 2b 31 3a 53 42 |.(LDA bytes+1:SB|
00000de0 43 20 6c 65 6e 67 74 68 2b 31 3a 53 54 41 20 62 |C length+1:STA b|
00000df0 79 74 65 73 2b 31 0d 07 1c 0a 4c 44 58 20 23 30 |ytes+1....LDX #0|
00000e00 0d 07 26 0a 2e 6c 6f 6f 70 36 0d 07 30 1b 4c 44 |..&..loop6..0.LD|
00000e10 41 20 62 75 66 66 65 72 33 2c 58 3a 42 4e 45 20 |A buffer3,X:BNE |
00000e20 6e 65 78 74 61 0d 07 3a 19 54 58 41 3a 41 53 4c |nexta..:.TXA:ASL|
00000e30 20 41 3a 41 53 4c 20 41 3a 41 53 4c 20 41 0d 07 | A:ASL A:ASL A..|
00000e40 44 0f 41 44 43 20 23 31 32 3a 54 41 59 0d 07 4e |D.ADC #12:TAY..N|
00000e50 1f 4c 44 41 20 62 79 74 65 73 3a 43 4d 50 20 62 |.LDA bytes:CMP b|
00000e60 75 66 66 65 72 32 2c 59 3a 49 4e 59 0d 07 58 1d |uffer2,Y:INY..X.|
00000e70 4c 44 41 20 62 79 74 65 73 2b 31 3a 53 42 43 20 |LDA bytes+1:SBC |
00000e80 62 75 66 66 65 72 32 2c 59 0d 07 62 0d 42 43 53 |buffer2,Y..b.BCS|
00000e90 20 6e 65 78 74 61 0d 07 6c 11 49 4e 43 20 62 75 | nexta..l.INC bu|
00000ea0 66 66 65 72 33 2c 58 0d 07 76 14 4a 53 52 20 67 |ffer3,X..v.JSR g|
00000eb0 65 74 73 63 72 65 65 6e 70 6f 73 0d 07 80 17 4c |etscreenpos....L|
00000ec0 44 41 20 23 31 33 32 3a 4a 53 52 20 6f 73 77 72 |DA #132:JSR oswr|
00000ed0 63 68 0d 07 8a 0a 2e 6e 65 78 74 61 0d 07 94 1b |ch.....nexta....|
00000ee0 49 4e 58 3a 43 50 58 20 66 69 6c 65 73 3a 42 4e |INX:CPX files:BN|
00000ef0 45 20 6c 6f 6f 70 36 0d 07 9e 0e 4c 44 58 20 66 |E loop6....LDX f|
00000f00 69 6c 65 6e 6f 0d 07 a8 0a 2e 6c 6f 6f 70 37 0d |ileno.....loop7.|
00000f10 07 b2 1f 4c 44 41 20 62 75 66 66 65 72 33 2c 58 |...LDA buffer3,X|
00000f20 3a 42 45 51 20 66 69 6c 65 66 6f 75 6e 64 0d 07 |:BEQ filefound..|
00000f30 bc 1b 49 4e 58 3a 43 50 58 20 66 69 6c 65 73 3a |..INX:CPX files:|
00000f40 42 4e 45 20 6c 6f 6f 70 37 0d 07 c6 17 4c 44 58 |BNE loop7....LDX|
00000f50 20 66 69 6c 65 6e 6f 3a 42 45 51 20 73 61 76 65 | fileno:BEQ save|
00000f60 0d 07 d0 1f 4c 44 58 20 23 30 3a 53 54 58 20 66 |....LDX #0:STX f|
00000f70 69 6c 65 6e 6f 3a 42 45 51 20 6c 6f 6f 70 37 0d |ileno:BEQ loop7.|
00000f80 07 da 0e 2e 66 69 6c 65 66 6f 75 6e 64 0d 07 e4 |....filefound...|
00000f90 0e 53 54 58 20 66 69 6c 65 6e 6f 0d 07 ee 07 52 |.STX fileno....R|
00000fa0 54 53 0d 07 f8 05 3a 0d 08 02 09 2e 73 61 76 65 |TS....:.....save|
00000fb0 0d 08 0c 1b 4c 44 41 20 73 74 61 72 74 3a 42 4e |....LDA start:BN|
00000fc0 45 20 62 65 67 69 6e 73 61 76 65 0d 08 16 26 4c |E beginsave...&L|
00000fd0 44 41 20 73 74 61 72 74 2b 31 3a 43 4d 50 20 23 |DA start+1:CMP #|
00000fe0 26 31 31 3a 42 4e 45 20 62 65 67 69 6e 73 61 76 |&11:BNE beginsav|
00000ff0 65 0d 08 20 07 52 54 53 0d 08 2a 0e 2e 62 65 67 |e.. .RTS..*..beg|
00001000 69 6e 73 61 76 65 0d 08 34 24 4c 44 41 20 62 64 |insave..4$LDA bd|
00001010 72 69 76 65 3a 53 54 41 20 64 72 6c 6f 63 31 3a |rive:STA drloc1:|
00001020 53 54 41 20 64 72 6c 6f 63 32 0d 08 3e 0a 4c 44 |STA drloc2..>.LD|
00001030 58 20 23 30 0d 08 48 0a 2e 6c 6f 6f 70 38 0d 08 |X #0..H..loop8..|
00001040 52 1f 4c 44 41 20 62 75 66 66 65 72 32 2c 58 3a |R.LDA buffer2,X:|
00001050 53 54 41 20 62 75 66 66 65 72 34 2c 58 0d 08 5c |STA buffer4,X..\|
00001060 11 49 4e 58 3a 42 4e 45 20 6c 6f 6f 70 38 0d 08 |.INX:BNE loop8..|
00001070 66 1d 53 54 58 20 78 70 6f 73 3a 4c 44 41 20 23 |f.STX xpos:LDA #|
00001080 32 33 3a 53 54 41 20 79 70 6f 73 0d 08 70 11 4a |23:STA ypos..p.J|
00001090 53 52 20 73 65 74 63 75 72 73 6f 72 0d 08 7a 1d |SR setcursor..z.|
000010a0 4c 44 58 20 23 6d 33 20 83 32 35 36 3a 4c 44 59 |LDX #m3 .256:LDY|
000010b0 20 23 6d 33 20 81 32 35 36 0d 08 84 0f 4a 53 52 | #m3 .256....JSR|
000010c0 20 6d 65 73 73 61 67 65 0d 08 8e 0e 4a 53 52 20 | message....JSR |
000010d0 67 65 74 6b 65 79 0d 08 98 1b 4c 44 58 20 66 69 |getkey....LDX fi|
000010e0 6c 65 73 3a 44 45 58 3a 53 54 58 20 78 74 65 6d |les:DEX:STX xtem|
000010f0 70 0d 08 a2 0a 2e 6c 6f 6f 70 39 0d 08 ac 1b 4c |p.....loop9....L|
00001100 44 41 20 62 75 66 66 65 72 33 2c 58 3a 42 50 4c |DA buffer3,X:BPL|
00001110 20 72 65 73 65 74 0d 08 b6 16 43 4d 50 20 23 26 | reset....CMP #&|
00001120 46 46 3a 42 4e 45 20 72 65 73 65 74 0d 08 c0 11 |FF:BNE reset....|
00001130 44 45 43 20 62 75 66 66 65 72 33 2c 58 0d 08 ca |DEC buffer3,X...|
00001140 14 4a 53 52 20 67 65 74 73 63 72 65 65 6e 70 6f |.JSR getscreenpo|
00001150 73 0d 08 d4 15 4c 44 41 20 23 39 3a 4a 53 52 20 |s....LDA #9:JSR |
00001160 6f 73 77 72 63 68 0d 08 de 11 4a 53 52 20 66 65 |oswrch....JSR fe|
00001170 74 63 68 6e 61 6d 65 0d 08 e8 17 4c 44 41 20 78 |tchname....LDA x|
00001180 74 65 6d 70 3a 41 53 4c 20 41 3a 54 41 59 0d 08 |temp:ASL A:TAY..|
00001190 f2 22 4c 44 41 20 61 64 64 72 65 73 73 2c 59 3a |."LDA address,Y:|
000011a0 53 54 41 20 70 61 72 61 6d 2b 31 30 3a 49 4e 59 |STA param+10:INY|
000011b0 0d 08 fc 22 4c 44 41 20 61 64 64 72 65 73 73 2c |..."LDA address,|
000011c0 59 3a 53 54 41 20 70 61 72 61 6d 2b 31 31 3a 44 |Y:STA param+11:D|
000011d0 45 59 0d 09 06 1e 54 59 41 3a 41 53 4c 20 41 3a |EY....TYA:ASL A:|
000011e0 41 53 4c 20 41 3a 41 44 43 20 23 38 3a 54 41 59 |ASL A:ADC #8:TAY|
000011f0 0d 09 10 21 4c 44 41 20 62 75 66 66 65 72 34 2c |...!LDA buffer4,|
00001200 59 3a 53 54 41 20 70 61 72 61 6d 2b 32 3a 49 4e |Y:STA param+2:IN|
00001210 59 0d 09 1a 21 4c 44 41 20 62 75 66 66 65 72 34 |Y...!LDA buffer4|
00001220 2c 59 3a 53 54 41 20 70 61 72 61 6d 2b 33 3a 49 |,Y:STA param+3:I|
00001230 4e 59 0d 09 24 21 4c 44 41 20 62 75 66 66 65 72 |NY..$!LDA buffer|
00001240 34 2c 59 3a 53 54 41 20 70 61 72 61 6d 2b 36 3a |4,Y:STA param+6:|
00001250 49 4e 59 0d 09 2e 21 4c 44 41 20 62 75 66 66 65 |INY...!LDA buffe|
00001260 72 34 2c 59 3a 53 54 41 20 70 61 72 61 6d 2b 37 |r4,Y:STA param+7|
00001270 3a 49 4e 59 0d 09 38 1e 4c 44 41 20 62 75 66 66 |:INY..8.LDA buff|
00001280 65 72 34 2c 59 3a 41 44 43 20 70 61 72 61 6d 2b |er4,Y:ADC param+|
00001290 31 30 0d 09 42 14 53 54 41 20 70 61 72 61 6d 2b |10..B.STA param+|
000012a0 31 34 3a 49 4e 59 0d 09 4c 1e 4c 44 41 20 62 75 |14:INY..L.LDA bu|
000012b0 66 66 65 72 34 2c 59 3a 41 44 43 20 70 61 72 61 |ffer4,Y:ADC para|
000012c0 6d 2b 31 31 0d 09 56 10 53 54 41 20 70 61 72 61 |m+11..V.STA para|
000012d0 6d 2b 31 35 0d 09 60 13 4c 44 58 20 23 70 61 72 |m+15..`.LDX #par|
000012e0 61 6d 20 83 32 35 36 0d 09 6a 13 4c 44 59 20 23 |am .256..j.LDY #|
000012f0 70 61 72 61 6d 20 81 32 35 36 0d 09 74 15 4c 44 |param .256..t.LD|
00001300 41 20 23 30 3a 4a 53 52 20 6f 73 66 69 6c 65 0d |A #0:JSR osfile.|
00001310 09 7e 10 4a 4d 50 20 6e 65 78 74 73 61 76 65 0d |.~.JMP nextsave.|
00001320 09 88 0a 2e 72 65 73 65 74 0d 09 92 1d 42 45 51 |....reset....BEQ|
00001330 20 6e 65 78 74 73 61 76 65 3a 42 4d 49 20 6e 65 | nextsave:BMI ne|
00001340 78 74 73 61 76 65 0d 09 9c 11 44 45 43 20 62 75 |xtsave....DEC bu|
00001350 66 66 65 72 33 2c 58 0d 09 a6 14 4a 53 52 20 67 |ffer3,X....JSR g|
00001360 65 74 73 63 72 65 65 6e 70 6f 73 0d 09 b0 17 4c |etscreenpos....L|
00001370 44 41 20 23 31 33 31 3a 4a 53 52 20 6f 73 77 72 |DA #131:JSR oswr|
00001380 63 68 0d 09 ba 0d 2e 6e 65 78 74 73 61 76 65 0d |ch.....nextsave.|
00001390 09 c4 21 44 45 43 20 78 74 65 6d 70 3a 4c 44 58 |..!DEC xtemp:LDX|
000013a0 20 78 74 65 6d 70 3a 42 50 4c 20 6c 6f 6f 70 39 | xtemp:BPL loop9|
000013b0 0d 09 ce 24 4c 44 41 20 23 37 3a 53 54 41 20 78 |...$LDA #7:STA x|
000013c0 70 6f 73 3a 4c 44 41 20 23 32 33 3a 53 54 41 20 |pos:LDA #23:STA |
000013d0 79 70 6f 73 0d 09 d8 11 4a 53 52 20 73 65 74 63 |ypos....JSR setc|
000013e0 75 72 73 6f 72 0d 09 e2 1d 4c 44 58 20 23 6d 34 |ursor....LDX #m4|
000013f0 20 83 32 35 36 3a 4c 44 59 20 23 6d 34 20 81 32 | .256:LDY #m4 .2|
00001400 35 36 0d 09 ec 0f 4a 53 52 20 6d 65 73 73 61 67 |56....JSR messag|
00001410 65 0d 09 f6 0e 4a 53 52 20 67 65 74 6b 65 79 0d |e....JSR getkey.|
00001420 0a 00 13 4c 44 41 20 23 30 3a 53 54 41 20 78 70 |...LDA #0:STA xp|
00001430 6f 73 0d 0a 0a 11 4a 53 52 20 73 65 74 63 75 72 |os....JSR setcur|
00001440 73 6f 72 0d 0a 14 13 4c 44 58 20 23 34 30 3a 4c |sor....LDX #40:L|
00001450 44 41 20 23 33 32 0d 0a 1e 0a 2e 6c 6f 6f 70 61 |DA #32.....loopa|
00001460 0d 0a 28 1c 4a 53 52 20 6f 73 77 72 63 68 3a 44 |..(.JSR oswrch:D|
00001470 45 58 3a 42 4e 45 20 6c 6f 6f 70 61 0d 0a 32 12 |EX:BNE loopa..2.|
00001480 4a 4d 50 20 73 65 74 70 6f 69 6e 74 65 72 0d 0a |JMP setpointer..|
00001490 3c 05 3a 0d 0a 46 0b 2e 67 65 74 6b 65 79 0d 0a |<.:..F..getkey..|
000014a0 50 1d 4c 44 41 20 23 32 31 3a 4c 44 58 20 23 30 |P.LDA #21:LDX #0|
000014b0 3a 4a 53 52 20 6f 73 62 79 74 65 0d 0a 5a 1d 4a |:JSR osbyte..Z.J|
000014c0 53 52 20 6f 73 72 64 63 68 3a 42 43 53 20 6b 65 |SR osrdch:BCS ke|
000014d0 79 65 72 72 3a 52 54 53 0d 0a 64 0b 2e 6b 65 79 |yerr:RTS..d..key|
000014e0 65 72 72 0d 0a 6e 16 43 4d 50 20 23 32 37 3a 42 |err..n.CMP #27:B|
000014f0 4e 45 20 67 65 74 6b 65 79 0d 0a 78 17 4c 44 41 |NE getkey..x.LDA|
00001500 20 23 26 37 45 3a 4a 53 52 20 6f 73 62 79 74 65 | #&7E:JSR osbyte|
00001510 0d 0a 82 1c 4c 44 41 20 23 34 3a 4c 44 58 20 23 |....LDA #4:LDX #|
00001520 30 3a 4a 53 52 20 6f 73 62 79 74 65 0d 0a 8c 24 |0:JSR osbyte...$|
00001530 4c 44 41 20 23 30 3a 53 54 41 20 78 70 6f 73 3a |LDA #0:STA xpos:|
00001540 4c 44 41 20 23 32 32 3a 53 54 41 20 79 70 6f 73 |LDA #22:STA ypos|
00001550 0d 0a 96 11 4a 53 52 20 73 65 74 63 75 72 73 6f |....JSR setcurso|
00001560 72 0d 0a a0 11 4c 44 58 20 73 74 61 63 6b 3a 54 |r....LDX stack:T|
00001570 58 53 0d 0a aa 07 52 54 53 0d 0a b4 05 3a 0d 0a |XS....RTS....:..|
00001580 be 0e 2e 66 65 74 63 68 6e 61 6d 65 0d 0a c8 20 |...fetchname... |
00001590 4c 44 59 20 23 30 3a 53 54 59 20 79 74 65 6d 70 |LDY #0:STY ytemp|
000015a0 3a 53 54 59 20 70 61 72 61 6d 2b 36 0d 0a d2 0a |:STY param+6....|
000015b0 2e 6c 6f 6f 70 62 0d 0a dc 17 4c 44 41 20 23 31 |.loopb....LDA #1|
000015c0 33 35 3a 4a 53 52 20 6f 73 62 79 74 65 0d 0a e6 |35:JSR osbyte...|
000015d0 1c 4c 44 59 20 79 74 65 6d 70 3a 54 58 41 3a 53 |.LDY ytemp:TXA:S|
000015e0 54 41 20 6e 61 6d 65 2c 59 0d 0a f0 0e 4a 53 52 |TA name,Y....JSR|
000015f0 20 6f 73 77 72 63 68 0d 0a fa 11 49 4e 59 3a 53 | oswrch....INY:S|
00001600 54 59 20 79 74 65 6d 70 0d 0b 04 14 43 50 59 20 |TY ytemp....CPY |
00001610 23 39 3a 42 4e 45 20 6c 6f 6f 70 62 0d 0b 0e 16 |#9:BNE loopb....|
00001620 4c 44 41 20 23 31 33 3a 53 54 41 20 6e 61 6d 65 |LDA #13:STA name|
00001630 2c 59 0d 0b 18 07 52 54 53 0d 0b 22 05 3a 0d 0b |,Y....RTS..".:..|
00001640 2c 0e 2e 67 65 74 64 72 69 76 65 73 0d 0b 36 23 |,..getdrives..6#|
00001650 4c 44 41 20 23 30 3a 53 54 41 20 78 70 6f 73 3a |LDA #0:STA xpos:|
00001660 4c 44 41 20 23 35 3a 53 54 41 20 79 70 6f 73 0d |LDA #5:STA ypos.|
00001670 0b 40 11 4a 53 52 20 73 65 74 63 75 72 73 6f 72 |.@.JSR setcursor|
00001680 0d 0b 4a 1d 4c 44 58 20 23 6d 31 20 83 32 35 36 |..J.LDX #m1 .256|
00001690 3a 4c 44 59 20 23 6d 31 20 81 32 35 36 0d 0b 54 |:LDY #m1 .256..T|
000016a0 0f 4a 53 52 20 6d 65 73 73 61 67 65 0d 0b 5e 0e |.JSR message..^.|
000016b0 2e 67 65 74 64 72 69 76 65 61 0d 0b 68 0e 4a 53 |.getdrivea..h.JS|
000016c0 52 20 67 65 74 6b 65 79 0d 0b 72 19 43 4d 50 20 |R getkey..r.CMP |
000016d0 23 34 38 3a 42 43 43 20 67 65 74 64 72 69 76 65 |#48:BCC getdrive|
000016e0 61 0d 0b 7c 19 43 4d 50 20 23 35 32 3a 42 43 53 |a..|.CMP #52:BCS|
000016f0 20 67 65 74 64 72 69 76 65 61 0d 0b 86 1e 4a 53 | getdrivea....JS|
00001700 52 20 6f 73 77 72 63 68 3a 80 20 23 33 3a 53 54 |R oswrch:. #3:ST|
00001710 41 20 61 64 72 69 76 65 0d 0b 90 0e 4a 53 52 20 |A adrive....JSR |
00001720 6f 73 6e 65 77 6c 0d 0b 9a 1d 4c 44 58 20 23 6d |osnewl....LDX #m|
00001730 32 20 83 32 35 36 3a 4c 44 59 20 23 6d 32 20 81 |2 .256:LDY #m2 .|
00001740 32 35 36 0d 0b a4 0f 4a 53 52 20 6d 65 73 73 61 |256....JSR messa|
00001750 67 65 0d 0b ae 0e 2e 67 65 74 64 72 69 76 65 62 |ge.....getdriveb|
00001760 0d 0b b8 0e 4a 53 52 20 67 65 74 6b 65 79 0d 0b |....JSR getkey..|
00001770 c2 19 43 4d 50 20 23 34 38 3a 42 43 43 20 67 65 |..CMP #48:BCC ge|
00001780 74 64 72 69 76 65 62 0d 0b cc 19 43 4d 50 20 23 |tdriveb....CMP #|
00001790 35 32 3a 42 43 53 20 67 65 74 64 72 69 76 65 62 |52:BCS getdriveb|
000017a0 0d 0b d6 1e 4a 53 52 20 6f 73 77 72 63 68 3a 80 |....JSR oswrch:.|
000017b0 20 23 33 3a 53 54 41 20 62 64 72 69 76 65 0d 0b | #3:STA bdrive..|
000017c0 e0 07 52 54 53 0d 0b ea 05 3a 0d 0b f4 10 2e 64 |..RTS....:.....d|
000017d0 69 73 70 6c 61 79 6d 65 6e 75 0d 0b fe 24 4c 44 |isplaymenu...$LD|
000017e0 59 20 23 30 3a 53 54 59 20 78 70 6f 73 3a 4c 44 |Y #0:STY xpos:LD|
000017f0 41 20 23 31 35 3a 53 54 41 20 79 70 6f 73 0d 0c |A #15:STA ypos..|
00001800 08 11 4a 53 52 20 73 65 74 63 75 72 73 6f 72 0d |..JSR setcursor.|
00001810 0c 12 21 4c 44 58 20 23 6d 65 6e 75 20 83 32 35 |..!LDX #menu .25|
00001820 36 3a 4c 44 59 20 23 6d 65 6e 75 20 81 32 35 36 |6:LDY #menu .256|
00001830 0d 0c 1c 05 3a 0d 0c 26 0c 2e 6d 65 73 73 61 67 |....:..&..messag|
00001840 65 0d 0c 30 1b 53 54 58 20 6c 6f 6f 70 63 2b 31 |e..0.STX loopc+1|
00001850 3a 53 54 59 20 6c 6f 6f 70 63 2b 32 0d 0c 3a 0a |:STY loopc+2..:.|
00001860 4c 44 59 20 23 30 0d 0c 44 0a 2e 6c 6f 6f 70 63 |LDY #0..D..loopc|
00001870 0d 0c 4e 17 4c 44 41 20 26 46 46 46 46 2c 59 3a |..N.LDA &FFFF,Y:|
00001880 42 45 51 20 6f 75 74 0d 0c 58 1c 4a 53 52 20 6f |BEQ out..X.JSR o|
00001890 73 77 72 63 68 3a 49 4e 59 3a 42 4e 45 20 6c 6f |swrch:INY:BNE lo|
000018a0 6f 70 63 0d 0c 62 08 2e 6f 75 74 0d 0c 6c 07 52 |opc..b..out..l.R|
000018b0 54 53 0d 0c 76 05 3a 0d 0c 80 07 2e 6d 31 0d 0c |TS..v.:.....m1..|
000018c0 8a 23 4f 50 54 20 a4 45 51 55 53 28 22 53 6f 75 |.#OPT .EQUS("Sou|
000018d0 72 63 65 20 20 20 20 20 20 64 72 69 76 65 20 22 |rce drive "|
000018e0 29 0d 0c 94 10 4f 50 54 20 a4 45 51 55 42 28 30 |)....OPT .EQUB(0|
000018f0 29 0d 0c 9e 07 2e 6d 32 0d 0c a8 23 4f 50 54 20 |).....m2...#OPT |
00001900 a4 45 51 55 53 28 22 44 65 73 74 69 6e 61 74 69 |.EQUS("Destinati|
00001910 6f 6e 20 64 72 69 76 65 20 22 29 0d 0c b2 10 4f |on drive ")....O|
00001920 50 54 20 a4 45 51 55 42 28 30 29 0d 0c bc 05 3a |PT .EQUB(0)....:|
00001930 0d 0c c6 09 2e 6d 65 6e 75 0d 0c d0 37 4f 50 54 |.....menu...7OPT|
00001940 20 a4 45 51 55 53 28 22 20 43 4f 50 59 3d 4c 4f | .EQUS(" COPY=LO|
00001950 41 44 20 20 20 20 20 20 40 3d 53 41 56 45 20 20 |AD @=SAVE |
00001960 20 20 20 20 45 53 43 41 50 45 3d 45 4e 44 22 29 | ESCAPE=END")|
00001970 0d 0c da 10 4f 50 54 20 a4 45 51 55 42 28 30 29 |....OPT .EQUB(0)|
00001980 0d 0c e4 05 3a 0d 0c ee 07 2e 6d 33 0d 0c f8 10 |....:.....m3....|
00001990 4f 50 54 20 a4 45 51 55 42 28 37 29 0d 0d 02 36 |OPT .EQUB(7)...6|
000019a0 4f 50 54 20 a4 45 51 55 53 28 22 49 6e 73 65 72 |OPT .EQUS("Inser|
000019b0 74 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 64 69 |t destination di|
000019c0 73 63 20 61 6e 64 20 70 72 65 73 73 20 6b 65 79 |sc and press key|
000019d0 22 29 0d 0d 0c 10 4f 50 54 20 a4 45 51 55 42 28 |")....OPT .EQUB(|
000019e0 30 29 0d 0d 16 07 2e 6d 34 0d 0d 20 10 4f 50 54 |0).....m4.. .OPT|
000019f0 20 a4 45 51 55 42 28 37 29 0d 0d 2a 1c 4f 50 54 | .EQUB(7)..*.OPT|
00001a00 20 a4 45 51 55 53 28 22 20 20 73 6f 75 72 63 65 | .EQUS(" source|
00001a10 20 20 20 22 29 0d 0d 34 10 4f 50 54 20 a4 45 51 | ")..4.OPT .EQ|
00001a20 55 42 28 30 29 0d 0d 3e 07 5d 3a ed 0d 0d 48 18 |UB(0)..>.]:...H.|
00001a30 2a 53 41 56 45 20 63 6f 70 69 65 72 20 38 38 30 |*SAVE copier 880|
00001a40 20 43 46 46 0d 0d 52 05 e0 0d 0d 5c 05 3a 0d 0d | CFF..R....\.:..|
00001a50 66 0f dd 20 a4 45 51 55 53 28 41 24 29 0d 0d 70 |f.. .EQUS(A$)..p|
00001a60 0a 24 50 25 3d 41 24 0d 0d 7a 0f 50 25 3d 50 25 |.$P%=A$..z.P%=P%|
00001a70 2b a9 28 41 24 29 0d 0d 84 09 3d 70 61 73 73 0d |+.(A$)....=pass.|
00001a80 0d 8e 05 3a 0d 0d 98 0f dd 20 a4 45 51 55 42 28 |...:..... .EQUB(|
00001a90 41 25 29 0d 0d a2 0a 3f 50 25 3d 41 25 0d 0d ac |A%)....?P%=A%...|
00001aa0 0b 50 25 3d 50 25 2b 31 0d 0d b6 09 3d 70 61 73 |.P%=P%+1....=pas|
00001ab0 73 0d ff |s..|
00001ab3 
11-08-89/BCOPIER.m0
11-08-89/BCOPIER.m1
11-08-89/BCOPIER.m2
11-08-89/BCOPIER.m4
11-08-89/BCOPIER.m5
.