$ ****************************G * *j * COPY D64 IMAGE TO 1541 *( * *2 * FOR THE 1571 AND C64 *< * VERSION 1.0 3/28/95 *F * * P * K. BRADLEY *< Z * *^ d *************************** nI4915249152127:Y:I,Y: 51,0:52,32:55,0:56,32:: TOP OF MEMORY $2000 RF(5),WF(5) MB8192: $2000 NU49189:LO49187:HI49188:RE49152:WR4915264- 53280,0:53281,0:""D "FILE TO COPY";N$ "VERIFY [Y/N]? ":198,0:198,1:A$:VE0:A$"Y"VE1 READ DIRECTORY TRACK TO FIND THE START TRACK AND SECTOR OF THE FILE TO COPY T18:S1:FL0 15,8,15 15,"U0>M1":12405 5,8,5,"#": DIRECT ACCESSV 15,"U1";5;0;T;S: READ T,S` 1240j "NU,0 ,HI,(MB256):LO,MB256(MB256): HI,LOW 6RE: READ 256 BYTES @(HI)(MB256)"ERROR FROM SYS49152!":1240 J WE NOW HAVE A DIRECTORY LISTING3 TTN(MB): NEXT DIRECTORY TRACKQ ^SN(MB1): NEXT SECTORm hCURBLOCKMB2:NBLOCKS8 r TN0 NBLOCKS(SN2)30: | I1NBLOCKS FI(CURBLOCK)  FI0 470 TS(CURBLOCK1):SS(CURBLOCK2) NA$""+ Q318:A$((CURBLOCKQ)):A$(160)NA$NA$A$3  QT "LOOKING AT ";NA$;" TO ";N$q NA$N$ TTS:SSS:520 CURBLOCK CURBLOCK32  I TTN: SSN: 198,0:A$  T0 "CAN'T FIND DISK IMAGE: QUITTING.":5:15: 270 T=START TRACK, S=START SECTOR%NTT:NSS8UB0:TM0:VB0d&RF(1)T:RF(2)S:RF(3)0:WF(1)1:WF(2)00MB8192:ME40960:MSMB:OMMB: $2000 - $A000:MIMBD VB0710NNU,RF(4)RF(3)X MEMI 254 NU,MEMIbHI,(MI256):LO,MI256(MI256): HI,LOW4lRE:RF(3)RF(3)(NU)hv(HI)(MI256)"ERROR FROM SYS49152!":1240 RF(3)RF(4) VB0MIMI(NU): MIME580830WF(1)36 5:15: WE'RE NOT DONE READING. LOOP BACK 570 WE NOW NEED TO UPDATE THE RF INFO- READ NEW T&SV NT0 RF(3)RF(4) 830:15:5:tRF(1)NT:RF(2)NS:RF(3)015,"U1";5;0;RF(1);RF(2): READ T,S1240#5,A$:A$""A$(0)NT(A$):#5,A$:A$""A$(0) NS(A$):RF(3)2:RF(4)256 NT0 RF(4)NSO "";((MIMS)1024100)100;"KB OUT OF 32 KB"Y*OMMId4VB1:>"DUMPING MEMORY."HRBMS:"DUMPING ";(MIRB)1024;"KB OF MEMORY."R15:5\"PLEASE INSERT DESTINATION DISK" f"PRESS ANY KEY TO CONTINUE."p198,0%z198,1:A$>15,8,15,"U0>M1":15V15,8,15:5,8,5,"#"rVF(1)WF(1):VF(2)WF(2)WTWF(1):WSWF(2)"WRITING TO ";(WT);",";(WS);(13);""(RBMS)1024;" KB WRITTEN OUT OF ";(MIMS)1024;" KB"15,"B-P";5;0: RESET BUFFER POINTERLNU,0:HI,(RB256):LO,RB(HI)256:WRc15,"U2";5;0;WT;WS(HI)(RB256)"ERROR";(HI),(LO):1240:1240WF(2)WF(2)1:WSWS1WT30 WT35 WS17 1090WT24 WT30 WS18 1090#WT17 WT24 WS19 1090FWT0 WT17 WS21 1090Y$WT36 1110v.RBRB256:RBME 11108930BWF(1)WF(1)1:WTWT1:WF(2)0:1060LVE11270V5:15j"PLEASE INSERT SOURCE DISK."t"PRESS ANY KEY TO CONTINUE.")~198,0: EMPTY KEYBOARD BUFF8198,1:A$b RETURN READ POINTER TO CORRECT SPOTo15,8,1515,"U0>M1":12405,8,5,"#"15,"U1";5;0;RF(1);RF(2)15,"B-P";5;RF(3): RESET BUFFER POINTER TO CORRECT SPOT 15,EN,EM$,ET,ES EN20,EN,EM$,ET,ES:A VERIFY SECTION|HI,((49152128)256):LO,(49152128)(HI)256:NU,0 RBMBMI25615,"U1";5;0;VF(1);VF(2):49152VF(1)30 VF(1)35 VF(2)17 1370 (VF(1)24 VF(1)30 VF(2)18 137062VF(1)17 VF(1)24 VF(2)19 1370b<VF(1)0 VF(1)17 VF(2)21 1370tFVF(1)36 P RB:ZVF(1)VF(1)1:VF(2)0:1360d173,35,192,133,251,173,36,192n133,252,160,0,162,5,24,32,198,255!x176,79,24,32,207,255,176,73,145,251,200,204,37,192E208,242,96,0,0,0,67,198,140,68g198,96,32,29,192,186,189,1,1201,140,208,7,189,2,1,201,164,240,15,172,68173,35,192,133,251,173,36,192133,252,160,0,162,5,24,32,201,255176,19,24,177,251,32,210,255176,20,200,204,37,192`208,242,96,141,36,192,96,141,36,192,169,1,141,35,192,96,14136,192,169,2,141,35,192,96,0,0,0,0,0,0,0,0