DISPLAY T&S
FILE INFORMATION
FILENAME(S): DISPLAY T&S
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 21:14:54
APPEARS ON: 1 disk(s)
FILE HASH
f639995889915349a6748f1e447b3a3c2bb6e6fd14c5c5281201301a29bc9ecd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DEMO 1 85 | DISPLAY T&S | PRG | DuncanTwain | 16 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 25 10 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..%.d..*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 00 49 10 6E 00 8F 2A 20 44 49 53 |*****.I.n..* DIS| 00000030: 50 4C 41 59 20 41 4E 59 20 54 52 41 43 4B 20 24 |PLAY ANY TRACK $| 00000040: 20 53 45 43 54 4F 52 20 2A 00 6D 10 78 00 8F 2A | SECTOR *.m.x..*| 00000050: 20 20 20 20 54 4F 20 53 43 52 45 45 4E 20 4F 52 | TO SCREEN OR| 00000060: 20 50 52 49 4E 54 45 52 20 20 20 20 2A 00 91 10 | PRINTER *...| 00000070: 82 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |...* | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 2A 00 B5 10 8C 00 8F 2A 20 43 36 34 2C 20 45 58 |*......* C64, EX| 000000A0: 50 41 4E 44 45 44 20 56 49 43 2D 32 30 20 4F 52 |PANDED VIC-20 OR| 000000B0: 20 20 20 20 2A 00 D9 10 96 00 8F 2A 20 50 4C 55 | *......* PLU| 000000C0: 53 2F 34 20 4F 52 20 43 31 36 20 45 51 55 49 50 |S/4 OR C16 EQUIP| 000000D0: 50 45 44 20 20 20 20 20 2A 00 FD 10 A0 00 8F 2A |PED *......*| 000000E0: 20 57 49 54 48 20 41 20 31 35 34 31 20 4F 52 20 | WITH A 1541 OR | 000000F0: 31 35 35 31 20 44 49 53 4B 20 20 20 2A 00 21 11 |1551 DISK *.!.| 00000100: AA 00 8F 2A 20 44 52 49 56 45 2E 20 20 20 20 20 |...* DRIVE. | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 2A 00 45 11 B4 00 8F 2A 20 52 45 56 2E 20 31 30 |*.E....* REV. 10| 00000130: 2F 32 34 2F 38 34 20 20 20 20 20 20 20 20 20 20 |/24/84 | 00000140: 20 20 20 20 2A 00 69 11 BE 00 8F 2A 2A 2A 2A 2A | *.i....*****| 00000150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8B 11 C8 00 99 22 |*********......"| 00000170: 93 11 11 12 20 20 20 20 20 20 20 20 20 20 20 20 |.... | 00000180: 20 20 20 20 20 20 20 20 20 20 22 00 A9 11 D2 00 | ".....| 00000190: 99 22 44 49 53 50 4C 41 59 20 42 4C 4F 43 4B 20 |."DISPLAY BLOCK | 000001A0: 43 4F 4E 54 45 4E 54 53 22 00 C8 11 DC 00 99 22 |CONTENTS"......"| 000001B0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000001C0: 20 20 20 20 20 20 20 22 00 EC 11 E6 00 8F 2A 2A | "......**| 000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 10 12 F0 |************....| 000001F0: 00 8F 2A 20 53 45 54 20 50 52 4F 47 52 41 4D 20 |..* SET PROGRAM | 00000200: 43 4F 4E 53 54 41 4E 54 20 20 20 20 20 20 20 2A |CONSTANT *| 00000210: 00 34 12 FA 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.4....**********| 00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000230: 2A 2A 2A 2A 00 60 12 04 01 53 50 24 B2 22 20 22 |****.`...SP$." "| 00000240: 3A 4E 4C 24 B2 C7 28 30 29 3A 48 58 24 B2 22 30 |:NL$..(0):HX$."0| 00000250: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"| 00000260: 00 8F 12 0E 01 46 53 24 B2 22 22 3A 81 49 B2 36 |.....FS$."":.I.6| 00000270: 34 20 A4 20 39 35 3A 46 53 24 B2 46 53 24 AA 22 |4 . 95:FS$.FS$."| 00000280: 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 49 00 |."..(I).".":. I.| 00000290: C3 12 18 01 53 53 24 B2 22 20 20 22 3A 81 20 49 |....SS$." ":. I| 000002A0: B2 31 39 32 20 A4 20 32 32 33 3A 53 53 24 B2 53 |.192 . 223:SS$.S| 000002B0: 53 24 AA 22 12 22 AA C7 28 49 29 AA 22 92 22 3A |S$."."..(I).".":| 000002C0: 82 20 49 00 D9 12 22 01 8F 20 2A 2A 20 56 49 43 |. I...".. ** VIC| 000002D0: 20 4F 52 20 43 36 34 20 3F 00 F6 12 2C 01 8B C2 | OR C64 ?...,...| 000002E0: 28 35 38 36 33 30 29 B3 B1 34 30 A7 33 32 30 20 |(58630)..40.320 | 000002F0: 3A 8F 20 56 49 43 00 1B 13 36 01 4C 31 B2 36 33 |:. VIC...6.L1.63| 00000300: 3A 4C 32 B2 33 32 3A 4C 33 B2 38 30 3A 4C 34 B2 |:L2.32:L3.80:L4.| 00000310: 33 3A 4C 35 B2 34 3A 89 33 33 30 00 3B 13 40 01 |3:L5.4:.330.;.@.| 00000320: 4C 31 B2 33 31 3A 4C 32 B2 31 36 3A 4C 33 B2 34 |L1.31:L2.16:L3.4| 00000330: 30 3A 4C 34 B2 37 3A 4C 35 B2 38 00 4E 13 4A 01 |0:L4.7:L5.8.N.J.| 00000340: 86 20 41 24 28 31 35 29 2C 4E 42 28 32 29 00 59 |. A$(15),NB(2).Y| 00000350: 13 54 01 44 24 B2 22 30 22 00 8A 13 5E 01 99 22 |.T.D$."0"...^.."| 00000360: 11 11 20 20 20 20 20 20 20 20 12 53 92 43 52 45 |.. .S.CRE| 00000370: 45 4E 11 9D 9D 9D 9D 9D 9D 9D 9D 4F 52 20 11 9D |EN.........OR ..| 00000380: 12 50 92 52 49 4E 54 45 52 22 00 A1 13 68 01 A1 |.P.RINTER"...h..| 00000390: 4A 4A 24 3A 8B 20 4A 4A 24 B2 22 22 20 A7 33 36 |JJ$:. JJ$."" .36| 000003A0: 30 00 C4 13 72 01 8B 20 4A 4A 24 B2 22 53 22 A7 |0...r.. JJ$."S".| 000003B0: 99 22 20 20 20 20 20 20 20 20 11 12 53 43 52 45 |." ..SCRE| 000003C0: 45 4E 92 22 00 E8 13 7C 01 8B 20 4A 4A 24 B2 22 |EN."...|.. JJ$."| 000003D0: 50 22 A7 99 22 20 20 20 20 20 20 20 20 11 12 50 |P".." ..P| 000003E0: 52 49 4E 54 45 52 92 22 00 03 14 86 01 9F 31 35 |RINTER."......15| 000003F0: 2C 38 2C 31 35 2C 22 49 22 AA 44 24 3A 8D 20 31 |,8,15,"I".D$:. 1| 00000400: 30 30 30 00 0C 14 90 01 9F 34 2C 34 00 23 14 9A |000......4,4.#..| 00000410: 01 9F 20 32 2C 38 2C 32 2C 22 23 22 3A 8D 20 31 |.. 2,8,2,"#":. 1| 00000420: 30 30 30 00 47 14 A4 01 8F 2A 2A 2A 2A 2A 2A 2A |000.G....*******| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 00 6B 14 AE 01 8F 2A 20 4C |*******.k....* L| 00000450: 4F 41 44 20 54 52 41 43 4B 20 41 4E 44 20 53 45 |OAD TRACK AND SE| 00000460: 43 54 4F 52 20 20 20 20 20 20 2A 00 8F 14 B8 01 |CTOR *.....| 00000470: 8F 2A 20 49 4E 54 4F 20 44 49 53 4B 20 42 55 46 |.* INTO DISK BUF| 00000480: 46 45 52 20 20 20 20 20 20 20 20 20 20 20 2A 00 |FER *.| 00000490: B3 14 C2 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000004B0: 2A 2A 2A 00 CF 14 CC 01 85 22 11 1D 1D 54 52 41 |***......"...TRA| 000004C0: 43 4B 2C 20 53 45 43 54 4F 52 22 3B 54 2C 53 00 |CK, SECTOR";T,S.| 000004D0: FF 14 D6 01 8B 20 54 B2 30 20 B0 20 54 B1 33 35 |..... T.0 . T.35| 000004E0: 20 A7 20 98 31 35 2C 22 49 22 44 24 3A A0 32 3A | . .15,"I"D$:.2:| 000004F0: A0 34 3A A0 31 35 3A 99 22 45 4E 44 22 3A 80 00 |.4:.15:."END":..| 00000500: 29 15 E0 01 8B 20 4A 4A 24 B2 22 53 22 20 A7 20 |).... JJ$."S" . | 00000510: 99 22 11 1D 1D 54 52 41 43 4B 22 54 22 20 53 45 |."...TRACK"T" SE| 00000520: 43 54 4F 52 22 53 22 11 22 00 55 15 EA 01 8B 20 |CTOR"S".".U.... | 00000530: 4A 4A 24 B2 22 50 22 20 A7 20 98 34 3A 98 34 2C |JJ$."P" . .4:.4,| 00000540: 22 54 52 41 43 4B 22 54 22 20 53 45 43 54 4F 52 |"TRACK"T" SECTOR| 00000550: 22 53 3A 98 34 00 71 15 F4 01 98 31 35 2C 22 55 |"S:.4.q....15,"U| 00000560: 31 3A 32 2C 22 44 24 3B 54 3B 53 3A 8D 31 30 30 |1:2,"D$;T;S:.100| 00000570: 30 00 95 15 FE 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0......*********| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000590: 2A 2A 2A 2A 2A 00 B9 15 08 02 8F 2A 20 52 45 41 |*****......* REA| 000005A0: 44 20 42 59 54 45 20 30 20 4F 46 20 44 49 53 4B |D BYTE 0 OF DISK| 000005B0: 20 42 55 46 46 45 52 20 2A 00 DD 15 12 02 8F 2A | BUFFER *......*| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 15 |*************...| 000005E0: 1C 02 98 31 35 2C 22 42 2D 50 3A 32 2C 31 22 00 |...15,"B-P:2,1".| 000005F0: 05 16 26 02 98 31 35 2C 22 4D 2D 52 22 C7 28 30 |..&..15,"M-R".(0| 00000600: 29 C7 28 37 29 00 28 16 30 02 A1 23 31 35 2C 41 |).(7).(.0..#15,A| 00000610: 24 28 30 29 3A 8B 41 24 28 30 29 B2 22 22 A7 41 |$(0):.A$(0)."".A| 00000620: 24 28 30 29 B2 4E 4C 24 00 3A 16 3A 02 8B 20 4A |$(0).NL$.:.:.. J| 00000630: 4A 24 B2 22 53 22 A7 35 38 30 00 4C 16 44 02 8B |J$."S".580.L.D..| 00000640: 20 4A 4A 24 B2 22 50 22 A7 37 34 30 00 70 16 4E | JJ$."P".740.p.N| 00000650: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000670: 00 94 16 58 02 8F 2A 20 52 45 41 44 20 26 20 43 |...X..* READ & C| 00000680: 52 54 20 44 49 53 50 4C 41 59 20 20 20 20 20 20 |RT DISPLAY | 00000690: 20 20 20 2A 00 B8 16 62 02 8F 2A 20 52 45 53 54 | *...b..* REST| 000006A0: 20 4F 46 20 54 48 45 20 44 49 53 4B 20 42 55 46 | OF THE DISK BUF| 000006B0: 46 45 52 20 20 20 20 2A 00 DC 16 6C 02 8F 2A 2A |FER *...l..**| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F3 16 76 |************...v| 000006E0: 02 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 41 24 28 |.K.1:NB(1)..(A$(| 000006F0: 30 29 29 00 27 17 80 02 81 20 4A B2 30 20 A4 20 |0)).'.... J.0 . | 00000700: 4C 31 3A 8B 20 4A B2 4C 32 20 A7 20 8D 20 31 30 |L1:. J.L2 . . 10| 00000710: 36 30 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 4C |60:. Z$."N". J.L| 00000720: 33 3A 89 20 37 33 30 00 36 17 8A 02 81 20 49 B2 |3:. 730.6.... I.| 00000730: 4B 20 A4 20 4C 34 00 5B 17 94 02 A1 23 32 2C 41 |K . L4.[....#2,A| 00000740: 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 20 |$(I):. A$(I)."" | 00000750: A7 20 41 24 28 49 29 B2 4E 4C 24 00 7C 17 9E 02 |. A$(I).NL$.|...| 00000760: 8B 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E 42 |. K.1 . I.2 . NB| 00000770: 28 32 29 B2 C6 28 41 24 28 49 29 29 00 88 17 A8 |(2)..(A$(I))....| 00000780: 02 82 20 49 3A 4B B2 30 00 B1 17 B2 02 41 24 B2 |.. I:K.0.....A$.| 00000790: 22 22 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 4C 35 |"":B$.":":N.J.L5| 000007A0: 3A 8D 20 31 31 34 30 3A 41 24 B2 41 24 AA 22 3A |:. 1140:A$.A$.":| 000007B0: 22 00 D2 17 BC 02 81 20 49 B2 30 20 A4 20 4C 34 |"...... I.0 . L4| 000007C0: 3A 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 31 31 |:N..(A$(I)):. 11| 000007D0: 34 30 00 EF 17 C6 02 43 24 B2 41 24 28 49 29 3A |40.....C$.A$(I):| 000007E0: 8D 20 31 32 30 30 3A 42 24 B2 42 24 AA 43 24 00 |. 1200:B$.B$.C$.| 000007F0: 09 18 D0 02 82 20 49 3A 8B 20 4A 4A 24 B2 22 53 |..... I:. JJ$."S| 00000800: 22 20 A7 20 99 41 24 42 24 00 16 18 DA 02 82 20 |" . .A$B$...... | 00000810: 4A 3A 89 38 39 30 00 3A 18 E4 02 8F 2A 2A 2A 2A |J:.890.:....****| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5E 18 EE 02 8F |**********.^....| 00000840: 2A 20 52 45 41 44 20 26 20 50 52 49 4E 54 45 52 |* READ & PRINTER| 00000850: 20 44 49 53 50 4C 41 59 20 20 20 20 20 2A 00 82 | DISPLAY *..| 00000860: 18 F8 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000880: 2A 2A 00 99 18 02 03 4B B2 31 3A 4E 42 28 31 29 |**.....K.1:NB(1)| 00000890: B2 C6 28 41 24 28 30 29 29 00 A8 18 0C 03 81 20 |..(A$(0))...... | 000008A0: 4A B2 30 20 A4 20 31 35 00 B7 18 16 03 81 20 49 |J.0 . 15...... I| 000008B0: B2 4B 20 A4 20 31 35 00 DC 18 20 03 A1 23 32 2C |.K . 15... ..#2,| 000008C0: 41 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 |A$(I):. A$(I).""| 000008D0: 20 A7 20 41 24 28 49 29 B2 4E 4C 24 00 FD 18 2A | . A$(I).NL$...*| 000008E0: 03 8B 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E |.. K.1 . I.2 . N| 000008F0: 42 28 32 29 B2 C6 28 41 24 28 49 29 29 00 09 19 |B(2)..(A$(I))...| 00000900: 34 03 82 20 49 3A 4B B2 30 00 32 19 3E 03 41 24 |4.. I:K.0.2.>.A$| 00000910: B2 22 22 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 31 |."":B$.":":N.J.1| 00000920: 36 3A 8D 20 31 31 34 30 3A 41 24 B2 41 24 AA 22 |6:. 1140:A$.A$."| 00000930: 3A 22 00 68 19 48 03 81 20 49 B2 30 20 A4 20 31 |:".h.H.. I.0 . 1| 00000940: 35 3A 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 31 |5:N..(A$(I)):. 1| 00000950: 31 34 30 3A 8B 20 5A 24 B2 22 4E 22 A7 20 4A B2 |140:. Z$."N". J.| 00000960: 34 30 3A 89 20 38 39 30 00 85 19 52 03 43 24 B2 |40:. 890...R.C$.| 00000970: 41 24 28 49 29 3A 8D 20 31 32 30 30 3A 42 24 B2 |A$(I):. 1200:B$.| 00000980: 42 24 AA 43 24 00 8D 19 5C 03 82 20 49 00 A5 19 |B$.C$...\.. I...| 00000990: 66 03 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 98 34 |f.. JJ$."P" . .4| 000009A0: 2C 41 24 42 24 00 B2 19 70 03 82 20 4A 3A 89 38 |,A$B$...p.. J:.8| 000009B0: 39 30 00 D6 19 7A 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |90...z..********| 000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009D0: 2A 2A 2A 2A 2A 2A 00 FA 19 84 03 8F 2A 20 4E 45 |******......* NE| 000009E0: 58 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 |XT TRACK AND SEC| 000009F0: 54 4F 52 20 20 20 20 20 20 2A 00 1E 1A 8E 03 8F |TOR *......| 00000A00: 2A 2A 2A 2A 2E 2E 2E 2E 2E 2E 0E 2E 2E 2E 2E 2E |****............| 00000A10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 00 EE |................| 00000A20: 82 A2 9E 2E EE 67 E8 9E 00 0E 22 13 E3 2B EF B4 |.....g...."..+..| 00000A30: 88 9C B9 9A 88 EB 3B EB B3 F1 EE E3 73 EE 2E AE |......;.....s...| 00000A40: 61 73 EE 2E EE 6E 2E E2 AE E2 2F EA E6 E2 EE 4E |as...n..../....N| 00000A50: E3 33 FE 23 E1 F1 BE 23 DB 2B 73 BE 23 73 3B A1 |.3.#...#.+s.#s;.| 00000A60: BE 23 B3 E3 2B EB 6E 23 2B 73 3E 23 EB 3B EB B3 |.#..+.n#+s>#.;..| 00000A70: F1 EE E2 22 40 E6 30 EE 2E 23 EE 3E E2 4E 23 EE |..."@.0..#.>.N#.| 00000A80: 36 EE EE EE 26 FE EE BE A2 26 70 E6 D2 EA 4E 23 |6...&....&p...N#| 00000A90: EE 36 EE E3 EE EE 26 FE 23 B6 E3 73 EE 2E AE 6E |.6....&.#..s...n| 00000AA0: E3 EE E3 73 EE 2E EE 6E E2 4E BE DE A2 23 02 E3 |...s...n.N...#..| 00000AB0: 02 EA 4E 23 EE 36 EE E3 7E EE 26 FE 2E BE DE A2 |..N#.6..~.&.....| 00000AC0: 23 42 E3 42 EA 4E 2E EE BE A2 27 72 E7 12 EA CE |#B.B.N....'r....| 00000AD0: 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E 6E |nnnnnnnnnnnnnnnn| 00000AE0: 6E 6E 6E 6E 6E 6E 6E 6E 6E 67 2A 2A 2A 2A 00 12 |nnnnnnnnng****..| 00000AF0: 1B DE 03 8F 2A 20 53 55 42 52 4F 55 54 49 4E 45 |....* SUBROUTINE| 00000B00: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 00000B10: 20 2A 00 36 1B E8 03 8F 2A 2A 2A 2A 2A 2A 2A 2A | *.6....********| 00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B30: 2A 2A 2A 2A 2A 2A 00 5A 1B F2 03 8F 2A 20 45 52 |******.Z....* ER| 00000B40: 52 4F 52 20 52 4F 55 54 49 4E 45 20 20 20 20 20 |ROR ROUTINE | 00000B50: 20 20 20 20 20 20 20 20 20 2A 00 7E 1B FC 03 8F | *.~....| 00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E |**************..| 00000B80: 1B 06 04 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 |....15,EN,EM$,ET| 00000B90: 2C 45 53 3A 8B 20 45 4E B2 30 20 A7 20 8E 00 BE |,ES:. EN.0 . ...| 00000BA0: 1B 10 04 99 22 12 44 49 53 4B 20 45 52 52 4F 52 |....".DISK ERROR| 00000BB0: 92 22 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 C4 |."EN,EM$,ET,ES..| 00000BC0: 1B 1A 04 80 00 E8 1B 24 04 8F 2A 2A 2A 2A 2A 2A |.......$..******| 00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 1C 2E 04 8F 2A 20 |********......* | 00000BF0: 53 43 52 45 45 4E 20 43 4F 4E 54 49 4E 55 45 20 |SCREEN CONTINUE | 00000C00: 4D 53 53 47 20 20 20 20 20 20 20 2A 00 30 1C 38 |MSSG *.0.8| 00000C10: 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C30: 00 4A 1C 42 04 99 22 11 1D 1D 1D 1D 43 4F 4E 54 |.J.B..".....CONT| 00000C40: 49 4E 55 45 28 59 2F 4E 29 22 00 61 1C 4C 04 A1 |INUE(Y/N)".a.L..| 00000C50: 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 31 31 30 |Z$:. Z$."" . 110| 00000C60: 30 00 72 1C 56 04 8B 20 5A 24 B2 22 4E 22 20 A7 |0.r.V.. Z$."N" .| 00000C70: 20 8E 00 87 1C 60 04 8B 20 5A 24 B3 B1 22 59 22 | ....`.. Z$.."Y"| 00000C80: 20 A7 20 31 31 30 30 00 A8 1C 6A 04 99 22 93 54 | . 1100...j..".T| 00000C90: 52 41 43 4B 22 20 54 20 22 20 53 45 43 54 4F 52 |RACK" T " SECTOR| 00000CA0: 22 53 20 22 93 22 3A 8E 00 CC 1C 74 04 8F 2A 2A |"S ".":....t..**| 00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F0 1C 7E |************...~| 00000CD0: 04 8F 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F |..* DISK BYTE TO| 00000CE0: 20 48 45 58 20 50 52 49 4E 54 20 20 20 20 20 2A | HEX PRINT *| 00000CF0: 00 14 1D 88 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |......**********| 00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D10: 2A 2A 2A 2A 00 37 1D 92 04 41 31 B2 B5 28 4E AD |****.7...A1..(N.| 00000D20: 31 36 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C |16):A$.A$..(HX$,| 00000D30: 41 31 AA 31 2C 31 29 00 5D 1D 9C 04 41 32 B2 B5 |A1.1,1).]...A2..| 00000D40: 28 4E AB 31 36 AC 41 31 29 3A 41 24 B2 41 24 AA |(N.16.A1):A$.A$.| 00000D50: CA 28 48 58 24 2C 41 32 AA 31 2C 31 29 00 6D 1D |.(HX$,A2.1,1).m.| 00000D60: A6 04 41 24 B2 41 24 AA 53 50 24 3A 8E 00 91 1D |..A$.A$.SP$:....| 00000D70: B0 04 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000D80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D90: 2A 00 B8 1D BA 04 8F 2A 20 44 49 56 D7 EE DE E2 |*......* DIV....| 00000DA0: EE EE EE EE D1 EE E6 EE DE EE EE D2 EE EE EA E6 |................| 00000DB0: E3 EF EF EF EE EF B2 7A AE EE 31 EF EE DE E2 E6 |.......z..1.....| 00000DC0: EE E6 DE EE EE EE EF EF EF EF EF EF EF EF EF EF |................| 00000DD0: EF EF EF EF EF EF EF EF EE EF 1A 7A BE EE 31 EF |...........z..1.| 00000DE0: EF EF EF EF 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************| 00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 17 1E |*************...| 00000E00: D8 04 8B 20 C6 28 43 24 29 B3 33 32 20 A7 20 43 |... .(C$).32 . C| 00000E10: 24 B2 22 20 22 3A 8E 00 37 1E E2 04 8B 20 C6 28 |$." ":..7.... .(| 00000E20: 43 24 29 B3 31 32 38 20 B0 20 C6 28 43 24 29 B1 |C$).128 . .(C$).| 00000E30: 31 35 39 20 A7 20 8E 00 57 1E EC 04 43 24 B2 CA |159 . ..W...C$..| 00000E40: 28 53 53 24 2C 33 AC 28 C6 28 43 24 29 AB 31 32 |(SS$,3.(.(C$).12| 00000E50: 37 29 2C 33 29 3A 8E 00 00 00 |7),3):.... |
..%.D..******************************.I.
N..* DISPLAY ANY TRACK $ SECTOR *.M.X..*
TO SCREEN OR PRINTER *......*
*......* C64, EX
PANDED VIC-20 OR *.Y....* PLUS/4 OR C
16 EQUIPPED *... ..* WITH A 1541 OR
1551 DISK *.!....* DRIVE.
*.E....* REV. 10/24/84
*.I....*****************************
*...H..".... "...R.
."DISPLAY BLOCK CONTENTS".H....".
"......******************
************......* SET PROGRAM CONSTANT
*.4....**************************
****.`...SP$." ":NL$.G(0):HX$."012345678
9ABCDEF".....FS$."":.I.64 . 95:FS$.FS$."
.".G(I).".":. I.C...SS$." ":. I.192 . 2
23:SS$.SS$.".".G(I).".":. I.Y.".. ** VIC
OR C64 ?...,..B(58630)..40.320 :. VIC..
.6.L1.63:L2.32:L3.80:L4.3:L5.4:.330.;.@.
L1.31:L2.16:L3.40:L4.7:L5.8.N.J.. A$(15)
,NB(2).Y.T.D$."0"...^..".. .S.CRE
EN.........OR ...P.RINTER"...H..JJ$:. JJ
$."" .360.D.R.. JJ$."S".." ..SCRE
EN."...|.. JJ$."P".." ..PRINTER."
......15,8,15,"I".D$:. 1000......4,4.#..
.. 2,8,2,"#":. 1000.G....***************
***************.K....* LOAD TRACK AND SE
CTOR *......* INTO DISK BUFFER
*...B..***************************
***.O.L.."...TRACK, SECTOR";T,S...V.. T.
0 . T.35 . .15,"I"D$: 2: 4: 15:."END":..
).... JJ$."S" . ."...TRACK"T" SECTOR"S".
".U.... JJ$."P" . .4:.4,"TRACK"T" SECTOR
"S:.4.Q....15,"U1:2,"D$;T;S:.1000......*
*****************************......* REA
D BYTE 0 OF DISK BUFFER *......*********
*********************......15,"B-P:2,1".
..&..15,"M-R"G(0)G(7).(.0..#15,A$(0):.A$
(0)."".A$(0).NL$.:.:.. JJ$."S".580.L.D..
JJ$."P".740.P.N..**********************
********...X..* READ & CRT DISPLAY
*...B..* REST OF THE DISK BUFFER *
...L..******************************...V
.K.1:NB(1).F(A$(0)).'.... J.0 . L1:. J.L
2 . . 1060:. Z$."N". J.L3:. 730.6.... I.
K . L4.[....#2,A$(I):. A$(I)."" . A$(I).
NL$.|.... K.1 . I.2 . NB(2).F(A$(I))....
.. I:K.0.....A$."":B$.":":N.J.L5:. 1140:
A$.A$.":".R.... I.0 . L4:N.F(A$(I)):. 11
40...F.C$.A$(I):. 1200:B$.B$.C$...P.. I:
. JJ$."S" . .A$B$...Z.. J:.890.:....****
**************************.^....* READ &
PRINTER DISPLAY *......************
******************.....K.1:NB(1).F(A$(0)
)...... J.0 . 15...... I.K . 15... ..#2,
A$(I):. A$(I)."" . A$(I).NL$...*.. K.1 .
I.2 . NB(2).F(A$(I))...4.. I:K.0.2.>.A$
."":B$.":":N.J.16:. 1140:A$.A$.":".H.H..
I.0 . 15:N.F(A$(I)):. 1140:. Z$."N". J.
40:. 890...R.C$.A$(I):. 1200:B$.B$.C$...
\.. I...F.. JJ$."P" . .4,A$B$...P.. J:.8
90.V.Z..******************************..
....* NEXT TRACK AND SECTOR *......
****.................................G..
.."..+........;.....S...AS...N..../....N
.3.#...#.+S.#S;..#..+.N#+S>#.;....."@.0.
.#.>.N#.6...&....&P.R.N#.6....&.#..S...N
...S...N.N...#....N#.6..~.&.....#B.B.N..
..'R...NNNNNNNNNNNNNNNNNNNNNNNNNNG****..
....* SUBROUTINES *.6....
******************************.Z....* ER
ROR ROUTINE *.~....********
**********************......15,EN,EM$,ET
,ES:. EN.0 . .......".DISK ERROR."EN,EM$
,ET,ES.D.......$..**********************
********......* SCREEN CONTINUE MSSG
*.0.8..******************************
.J.B..".....CONTINUE(Y/N)".A.L..Z$:. Z$.
"" . 1100.R.V.. Z$."N" . ....`.. Z$.."Y"
. 1100...J..".TRACK" T " SECTOR"S ".":.
.L.T..******************************...~
..* DISK BYTE TO HEX PRINT *......**
****************************.7...A1..(N.
16):A$.A$.J(HX$,A1.1,1).]...A2..(N.16.A1
):A$.A$.J(HX$,A2.1,1).M...A$.A$.SP$:....
...******************************......*
DIVW.......Q......R...........Z..1.....
...........................Z..1.....****
*********************...X.. F(C$).32 . C
$." ":..7.... F(C$).128 . F(C$).159 . ..
W...C$.J(SS$,3.(F(C$).127),3):....
> CLICK IMAGE PREVIEW FOR FULL MODAL