Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199609.adf » Regulars » StarInfo/CDFS+/Fix
StarInfo/CDFS+/Fix
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_AcornUser_199609.adf » Regulars |
| Filename: | StarInfo/CDFS+/Fix |
| Read OK: | ✔ |
| File size: | 035E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10max=32*1024 20 30 40 50DIM code max 60REPEAT 70 INPUT "Enter path of CDFS module (or Shift Drag) : "in$ 71 WHILE RIGHT$(in$,1)=" " 72 in$=LEFT$(in$) 73 ENDWHILE 80 SYS "OS_File",5,in$ TO f,,,,len 90 ok=TRUE 100 IF f<>1 PRINT in$;" is not a file":ok=FALSE 110 IF len>max PRINT in$;" is much larger than expected":ok=FALSE 120UNTIL ok 130SYS "OS_File",&FF,in$,code 140help$=FN0(code+code!&14) 150PRINT'"Found: ";help$' 160offset=FNid(help$) 170IF offset = 0 ERROR 1, "Don't known about this version" 180IF code!offset =&01A0100A ERROR 1,"Module already fixed" 190IF code!offset<>&01A0A001 ERROR 1,"Offset does not contain expected value" 200code!offset = &01A0100A 210PRINT "MOVEQ r10,r1 changed to MOVEQ r1,r10"' 220SYS "OS_File",10,in$+"+",&FFD,,code,code+len 230PRINT "Module saved as ";in$;"+" 240END 250: 260DEF FN0(a) 270a$="" 280WHILE ?a<>0 290 IF ?a>31 a$+=CHR$?a ELSE a$+=" " 300 a+=1 310ENDWHILE 320=a$ 330DEF FNid(h$) 340IF INSTR(h$,"2.21") THEN = &2F40 350=0
max=32*1024 ( 2� code max <� F8 � "Enter path of CDFS module (or Shift Drag) : "in$ G ȕ �in$,1)=" " H in$=�in$) I � P" ș "OS_File",5,in$ � f,,,,len Z ok=� d' � f<>1 � in$;" is not a file":ok=� n9 � len>max � in$;" is much larger than expected":ok=� x� ok � ș "OS_File",&FF,in$,code �help$=�0(code+code!&14) ��'"Found: ";help$' �offset=�id(help$) �6� offset = 0 � 1, "Don't known about this version" �7� code!offset =&01A0100A � 1,"Module already fixed" �I� code!offset<>&01A0A001 � 1,"Offset does not contain expected value" �code!offset = &01A0100A �-� "MOVEQ r10,r1 changed to MOVEQ r1,r10"' �/ș "OS_File",10,in$+"+",&FFD,,code,code+len � � "Module saved as ";in$;"+" �� �: � �0(a) a$="" ȕ ?a<>0 " � ?a>31 a$+=�?a � a$+=" " , a+=1 6� @=a$ J � �id(h$) T� �h$,"2.21") � = &2F40 ^=0 �
00000000 0d 00 0a 0f 6d 61 78 3d 33 32 2a 31 30 32 34 0d |....max=32*1024.| 00000010 00 14 04 0d 00 1e 04 0d 00 28 04 0d 00 32 0e de |.........(...2..| 00000020 20 63 6f 64 65 20 6d 61 78 0d 00 3c 05 f5 0d 00 | code max..<....| 00000030 46 38 20 e8 20 22 45 6e 74 65 72 20 70 61 74 68 |F8 . "Enter path| 00000040 20 6f 66 20 43 44 46 53 20 6d 6f 64 75 6c 65 20 | of CDFS module | 00000050 28 6f 72 20 53 68 69 66 74 20 44 72 61 67 29 20 |(or Shift Drag) | 00000060 3a 20 22 69 6e 24 0d 00 47 13 20 c8 95 20 c2 69 |: "in$..G. .. .i| 00000070 6e 24 2c 31 29 3d 22 20 22 0d 00 48 0f 20 20 69 |n$,1)=" "..H. i| 00000080 6e 24 3d c0 69 6e 24 29 0d 00 49 06 20 ce 0d 00 |n$=.in$)..I. ...| 00000090 50 22 20 c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c |P" .. "OS_File",| 000000a0 35 2c 69 6e 24 20 b8 20 66 2c 2c 2c 2c 6c 65 6e |5,in$ . f,,,,len| 000000b0 0d 00 5a 09 20 6f 6b 3d b9 0d 00 64 27 20 e7 20 |..Z. ok=...d' . | 000000c0 66 3c 3e 31 20 f1 20 69 6e 24 3b 22 20 69 73 20 |f<>1 . in$;" is | 000000d0 6e 6f 74 20 61 20 66 69 6c 65 22 3a 6f 6b 3d a3 |not a file":ok=.| 000000e0 0d 00 6e 39 20 e7 20 6c 65 6e 3e 6d 61 78 20 f1 |..n9 . len>max .| 000000f0 20 69 6e 24 3b 22 20 69 73 20 6d 75 63 68 20 6c | in$;" is much l| 00000100 61 72 67 65 72 20 74 68 61 6e 20 65 78 70 65 63 |arger than expec| 00000110 74 65 64 22 3a 6f 6b 3d a3 0d 00 78 08 fd 20 6f |ted":ok=...x.. o| 00000120 6b 0d 00 82 1d c8 99 20 22 4f 53 5f 46 69 6c 65 |k...... "OS_File| 00000130 22 2c 26 46 46 2c 69 6e 24 2c 63 6f 64 65 0d 00 |",&FF,in$,code..| 00000140 8c 1b 68 65 6c 70 24 3d a4 30 28 63 6f 64 65 2b |..help$=.0(code+| 00000150 63 6f 64 65 21 26 31 34 29 0d 00 96 16 f1 27 22 |code!&14).....'"| 00000160 46 6f 75 6e 64 3a 20 22 3b 68 65 6c 70 24 27 0d |Found: ";help$'.| 00000170 00 a0 15 6f 66 66 73 65 74 3d a4 69 64 28 68 65 |...offset=.id(he| 00000180 6c 70 24 29 0d 00 aa 36 e7 20 6f 66 66 73 65 74 |lp$)...6. offset| 00000190 20 3d 20 30 20 85 20 31 2c 20 22 44 6f 6e 27 74 | = 0 . 1, "Don't| 000001a0 20 6b 6e 6f 77 6e 20 61 62 6f 75 74 20 74 68 69 | known about thi| 000001b0 73 20 76 65 72 73 69 6f 6e 22 0d 00 b4 37 e7 20 |s version"...7. | 000001c0 63 6f 64 65 21 6f 66 66 73 65 74 20 3d 26 30 31 |code!offset =&01| 000001d0 41 30 31 30 30 41 20 85 20 31 2c 22 4d 6f 64 75 |A0100A . 1,"Modu| 000001e0 6c 65 20 61 6c 72 65 61 64 79 20 66 69 78 65 64 |le already fixed| 000001f0 22 0d 00 be 49 e7 20 63 6f 64 65 21 6f 66 66 73 |"...I. code!offs| 00000200 65 74 3c 3e 26 30 31 41 30 41 30 30 31 20 85 20 |et<>&01A0A001 . | 00000210 31 2c 22 4f 66 66 73 65 74 20 64 6f 65 73 20 6e |1,"Offset does n| 00000220 6f 74 20 63 6f 6e 74 61 69 6e 20 65 78 70 65 63 |ot contain expec| 00000230 74 65 64 20 76 61 6c 75 65 22 0d 00 c8 1b 63 6f |ted value"....co| 00000240 64 65 21 6f 66 66 73 65 74 20 3d 20 26 30 31 41 |de!offset = &01A| 00000250 30 31 30 30 41 0d 00 d2 2d f1 20 22 4d 4f 56 45 |0100A...-. "MOVE| 00000260 51 20 72 31 30 2c 72 31 20 63 68 61 6e 67 65 64 |Q r10,r1 changed| 00000270 20 74 6f 20 4d 4f 56 45 51 20 72 31 2c 72 31 30 | to MOVEQ r1,r10| 00000280 22 27 0d 00 dc 2f c8 99 20 22 4f 53 5f 46 69 6c |"'.../.. "OS_Fil| 00000290 65 22 2c 31 30 2c 69 6e 24 2b 22 2b 22 2c 26 46 |e",10,in$+"+",&F| 000002a0 46 44 2c 2c 63 6f 64 65 2c 63 6f 64 65 2b 6c 65 |FD,,code,code+le| 000002b0 6e 0d 00 e6 20 f1 20 22 4d 6f 64 75 6c 65 20 73 |n... . "Module s| 000002c0 61 76 65 64 20 61 73 20 22 3b 69 6e 24 3b 22 2b |aved as ";in$;"+| 000002d0 22 0d 00 f0 05 e0 0d 00 fa 05 3a 0d 01 04 0b dd |".........:.....| 000002e0 20 a4 30 28 61 29 0d 01 0e 09 61 24 3d 22 22 0d | .0(a)....a$="".| 000002f0 01 18 0c c8 95 20 3f 61 3c 3e 30 0d 01 22 1e 20 |..... ?a<>0..". | 00000300 e7 20 3f 61 3e 33 31 20 61 24 2b 3d bd 3f 61 20 |. ?a>31 a$+=.?a | 00000310 8b 20 61 24 2b 3d 22 20 22 0d 01 2c 09 20 61 2b |. a$+=" "..,. a+| 00000320 3d 31 0d 01 36 05 ce 0d 01 40 07 3d 61 24 0d 01 |=1..6....@.=a$..| 00000330 4a 0d dd 20 a4 69 64 28 68 24 29 0d 01 54 1b e7 |J.. .id(h$)..T..| 00000340 20 a7 68 24 2c 22 32 2e 32 31 22 29 20 8c 20 3d | .h$,"2.21") . =| 00000350 20 26 32 46 34 30 0d 01 5e 06 3d 30 0d ff | &2F40..^.=0..| 0000035e
.