T/TD3

Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » T/TD3

T/TD3

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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF
Filename:	T/TD3
Read OK:	✔
File size:	011C bytes
Load address:	FFFF1D00
Exec address:	FFFF8023

File contents

   10REM Tape -> Disc
   20MODE6
   30VDU28,0,24,39,15
   40HIMEM=&72BB
   50*FX16
   60*TAPE
   70*LOAD "" 2000
   80A%=0
   90REPEAT
  100n$=n$+CHR$(A%?&3B2)
  110A%=A%+1
  120UNTIL A%=11 OR A%?&3B2=0
  130*ADFS
  140n$="SAVE "+n$+" 2000 +"+STR$~(?&3C6*256+(!&3C8 AND &FFFF))+" "+STR$~(!&3C2)+" "+STR$~(!&3BE)
  150PRINT'"*";n$
  160OSCLIn$
  170CLEAR
  180GOTO60


� Tape -> Disc
�6
�28,0,24,39,15
(�=&72BB
2	*FX16
<	*TAPE
F*LOAD "" 2000
PA%=0
Z�
dn$=n$+�(A%?&3B2)
nA%=A%+1
x� A%=11 � A%?&3B2=0
�	*ADFS
�Un$="SAVE "+n$+" 2000 +"+�~(?&3C6*256+(!&3C8 � &FFFF))+" "+�~(!&3C2)+" "+�~(!&3BE)
��'"*";n$
��n$
��
�	�T|@
�

00000000  0d 00 0a 12 f4 20 54 61  70 65 20 2d 3e 20 44 69  |..... Tape -> Di|
00000010  73 63 0d 00 14 06 eb 36  0d 00 1e 12 ef 32 38 2c  |sc.....6.....28,|
00000020  30 2c 32 34 2c 33 39 2c  31 35 0d 00 28 0b d3 3d  |0,24,39,15..(..=|
00000030  26 37 32 42 42 0d 00 32  09 2a 46 58 31 36 0d 00  |&72BB..2.*FX16..|
00000040  3c 09 2a 54 41 50 45 0d  00 46 11 2a 4c 4f 41 44  |<.*TAPE..F.*LOAD|
00000050  20 22 22 20 32 30 30 30  0d 00 50 08 41 25 3d 30  | "" 2000..P.A%=0|
00000060  0d 00 5a 05 f5 0d 00 64  14 6e 24 3d 6e 24 2b bd  |..Z....d.n$=n$+.|
00000070  28 41 25 3f 26 33 42 32  29 0d 00 6e 0b 41 25 3d  |(A%?&3B2)..n.A%=|
00000080  41 25 2b 31 0d 00 78 17  fd 20 41 25 3d 31 31 20  |A%+1..x.. A%=11 |
00000090  84 20 41 25 3f 26 33 42  32 3d 30 0d 00 82 09 2a  |. A%?&3B2=0....*|
000000a0  41 44 46 53 0d 00 8c 55  6e 24 3d 22 53 41 56 45  |ADFS...Un$="SAVE|
000000b0  20 22 2b 6e 24 2b 22 20  32 30 30 30 20 2b 22 2b  | "+n$+" 2000 +"+|
000000c0  c3 7e 28 3f 26 33 43 36  2a 32 35 36 2b 28 21 26  |.~(?&3C6*256+(!&|
000000d0  33 43 38 20 80 20 26 46  46 46 46 29 29 2b 22 20  |3C8 . &FFFF))+" |
000000e0  22 2b c3 7e 28 21 26 33  43 32 29 2b 22 20 22 2b  |"+.~(!&3C2)+" "+|
000000f0  c3 7e 28 21 26 33 42 45  29 0d 00 96 0c f1 27 22  |.~(!&3BE).....'"|
00000100  2a 22 3b 6e 24 0d 00 a0  07 ff 6e 24 0d 00 aa 05  |*";n$.....n$....|
00000110  d8 0d 00 b4 09 e5 8d 54  7c 40 0d ff              |.......T|@..|
0000011c

T/TD3.m0

T/TD3.m1

T/TD3.m2

T/TD3.m4

T/TD3.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .