5REM SINGLE DRIVE VERSION ADAPTED BY
C.J.RICHARDSON
10REM DFS to ADFS transfer listing II
- loaded as ADFTFR2
20REM adapted from Amcom to ADFS tran
sfer programs
30REM by H.L.Clarke and S.B.Yeo
40REM (C) 1991
50MODE 7+128:HIMEM=U%
55REPEAT:PRINT"1. Single drive. DFS s
ide 0 only"'"2. Single drive. DFS sides
0 and 2"'"3. Twin drive. DFS sides 1 and
3":A$=GET$:UNTILVALA$>0ANDVALA$<4
56IFA$="1"C%=0:G%=0:H%=0
57IFA$="2"C%=1:G%=0:H%=2
58IFA$="3"C%=1:G%=1:H%=3
60B%=0:Q%=0
70READ centry,transfer,name,secread,l
ong,stload,subd,title,fparm,fbuff,ftrack
,fsec,secnums,fresult,faddr,pparms,putda
ta,putlength,pointer,putbyte,command,cst
ring
80?&7B15=3:?&7B16=&53:!faddr=fparm
90PRINT''"Printout of filenames of"'"
transferred files ?"
100INPUT yn$
110IF LEFT$(yn$,1)="Y" OR LEFT$(yn$,1)
="y" THEN Q%=2
120PRINT''"Insert capital letter to be
first"'"character of ADFS sub-directori
es":REPEAT:INPUT F$:Z%=ASC(F$):UNTIL Z%>
64 AND Z%<91
140REM
180PROCctad
190*MOUNT0
200FOR N%=B% TO (B%+C%):$cstring="CDIR
"+CHR$(Z%)+STR$(N%):CALL command:NEXT
210FOR D%=G%TOH%STEP 2
220PROCctdi
230?fparm=D%:CALL secread
240IF ?&7908=0 THEN B%=B%+1:GOTO 320
250FOR E%=1 TO ?&7B90
260PROCaddr
270CALL name
280NEXT
290PRINT CHR$(Q%):PRINT'''"Transferrin
g from drive ";STR$(D%):PRINT"Disc ";:CA
LL title:PRINT
300PROCtransfer(1,?&7B90)
310B%=B%+1
320VDU3
330NEXT D%
340PRINT':PRINTTAB(18)"***"'':INPUT"Tr
ansfer another DFS disc ",yn$
350IF LEFT$(yn$,1)="Y" OR LEFT$(yn$,1)
="y" THEN 140
360PRINT''"The ADFS disc will need som
e editing."'"Note that files are now in
ADFS"'"directories from ";CHR$(Z%);"0 to
";CHR$(Z%);STR$(B%-1);" inclusive."
370END
10000DEFPROCaddr
10010X%=&7900+(8*E%):Y%=X%DIV256
10020?&7B7A=E%
10030ENDPROC
10040DEFPROCA
10050PROCctad
10060*MOUNT0
10070$cstring="DIR "+CHR$(Z%)+STR$(B%):C
ALL command
10080ENDPROC
10090DEFPROCtransfer(X%,A%)
10100CALL subd
10120PROCA
10130IF ?&7BD0=0 THEN 10170
10140FOR F%=1 TO ?&7BD0
10145IF ?(&7BD0+F%)<32 THEN ?(&7BD0+F%)=
?(&7BD0+F%)+32
10150$cstring="CDIR "+CHR$(?(&7BD0+F%)):
CALL command
10160NEXT
10170FOR E%=X% TO A%
10180PROCaddr
10190PROCctdi
10200CALL centry:?ftrack=!&7B80 DIV 10:?
fsec=!&7B80 MOD 10
10210!fbuff=HIMEM:PRINT CHR$(?&7BFF);"."
;$&7BE8;STRING$((18-LEN($&7BE8))," ");
10220IF !&7B84>W% THEN PROClong:GOTO 102
60
10230R%=0:CALL stload:IF ?fresult<>0 THE
N PROCde:GOTO10290
10240PRINT"-> ";
10250PROCA:PROCsave
10260IF R%=1 THEN 10290
10270PRINT CHR$(Z%);STR$(B%);".";F$
10280IF ?&7BFF>&80 THEN $cstring="ACCESS
"+F$+" R":CALL command
10290NEXT E%
10300ENDPROC
10310DEFPROCsave
10320IF ?(&7B90+E%)=&24 THEN F$=$&7BE8 E
LSE F$=CHR$(?(&7B90+E%))+"."+$&7BE8
10330$cstring="SAVE "+F$+" "+STR$÷HIMEM+
" "+STR$÷(HIMEM+!&7B84)+" "+FNadr(&7BE2,
&C0)+" "+FNadr(&7BE0,&C):CALL command
10340ENDPROC
10350DEFPROClong
10360L%=!&7B84:!&7B84=W%:M%=0:T%=0
10370REM L%=total length of file yet unl
oaded, M% is marker for very long file (
>2*W%),T%=PTR
10380R%=0:CALL stload:IF ?fresult<>0 THE
N PROCde:GOTO 10530
10390PRINT"-> ";
10400PROCA:PROCsave
10410L%=L%-W%:IF L%>W% THEN M%=1 ELSE M%
=0
10420IF M%=1 THEN !&7B84=W% ELSE !&7B84=
L%
10430PROCctdi
10440!fbuff=HIMEM:R%=0:CALL long:IF ?fre
sult<>0 THEN PROCde:GOTO 10530
10450PROCA:T%=T%+W%:!pointer=T%
10460!putdata=HIMEM:!putlength=!&7B84
10470$&7B60=F$
10480R%=0:CALL putbyte:IF ?fresult<>0 TH
EN PROCde:GOTO 10530
10490REM
10500REM
10510REM
10520IF M%=1 THEN 10410
10530ENDPROC
10540DEFPROCde
10550R%=1
10560PRINTTAB(20)"not transferable"
10570ENDPROC
11000DEFPROCctdi:IFH%=3:OSCLI"DISC":ENDP
ROC ELSE VDU3:PRINT'" INSERT DFS PRESS A
KEY":VDUQ%:REPEATUNTILGET:OSCLI"DISC":E
NDPROC:REM OSCLI"DR.1"????
11010DEFPROCctad:IFH%=3:OSCLI"ADFS":ENDP
ROC ELSE VDU3:OSCLI"FX21":PRINT'" INSERT
ADFS PRESS A KEY":VDUQ%:REPEATUNTILGET:
OSCLI"ADFS":ENDPROC
15000DEFFNadr(I%,J%)
15010REM I% represents load address (&7B
E0) or execution address (&7BE2)
15020REM J% represents bits of &7BE6 whi
ch when set imply a second processor add
ress (&C for load, &C0 for execution)
15030IF (?&7BE6 AND J%)=0 THEN K%=0 ELSE
K%=&FFFF0000
15040A$=STR$÷((!I%AND&FFFF)+K%)
15050=A$
20000DATA &7600,&7635,&7688,&7697,&76E3,
&76F6,&778E,&77D4,&7B10,&7B11,&7B17,&7B1
8,&7B19,&7B1A,&7B1B,&7B2A,&7B2B,&7B2F,&7
B33,&77FD,&77F5,&78D0