DISPLAY A CHAIN
FILE INFORMATION
FILENAME(S): DISPLAY A CHAIN
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:23:31
APPEARS ON: 1 disk(s)
FILE HASH
f109fe386ae3c9a9c656f78df0a7110b9a252a68bccd1cc556ede99985d4093c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 43 1 | DISPLAY A CHAIN | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 64 00 8F 20 44 49 53 50 4C 41 59 20 |....d.. DISPLAY |
00000010: 41 20 43 48 41 49 4E 20 2D 20 31 35 34 31 00 24 |A CHAIN - 1541.$|
00000020: 08 6E 00 9C 00 43 08 78 00 99 22 93 44 49 53 50 |.n...C.x..".DISP|
00000030: 4C 41 59 20 41 20 43 48 41 49 4E 20 2D 20 31 35 |LAY A CHAIN - 15|
00000040: 34 31 22 00 64 08 82 00 99 22 11 49 4E 53 45 52 |41".d....".INSER|
00000050: 54 20 44 49 53 4B 45 54 54 45 20 49 4E 20 44 52 |T DISKETTE IN DR|
00000060: 49 56 45 22 00 85 08 8C 00 85 22 11 54 52 41 43 |IVE"......".TRAC|
00000070: 4B 20 26 20 53 45 43 54 4F 52 20 28 54 2C 53 29 |K & SECTOR (T,S)|
00000080: 22 3B 54 2C 53 00 95 08 96 00 8B 54 B3 31 B0 54 |";T,S......T.1.T|
00000090: B1 33 35 A7 80 00 B6 08 A0 00 4E 53 B2 32 30 AA |.35.......NS.20.|
000000A0: 32 AC 28 54 B1 31 37 29 AA 28 54 B1 32 34 29 AA |2.(T.17).(T.24).|
000000B0: 28 54 B1 33 30 29 00 C6 08 AA 00 8B 53 B3 30 B0 |(T.30)......S.0.|
000000C0: 53 B1 4E 53 A7 80 00 F9 08 B4 00 85 22 11 4F 55 |S.NS........".OU|
000000D0: 54 50 55 54 20 54 4F 20 53 43 52 45 45 4E 20 4F |TPUT TO SCREEN O|
000000E0: 52 20 50 52 49 4E 54 45 52 20 28 53 2F 50 29 20 |R PRINTER (S/P) |
000000F0: 20 53 9D 9D 9D 22 3B 4F 24 00 10 09 BE 00 8B 4F | S...";O$......O|
00000100: 24 B3 B1 22 53 22 AF 4F 24 B3 B1 22 50 22 A7 80 |$.."S".O$.."P"..|
00000110: 00 2E 09 C8 00 85 22 11 41 52 45 20 59 4F 55 20 |......".ARE YOU |
00000120: 53 55 52 45 20 20 59 9D 9D 9D 22 3B 51 24 00 3D |SURE Y...";Q$.=|
00000130: 09 D2 00 8B 51 24 B3 B1 22 59 22 A7 80 00 4A 09 |....Q$.."Y"...J.|
00000140: DC 00 9F 31 35 2C 38 2C 31 35 00 57 09 E6 00 98 |...15,8,15.W....|
00000150: 31 35 2C 22 49 30 22 00 6F 09 F0 00 84 31 35 2C |15,"I0".o....15,|
00000160: 45 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 |EN$,EM$,ET$,ES$.|
00000170: 81 09 FA 00 8B 45 4E 24 B2 22 30 30 22 89 32 39 |.....EN$."00".29|
00000180: 30 00 A0 09 04 01 99 22 11 22 45 4E 24 22 2C 20 |0......"."EN$", |
00000190: 22 45 4D 24 22 2C 22 45 54 24 22 2C 22 45 53 24 |"EM$","ET$","ES$|
000001A0: 00 A8 09 0E 01 A0 31 35 00 AE 09 18 01 80 00 BE |......15........|
000001B0: 09 22 01 8B 4F 24 B2 22 53 22 89 33 39 30 00 D9 |."..O$."S".390..|
000001C0: 09 2C 01 99 22 11 12 50 52 49 4E 54 49 4E 47 92 |.,.."..PRINTING.|
000001D0: 20 41 20 43 48 41 49 4E 22 00 E2 09 36 01 9F 34 | A CHAIN"...6..4|
000001E0: 2C 34 00 ED 09 40 01 81 49 B2 31 A4 36 00 F4 09 |,4...@..I.1.6...|
000001F0: 4A 01 98 34 00 FB 09 54 01 82 49 00 20 0A 5E 01 |J..4...T..I. .^.|
00000200: 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 20 |.4," |
00000210: 44 49 53 50 4C 41 59 20 41 20 43 48 41 49 4E 22 |DISPLAY A CHAIN"|
00000220: 00 49 0A 68 01 98 34 2C 22 20 20 20 20 20 20 20 |.I.h..4," |
00000230: 20 20 42 4C 4F 43 4B 20 20 20 54 52 41 43 4B 20 | BLOCK TRACK |
00000240: 2D 20 53 45 43 54 4F 52 22 00 50 0A 72 01 98 34 |- SECTOR".P.r..4|
00000250: 00 59 0A 7C 01 89 34 32 30 00 8C 0A 86 01 99 22 |.Y.|..420......"|
00000260: 93 12 20 20 20 20 20 20 20 20 20 20 20 20 44 49 |.. DI|
00000270: 53 50 4C 41 59 20 41 20 43 48 41 49 4E 20 20 20 |SPLAY A CHAIN |
00000280: 20 20 20 20 20 20 20 20 20 20 92 22 00 BB 0A 90 | ."....|
00000290: 01 99 22 13 11 12 20 20 20 20 20 20 20 20 20 42 |.."... B|
000002A0: 4C 4F 43 4B 20 20 20 54 52 41 43 4B 20 2D 20 53 |LOCK TRACK - S|
000002B0: 45 43 54 4F 52 20 20 20 20 20 92 00 C6 0A 9A 01 |ECTOR ......|
000002C0: 99 22 13 11 11 22 00 D0 0A A4 01 42 B2 42 AA 31 |."...".....B.B.1|
000002D0: 00 DA 0A AE 01 8D 31 30 33 30 00 E5 0A B8 01 8F |......1030......|
000002E0: 20 53 45 45 4B 00 F1 0A C2 01 4A 4F 42 B2 31 37 | SEEK.....JOB.17|
000002F0: 36 00 FA 0A CC 01 8D 39 31 30 00 08 0B D6 01 8B |6......910......|
00000300: 45 B3 B1 31 89 35 32 30 00 13 0B E0 01 8F 20 52 |E..1.520...... R|
00000310: 45 41 44 00 1F 0B EA 01 4A 4F 42 B2 31 32 38 00 |EAD.....JOB.128.|
00000320: 28 0B F4 01 8D 39 31 30 00 35 0B FE 01 8B 45 B2 |(....910.5....E.|
00000330: 31 89 36 33 30 00 59 0B 08 02 8B 45 B1 31 AF 45 |1.630.Y....E.1.E|
00000340: B3 31 32 A7 45 4E 24 B2 C9 28 C4 28 45 AA 31 38 |.12.EN$..(.(E.18|
00000350: 29 2C 32 29 3A 89 35 34 30 00 7A 0B 12 02 45 4E |),2):.540.z...EN|
00000360: 24 B2 22 30 32 22 3A 45 4D 24 B2 22 3F 54 49 4D |$."02":EM$."?TIM|
00000370: 45 4F 55 54 22 3A 89 35 35 30 00 8F 0B 1C 02 45 |EOUT":.550.....E|
00000380: 4D 24 B2 22 52 45 41 44 20 45 52 52 4F 52 22 00 |M$."READ ERROR".|
00000390: 9A 0B 26 02 45 54 24 B2 54 24 00 A5 0B 30 02 45 |..&.ET$.T$...0.E|
000003A0: 53 24 B2 53 24 00 DB 0B 3A 02 8B 4F 24 B2 22 50 |S$.S$...:..O$."P|
000003B0: 22 A7 98 34 2C 22 20 20 20 20 20 20 20 20 20 22 |"..4," "|
000003C0: 45 4E 24 22 2C 20 22 45 4D 24 2C 22 45 54 24 22 |EN$", "EM$,"ET$"|
000003D0: 2C 22 45 53 24 3A 47 CF 35 39 30 00 01 0C 44 02 |,"ES$:G.590...D.|
000003E0: 99 22 20 20 20 20 20 20 20 20 20 22 45 4E 24 2C |." "EN$,|
000003F0: 20 22 45 4D 24 22 2C 22 45 54 24 22 2C 22 45 53 | "EM$","ET$","ES|
00000400: 24 00 12 0C 4E 02 8B 45 B2 34 B0 45 B2 35 89 36 |$...N..E.4.E.5.6|
00000410: 33 30 00 22 0C 58 02 8B 4F 24 B2 22 50 22 89 38 |30.".X..O$."P".8|
00000420: 31 30 00 2C 0C 62 02 8D 31 30 39 30 00 35 0C 6C |10.,.b..1090.5.l|
00000430: 02 89 38 32 30 00 4E 0C 76 02 42 24 B2 C9 28 C4 |..820.N.v.B$..(.|
00000440: 28 42 29 2C C3 28 C4 28 42 29 29 AB 31 29 00 62 |(B),.(.(B)).1).b|
00000450: 0C 80 02 8B 42 B3 31 30 A7 42 24 B2 22 20 22 AA |....B.10.B$." ".|
00000460: 42 24 00 77 0C 8A 02 8B 42 B3 31 30 30 A7 42 24 |B$.w....B.100.B$|
00000470: B2 22 20 22 AA 42 24 00 AC 0C 94 02 8B 4F 24 B2 |." ".B$......O$.|
00000480: 22 50 22 A7 98 34 2C 22 20 20 20 20 20 20 20 20 |"P"..4," |
00000490: 20 20 22 42 24 22 20 20 20 20 20 20 20 22 54 24 | "B$" "T$|
000004A0: 22 20 2D 20 22 53 24 3A 89 36 38 30 00 D2 0C 9E |" - "S$:.680....|
000004B0: 02 99 22 20 20 20 20 20 20 20 20 20 20 22 42 24 |.." "B$|
000004C0: 22 20 20 20 20 20 20 20 22 54 24 22 20 2D 20 22 |" "T$" - "|
000004D0: 53 24 00 EC 0C A8 02 98 31 35 2C 22 4D 2D 52 22 |S$......15,"M-R"|
000004E0: C7 28 30 29 C7 28 34 29 C7 28 32 29 00 F8 0C B2 |.(0).(4).(2)....|
000004F0: 02 A1 23 31 35 2C 54 24 00 09 0D BC 02 54 B2 C6 |..#15,T$.....T..|
00000500: 28 54 24 AA C7 28 30 29 29 00 16 0D C6 02 8B 54 |(T$..(0))......T|
00000510: B2 30 89 37 36 30 00 22 0D D0 02 A1 23 31 35 2C |.0.760."....#15,|
00000520: 53 24 00 33 0D DA 02 53 B2 C6 28 53 24 AA C7 28 |S$.3...S..(S$..(|
00000530: 30 29 29 00 5D 0D E4 02 8B 54 B1 33 35 B0 53 B1 |0)).]....T.35.S.|
00000540: 32 30 AA 32 AC 28 54 B1 31 37 29 AA 28 54 B1 32 |20.2.(T.17).(T.2|
00000550: 34 29 AA 28 54 B1 33 30 29 89 38 35 30 00 7B 0D |4).(T.30).850.{.|
00000560: EE 02 8B 4F 24 B2 22 53 22 AF 42 AD 31 36 B3 B1 |...O$."S".B.16..|
00000570: B5 28 42 AD 31 36 29 89 34 32 30 00 8B 0D F8 02 |.(B.16).420.....|
00000580: 8B 4F 24 B2 22 50 22 89 37 38 30 00 95 0D 02 03 |.O$."P".780.....|
00000590: 8D 31 30 39 30 00 A2 0D 0C 03 8B 54 B2 30 89 38 |.1090......T.0.8|
000005A0: 31 30 00 B2 0D 16 03 8B 4F 24 B2 22 53 22 89 33 |10......O$."S".3|
000005B0: 39 30 00 BB 0D 20 03 89 34 32 30 00 CA 0D 2A 03 |90... ..420...*.|
000005C0: 8B 4F 24 B2 22 50 22 A7 A0 34 00 D2 0D 34 03 A0 |.O$."P"..4...4..|
000005D0: 31 35 00 DB 0D 3E 03 89 31 31 30 00 F9 0D 48 03 |15...>..110...H.|
000005E0: 8F 20 49 4C 4C 45 47 41 4C 20 54 52 41 43 4B 20 |. ILLEGAL TRACK |
000005F0: 4F 52 20 53 45 43 54 4F 52 00 03 0E 52 03 8D 31 |OR SECTOR...R..1|
00000600: 30 33 30 00 46 0E 5C 03 8B 4F 24 B2 22 50 22 A7 |030.F.\..O$."P".|
00000610: 98 34 2C 22 20 20 20 20 20 20 20 20 20 36 36 2C |.4," 66,|
00000620: 20 49 4C 4C 45 47 41 4C 20 54 52 41 43 4B 20 4F | ILLEGAL TRACK O|
00000630: 52 20 53 45 43 54 4F 52 2C 22 54 24 22 2C 22 53 |R SECTOR,"T$","S|
00000640: 24 3A 89 38 31 30 00 72 0E 66 03 99 22 11 36 36 |$:.810.r.f..".66|
00000650: 2C 20 49 4C 4C 45 47 41 4C 20 54 52 41 43 4B 20 |, ILLEGAL TRACK |
00000660: 4F 52 20 53 45 43 54 4F 52 2C 22 54 24 22 2C 22 |OR SECTOR,"T$","|
00000670: 53 24 00 7C 0E 70 03 8D 31 30 39 30 00 85 0E 7A |S$.|.p..1090...z|
00000680: 03 89 38 32 30 00 95 0E 84 03 8F 20 4A 4F 42 20 |..820...... JOB |
00000690: 51 55 45 55 45 00 9F 0E 8E 03 54 52 59 B2 30 00 |QUEUE.....TRY.0.|
000006A0: C1 0E 98 03 98 31 35 2C 22 4D 2D 57 22 C7 28 38 |.....15,"M-W".(8|
000006B0: 29 C7 28 30 29 C7 28 32 29 C7 28 54 29 C7 28 53 |).(0).(2).(T).(S|
000006C0: 29 00 E1 0E A2 03 98 31 35 2C 22 4D 2D 52 22 C7 |)......15,"M-R".|
000006D0: 28 31 29 C7 28 30 29 C7 28 31 29 C7 28 4A 4F 42 |(1).(0).(1).(JOB|
000006E0: 29 00 EF 0E AC 03 54 52 59 B2 54 52 59 AA 31 00 |).....TRY.TRY.1.|
000006F0: 05 0F B6 03 98 31 35 2C 22 4D 2D 52 22 C7 28 31 |.....15,"M-R".(1|
00000700: 29 C7 28 30 29 00 11 0F C0 03 A1 23 31 35 2C 45 |).(0)......#15,E|
00000710: 24 00 24 0F CA 03 8B 45 24 B2 22 22 A7 45 24 B2 |$.$....E$."".E$.|
00000720: C7 28 30 29 00 30 0F D4 03 45 B2 C6 28 45 24 29 |.(0).0...E..(E$)|
00000730: 00 42 0F DE 03 8B 54 52 59 B2 35 30 30 89 31 30 |.B....TRY.500.10|
00000740: 31 30 00 51 0F E8 03 8B 45 B1 31 32 37 89 39 34 |10.Q....E.127.94|
00000750: 30 00 57 0F F2 03 8E 00 67 0F FC 03 8F 20 53 54 |0.W.....g.... ST|
00000760: 52 24 28 54 2C 53 29 00 80 0F 06 04 54 24 B2 C9 |R$(T,S).....T$..|
00000770: 28 C4 28 54 29 2C C3 28 C4 28 54 29 29 AB 31 29 |(.(T),.(.(T)).1)|
00000780: 00 94 0F 10 04 8B 54 B3 31 30 A7 54 24 B2 22 30 |......T.10.T$."0|
00000790: 22 AA 54 24 00 AD 0F 1A 04 53 24 B2 C9 28 C4 28 |".T$.....S$..(.(|
000007A0: 53 29 2C C3 28 C4 28 53 29 29 AB 31 29 00 C1 0F |S),.(.(S)).1)...|
000007B0: 24 04 8B 53 B3 31 30 A7 53 24 B2 22 30 22 AA 53 |$..S.10.S$."0".S|
000007C0: 24 00 C7 0F 2E 04 8E 00 D3 0F 38 04 8F 20 44 45 |$.........8.. DE|
000007D0: 4C 41 59 00 F6 0F 42 04 99 22 11 50 52 45 53 53 |LAY...B..".PRESS|
000007E0: 20 12 52 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E | .RETURN. TO CON|
000007F0: 54 49 4E 55 45 22 00 0A 10 4C 04 A1 43 24 3A 8B |TINUE"...L..C$:.|
00000800: 43 24 B2 22 22 A7 31 31 30 30 00 1E 10 56 04 8B |C$."".1100...V..|
00000810: 43 24 B3 B1 C7 28 31 33 29 89 31 31 30 30 00 24 |C$...(13).1100.$|
00000820: 10 60 04 8E 00 00 00 F7 |.`...... |
....D.. DISPLAY A CHAIN - 1541.$.N...C.X
..".DISPLAY A CHAIN - 1541".D....".INSER
T DISKETTE IN DRIVE"......".TRACK & SECT
OR (T,S)";T,S......T.1.T.35..... .NS.20.
2.(T.17).(T.24).(T.30).F....S.0.S.NS....
....".OUTPUT TO SCREEN OR PRINTER (S/P)
S...";O$......O$.."S".O$.."P".....H..".
ARE YOU SURE Y...";Q$.=.R..Q$.."Y"...J.
...15,8,15.W....15,"I0".O....15,EN$,EM$,
ET$,ES$......EN$."00".290. ...."."EN$",
"EM$","ET$","ES$..... 15........."..O$."
S".390.Y.,.."..PRINTING. A CHAIN"...6..4
,4...@..I.1.6...J..4...T..I. .^..4,"
DISPLAY A CHAIN".I.H..4,"
BLOCK TRACK - SECTOR".P.R..4.Y.|..42
0......".. DISPLAY A CHAIN
."......"... BLOCK T
RACK - SECTOR ..F...."...".P...B.B.1
.Z....1030...... SEEK...B.JOB.176...L..9
10...V..E..1.520...... READ.....JOB.128.
(....910.5....E.1.630.Y....E.1.E.12.EN$.
I(D(E.18),2):.540.Z...EN$."02":EM$."?TIM
EOUT":.550.....EM$."READ ERROR"...&.ET$.
T$...0.ES$.S$...:..O$."P"..4," "
EN$", "EM$,"ET$","ES$:GO590...D.."
"EN$, "EM$","ET$","ES$...N..E.4.E.5.6
30.".X..O$."P".810.,.B..1090.5.L..820.N.
V.B$.I(D(B),C(D(B)).1).B....B.10.B$." ".
B$.W....B.100.B$." ".B$......O$."P"..4,"
"B$" "T$" - "S$:.680.R..
.." "B$" "T$" - "S$......
15,"M-R"G(0)G(4)G(2)......#15,T$.....T.F
(T$.G(0))...F..T.0.760.".P..#15,S$.3.Z.S
.F(S$.G(0)).]....T.35.S.20.2.(T.17).(T.2
4).(T.30).850.{....O$."S".B.16...(B.16).
420......O$."P".780......1090......T.0.8
10......O$."S".390... ..420.J.*..O$."P".
4.R.4. 15...>..110...H.. ILLEGAL TRACK
OR SECTOR...R..1030.F.\..O$."P"..4,"
66, ILLEGAL TRACK OR SECTOR,"T$","S
$:.810.R.F..".66, ILLEGAL TRACK OR SECTO
R,"T$","S$.|.P..1090...Z..820...... JOB
QUEUE.....TRY.0.A....15,"M-W"G(8)G(0)G(2
)G(T)G(S)......15,"M-R"G(1)G(0)G(1)G(JOB
).....TRY.TRY.1......15,"M-R"G(1)G(0)...
...#15,E$.$.J..E$."".E$.G(0).0.T.E.F(E$)
.B....TRY.500.1010.Q....E.127.940.W.....
G.... STR$(T,S).....T$.I(D(T),C(D(T)).1)
......T.10.T$."0".T$.....S$.I(D(S),C(D(S
)).1).A.$..S.10.S$."0".S$.G.....S.8.. DE
LAY...B..".PRESS .RETURN. TO CONTINUE"..
.L..C$:.C$."".1100...V..C$..G(13).1100.$
.`......
> CLICK IMAGE PREVIEW FOR FULL MODAL