Duplicates

There are 3 duplicate copies of this file in the archive:

• Personal collection » Acorn DFS disks » dfs_box03_disk01_utilities_disk.scp » DCONV
• Personal collection » Acorn DFS disks » dfs_box03_disk02_format_some_games.scp » DCONV
• Personal collection » Acorn DFS disks » dfs_box03_disk01b_utilities_disk.scp » DCONV
• Personal collection » Acorn DFS disks » dfs_box03_disk02b_format_some_games.scp » DCONV

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   10 PRINT"BBC ] System 3 disk converter"''
   20 INPUT "Which drive ? "D%
   30 DIM X%20,S%300
   40 OSWORD = &FFF1
   50 Y%=X%DIV256
   60 E%=0
   70X%?0=D%
   80X%!1=S%
   90X%?5=3
  100X%?6=&53
  110X%?7=0
  120X%?8=1
  130X%?9=&21
  140X%?10=-1
  150A%=&7F
  160CALL OSWORD
  170IF E%>10 THEN 300
  180IF X%?10<>0 THEN E%=E%+1:GOTO160
  190FORI%=14TO254STEP8
  200S%?I%=S%?I% AND &33
  210NEXT
  220S%?4=0
  230X%?6=&4B
  240 E%=0
  250CALL OSWORD
  260IF E%>10 THEN 300
  270IF X%?10<>0 THEN E%=E%+1:GOTO250
  280PRINT'"Done."'
  290END
  300PRINT"Disk error"
  310END

' �"BBC ] System 3 disk converter"''
 � "Which drive ? "D%
 � X%20,S%300
( OSWORD = &FFF1
2 Y%=X%�256
<	 E%=0
FX%?0=D%
PX%!1=S%
Z
X%?5=3
dX%?6=&53
n
X%?7=0
x
X%?8=1
�X%?9=&21
�X%?10=-1
�
A%=&7F
�� OSWORD
�� E%>10 � �TlA
�� X%?10<>0 � E%=E%+1:�t`@
��I%=14�254�8
�S%?I%=S%?I% � &33
��
�
S%?4=0
�X%?6=&4B
�	 E%=0
�� OSWORD

� E%>10 � �TlA

� X%?10<>0 � E%=E%+1:�dz@

�'"Done."'

"�

,�"Disk error"

6�
�

00000000  0d 00 0a 27 20 f1 22 42  42 43 20 5d 20 53 79 73  |...' ."BBC ] Sys|
00000010  74 65 6d 20 33 20 64 69  73 6b 20 63 6f 6e 76 65  |tem 3 disk conve|
00000020  72 74 65 72 22 27 27 0d  00 14 19 20 e8 20 22 57  |rter"''.... . "W|
00000030  68 69 63 68 20 64 72 69  76 65 20 3f 20 22 44 25  |hich drive ? "D%|
00000040  0d 00 1e 11 20 de 20 58  25 32 30 2c 53 25 33 30  |.... . X%20,S%30|
00000050  30 0d 00 28 13 20 4f 53  57 4f 52 44 20 3d 20 26  |0..(. OSWORD = &|
00000060  46 46 46 31 0d 00 32 0e  20 59 25 3d 58 25 81 32  |FFF1..2. Y%=X%.2|
00000070  35 36 0d 00 3c 09 20 45  25 3d 30 0d 00 46 0b 58  |56..<. E%=0..F.X|
00000080  25 3f 30 3d 44 25 0d 00  50 0b 58 25 21 31 3d 53  |%?0=D%..P.X%!1=S|
00000090  25 0d 00 5a 0a 58 25 3f  35 3d 33 0d 00 64 0c 58  |%..Z.X%?5=3..d.X|
000000a0  25 3f 36 3d 26 35 33 0d  00 6e 0a 58 25 3f 37 3d  |%?6=&53..n.X%?7=|
000000b0  30 0d 00 78 0a 58 25 3f  38 3d 31 0d 00 82 0c 58  |0..x.X%?8=1....X|
000000c0  25 3f 39 3d 26 32 31 0d  00 8c 0c 58 25 3f 31 30  |%?9=&21....X%?10|
000000d0  3d 2d 31 0d 00 96 0a 41  25 3d 26 37 46 0d 00 a0  |=-1....A%=&7F...|
000000e0  0c d6 20 4f 53 57 4f 52  44 0d 00 aa 12 e7 20 45  |.. OSWORD..... E|
000000f0  25 3e 31 30 20 8c 20 8d  54 6c 41 0d 00 b4 1e e7  |%>10 . .TlA.....|
00000100  20 58 25 3f 31 30 3c 3e  30 20 8c 20 45 25 3d 45  | X%?10<>0 . E%=E|
00000110  25 2b 31 3a e5 8d 74 60  40 0d 00 be 10 e3 49 25  |%+1:..t`@.....I%|
00000120  3d 31 34 b8 32 35 34 88  38 0d 00 c8 15 53 25 3f  |=14.254.8....S%?|
00000130  49 25 3d 53 25 3f 49 25  20 80 20 26 33 33 0d 00  |I%=S%?I% . &33..|
00000140  d2 05 ed 0d 00 dc 0a 53  25 3f 34 3d 30 0d 00 e6  |.......S%?4=0...|
00000150  0c 58 25 3f 36 3d 26 34  42 0d 00 f0 09 20 45 25  |.X%?6=&4B.... E%|
00000160  3d 30 0d 00 fa 0c d6 20  4f 53 57 4f 52 44 0d 01  |=0..... OSWORD..|
00000170  04 12 e7 20 45 25 3e 31  30 20 8c 20 8d 54 6c 41  |... E%>10 . .TlA|
00000180  0d 01 0e 1e e7 20 58 25  3f 31 30 3c 3e 30 20 8c  |..... X%?10<>0 .|
00000190  20 45 25 3d 45 25 2b 31  3a e5 8d 64 7a 40 0d 01  | E%=E%+1:..dz@..|
000001a0  18 0e f1 27 22 44 6f 6e  65 2e 22 27 0d 01 22 05  |...'"Done."'..".|
000001b0  e0 0d 01 2c 11 f1 22 44  69 73 6b 20 65 72 72 6f  |...,.."Disk erro|
000001c0  72 22 0d 01 36 05 e0 0d  ff                       |r"..6....|
000001c9

DCONV.m0

DCONV.m1

DCONV.m2

DCONV.m4

DCONV.m5