/ APDL Public Domain 1 / APDL_PD1A.iso / emulation / cpc / !CPC_Demo / Discs / Snaps / Support / CheckSnap

< prev

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 53 6e 61 70 |..... >C|heckSnap|
|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 11 de 20 68 65 |rah..(.:|..2.. he|
|00000030| 61 64 65 72 20 26 31 30 | 30 0d 00 3c 07 eb 20 eb |ader &10|0..<.. .|
|00000040| 0d 00 46 05 3a 0d 00 50 | 05 f5 0d 00 51 07 68 3d |..F.:..P|....Q.h=|
|00000050| 30 0d 00 52 05 3a 0d 00 | 5a 05 f1 0d 00 64 15 ff |0..R.:..|Z....d..|
|00000060| 28 22 43 61 74 20 43 50 | 43 53 6e 61 70 3a 22 29 |("Cat CP|CSnap:")|
|00000070| 0d 00 65 05 f1 0d 00 6e | 18 e8 20 22 53 6e 61 70 |..e....n|.. "Snap|
|00000080| 20 6e 61 6d 65 3f 20 22 | 73 6e 61 70 24 0d 00 78 | name? "|snap$..x|
|00000090| 05 f1 0d 00 79 0c 66 75 | 6c 6c 3d a6 2d 31 0d 00 |....y.fu|ll=.-1..|
|000000a0| 82 10 e7 20 73 6e 61 70 | 24 3d 22 22 20 e0 0d 00 |... snap|$="" ...|
|000000b0| 8c 2a e7 20 a7 73 6e 61 | 70 24 2c 22 2e 22 29 3d |.*. .sna|p$,".")=|
|000000c0| 30 20 73 6e 61 70 24 3d | 22 43 50 43 53 6e 61 70 |0 snap$=|"CPCSnap|
|000000d0| 3a 22 2b 73 6e 61 70 24 | 0d 00 96 0e 68 3d 8e 28 |:"+snap$|....h=.(|
|000000e0| 73 6e 61 70 24 29 0d 00 | a0 27 e7 20 68 3d 30 20 |snap$)..|.'. h=0 |
|000000f0| f2 65 72 72 6f 72 28 22 | 46 69 6c 65 20 6e 6f 74 |.error("|File not|
|00000100| 20 66 6f 75 6e 64 21 22 | 29 3a fd 20 a3 0d 00 aa | found!"|):. ....|
|00000110| 05 3a 0d 00 b4 0c 73 69 | 7a 65 3d a2 23 68 0d 00 |.:....si|ze=.#h..|
|00000120| be 47 e7 20 73 69 7a 65 | 3c 26 31 30 31 30 30 20 |.G. size|<&10100 |
|00000130| f2 65 72 72 6f 72 28 22 | 46 69 6c 65 20 69 73 20 |.error("|File is |
|00000140| 74 6f 6f 20 73 6d 61 6c | 6c 20 74 6f 20 62 65 20 |too smal|l to be |
|00000150| 61 20 36 34 4b 20 73 6e | 61 70 21 22 29 3a d9 23 |a 64K sn|ap!"):.#|
|00000160| 68 3a fd 20 a3 0d 00 c8 | 46 e7 20 73 69 7a 65 3e |h:. ....|F. size>|
|00000170| 26 32 30 31 30 30 20 f2 | 65 72 72 6f 72 28 22 46 |&20100 .|error("F|
|00000180| 69 6c 65 20 69 73 20 74 | 6f 6f 20 62 69 67 20 74 |ile is t|oo big t|
|00000190| 6f 20 62 65 20 61 20 31 | 32 38 4b 20 73 6e 61 70 |o be a 1|28K snap|
|000001a0| 21 22 29 3a d9 23 68 3a | fd 20 a3 0d 00 c9 6f e7 |!"):.#h:|. ....o.|
|000001b0| 20 73 69 7a 65 3c 3e 26 | 31 30 31 30 30 20 80 20 | size<>&|10100 . |
|000001c0| 73 69 7a 65 3c 3e 26 32 | 30 31 30 30 20 f2 65 72 |size<>&2|0100 .er|
|000001d0| 72 6f 72 28 22 46 69 6c | 65 20 69 73 20 6e 6f 74 |ror("Fil|e is not|
|000001e0| 20 74 68 65 20 72 69 67 | 68 74 20 73 69 7a 65 20 | the rig|ht size |
|000001f0| 66 6f 72 20 65 69 74 68 | 65 72 20 61 20 36 34 4b |for eith|er a 64K|
|00000200| 20 6f 72 20 61 20 31 32 | 38 4b 20 73 6e 61 70 21 | or a 12|8K snap!|
|00000210| 22 29 3a d9 23 68 3a fd | 20 a3 0d 00 d2 05 3a 0d |"):.#h:.| .....:.|
|00000220| 00 d3 0a 69 64 24 3d 22 | 22 0d 00 d4 11 e3 20 49 |...id$="|"..... I|
|00000230| 3d 26 30 30 20 b8 20 26 | 30 37 0d 00 d5 0c 20 20 |=&00 . &|07....  |
|00000240| 20 62 3d 9a 23 68 0d 00 | d6 1e 20 20 20 e7 20 62 | b=.#h..|..   . b|
|00000250| 3e 3d 33 32 20 80 20 62 | 3c 31 32 37 20 69 64 24 |>=32 . b|<127 id$|
|00000260| 2b 3d bd 62 0d 00 d7 05 | ed 0d 00 e6 4f e7 20 69 |+=.b....|....O. i|
|00000270| 64 24 3c 3e 22 4d 56 20 | 2d 20 53 4e 41 22 20 f2 |d$<>"MV |- SNA" .|
|00000280| 65 72 72 6f 72 28 22 46 | 69 6c 65 20 69 73 20 6e |error("F|ile is n|
|00000290| 6f 74 20 61 20 6e 6f 72 | 6d 61 6c 20 43 50 43 20 |ot a nor|mal CPC |
|000002a0| 73 6e 61 70 20 28 22 2b | 69 64 24 2b 22 29 22 29 |snap ("+|id$+")")|
|000002b0| 3a d9 23 68 3a fd 20 a3 | 0d 00 f0 05 3a 0d 00 fa |:.#h:. .|....:...|
|000002c0| 11 e3 20 49 3d 26 30 38 | 20 b8 20 26 46 46 0d 01 |.. I=&08| . &FF..|
|000002d0| 04 10 68 65 61 64 65 72 | 3f 49 3d 9a 23 68 0d 01 |..header|?I=.#h..|
|000002e0| 0e 05 ed 0d 01 18 07 d9 | 23 68 0d 01 22 05 3a 0d |........|#h..".:.|
|000002f0| 01 23 08 6f 6b 3d b9 0d | 01 2c 0a 69 64 24 3d 22 |.#.ok=..|.,.id$="|
|00000300| 22 0d 01 36 11 e3 20 49 | 3d 26 30 38 20 b8 20 26 |"..6.. I|=&08 . &|
|00000310| 30 46 0d 01 40 30 e7 20 | 68 65 61 64 65 72 3f 49 |0F..@0. |header?I|
|00000320| 3e 3d 33 32 20 80 20 68 | 65 61 64 65 72 3f 49 3c |>=32 . h|eader?I<|
|00000330| 31 32 37 20 69 64 24 2b | 3d bd 68 65 61 64 65 72 |127 id$+|=.header|
|00000340| 3f 49 0d 01 4a 05 ed 0d | 01 54 2d e7 20 69 64 24 |?I..J...|.T-. id$|
|00000350| 3c 3e 22 22 20 f2 69 6e | 66 6f 28 22 48 65 61 64 |<>"" .in|fo("Head|
|00000360| 65 72 20 73 69 67 6e 61 | 74 75 72 65 3a 20 22 2b |er signa|ture: "+|
|00000370| 69 64 24 29 0d 01 5e 05 | 3a 0d 01 68 6a e7 20 68 |id$)..^.|:..hj. h|
|00000380| 65 61 64 65 72 3f 26 31 | 30 3c 33 20 80 20 68 65 |eader?&1|0<3 . he|
|00000390| 61 64 65 72 3f 26 31 30 | 3e 30 20 f2 69 6e 66 6f |ader?&10|>0 .info|
|000003a0| 28 22 53 6e 61 70 20 76 | 65 72 73 69 6f 6e 20 22 |("Snap v|ersion "|
|000003b0| 2b c3 68 65 61 64 65 72 | 3f 26 31 30 29 20 8b 20 |+.header|?&10) . |
|000003c0| f2 65 72 72 6f 72 28 22 | 53 6e 61 70 20 76 65 72 |.error("|Snap ver|
|000003d0| 73 69 6f 6e 20 22 2b c3 | 68 65 61 64 65 72 3f 26 |sion "+.|header?&|
|000003e0| 31 30 29 0d 01 72 30 e7 | 20 68 65 61 64 65 72 3f |10)..r0.| header?|
|000003f0| 26 31 42 3e 31 20 f2 65 | 72 72 6f 72 28 22 49 46 |&1B>1 .e|rror("IF|
|00000400| 46 31 20 3d 20 22 2b c3 | 68 65 61 64 65 72 3f 26 |F1 = "+.|header?&|
|00000410| 31 42 29 0d 01 7c 30 e7 | 20 68 65 61 64 65 72 3f |1B)..|0.| header?|
|00000420| 26 31 43 3e 31 20 f2 65 | 72 72 6f 72 28 22 49 46 |&1C>1 .e|rror("IF|
|00000430| 46 32 20 3d 20 22 2b c3 | 68 65 61 64 65 72 3f 26 |F2 = "+.|header?&|
|00000440| 31 43 29 0d 01 86 33 e7 | 20 68 65 61 64 65 72 3f |1C)...3.| header?|
|00000450| 26 31 42 3c 3e 68 65 61 | 64 65 72 3f 26 31 43 20 |&1B<>hea|der?&1C |
|00000460| f2 65 72 72 6f 72 28 22 | 49 46 46 31 20 3c 3e 20 |.error("|IFF1 <> |
|00000470| 49 46 46 32 22 29 0d 01 | 90 2e e7 20 68 65 61 64 |IFF2")..|... head|
|00000480| 65 72 3f 26 32 35 3e 32 | 20 f2 65 72 72 6f 72 28 |er?&25>2| .error(|
|00000490| 22 49 4d 20 3d 20 22 2b | c3 68 65 61 64 65 72 3f |"IM = "+|.header?|
|000004a0| 26 32 35 29 0d 01 9a 05 | 3a 0d 01 a4 37 e7 20 68 |&25)....|:...7. h|
|000004b0| 65 61 64 65 72 3f 26 32 | 45 3e 31 36 20 f2 65 72 |eader?&2|E>16 .er|
|000004c0| 72 6f 72 28 22 56 47 41 | 20 69 6e 6b 73 65 6c 20 |ror("VGA| inksel |
|000004d0| 3d 20 22 2b c3 68 65 61 | 64 65 72 3f 26 32 45 29 |= "+.hea|der?&2E)|
|000004e0| 0d 01 ae 11 e3 20 49 3d | 26 32 46 20 b8 20 26 33 |..... I=|&2F . &3|
|000004f0| 46 0d 01 b8 33 e7 20 68 | 65 61 64 65 72 3f 49 3e |F...3. h|eader?I>|
|00000500| 33 31 20 f2 65 72 72 6f | 72 28 22 56 47 41 20 63 |31 .erro|r("VGA c|
|00000510| 6f 6c 73 65 6c 20 3d 20 | 22 2b c3 68 65 61 64 65 |olsel = |"+.heade|
|00000520| 72 3f 49 29 0d 01 c2 05 | ed 0d 01 cc 3f e7 20 68 |r?I)....|....?. h|
|00000530| 65 61 64 65 72 3f 26 34 | 30 20 80 20 25 30 30 31 |eader?&4|0 . %001|
|00000540| 31 30 30 30 30 20 f2 65 | 72 72 6f 72 28 22 56 47 |10000 .e|rror("VG|
|00000550| 41 20 6d 69 73 63 20 3d | 20 22 2b c3 7e 68 65 61 |A misc =| "+.~hea|
|00000560| 64 65 72 3f 26 34 30 29 | 0d 01 d6 34 e7 20 28 68 |der?&40)|...4. (h|
|00000570| 65 61 64 65 72 3f 26 34 | 30 20 80 20 33 29 3d 33 |eader?&4|0 . 3)=3|
|00000580| 20 f2 65 72 72 6f 72 28 | 22 56 47 41 20 73 63 72 | .error(|"VGA scr|
|00000590| 65 65 6e 20 6d 6f 64 65 | 20 33 22 29 0d 01 e0 41 |een mode| 3")...A|
|000005a0| e7 20 68 65 61 64 65 72 | 3f 26 34 31 20 80 20 25 |. header|?&41 . %|
|000005b0| 30 30 31 31 31 30 30 30 | 20 f2 65 72 72 6f 72 28 |00111000| .error(|
|000005c0| 22 56 47 41 20 62 61 6e | 6b 69 6e 67 20 3d 20 22 |"VGA ban|king = "|
|000005d0| 2b c3 68 65 61 64 65 72 | 3f 26 34 31 29 0d 01 ea |+.header|?&41)...|
|000005e0| 05 3a 0d 01 f4 38 e7 20 | 68 65 61 64 65 72 3f 26 |.:...8. |header?&|
|000005f0| 34 32 3e 31 37 20 f2 65 | 72 72 6f 72 28 22 43 52 |42>17 .e|rror("CR|
|00000600| 54 43 20 72 65 67 73 65 | 6c 20 3d 20 22 2b c3 68 |TC regse|l = "+.h|
|00000610| 65 61 64 65 72 3f 26 34 | 32 29 0d 01 fe 1d f4 20 |eader?&4|2)..... |
|00000620| 73 68 6f 75 6c 64 20 63 | 68 65 63 6b 20 43 52 54 |should c|heck CRT|
|00000630| 43 20 70 61 72 6d 73 0d | 02 08 05 3a 0d 02 12 75 |C parms.|...:...u|
|00000640| e7 20 68 65 61 64 65 72 | 3f 26 35 35 3d 37 20 f2 |. header|?&55=7 .|
|00000650| 77 61 72 6e 28 22 41 4d | 53 44 4f 53 20 73 65 6c |warn("AM|SDOS sel|
|00000660| 65 63 74 65 64 22 29 20 | 8b 20 e7 20 68 65 61 64 |ected") |. . head|
|00000670| 65 72 3f 26 35 35 3c 3e | 30 20 f2 65 72 72 6f 72 |er?&55<>|0 .error|
|00000680| 28 22 45 78 74 65 6e 73 | 69 6f 6e 20 52 4f 4d 20 |("Extens|ion ROM |
|00000690| 6e 75 6d 62 65 72 20 22 | 2b c3 68 65 61 64 65 72 |number "|+.header|
|000006a0| 3f 26 35 35 2b 22 20 73 | 65 6c 65 63 74 65 64 22 |?&55+" s|elected"|
|000006b0| 29 0d 02 1c 05 3a 0d 02 | 26 3d e7 20 68 65 61 64 |)....:..|&=. head|
|000006c0| 65 72 3f 26 35 38 20 80 | 20 25 30 30 31 31 30 30 |er?&58 .| %001100|
|000006d0| 30 30 20 f2 77 61 72 6e | 28 22 44 61 74 61 63 6f |00 .warn|("Dataco|
|000006e0| 72 64 65 72 20 6e 6f 74 | 20 69 6e 61 63 74 69 76 |rder not| inactiv|
|000006f0| 65 22 29 0d 02 30 1d f4 | 20 77 68 61 74 20 61 62 |e")..0..| what ab|
|00000700| 6f 75 74 20 50 50 49 20 | 63 6f 6e 74 72 6f 6c 3f |out PPI |control?|
|00000710| 0d 02 3a 05 3a 0d 02 44 | 37 e7 20 68 65 61 64 65 |..:.:..D|7. heade|
|00000720| 72 3f 26 35 41 3e 31 35 | 20 f2 65 72 72 6f 72 28 |r?&5A>15| .error(|
|00000730| 22 50 53 47 20 72 65 67 | 73 65 6c 20 3d 20 22 2b |"PSG reg|sel = "+|
|00000740| c3 68 65 61 64 65 72 3f | 26 35 41 29 0d 02 4e 05 |.header?|&5A)..N.|
|00000750| 3a 0d 02 58 69 e7 20 28 | 68 65 61 64 65 72 3f 26 |:..Xi. (|header?&|
|00000760| 36 42 2b 32 35 36 2a 68 | 65 61 64 65 72 3f 26 36 |6B+256*h|eader?&6|
|00000770| 43 29 2a 31 30 32 34 2b | 26 31 30 30 3c 3e 73 69 |C)*1024+|&100<>si|
|00000780| 7a 65 20 f2 65 72 72 6f | 72 28 22 53 6e 61 70 20 |ze .erro|r("Snap |
|00000790| 73 69 7a 65 20 3d 20 22 | 2b c3 28 68 65 61 64 65 |size = "|+.(heade|
|000007a0| 72 3f 26 36 42 2b 32 35 | 36 2a 68 65 61 64 65 72 |r?&6B+25|6*header|
|000007b0| 3f 26 36 43 29 2b 22 4b | 22 29 0d 02 62 05 3a 0d |?&6C)+"K|")..b.:.|
|000007c0| 02 6c 14 e7 20 68 65 61 | 64 65 72 3f 26 31 30 3d |.l.. hea|der?&10=|
|000007d0| 32 20 8c 0d 02 76 16 20 | 20 20 c8 8e 20 68 65 61 |2 ...v. |  .. hea|
|000007e0| 64 65 72 3f 26 36 44 20 | ca 0d 02 80 2b 20 20 20 |der?&6D |....+   |
|000007f0| c9 20 30 3a f2 69 6e 66 | 6f 28 22 53 6e 61 70 20 |. 0:.inf|o("Snap |
|00000800| 67 65 6e 65 72 61 74 65 | 64 20 6f 6e 20 61 20 34 |generate|d on a 4|
|00000810| 36 34 22 29 0d 02 8a 2b | 20 20 20 c9 20 31 3a f2 |64")...+|   . 1:.|
|00000820| 69 6e 66 6f 28 22 53 6e | 61 70 20 67 65 6e 65 72 |info("Sn|ap gener|
|00000830| 61 74 65 64 20 6f 6e 20 | 61 20 36 36 34 22 29 0d |ated on |a 664").|
|00000840| 02 94 2c 20 20 20 c9 20 | 32 3a f2 69 6e 66 6f 28 |..,   . |2:.info(|
|00000850| 22 53 6e 61 70 20 67 65 | 6e 65 72 61 74 65 64 20 |"Snap ge|nerated |
|00000860| 6f 6e 20 61 20 36 31 32 | 38 22 29 0d 02 9e 36 20 |on a 612|8")...6 |
|00000870| 20 20 7f 3a f2 69 6e 66 | 6f 28 22 53 6e 61 70 20 |  .:.inf|o("Snap |
|00000880| 67 65 6e 65 72 61 74 65 | 64 20 6f 6e 20 61 6e 20 |generate|d on an |
|00000890| 75 6e 6b 6e 6f 77 6e 20 | 6d 61 63 68 69 6e 65 22 |unknown |machine"|
|000008a0| 29 0d 02 a8 08 20 20 20 | cb 0d 02 b2 05 cd 0d 02 |)....   |........|
|000008b0| bc 05 3a 0d 02 bd 31 e7 | 20 6f 6b 20 f1 22 53 6e |..:...1.| ok ."Sn|
|000008c0| 61 70 20 6c 6f 6f 6b 73 | 20 4f 4b 22 20 8b 20 f1 |ap looks| OK" . .|
|000008d0| 22 53 6e 61 70 20 6d 61 | 79 20 6e 6f 74 20 62 65 |"Snap ma|y not be|
|000008e0| 20 4f 4b 22 0d 02 c6 05 | 3a 0d 02 c7 07 fd 20 a3 | OK"....|:..... .|
|000008f0| 0d 02 d0 05 e0 0d 02 da | 05 3a 0d 02 e4 10 dd f2 |........|.:......|
|00000900| 69 6e 66 6f 28 65 72 72 | 24 29 0d 02 ee 18 e7 20 |info(err|$)..... |
|00000910| 66 75 6c 6c 20 f1 22 49 | 6e 66 6f 3a 20 22 65 72 |full ."I|nfo: "er|
|00000920| 72 24 0d 02 f8 05 e1 0d | 03 02 05 3a 0d 03 0c 10 |r$......|...:....|
|00000930| dd f2 77 61 72 6e 28 65 | 72 72 24 29 0d 03 16 19 |..warn(e|rr$)....|
|00000940| f1 22 57 61 72 6e 69 6e | 67 3a 20 22 65 72 72 24 |."Warnin|g: "err$|
|00000950| 3a 6f 6b 3d a3 0d 03 20 | 05 e1 0d 03 2a 05 3a 0d |:ok=... |....*.:.|
|00000960| 03 34 11 dd f2 65 72 72 | 6f 72 28 65 72 72 24 29 |.4...err|or(err$)|
|00000970| 0d 03 3e 1b f1 22 45 72 | 72 6f 72 3a 20 22 65 72 |..>.."Er|ror: "er|
|00000980| 72 24 3a ef 20 37 3a 6f | 6b 3d a3 0d 03 48 05 e1 |r$:. 7:o|k=...H..|
|00000990| 0d 03 52 05 3a 0d 03 5c | 0b dd f2 65 72 72 61 68 |..R.:..\|...errah|
|000009a0| 0d 03 66 09 ee 20 85 20 | 87 0d 03 70 14 f6 3a f1 |..f.. . |...p..:.|
|000009b0| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 0d 03 7a |" at lin|e ";...z|
|000009c0| 0e e7 20 68 3c 3e 30 20 | d9 23 68 0d 03 84 05 e0 |.. h<>0 |.#h.....|
|000009d0| 0d 03 8e 05 e1 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+