> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 64 00 8F 20 47 45 4F 52 47 45 20 54 |..$.d.. GEORGE T|
00000010: 52 45 50 41 4C 20 43 4F 50 59 52 49 47 48 54 20 |REPAL COPYRIGHT |
00000020: 31 39 38 35 00 3A 08 6E 00 8F 20 32 36 35 30 20 |1985.:.n.. 2650 |
00000030: 41 4C 54 55 52 41 53 20 52 44 00 53 08 78 00 8F |ALTURAS RD.S.x..|
00000040: 20 42 41 52 54 4F 57 2C 20 46 4C 20 20 20 33 33 | BARTOW, FL 33|
00000050: 38 33 30 00 7A 08 82 00 9C 3A 97 35 33 32 38 31 |830.z....:.53281|
00000060: 2C 30 3A 97 35 33 32 38 30 2C 30 3A 86 54 52 28 |,0:.53280,0:.TR(|
00000070: 34 30 29 3A 99 22 93 99 11 22 00 99 08 8C 00 99 |40):."..."......|
00000080: A6 31 31 29 22 05 44 49 53 4B 20 45 52 52 4F 52 |.11)".DISK ERROR|
00000090: 20 43 48 45 43 4B 45 52 22 00 BD 08 96 00 99 A6 | CHECKER".......|
000000A0: 38 29 22 11 9E 4E 4F 20 4B 4E 4F 43 4B 20 2D 2D |8)"..NO KNOCK --|
000000B0: 20 54 52 41 43 4B 53 20 31 2D 34 30 22 00 DB 08 | TRACKS 1-40"...|
000000C0: A0 00 99 A6 31 32 29 22 9F 11 42 59 20 47 45 4F |....12)"..BY GEO|
000000D0: 52 47 45 20 54 52 45 50 41 4C 22 00 0D 09 AA 00 |RGE TREPAL".....|
000000E0: 99 22 11 11 99 43 48 45 43 4B 20 3C 41 3E 4C 4C |."...CHECK <A>LL|
000000F0: 20 54 52 41 43 4B 53 20 4F 52 20 3C 53 3E 45 4C | TRACKS OR <S>EL|
00000100: 45 43 54 45 44 20 54 52 41 43 4B 53 22 00 2A 09 |ECTED TRACKS".*.|
00000110: B4 00 A1 59 24 3A 8B 59 24 B3 B1 22 41 22 AF 59 |...Y$:.Y$.."A".Y|
00000120: 24 B3 B1 22 53 22 A7 31 38 30 00 46 09 BE 00 8B |$.."S".180.F....|
00000130: 59 24 B2 22 41 22 A7 46 54 B2 31 3A 4C 54 B2 34 |Y$."A".FT.1:LT.4|
00000140: 30 3A 89 32 36 30 00 56 09 C8 00 46 54 B2 AB 31 |0:.260.V...FT..1|
00000150: 3A 4C 54 B2 35 30 00 7F 09 D2 00 85 22 11 11 20 |:LT.50......".. |
00000160: 20 20 20 20 20 20 20 46 49 52 53 54 20 54 52 41 | FIRST TRA|
00000170: 43 4B 20 54 4F 20 43 48 45 43 4B 22 3B 46 54 00 |CK TO CHECK";FT.|
00000180: 93 09 DC 00 8B 46 54 B3 31 B0 46 54 B1 34 30 A7 |.....FT.1.FT.40.|
00000190: 32 31 30 00 BA 09 E6 00 85 22 11 20 20 20 20 20 |210......". |
000001A0: 20 20 20 4C 41 53 54 20 54 52 41 43 4B 20 54 4F | LAST TRACK TO|
000001B0: 20 43 48 45 43 4B 22 3B 4C 54 00 CE 09 F0 00 8B | CHECK";LT......|
000001C0: 4C 54 B3 31 B0 4C 54 B1 34 30 A7 32 33 30 00 DD |LT.1.LT.40.230..|
000001D0: 09 FA 00 8B 4C 54 B3 46 54 A7 32 31 30 00 06 0A |....LT.FT.210...|
000001E0: 04 01 99 A6 35 29 22 11 50 52 49 4E 54 20 4F 55 |....5)".PRINT OU|
000001F0: 54 20 45 52 52 4F 52 53 20 46 4F 55 4E 44 20 28 |T ERRORS FOUND (|
00000200: 59 2F 4E 29 3F 22 00 1A 0A 0E 01 A1 59 24 3A 8B |Y/N)?"......Y$:.|
00000210: 59 24 B3 B1 22 22 A7 32 37 30 00 32 0A 18 01 50 |Y$.."".270.2...P|
00000220: 46 B2 30 3A A1 59 24 3A 8B 59 24 B2 22 22 A7 32 |F.0:.Y$:.Y$."".2|
00000230: 38 30 00 43 0A 22 01 8B 59 24 B2 22 59 22 A7 50 |80.C."..Y$."Y".P|
00000240: 46 B2 31 00 74 0A 2C 01 99 22 11 11 20 49 4E 53 |F.1.t.,..".. INS|
00000250: 45 52 54 20 44 49 53 4B 20 54 4F 20 43 48 45 43 |ERT DISK TO CHEC|
00000260: 4B 20 54 48 45 4E 20 50 52 45 53 53 20 52 45 54 |K THEN PRESS RET|
00000270: 55 52 4E 22 00 A6 0A 36 01 99 20 A6 32 29 22 28 |URN"...6.. .2)"(|
00000280: 46 4C 41 53 48 49 4E 47 20 96 52 45 44 99 20 44 |FLASHING .RED. D|
00000290: 52 49 56 45 20 4C 49 47 48 54 20 49 53 20 4E 4F |RIVE LIGHT IS NO|
000002A0: 52 4D 41 4C 29 22 00 BD 0A 40 01 A1 41 24 3A 8B |RMAL)"...@..A$:.|
000002B0: 41 24 B3 B1 C7 28 31 33 29 A7 33 32 30 00 D6 0A |A$...(13).320...|
000002C0: 4A 01 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |J..15,8,15:.15,"|
000002D0: 49 22 3A A0 31 35 00 FA 0A 54 01 8F 20 44 45 46 |I":.15...T.. DEF|
000002E0: 49 4E 45 20 23 20 4F 46 20 53 45 43 54 4F 52 53 |INE # OF SECTORS|
000002F0: 20 4F 4E 20 54 52 41 43 4B 53 00 25 0B 5E 01 81 | ON TRACKS.%.^..|
00000300: 4A B2 31 A4 31 37 3A 54 52 28 4A 29 B2 32 30 3A |J.1.17:TR(J).20:|
00000310: 82 3A 81 4A B2 31 38 A4 32 33 3A 54 52 28 4A 29 |.:.J.18.23:TR(J)|
00000320: B2 31 38 3A 82 00 51 0B 68 01 81 4A B2 32 34 A4 |.18:..Q.h..J.24.|
00000330: 33 30 3A 54 52 28 4A 29 B2 31 37 3A 82 3A 81 4A |30:TR(J).17:.:.J|
00000340: B2 33 31 A4 34 30 3A 54 52 28 4A 29 B2 31 36 3A |.31.40:TR(J).16:|
00000350: 82 00 75 0B 72 01 81 54 B2 46 54 A4 4C 54 3A 99 |..u.r..T.FT.LT:.|
00000360: 22 93 05 22 3B 3A 99 A6 31 35 29 22 54 52 41 43 |"..";:..15)"TRAC|
00000370: 4B 20 22 3B 54 00 A1 0B 7C 01 99 22 99 11 20 20 |K ";T...|..".. |
00000380: 20 53 45 43 54 4F 52 20 20 20 20 45 52 52 4F 52 | SECTOR ERROR|
00000390: 20 20 20 20 20 45 58 50 4C 41 4E 41 54 49 4F 4E | EXPLANATION|
000003A0: 22 00 B0 0B 86 01 81 53 B2 30 A4 54 52 28 54 29 |"......S.0.TR(T)|
000003B0: 00 D1 0B 90 01 99 22 99 53 45 43 54 4F 52 20 23 |......".SECTOR #|
000003C0: 20 22 3B 53 3B 3A 8B 53 B3 31 30 A7 99 22 20 22 | ";S;:.S.10.." "|
000003D0: 3B 00 DE 0B 9A 01 9F 31 35 2C 38 2C 31 35 00 00 |;......15,8,15..|
000003E0: 0C A4 01 98 31 35 2C 22 4D 2D 57 22 C7 28 36 29 |....15,"M-W".(6)|
000003F0: C7 28 30 29 C7 28 32 29 C7 28 54 29 C7 28 53 29 |.(0).(2).(T).(S)|
00000400: 00 20 0C AE 01 98 31 35 2C 22 4D 2D 57 22 C7 28 |. ....15,"M-W".(|
00000410: 30 29 C7 28 30 29 C7 28 31 29 C7 28 31 32 38 29 |0).(0).(1).(128)|
00000420: 00 36 0C B8 01 98 31 35 2C 22 4D 2D 52 22 C7 28 |.6....15,"M-R".(|
00000430: 30 29 C7 28 30 29 00 59 0C C2 01 A1 23 31 35 2C |0).(0).Y....#15,|
00000440: 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A |A$:A..(A$..(0)):|
00000450: 8B 41 B1 39 39 A7 34 34 30 00 75 0C CC 01 8B 41 |.A.99.440.u....A|
00000460: B2 31 A7 99 22 20 4E 4F 20 45 52 52 4F 52 53 22 |.1.." NO ERRORS"|
00000470: 3A 89 35 35 30 00 96 0C D6 01 8B 41 B2 32 A7 42 |:.550......A.2.B|
00000480: 24 B2 22 9E 42 4C 4F 43 4B 20 48 45 41 44 45 52 |$.".BLOCK HEADER|
00000490: 20 47 4F 4E 45 22 00 B9 0C E0 01 8B 41 B2 33 A7 | GONE"......A.3.|
000004A0: 42 24 B2 22 9F 53 59 4E 43 20 43 48 41 52 41 43 |B$.".SYNC CHARAC|
000004B0: 54 45 52 20 47 4F 4E 45 22 00 DC 0C EA 01 8B 41 |TER GONE"......A|
000004C0: B2 34 A7 42 24 B2 22 9A 48 45 41 44 45 52 20 43 |.4.B$.".HEADER C|
000004D0: 48 45 43 4B 53 55 4D 20 42 41 44 22 00 FD 0C F4 |HECKSUM BAD"....|
000004E0: 01 8B 41 B2 35 A7 42 24 B2 22 9C 52 45 41 44 20 |..A.5.B$.".READ |
000004F0: 43 48 45 43 4B 53 55 4D 20 42 41 44 22 00 1E 0D |CHECKSUM BAD"...|
00000500: FE 01 8B 41 B2 36 A7 42 24 B2 22 1F 42 49 54 20 |...A.6.B$.".BIT |
00000510: 50 41 54 54 45 52 4E 20 45 52 52 4F 52 22 00 41 |PATTERN ERROR".A|
00000520: 0D 08 02 8B 41 B2 39 A7 42 24 B2 22 05 48 45 41 |....A.9.B$.".HEA|
00000530: 44 45 52 20 43 48 45 43 4B 53 55 4D 20 42 41 44 |DER CHECKSUM BAD|
00000540: 22 00 64 0D 12 02 8B 41 B2 31 31 A7 42 24 B2 22 |".d....A.11.B$."|
00000550: 81 46 4F 52 4D 41 54 20 49 44 20 4D 49 53 4D 41 |.FORMAT ID MISMA|
00000560: 54 43 48 22 00 79 0D 1C 02 99 22 20 22 3B 41 AA |TCH".y...." ";A.|
00000570: 31 38 3B 22 20 22 3B 42 24 00 81 0D 26 02 A0 31 |18;" ";B$...&..1|
00000580: 35 00 93 0D 30 02 8B 50 46 B2 30 B0 41 B2 31 A7 |5...0..PF.0.A.1.|
00000590: 35 39 30 00 CD 0D 3A 02 9F 34 2C 34 3A 9D 34 3A |590...:..4,4:.4:|
000005A0: 98 34 2C 22 54 52 41 43 4B 20 22 3B 54 3B 22 20 |.4,"TRACK ";T;" |
000005B0: 20 20 53 45 43 54 4F 52 22 3B 53 3B 22 20 20 45 | SECTOR";S;" E|
000005C0: 52 52 4F 52 20 23 22 3B 41 AA 31 38 3B 00 E1 0D |RROR #";A.18;...|
000005D0: 44 02 98 34 2C 22 20 20 20 20 22 3B 42 24 3A A0 |D..4," ";B$:.|
000005E0: 34 00 E9 0D 4E 02 82 3A 82 00 0E 0E 58 02 99 A6 |4...N..:....X...|
000005F0: 38 29 22 05 50 52 45 53 53 20 52 45 54 55 52 4E |8)".PRESS RETURN|
00000600: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 99 22 00 25 | TO CONTINUE.".%|
00000610: 0E 62 02 A1 59 24 3A 8B 59 24 B3 B1 C7 28 31 33 |.b..Y$:.Y$...(13|
00000620: 29 A7 36 31 30 00 2E 0E 6C 02 89 31 33 30 00 00 |).610...l..130..|
00000630: 00 |. |
..$.D.. GEORGE TREPAL COPYRIGHT 1985.:.N
.. 2650 ALTURAS RD.S.X.. BARTOW, FL 33
830.Z....:.53281,0:.53280,0:.TR(40):."..
.".......11)".DISK ERROR CHECKER".......
8)"..NO KNOCK -- TRACKS 1-40"... ...12)"
..BY GEORGE TREPAL"......"...CHECK <A>LL
TRACKS OR <S>ELECTED TRACKS".*....Y$:.Y
$.."A".Y$.."S".180.F....Y$."A".FT.1:LT.4
0:.260.V.H.FT..1:LT.50..R..".. F
IRST TRACK TO CHECK";FT......FT.1.FT.40.
210......". LAST TRACK TO CHECK";
LT.N....LT.1.LT.40.230......LT.FT.210...
....5)".PRINT OUT ERRORS FOUND (Y/N)?"..
....Y$:.Y$.."".270.2...PF.0:.Y$:.Y$."".2
80.C."..Y$."Y".PF.1.T.,..".. INSERT DISK
TO CHECK THEN PRESS RETURN"...6.. .2)"(
FLASHING .RED. DRIVE LIGHT IS NORMAL)"..
.@..A$:.A$..G(13).320.V.J..15,8,15:.15,"
I": 15...T.. DEFINE # OF SECTORS ON TRAC
KS.%.^..J.1.17:TR(J).20:.:.J.18.23:TR(J)
.18:..Q.H..J.24.30:TR(J).17:.:.J.31.40:T
R(J).16:..U.R..T.FT.LT:."..";:..15)"TRAC
K ";T...|..".. SECTOR ERROR EXP
LANATION"......S.0.TR(T).Q....".SECTOR #
";S;:.S.10.." ";......15,8,15......15,"
M-W"G(6)G(0)G(2)G(T)G(S). ....15,"M-W"G(
0)G(0)G(1)G(128).6....15,"M-R"G(0)G(0).Y
.B..#15,A$:A.F(A$.G(0)):.A.99.440.U.L..A
.1.." NO ERRORS":.550...V..A.2.B$.".BLOC
K HEADER GONE"......A.3.B$.".SYNC CHARAC
TER GONE"......A.4.B$.".HEADER CHECKSUM
BAD"......A.5.B$.".READ CHECKSUM BAD"...
...A.6.B$.".BIT PATTERN ERROR".A....A.9.
B$.".HEADER CHECKSUM BAD".D....A.11.B$."
.FORMAT ID MISMATCH".Y...." ";A.18;" ";B
$...&. 15...0..PF.0.A.1.590.M.:..4,4:.4:
.4,"TRACK ";T;" SECTOR";S;" ERROR #";
A.18;...D..4," ";B$: 4...N..:....X...
8)".PRESS RETURN TO CONTINUE.".%.B..Y$:.
Y$..G(13).610...L..130...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL