> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 0A 00 8F 20 2A 49 4E 53 49 44 45 20 |..).... *INSIDE |
00000010: 43 4F 4D 4D 4F 44 4F 52 45 20 44 4F 53 2A 20 20 |COMMODORE DOS* |
00000020: 2A 50 47 2E 20 34 37 33 2A 00 3F 08 14 00 8F 20 |*PG. 473*.?.... |
00000030: 2A 4A 4A 4D 2A 20 20 2A 30 34 31 33 38 37 2A 00 |*JJM* *041387*.|
00000040: 68 08 64 00 8F 20 49 4E 54 45 52 52 4F 47 41 54 |h.d.. INTERROGAT|
00000050: 45 20 46 4F 52 4D 41 54 54 49 4E 47 20 49 44 27 |E FORMATTING ID'|
00000060: 53 20 2D 20 31 35 34 31 00 73 08 6E 00 86 54 28 |S - 1541.s.n..T(|
00000070: 33 35 29 00 80 08 78 00 81 20 49 B2 31 A4 33 35 |35)...x.. I.1.35|
00000080: 00 8B 08 82 00 54 28 49 29 B2 31 00 92 08 8C 00 |.....T(I).1.....|
00000090: 82 49 00 BD 08 96 00 99 22 93 49 4E 54 45 52 52 |.I......".INTERR|
000000A0: 4F 47 41 54 45 20 46 4F 52 4D 41 54 54 49 4E 47 |OGATE FORMATTING|
000000B0: 20 49 44 27 53 20 2D 20 31 35 34 31 22 00 DC 08 | ID'S - 1541"...|
000000C0: A0 00 99 22 11 49 4E 53 45 52 54 20 4D 41 53 54 |...".INSERT MAST|
000000D0: 45 52 20 49 4E 20 44 52 49 56 45 22 00 FF 08 AA |ER IN DRIVE"....|
000000E0: 00 99 22 11 50 52 45 53 53 20 12 52 45 54 55 52 |..".PRESS .RETUR|
000000F0: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |N. TO CONTINUE".|
00000100: 12 09 B4 00 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 |.....C$:.C$."".1|
00000110: 38 30 00 25 09 BE 00 8B 43 24 B3 B1 C7 28 31 33 |80.%....C$...(13|
00000120: 29 89 31 38 30 00 32 09 C8 00 9F 31 35 2C 38 2C |).180.2....15,8,|
00000130: 31 35 00 3B 09 D2 00 99 22 93 22 00 46 09 DC 00 |15.;....".".F...|
00000140: 8F 20 53 45 45 4B 00 52 09 E6 00 81 54 B2 31 A4 |. SEEK.R....T.1.|
00000150: 33 35 00 62 09 F0 00 8B 54 28 54 29 B2 30 89 34 |35.b....T(T).0.4|
00000160: 34 30 00 6B 09 FA 00 8D 35 35 30 00 79 09 04 01 |40.k....550.y...|
00000170: 8B 45 B3 B1 31 89 34 31 30 00 90 09 0E 01 98 31 |.E..1.410......1|
00000180: 35 2C 22 4D 2D 52 22 C7 28 32 32 29 C7 28 30 29 |5,"M-R".(22).(0)|
00000190: 00 9C 09 18 01 A1 23 31 35 2C 49 24 00 AF 09 22 |......#15,I$..."|
000001A0: 01 8B 49 24 B2 22 22 A7 49 24 B2 C7 28 30 29 00 |..I$."".I$..(0).|
000001B0: BB 09 2C 01 49 B2 C6 28 49 24 29 00 D4 09 36 01 |..,.I..(I$)...6.|
000001C0: 49 24 B2 C9 28 C4 28 49 29 2C C3 28 C4 28 49 29 |I$..(.(I),.(.(I)|
000001D0: 29 AB 31 29 00 EB 09 40 01 98 31 35 2C 22 4D 2D |).1)...@..15,"M-|
000001E0: 52 22 C7 28 32 33 29 C7 28 30 29 00 F7 09 4A 01 |R".(23).(0)...J.|
000001F0: A1 23 31 35 2C 44 24 00 0A 0A 54 01 8B 44 24 B2 |.#15,D$...T..D$.|
00000200: 22 22 A7 44 24 B2 C7 28 30 29 00 16 0A 5E 01 44 |"".D$..(0)...^.D|
00000210: B2 C6 28 44 24 29 00 2F 0A 68 01 44 24 B2 C9 28 |..(D$)./.h.D$..(|
00000220: C4 28 44 29 2C C3 28 C4 28 44 29 29 AB 31 29 00 |.(D),.(.(D)).1).|
00000230: 45 0A 72 01 49 24 B2 22 43 48 52 24 28 22 AA 49 |E.r.I$."CHR$(".I|
00000240: 24 AA 22 29 22 00 5B 0A 7C 01 44 24 B2 22 43 48 |$.")".[.|.D$."CH|
00000250: 52 24 28 22 AA 44 24 AA 22 29 22 00 6F 0A 86 01 |R$(".D$.")".o...|
00000260: 49 44 24 B2 49 24 AA 22 20 2B 20 22 AA 44 24 00 |ID$.I$." + ".D$.|
00000270: 78 0A 90 01 89 34 35 30 00 9B 0A 9A 01 8B 45 B2 |x....450......E.|
00000280: 33 A7 49 44 24 B2 22 3F 4E 4F 20 53 59 4E 43 20 |3.ID$."?NO SYNC |
00000290: 4D 41 52 4B 53 22 3A 89 34 35 30 00 CA 0A A4 01 |MARKS":.450.....|
000002A0: 8B 45 B2 32 A7 49 44 24 B2 22 3F 48 45 41 44 45 |.E.2.ID$."?HEADE|
000002B0: 52 20 42 4C 4F 43 4B 53 20 4E 4F 54 20 50 52 45 |R BLOCKS NOT PRE|
000002C0: 53 45 4E 54 22 3A 89 34 35 30 00 F9 0A AE 01 8B |SENT":.450......|
000002D0: 45 B2 39 A7 49 44 24 B2 22 3F 43 48 45 43 4B 53 |E.9.ID$."?CHECKS|
000002E0: 55 4D 20 45 52 52 4F 52 20 49 4E 20 48 45 41 44 |UM ERROR IN HEAD|
000002F0: 45 52 53 22 3A 89 34 35 30 00 0D 0B B8 01 49 44 |ERS":.450.....ID|
00000300: 24 B2 22 3F 54 49 4D 45 20 4F 55 54 22 00 26 0B |$."?TIME OUT".&.|
00000310: C2 01 54 24 B2 C9 28 C4 28 54 29 2C C3 28 C4 28 |..T$..(.(T),.(.(|
00000320: 54 29 29 AB 31 29 00 3A 0B CC 01 8B 54 B3 31 30 |T)).1).:....T.10|
00000330: A7 54 24 B2 22 20 22 AA 54 24 00 52 0B D6 01 99 |.T$." ".T$.R....|
00000340: 22 54 52 41 43 4B 20 22 54 24 22 20 3D 20 22 49 |"TRACK "T$" = "I|
00000350: 44 24 00 5E 0B E0 01 8F 20 50 41 55 53 45 00 71 |D$.^.... PAUSE.q|
00000360: 0B EA 01 A1 43 24 3A 8B 43 24 B2 22 22 89 35 31 |....C$:.C$."".51|
00000370: 30 00 84 0B F4 01 A1 43 24 3A 8B 43 24 B2 22 22 |0......C$:.C$.""|
00000380: A7 35 30 30 00 8B 0B FE 01 82 54 00 93 0B 08 02 |.500......T.....|
00000390: A0 31 35 00 99 0B 12 02 80 00 A9 0B 1C 02 8F 20 |.15............ |
000003A0: 4A 4F 42 20 51 55 45 55 45 00 B3 0B 26 02 54 52 |JOB QUEUE...&.TR|
000003B0: 59 B2 30 00 D5 0B 30 02 98 31 35 2C 22 4D 2D 57 |Y.0...0..15,"M-W|
000003C0: 22 C7 28 38 29 C7 28 30 29 C7 28 32 29 C7 28 54 |".(8).(0).(2).(T|
000003D0: 29 C7 28 30 29 00 F5 0B 3A 02 98 31 35 2C 22 4D |).(0)...:..15,"M|
000003E0: 2D 57 22 C7 28 31 29 C7 28 30 29 C7 28 31 29 C7 |-W".(1).(0).(1).|
000003F0: 28 31 37 36 29 00 03 0C 44 02 54 52 59 B2 54 52 |(176)...D.TRY.TR|
00000400: 59 AA 31 00 19 0C 4E 02 98 31 35 2C 22 4D 2D 52 |Y.1...N..15,"M-R|
00000410: 22 C7 28 31 29 C7 28 30 29 00 25 0C 58 02 A1 23 |".(1).(0).%.X..#|
00000420: 31 35 2C 45 24 00 38 0C 62 02 8B 45 24 B2 22 22 |15,E$.8.b..E$.""|
00000430: A7 45 24 B2 C7 28 30 29 00 44 0C 6C 02 45 B2 C6 |.E$..(0).D.l.E..|
00000440: 28 45 24 29 00 55 0C 76 02 8B 54 52 59 B2 35 30 |(E$).U.v..TRY.50|
00000450: 30 89 36 35 30 00 64 0C 80 02 8B 45 B1 31 32 37 |0.650.d....E.127|
00000460: 89 35 38 30 00 6A 0C 8A 02 8E 00 00 00 |.580.j....... |
..).... *INSIDE COMMODORE DOS* *PG. 473
*.?.... *JJM* *041387*.H.D.. INTERROGAT
E FORMATTING ID'S - 1541.S.N..T(35)...X.
. I.1.35.....T(I).1......I......".INTERR
OGATE FORMATTING ID'S - 1541"... ..".INS
ERT MASTER IN DRIVE"......".PRESS .RETUR
N. TO CONTINUE"......C$:.C$."".180.%....
C$..G(13).180.2.H..15,8,15.;.R..".".F...
. SEEK.R....T.1.35.B....T(T).0.440.K....
550.Y....E..1.410......15,"M-R"G(22)G(0)
......#15,I$..."..I$."".I$.G(0)...,.I.F(
I$).T.6.I$.I(D(I),C(D(I)).1)...@..15,"M-
R"G(23)G(0)...J..#15,D$...T..D$."".D$.G(
0)...^.D.F(D$)./.H.D$.I(D(D),C(D(D)).1).
E.R.I$."CHR$(".I$.")".[.|.D$."CHR$(".D$.
")".O...ID$.I$." + ".D$.X....450......E.
3.ID$."?NO SYNC MARKS":.450.J....E.2.ID$
."?HEADER BLOCKS NOT PRESENT":.450......
E.9.ID$."?CHECKSUM ERROR IN HEADERS":.45
0.....ID$."?TIME OUT".&.B.T$.I(D(T),C(D(
T)).1).:.L..T.10.T$." ".T$.R.V.."TRACK "
T$" = "ID$.^.... PAUSE.Q....C$:.C$."".51
0......C$:.C$."".500......T..... 15.....
....... JOB QUEUE...&.TRY.0.U.0..15,"M-W
"G(8)G(0)G(2)G(T)G(0)...:..15,"M-W"G(1)G
(0)G(1)G(176)...D.TRY.TRY.1...N..15,"M-R
"G(1)G(0).%.X..#15,E$.8.B..E$."".E$.G(0)
.D.L.E.F(E$).U.V..TRY.500.650.D....E.127
.580.J.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL