� TRANSFER  TAPE <===> DISC
�      By  W.v.d.VAART
� Suitable for ADFS and DFS
(�    (c) The Micro User
2�6:F%=�sys
<ttl$="TAPE <===> DISC"
F;� F%<>4 � F%<>8 �'�12)ttl$''"No DISC filing sys!"':�7:�
P�initialise:E%=0:L%=0
Z� � �6:E%=�:L%=�
d� O%=� �close
n� (E%=17 � �-1) �e(1)
x� (E%<>17 � L%>0) �e(0)
�� F%<>�sys � C%<>-6 �disc
�� �6:�=&5000
�E%=0:L%=0:�menu
�� C%<>-6 � *FX21
�C%=�-48
�� C%=-6 �command
�� C%=1 �wdw:�tape_disc
�� C%=2 �wdw:�cpy_tape
�� C%=3 �wdw:�disc_tape
��C%=4 �F%=4 �wdw:�cpy_disc
��C%=4 �F%=8 �wdw:�cpy_dir
�� C%=0:� end of main loop
�
�6:�end:�

� �close:�tape:�#0

�disc:�#0:O%=�:�

� �cmnd:�"*"c$

"�28,0,17,39,4:�

,�28,0,24,39,4:�14

6�0,19);:�os(c$)

@� �=19 �

J�:�esc:�

T� �cpy_dir

^� F%=8 �input_dir

h�os("DIR "+dir$)

rptr%=0:� �get_name

|� i$<>"" � F%=4 �disc_tape

�.� i$<>"" � F%=8 � �f_type(i$)=1 �disc_tape

�<� i$<>"" � F%=8 � �f_type(i$)=2 �''i$;" is a directory"'

�� i$="":� F%=8 �esc

��

�� �cpy_disc

��"First directory?"dir$:�'

�$dir$=�dir$,1):� dir$="" dir$="!"

�.� dir$>="a" � dir$<="z" dir$=�(�(dir$)-32)

�� dir%=�(dir$) � �"`"

