Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199204.adf » April92 » !AWApr92/Goodies/Prog_Arm/!Initializ/COPYDISC
!AWApr92/Goodies/Prog_Arm/!Initializ/COPYDISC
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/!Initializ/COPYDISC |
| Read OK: | ✔ |
| File size: | 0196 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >$.!InItializ.copyDisc 15REM (c) Archimedes World April 1992 20 30BufSize% =10*1024 40 50DIM Buffer% BufSize% 60 70PRINT "Insert source disc in drive 0 then press SPACE BAR" 80*FX 15,1 90Q=GET 91 92Ptr%=0 100 110SYS "ADFS_DiscOp",0,1,Ptr%,Buffer%,BufSize% 120 130PRINT "Insert destination disc in drive 0 then press SPACE BAR" 140*FX 15,1 150REPEATUNTILGET=32 160 170 180SYS "ADFS_DiscOp",0,2,Ptr%,Buffer%,BufSize%
� >$.!InItializ.copyDisc %� (c) Archimedes World April 1992 BufSize% =10*1024 ( 2� Buffer% BufSize% < F:� "Insert source disc in drive 0 then press SPACE BAR" P *FX 15,1 ZQ=� [ \ Ptr%=0 d n.ș "ADFS_DiscOp",0,1,Ptr%,Buffer%,BufSize% x �?� "Insert destination disc in drive 0 then press SPACE BAR" � *FX 15,1 � ���=32 � � �.ș "ADFS_DiscOp",0,2,Ptr%,Buffer%,BufSize% �
00000000 0d 00 0a 1c f4 20 3e 24 2e 21 49 6e 49 74 69 61 |..... >$.!InItia| 00000010 6c 69 7a 2e 63 6f 70 79 44 69 73 63 0d 00 0f 25 |liz.copyDisc...%| 00000020 f4 20 28 63 29 20 41 72 63 68 69 6d 65 64 65 73 |. (c) Archimedes| 00000030 20 57 6f 72 6c 64 20 41 70 72 69 6c 20 31 39 39 | World April 199| 00000040 32 0d 00 14 04 0d 00 1e 15 42 75 66 53 69 7a 65 |2........BufSize| 00000050 25 20 3d 31 30 2a 31 30 32 34 0d 00 28 04 0d 00 |% =10*1024..(...| 00000060 32 16 de 20 42 75 66 66 65 72 25 20 42 75 66 53 |2.. Buffer% BufS| 00000070 69 7a 65 25 0d 00 3c 04 0d 00 46 3a f1 20 22 49 |ize%..<...F:. "I| 00000080 6e 73 65 72 74 20 73 6f 75 72 63 65 20 64 69 73 |nsert source dis| 00000090 63 20 69 6e 20 64 72 69 76 65 20 30 20 74 68 65 |c in drive 0 the| 000000a0 6e 20 70 72 65 73 73 20 53 50 41 43 45 20 42 41 |n press SPACE BA| 000000b0 52 22 0d 00 50 0c 2a 46 58 20 31 35 2c 31 0d 00 |R"..P.*FX 15,1..| 000000c0 5a 07 51 3d a5 0d 00 5b 04 0d 00 5c 0a 50 74 72 |Z.Q=...[...\.Ptr| 000000d0 25 3d 30 0d 00 64 04 0d 00 6e 2e c8 99 20 22 41 |%=0..d...n... "A| 000000e0 44 46 53 5f 44 69 73 63 4f 70 22 2c 30 2c 31 2c |DFS_DiscOp",0,1,| 000000f0 50 74 72 25 2c 42 75 66 66 65 72 25 2c 42 75 66 |Ptr%,Buffer%,Buf| 00000100 53 69 7a 65 25 0d 00 78 04 0d 00 82 3f f1 20 22 |Size%..x....?. "| 00000110 49 6e 73 65 72 74 20 64 65 73 74 69 6e 61 74 69 |Insert destinati| 00000120 6f 6e 20 64 69 73 63 20 69 6e 20 64 72 69 76 65 |on disc in drive| 00000130 20 30 20 74 68 65 6e 20 70 72 65 73 73 20 53 50 | 0 then press SP| 00000140 41 43 45 20 42 41 52 22 0d 00 8c 0c 2a 46 58 20 |ACE BAR"....*FX | 00000150 31 35 2c 31 0d 00 96 0a f5 fd a5 3d 33 32 0d 00 |15,1.......=32..| 00000160 a0 04 0d 00 aa 04 0d 00 b4 2e c8 99 20 22 41 44 |............ "AD| 00000170 46 53 5f 44 69 73 63 4f 70 22 2c 30 2c 32 2c 50 |FS_DiscOp",0,2,P| 00000180 74 72 25 2c 42 75 66 66 65 72 25 2c 42 75 66 53 |tr%,Buffer%,BufS| 00000190 69 7a 65 25 0d ff |ize%..| 00000196
.