Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199204.adf » April92 » !AWApr92/Goodies/Prog_Arm/!Duplicate/!RunImage
!AWApr92/Goodies/Prog_Arm/!Duplicate/!RunImage
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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199204.adf » April92 |
| Filename: | !AWApr92/Goodies/Prog_Arm/!Duplicate/!RunImage |
| Read OK: | ✔ |
| File size: | 0265 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >$.Utils.Duplicate 15REM (c) Archimedes World April 1992 20DiscSize%=800*1024 30BufSize%=DiscSize% 40PRINT "HAVE YOU REMEMBERED TO WRITE PROTECT SOURCE DISC" 60DIM Buffer% BufSize% 70Ptr%=0 80 PRINT "Insert source disc in drive 0 then press SPACE BAR" 90 *FX 15,1 100 Q=GET 110 SYS "ADFS_DiscOp",0,1,Ptr%,Buffer%,BufSize% 120 PRINT "Insert destination disc in drive 0 then press SPACE BAR" 130 *FX 15,1 140 REPEATUNTILGET=32 141 discs%=0 150 REPEAT 160 SYS "ADFS_DiscOp",0,2,Ptr%,Buffer%,BufSize% 161 discs%+=1 170 PRINT"Copies made =";discs% 171 PRINT"Another, Press SPACE else Press RETURN" 190 UNTIL GET=13 210PRINT "Finished"
� >$.Utils.Duplicate %� (c) Archimedes World April 1992 DiscSize%=800*1024 BufSize%=DiscSize% (8� "HAVE YOU REMEMBERED TO WRITE PROTECT SOURCE DISC" <� Buffer% BufSize% F Ptr%=0 P< � "Insert source disc in drive 0 then press SPACE BAR" Z *FX 15,1 d Q=� n0 ș "ADFS_DiscOp",0,1,Ptr%,Buffer%,BufSize% xA � "Insert destination disc in drive 0 then press SPACE BAR" � *FX 15,1 � ���=32 � discs%=0 � � �2 ș "ADFS_DiscOp",0,2,Ptr%,Buffer%,BufSize% � discs%+=1 � �"Copies made =";discs% �1 �"Another, Press SPACE else Press RETURN" � � �=13 �� "Finished" �
00000000 0d 00 0a 18 f4 20 3e 24 2e 55 74 69 6c 73 2e 44 |..... >$.Utils.D| 00000010 75 70 6c 69 63 61 74 65 0d 00 0f 25 f4 20 28 63 |uplicate...%. (c| 00000020 29 20 41 72 63 68 69 6d 65 64 65 73 20 57 6f 72 |) Archimedes Wor| 00000030 6c 64 20 41 70 72 69 6c 20 31 39 39 32 0d 00 14 |ld April 1992...| 00000040 16 44 69 73 63 53 69 7a 65 25 3d 38 30 30 2a 31 |.DiscSize%=800*1| 00000050 30 32 34 0d 00 1e 16 42 75 66 53 69 7a 65 25 3d |024....BufSize%=| 00000060 44 69 73 63 53 69 7a 65 25 0d 00 28 38 f1 20 22 |DiscSize%..(8. "| 00000070 48 41 56 45 20 59 4f 55 20 52 45 4d 45 4d 42 45 |HAVE YOU REMEMBE| 00000080 52 45 44 20 54 4f 20 57 52 49 54 45 20 50 52 4f |RED TO WRITE PRO| 00000090 54 45 43 54 20 53 4f 55 52 43 45 20 44 49 53 43 |TECT SOURCE DISC| 000000a0 22 0d 00 3c 16 de 20 42 75 66 66 65 72 25 20 42 |"..<.. Buffer% B| 000000b0 75 66 53 69 7a 65 25 0d 00 46 0a 50 74 72 25 3d |ufSize%..F.Ptr%=| 000000c0 30 0d 00 50 3c 20 20 f1 20 22 49 6e 73 65 72 74 |0..P< . "Insert| 000000d0 20 73 6f 75 72 63 65 20 64 69 73 63 20 69 6e 20 | source disc in | 000000e0 64 72 69 76 65 20 30 20 74 68 65 6e 20 70 72 65 |drive 0 then pre| 000000f0 73 73 20 53 50 41 43 45 20 42 41 52 22 0d 00 5a |ss SPACE BAR"..Z| 00000100 0e 20 20 2a 46 58 20 31 35 2c 31 0d 00 64 09 20 |. *FX 15,1..d. | 00000110 20 51 3d a5 0d 00 6e 30 20 20 c8 99 20 22 41 44 | Q=...n0 .. "AD| 00000120 46 53 5f 44 69 73 63 4f 70 22 2c 30 2c 31 2c 50 |FS_DiscOp",0,1,P| 00000130 74 72 25 2c 42 75 66 66 65 72 25 2c 42 75 66 53 |tr%,Buffer%,BufS| 00000140 69 7a 65 25 0d 00 78 41 20 20 f1 20 22 49 6e 73 |ize%..xA . "Ins| 00000150 65 72 74 20 64 65 73 74 69 6e 61 74 69 6f 6e 20 |ert destination | 00000160 64 69 73 63 20 69 6e 20 64 72 69 76 65 20 30 20 |disc in drive 0 | 00000170 74 68 65 6e 20 70 72 65 73 73 20 53 50 41 43 45 |then press SPACE| 00000180 20 42 41 52 22 0d 00 82 0e 20 20 2a 46 58 20 31 | BAR".... *FX 1| 00000190 35 2c 31 0d 00 8c 0c 20 20 f5 fd a5 3d 33 32 0d |5,1.... ...=32.| 000001a0 00 8d 0e 20 20 64 69 73 63 73 25 3d 30 0d 00 96 |... discs%=0...| 000001b0 07 20 20 f5 0d 00 a0 32 20 20 20 20 c8 99 20 22 |. ....2 .. "| 000001c0 41 44 46 53 5f 44 69 73 63 4f 70 22 2c 30 2c 32 |ADFS_DiscOp",0,2| 000001d0 2c 50 74 72 25 2c 42 75 66 66 65 72 25 2c 42 75 |,Ptr%,Buffer%,Bu| 000001e0 66 53 69 7a 65 25 0d 00 a1 11 20 20 20 20 64 69 |fSize%.... di| 000001f0 73 63 73 25 2b 3d 31 0d 00 aa 1f 20 20 20 20 f1 |scs%+=1.... .| 00000200 22 43 6f 70 69 65 73 20 6d 61 64 65 20 3d 22 3b |"Copies made =";| 00000210 64 69 73 63 73 25 0d 00 ab 31 20 20 20 20 f1 22 |discs%...1 ."| 00000220 41 6e 6f 74 68 65 72 2c 20 50 72 65 73 73 20 53 |Another, Press S| 00000230 50 41 43 45 20 65 6c 73 65 20 50 72 65 73 73 20 |PACE else Press | 00000240 52 45 54 55 52 4e 22 0d 00 be 0c 20 20 fd 20 a5 |RETURN".... . .| 00000250 3d 31 33 0d 00 d2 10 f1 20 22 46 69 6e 69 73 68 |=13..... "Finish| 00000260 65 64 22 0d ff |ed"..| 00000265
.