> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 99 22 93 11 20 20 20 20 20 20 |..%....".. |
00000010: 20 20 20 20 45 52 52 4F 52 20 32 39 20 43 52 45 | ERROR 29 CRE|
00000020: 41 54 4F 52 22 00 54 08 14 00 99 22 11 11 20 20 |ATOR".T....".. |
00000030: 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 57 49 | THIS ROUTINE WI|
00000040: 4C 4C 20 46 4F 52 4D 41 54 20 4F 4E 45 20 54 52 |LL FORMAT ONE TR|
00000050: 41 43 4B 22 00 83 08 19 00 99 22 20 4F 46 20 54 |ACK"......" OF T|
00000060: 48 45 20 44 49 53 4B 20 57 49 54 48 20 54 48 45 |HE DISK WITH THE|
00000070: 20 4E 45 57 20 27 49 44 27 2E 59 4F 55 20 4D 55 | NEW 'ID'.YOU MU|
00000080: 53 54 22 00 BF 08 1E 00 99 22 20 55 53 45 20 41 |ST"......" USE A|
00000090: 20 44 49 46 46 45 52 45 4E 54 20 27 49 44 27 20 | DIFFERENT 'ID' |
000000A0: 4F 4E 20 54 48 45 20 54 52 41 43 4B 20 54 4F 20 |ON THE TRACK TO |
000000B0: 42 45 20 46 4F 52 4D 41 54 54 45 44 2E 22 3B 00 |BE FORMATTED.";.|
000000C0: 0B 09 23 00 99 22 20 57 48 45 4E 20 54 48 45 20 |..#.." WHEN THE |
000000D0: 50 52 4F 47 52 41 4D 20 52 55 4E 53 20 20 54 48 |PROGRAM RUNS TH|
000000E0: 45 20 20 20 27 49 44 27 20 4F 46 20 45 41 43 48 |E 'ID' OF EACH|
000000F0: 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F | TRACK AND SECTO|
00000100: 52 20 49 53 20 52 45 41 44 22 3B 00 54 09 25 00 |R IS READ";.T.%.|
00000110: 99 22 20 20 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 |." INTO MEMORY|
00000120: 20 41 4E 44 20 43 4F 4D 50 41 52 45 44 20 57 49 | AND COMPARED WI|
00000130: 54 48 20 54 48 45 20 27 49 44 27 20 20 4F 46 20 |TH THE 'ID' OF |
00000140: 54 52 41 43 4B 20 31 38 2C 53 45 43 54 4F 52 20 |TRACK 18,SECTOR |
00000150: 30 2E 22 3B 00 9C 09 28 00 99 22 20 49 46 20 54 |0.";...(.." IF T|
00000160: 48 45 59 20 4D 41 54 43 48 20 20 20 20 20 45 56 |HEY MATCH EV|
00000170: 45 52 59 54 48 49 4E 47 20 49 53 20 4F 4B 2E 20 |ERYTHING IS OK. |
00000180: 49 46 20 4E 4F 54 2C 20 54 48 45 52 45 20 49 53 |IF NOT, THERE IS|
00000190: 20 41 4E 20 20 20 27 49 44 27 22 3B 00 C6 09 2A | AN 'ID'";...*|
000001A0: 00 99 22 20 4D 49 53 4D 41 54 43 48 2C 20 45 52 |.." MISMATCH, ER|
000001B0: 52 4F 52 20 23 32 39 20 49 53 20 54 48 45 20 52 |ROR #29 IS THE R|
000001C0: 45 53 55 4C 54 2E 00 12 0A 2C 00 99 22 11 11 20 |ESULT....,..".. |
000001D0: 41 4E 53 57 45 52 20 54 48 45 20 50 52 4F 4D 50 |ANSWER THE PROMP|
000001E0: 54 53 20 57 49 54 48 20 54 48 45 20 27 54 52 41 |TS WITH THE 'TRA|
000001F0: 43 4B 20 23 27 3B 20 20 27 41 53 43 49 49 20 43 |CK #'; 'ASCII C|
00000200: 4F 44 45 20 46 4F 52 20 43 48 41 52 20 31 27 3B |ODE FOR CHAR 1';|
00000210: 22 3B 00 3B 0A 2E 00 99 22 20 41 4E 44 20 54 48 |";.;...." AND TH|
00000220: 45 20 27 41 53 43 49 49 20 43 4F 44 45 20 46 4F |E 'ASCII CODE FO|
00000230: 52 20 43 48 41 52 20 32 27 2E 22 00 66 0A 30 00 |R CHAR 2'.".f.0.|
00000240: 99 22 11 20 41 52 45 20 59 4F 55 20 52 45 41 44 |.". ARE YOU READ|
00000250: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 28 59 |Y TO CONTINUE (Y|
00000260: 2F 4E 29 20 3F 22 00 7E 0A 32 00 85 20 58 24 3A |/N) ?".~.2.. X$:|
00000270: 8B 58 24 20 B3 B1 22 59 22 20 A7 20 35 30 00 90 |.X$ .."Y" . 50..|
00000280: 0A 64 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |.d..15,8,15,"I0"|
00000290: 00 A1 0A 6E 00 85 22 54 52 41 43 4B 20 23 22 3B |...n.."TRACK #";|
000002A0: 54 00 BC 0A 78 00 85 20 22 41 53 43 49 49 20 46 |T...x.. "ASCII F|
000002B0: 4F 52 20 43 48 41 52 20 31 22 3B 49 00 D7 0A 82 |OR CHAR 1";I....|
000002C0: 00 85 20 22 41 53 43 49 49 20 46 4F 52 20 43 48 |.. "ASCII FOR CH|
000002D0: 41 52 20 32 22 3B 44 00 E9 0A 8C 00 49 44 24 B2 |AR 2";D.....ID$.|
000002E0: C7 28 49 29 AA C7 28 44 29 00 0C 0B 96 00 9F 35 |.(I)..(D)......5|
000002F0: 2C 38 2C 35 2C 22 23 22 3A 98 31 35 2C 22 55 31 |,8,5,"#":.15,"U1|
00000300: 22 3B 35 3B 30 3B 54 3B 30 3A A0 35 00 38 0B A0 |";5;0;T;0:.5.8..|
00000310: 00 98 31 35 2C 22 4D 2D 57 22 3B C7 28 30 29 C7 |..15,"M-W";.(0).|
00000320: 28 36 29 C7 28 33 29 C7 28 37 36 29 C7 28 31 39 |(6).(3).(76).(19|
00000330: 39 29 C7 28 32 35 30 29 00 57 0B AA 00 98 31 35 |9).(250).W....15|
00000340: 2C 22 4D 2D 57 22 3B C7 28 38 31 29 C7 28 30 C7 |,"M-W";.(81).(0.|
00000350: 28 31 29 C7 28 54 29 00 76 0B B4 00 98 31 35 2C |(1).(T).v....15,|
00000360: 22 4D 2D 57 22 3B C7 28 31 38 29 C7 28 30 29 C7 |"M-W";.(18).(0).|
00000370: 28 32 29 49 44 24 00 97 0B BE 00 98 31 35 2C 22 |(2)ID$......15,"|
00000380: 4D 2D 57 22 3B C7 28 33 29 C7 28 30 29 C7 28 31 |M-W";.(3).(0).(1|
00000390: 29 C7 28 32 30 38 29 00 A7 0B C8 00 81 54 B2 30 |).(208)......T.0|
000003A0: A4 33 30 30 30 3A 82 00 BE 0B D2 00 98 31 35 2C |.3000:.......15,|
000003B0: 22 55 3B 22 3A 98 31 35 2C 22 49 30 3A 22 00 C6 |"U;":.15,"I0:"..|
000003C0: 0B DC 00 A0 31 35 00 00 00 |....15... |
..%....".. ERROR 29 CREATOR".T.
...".. THIS ROUTINE WILL FORMAT ONE TR
ACK"......" OF THE DISK WITH THE NEW 'ID
'.YOU MUST"......" USE A DIFFERENT 'ID'
ON THE TRACK TO BE FORMATTED.";...#.." W
HEN THE PROGRAM RUNS THE 'ID' OF EACH
TRACK AND SECTOR IS READ";.T.%.." INT
O MEMORY AND COMPARED WITH THE 'ID' OF
TRACK 18,SECTOR 0.";...(.." IF THEY MATC
H EVERYTHING IS OK. IF NOT, THERE IS
AN 'ID'";.F.*.." MISMATCH, ERROR #29
IS THE RESULT....,..".. ANSWER THE PROMP
TS WITH THE 'TRACK #'; 'ASCII CODE FOR
CHAR 1';";.;...." AND THE 'ASCII CODE FO
R CHAR 2'.".F.0..". ARE YOU READY TO CON
TINUE (Y/N) ?".~.2.. X$:.X$ .."Y" . 50..
.D..15,8,15,"I0"...N.."TRACK #";T...X..
"ASCII FOR CHAR 1";I.W.... "ASCII FOR CH
AR 2";D.....ID$.G(I).G(D)......5,8,5,"#"
:.15,"U1";5;0;T;0: 5.8. ..15,"M-W";G(0)G
(6)G(3)G(76)G(199)G(250).W....15,"M-W";G
(81)G(0G(1)G(T).V....15,"M-W";G(18)G(0)G
(2)ID$......15,"M-W";G(3)G(0)G(1)G(208).
..H..T.0.3000:....R..15,"U;":.15,"I0:".F
... 15...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL