DISPLAY T&S 1541
FILE INFORMATION
FILENAME(S): DISPLAY T&S 1541
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-12-02 23:21:47
APPEARS ON: 1 disk(s)
FILE HASH
8c5f0018f9718bd94ddfdc94d3a47defa3b46bc55abe5ef1e04a10e4bfda3079
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HILFSPROGRAMME | DISPLAY T&S 1541 | PRG | swasti, dinkel | 21 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 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 08 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 08 78 00 8F 2A | SECTOR *.m.x..*| 00000050: 20 4F 4E 20 54 48 45 20 56 49 43 20 54 4F 20 54 | ON THE VIC TO T| 00000060: 48 45 20 53 43 52 45 45 4E 20 20 20 2A 00 91 08 |HE SCREEN *...| 00000070: 82 00 8F 2A 20 4F 52 20 54 48 45 20 56 49 43 20 |...* OR THE VIC | 00000080: 50 52 49 4E 54 45 52 20 20 20 20 20 20 20 20 20 |PRINTER | 00000090: 2A 00 B5 08 8C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000B0: 2A 2A 2A 2A 2A 00 D7 08 96 00 99 22 93 11 11 D2 |*****......"....| 000000C0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................| 000000D0: D2 D2 D2 D2 D2 22 3B 00 F6 08 A0 00 99 22 44 49 |.....";......"DI| 000000E0: 53 50 4C 41 59 20 42 4C 4F 43 4B 20 43 4F 4E 54 |SPLAY BLOCK CONT| 000000F0: 45 4E 54 53 22 3B 00 15 09 A5 00 99 22 C5 C5 C5 |ENTS";......"...| 00000100: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |................| 00000110: C5 C5 C5 22 3A 00 39 09 AA 00 8F 2A 2A 2A 2A 2A |...":.9....*****| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5D 09 B4 00 8F 2A |*********.]....*| 00000140: 20 53 45 54 20 50 52 4F 47 52 41 4D 20 43 4F 4E | SET PROGRAM CON| 00000150: 53 54 41 4E 54 20 20 20 20 20 20 20 2A 00 81 09 |STANT *...| 00000160: BE 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000180: 2A 00 AD 09 C8 00 53 50 24 B2 22 20 22 3A 4E 4C |*.....SP$." ":NL| 00000190: 24 B2 C7 28 30 29 3A 48 58 24 B2 22 30 31 32 33 |$..(0):HX$."0123| 000001A0: 34 35 36 37 38 39 41 42 43 44 45 46 22 00 DC 09 |456789ABCDEF"...| 000001B0: D2 00 46 53 24 B2 22 22 3A 81 49 B2 36 34 20 A4 |..FS$."":.I.64 .| 000001C0: 20 39 35 3A 46 53 24 B2 46 53 24 AA 22 12 22 AA | 95:FS$.FS$.".".| 000001D0: C7 28 49 29 AA 22 92 22 3A 82 20 49 00 10 0A DC |.(I).".":. I....| 000001E0: 00 53 53 24 B2 22 20 20 22 3A 81 20 49 B2 31 39 |.SS$." ":. I.19| 000001F0: 32 20 A4 20 32 32 33 3A 53 53 24 B2 53 53 24 AA |2 . 223:SS$.SS$.| 00000200: 22 12 22 AA C7 28 49 29 AA 22 92 22 3A 82 20 49 |"."..(I).".":. I| 00000210: 00 23 0A F0 00 86 20 41 24 28 31 35 29 2C 4E 42 |.#.... A$(15),NB| 00000220: 28 32 29 00 2E 0A FB 00 44 24 B2 22 30 22 00 5D |(2).....D$."0".]| 00000230: 0A FD 00 99 22 20 20 20 20 20 20 20 20 12 53 92 |...." .S.| 00000240: 43 52 45 45 4E 11 9D 9D 9D 9D 9D 9D 9D 9D 4F 52 |CREEN.........OR| 00000250: 20 11 9D 12 50 92 52 49 4E 54 45 52 22 00 74 0A | ...P.RINTER".t.| 00000260: FE 00 A1 4A 4A 24 3A 8B 20 4A 4A 24 B2 22 22 20 |...JJ$:. JJ$."" | 00000270: A7 32 35 34 00 99 0A FF 00 8B 20 4A 4A 24 B2 22 |.254...... JJ$."| 00000280: 53 22 A7 99 22 20 20 20 20 20 20 20 20 11 12 1E |S".." ...| 00000290: 53 43 52 45 45 4E 92 1F 22 00 BF 0A 00 01 8B 20 |SCREEN.."...... | 000002A0: 4A 4A 24 B2 22 50 22 A7 99 22 20 20 20 20 20 20 |JJ$."P".." | 000002B0: 20 20 11 12 1E 50 52 49 4E 54 45 52 92 1F 22 00 | ...PRINTER..".| 000002C0: D9 0A 04 01 9F 31 35 2C 38 2C 31 35 2C 22 49 22 |.....15,8,15,"I"| 000002D0: AA 44 24 3A 8D 20 36 35 30 00 E2 0A 09 01 9F 34 |.D$:. 650......4| 000002E0: 2C 34 00 F8 0A 0E 01 9F 20 32 2C 38 2C 32 2C 22 |,4...... 2,8,2,"| 000002F0: 23 22 3A 8D 20 36 35 30 00 1C 0B 18 01 8F 2A 2A |#":. 650......**| 00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 40 0B 22 |************.@."| 00000320: 01 8F 2A 20 4C 4F 41 44 20 54 52 41 43 4B 20 41 |..* LOAD TRACK A| 00000330: 4E 44 20 53 45 43 54 4F 52 20 20 20 20 20 20 2A |ND SECTOR *| 00000340: 00 64 0B 2C 01 8F 2A 20 49 4E 54 4F 20 44 49 53 |.d.,..* INTO DIS| 00000350: 4B 20 42 55 46 46 45 52 20 20 20 20 20 20 20 20 |K BUFFER | 00000360: 20 20 20 2A 00 88 0B 36 01 8F 2A 2A 2A 2A 2A 2A | *...6..******| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000380: 2A 2A 2A 2A 2A 2A 2A 2A 00 A4 0B 40 01 85 22 11 |********...@..".| 00000390: 1D 1D 54 52 41 43 4B 2C 20 53 45 43 54 4F 52 22 |..TRACK, SECTOR"| 000003A0: 3B 54 2C 53 00 D4 0B 4A 01 8B 20 54 B2 30 20 B0 |;T,S...J.. T.0 .| 000003B0: 20 54 B1 33 35 20 A7 20 98 31 35 2C 22 49 22 44 | T.35 . .15,"I"D| 000003C0: 24 3A A0 32 3A A0 34 3A A0 31 35 3A 99 22 45 4E |$:.2:.4:.15:."EN| 000003D0: 44 22 3A 80 00 FE 0B 54 01 8B 20 4A 4A 24 B2 22 |D":....T.. JJ$."| 000003E0: 53 22 20 A7 20 99 22 11 1D 1D 54 52 41 43 4B 22 |S" . ."...TRACK"| 000003F0: 54 22 20 53 45 43 54 4F 52 22 53 22 11 22 00 2A |T" SECTOR"S".".*| 00000400: 0C 55 01 8B 20 4A 4A 24 B2 22 50 22 20 A7 20 98 |.U.. JJ$."P" . .| 00000410: 34 3A 98 34 2C 22 54 52 41 43 4B 22 54 22 20 53 |4:.4,"TRACK"T" S| 00000420: 45 43 54 4F 52 22 53 3A 98 34 00 45 0C 5E 01 98 |ECTOR"S:.4.E.^..| 00000430: 31 35 2C 22 55 31 3A 32 2C 22 44 24 3B 54 3B 53 |15,"U1:2,"D$;T;S| 00000440: 3A 8D 36 35 30 00 69 0C 68 01 8F 2A 2A 2A 2A 2A |:.650.i.h..*****| 00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 0C 72 01 8F 2A |*********...r..*| 00000470: 20 52 45 41 44 20 42 59 54 45 20 30 20 4F 46 20 | READ BYTE 0 OF | 00000480: 44 49 53 4B 20 42 55 46 46 45 52 20 2A 00 B1 0C |DISK BUFFER *...| 00000490: 86 01 8F 2A 2A 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 00 C3 0C 90 01 98 31 35 2C 22 42 2D 50 3A 32 |*......15,"B-P:2| 000004C0: 2C 31 22 00 D9 0C 9A 01 98 31 35 2C 22 4D 2D 52 |,1"......15,"M-R| 000004D0: 22 C7 28 30 29 C7 28 35 29 00 FC 0C A4 01 A1 23 |".(0).(5)......#| 000004E0: 31 35 2C 41 24 28 30 29 3A 8B 41 24 28 30 29 B2 |15,A$(0):.A$(0).| 000004F0: 22 22 A7 41 24 28 30 29 B2 4E 4C 24 00 0E 0D AC |"".A$(0).NL$....| 00000500: 01 8B 20 4A 4A 24 B2 22 53 22 A7 34 33 30 00 20 |.. JJ$."S".430. | 00000510: 0D AE 01 8B 20 4A 4A 24 B2 22 50 22 A7 34 36 30 |.... JJ$."P".460| 00000520: 00 44 0D AF 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.D....**********| 00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000540: 2A 2A 2A 2A 00 68 0D B0 01 8F 2A 20 52 45 41 44 |****.h....* READ| 00000550: 20 26 20 43 52 54 20 44 49 53 50 4C 41 59 20 20 | & CRT DISPLAY | 00000560: 20 20 20 20 20 20 20 2A 00 8C 0D B1 01 8F 2A 20 | *......* | 00000570: 52 45 53 54 20 4F 46 20 54 48 45 20 44 49 53 4B |REST OF THE DISK| 00000580: 20 42 55 46 46 45 52 20 20 20 20 2A 00 B0 0D B2 | BUFFER *....| 00000590: 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005B0: 00 C7 0D B4 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 |.....K.1:NB(1)..| 000005C0: 28 41 24 28 30 29 29 00 FA 0D B6 01 81 20 4A B2 |(A$(0))...... J.| 000005D0: 30 20 A4 20 36 33 3A 8B 20 4A B2 33 32 20 A7 20 |0 . 63:. J.32 . | 000005E0: 8D 20 37 31 30 3A 8B 20 5A 24 B2 22 4E 22 A7 20 |. 710:. Z$."N". | 000005F0: 4A B2 38 30 3A 89 20 34 35 38 00 08 0E B8 01 81 |J.80:. 458......| 00000600: 20 49 B2 4B 20 A4 20 33 00 2D 0E BA 01 A1 23 32 | I.K . 3.-....#2| 00000610: 2C 41 24 28 49 29 3A 8B 20 41 24 28 49 29 B2 22 |,A$(I):. A$(I)."| 00000620: 22 20 A7 20 41 24 28 49 29 B2 4E 4C 24 00 4E 0E |" . A$(I).NL$.N.| 00000630: BC 01 8B 20 4B B2 31 20 AF 20 49 B3 32 20 A7 20 |... K.1 . I.2 . | 00000640: 4E 42 28 32 29 B2 C6 28 41 24 28 49 29 29 00 5A |NB(2)..(A$(I)).Z| 00000650: 0E BE 01 82 20 49 3A 4B B2 30 00 81 0E C0 01 41 |.... I:K.0.....A| 00000660: 24 B2 22 22 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC |$."":B$.":":N.J.| 00000670: 34 3A 8D 20 37 39 30 3A 41 24 B2 41 24 AA 22 3A |4:. 790:A$.A$.":| 00000680: 22 00 A0 0E C2 01 81 20 49 B2 30 20 A4 20 33 3A |"...... I.0 . 3:| 00000690: 4E B2 C6 28 41 24 28 49 29 29 3A 8D 20 37 39 30 |N..(A$(I)):. 790| 000006A0: 00 BC 0E C4 01 43 24 B2 41 24 28 49 29 3A 8D 20 |.....C$.A$(I):. | 000006B0: 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 D6 0E C6 |850:B$.B$.C$....| 000006C0: 01 82 20 49 3A 8B 20 4A 4A 24 B2 22 53 22 20 A7 |.. I:. JJ$."S" .| 000006D0: 20 99 41 24 42 24 00 E3 0E CA 01 82 20 4A 3A 89 | .A$B$...... J:.| 000006E0: 35 37 31 00 07 0F CC 01 8F 2A 2A 2A 2A 2A 2A 2A |571......*******| 000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000700: 2A 2A 2A 2A 2A 2A 2A 00 2B 0F CE 01 8F 2A 20 52 |*******.+....* R| 00000710: 45 41 44 20 26 20 50 52 49 4E 54 45 52 20 44 49 |EAD & PRINTER DI| 00000720: 53 50 4C 41 59 20 20 20 20 20 2A 00 4F 0F D0 01 |SPLAY *.O...| 00000730: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000750: 66 0F D2 01 4B B2 31 3A 4E 42 28 31 29 B2 C6 28 |f...K.1:NB(1)..(| 00000760: 41 24 28 30 29 29 00 75 0F D4 01 81 20 4A B2 30 |A$(0)).u.... J.0| 00000770: 20 A4 20 31 35 00 84 0F D6 01 81 20 49 B2 4B 20 | . 15...... I.K | 00000780: A4 20 31 35 00 A9 0F D8 01 A1 23 32 2C 41 24 28 |. 15......#2,A$(| 00000790: 49 29 3A 8B 20 41 24 28 49 29 B2 22 22 20 A7 20 |I):. A$(I)."" . | 000007A0: 41 24 28 49 29 B2 4E 4C 24 00 CA 0F DA 01 8B 20 |A$(I).NL$...... | 000007B0: 4B B2 31 20 AF 20 49 B3 32 20 A7 20 4E 42 28 32 |K.1 . I.2 . NB(2| 000007C0: 29 B2 C6 28 41 24 28 49 29 29 00 D6 0F DC 01 82 |)..(A$(I))......| 000007D0: 20 49 3A 4B B2 30 00 FE 0F DE 01 41 24 B2 22 22 | I:K.0.....A$.""| 000007E0: 3A 42 24 B2 22 3A 22 3A 4E B2 4A AC 31 36 3A 8D |:B$.":":N.J.16:.| 000007F0: 20 37 39 30 3A 41 24 B2 41 24 AA 22 3A 22 00 33 | 790:A$.A$.":".3| 00000800: 10 E0 01 81 20 49 B2 30 20 A4 20 31 35 3A 4E B2 |.... I.0 . 15:N.| 00000810: C6 28 41 24 28 49 29 29 3A 8D 20 37 39 30 3A 8B |.(A$(I)):. 790:.| 00000820: 20 5A 24 B2 22 4E 22 A7 20 4A B2 34 30 3A 89 20 | Z$."N". J.40:. | 00000830: 35 37 31 00 4F 10 E2 01 43 24 B2 41 24 28 49 29 |571.O...C$.A$(I)| 00000840: 3A 8D 20 38 35 30 3A 42 24 B2 42 24 AA 43 24 00 |:. 850:B$.B$.C$.| 00000850: 57 10 E4 01 82 20 49 00 6F 10 E6 01 8B 20 4A 4A |W.... I.o.... JJ| 00000860: 24 B2 22 50 22 20 A7 20 98 34 2C 41 24 42 24 00 |$."P" . .4,A$B$.| 00000870: 7C 10 E8 01 82 20 4A 3A 89 35 37 31 00 A0 10 3B ||.... J:.571...;| 00000880: 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008A0: 00 C4 10 3C 02 8F 2A 20 4E 45 58 54 20 54 52 41 |...<..* NEXT TRA| 000008B0: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 20 20 |CK AND SECTOR | 000008C0: 20 20 20 2A 00 E8 10 3D 02 8F 2A 2A 2A 2A 2A 2A | *...=..******| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 13 11 3F 02 99 22 4E |********...?.."N| 000008F0: 45 58 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 |EXT TRACK AND SE| 00000900: 43 54 4F 52 22 4E 42 28 31 29 4E 42 28 32 29 20 |CTOR"NB(1)NB(2) | 00000910: 22 11 22 00 3C 11 44 02 99 22 44 4F 20 59 4F 55 |".".<.D.."DO YOU| 00000920: 20 57 41 4E 54 20 4E 45 58 54 20 54 52 41 43 4B | WANT NEXT TRACK| 00000930: 20 41 4E 44 20 53 45 43 54 4F 52 22 00 52 11 4E | AND SECTOR".R.N| 00000940: 02 A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 20 A7 35 |.. Z$:. Z$."" .5| 00000950: 39 30 00 76 11 58 02 8B 20 5A 24 B2 22 59 22 20 |90.v.X.. Z$."Y" | 00000960: A7 20 54 B2 4E 42 28 31 29 3A 53 B2 4E 42 28 32 |. T.NB(1):S.NB(2| 00000970: 29 3A 89 33 33 30 00 89 11 62 02 8B 20 5A 24 B2 |):.330...b.. Z$.| 00000980: 22 4E 22 20 A7 20 33 32 30 00 93 11 6C 02 89 20 |"N" . 320...l.. | 00000990: 35 39 30 00 B7 11 76 02 8F 2A 2A 2A 2A 2A 2A 2A |590...v..*******| 000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009B0: 2A 2A 2A 2A 2A 2A 2A 00 DB 11 80 02 8F 2A 20 53 |*******......* S| 000009C0: 55 42 52 4F 55 54 49 4E 45 53 20 20 20 20 20 20 |UBROUTINES | 000009D0: 20 20 20 20 20 20 20 20 20 20 2A 00 FF 11 8A 02 | *.....| 000009E0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000A00: 23 12 94 02 8F 2A 20 45 52 52 4F 52 20 52 4F 55 |#....* ERROR ROU| 00000A10: 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 20 20 |TINE | 00000A20: 20 20 2A 00 47 12 9E 02 8F 2A 2A 2A 2A 2A 2A 2A | *.G....*******| 00000A30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A40: 2A 2A 2A 2A 2A 2A 2A 00 67 12 A8 02 84 31 35 2C |*******.g....15,| 00000A50: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 20 45 |EN,EM$,ET,ES:. E| 00000A60: 4E B2 30 20 A7 20 8E 00 87 12 B2 02 99 22 12 44 |N.0 . .......".D| 00000A70: 49 53 4B 20 45 52 52 4F 52 92 22 45 4E 2C 45 4D |ISK ERROR."EN,EM| 00000A80: 24 2C 45 54 2C 45 53 00 8D 12 BC 02 80 00 B1 12 |$,ET,ES.........| 00000A90: C6 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************| 00000AA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AB0: 2A 00 D5 12 D0 02 8F 2A 20 53 43 52 45 45 4E 20 |*......* SCREEN | 00000AC0: 43 4F 4E 54 49 4E 55 45 20 4D 53 53 47 20 20 20 |CONTINUE MSSG | 00000AD0: 20 20 20 20 2A 00 F9 12 DA 02 8F 2A 2A 2A 2A 2A | *......*****| 00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 15 13 E4 02 99 22 |*********......"| 00000B00: 11 1D 1D 1D 1D 1E 43 4F 4E 54 49 4E 55 45 28 59 |......CONTINUE(Y| 00000B10: 2F 4E 29 1F 22 00 2B 13 EE 02 A1 5A 24 3A 8B 20 |/N).".+....Z$:. | 00000B20: 5A 24 B2 22 22 20 A7 20 37 35 30 00 3C 13 F8 02 |Z$."" . 750.<...| 00000B30: 8B 20 5A 24 B2 22 4E 22 20 A7 20 8E 00 50 13 02 |. Z$."N" . ..P..| 00000B40: 03 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 37 35 30 |.. Z$.."Y" . 750| 00000B50: 00 71 13 0C 03 99 22 93 54 52 41 43 4B 22 20 54 |.q....".TRACK" T| 00000B60: 20 22 20 53 45 43 54 4F 52 22 53 20 22 93 22 3A | " SECTOR"S ".":| 00000B70: 8E 00 95 13 16 03 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********| 00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B90: 2A 2A 2A 2A 2A 00 B9 13 20 03 8F 2A 20 44 49 53 |*****... ..* DIS| 00000BA0: 4B 20 42 59 54 45 20 54 4F 20 48 45 58 20 50 52 |K BYTE TO HEX PR| 00000BB0: 49 4E 54 20 20 20 20 20 2A 00 DD 13 2A 03 8F 2A |INT *...*..*| 00000BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 14 |*************...| 00000BE0: 34 03 41 31 B2 B5 28 4E AD 31 36 29 3A 41 24 B2 |4.A1..(N.16):A$.| 00000BF0: 41 24 AA CA 28 48 58 24 2C 41 31 AA 31 2C 31 29 |A$..(HX$,A1.1,1)| 00000C00: 00 26 14 3E 03 41 32 B2 B5 28 4E AB 31 36 AC 41 |.&.>.A2..(N.16.A| 00000C10: 31 29 3A 41 24 B2 41 24 AA CA 28 48 58 24 2C 41 |1):A$.A$..(HX$,A| 00000C20: 32 AA 31 2C 31 29 00 36 14 48 03 41 24 B2 41 24 |2.1,1).6.H.A$.A$| 00000C30: AA 53 50 24 3A 8E 00 5A 14 52 03 8F 2A 2A 2A 2A |.SP$:..Z.R..****| 00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7E 14 5C 03 8F |**********.~.\..| 00000C60: 2A 20 44 49 53 4B 20 42 59 54 45 20 54 4F 20 41 |* DISK BYTE TO A| 00000C70: 53 43 20 44 49 53 50 4C 41 59 20 20 20 2A 00 A2 |SC DISPLAY *..| 00000C80: 14 66 03 8F 2A 20 43 48 41 52 41 43 54 45 52 20 |.f..* CHARACTER | 00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000CA0: 20 2A 00 C6 14 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A | *...p..********| 00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CC0: 2A 2A 2A 2A 2A 2A 00 E0 14 7A 03 8B 20 C6 28 43 |******...z.. .(C| 00000CD0: 24 29 B3 33 32 20 A7 20 43 24 B2 22 20 22 3A 8E |$).32 . C$." ":.| 00000CE0: 00 00 15 8E 03 8B 20 C6 28 43 24 29 B3 31 32 38 |...... .(C$).128| 00000CF0: 20 B0 20 C6 28 43 24 29 B1 31 35 39 20 A7 20 8E | . .(C$).159 . .| 00000D00: 00 20 15 98 03 43 24 B2 CA 28 53 53 24 2C 33 AC |. ...C$..(SS$,3.| 00000D10: 28 C6 28 43 24 29 AB 31 32 37 29 2C 33 29 3A 8E |(.(C$).127),3):.| 00000D20: 00 00 00 FF 00 |..... |
..%.D..******************************.I. N..* DISPLAY ANY TRACK $ SECTOR *.M.X..* ON THE VIC TO THE SCREEN *......* OR THE VIC PRINTER *......********* *********************.W...."...RRRRRRRRR RRRRRRRRRRRRR";... .."DISPLAY BLOCK CONT ENTS";......"EEEEEEEEEEEEEEEEEEEEEE":.9. ...******************************.]....* SET PROGRAM CONSTANT *......***** *************************...H.SP$." ":NL $.G(0):HX$."0123456789ABCDEF"...R.FS$."" :.I.64 . 95:FS$.FS$.".".G(I).".":. I.... .SS$." ":. I.192 . 223:SS$.SS$.".".G(I) .".":. I.#.... A$(15),NB(2).....D$."0".] ...." .S.CREEN.........OR ...P.RI NTER".T....JJ$:. JJ$."" .254...... JJ$." S".." ...SCREEN.."...... JJ$."P". ." ...PRINTER..".Y....15,8,15,"I" .D$:. 650......4,4...... 2,8,2,"#":. 650 ......******************************.@." ..* LOAD TRACK AND SECTOR *.D.,..* INTO DISK BUFFER *...6..****** ************************...@.."...TRACK, SECTOR";T,S.T.J.. T.0 . T.35 . .15,"I"D $: 2: 4: 15:."END":....T.. JJ$."S" . .". ..TRACK"T" SECTOR"S".".*.U.. JJ$."P" . . 4:.4,"TRACK"T" SECTOR"S:.4.E.^..15,"U1:2 ,"D$;T;S:.650.I.H..********************* *********...R..* READ BYTE 0 OF DISK BUF FER *......***************************** *.C....15,"B-P:2,1".Y....15,"M-R"G(0)G(5 )......#15,A$(0):.A$(0)."".A$(0).NL$.... .. JJ$."S".430. .... JJ$."P".460.D....** ****************************.H....* READ & CRT DISPLAY *......* REST OF THE DISK BUFFER *......************** ****************.G...K.1:NB(1).F(A$(0)). ..... J.0 . 63:. J.32 . . 710:. Z$."N". J.80:. 458...... I.K . 3.-....#2,A$(I):. A$(I)."" . A$(I).NL$.N.... K.1 . I.2 . NB(2).F(A$(I)).Z.... I:K.0.....A$."":B$. ":":N.J.4:. 790:A$.A$.":". .B.. I.0 . 3: N.F(A$(I)):. 790...D.C$.A$(I):. 850:B$.B $.C$.V.F.. I:. JJ$."S" . .A$B$...J.. J:. 571...L..******************************. +.N..* READ & PRINTER DISPLAY *.O.P. .******************************.F.R.K.1: NB(1).F(A$(0)).U.T.. J.0 . 15...V.. I.K . 15...X..#2,A$(I):. A$(I)."" . A$(I).NL $.J.Z.. K.1 . I.2 . NB(2).F(A$(I)).V.... I:K.0.....A$."":B$.":":N.J.16:. 790:A$. A$.":".3.... I.0 . 15:N.F(A$(I)):. 790:. Z$."N". J.40:. 571.O...C$.A$(I):. 850:B $.B$.C$.W.... I.O.... JJ$."P" . .4,A$B$. |.... J:.571. .;..********************** ********.D.<..* NEXT TRACK AND SECTOR *...=..****************************** ...?.."NEXT TRACK AND SECTOR"NB(1)NB(2) ".".<.D.."DO YOU WANT NEXT TRACK AND SEC TOR".R.N.. Z$:. Z$."" .590.V.X.. Z$."Y" . T.NB(1):S.NB(2):.330...B.. Z$."N" . 32 0...L.. 590...V..*********************** *******......* SUBROUTINES *......******************************. #....* ERROR ROUTINE *.G... .******************************.G....15, EN,EM$,ET,ES:. EN.0 . .......".DISK ERRO R."EN,EM$,ET,ES.........F..************* *****************.U.P..* SCREEN CONTINUE MSSG *...Z..********************* *********......"......CONTINUE(Y/N).".+. ...Z$:. Z$."" . 750.<.... Z$."N" . ..P.. .. Z$.."Y" . 750.Q....".TRACK" T " SECTO R"S ".":.......************************* *****... ..* DISK BYTE TO HEX PRINT *...*..******************************... 4.A1..(N.16):A$.A$.J(HX$,A1.1,1).&.>.A2. .(N.16.A1):A$.A$.J(HX$,A2.1,1).6.H.A$.A$ .SP$:..Z.R..**************************** **.~.\..* DISK BYTE TO ASC DISPLAY *.. .F..* CHARACTER *.F.P.. ******************************...Z.. F(C $).32 . C$." ":....... F(C$).128 . F(C$) .159 . .. ...C$.J(SS$,3.(F(C$).127),3):. .....
> CLICK IMAGE PREVIEW FOR FULL MODAL