> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 97 35 33 32 38 30 2C 31 35 3A |.......53280,15:|
00000010: 97 35 33 32 38 31 2C 31 35 00 61 08 0F 00 99 22 |.53281,15.a...."|
00000020: 93 90 20 20 20 20 20 20 20 20 20 20 20 20 20 49 |.. I|
00000030: 44 20 43 4F 44 45 20 52 45 41 44 45 52 20 20 20 |D CODE READER |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 11 42 59 3A | .BY:|
00000060: 22 00 83 08 12 00 99 22 20 20 20 20 20 20 20 20 |"......" |
00000070: 20 20 20 20 20 20 11 12 4A 4F 48 4E 20 44 49 41 | ..JOHN DIA|
00000080: 4E 41 22 00 8F 08 14 00 99 22 11 11 90 12 22 00 |NA"......"....".|
00000090: BD 08 16 00 99 22 11 54 48 49 53 20 50 52 4F 47 |.....".THIS PROG|
000000A0: 52 41 4D 20 57 48 45 4E 20 52 55 4E 20 57 49 4C |RAM WHEN RUN WIL|
000000B0: 4C 20 47 45 54 20 54 48 45 20 49 44 22 00 E9 08 |L GET THE ID"...|
000000C0: 17 00 99 22 43 4F 44 45 20 4F 46 20 41 20 53 50 |..."CODE OF A SP|
000000D0: 45 43 49 46 49 45 44 20 54 52 41 43 4B 20 41 4E |ECIFIED TRACK AN|
000000E0: 44 20 53 45 43 54 4F 52 22 00 0B 09 18 00 99 22 |D SECTOR"......"|
000000F0: 41 4E 44 20 50 52 49 4E 54 20 49 54 20 54 4F 20 |AND PRINT IT TO |
00000100: 54 48 45 20 53 43 52 45 45 4E 22 00 36 09 1E 00 |THE SCREEN".6...|
00000110: 99 22 11 11 20 20 20 20 20 20 20 20 20 20 50 55 |.".. PU|
00000120: 53 48 20 12 20 27 43 27 20 92 54 4F 20 43 4F 4E |SH . 'C' .TO CON|
00000130: 54 49 4E 55 45 22 00 4C 09 20 00 A1 55 53 24 3A |TINUE".L. ..US$:|
00000140: 8B 55 53 24 B3 B1 22 43 22 A7 33 32 00 62 09 28 |.US$.."C".32.b.(|
00000150: 00 97 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 |..53280,2:.53281|
00000160: 2C 32 00 78 09 2A 00 99 22 93 1E 22 3A 85 22 54 |,2.x.*.."..":."T|
00000170: 52 41 43 4B 11 22 3B 54 00 88 09 2C 00 85 22 53 |RACK.";T...,.."S|
00000180: 45 43 54 4F 52 22 3B 53 00 BA 09 3C 00 97 35 33 |ECTOR";S...<..53|
00000190: 32 38 30 2C 31 32 3A 97 35 33 32 38 31 2C 31 32 |280,12:.53281,12|
000001A0: 3A 99 22 93 90 4D 41 53 54 45 52 20 49 44 20 43 |:."..MASTER ID C|
000001B0: 4F 44 45 20 49 53 3A 20 22 3B 00 C7 09 64 00 9F |ODE IS: ";...d..|
000001C0: 31 35 2C 38 2C 31 35 00 D6 09 96 00 9F 35 2C 38 |15,8,15......5,8|
000001D0: 2C 35 2C 22 23 22 00 EB 09 C8 00 98 31 35 2C 22 |,5,"#"......15,"|
000001E0: 55 31 3A 22 35 3B 30 3B 54 3B 53 00 02 0A 90 01 |U1:"5;0;T;S.....|
000001F0: 98 31 35 2C 22 4D 2D 52 22 C7 28 31 38 29 C7 28 |.15,"M-R".(18).(|
00000200: 30 29 00 13 0A 9F 01 A1 23 31 35 2C 41 24 3A 99 |0)......#15,A$:.|
00000210: 41 24 3B 00 2A 0A A4 01 98 31 35 2C 22 4D 2D 52 |A$;.*....15,"M-R|
00000220: 22 C7 28 31 39 29 C7 28 30 29 00 3B 0A A9 01 A1 |".(19).(0).;....|
00000230: 23 31 35 2C 42 24 3A 99 42 24 2C 00 52 0A F4 01 |#15,B$:.B$,.R...|
00000240: 98 31 35 2C 22 4D 2D 52 22 C7 28 32 32 29 C7 28 |.15,"M-R".(22).(|
00000250: 30 29 00 5E 0A 03 02 A1 23 31 35 2C 43 24 00 75 |0).^....#15,C$.u|
00000260: 0A 0D 02 98 31 35 2C 22 4D 2D 52 22 C7 28 32 33 |....15,"M-R".(23|
00000270: 29 C7 28 30 29 00 81 0A 12 02 A1 23 31 35 2C 44 |).(0)......#15,D|
00000280: 24 00 BE 0A 26 02 99 3A 99 22 11 11 49 44 20 43 |$...&..:."..ID C|
00000290: 4F 44 45 20 4F 46 20 54 52 41 43 4B 20 12 22 3B |ODE OF TRACK .";|
000002A0: 54 3B 22 92 20 53 45 43 54 4F 52 20 12 22 3B 53 |T;". SECTOR .";S|
000002B0: 3B 22 92 20 49 53 20 22 3B 43 24 3B 44 24 00 C9 |;". IS ";C$;D$..|
000002C0: 0A 52 03 A0 35 3A A0 31 35 00 DA 0A E8 03 81 58 |.R..5:.15......X|
000002D0: B2 31 20 A4 20 35 30 30 3A 82 00 13 0B ED 03 99 |.1 . 500:.......|
000002E0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000002F0: 11 11 22 3B A3 31 32 29 3B 22 4D 4F 52 45 3F 28 |..";.12);"MORE?(|
00000300: 59 20 4F 52 20 4E 29 22 3A 81 58 B2 31 A4 35 30 |Y OR N)":.X.1.50|
00000310: 30 3A 82 00 57 0B F2 03 A1 41 4E 24 3A 99 22 13 |0:..W....AN$:.".|
00000320: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000330: 22 3B A3 31 32 29 3B 22 20 20 20 20 20 20 20 20 |";.12);" |
00000340: 20 20 20 20 20 20 20 20 20 22 3A 8B 41 4E 24 B2 | ":.AN$.|
00000350: 22 22 A7 31 30 30 30 00 67 0B FC 03 8B 41 4E 24 |"".1000.g....AN$|
00000360: B2 22 59 22 A7 34 30 00 6D 0B D0 07 80 00 00 00 |."Y".40.m.......|
.......53280,15:.53281,15.A...."..
ID CODE READER
.BY:"......" ..
JOHN DIANA"......"...."......".THIS PROG
RAM WHEN RUN WILL GET THE ID"......"CODE
OF A SPECIFIED TRACK AND SECTOR"......"
AND PRINT IT TO THE SCREEN".6...."..
PUSH . 'C' .TO CONTINUE".L. ..US$:
.US$.."C".32.B.(..53280,2:.53281,2.X.*..
"..":."TRACK.";T...,.."SECTOR";S...<..53
280,12:.53281,12:."..MASTER ID CODE IS:
";.G.D..15,8,15.V....5,8,5,"#"...H..15,"
U1:"5;0;T;S......15,"M-R"G(18)G(0)......
#15,A$:.A$;.*....15,"M-R"G(19)G(0).;....
#15,B$:.B$,.R....15,"M-R"G(22)G(0).^....
#15,C$.U....15,"M-R"G(23)G(0)......#15,D
$...&..:."..ID CODE OF TRACK .";T;". SEC
TOR .";S;". IS ";C$;D$.I.R. 5: 15.Z....X
.1 . 500:.......".................";.12)
;"MORE?(Y OR N)":.X.1.500:..W....AN$:.".
................";.12);"
":.AN$."".1000.G....AN$."Y".40.M.P.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL