/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsc / cpc / !CPC_Demo / Discs / Snaps / Support / CheckDisc

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 43 | 68 65 63 6b 44 69 73 63 |..... >C|heckDisc|
|00000010| 0d 00 14 05 3a 0d 00 1e | 0e ee 20 85 20 f2 65 72 |....:...|.. . .er|
|00000020| 72 61 68 0d 00 28 05 3a | 0d 00 32 07 eb 20 eb 0d |rah..(.:|..2.. ..|
|00000030| 00 3c 05 3a 0d 00 46 05 | f5 0d 00 50 05 f1 0d 00 |.<.:..F.|...P....|
|00000040| 5a 15 ff 28 22 43 61 74 | 20 43 50 43 44 69 73 63 |Z..("Cat| CPCDisc|
|00000050| 3a 22 29 0d 00 64 18 e8 | 20 22 44 69 73 63 20 6e |:")..d..| "Disc n|
|00000060| 61 6d 65 3f 20 22 64 69 | 73 63 24 0d 00 6e 05 f1 |ame? "di|sc$..n..|
|00000070| 0d 00 78 10 e7 20 64 69 | 73 63 24 3d 22 22 20 e0 |..x.. di|sc$="" .|
|00000080| 0d 00 82 2a e7 20 a7 64 | 69 73 63 24 2c 22 2e 22 |...*. .d|isc$,"."|
|00000090| 29 3d 30 20 64 69 73 63 | 24 3d 22 43 50 43 44 69 |)=0 disc|$="CPCDi|
|000000a0| 73 63 3a 22 2b 64 69 73 | 63 24 0d 00 8c 0e 68 3d |sc:"+dis|c$....h=|
|000000b0| 8e 28 64 69 73 63 24 29 | 0d 00 96 29 e7 20 68 3d |.(disc$)|...). h=|
|000000c0| 30 20 f2 65 72 72 6f 72 | 28 22 46 69 6c 65 20 6e |0 .error|("File n|
|000000d0| 6f 74 20 66 6f 75 6e 64 | 21 22 29 3a d9 23 68 3a |ot found|!"):.#h:|
|000000e0| e0 0d 00 a0 05 3a 0d 00 | aa 2f 69 64 24 3d bd 9a |.....:..|./id$=..|
|000000f0| 23 68 2b bd 9a 23 68 2b | bd 9a 23 68 2b bd 9a 23 |#h+..#h+|..#h+..#|
|00000100| 68 2b bd 9a 23 68 2b bd | 9a 23 68 2b bd 9a 23 68 |h+..#h+.|.#h+..#h|
|00000110| 2b bd 9a 23 68 0d 00 b4 | 51 e7 20 69 64 24 3c 3e |+..#h...|Q. id$<>|
|00000120| 22 4d 56 20 2d 20 43 50 | 43 22 20 f2 65 72 72 6f |"MV - CP|C" .erro|
|00000130| 72 28 22 46 69 6c 65 20 | 64 6f 65 73 20 6e 6f 74 |r("File |does not|
|00000140| 20 61 70 70 65 61 72 20 | 74 6f 20 62 65 20 61 20 | appear |to be a |
|00000150| 43 50 43 20 64 69 73 63 | 21 22 29 3a f1 69 64 24 |CPC disc|!"):.id$|
|00000160| 3a d9 23 68 3a e0 0d 00 | be 05 3a 0d 00 c8 0a 69 |:.#h:...|..:....i|
|00000170| 64 24 3d 22 22 0d 00 d2 | 11 e3 20 49 3d 26 30 38 |d$=""...|.. I=&08|
|00000180| 20 b8 20 26 32 46 0d 00 | dc 09 62 3d 9a 23 68 0d | . &2F..|..b=.#h.|
|00000190| 00 e6 1b e7 20 62 3e 3d | 33 32 20 80 20 62 3c 31 |.... b>=|32 . b<1|
|000001a0| 32 37 20 69 64 24 2b 3d | bd 62 0d 00 f0 05 ed 0d |27 id$+=|.b......|
|000001b0| 00 fa 2d e7 20 69 64 24 | 3c 3e 22 22 20 f2 69 6e |..-. id$|<>"" .in|
|000001c0| 66 6f 28 22 48 65 61 64 | 65 72 20 73 69 67 6e 61 |fo("Head|er signa|
|000001d0| 74 75 72 65 3a 20 22 2b | 69 64 24 29 0d 01 04 05 |ture: "+|id$)....|
|000001e0| 3a 0d 01 0e 0e 6e 74 72 | 61 63 6b 3d 9a 23 68 0d |:....ntr|ack=.#h.|
|000001f0| 01 18 6d e7 20 6e 74 72 | 61 63 6b 3d 34 30 20 f2 |..m. ntr|ack=40 .|
|00000200| 69 6e 66 6f 28 22 53 74 | 61 6e 64 61 72 64 20 6e |info("St|andard n|
|00000210| 75 6d 62 65 72 20 6f 66 | 20 74 72 61 63 6b 73 20 |umber of| tracks |
|00000220| 28 34 30 29 22 29 20 8b | 20 f2 77 61 72 6e 28 22 |(40)") .| .warn("|
|00000230| 4e 6f 6e 2d 73 74 61 6e | 64 61 72 64 20 6e 75 6d |Non-stan|dard num|
|00000240| 62 65 72 20 6f 66 20 74 | 72 61 63 6b 20 28 22 2b |ber of t|rack ("+|
|00000250| c3 6e 74 72 61 63 6b 2b | 22 29 22 29 0d 01 22 0d |.ntrack+|")")..".|
|00000260| 6e 73 69 64 65 3d 9a 23 | 68 0d 01 2c 25 e7 20 6e |nside=.#|h..,%. n|
|00000270| 73 69 64 65 3d 31 20 f2 | 69 6e 66 6f 28 22 4f 6e |side=1 .|info("On|
|00000280| 65 2d 73 69 64 65 64 20 | 64 69 73 63 22 29 0d 01 |e-sided |disc")..|
|00000290| 36 2c e7 20 6e 73 69 64 | 65 3d 32 20 f2 65 72 72 |6,. nsid|e=2 .err|
|000002a0| 6f 72 28 22 54 77 6f 2d | 73 69 64 65 64 20 64 69 |or("Two-|sided di|
|000002b0| 73 63 22 29 3a d9 23 68 | 3a e0 0d 01 40 42 e7 20 |sc"):.#h|:...@B. |
|000002c0| 6e 73 69 64 65 3d 30 20 | 84 20 6e 73 69 64 65 3e |nside=0 |. nside>|
|000002d0| 32 20 f2 65 72 72 6f 72 | 28 22 44 69 73 63 20 68 |2 .error|("Disc h|
|000002e0| 61 73 20 22 2b c3 6e 73 | 69 64 65 2b 22 20 73 69 |as "+.ns|ide+" si|
|000002f0| 64 65 73 21 22 29 3a d9 | 23 68 3a e0 0d 01 4a 19 |des!"):.|#h:...J.|
|00000300| 74 72 61 63 6b 73 69 7a | 65 3d 9a 23 68 2b 32 35 |tracksiz|e=.#h+25|
|00000310| 36 2a 9a 23 68 0d 01 54 | 6e e7 20 74 72 61 63 6b |6*.#h..T|n. track|
|00000320| 73 69 7a 65 3d 26 31 33 | 30 30 20 f2 69 6e 66 6f |size=&13|00 .info|
|00000330| 28 22 53 74 61 6e 64 61 | 72 64 20 74 72 61 63 6b |("Standa|rd track|
|00000340| 73 69 7a 65 20 28 26 31 | 33 30 30 29 22 29 20 8b |size (&1|300)") .|
|00000350| 20 f2 77 61 72 6e 28 22 | 4e 6f 6e 2d 73 74 61 6e | .warn("|Non-stan|
|00000360| 64 61 72 64 20 74 72 61 | 63 6b 73 69 7a 65 20 28 |dard tra|cksize (|
|00000370| 26 22 2b c3 7e 74 72 61 | 63 6b 73 69 7a 65 2b 22 |&"+.~tra|cksize+"|
|00000380| 29 22 29 0d 01 5e 19 e3 | 20 49 3d 26 33 34 20 b8 |)")..^..| I=&34 .|
|00000390| 20 26 46 46 3a 62 3d 9a | 23 68 3a ed 0d 01 68 05 | &FF:b=.|#h:...h.|
|000003a0| 3a 0d 01 72 08 6f 6b 3d | b9 0d 01 7c 18 e3 20 74 |:..r.ok=|...|.. t|
|000003b0| 72 61 63 6b 3d 30 20 b8 | 20 6e 74 72 61 63 6b 2d |rack=0 .| ntrack-|
|000003c0| 31 0d 01 86 23 f2 69 6e | 66 6f 28 22 43 68 65 63 |1...#.in|fo("Chec|
|000003d0| 6b 69 6e 67 20 74 72 61 | 63 6b 20 22 2b c3 74 72 |king tra|ck "+.tr|
|000003e0| 61 63 6b 29 0d 01 90 12 | 69 64 24 3d 22 22 3a 69 |ack)....|id$="":i|
|000003f0| 64 32 24 3d 22 22 0d 01 | 9a 11 e3 20 49 3d 26 30 |d2$=""..|... I=&0|
|00000400| 30 20 b8 20 26 30 46 0d | 01 a4 09 62 3d 9a 23 68 |0 . &0F.|...b=.#h|
|00000410| 0d 01 ae 0b 69 64 24 2b | 3d bd 62 0d 01 b8 1c e7 |....id$+|=.b.....|
|00000420| 20 62 3e 3d 33 32 20 80 | 20 62 3c 31 32 37 20 69 | b>=32 .| b<127 i|
|00000430| 64 32 24 2b 3d bd 62 0d | 01 c2 05 ed 0d 01 cc 62 |d2$+=.b.|.......b|
|00000440| e7 20 69 64 24 3c 3e 22 | 54 72 61 63 6b 2d 49 6e |. id$<>"|Track-In|
|00000450| 66 6f 22 2b bd 31 33 2b | bd 31 30 2b bd 30 2b bd |fo"+.13+|.10+.0+.|
|00000460| 30 2b bd 30 2b bd 30 20 | f2 77 61 72 6e 28 22 54 |0+.0+.0 |.warn("T|
|00000470| 72 61 63 6b 20 69 73 20 | 6e 6f 74 20 64 65 66 69 |rack is |not defi|
|00000480| 6e 65 64 20 74 6f 20 73 | 70 65 63 21 20 28 22 2b |ned to s|pec! ("+|
|00000490| 69 64 32 24 2b 22 29 22 | 29 3a 6f 6b 3d a3 0d 01 |id2$+")"|):ok=...|
|000004a0| d6 5a 62 3d 9a 23 68 3a | e7 20 62 3c 3e 74 72 61 |.Zb=.#h:|. b<>tra|
|000004b0| 63 6b 20 f2 77 61 72 6e | 69 6e 67 28 22 50 68 79 |ck .warn|ing("Phy|
|000004c0| 73 69 63 61 6c 20 74 72 | 61 63 6b 20 64 6f 65 73 |sical tr|ack does|
|000004d0| 20 6e 6f 74 20 6d 61 74 | 63 68 20 6c 6f 67 69 63 | not mat|ch logic|
|000004e0| 61 6c 20 74 72 61 63 6b | 20 28 22 2b c3 62 2b 22 |al track| ("+.b+"|
|000004f0| 29 22 29 3a 6f 6b 3d a3 | 0d 01 e0 58 62 3d 9a 23 |)"):ok=.|...Xb=.#|
|00000500| 68 3a e7 20 62 3c 3e 30 | 20 f2 77 61 72 6e 69 6e |h:. b<>0| .warnin|
|00000510| 67 28 22 50 68 79 73 69 | 63 61 6c 20 73 69 64 65 |g("Physi|cal side|
|00000520| 20 28 30 29 20 64 6f 65 | 73 20 6e 6f 74 20 6d 61 | (0) doe|s not ma|
|00000530| 74 63 68 20 6c 6f 67 69 | 63 61 6c 20 73 69 64 65 |tch logi|cal side|
|00000540| 20 28 22 2b c3 62 2b 22 | 29 22 29 3a 6f 6b 3d a3 | ("+.b+"|)"):ok=.|
|00000550| 0d 01 ea 09 62 3d 9a 23 | 68 0d 01 f4 09 62 3d 9a |....b=.#|h....b=.|
|00000560| 23 68 0d 01 fe 3f 62 70 | 73 3d 9a 23 68 3a e7 20 |#h...?bp|s=.#h:. |
|00000570| 62 70 73 3d 32 20 8b 20 | f2 77 61 72 6e 28 22 4e |bps=2 . |.warn("N|
|00000580| 6f 6e 2d 73 74 61 6e 64 | 61 72 64 20 42 50 53 20 |on-stand|ard BPS |
|00000590| 28 22 2b c3 62 70 73 2b | 22 29 22 29 3a 6f 6b 3d |("+.bps+|")"):ok=|
|000005a0| a3 0d 02 08 39 62 3d 9a | 23 68 3a e7 20 62 3d 39 |....9b=.|#h:. b=9|
|000005b0| 20 8b 20 f2 77 61 72 6e | 28 22 4e 6f 6e 2d 73 74 | . .warn|("Non-st|
|000005c0| 61 6e 64 61 72 64 20 53 | 50 54 20 28 22 2b c3 62 |andard S|PT ("+.b|
|000005d0| 2b 22 29 22 29 3a 6f 6b | 3d a3 0d 02 12 35 e7 20 |+")"):ok|=....5. |
|000005e0| 62 3e 31 38 20 f2 65 72 | 72 6f 72 28 22 54 72 61 |b>18 .er|ror("Tra|
|000005f0| 63 6b 20 68 61 73 20 74 | 6f 6f 20 6d 61 6e 79 20 |ck has t|oo many |
|00000600| 73 65 63 74 6f 72 73 21 | 22 29 3a 6f 6b 3d a3 0d |sectors!|"):ok=..|
|00000610| 02 1c 1a 74 73 69 7a 3d | 28 26 38 30 3c 3c 62 70 |...tsiz=|(&80<<bp|
|00000620| 73 29 2a 62 2b 26 31 30 | 30 0d 02 26 43 e7 20 74 |s)*b+&10|0..&C. t|
|00000630| 73 69 7a 3c 74 72 61 63 | 6b 73 69 7a 65 20 f2 77 |siz<trac|ksize .w|
|00000640| 61 72 6e 28 22 54 72 61 | 63 6b 20 69 73 20 74 6f |arn("Tra|ck is to|
|00000650| 6f 20 73 6d 61 6c 6c 20 | 28 26 22 2b c3 7e 74 73 |o small |(&"+.~ts|
|00000660| 69 7a 2b 22 29 22 29 3a | 6f 6b 3d a3 0d 02 30 41 |iz+")"):|ok=...0A|
|00000670| e7 20 74 73 69 7a 3e 74 | 72 61 63 6b 73 69 7a 65 |. tsiz>t|racksize|
|00000680| 20 f2 77 61 72 6e 28 22 | 54 72 61 63 6b 20 69 73 | .warn("|Track is|
|00000690| 20 74 6f 6f 20 62 69 67 | 20 28 26 22 2b c3 7e 74 | too big| (&"+.~t|
|000006a0| 73 69 7a 2b 22 29 22 29 | 3a 6f 6b 3d a3 0d 02 3a |siz+")")|:ok=...:|
|000006b0| 3d 62 3d 9a 23 68 3a e7 | 20 62 3d 26 34 45 20 8b |=b=.#h:.| b=&4E .|
|000006c0| 20 f2 77 61 72 6e 28 22 | 4e 6f 6e 2d 73 74 61 6e | .warn("|Non-stan|
|000006d0| 64 61 72 64 20 67 61 70 | 20 28 26 22 2b c3 7e 62 |dard gap| (&"+.~b|
|000006e0| 2b 22 29 22 29 3a 6f 6b | 3d a3 0d 02 44 40 62 3d |+")"):ok|=...D@b=|
|000006f0| 9a 23 68 3a e7 20 62 3d | 26 45 35 20 8b 20 f2 77 |.#h:. b=|&E5 . .w|
|00000700| 61 72 6e 28 22 4e 6f 6e | 2d 73 74 61 6e 64 61 72 |arn("Non|-standar|
|00000710| 64 20 66 69 6c 6c 65 72 | 20 28 26 22 2b c3 7e 62 |d filler| (&"+.~b|
|00000720| 2b 22 29 22 29 3a 6f 6b | 3d a3 0d 02 4e 19 e3 20 |+")"):ok|=...N.. |
|00000730| 49 3d 26 31 38 20 b8 20 | 26 46 46 3a 62 3d 9a 23 |I=&18 . |&FF:b=.#|
|00000740| 68 3a ed 0d 02 58 1a cf | 23 68 3d 8f 23 68 2b 74 |h:...X..|#h=.#h+t|
|00000750| 72 61 63 6b 73 69 7a 65 | 2d 26 31 30 30 0d 02 62 |racksize|-&100..b|
|00000760| 05 ed 0d 02 6c 30 e7 20 | 6f 6b 20 f2 69 6e 66 6f |....l0. |ok .info|
|00000770| 28 22 44 69 73 63 20 4f | 4b 22 29 20 8b 20 f2 77 |("Disc O|K") . .w|
|00000780| 61 72 6e 28 22 44 69 73 | 63 20 6e 6f 74 20 4f 4b |arn("Dis|c not OK|
|00000790| 22 29 0d 02 76 05 3a 0d | 02 80 07 d9 23 68 0d 02 |")..v.:.|....#h..|
|000007a0| 8a 07 fd 20 a3 0d 02 94 | 05 e0 0d 02 9e 05 3a 0d |... ....|......:.|
|000007b0| 02 a8 10 dd f2 69 6e 66 | 6f 28 65 72 72 24 29 0d |.....inf|o(err$).|
|000007c0| 02 b2 11 f1 22 49 6e 66 | 6f 3a 20 22 65 72 72 24 |...."Inf|o: "err$|
|000007d0| 0d 02 bc 05 e1 0d 02 c6 | 05 3a 0d 02 d0 10 dd f2 |........|.:......|
|000007e0| 77 61 72 6e 28 65 72 72 | 24 29 0d 02 da 14 f1 22 |warn(err|$)....."|
|000007f0| 57 61 72 6e 69 6e 67 3a | 20 22 65 72 72 24 0d 02 |Warning:| "err$..|
|00000800| e4 05 e1 0d 02 ee 05 3a | 0d 02 f8 11 dd f2 65 72 |.......:|......er|
|00000810| 72 6f 72 28 65 72 72 24 | 29 0d 03 02 16 f1 22 45 |ror(err$|)....."E|
|00000820| 72 72 6f 72 3a 20 22 65 | 72 72 24 3a ef 20 37 0d |rror: "e|rr$:. 7.|
|00000830| 03 0c 05 e1 0d 03 16 05 | 3a 0d 03 20 0b dd f2 65 |........|:.. ...e|
|00000840| 72 72 61 68 0d 03 2a 09 | ee 20 85 20 87 0d 03 34 |rrah..*.|. . ...4|
|00000850| 14 f6 3a f1 22 20 61 74 | 20 6c 69 6e 65 20 22 3b |..:." at| line ";|
|00000860| 9e 0d 03 3e 0e e7 20 68 | 3c 3e 30 20 d9 23 68 0d |...>.. h|<>0 .#h.|
|00000870| 03 48 05 e0 0d 03 52 05 | e1 0d ff                |.H....R.|...     |
+--------+-------------------------+-------------------------+--------+--------+