�0� �"""#*.:",�(dir%))=0 dir$=�(dir%):�cpy_dir

��:�esc:�

�� �cpy_file

�"� C%>2 �disc:�os("INFO "+i$):�
�
� C%>2 �disc � �tape
�read_blks
&� C%>2 �tape � �disc
0�wrt_blks:� ?eof=true
:�close:�
D� �cpy_tape
N!�"First file name on TAPE",i$
X�':� o$="":�tape_disc
b�':first%=�:i$=""
l	� �:�
v� �disc:�os("OPT")
� � F%=4 a$="DISC" � a$="ADFS"
�
�os(a$):�
�� �disc_name
�!� F%=4 �os("DIR $"):o$=�o$,9)
�$� F%=4 � �o$,2,1)<>"." o$=�o$,7)
�.� F%=8 � �o$,2,1)="." o$=�o$,1)+"-"+�o$,3)
��
�� �disc_tape
�� C%=3 �"File name? "i$
�'� i$="" � �7:�11,�-1)""i$:� i$<>""
��f_check:O%=�
�?hdl_in=�i$:?eof=false
��tape_name:�tape:*FX21
/� first%=� �''"Press RECORD"'"then RETURN";
 � first%=0 �os("FX138,0,13")
�21:?hdl_out=� o$
 �6:�':!&38C=!&80:!&390=!&84
*�cpy_file:� C%=3 �esc
4� C%=4 first%=�:�
>�
H
� �end
R�''�8)"End of ";ttl$'
\� �sys=1 �disc
f�os("KEY10"):�
p� �e(K%):�'
z�:�" at ";L%'
�� K%=0 �esc:�
��
�
� �esc
��'"Please press Escape";
��7:���:�
�� �f_check
�.� �f_type(i$)=0 �'i$;" doesn't exist":�esc
�/� �f_type(i$)=2 �'i$;" is a directory":�esc
��
�� �get_name
�!&81=&C00:!&85=1:!&89=ptr%
�A%=8:X%=&80:Y%=0
�name%=�(&FFD1)�&1000000

ptr%=!&89
1� name%=0 ?(&C00+?&C00+1)=13:i$=$&C01 � i$=""
�
$� �initialise
.*KEY10CLOSE#0:O%=0|MOLD|M
8�assembler
BC%=0:� menu$(4):� M%=1 � 4
L� menu$(M%):�:�
V � One file from TAPE to DISC
`� Files from TAPE to DISC
j � One file from DISC to TAPE
t� Files from DISC to TAPE
~� �input_dir
��"Directory name? "dir$
�� dir$="" dir$="@"
��
�� �input_name:�
�%�''o$;" exists already"':�7:*FX21
��"File name? "New$:�
�!� New$<>"" o$=New$:�disc_name
�� New$="" � �f_type(o$)=0
��
�� �menu
��'�12)ttl$
��28,0,24,39,4
�'�3)"*"�3"Command"''

� M%=1 � 4
�3);M%�3menu$(M%)':�
�'�3)"0"�3"End of ";ttl$'
(�'�3)"Your choice: ";
2�
<� �os($&700):� X%,Y%
FX%=0:Y%=7:� &FFF7:�
P� �read_blks
Zad_in?1=&50:?ad_in=0
d� � read_blk
n� ?eof=true � ad_in?1=&60
x�
�� �read_name
�� char%=&3B2 � &3BD
�� ?char%=0 � ?char%=13
��:i$=$&3B2:�
�� �set_addrs
�read_attrs%=�f_type(o$)
��!&80=!&3BE �!&84=!&3C2 �
�!&80=!&3BE:!&84=!&3C2
�A%=1:X%=&7E:Y%=0:$&700=o$
�set_addrs%=�(&FFDD):�
�� �split_name:�
�o$=�o$,�o$,".")+1)
�� �o$,".")=0:�
� �tape:*TAPE
�os("OPT1,2")::*OPT2,1
�os("OPT3,10"):*OPT3,35
"�
,� �tape_disc
6;� C%=1 �"File name on TAPE",i$''"File name on DISC",o$'
@	�tape
J� first%=� �"Press PLAY"'
TO%=�:� set open file flag
^?hdl_in=�i$:?eof=false
h� i$="" �read_name
r�disc:� C%=2 � o$="" o$=i$
|�disc_net_addrs
��:�os("INFO "+o$)
�� C%=1 �esc
��
�� �tape_name:o$=i$
� � F%=4 � C%=4 o$=dir$+"."+o$
�"� F%=4 � �o$,2)="$." o$=�o$,3)
�#� F%=8 � �o$,".")>0 �split_name
�.� F%=8 � �o$,2,1)="-" o$=�o$,1)+"."+�o$,3)
��
�
� �wdw
�:�5)menu$(C%)
�28,0,24,39,7:first%=�
"� (C%=3 � C%=4) � �sys=1 �disc
&�
0� �wrt_blks
:ad_out?1=&50:?ad_out=0:�
D,� ad_out?1<ad_in?1 � ?len=&100:� wrt_blk
N� ad_out?1=ad_in?1
X&� ?ad_in>0 � ?len=?ad_in:� wrt_blk
b�
lݤf_type($&700)
v!&7E=&700:A%=5:X%=&7E
�Y%=0:=�(&FFDD)�&FF
�ݤsys:A%=0:Y%=0
�=�(&FFDA)�&FF
�� �assembler
�false=0:true=&FF:hdl_in=&70
�hdl_out=&71:eof=&72:len=&73
�%ad_in=&74:ad_out=&76:osbget=&FFD7
�osbput=&FFD4:� code% 60
�� opt%=0 � 2 � 2
�P%=code%:[OPT opt%
�.read_blk LDA #0:STA len
�$.next_read LDY hdl_in:JSR osbget
�% BCS set_eof:LDY len:STA(ad_in),Y
 INC len:BNE next_read
 INC ad_in+1:RTS
.set_eof LDA len:STA ad_in
  LDA #true:STA eof:RTS
*.wrt_blk LDX #0
4.next_wrt TXA:TAY
> LDA (ad_out),Y:LDY hdl_out
H JSR osbput:INX:CPX len
R" BNE next_wrt:INC ad_out+1:RTS
\	]:�:�
�

00000000  0d 00 0a 1f f4 20 54 52  41 4e 53 46 45 52 20 20  |..... TRANSFER  |
00000010  54 41 50 45 20 3c 3d 3d  3d 3e 20 44 49 53 43 0d  |TAPE <===> DISC.|
00000020  00 14 1a f4 20 20 20 20  20 20 42 79 20 20 57 2e  |....      By  W.|
00000030  76 2e 64 2e 56 41 41 52  54 0d 00 1e 1f f4 20 53  |v.d.VAART..... S|
00000040  75 69 74 61 62 6c 65 20  66 6f 72 20 41 44 46 53  |uitable for ADFS|
00000050  20 61 6e 64 20 44 46 53  0d 00 28 1b f4 20 20 20  | and DFS..(..   |
00000060  20 28 63 29 20 54 68 65  20 4d 69 63 72 6f 20 55  | (c) The Micro U|
00000070  73 65 72 0d 00 32 0e eb  36 3a 46 25 3d a4 73 79  |ser..2..6:F%=.sy|
00000080  73 0d 00 3c 1a 74 74 6c  24 3d 22 54 41 50 45 20  |s..<.ttl$="TAPE |
00000090  3c 3d 3d 3d 3e 20 44 49  53 43 22 0d 00 46 3b e7  |<===> DISC"..F;.|
000000a0  20 46 25 3c 3e 34 20 e7  20 46 25 3c 3e 38 20 f1  | F%<>4 . F%<>8 .|
000000b0  27 8a 31 32 29 74 74 6c  24 27 27 22 4e 6f 20 44  |'.12)ttl$''"No D|
000000c0  49 53 43 20 66 69 6c 69  6e 67 20 73 79 73 21 22  |ISC filing sys!"|
000000d0  27 3a ef 37 3a e0 0d 00  50 19 f2 69 6e 69 74 69  |':.7:...P..initi|
000000e0  61 6c 69 73 65 3a 45 25  3d 30 3a 4c 25 3d 30 0d  |alise:E%=0:L%=0.|
000000f0  00 5a 14 ee 20 85 20 ef  36 3a 45 25 3d 9f 3a 4c  |.Z.. . .6:E%=.:L|
00000100  25 3d 9e 0d 00 64 11 e7  20 4f 25 3d b9 20 f2 63  |%=...d.. O%=. .c|
00000110  6c 6f 73 65 0d 00 6e 19  e7 20 28 45 25 3d 31 37  |lose..n.. (E%=17|
00000120  20 80 20 a6 2d 31 29 20  f2 65 28 31 29 0d 00 78  | . .-1) .e(1)..x|
00000130  1b e7 20 28 45 25 3c 3e  31 37 20 80 20 4c 25 3e  |.. (E%<>17 . L%>|
00000140  30 29 20 f2 65 28 30 29  0d 00 82 1d e7 20 46 25  |0) .e(0)..... F%|
00000150  3c 3e a4 73 79 73 20 e7  20 43 25 3c 3e 2d 36 20  |<>.sys . C%<>-6 |
00000160  f2 64 69 73 63 0d 00 8c  10 f5 20 eb 36 3a d3 3d  |.disc..... .6:.=|
00000170  26 35 30 30 30 0d 00 96  13 45 25 3d 30 3a 4c 25  |&5000....E%=0:L%|
00000180  3d 30 3a f2 6d 65 6e 75  0d 00 a0 14 e7 20 43 25  |=0:.menu..... C%|
00000190  3c 3e 2d 36 20 8c 20 2a  46 58 32 31 0d 00 aa 0b  |<>-6 . *FX21....|
000001a0  43 25 3d a5 2d 34 38 0d  00 b4 14 e7 20 43 25 3d  |C%=.-48..... C%=|
000001b0  2d 36 20 f2 63 6f 6d 6d  61 6e 64 0d 00 be 1a e7  |-6 .command.....|
000001c0  20 43 25 3d 31 20 f2 77  64 77 3a f2 74 61 70 65  | C%=1 .wdw:.tape|
000001d0  5f 64 69 73 63 0d 00 c8  19 e7 20 43 25 3d 32 20  |_disc..... C%=2 |
000001e0  f2 77 64 77 3a f2 63 70  79 5f 74 61 70 65 0d 00  |.wdw:.cpy_tape..|
000001f0  d2 1a e7 20 43 25 3d 33  20 f2 77 64 77 3a f2 64  |... C%=3 .wdw:.d|
00000200  69 73 63 5f 74 61 70 65  0d 00 dc 1e e7 43 25 3d  |isc_tape.....C%=|
00000210  34 20 e7 46 25 3d 34 20  f2 77 64 77 3a f2 63 70  |4 .F%=4 .wdw:.cp|
00000220  79 5f 64 69 73 63 0d 00  e6 1d e7 43 25 3d 34 20  |y_disc.....C%=4 |
00000230  e7 46 25 3d 38 20 f2 77  64 77 3a f2 63 70 79 5f  |.F%=8 .wdw:.cpy_|
00000240  64 69 72 0d 00 f0 1d fd  20 43 25 3d 30 3a f4 20  |dir..... C%=0:. |
00000250  65 6e 64 20 6f 66 20 6d  61 69 6e 20 6c 6f 6f 70  |end of main loop|
00000260  0d 00 fa 0d eb 36 3a f2  65 6e 64 3a e0 0d 01 04  |.....6:.end:....|
00000270  16 dd 20 f2 63 6c 6f 73  65 3a f2 74 61 70 65 3a  |.. .close:.tape:|
00000280  d9 23 30 0d 01 0e 14 f2  64 69 73 63 3a d9 23 30  |.#0.....disc:.#0|
00000290  3a 4f 25 3d a3 3a e1 0d  01 18 12 dd 20 f2 63 6d  |:O%=.:...... .cm|
000002a0  6e 64 3a e8 22 2a 22 63  24 0d 01 22 13 ef 32 38  |nd:."*"c$.."..28|
000002b0  2c 30 2c 31 37 2c 33 39  2c 34 3a db 0d 01 2c 15  |,0,17,39,4:...,.|
000002c0  ef 32 38 2c 30 2c 32 34  2c 33 39 2c 34 3a ef 31  |.28,0,24,39,4:.1|
000002d0  34 0d 01 36 14 f1 8a 30  2c 31 39 29 3b 3a f2 6f  |4..6...0,19);:.o|
000002e0  73 28 63 24 29 0d 01 40  0c e7 20 bc 3d 31 39 20  |s(c$)..@.. .=19 |
000002f0  e1 0d 01 4a 0c f1 3a f2  65 73 63 3a e1 0d 01 54  |...J..:.esc:...T|
00000300  0e dd 20 f2 63 70 79 5f  64 69 72 0d 01 5e 15 e7  |.. .cpy_dir..^..|
00000310  20 46 25 3d 38 20 f2 69  6e 70 75 74 5f 64 69 72  | F%=8 .input_dir|
00000320  0d 01 68 14 f2 6f 73 28  22 44 49 52 20 22 2b 64  |..h..os("DIR "+d|
00000330  69 72 24 29 0d 01 72 16  70 74 72 25 3d 30 3a f5  |ir$)..r.ptr%=0:.|
00000340  20 f2 67 65 74 5f 6e 61  6d 65 0d 01 7c 1e e7 20  | .get_name..|.. |
00000350  69 24 3c 3e 22 22 20 e7  20 46 25 3d 34 20 f2 64  |i$<>"" . F%=4 .d|
00000360  69 73 63 5f 74 61 70 65  0d 01 86 2e e7 20 69 24  |isc_tape..... i$|
00000370  3c 3e 22 22 20 e7 20 46  25 3d 38 20 e7 20 a4 66  |<>"" . F%=8 . .f|
00000380  5f 74 79 70 65 28 69 24  29 3d 31 20 f2 64 69 73  |_type(i$)=1 .dis|
00000390  63 5f 74 61 70 65 0d 01  90 3c e7 20 69 24 3c 3e  |c_tape...<. i$<>|
000003a0  22 22 20 e7 20 46 25 3d  38 20 e7 20 a4 66 5f 74  |"" . F%=8 . .f_t|
000003b0  79 70 65 28 69 24 29 3d  32 20 f1 27 27 69 24 3b  |ype(i$)=2 .''i$;|
000003c0  22 20 69 73 20 61 20 64  69 72 65 63 74 6f 72 79  |" is a directory|
000003d0  22 27 0d 01 9a 17 fd 20  69 24 3d 22 22 3a e7 20  |"'..... i$="":. |
000003e0  46 25 3d 38 20 f2 65 73  63 0d 01 a4 05 e1 0d 01  |F%=8 .esc.......|
000003f0  ae 0f dd 20 f2 63 70 79  5f 64 69 73 63 0d 01 b8  |... .cpy_disc...|
00000400  1e e8 22 46 69 72 73 74  20 64 69 72 65 63 74 6f  |.."First directo|
00000410  72 79 3f 22 64 69 72 24  3a f1 27 0d 01 c2 24 64  |ry?"dir$:.'...$d|
00000420  69 72 24 3d c0 64 69 72  24 2c 31 29 3a e7 20 64  |ir$=.dir$,1):. d|
00000430  69 72 24 3d 22 22 20 64  69 72 24 3d 22 21 22 0d  |ir$="" dir$="!".|
00000440  01 cc 2e e7 20 64 69 72  24 3e 3d 22 61 22 20 e7  |.... dir$>="a" .|
00000450  20 64 69 72 24 3c 3d 22  7a 22 20 64 69 72 24 3d  | dir$<="z" dir$=|
00000460  bd 28 97 28 64 69 72 24  29 2d 33 32 29 0d 01 d6  |.(.(dir$)-32)...|
00000470  19 e3 20 64 69 72 25 3d  97 28 64 69 72 24 29 20  |.. dir%=.(dir$) |
00000480  b8 20 97 22 60 22 0d 01  e0 30 e7 20 a7 22 22 22  |. ."`"...0. ."""|
00000490  23 2a 2e 3a 22 2c bd 28  64 69 72 25 29 29 3d 30  |#*.:",.(dir%))=0|
000004a0  20 64 69 72 24 3d bd 28  64 69 72 25 29 3a f2 63  | dir$=.(dir%):.c|
000004b0  70 79 5f 64 69 72 0d 01  ea 0c ed 3a f2 65 73 63  |py_dir.....:.esc|
000004c0  3a e1 0d 01 f4 0f dd 20  f2 63 70 79 5f 66 69 6c  |:...... .cpy_fil|
000004d0  65 0d 01 fe 22 e7 20 43  25 3e 32 20 f2 64 69 73  |e...". C%>2 .dis|
000004e0  63 3a f2 6f 73 28 22 49  4e 46 4f 20 22 2b 69 24  |c:.os("INFO "+i$|
000004f0  29 3a f1 0d 02 08 05 f5  0d 02 12 18 e7 20 43 25  |):........... C%|
00000500  3e 32 20 f2 64 69 73 63  20 8b 20 f2 74 61 70 65  |>2 .disc . .tape|
00000510  0d 02 1c 0e f2 72 65 61  64 5f 62 6c 6b 73 0d 02  |.....read_blks..|
00000520  26 18 e7 20 43 25 3e 32  20 f2 74 61 70 65 20 8b  |&.. C%>2 .tape .|
00000530  20 f2 64 69 73 63 0d 02  30 19 f2 77 72 74 5f 62  | .disc..0..wrt_b|
00000540  6c 6b 73 3a fd 20 3f 65  6f 66 3d 74 72 75 65 0d  |lks:. ?eof=true.|
00000550  02 3a 0c f2 63 6c 6f 73  65 3a e1 0d 02 44 0f dd  |.:..close:...D..|
00000560  20 f2 63 70 79 5f 74 61  70 65 0d 02 4e 21 e8 22  | .cpy_tape..N!."|
00000570  46 69 72 73 74 20 66 69  6c 65 20 6e 61 6d 65 20  |First file name |
00000580  6f 6e 20 54 41 50 45 22  2c 69 24 0d 02 58 19 f1  |on TAPE",i$..X..|
00000590  27 3a f5 20 6f 24 3d 22  22 3a f2 74 61 70 65 5f  |':. o$="":.tape_|
000005a0  64 69 73 63 0d 02 62 15  f1 27 3a 66 69 72 73 74  |disc..b..':first|
000005b0  25 3d a3 3a 69 24 3d 22  22 0d 02 6c 09 fd 20 a3  |%=.:i$=""..l.. .|
000005c0  3a e1 0d 02 76 16 dd 20  f2 64 69 73 63 3a f2 6f  |:...v.. .disc:.o|
000005d0  73 28 22 4f 50 54 22 29  0d 02 80 20 e7 20 46 25  |s("OPT")... . F%|
000005e0  3d 34 20 61 24 3d 22 44  49 53 43 22 20 8b 20 61  |=4 a$="DISC" . a|
000005f0  24 3d 22 41 44 46 53 22  0d 02 8a 0d f2 6f 73 28  |$="ADFS".....os(|
00000600  61 24 29 3a e1 0d 02 94  10 dd 20 f2 64 69 73 63  |a$):...... .disc|
00000610  5f 6e 61 6d 65 0d 02 9e  21 e7 20 46 25 3d 34 20  |_name...!. F%=4 |
00000620  f2 6f 73 28 22 44 49 52  20 24 22 29 3a 6f 24 3d  |.os("DIR $"):o$=|
00000630  c0 6f 24 2c 39 29 0d 02  a8 24 e7 20 46 25 3d 34  |.o$,9)...$. F%=4|
00000640  20 e7 20 c1 6f 24 2c 32  2c 31 29 3c 3e 22 2e 22  | . .o$,2,1)<>"."|
00000650  20 6f 24 3d c0 6f 24 2c  37 29 0d 02 b2 2e e7 20  | o$=.o$,7)..... |
00000660  46 25 3d 38 20 e7 20 c1  6f 24 2c 32 2c 31 29 3d  |F%=8 . .o$,2,1)=|
00000670  22 2e 22 20 6f 24 3d c0  6f 24 2c 31 29 2b 22 2d  |"." o$=.o$,1)+"-|
00000680  22 2b c1 6f 24 2c 33 29  0d 02 bc 05 e1 0d 02 c6  |"+.o$,3)........|
00000690  10 dd 20 f2 64 69 73 63  5f 74 61 70 65 0d 02 d0  |.. .disc_tape...|
000006a0  1b e7 20 43 25 3d 33 20  e8 22 46 69 6c 65 20 6e  |.. C%=3 ."File n|
000006b0  61 6d 65 3f 20 22 69 24  0d 02 da 27 e7 20 69 24  |ame? "i$...'. i$|
000006c0  3d 22 22 20 f5 20 ef 37  3a e8 8a 31 31 2c bc 2d  |="" . .7:..11,.-|
000006d0  31 29 22 22 69 24 3a fd  20 69 24 3c 3e 22 22 0d  |1)""i$:. i$<>"".|
000006e0  02 e4 11 f2 66 5f 63 68  65 63 6b 3a 4f 25 3d b9  |....f_check:O%=.|
000006f0  0d 02 ee 1a 3f 68 64 6c  5f 69 6e 3d 8e 69 24 3a  |....?hdl_in=.i$:|
00000700  3f 65 6f 66 3d 66 61 6c  73 65 0d 02 f8 1a f2 74  |?eof=false.....t|
00000710  61 70 65 5f 6e 61 6d 65  3a f2 74 61 70 65 3a 2a  |ape_name:.tape:*|
00000720  46 58 32 31 0d 03 02 2f  e7 20 66 69 72 73 74 25  |FX21.../. first%|
00000730  3d b9 20 f1 27 27 22 50  72 65 73 73 20 52 45 43  |=. .''"Press REC|
00000740  4f 52 44 22 27 22 74 68  65 6e 20 52 45 54 55 52  |ORD"'"then RETUR|
00000750  4e 22 3b 0d 03 0c 20 e7  20 66 69 72 73 74 25 3d  |N";... . first%=|
00000760  30 20 f2 6f 73 28 22 46  58 31 33 38 2c 30 2c 31  |0 .os("FX138,0,1|
00000770  33 22 29 0d 03 16 15 ef  32 31 3a 3f 68 64 6c 5f  |3").....21:?hdl_|
00000780  6f 75 74 3d ae 20 6f 24  0d 03 20 1f ef 36 3a f1  |out=. o$.. ..6:.|
00000790  27 3a 21 26 33 38 43 3d  21 26 38 30 3a 21 26 33  |':!&38C=!&80:!&3|
000007a0  39 30 3d 21 26 38 34 0d  03 2a 19 f2 63 70 79 5f  |90=!&84..*..cpy_|
000007b0  66 69 6c 65 3a e7 20 43  25 3d 33 20 f2 65 73 63  |file:. C%=3 .esc|
000007c0  0d 03 34 15 e7 20 43 25  3d 34 20 66 69 72 73 74  |..4.. C%=4 first|
000007d0  25 3d a3 3a f1 0d 03 3e  05 e1 0d 03 48 0a dd 20  |%=.:...>....H.. |
000007e0  f2 65 6e 64 0d 03 52 19  f1 27 27 8a 38 29 22 45  |.end..R..''.8)"E|
000007f0  6e 64 20 6f 66 20 22 3b  74 74 6c 24 27 0d 03 5c  |nd of ";ttl$'..\|
00000800  12 e7 20 a4 73 79 73 3d  31 20 f2 64 69 73 63 0d  |.. .sys=1 .disc.|
00000810  03 66 12 f2 6f 73 28 22  4b 45 59 31 30 22 29 3a  |.f..os("KEY10"):|
00000820  e1 0d 03 70 0f dd 20 f2  65 28 4b 25 29 3a f1 27  |...p.. .e(K%):.'|
00000830  0d 03 7a 11 f6 3a f1 22  20 61 74 20 22 3b 4c 25  |..z..:." at ";L%|
00000840  27 0d 03 84 11 e7 20 4b  25 3d 30 20 f2 65 73 63  |'..... K%=0 .esc|
00000850  3a e1 0d 03 8e 05 e0 0d  03 98 0a dd 20 f2 65 73  |:........... .es|
00000860  63 0d 03 a2 1c f1 27 22  50 6c 65 61 73 65 20 70  |c.....'"Please p|
00000870  72 65 73 73 20 45 73 63  61 70 65 22 3b 0d 03 ac  |ress Escape";...|
00000880  0c ef 37 3a f5 fd a3 3a  e1 0d 03 b6 0e dd 20 f2  |..7:...:...... .|
00000890  66 5f 63 68 65 63 6b 0d  03 c0 2e e7 20 a4 66 5f  |f_check..... .f_|
000008a0  74 79 70 65 28 69 24 29  3d 30 20 f1 27 69 24 3b  |type(i$)=0 .'i$;|
000008b0  22 20 64 6f 65 73 6e 27  74 20 65 78 69 73 74 22  |" doesn't exist"|
000008c0  3a f2 65 73 63 0d 03 ca  2f e7 20 a4 66 5f 74 79  |:.esc.../. .f_ty|
000008d0  70 65 28 69 24 29 3d 32  20 f1 27 69 24 3b 22 20  |pe(i$)=2 .'i$;" |
000008e0  69 73 20 61 20 64 69 72  65 63 74 6f 72 79 22 3a  |is a directory":|
000008f0  f2 65 73 63 0d 03 d4 05  e1 0d 03 de 0f dd 20 f2  |.esc.......... .|
00000900  67 65 74 5f 6e 61 6d 65  0d 03 e8 1e 21 26 38 31  |get_name....!&81|
00000910  3d 26 43 30 30 3a 21 26  38 35 3d 31 3a 21 26 38  |=&C00:!&85=1:!&8|
00000920  39 3d 70 74 72 25 0d 03  f2 14 41 25 3d 38 3a 58  |9=ptr%....A%=8:X|
00000930  25 3d 26 38 30 3a 59 25  3d 30 0d 03 fc 1b 6e 61  |%=&80:Y%=0....na|
00000940  6d 65 25 3d ba 28 26 46  46 44 31 29 80 26 31 30  |me%=.(&FFD1).&10|
00000950  30 30 30 30 30 0d 04 06  0d 70 74 72 25 3d 21 26  |00000....ptr%=!&|
00000960  38 39 0d 04 10 31 e7 20  6e 61 6d 65 25 3d 30 20  |89...1. name%=0 |
00000970  3f 28 26 43 30 30 2b 3f  26 43 30 30 2b 31 29 3d  |?(&C00+?&C00+1)=|
00000980  31 33 3a 69 24 3d 24 26  43 30 31 20 8b 20 69 24  |13:i$=$&C01 . i$|
00000990  3d 22 22 0d 04 1a 05 e1  0d 04 24 11 dd 20 f2 69  |="".......$.. .i|
000009a0  6e 69 74 69 61 6c 69 73  65 0d 04 2e 1d 2a 4b 45  |nitialise....*KE|
000009b0  59 31 30 43 4c 4f 53 45  23 30 3a 4f 25 3d 30 7c  |Y10CLOSE#0:O%=0||
000009c0  4d 4f 4c 44 7c 4d 0d 04  38 0e f2 61 73 73 65 6d  |MOLD|M..8..assem|
000009d0  62 6c 65 72 0d 04 42 1e  43 25 3d 30 3a de 20 6d  |bler..B.C%=0:. m|
000009e0  65 6e 75 24 28 34 29 3a  e3 20 4d 25 3d 31 20 b8  |enu$(4):. M%=1 .|
000009f0  20 34 0d 04 4c 13 f3 20  6d 65 6e 75 24 28 4d 25  | 4..L.. menu$(M%|
00000a00  29 3a ed 3a e1 0d 04 56  20 dc 20 4f 6e 65 20 66  |):.:...V . One f|
00000a10  69 6c 65 20 66 72 6f 6d  20 54 41 50 45 20 74 6f  |ile from TAPE to|
00000a20  20 44 49 53 43 0d 04 60  1d dc 20 46 69 6c 65 73  | DISC..`.. Files|
00000a30  20 66 72 6f 6d 20 54 41  50 45 20 74 6f 20 44 49  | from TAPE to DI|
00000a40  53 43 0d 04 6a 20 dc 20  4f 6e 65 20 66 69 6c 65  |SC..j . One file|
00000a50  20 66 72 6f 6d 20 44 49  53 43 20 74 6f 20 54 41  | from DISC to TA|
00000a60  50 45 0d 04 74 1d dc 20  46 69 6c 65 73 20 66 72  |PE..t.. Files fr|
00000a70  6f 6d 20 44 49 53 43 20  74 6f 20 54 41 50 45 0d  |om DISC to TAPE.|
00000a80  04 7e 10 dd 20 f2 69 6e  70 75 74 5f 64 69 72 0d  |.~.. .input_dir.|
00000a90  04 88 1b e8 22 44 69 72  65 63 74 6f 72 79 20 6e  |...."Directory n|
00000aa0  61 6d 65 3f 20 22 64 69  72 24 0d 04 92 16 e7 20  |ame? "dir$..... |
00000ab0  64 69 72 24 3d 22 22 20  64 69 72 24 3d 22 40 22  |dir$="" dir$="@"|
00000ac0  0d 04 9c 05 e1 0d 04 a6  13 dd 20 f2 69 6e 70 75  |.......... .inpu|
00000ad0  74 5f 6e 61 6d 65 3a f5  0d 04 b0 25 f1 27 27 6f  |t_name:....%.''o|
00000ae0  24 3b 22 20 65 78 69 73  74 73 20 61 6c 72 65 61  |$;" exists alrea|
00000af0  64 79 22 27 3a ef 37 3a  2a 46 58 32 31 0d 04 ba  |dy"':.7:*FX21...|
00000b00  18 e8 22 46 69 6c 65 20  6e 61 6d 65 3f 20 22 4e  |.."File name? "N|
00000b10  65 77 24 3a f1 0d 04 c4  21 e7 20 4e 65 77 24 3c  |ew$:....!. New$<|
00000b20  3e 22 22 20 6f 24 3d 4e  65 77 24 3a f2 64 69 73  |>"" o$=New$:.dis|
00000b30  63 5f 6e 61 6d 65 0d 04  ce 1d fd 20 4e 65 77 24  |c_name..... New$|
00000b40  3d 22 22 20 84 20 a4 66  5f 74 79 70 65 28 6f 24  |="" . .f_type(o$|
00000b50  29 3d 30 0d 04 d8 05 e1  0d 04 e2 0b dd 20 f2 6d  |)=0.......... .m|
00000b60  65 6e 75 0d 04 ec 0e f1  27 8a 31 32 29 74 74 6c  |enu.....'.12)ttl|
00000b70  24 0d 04 f6 11 ef 32 38  2c 30 2c 32 34 2c 33 39  |$.....28,0,24,39|
00000b80  2c 34 0d 05 00 19 f1 27  8a 33 29 22 2a 22 89 33  |,4.....'.3)"*".3|
00000b90  22 43 6f 6d 6d 61 6e 64  22 27 27 0d 05 0a 0e e3  |"Command"''.....|
00000ba0  20 4d 25 3d 31 20 b8 20  34 0d 05 14 19 f1 8a 33  | M%=1 . 4......3|
00000bb0  29 3b 4d 25 89 33 6d 65  6e 75 24 28 4d 25 29 27  |);M%.3menu$(M%)'|
00000bc0  3a ed 0d 05 1e 1d f1 27  8a 33 29 22 30 22 89 33  |:......'.3)"0".3|
00000bd0  22 45 6e 64 20 6f 66 20  22 3b 74 74 6c 24 27 0d  |"End of ";ttl$'.|
00000be0  05 28 19 f1 27 8a 33 29  22 59 6f 75 72 20 63 68  |.(..'.3)"Your ch|
00000bf0  6f 69 63 65 3a 20 22 3b  0d 05 32 05 e1 0d 05 3c  |oice: ";..2....<|
00000c00  18 dd 20 f2 6f 73 28 24  26 37 30 30 29 3a ea 20  |.. .os($&700):. |
00000c10  58 25 2c 59 25 0d 05 46  17 58 25 3d 30 3a 59 25  |X%,Y%..F.X%=0:Y%|
00000c20  3d 37 3a d6 20 26 46 46  46 37 3a e1 0d 05 50 10  |=7:. &FFF7:...P.|
00000c30  dd 20 f2 72 65 61 64 5f  62 6c 6b 73 0d 05 5a 18  |. .read_blks..Z.|
00000c40  61 64 5f 69 6e 3f 31 3d  26 35 30 3a 3f 61 64 5f  |ad_in?1=&50:?ad_|
00000c50  69 6e 3d 30 0d 05 64 10  f5 20 d6 20 72 65 61 64  |in=0..d.. . read|
00000c60  5f 62 6c 6b 0d 05 6e 1d  fd 20 3f 65 6f 66 3d 74  |_blk..n.. ?eof=t|
00000c70  72 75 65 20 84 20 61 64  5f 69 6e 3f 31 3d 26 36  |rue . ad_in?1=&6|
00000c80  30 0d 05 78 05 e1 0d 05  82 10 dd 20 f2 72 65 61  |0..x....... .rea|
00000c90  64 5f 6e 61 6d 65 0d 05  8c 17 e3 20 63 68 61 72  |d_name..... char|
00000ca0  25 3d 26 33 42 32 20 b8  20 26 33 42 44 0d 05 96  |%=&3B2 . &3BD...|
00000cb0  1a e7 20 3f 63 68 61 72  25 3d 30 20 8c 20 3f 63  |.. ?char%=0 . ?c|
00000cc0  68 61 72 25 3d 31 33 0d  05 a0 10 ed 3a 69 24 3d  |har%=13.....:i$=|
00000cd0  24 26 33 42 32 3a e1 0d  05 aa 10 dd 20 f2 73 65  |$&3B2:...... .se|
00000ce0  74 5f 61 64 64 72 73 0d  05 b4 1b 72 65 61 64 5f  |t_addrs....read_|
00000cf0  61 74 74 72 73 25 3d a4  66 5f 74 79 70 65 28 6f  |attrs%=.f_type(o|
00000d00  24 29 0d 05 be 1d e7 21  26 38 30 3d 21 26 33 42  |$).....!&80=!&3B|
00000d10  45 20 e7 21 26 38 34 3d  21 26 33 43 32 20 e1 0d  |E .!&84=!&3C2 ..|
00000d20  05 c8 19 21 26 38 30 3d  21 26 33 42 45 3a 21 26  |...!&80=!&3BE:!&|
00000d30  38 34 3d 21 26 33 43 32  0d 05 d2 1d 41 25 3d 31  |84=!&3C2....A%=1|
00000d40  3a 58 25 3d 26 37 45 3a  59 25 3d 30 3a 24 26 37  |:X%=&7E:Y%=0:$&7|
00000d50  30 30 3d 6f 24 0d 05 dc  19 73 65 74 5f 61 64 64  |00=o$....set_add|
00000d60  72 73 25 3d ba 28 26 46  46 44 44 29 3a e1 0d 05  |rs%=.(&FFDD):...|
00000d70  e6 13 dd 20 f2 73 70 6c  69 74 5f 6e 61 6d 65 3a  |... .split_name:|
00000d80  f5 0d 05 f0 16 6f 24 3d  c1 6f 24 2c a7 6f 24 2c  |.....o$=.o$,.o$,|
00000d90  22 2e 22 29 2b 31 29 0d  05 fa 12 fd 20 a7 6f 24  |".")+1)..... .o$|
00000da0  2c 22 2e 22 29 3d 30 3a  e1 0d 06 04 11 dd 20 f2  |,".")=0:...... .|
00000db0  74 61 70 65 3a 2a 54 41  50 45 0d 06 0e 1a f2 6f  |tape:*TAPE.....o|
00000dc0  73 28 22 4f 50 54 31 2c  32 22 29 3a 3a 2a 4f 50  |s("OPT1,2")::*OP|
00000dd0  54 32 2c 31 0d 06 18 1b  f2 6f 73 28 22 4f 50 54  |T2,1.....os("OPT|
00000de0  33 2c 31 30 22 29 3a 2a  4f 50 54 33 2c 33 35 0d  |3,10"):*OPT3,35.|
00000df0  06 22 05 e1 0d 06 2c 10  dd 20 f2 74 61 70 65 5f  |."....,.. .tape_|
00000e00  64 69 73 63 0d 06 36 3b  e7 20 43 25 3d 31 20 e8  |disc..6;. C%=1 .|
00000e10  22 46 69 6c 65 20 6e 61  6d 65 20 6f 6e 20 54 41  |"File name on TA|
00000e20  50 45 22 2c 69 24 27 27  22 46 69 6c 65 20 6e 61  |PE",i$''"File na|
00000e30  6d 65 20 6f 6e 20 44 49  53 43 22 2c 6f 24 27 0d  |me on DISC",o$'.|
00000e40  06 40 09 f2 74 61 70 65  0d 06 4a 1d e7 20 66 69  |.@..tape..J.. fi|
00000e50  72 73 74 25 3d b9 20 f1  22 50 72 65 73 73 20 50  |rst%=. ."Press P|
00000e60  4c 41 59 22 27 0d 06 54  1d 4f 25 3d b9 3a f4 20  |LAY"'..T.O%=.:. |
00000e70  73 65 74 20 6f 70 65 6e  20 66 69 6c 65 20 66 6c  |set open file fl|
00000e80  61 67 0d 06 5e 1a 3f 68  64 6c 5f 69 6e 3d 8e 69  |ag..^.?hdl_in=.i|
00000e90  24 3a 3f 65 6f 66 3d 66  61 6c 73 65 0d 06 68 16  |$:?eof=false..h.|
00000ea0  e7 20 69 24 3d 22 22 20  f2 72 65 61 64 5f 6e 61  |. i$="" .read_na|
00000eb0  6d 65 0d 06 72 1e f2 64  69 73 63 3a e7 20 43 25  |me..r..disc:. C%|
00000ec0  3d 32 20 84 20 6f 24 3d  22 22 20 6f 24 3d 69 24  |=2 . o$="" o$=i$|
00000ed0  0d 06 7c 13 f2 64 69 73  63 5f 6e 65 74 5f 61 64  |..|..disc_net_ad|
00000ee0  64 72 73 0d 06 a4 15 f1  3a f2 6f 73 28 22 49 4e  |drs.....:.os("IN|
00000ef0  46 4f 20 22 2b 6f 24 29  0d 06 ae 0f e7 20 43 25  |FO "+o$)..... C%|
00000f00  3d 31 20 f2 65 73 63 0d  06 b8 05 e1 0d 06 c2 16  |=1 .esc.........|
00000f10  dd 20 f2 74 61 70 65 5f  6e 61 6d 65 3a 6f 24 3d  |. .tape_name:o$=|
00000f20  69 24 0d 06 cc 20 e7 20  46 25 3d 34 20 e7 20 43  |i$... . F%=4 . C|
00000f30  25 3d 34 20 6f 24 3d 64  69 72 24 2b 22 2e 22 2b  |%=4 o$=dir$+"."+|
00000f40  6f 24 0d 06 d6 22 e7 20  46 25 3d 34 20 e7 20 c0  |o$...". F%=4 . .|
00000f50  6f 24 2c 32 29 3d 22 24  2e 22 20 6f 24 3d c1 6f  |o$,2)="$." o$=.o|
00000f60  24 2c 33 29 0d 06 e0 23  e7 20 46 25 3d 38 20 e7  |$,3)...#. F%=8 .|
00000f70  20 a7 6f 24 2c 22 2e 22  29 3e 30 20 f2 73 70 6c  | .o$,".")>0 .spl|
00000f80  69 74 5f 6e 61 6d 65 0d  06 ea 2e e7 20 46 25 3d  |it_name..... F%=|
00000f90  38 20 e7 20 c1 6f 24 2c  32 2c 31 29 3d 22 2d 22  |8 . .o$,2,1)="-"|
00000fa0  20 6f 24 3d c0 6f 24 2c  31 29 2b 22 2e 22 2b c1  | o$=.o$,1)+"."+.|
00000fb0  6f 24 2c 33 29 0d 06 f4  05 e1 0d 06 fe 0a dd 20  |o$,3).......... |
00000fc0  f2 77 64 77 0d 07 08 13  db 3a f1 8a 35 29 6d 65  |.wdw.....:..5)me|
00000fd0  6e 75 24 28 43 25 29 0d  07 12 1a ef 32 38 2c 30  |nu$(C%).....28,0|
00000fe0  2c 32 34 2c 33 39 2c 37  3a 66 69 72 73 74 25 3d  |,24,39,7:first%=|
00000ff0  b9 0d 07 1c 22 e7 20 28  43 25 3d 33 20 84 20 43  |....". (C%=3 . C|
00001000  25 3d 34 29 20 e7 20 a4  73 79 73 3d 31 20 f2 64  |%=4) . .sys=1 .d|
00001010  69 73 63 0d 07 26 05 e1  0d 07 30 0f dd 20 f2 77  |isc..&....0.. .w|
00001020  72 74 5f 62 6c 6b 73 0d  07 3a 1c 61 64 5f 6f 75  |rt_blks..:.ad_ou|
00001030  74 3f 31 3d 26 35 30 3a  3f 61 64 5f 6f 75 74 3d  |t?1=&50:?ad_out=|
00001040  30 3a f5 0d 07 44 2c e7  20 61 64 5f 6f 75 74 3f  |0:...D,. ad_out?|
00001050  31 3c 61 64 5f 69 6e 3f  31 20 8c 20 3f 6c 65 6e  |1<ad_in?1 . ?len|
00001060  3d 26 31 30 30 3a d6 20  77 72 74 5f 62 6c 6b 0d  |=&100:. wrt_blk.|
00001070  07 4e 16 fd 20 61 64 5f  6f 75 74 3f 31 3d 61 64  |.N.. ad_out?1=ad|
00001080  5f 69 6e 3f 31 0d 07 58  26 e7 20 3f 61 64 5f 69  |_in?1..X&. ?ad_i|
00001090  6e 3e 30 20 8c 20 3f 6c  65 6e 3d 3f 61 64 5f 69  |n>0 . ?len=?ad_i|
000010a0  6e 3a d6 20 77 72 74 5f  62 6c 6b 0d 07 62 05 e1  |n:. wrt_blk..b..|
000010b0  0d 07 6c 13 dd a4 66 5f  74 79 70 65 28 24 26 37  |..l...f_type($&7|
000010c0  30 30 29 0d 07 76 19 21  26 37 45 3d 26 37 30 30  |00)..v.!&7E=&700|
000010d0  3a 41 25 3d 35 3a 58 25  3d 26 37 45 0d 07 80 16  |:A%=5:X%=&7E....|
000010e0  59 25 3d 30 3a 3d ba 28  26 46 46 44 44 29 80 26  |Y%=0:=.(&FFDD).&|
000010f0  46 46 0d 07 8a 13 dd a4  73 79 73 3a 41 25 3d 30  |FF......sys:A%=0|
00001100  3a 59 25 3d 30 0d 07 94  11 3d ba 28 26 46 46 44  |:Y%=0....=.(&FFD|
00001110  41 29 80 26 46 46 0d 07  9e 10 dd 20 f2 61 73 73  |A).&FF..... .ass|
00001120  65 6d 62 6c 65 72 0d 07  a8 1f 66 61 6c 73 65 3d  |embler....false=|
00001130  30 3a 74 72 75 65 3d 26  46 46 3a 68 64 6c 5f 69  |0:true=&FF:hdl_i|
00001140  6e 3d 26 37 30 0d 07 b2  1f 68 64 6c 5f 6f 75 74  |n=&70....hdl_out|
00001150  3d 26 37 31 3a 65 6f 66  3d 26 37 32 3a 6c 65 6e  |=&71:eof=&72:len|
00001160  3d 26 37 33 0d 07 bc 25  61 64 5f 69 6e 3d 26 37  |=&73...%ad_in=&7|
00001170  34 3a 61 64 5f 6f 75 74  3d 26 37 36 3a 6f 73 62  |4:ad_out=&76:osb|
00001180  67 65 74 3d 26 46 46 44  37 0d 07 c6 1b 6f 73 62  |get=&FFD7....osb|
00001190  70 75 74 3d 26 46 46 44  34 3a de 20 63 6f 64 65  |put=&FFD4:. code|
000011a0  25 20 36 30 0d 07 d0 14  e3 20 6f 70 74 25 3d 30  |% 60..... opt%=0|
000011b0  20 b8 20 32 20 88 20 32  0d 07 da 16 50 25 3d 63  | . 2 . 2....P%=c|
000011c0  6f 64 65 25 3a 5b 4f 50  54 20 6f 70 74 25 0d 07  |ode%:[OPT opt%..|
000011d0  e4 1c 2e 72 65 61 64 5f  62 6c 6b 20 4c 44 41 20  |...read_blk LDA |
000011e0  23 30 3a 53 54 41 20 6c  65 6e 0d 07 ee 24 2e 6e  |#0:STA len...$.n|
000011f0  65 78 74 5f 72 65 61 64  20 4c 44 59 20 68 64 6c  |ext_read LDY hdl|
00001200  5f 69 6e 3a 4a 53 52 20  6f 73 62 67 65 74 0d 07  |_in:JSR osbget..|
00001210  f8 25 20 42 43 53 20 73  65 74 5f 65 6f 66 3a 4c  |.% BCS set_eof:L|
00001220  44 59 20 6c 65 6e 3a 53  54 41 28 61 64 5f 69 6e  |DY len:STA(ad_in|
00001230  29 2c 59 0d 08 02 1a 20  49 4e 43 20 6c 65 6e 3a  |),Y.... INC len:|
00001240  42 4e 45 20 6e 65 78 74  5f 72 65 61 64 0d 08 0c  |BNE next_read...|
00001250  14 20 49 4e 43 20 61 64  5f 69 6e 2b 31 3a 52 54  |. INC ad_in+1:RT|
00001260  53 0d 08 16 1e 2e 73 65  74 5f 65 6f 66 20 4c 44  |S.....set_eof LD|
00001270  41 20 6c 65 6e 3a 53 54  41 20 61 64 5f 69 6e 0d  |A len:STA ad_in.|
00001280  08 20 1a 20 4c 44 41 20  23 74 72 75 65 3a 53 54  |. . LDA #true:ST|
00001290  41 20 65 6f 66 3a 52 54  53 0d 08 2a 13 2e 77 72  |A eof:RTS..*..wr|
000012a0  74 5f 62 6c 6b 20 4c 44  58 20 23 30 0d 08 34 15  |t_blk LDX #0..4.|
000012b0  2e 6e 65 78 74 5f 77 72  74 20 54 58 41 3a 54 41  |.next_wrt TXA:TA|
000012c0  59 0d 08 3e 1f 20 4c 44  41 20 28 61 64 5f 6f 75  |Y..>. LDA (ad_ou|
000012d0  74 29 2c 59 3a 4c 44 59  20 68 64 6c 5f 6f 75 74  |t),Y:LDY hdl_out|
000012e0  0d 08 48 1b 20 4a 53 52  20 6f 73 62 70 75 74 3a  |..H. JSR osbput:|
000012f0  49 4e 58 3a 43 50 58 20  6c 65 6e 0d 08 52 22 20  |INX:CPX len..R" |
00001300  42 4e 45 20 6e 65 78 74  5f 77 72 74 3a 49 4e 43  |BNE next_wrt:INC|
00001310  20 61 64 5f 6f 75 74 2b  31 3a 52 54 53 0d 08 5c  | ad_out+1:RTS..\|
00001320  09 5d 3a ed 3a e1 0d ff                           |.]:.:...|
00001328