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 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4A |**************.J|
00000A20: 1A 98 03 99 22 11 4E 45 58 54 20 54 52 41 43 4B |....".NEXT TRACK|
00000A30: 20 41 4E 44 20 53 45 43 54 4F 52 22 4E 42 28 31 | AND SECTOR"NB(1|
00000A40: 29 4E 42 28 32 29 20 22 11 22 00 73 1A A2 03 99 |)NB(2) ".".s....|
00000A50: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 4E 45 58 |"DO YOU WANT NEX|
00000A60: 54 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |T TRACK AND SECT|
00000A70: 4F 52 22 00 89 1A AC 03 A1 20 5A 24 3A 8B 20 5A |OR"...... Z$:. Z|
00000A80: 24 B2 22 22 20 A7 39 34 30 00 AD 1A B6 03 8B 20 |$."" .940...... |
00000A90: 5A 24 B2 22 59 22 20 A7 20 54 B2 4E 42 28 31 29 |Z$."Y" . T.NB(1)|
00000AA0: 3A 53 B2 4E 42 28 32 29 3A 89 34 37 30 00 C0 1A |:S.NB(2):.470...|
00000AB0: C0 03 8B 20 5A 24 B2 22 4E 22 20 A7 20 34 36 30 |... Z$."N" . 460|
00000AC0: 00 CA 1A CA 03 89 20 39 34 30 00 EE 1A D4 03 8F |...... 940......|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 12 |**************..|
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 B5 1D BA 04 8F 2A 20 44 49 53 4B 20 42 59 |*......* DISK BY|
00000DA0: 54 45 20 54 4F 20 41 53 43 20 44 49 53 50 4C 41 |TE TO ASC DISPLA|
00000DB0: 59 20 20 20 2A 00 D9 1D C4 04 8F 2A 20 43 48 41 |Y *......* CHA|
00000DC0: 52 41 43 54 45 52 20 20 20 20 20 20 20 20 20 20 |RACTER |
00000DD0: 20 20 20 20 20 20 20 20 2A 00 FD 1D CE 04 8F 2A | *......*|
00000DE0: 2A 2A 2A 2A 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 *......
******************************.J....".NE
XT TRACK AND SECTOR"NB(1)NB(2) ".".S....
"DO YOU WANT NEXT TRACK AND SECTOR".....
. Z$:. Z$."" .940...... Z$."Y" . T.NB(1)
:S.NB(2):.470...... Z$."N" . 460.J.J.. 9
40...T..******************************..
....* 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$:....
...******************************......*
DISK BYTE TO ASC DISPLAY *.Y.D..* CHA
RACTER *...N..*********
*********************...X.. F(C$).32 . C
$." ":..7.... F(C$).128 . F(C$).159 . ..
W...C$.J(SS$,3.(F(C$).127),3):....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL