> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 00 00 8B 41 B2 30 A7 41 B2 31 3A 93 |.. ....A.0.A.1:.|
00000010: 22 45 52 52 4F 52 20 43 4F 44 45 22 2C 38 2C 31 |"ERROR CODE",8,1|
00000020: 00 2E 08 01 00 4D 45 4D B2 34 39 31 35 32 00 4A |.....MEM.49152.J|
00000030: 08 02 00 4A 42 B2 30 20 3A 8F 20 4A 4F 42 20 51 |...JB.0 :. JOB Q|
00000040: 55 45 20 4D 45 4D 20 4C 4F 43 00 6E 08 03 00 54 |UE MEM LOC.n...T|
00000050: 53 B2 36 20 3A 8F 20 4D 45 4D 20 4C 4F 43 20 46 |S.6 :. MEM LOC F|
00000060: 4F 52 20 54 52 2C 53 43 20 54 41 42 4C 45 00 91 |OR TR,SC TABLE..|
00000070: 08 04 00 45 58 B2 31 34 AC 31 36 20 3A 8F 20 45 |...EX.14.16 :. E|
00000080: 58 49 43 55 54 45 20 43 4F 44 45 20 56 41 4C 55 |XICUTE CODE VALU|
00000090: 45 00 97 08 05 00 3A 00 AD 08 E8 03 97 35 33 32 |E.....:......532|
000000A0: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 C9 08 |80,0:.53281,0...|
000000B0: F2 03 99 22 93 05 20 44 49 53 4B 20 45 52 52 4F |...".. DISK ERRO|
000000C0: 52 20 4D 41 4B 45 52 20 22 00 F2 08 F3 03 99 22 |R MAKER "......"|
000000D0: 11 11 50 52 4F 47 52 41 4D 4D 45 44 20 42 59 20 |..PROGRAMMED BY |
000000E0: 4B 45 56 49 4E 20 50 49 43 4B 45 4C 4C 20 27 38 |KEVIN PICKELL '8|
000000F0: 33 22 00 1B 09 FC 03 99 22 11 11 49 4E 53 45 52 |3"......"..INSER|
00000100: 54 20 44 49 53 4B 20 54 48 45 4E 20 50 52 45 53 |T DISK THEN PRES|
00000110: 53 20 12 52 45 54 55 52 4E 92 22 00 33 09 06 04 |S .RETURN.".3...|
00000120: A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 31 |.A$:.A$...(13).1|
00000130: 30 33 30 00 5C 09 10 04 99 22 91 20 20 20 20 20 |030.\....". |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 22 00 7A 09 1A | ".z..|
00000160: 04 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A A1 |..15,8,15,"I0":.|
00000170: 23 31 35 2C 41 3A 8B 41 A7 90 00 8A 09 24 04 9F |#15,A:.A.....$..|
00000180: 32 2C 38 2C 32 2C 22 23 30 22 00 90 09 2E 04 3A |2,8,2,"#0".....:|
00000190: 00 AE 09 38 04 99 22 93 05 20 44 49 53 4B 20 45 |...8..".. DISK E|
000001A0: 52 52 4F 52 20 4D 41 4B 45 52 20 11 11 22 00 C8 |RROR MAKER .."..|
000001B0: 09 40 04 99 22 11 11 11 20 2A 2A 2A 20 4D 45 4E |.@.."... *** MEN|
000001C0: 55 20 2A 2A 2A 11 11 22 00 E4 09 42 04 99 22 31 |U ***.."...B.."1|
000001D0: 2E 20 20 32 31 2C 45 52 41 53 45 20 41 20 54 52 |. 21,ERASE A TR|
000001E0: 41 43 4B 22 00 09 0A 4C 04 99 22 32 2E 20 20 32 |ACK"...L.."2. 2|
000001F0: 32 2C 44 41 54 41 20 42 4C 4F 43 4B 20 4E 4F 54 |2,DATA BLOCK NOT|
00000200: 20 50 52 45 53 45 4E 54 22 00 2E 0A 56 04 99 22 | PRESENT"...V.."|
00000210: 33 2E 20 20 32 33 2C 43 48 45 43 4B 53 55 4D 20 |3. 23,CHECKSUM |
00000220: 45 52 52 4F 52 20 49 4E 20 44 41 54 41 22 00 55 |ERROR IN DATA".U|
00000230: 0A 60 04 99 22 34 2E 20 20 32 37 2C 43 48 45 43 |.`.."4. 27,CHEC|
00000240: 4B 53 55 4D 20 45 52 52 4F 52 20 49 4E 20 48 45 |KSUM ERROR IN HE|
00000250: 41 44 45 52 22 00 7C 0A 6A 04 99 22 35 2E 20 20 |ADER".|.j.."5. |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 22 00 94 0A 74 | "...t|
00000280: 04 99 22 36 2E 20 45 58 49 54 20 54 4F 20 42 41 |.."6. EXIT TO BA|
00000290: 53 49 43 22 00 B9 0A 7E 04 99 22 11 11 49 4E 50 |SIC"...~.."..INP|
000002A0: 55 54 20 28 31 2D 36 29 3A 22 3B 3A 9F 31 2C 30 |UT (1-6):";:.1,0|
000002B0: 3A 84 31 2C 41 24 3A A0 31 00 D3 0A D0 07 41 B2 |:.1,A$:.1.....A.|
000002C0: C5 28 41 24 29 3A 8B 41 B3 31 B0 41 B1 37 A7 31 |.(A$):.A.1.A.7.1|
000002D0: 30 38 30 00 E2 0A DA 07 8B 41 B3 B1 36 A7 32 34 |080......A..6.24|
000002E0: 30 30 00 F3 0A E4 07 A0 32 3A A0 31 3A 99 22 93 |00......2:.1:.".|
000002F0: 22 3A 80 00 FC 0A 60 09 4D 4C B2 41 00 29 0B C4 |":....`.ML.A.)..|
00000300: 09 3A 99 3A 99 22 49 4E 50 55 54 20 54 52 41 43 |.:.:."INPUT TRAC|
00000310: 4B 23 28 31 2D 33 35 29 3A 22 3B 3A 9F 31 2C 30 |K#(1-35):";:.1,0|
00000320: 3A 84 31 2C 41 24 3A A0 31 00 44 0B CE 09 54 B2 |:.1,A$:.1.D...T.|
00000330: C5 28 41 24 29 3A 8B 54 B3 31 B0 54 B1 33 35 A7 |.(A$):.T.1.T.35.|
00000340: 31 30 38 30 00 4A 0B D8 09 3A 00 6A 0B E2 09 8B |1080.J...:.j....|
00000350: 4D 4C B2 31 A7 33 30 30 30 20 3A 8F 20 49 4E 50 |ML.1.3000 :. INP|
00000360: 55 54 20 54 52 20 4F 4E 4C 59 00 98 0B 28 0A 3A |UT TR ONLY...(.:|
00000370: 99 3A 99 22 49 4E 50 55 54 20 53 45 43 54 4F 52 |.:."INPUT SECTOR|
00000380: 23 28 30 2D 32 30 29 3A 22 3B 3A 9F 31 2C 30 3A |#(0-20):";:.1,0:|
00000390: 84 31 2C 41 24 3A A0 31 00 B3 0B 32 0A 53 B2 C5 |.1,A$:.1...2.S..|
000003A0: 28 41 24 29 3A 8B 53 B3 30 B0 53 B1 32 30 A7 31 |(A$):.S.0.S.20.1|
000003B0: 30 38 30 00 B9 0B B8 0B 3A 00 D6 0B C2 0B 99 3A |080.....:......:|
000003C0: 99 22 44 55 4D 50 49 4E 47 20 4D 2F 4C 20 54 4F |."DUMPING M/L TO|
000003D0: 20 44 49 53 4B 22 00 E8 0B C3 0B 98 31 35 2C 22 | DISK"......15,"|
000003E0: 42 2D 50 3A 32 2C 30 22 00 FA 0B CC 0B 97 4D 45 |B-P:2,0"......ME|
000003F0: 4D 2C 41 3A 9E 4D 45 4D AA 32 00 18 0C D6 0B 3A |M,A:.MEM.2.....:|
00000400: 99 22 45 58 45 43 55 54 49 4E 47 20 4D 2F 4C 20 |."EXECUTING M/L |
00000410: 49 4E 20 44 49 53 4B 22 00 1E 0C E0 0B 3A 00 42 |IN DISK".....:.B|
00000420: 0C EA 0B 50 4B B2 54 53 3A 50 48 B2 B5 28 50 4B |...PK.TS:PH..(PK|
00000430: AD 32 35 36 29 3A 50 4C B2 50 4B AB 32 35 36 AC |.256):PL.PK.256.|
00000440: 50 48 00 7C 0C F4 0B 98 31 35 2C 22 4D 2D 57 22 |PH.|....15,"M-W"|
00000450: 3B C7 28 50 4C 29 3B C7 28 50 48 29 3B C7 28 31 |;.(PL);.(PH);.(1|
00000460: 29 3B C7 28 54 29 3B 3A 20 8F 20 53 45 4E 44 20 |);.(T);: . SEND |
00000470: 54 52 41 43 4B 20 4E 55 4D 42 45 52 00 82 0C FE |TRACK NUMBER....|
00000480: 0B 3A 00 A8 0C 08 0C 50 4B B2 54 53 AA 31 3A 50 |.:.....PK.TS.1:P|
00000490: 48 B2 B5 28 50 4B AD 32 35 36 29 3A 50 4C B2 50 |H..(PK.256):PL.P|
000004A0: 4B AB 32 35 36 AC 50 48 00 E3 0C 12 0C 98 31 35 |K.256.PH......15|
000004B0: 2C 22 4D 2D 57 22 3B C7 28 50 4C 29 3B C7 28 50 |,"M-W";.(PL);.(P|
000004C0: 48 29 3B C7 28 31 29 3B C7 28 53 29 3B 3A 20 8F |H);.(1);.(S);: .|
000004D0: 20 53 45 4E 44 20 53 45 43 54 4F 52 20 4E 55 4D | SEND SECTOR NUM|
000004E0: 42 45 52 00 E9 0C 1C 0C 3A 00 0D 0D 26 0C 50 4B |BER.....:...&.PK|
000004F0: B2 4A 42 3A 50 48 B2 B5 28 50 4B AD 32 35 36 29 |.JB:PH..(PK.256)|
00000500: 3A 50 4C B2 50 4B AB 32 35 36 AC 50 48 00 4A 0D |:PL.PK.256.PH.J.|
00000510: 3A 0C 98 31 35 2C 22 4D 2D 57 22 3B C7 28 50 4C |:..15,"M-W";.(PL|
00000520: 29 3B C7 28 50 48 29 3B C7 28 31 29 3B C7 28 45 |);.(PH);.(1);.(E|
00000530: 58 29 3B 3A 20 8F 20 45 58 49 43 55 54 45 20 43 |X);: . EXICUTE C|
00000540: 4F 44 45 20 4E 55 4D 42 45 52 00 50 0D 44 0C 3A |ODE NUMBER.P.D.:|
00000550: 00 87 0D 4E 0C 98 31 35 2C 22 4D 2D 52 22 3B C7 |...N..15,"M-R";.|
00000560: 28 50 4C 29 3B C7 28 50 48 29 3A A1 23 31 35 2C |(PL);.(PH):.#15,|
00000570: 41 24 3A 8B C6 28 41 24 AA C7 28 30 29 29 B1 31 |A$:..(A$..(0)).1|
00000580: 32 38 A7 33 31 35 30 00 8D 0D 58 0C 3A 00 98 0D |28.3150...X.:...|
00000590: A0 0F 89 20 31 30 38 30 00 00 00 AA 31 45 |... 1080....1E |
.. ....A.0.A.1:."ERROR CODE",8,1.....MEM
.49152.J...JB.0 :. JOB QUE MEM LOC.N...T
S.6 :. MEM LOC FOR TR,SC TABLE.....EX.14
.16 :. EXICUTE CODE VALUE.....:......532
80,0:.53281,0.I....".. DISK ERROR MAKER
"......"..PROGRAMMED BY KEVIN PICKELL '8
3"......"..INSERT DISK THEN PRESS .RETUR
N.".3....A$:.A$..G(13).1030.\....".
".Z....15,8,1
5,"I0":.#15,A:.A.....$..2,8,2,"#0".....:
...8..".. DISK ERROR MAKER ..".H.@.."...
*** MENU ***.."...B.."1. 21,ERASE A TR
ACK"...L.."2. 22,DATA BLOCK NOT PRESENT
"...V.."3. 23,CHECKSUM ERROR IN DATA".U
.`.."4. 27,CHECKSUM ERROR IN HEADER".|.
J.."5. "...T
.."6. EXIT TO BASIC"...~.."..INPUT (1-6)
:";:.1,0:.1,A$: 1.S.P.A.E(A$):.A.1.A.7.1
080...Z..A..6.2400..... 2: 1:.".":....`.
ML.A.).D.:.:."INPUT TRACK#(1-35):";:.1,0
:.1,A$: 1.D.N.T.E(A$):.T.1.T.35.1080.J.X
.:.J....ML.1.3000 :. INPUT TR ONLY...(.:
.:."INPUT SECTOR#(0-20):";:.1,0:.1,A$: 1
...2.S.E(A$):.S.0.S.20.1080.....:.V.B..:
."DUMPING M/L TO DISK"...C..15,"B-P:2,0"
...L..MEM,A:.MEM.2...V.:."EXECUTING M/L
IN DISK".....:.B...PK.TS:PH..(PK.256):PL
.PK.256.PH.|....15,"M-W";G(PL);G(PH);G(1
);G(T);: . SEND TRACK NUMBER.....:.....P
K.TS.1:PH..(PK.256):PL.PK.256.PH......15
,"M-W";G(PL);G(PH);G(1);G(S);: . SEND SE
CTOR NUMBER.....:...&.PK.JB:PH..(PK.256)
:PL.PK.256.PH.J.:..15,"M-W";G(PL);G(PH);
G(1);G(EX);: . EXICUTE CODE NUMBER.P.D.:
...N..15,"M-R";G(PL);G(PH):.#15,A$:.F(A$
.G(0)).128.3150...X.:... .. 1080....1E
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL