DI-SECTOR
FILE INFORMATION
FILENAME(S): DI-SECTOR
FILE TYPE(S): PRG
FILE SIZE: 13.3K
FIRST SEEN: 2025-11-30 21:23:55
APPEARS ON: 1 disk(s)
FILE HASH
928fe7907f44b9de5c8f94c229d2b6a29fb9bff1f236be7c8bc156b8ee009ea3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 38 2 | DI-SECTOR | PRG | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 01 00 41 B2 41 AA 31 3A 91 41 89 31 |..J...A.A.1:.A.1|
00000010: 30 30 30 2C 31 30 34 35 2C 31 30 35 30 2C 31 31 |000,1045,1050,11|
00000020: 30 30 3A 8F 20 4A 55 4D 50 20 4F 56 45 52 20 43 |00:. JUMP OVER C|
00000030: 52 45 44 49 54 53 20 54 4F 20 54 48 45 20 52 45 |REDITS TO THE RE|
00000040: 41 4C 20 50 52 4F 47 52 41 4D 00 78 08 02 00 8F |AL PROGRAM.x....|
00000050: 2D 20 20 41 20 48 41 4E 44 59 20 57 41 59 20 54 |- A HANDY WAY T|
00000060: 4F 20 53 41 56 45 20 41 20 50 52 4F 47 52 41 4D |O SAVE A PROGRAM|
00000070: 2C 20 22 52 55 4E 32 22 00 BC 08 03 00 89 31 31 |, "RUN2"......11|
00000080: 30 30 3A 8F 2D 20 53 4B 49 50 20 4F 56 45 52 20 |00:.- SKIP OVER |
00000090: 4D 41 43 48 49 4E 45 20 4C 41 4E 47 2E 20 4C 4F |MACHINE LANG. LO|
000000A0: 41 44 53 20 49 46 20 57 45 20 22 52 55 4E 33 22 |ADS IF WE "RUN3"|
000000B0: 20 28 53 41 56 45 20 54 49 4D 45 29 00 D3 08 04 | (SAVE TIME)....|
000000C0: 00 A0 31 35 3A 9F 31 35 2C 38 2C 31 35 3A A0 31 |..15:.15,8,15:.1|
000000D0: 35 3A 80 00 F7 08 0F 00 3A 28 44 49 52 52 45 43 |5:......:(DIRREC|
000000E0: 54 20 B5 45 52 41 43 54 49 91 20 57 49 54 48 20 |T .ERACTI. WITH |
000000F0: 53 45 43 A4 52 53 29 00 1B 09 E3 03 8F 20 2A 4C |SEC.RS)...... *L|
00000100: 4F 41 44 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 |OAD MACHINE LANG|
00000110: 2E 20 52 4F 55 54 49 4E 45 53 2A 00 2D 09 E8 03 |. ROUTINES*.-...|
00000120: 41 B2 41 AA 31 3A 8D 20 34 30 35 30 30 00 45 09 |A.A.1:. 40500.E.|
00000130: F2 03 97 35 33 32 38 31 2C 43 42 3A 97 35 33 32 |...53281,CB:.532|
00000140: 38 30 2C 43 54 00 72 09 FC 03 99 44 24 28 31 29 |80,CT.r....D$(1)|
00000150: 3B 22 93 53 54 41 52 50 4F 49 4E 54 20 53 4F 46 |;".STARPOINT SOF|
00000160: 54 57 41 52 45 20 50 52 45 53 45 4E 54 53 2E 2E |TWARE PRESENTS..|
00000170: 2E 22 00 9B 09 06 04 99 22 11 11 11 11 11 11 22 |."......"......"|
00000180: 3B A3 31 31 29 3B 22 44 49 2D 53 45 43 54 4F 52 |;.11);"DI-SECTOR|
00000190: 20 56 45 52 2E 20 31 2E 30 47 22 00 DE 09 0B 04 | VER. 1.0G".....|
000001A0: 99 22 11 11 22 3B A3 31 31 29 3B 44 24 28 32 29 |."..";.11);D$(2)|
000001B0: 3B 22 42 59 20 42 52 55 43 45 20 51 2E 20 48 41 |;"BY BRUCE Q. HA|
000001C0: 4D 4D 4F 4E 44 22 3A 8F 2D 20 4D 59 20 4E 41 4D |MMOND":.- MY NAM|
000001D0: 45 20 55 50 20 49 4E 20 4C 49 47 48 54 53 00 1C |E UP IN LIGHTS..|
000001E0: 0A 10 04 99 A3 31 30 29 3B 22 4F 46 20 54 48 45 |.....10);"OF THE|
000001F0: 20 48 41 4D 4D 53 54 45 52 20 47 52 4F 55 50 22 | HAMMSTER GROUP"|
00000200: 3A 8F 2D 20 53 4F 4D 45 20 52 45 41 4C 4C 59 20 |:.- SOME REALLY |
00000210: 4E 45 41 54 20 50 45 4F 50 4C 45 21 00 5D 0A 15 |NEAT PEOPLE!.]..|
00000220: 04 8B 41 B2 32 A7 93 22 44 49 2D 32 22 2C 38 2C |..A.2.."DI-2",8,|
00000230: 31 3A 8F 2D 20 4C 4F 41 44 20 54 48 45 20 4C 4F |1:.- LOAD THE LO|
00000240: 57 45 52 20 4D 41 43 48 49 4E 45 20 4C 41 4E 47 |WER MACHINE LANG|
00000250: 55 41 47 45 20 50 52 4F 47 52 41 4D 2E 00 9E 0A |UAGE PROGRAM....|
00000260: 1A 04 8B 41 B2 33 A7 93 22 44 49 2D 33 22 2C 38 |...A.3.."DI-3",8|
00000270: 2C 31 3A 8F 2D 20 4C 4F 41 44 20 54 48 45 20 55 |,1:.- LOAD THE U|
00000280: 50 50 45 52 20 4D 41 43 48 49 4E 45 20 4C 41 4E |PPER MACHINE LAN|
00000290: 47 55 41 47 45 20 50 52 4F 47 52 41 4D 2E 00 D6 |GUAGE PROGRAM...|
000002A0: 0A 42 04 8B C2 28 32 30 36 30 29 B3 B1 31 34 33 |.B...(2060)..143|
000002B0: A7 9E 36 34 37 33 38 3A 8F 22 14 14 14 14 14 14 |..64738:."......|
000002C0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000002D0: 14 14 14 14 14 14 00 DC 0A 44 04 3A 00 E2 0A 46 |.........D.:...F|
000002E0: 04 3A 00 FF 0A 47 04 8F 20 20 20 2A 2A 2A 2A 20 |.:...G.. **** |
000002F0: 49 4E 49 54 49 41 4C 49 5A 45 20 2A 2A 2A 2A 00 |INITIALIZE ****.|
00000300: 05 0B 49 04 3A 00 26 0B 4C 04 8F 20 2A 20 56 41 |..I.:.&.L.. * VA|
00000310: 52 49 41 42 4C 45 53 2C 20 53 54 52 49 4E 47 53 |RIABLES, STRINGS|
00000320: 20 20 20 20 20 2A 00 73 0B 4F 04 58 B2 30 3A 41 | *.s.O.X.0:A|
00000330: 24 B2 22 22 3A 41 31 24 B2 22 22 3A 48 58 24 B2 |$."":A1$."":HX$.|
00000340: 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 |"0123456789ABCDE|
00000350: 46 22 3A 48 54 24 B2 22 13 11 11 11 11 11 11 11 |F":HT$."........|
00000360: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000370: 11 11 22 00 A6 0B 51 04 41 B2 30 3A 41 31 B2 30 |.."...Q.A.0:A1.0|
00000380: 3A 56 B2 30 3A 46 31 B2 30 3A 8F 2D 20 53 4F 4D |:V.0:F1.0:.- SOM|
00000390: 45 20 4F 46 54 45 4E 20 55 53 45 44 20 56 41 52 |E OFTEN USED VAR|
000003A0: 49 41 42 4C 45 53 00 B3 0B 52 04 86 54 24 28 31 |IABLES...R..T$(1|
000003B0: 30 30 29 00 B9 0B A6 04 3A 00 BF 0B A8 04 3A 00 |00).....:.....:.|
000003C0: C5 0B AA 04 3A 00 E8 0B AB 04 8F 20 2A 2A 20 53 |....:...... ** S|
000003D0: 45 54 20 55 50 20 42 55 46 46 20 50 4E 54 52 20 |ET UP BUFF PNTR |
000003E0: 41 52 52 41 59 20 2A 2A 00 EE 0B AC 04 3A 00 37 |ARRAY **.....:.7|
000003F0: 0C B0 04 86 20 42 50 28 35 29 3A 8F 2D 20 41 20 |.... BP(5):.- A |
00000400: 4E 49 46 54 59 20 41 52 52 41 59 20 54 48 41 54 |NIFTY ARRAY THAT|
00000410: 20 43 4F 4E 54 41 49 4E 53 20 54 48 45 4E 20 4D | CONTAINS THEN M|
00000420: 45 4D 4F 52 59 20 4C 4F 43 41 54 49 4F 4E 53 20 |EMORY LOCATIONS |
00000430: 28 43 4F 4E 54 2E 29 00 83 0C B5 04 8F 2D 20 4F |(CONT.)......- O|
00000440: 46 20 41 4C 4C 20 50 4F 49 4E 54 45 52 53 20 54 |F ALL POINTERS T|
00000450: 4F 20 54 48 45 20 43 55 52 52 45 4E 54 20 44 49 |O THE CURRENT DI|
00000460: 53 50 4C 41 59 2F 57 4F 52 4B 20 42 55 46 46 45 |SPLAY/WORK BUFFE|
00000470: 52 2E 20 20 54 48 49 53 20 42 55 46 46 45 52 20 |R. THIS BUFFER |
00000480: 43 41 4E 00 CE 0C B6 04 8F 2D 20 42 45 20 4D 4F |CAN......- BE MO|
00000490: 56 45 44 20 42 59 20 50 4F 4B 49 4E 47 20 41 4C |VED BY POKING AL|
000004A0: 4C 20 42 50 28 58 29 20 4C 4F 43 41 54 49 4F 4E |L BP(X) LOCATION|
000004B0: 53 20 57 49 54 48 20 4C 4F 42 59 54 45 20 26 20 |S WITH LOBYTE & |
000004C0: 42 50 28 58 29 2B 31 2C 48 49 42 59 54 45 00 1B |BP(X)+1,HIBYTE..|
000004D0: 0D B7 04 8F 2D 20 45 58 41 4D 49 4E 45 20 54 48 |....- EXAMINE TH|
000004E0: 45 20 53 45 43 54 4F 52 20 52 4F 55 54 49 4E 45 |E SECTOR ROUTINE|
000004F0: 20 41 4E 44 4D 41 49 4E 20 4D 45 4D 4F 52 59 20 | ANDMAIN MEMORY |
00000500: 45 44 49 54 4F 52 20 46 4F 52 20 41 20 57 4F 52 |EDITOR FOR A WOR|
00000510: 4B 49 4E 47 20 45 58 41 4D 50 2E 00 2C 0D BA 04 |KING EXAMP..,...|
00000520: 81 58 B2 31 A4 35 20 20 20 20 20 3A 00 4D 0D C4 |.X.1.5 :.M..|
00000530: 04 87 20 42 50 28 58 29 3A 8F 3A 20 52 45 41 44 |.. BP(X):.: READ|
00000540: 20 42 50 20 4C 4F 43 41 54 49 4F 4E 53 00 5E 0D | BP LOCATIONS.^.|
00000550: CE 04 82 58 20 20 20 20 20 20 20 20 20 3A 00 64 |...X :.d|
00000560: 0D D8 04 3A 00 6A 0D 0A 05 3A 00 70 0D 0C 05 3A |...:.j...:.p...:|
00000570: 00 95 0D 0F 05 8F 20 2A 2A 2A 2A 2A 20 4D 49 53 |...... ***** MIS|
00000580: 43 20 49 4E 49 54 20 47 41 52 42 41 47 45 20 20 |C INIT GARBAGE |
00000590: 2A 2A 2A 2A 2A 00 9B 0D 11 05 3A 00 BE 0D 12 05 |*****.....:.....|
000005A0: 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 45 52 54 |. ** SET UP VERT|
000005B0: 20 54 41 42 20 53 54 52 49 4E 47 20 2A 2A 00 C4 | TAB STRING **..|
000005C0: 0D 13 05 3A 00 11 0E 14 05 56 54 24 B2 22 13 11 |...:.....VT$."..|
000005D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000005E0: 11 11 11 11 11 11 11 11 11 22 3A 8F 2D 20 46 4F |.........":.- FO|
000005F0: 52 20 56 45 52 54 20 54 41 42 20 58 58 20 55 53 |R VERT TAB XX US|
00000600: 45 20 3F 4C 45 46 54 24 28 56 54 24 2C 58 58 29 |E ?LEFT$(VT$,XX)|
00000610: 3B 00 17 0E 19 05 3A 00 1D 0E 32 05 3A 00 42 0E |;.....:...2.:.B.|
00000620: 37 05 49 4E 50 24 B2 22 48 45 58 22 3A 8F 20 2D |7.INP$."HEX":. -|
00000630: 20 44 45 46 41 55 4C 54 20 45 44 49 54 20 4D 4F | DEFAULT EDIT MO|
00000640: 44 45 00 48 0E 3C 05 3A 00 4E 0E 46 05 3A 00 60 |DE.H.<.:.N.F.:.`|
00000650: 0E C6 07 8F 20 2D 20 4D 41 49 4E 20 4D 45 4E 55 |.... - MAIN MENU|
00000660: 00 66 0E C8 07 3A 00 7B 0E CA 07 8F 20 2D 20 44 |.f...:.{.... - D|
00000670: 52 41 57 20 42 4F 41 52 44 45 52 00 81 0E CC 07 |RAW BOARDER.....|
00000680: 3A 00 BE 0E D0 07 99 22 93 22 AA 44 24 28 33 29 |:......".".D$(3)|
00000690: 3B 3A 8F 2D 20 43 4C 45 41 52 20 53 43 52 45 45 |;:.- CLEAR SCREE|
000006A0: 4E 20 41 4E 44 20 53 45 54 20 54 45 58 54 20 43 |N AND SET TEXT C|
000006B0: 4F 4C 4F 52 20 54 4F 20 4F 52 41 4E 47 45 00 E7 |OLOR TO ORANGE..|
000006C0: 0E D2 07 99 C7 28 38 29 3B 3A 8F 2D 20 44 49 53 |.....(8);:.- DIS|
000006D0: 41 42 4C 45 20 4C 4F 57 45 52 20 43 41 53 45 20 |ABLE LOWER CASE |
000006E0: 54 4F 47 47 4C 45 2E 00 16 0F D5 07 99 22 20 D5 |TOGGLE......." .|
000006F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000700: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000710: C3 C3 C3 C3 C9 22 00 22 0F DA 07 81 58 B2 31 A4 |....."."....X.1.|
00000720: 32 32 00 35 0F E4 07 99 22 20 C7 22 3B A3 33 38 |22.5...." .";.38|
00000730: 29 3B 22 C8 22 00 3C 0F EE 07 82 58 00 6C 0F F8 |);".".<....X.l..|
00000740: 07 99 22 20 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |.." ............|
00000750: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000760: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 3B 00 72 0F 2A |..........";.r.*|
00000770: 08 3A 00 78 0F 2C 08 3A 00 7E 0F 2E 08 3A 00 97 |.:.x.,.:.~...:..|
00000780: 0F 2F 08 8F 20 20 2A 20 44 49 53 50 4C 41 59 20 |./.. * DISPLAY |
00000790: 54 49 54 4C 45 20 2A 00 9D 0F 30 08 3A 00 BC 0F |TITLE *...0.:...|
000007A0: 34 08 99 44 24 28 31 29 3B 3A 8F 3A 20 20 20 20 |4..D$(1);:.: |
000007B0: 20 20 54 45 58 54 20 43 4F 4C 4F 52 00 E2 0F 3E | TEXT COLOR...>|
000007C0: 08 99 22 13 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000007D0: 44 49 2D 53 45 43 54 4F 52 20 4F 50 54 49 4F 4E |DI-SECTOR OPTION|
000007E0: 53 22 00 EA 0F 48 08 99 3A 99 00 F0 0F 52 08 3A |S"...H..:....R.:|
000007F0: 00 F6 0F 8E 08 3A 00 17 10 93 08 8F 20 2A 2A 2A |.....:...... ***|
00000800: 2A 20 44 49 53 50 4C 41 59 20 4F 50 54 49 4F 4E |* DISPLAY OPTION|
00000810: 53 20 2A 2A 2A 2A 2A 00 1D 10 94 08 3A 00 4A 10 |S *****.....:.J.|
00000820: 98 08 52 45 54 24 B2 C7 28 31 33 29 3A 8F 2D 20 |..RET$..(13):.- |
00000830: 43 2F 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |C/R |
00000840: 20 20 20 20 20 20 20 20 20 A0 00 7A 10 9A 08 52 | ..z...R|
00000850: 45 54 24 B2 52 45 54 24 AA 22 1D 1D 1D 1D 3C 22 |ET$.RET$."....<"|
00000860: 3A 8F 2D 20 54 41 42 20 4F 56 45 52 20 41 4E 44 |:.- TAB OVER AND|
00000870: 20 50 52 49 4E 54 20 22 3C 22 00 9E 10 9D 08 99 | PRINT "<"......|
00000880: 44 24 28 32 29 3B 3A 8F 2D 20 53 45 54 20 54 48 |D$(2);:.- SET TH|
00000890: 45 20 54 45 58 54 20 54 4F 20 47 52 45 59 00 DA |E TEXT TO GREY..|
000008A0: 10 A2 08 99 52 45 54 24 3B 22 31 3E 20 53 45 43 |....RET$;"1> SEC|
000008B0: 54 4F 52 20 45 58 41 4D 49 4E 45 2F 4D 4F 44 49 |TOR EXAMINE/MODI|
000008C0: 46 59 22 3A 8F 2D 20 44 49 53 50 4C 41 59 20 54 |FY":.- DISPLAY T|
000008D0: 48 45 20 4F 50 54 49 4F 4E 53 00 09 11 AC 08 99 |HE OPTIONS......|
000008E0: 52 45 54 24 3B 22 32 3E 20 44 49 53 4B 20 42 41 |RET$;"2> DISK BA|
000008F0: 43 4B 55 50 22 20 20 20 20 20 20 20 20 20 20 20 |CKUP" |
00000900: 20 20 20 20 20 20 20 20 3A 00 38 11 C0 08 99 52 | :.8....R|
00000910: 45 54 24 3B 22 33 3E 20 46 52 45 45 20 53 45 43 |ET$;"3> FREE SEC|
00000920: 54 4F 52 20 4D 41 50 22 20 20 20 20 20 20 20 20 |TOR MAP" |
00000930: 20 20 20 20 20 20 20 3A 00 67 11 C5 08 99 52 45 | :.g....RE|
00000940: 54 24 3B 22 34 3E 20 45 58 49 54 20 54 4F 20 42 |T$;"4> EXIT TO B|
00000950: 41 53 49 43 22 20 20 20 20 20 20 20 20 20 20 20 |ASIC" |
00000960: 20 20 20 20 20 20 3A 00 6D 11 CA 08 3A 00 73 11 | :.m...:.s.|
00000970: CC 08 3A 00 8E 11 CF 08 8F 20 20 20 20 2A 2A 20 |..:...... ** |
00000980: 4D 45 4E 55 20 50 52 4F 4D 50 54 20 2A 2A 00 94 |MENU PROMPT **..|
00000990: 11 D0 08 3A 00 D0 11 D4 08 99 22 11 11 11 1D 1D |...:......".....|
000009A0: 1D 1D 53 45 4C 45 43 54 49 4F 4E 20 50 4C 45 41 |..SELECTION PLEA|
000009B0: 53 45 20 12 20 92 22 3A 8F 2D 20 41 53 4B 20 46 |SE . .":.- ASK F|
000009C0: 4F 52 20 54 48 45 20 53 45 4C 45 43 54 49 4F 4E |OR THE SELECTION|
000009D0: 00 D6 11 DE 08 3A 00 DC 11 F2 08 3A 00 FC 11 F7 |.....:.....:....|
000009E0: 08 8F 20 20 2A 2A 2A 2A 20 47 45 54 20 4D 45 4E |.. **** GET MEN|
000009F0: 55 20 49 4E 50 55 54 20 2A 2A 2A 2A 00 02 12 F9 |U INPUT ****....|
00000A00: 08 3A 00 47 12 FC 08 8D 20 35 32 34 30 30 3A 8F |.:.G.... 52400:.|
00000A10: 2D 20 47 4F 20 41 4E 44 20 57 41 49 54 20 46 4F |- GO AND WAIT FO|
00000A20: 52 20 41 20 4B 45 59 20 54 4F 20 42 45 20 50 52 |R A KEY TO BE PR|
00000A30: 45 53 53 45 44 20 28 52 45 54 55 52 4E 20 49 54 |ESSED (RETURN IT|
00000A40: 20 49 4E 20 41 24 29 00 60 12 10 09 3A 20 20 20 | IN A$).`...: |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :|
00000A60: 00 84 12 1A 09 8F 20 20 20 2A 20 56 41 4C 49 44 |...... * VALID|
00000A70: 41 54 45 20 4F 50 45 52 41 54 4F 52 20 49 4E 50 |ATE OPERATOR INP|
00000A80: 55 54 20 2A 00 8A 12 1F 09 3A 00 B2 12 24 09 41 |UT *.....:...$.A|
00000A90: B2 C5 28 41 24 29 3A 8F 20 43 4F 4E 56 45 52 54 |..(A$):. CONVERT|
00000AA0: 20 49 4E 50 55 54 20 54 4F 20 41 20 4E 55 4D 42 | INPUT TO A NUMB|
00000AB0: 45 52 00 F0 12 2E 09 8B 41 B1 35 B0 41 B3 31 A7 |ER......A.5.A.1.|
00000AC0: 32 33 30 30 3A 8F 2D 20 47 4F 20 42 41 43 4B 20 |2300:.- GO BACK |
00000AD0: 41 4E 44 20 57 41 49 54 20 41 47 41 49 4E 20 49 |AND WAIT AGAIN I|
00000AE0: 46 20 4E 4F 54 20 31 2C 32 2C 33 20 4F 52 20 34 |F NOT 1,2,3 OR 4|
00000AF0: 00 F6 12 33 09 3A 00 17 13 38 09 8F 20 20 2A 2A |...3.:...8.. **|
00000B00: 2A 20 4D 45 4E 55 20 42 52 41 4E 43 48 20 4C 4F |* MENU BRANCH LO|
00000B10: 47 49 43 20 2A 2A 2A 00 36 13 42 09 91 41 8D 31 |GIC ***.6.B..A.1|
00000B20: 30 30 30 30 2C 32 30 30 30 30 2C 34 30 30 30 30 |0000,20000,40000|
00000B30: 2C 36 32 30 30 30 00 57 13 4C 09 46 31 B2 30 3A |,62000.W.L.F1.0:|
00000B40: 89 31 33 30 30 3A 8F 2D 20 52 45 44 49 53 50 4C |.1300:.- REDISPL|
00000B50: 41 59 20 4D 45 4E 55 00 5D 13 82 23 3A 00 63 13 |AY MENU.]..#:.c.|
00000B60: 83 23 3A 00 69 13 84 23 3A 00 6F 13 85 23 3A 00 |.#:.i..#:.o..#:.|
00000B70: 75 13 86 23 3A 00 9A 13 87 23 8F 20 2A 2A 2A 2A |u..#:....#. ****|
00000B80: 20 44 49 53 50 4C 41 59 20 54 52 41 43 4B 20 53 | DISPLAY TRACK S|
00000B90: 45 43 54 4F 52 20 2A 2A 2A 2A 00 A0 13 88 23 3A |ECTOR ****....#:|
00000BA0: 00 A6 13 89 23 3A 00 BC 13 8A 23 8F 20 2D 20 53 |....#:....#. - S|
00000BB0: 45 43 54 4F 52 20 4D 4F 44 55 41 4C 00 C2 13 8B |ECTOR MODUAL....|
00000BC0: 23 3A 00 E1 13 10 27 8D 20 31 31 36 30 30 3A 8F |#:....'. 11600:.|
00000BD0: 20 2D 20 50 52 4F 4D 50 54 20 54 52 4B 2C 53 45 | - PROMPT TRK,SE|
00000BE0: 43 00 E7 13 29 27 3A 00 0A 14 2E 27 8F 20 2A 20 |C...)':....'. * |
00000BF0: 50 4F 4B 45 20 49 4E 20 42 55 46 46 20 50 4E 54 |POKE IN BUFF PNT|
00000C00: 52 20 56 41 4C 55 45 53 20 2A 00 2A 14 2F 27 42 |R VALUES *.*./'B|
00000C10: 4C B2 34 39 31 35 32 3A 3A 8F 20 2D 20 53 45 43 |L.49152::. - SEC|
00000C20: 54 4F 52 20 42 55 46 46 52 2E 00 43 14 30 27 48 |TOR BUFFR..C.0'H|
00000C30: 42 B2 42 4C AD 32 35 36 3A 8F 20 2D 20 48 49 42 |B.BL.256:. - HIB|
00000C40: 59 54 45 00 5F 14 31 27 4C 42 B2 42 4C AB 28 48 |YTE._.1'LB.BL.(H|
00000C50: 42 AC 32 35 36 29 3A 8F 20 4C 4F 42 59 54 45 00 |B.256):. LOBYTE.|
00000C60: 6A 14 33 27 81 58 B2 31 A4 35 00 84 14 35 27 97 |j.3'.X.1.5...5'.|
00000C70: 42 50 28 58 29 2C 4C 42 3A 97 42 50 28 58 29 AA |BP(X),LB:.BP(X).|
00000C80: 31 2C 48 42 00 8B 14 37 27 82 58 00 91 14 38 27 |1,HB...7'.X...8'|
00000C90: 3A 00 B5 14 3A 27 8F 2D 20 53 45 4E 44 20 46 4F |:...:'.- SEND FO|
00000CA0: 52 20 50 49 5A 5A 41 20 28 4F 52 20 41 20 53 45 |R PIZZA (OR A SE|
00000CB0: 43 54 4F 52 29 00 BB 14 3D 27 3A 00 D4 14 42 27 |CTOR)...=':...B'|
00000CC0: 99 22 93 22 3B 3A 8F 20 43 4C 45 41 52 20 53 43 |.".";:. CLEAR SC|
00000CD0: 52 45 45 4E 00 F3 14 44 27 8D 20 35 32 36 30 30 |REEN...D'. 52600|
00000CE0: 3A 8F 20 2D 20 56 41 4C 49 44 41 54 45 20 54 4E |:. - VALIDATE TN|
00000CF0: 2C 53 4E 00 0A 15 47 27 8D 20 35 31 30 30 30 3A |,SN...G'. 51000:|
00000D00: 8F 20 2D 20 47 45 54 20 49 54 00 3C 15 48 27 8B |. - GET IT.<.H'.|
00000D10: 45 52 24 B3 B1 22 4F 4B 22 A7 8D 20 35 33 31 30 |ER$.."OK".. 5310|
00000D20: 30 3A 89 31 30 30 35 38 3A 8F 2D 20 4F 48 20 4E |0:.10058:.- OH N|
00000D30: 4F 21 21 20 41 4E 20 45 52 52 4F 52 00 45 15 49 |O!! AN ERROR.E.I|
00000D40: 27 46 31 B2 30 00 5A 15 4A 27 8B 46 31 B2 31 B0 |'F1.0.Z.J'.F1.1.|
00000D50: 46 31 B2 32 A7 31 30 30 35 32 00 7D 15 4C 27 8F |F1.2.10052.}.L'.|
00000D60: 20 20 2A 2A 20 50 52 4E 54 20 42 55 46 46 20 28 | ** PRNT BUFF (|
00000D70: 41 53 43 49 49 2D 48 45 58 29 20 2A 2A 00 83 15 |ASCII-HEX) **...|
00000D80: 4E 27 3A 00 9D 15 56 27 8D 20 35 31 35 30 30 3A |N':...V'. 51500:|
00000D90: 8F 2D 50 52 49 4E 54 20 41 53 43 49 49 00 B5 15 |.-PRINT ASCII...|
00000DA0: 60 27 8D 20 35 32 30 30 30 3A 8F 2D 50 52 49 4E |`'. 52000:.-PRIN|
00000DB0: 54 20 48 45 58 00 D4 15 6A 27 8D 20 35 32 31 30 |T HEX...j'. 5210|
00000DC0: 30 3A 8F 2D 57 41 49 54 20 46 4F 52 20 43 4F 4D |0:.-WAIT FOR COM|
00000DD0: 4D 41 4E 44 00 DA 15 6F 27 3A 00 F4 15 74 27 8B |MAND...o':...t'.|
00000DE0: 46 31 B2 31 A7 8E 3A 8F 20 2D 20 54 4F 20 4D 27 |F1.1..:. - TO M'|
00000DF0: 4D 45 4E 55 00 11 16 7E 27 8B 46 31 B2 32 A7 31 |MENU...~'.F1.2.1|
00000E00: 30 30 30 30 3A 8F 20 2D 20 4E 45 57 20 53 50 4F |0000:. - NEW SPO|
00000E10: 54 00 32 16 CE 27 89 20 31 30 30 35 30 3A 8F 20 |T.2..'. 10050:. |
00000E20: 2D 20 47 45 54 20 41 4E 4F 54 48 45 52 20 53 45 |- GET ANOTHER SE|
00000E30: 43 2E 00 38 16 EE 2A 3A 00 3E 16 EF 2A 3A 00 5A |C..8..*:.>..*:.Z|
00000E40: 16 F3 2A 8F 20 2D 2D 20 45 44 49 54 20 4D 45 4D |..*. -- EDIT MEM|
00000E50: 4F 52 59 20 42 55 46 46 45 52 00 60 16 F4 2A 3A |ORY BUFFER.`..*:|
00000E60: 00 81 16 F8 2A 41 24 B2 22 22 3A 97 32 31 34 2C |....*A$."":.214,|
00000E70: 32 32 3A 99 3A 99 A3 33 33 29 22 4D 4F 44 20 20 |22:.:..33)"MOD |
00000E80: 22 00 9F 16 02 2B 41 50 B2 35 35 32 39 36 3A 48 |"....+AP.55296:H|
00000E90: 50 B2 35 35 36 31 36 3A 8D 20 35 32 33 30 30 00 |P.55616:. 52300.|
00000EA0: AE 16 07 2B 97 20 32 31 34 2C 31 32 3A 99 00 BC |...+. 214,12:...|
00000EB0: 16 09 2B 99 A3 33 35 29 3B 22 22 3B 00 D0 16 0C |..+..35);"";....|
00000EC0: 2B 41 24 B2 C4 28 4D 29 3A 99 41 24 3B 22 20 22 |+A$..(M):.A$;" "|
00000ED0: 00 DA 16 0E 2B 41 24 B2 22 22 00 F5 16 11 2B 97 |....+A$.""....+.|
00000EE0: 4C 31 2C 43 32 3A 97 4C 32 2C 43 31 3A 97 4C 32 |L1,C2:.L2,C1:.L2|
00000EF0: AA 31 2C 43 31 00 0F 17 16 2B 8D 20 35 32 34 30 |.1,C1....+. 5240|
00000F00: 30 3A 8F 20 2D 2D 20 57 41 49 54 20 4B 45 59 00 |0:. -- WAIT KEY.|
00000F10: 29 17 20 2B 8B 41 24 B2 22 1D 22 A7 8D 35 32 35 |). +.A$."."..525|
00000F20: 30 30 3A 89 31 31 30 31 30 00 43 17 25 2B 8B 41 |00:.11010.C.%+.A|
00000F30: 24 B2 22 9D 22 A7 8D 35 32 35 31 30 3A 89 31 31 |$."."..52510:.11|
00000F40: 30 31 30 00 5D 17 2A 2B 8B 41 24 B2 22 91 22 A7 |010.].*+.A$.".".|
00000F50: 8D 35 32 35 32 30 3A 89 31 31 30 31 30 00 77 17 |.52520:.11010.w.|
00000F60: 2F 2B 8B 41 24 B2 22 11 22 A7 8D 35 32 35 33 30 |/+.A$."."..52530|
00000F70: 3A 89 31 31 30 31 30 00 83 17 34 2B 41 B2 C6 28 |:.11010...4+A..(|
00000F80: 41 24 29 00 BB 17 39 2B 8B 41 B1 36 34 AF 41 B3 |A$)...9+.A.64.A.|
00000F90: 37 31 AF 49 4E 50 24 B2 22 48 45 58 22 A7 8D 35 |71.INP$."HEX"..5|
00000FA0: 32 38 30 30 3A 8F 20 2D 20 43 4F 4D 50 49 4C 45 |2800:. - COMPILE|
00000FB0: 20 48 45 58 20 4E 55 4D 42 45 52 00 F3 17 A2 2B | HEX NUMBER....+|
00000FC0: 8B 41 B1 34 37 AF 41 B3 35 38 AF 49 4E 50 24 B2 |.A.47.A.58.INP$.|
00000FD0: 22 48 45 58 22 A7 8D 35 32 38 30 30 3A 8F 20 2D |"HEX"..52800:. -|
00000FE0: 20 43 4F 4D 50 49 4C 45 20 48 45 58 20 4E 55 4D | COMPILE HEX NUM|
00000FF0: 42 45 52 00 2E 18 AC 2B 8B 28 41 B1 34 37 AF 41 |BER....+.(A.47.A|
00001000: B3 35 38 B0 41 B2 33 32 29 AF 49 4E 50 24 B2 22 |.58.A.32).INP$."|
00001010: 44 45 43 22 A7 8D 35 33 34 30 30 3A 8F 2D 20 44 |DEC"..53400:.- D|
00001020: 45 43 49 4D 41 4C 20 43 4F 4D 50 49 4C 45 00 59 |ECIMAL COMPILE.Y|
00001030: 18 B6 2B 8B 49 4E 50 24 B2 22 41 53 43 22 A7 8D |..+.INP$."ASC"..|
00001040: 35 33 36 30 30 3A 8F 2D 20 41 53 43 49 49 20 43 |53600:.- ASCII C|
00001050: 4F 4E 56 45 52 54 49 4F 4E 00 71 18 08 2C 8B 46 |ONVERTION.q..,.F|
00001060: 31 B2 31 A7 8D 35 32 39 30 30 3A 8D 35 32 35 30 |1.1..52900:.5250|
00001070: 30 00 85 18 0B 2C 8B 41 24 B2 C7 28 31 33 29 89 |0....,.A$..(13).|
00001080: 35 32 35 34 30 00 91 18 10 2C 89 20 31 31 30 31 |52540....,. 1101|
00001090: 30 00 97 18 1A 2C 3A 00 9D 18 E2 2C 3A 00 A3 18 |0....,:....,:...|
000010A0: E3 2C 3A 00 A9 18 E4 2C 3A 00 C5 18 E7 2C 8F 2D |.,:....,:....,.-|
000010B0: 20 57 52 49 54 45 20 53 45 43 54 4F 52 20 54 4F | WRITE SECTOR TO|
000010C0: 20 44 49 53 4B 00 CB 18 E8 2C 3A 00 D6 18 EC 2C | DISK....,:....,|
000010D0: 8D 31 31 39 30 30 00 E3 18 F1 2C 9F 31 35 2C 38 |.11900....,.15,8|
000010E0: 2C 31 35 00 F2 18 F6 2C 9F 35 2C 38 2C 35 2C 22 |,15....,.5,8,5,"|
000010F0: 23 22 00 F8 18 00 2D 3A 00 14 19 0A 2D 8F 2D 20 |#"....-:....-.- |
00001100: 53 45 4E 44 20 53 45 43 54 4F 52 20 54 4F 20 44 |SEND SECTOR TO D|
00001110: 52 49 56 45 00 45 19 1E 2D 81 58 B2 31 A4 32 3A |RIVE.E..-.X.1.2:|
00001120: 98 31 35 2C 22 42 2D 50 22 3B 35 3B 30 3A 9E 38 |.15,"B-P";5;0:.8|
00001130: 34 38 3A 98 31 35 2C 22 55 32 22 3B 35 3B 30 3B |48:.15,"U2";5;0;|
00001140: 54 4E 3B 53 4E 00 4C 19 23 2D 82 58 00 5B 19 28 |TN;SN.L.#-.X.[.(|
00001150: 2D 84 31 35 2C 45 52 2C 45 52 24 00 66 19 29 2D |-.15,ER,ER$.f.)-|
00001160: A0 35 3A A0 31 35 00 95 19 2A 2D 8B 45 52 24 B3 |.5:.15...*-.ER$.|
00001170: B1 22 4F 4B 22 A7 8D 35 33 31 30 30 3A 89 31 31 |."OK"..53100:.11|
00001180: 35 36 35 3A 8F 2D 20 54 52 41 50 20 54 48 45 20 |565:.- TRAP THE |
00001190: 45 52 52 4F 52 00 9E 19 2B 2D 46 31 B2 30 00 B4 |ERROR...+-F1.0..|
000011A0: 19 2D 2D 8B 46 31 B2 31 B0 46 31 B2 32 A7 89 31 |.--.F1.1.F1.2..1|
000011B0: 31 35 30 35 00 BA 19 41 2D 8E 00 C0 19 46 2D 3A |1505...A-....F-:|
000011C0: 00 DD 19 4B 2D 8F 20 2D 20 53 45 54 20 54 52 41 |...K-. - SET TRA|
000011D0: 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 00 EF 19 |CK AND SECTOR...|
000011E0: 50 2D 99 22 93 22 3B 3A 8F 2D 20 54 45 58 54 00 |P-.".";:.- TEXT.|
000011F0: F7 19 55 2D 99 3A 99 00 10 1A 5A 2D 85 20 22 44 |..U-.:....Z-. "D|
00001200: 45 53 49 52 45 44 20 54 52 41 43 4B 22 3B 54 24 |ESIRED TRACK";T$|
00001210: 00 2B 1A 64 2D 85 20 22 44 45 53 49 52 45 44 20 |.+.d-. "DESIRED |
00001220: 53 45 43 54 4F 52 22 3B 54 31 24 00 51 1A 6E 2D |SECTOR";T1$.Q.n-|
00001230: 56 B2 C5 28 54 24 29 3A 8B C8 28 54 24 2C 31 29 |V..(T$):..(T$,1)|
00001240: B2 22 24 22 A7 41 24 B2 54 24 3A 8D 35 33 37 30 |."$".A$.T$:.5370|
00001250: 30 00 5A 1A 73 2D 54 4E B2 56 00 83 1A 78 2D 56 |0.Z.s-TN.V...x-V|
00001260: B2 C5 28 54 31 24 29 3A 8B C8 28 54 31 24 2C 31 |..(T1$):..(T1$,1|
00001270: 29 B2 22 24 22 A7 41 24 B2 54 31 24 3A 8D 35 33 |)."$".A$.T1$:.53|
00001280: 37 30 30 00 8C 1A 7D 2D 53 4E B2 56 00 92 1A A0 |700...}-SN.V....|
00001290: 2D 8E 00 BF 1A 7C 2E 85 20 22 93 57 52 49 54 45 |-....|.. ".WRITE|
000012A0: 20 54 4F 20 53 41 4D 45 20 54 52 41 43 4B 2F 53 | TO SAME TRACK/S|
000012B0: 45 43 54 4F 52 20 28 59 2F 4E 29 22 3B 41 24 00 |ECTOR (Y/N)";A$.|
000012C0: CD 1A 86 2E 8B 41 24 B2 22 59 22 A7 8E 00 E0 1A |.....A$."Y".....|
000012D0: 8B 2E 8B 41 24 B3 B1 22 4E 22 A7 31 31 39 30 30 |...A$.."N".11900|
000012E0: 00 EC 1A 90 2E 8D 20 31 31 36 30 30 00 F2 1A 9A |...... 11600....|
000012F0: 2E 8E 00 F8 1A 16 4E 3A 00 FE 1A 17 4E 3A 00 04 |......N:....N:..|
00001300: 1B 18 4E 3A 00 0A 1B 19 4E 3A 00 10 1B 1A 4E 3A |..N:....N:....N:|
00001310: 00 31 1B 1B 4E 8F 20 54 52 41 4E 53 46 45 52 20 |.1..N. TRANSFER |
00001320: 54 4F 20 42 41 43 4B 55 50 20 52 4F 55 54 49 4E |TO BACKUP ROUTIN|
00001330: 45 00 3B 1B 20 4E 99 22 93 22 3B 00 6D 1B 22 4E |E.;. N.".";.m."N|
00001340: 99 22 93 11 11 11 1D 1D 1D 49 4E 53 45 52 54 20 |.".......INSERT |
00001350: 44 49 2D 53 45 43 54 4F 52 20 44 49 53 4B 2C 20 |DI-SECTOR DISK, |
00001360: 50 52 45 53 53 20 52 45 54 55 52 4E 22 00 86 1B |PRESS RETURN"...|
00001370: 23 4E A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 |#N.A$:.A$...(13)|
00001380: A7 32 30 30 30 33 00 B7 1B 2A 4E 99 22 1D 1D 1D |.20003...*N."...|
00001390: 1D 1D 1D 1D 1D 1D 1D 11 11 11 11 11 11 11 11 11 |................|
000013A0: 11 4E 4F 57 20 4C 4F 41 44 49 4E 47 20 44 49 2D |.NOW LOADING DI-|
000013B0: 42 41 43 4B 55 50 22 00 E9 1B 34 4E 97 20 36 34 |BACKUP"...4N. 64|
000013C0: 36 2C C2 28 35 33 32 38 31 29 3A 8F 2D 20 4D 41 |6,.(53281):.- MA|
000013D0: 4B 45 20 41 4C 4C 20 54 45 58 54 20 49 4E 56 49 |KE ALL TEXT INVI|
000013E0: 53 49 42 4C 45 20 4E 4F 57 00 F5 1B 3E 4E 99 3A |SIBLE NOW...>N.:|
000013F0: 99 22 13 22 3B 00 10 1C 48 4E 97 31 39 38 2C 32 |.".";...HN.198,2|
00001400: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
00001410: 00 38 1C 52 4E 99 22 11 11 4C 4F 41 44 22 C7 28 |.8.RN."..LOAD".(|
00001420: 33 34 29 22 44 49 2D 42 41 43 4B 55 50 22 3B C7 |34)"DI-BACKUP";.|
00001430: 28 33 34 29 22 2C 38 22 00 49 1C 5C 4E 99 22 11 |(34)",8".I.\N.".|
00001440: 11 11 11 52 55 4E 13 22 3B 00 4F 1C 7A 4E 80 00 |...RUN.";.O.zN..|
00001450: 55 1C 36 9C 3A 00 5B 1C 37 9C 3A 00 61 1C 38 9C |U.6.:.[.7.:.a.8.|
00001460: 3A 00 67 1C 39 9C 3A 00 87 1C 3B 9C 8F 20 2A 2A |:.g.9.:...;.. **|
00001470: 20 44 49 53 4B 20 46 52 45 45 20 53 50 41 43 45 | DISK FREE SPACE|
00001480: 20 4D 41 50 20 2A 2A 00 8D 1C 3C 9C 3A 00 B3 1C | MAP **...<.:...|
00001490: 40 9C 54 4E B2 31 38 3A 53 4E B2 30 3A 8F 2D 20 |@.TN.18:SN.0:.- |
000014A0: 54 52 41 43 4B 2F 53 45 43 54 4F 52 20 4F 46 20 |TRACK/SECTOR OF |
000014B0: 42 41 4D 00 D3 1C 4A 9C 42 4C B2 34 39 31 35 32 |BAM...J.BL.49152|
000014C0: 3A 3A 8F 20 2D 20 53 45 43 54 4F 52 20 42 55 46 |::. - SECTOR BUF|
000014D0: 46 52 2E 00 EC 1C 54 9C 48 42 B2 42 4C AD 32 35 |FR....T.HB.BL.25|
000014E0: 36 3A 8F 20 2D 20 48 49 42 59 54 45 00 08 1D 5E |6:. - HIBYTE...^|
000014F0: 9C 4C 42 B2 42 4C AB 28 48 42 AC 32 35 36 29 3A |.LB.BL.(HB.256):|
00001500: 8F 20 4C 4F 42 59 54 45 00 13 1D 68 9C 81 58 B2 |. LOBYTE...h..X.|
00001510: 31 A4 35 00 2D 1D 72 9C 97 42 50 28 58 29 2C 4C |1.5.-.r..BP(X),L|
00001520: 42 3A 97 42 50 28 58 29 AA 31 2C 48 42 00 34 1D |B:.BP(X).1,HB.4.|
00001530: 7C 9C 82 58 00 3A 1D 86 9C 3A 00 57 1D 90 9C 8F ||..X.:...:.W....|
00001540: 2D 20 47 4F 20 47 45 54 20 54 48 45 20 42 41 4D |- GO GET THE BAM|
00001550: 20 54 48 49 4E 47 2E 00 5D 1D 9A 9C 3A 00 7B 1D | THING..]...:.{.|
00001560: A4 9C 99 44 24 28 32 29 3B 3A 8F 2D 20 53 45 54 |...D$(2);:.- SET|
00001570: 20 54 45 58 54 20 43 4F 4C 4F 52 00 94 1D AE 9C | TEXT COLOR.....|
00001580: 99 22 93 22 3B 3A 8F 20 43 4C 45 41 52 20 53 43 |.".";:. CLEAR SC|
00001590: 52 45 45 4E 00 BD 1D B8 9C 8D 20 35 31 30 30 30 |REEN...... 51000|
000015A0: 3A 8F 20 2D 20 52 45 54 52 49 56 45 20 53 45 43 |:. - RETRIVE SEC|
000015B0: 54 4F 52 20 46 52 4F 4D 20 44 49 53 4B 00 EE 1D |TOR FROM DISK...|
000015C0: C2 9C 8B 45 52 24 B3 B1 22 4F 4B 22 A7 8D 20 35 |...ER$.."OK".. 5|
000015D0: 33 31 30 30 3A 99 22 13 22 3B 3A 8F 2D 20 4F 48 |3100:.".";:.- OH|
000015E0: 20 4E 4F 21 21 20 41 4E 20 45 52 52 4F 52 00 FC | NO!! AN ERROR..|
000015F0: 1D CC 9C 8B 46 31 A7 34 30 31 32 30 00 12 1E D6 |....F1.40120....|
00001600: 9C 8B 45 52 24 B2 22 45 52 52 22 AF 46 31 B2 30 |..ER$."ERR".F1.0|
00001610: A7 8E 00 1B 1E E0 9C 46 31 B2 30 00 32 1E EA 9C |.......F1.0.2...|
00001620: 8F 2D 20 44 49 53 50 4C 41 59 20 54 48 45 20 4D |.- DISPLAY THE M|
00001630: 41 50 00 38 1E F4 9C 3A 00 42 1E FE 9C 99 22 93 |AP.8...:.B....".|
00001640: 22 3B 00 84 1E 08 9D 99 22 20 31 32 33 34 35 36 |";......" 123456|
00001650: 37 38 39 12 30 31 32 33 34 35 36 37 38 39 92 30 |789.0123456789.0|
00001660: 31 32 33 34 35 36 37 38 39 12 30 31 32 33 34 35 |123456789.012345|
00001670: 22 3A 8F 2D 20 54 52 41 43 4B 20 49 4E 44 45 58 |":.- TRACK INDEX|
00001680: 20 52 4F 57 00 8A 1E 12 9D 99 00 97 1E 1C 9D 81 | ROW............|
00001690: 58 B2 30 A4 39 20 3A 00 A6 1E 26 9D 99 C9 28 C4 |X.0.9 :...&...(.|
000016A0: 28 58 29 2C 31 29 00 AD 1E 3A 9D 82 58 00 CB 1E |(X),1)...:..X...|
000016B0: 44 9D 8F 2D 20 4D 41 4B 45 20 53 45 43 54 4F 52 |D..- MAKE SECTOR|
000016C0: 20 49 4E 44 45 58 20 43 4F 4C 2E 00 D6 1E 4E 9D | INDEX COL....N.|
000016D0: 81 58 B2 30 A4 39 00 E9 1E 58 9D 99 22 12 22 3B |.X.0.9...X..".";|
000016E0: C9 28 C4 28 58 29 2C 31 29 00 F0 1E 6C 9D 82 58 |.(.(X),1)...l..X|
000016F0: 00 FA 1E 80 9D 99 22 30 22 3B 00 00 1F 8A 9D 3A |......"0";.....:|
00001700: 00 16 1F 8F 9D 8F 2D 20 4D 41 4B 45 20 42 49 54 |......- MAKE BIT|
00001710: 20 54 41 42 4C 45 00 1C 1F 90 9D 3A 00 32 1F 94 | TABLE.....:.2..|
00001720: 9D 58 B2 34 39 31 35 33 3A 54 4E B2 31 3A 53 4E |.X.49153:TN.1:SN|
00001730: B2 30 00 4D 1F 9E 9D 81 54 4E B2 31 A4 33 35 3A |.0.M....TN.1.35:|
00001740: 8F 2D 20 54 52 41 43 4B 20 4C 4F 4F 50 00 79 1F |.- TRACK LOOP.y.|
00001750: A8 9D 52 42 B2 54 4E AC 34 AA 58 3A 8F 2D 20 4C |..RB.TN.4.X:.- L|
00001760: 4F 43 41 54 49 4F 4E 20 4F 46 20 42 59 54 45 20 |OCATION OF BYTE |
00001770: 49 4E 20 42 55 46 46 45 52 00 BC 1F B2 9D 53 4E |IN BUFFER.....SN|
00001780: B2 AB 31 3A 8D 35 32 36 31 35 3A 8F 2D 20 52 45 |..1:.52615:.- RE|
00001790: 54 55 52 4E 53 20 4E 55 4D 42 45 52 20 4F 46 20 |TURNS NUMBER OF |
000017A0: 53 45 43 54 4F 52 53 20 49 4E 20 54 48 49 53 20 |SECTORS IN THIS |
000017B0: 54 52 41 43 4B 20 49 4E 20 53 4E 2E 00 00 20 B7 |TRACK IN SN... .|
000017C0: 9D 4D 53 B2 53 4E 3A 53 4E B2 30 3A 8F 2D 20 53 |.MS.SN:SN.0:.- S|
000017D0: 45 54 20 4D 41 58 20 23 20 53 45 43 54 4F 52 53 |ET MAX # SECTORS|
000017E0: 2C 20 54 48 45 4E 20 5A 45 52 4F 20 43 55 52 52 |, THEN ZERO CURR|
000017F0: 45 4E 54 20 53 45 43 54 4F 52 20 43 4F 55 4E 54 |ENT SECTOR COUNT|
00001800: 00 30 20 BC 9D 81 52 42 B2 52 42 A4 52 42 AA 32 |.0 ...RB.RB.RB.2|
00001810: 3A 8F 2D 20 53 45 4C 45 43 54 20 52 45 4C 49 54 |:.- SELECT RELIT|
00001820: 49 56 45 20 42 59 54 45 20 54 4F 20 52 45 41 44 |IVE BYTE TO READ|
00001830: 00 68 20 C6 9D 41 B2 C2 28 52 42 29 3A 8F 2D 20 |.h ..A..(RB):.- |
00001840: 52 45 41 44 20 52 45 4C 49 54 49 56 45 20 42 59 |READ RELITIVE BY|
00001850: 54 45 20 46 4F 52 20 54 48 45 20 43 55 52 52 45 |TE FOR THE CURRE|
00001860: 4E 54 20 54 52 41 43 4B 00 75 20 D0 9D 81 42 49 |NT TRACK.u ...BI|
00001870: 54 B2 30 A4 37 00 A9 20 E4 9D 8B 41 AF 32 AE 42 |T.0.7.. ...A.2.B|
00001880: 49 54 A7 54 24 B2 22 2D 22 3A 89 34 30 34 34 30 |IT.T$."-":.40440|
00001890: 3A 8F 2D 20 53 45 54 20 53 45 43 54 4F 52 20 54 |:.- SET SECTOR T|
000018A0: 4F 20 55 4E 55 53 45 44 2E 00 CB 20 EE 9D 54 24 |O UNUSED... ..T$|
000018B0: B2 22 58 22 3A 8F 2D 20 53 45 54 20 53 45 43 54 |."X":.- SET SECT|
000018C0: 4F 52 20 54 4F 20 55 53 45 44 2E 00 E7 20 F8 9D |OR TO USED... ..|
000018D0: 53 4E B2 53 4E AA 31 3A 54 4B 24 B2 54 4B 24 AA |SN.SN.1:TK$.TK$.|
000018E0: 54 24 AA 22 11 9D 22 00 25 21 02 9E 8B 53 4E B1 |T$."..".%!...SN.|
000018F0: 4D 53 A7 42 49 54 B2 38 3A 82 42 49 54 3A 52 42 |MS.BIT.8:.BIT:RB|
00001900: B2 52 42 AA 31 3A 82 52 42 3A 89 34 30 34 37 30 |.RB.1:.RB:.40470|
00001910: 3A 8F 2D 20 49 4E 4E 45 52 20 4C 4F 4F 50 53 20 |:.- INNER LOOPS |
00001920: 44 4F 4E 45 2E 00 33 21 0C 9E 82 20 42 49 54 3A |DONE..3!... BIT:|
00001930: 82 52 42 00 66 21 16 9E 99 22 13 11 11 22 3B A3 |.RB.f!..."...";.|
00001940: 54 4E 29 3B 54 4B 24 3A 54 4B 24 B2 22 22 3A 82 |TN);TK$:TK$."":.|
00001950: 20 54 4E 20 3A 8F 20 50 52 49 4E 54 20 54 48 45 | TN :. PRINT THE|
00001960: 20 54 52 41 43 4B 00 6C 21 18 9E 3A 00 B1 21 1B | TRACK.l!..:..!.|
00001970: 9E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00001980: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00001990: 48 3D 48 41 52 44 43 4F 50 59 2C 20 4E 3D 4E 45 |H=HARDCOPY, N=NE|
000019A0: 57 20 44 49 53 4B 2C 20 58 3D 41 42 4F 52 54 22 |W DISK, X=ABORT"|
000019B0: 3B 00 BC 21 1C 9E 8D 35 32 34 30 30 00 CA 21 20 |;..!...52400..! |
000019C0: 9E 8B 41 24 B2 22 58 22 A7 8E 00 DD 21 22 9E 8B |..A$."X"....!"..|
000019D0: 41 24 B2 22 48 22 A7 8D 35 31 36 30 30 00 F0 21 |A$."H"..51600..!|
000019E0: 24 9E 8B 41 24 B2 22 4E 22 A7 89 34 30 30 30 30 |$..A$."N"..40000|
000019F0: 00 FB 21 26 9E 89 34 30 34 37 36 00 01 22 2A 9E |..!&..40476.."*.|
00001A00: 3A 00 07 22 2B 9E 3A 00 0D 22 2C 9E 3A 00 2E 22 |:.."+.:..",.:.."|
00001A10: 2F 9E 3A 20 8F 2D 20 4C 4F 41 44 20 43 4F 4E 46 |/.: .- LOAD CONF|
00001A20: 49 47 55 52 41 54 49 4F 4E 20 46 49 4C 45 00 44 |IGURATION FILE.D|
00001A30: 22 34 9E 9F 32 2C 38 2C 32 2C 22 44 49 2D 35 2C |"4..2,8,2,"DI-5,|
00001A40: 53 2C 52 22 00 4F 22 3E 9E 81 58 B2 31 A4 33 00 |S,R".O">..X.1.3.|
00001A50: 5C 22 48 9E 84 32 2C 44 24 28 58 29 00 63 22 52 |\"H..2,D$(X).c"R|
00001A60: 9E 82 58 00 7F 22 5C 9E 84 32 2C 43 42 3A 84 32 |..X.."\..2,CB:.2|
00001A70: 2C 43 54 3A 84 32 2C 43 31 3A 84 32 2C 43 32 00 |,CT:.2,C1:.2,C2.|
00001A80: 8A 22 66 9E A0 32 2C 38 2C 32 00 90 22 70 9E 8E |."f..2,8,2.."p..|
00001A90: 00 96 22 2E C7 3A 00 9C 22 32 C7 3A 00 C0 22 33 |.."..:.."2.:.."3|
00001AA0: C7 8F 20 2A 2A 20 50 55 54 20 53 45 43 20 49 4E |.. ** PUT SEC IN|
00001AB0: 54 4F 20 44 52 49 56 45 20 42 55 46 46 20 2A 2A |TO DRIVE BUFF **|
00001AC0: 00 C6 22 34 C7 3A 00 DF 22 36 C7 8F 20 20 20 20 |.."4.:.."6.. |
00001AD0: 2A 20 46 4F 52 20 4F 50 45 4E 45 52 53 20 2A 00 |* FOR OPENERS *.|
00001AE0: E5 22 37 C7 3A 00 F2 22 38 C7 9F 31 35 2C 38 2C |."7.:.."8..15,8,|
00001AF0: 31 35 00 01 23 42 C7 9F 35 2C 38 2C 35 2C 22 23 |15..#B..5,8,5,"#|
00001B00: 22 00 07 23 44 C7 3A 00 22 23 47 C7 8F 20 20 20 |"..#D.:."#G.. |
00001B10: 20 20 3A 3A 20 52 45 41 44 20 49 54 20 49 4E 20 | :: READ IT IN |
00001B20: 3A 3A 00 39 23 4C C7 98 31 35 2C 22 55 31 22 3B |::.9#L..15,"U1";|
00001B30: 35 3B 30 3B 54 4E 3B 53 4E 00 48 23 4E C7 84 31 |5;0;TN;SN.H#N..1|
00001B40: 35 2C 45 52 2C 45 52 24 00 4E 23 50 C7 3A 00 71 |5,ER,ER$.N#P.:.q|
00001B50: 23 51 C7 8F 20 2A 2A 20 4C 4F 41 44 20 53 45 43 |#Q.. ** LOAD SEC|
00001B60: 20 49 4E 54 4F 20 4D 45 4D 20 42 55 46 46 20 2A | INTO MEM BUFF *|
00001B70: 2A 00 77 23 52 00 3A 00 81 23 56 C7 9E 20 38 32 |*.w#R.:..#V.. 82|
00001B80: 38 00 87 23 60 C7 3A 00 A6 23 65 C7 8F 20 2A 2A |8..#`.:..#e.. **|
00001B90: 20 52 45 41 44 20 53 45 43 54 4F 52 20 52 45 54 | READ SECTOR RET|
00001BA0: 55 52 4E 20 2A 2A 00 B3 23 6A C7 A0 35 3A A0 31 |URN **..#j..5:.1|
00001BB0: 35 3A 8E 00 B9 23 22 C9 3A 00 BF 23 24 C9 3A 00 |5:...#".:..#$.:.|
00001BC0: E1 23 27 C9 8F 20 2A 2A 2A 20 50 52 49 4E 54 20 |.#'.. *** PRINT |
00001BD0: 42 55 46 46 20 49 4E 20 41 53 43 49 49 20 2A 2A |BUFF IN ASCII **|
00001BE0: 2A 00 E7 23 28 C9 3A 00 02 24 2C C9 99 22 93 22 |*..#(.:..$,.."."|
00001BF0: 44 24 28 31 29 3B 3A 81 58 B2 31 A4 32 35 36 A9 |D$(1);:.X.1.256.|
00001C00: 33 32 00 11 24 36 C9 97 20 31 30 31 38 2C 58 AB |32..$6.. 1018,X.|
00001C10: 31 00 1F 24 40 C9 9E 20 34 39 34 30 38 3A 99 00 |1..$@.. 49408:..|
00001C20: 28 24 4A C9 82 58 3A 8E 00 2E 24 86 C9 3A 00 34 |($J..X:...$..:.4|
00001C30: 24 87 C9 3A 00 3A 24 88 C9 3A 00 40 24 89 C9 3A |$..:.:$..:.@$..:|
00001C40: 00 58 24 8B C9 8F 2D 20 48 41 52 44 20 43 4F 50 |.X$...- HARD COP|
00001C50: 59 20 4F 46 20 42 41 4D 00 66 24 90 C9 9F 34 2C |Y OF BAM.f$...4,|
00001C60: 34 3A 58 33 B2 30 00 9F 24 95 C9 98 34 2C C7 28 |4:X3.0..$...4,.(|
00001C70: 31 33 29 3B A3 35 29 3B 22 44 49 53 4B 20 4E 41 |13);.5);"DISK NA|
00001C80: 4D 45 20 2D 2D 3E 20 22 3B 3A 81 58 B2 34 39 32 |ME --> ";:.X.492|
00001C90: 39 36 A4 34 39 33 31 31 3A 41 B2 C2 28 58 29 00 |96.49311:A..(X).|
00001CA0: B5 24 97 C9 8B 41 B3 31 36 30 A7 98 34 2C C7 28 |.$...A.160..4,.(|
00001CB0: 41 29 3B 3A 82 00 C3 24 98 C9 98 34 2C C7 28 31 |A);:...$...4,.(1|
00001CC0: 33 29 3B 00 00 25 9A C9 98 34 2C C7 28 31 33 29 |3);..%...4,.(13)|
00001CD0: 3B 22 20 20 20 20 31 20 20 20 33 20 20 20 35 20 |;" 1 3 5 |
00001CE0: 20 20 37 20 20 20 39 20 20 20 31 31 20 20 31 33 | 7 9 11 13|
00001CF0: 20 20 31 35 20 20 31 37 20 20 31 39 20 20 22 3B | 15 17 19 ";|
00001D00: 00 28 25 9F C9 98 34 2C 22 32 31 20 20 32 33 20 |.(%...4,"21 23 |
00001D10: 20 32 35 20 20 32 37 20 20 32 39 20 20 33 31 20 | 25 27 29 31 |
00001D20: 20 33 33 20 20 33 35 22 00 5D 25 A4 C9 98 34 2C | 33 35".]%...4,|
00001D30: 22 20 20 20 20 20 20 32 20 20 20 34 20 20 20 36 |" 2 4 6|
00001D40: 20 20 20 38 20 20 20 31 30 20 20 31 32 20 20 31 | 8 10 12 1|
00001D50: 34 20 20 31 36 20 20 31 38 20 20 22 3B 00 85 25 |4 16 18 ";..%|
00001D60: A9 C9 98 34 2C 22 32 30 20 20 32 32 20 20 32 34 |...4,"20 22 24|
00001D70: 20 20 32 36 20 20 32 38 20 20 33 30 20 20 33 32 | 26 28 30 32|
00001D80: 20 20 33 34 22 00 99 25 AE C9 81 58 B2 31 31 30 | 34"..%...X.110|
00001D90: 34 A4 31 39 34 34 A9 34 30 00 C1 25 B3 C9 98 34 |4.1944.40..%...4|
00001DA0: 2C C7 28 31 33 29 3B 3A 8B 58 33 B3 32 31 A7 98 |,.(13);:.X3.21..|
00001DB0: 34 2C 58 33 3B A6 31 AB B6 28 58 33 B1 39 29 29 |4,X3;.1..(X3.9))|
00001DC0: 3B 00 CD 25 B5 C9 58 33 B2 58 33 AA 31 00 DE 25 |;..%..X3.X3.1..%|
00001DD0: B8 C9 81 58 32 B2 58 AA 31 A4 58 AA 33 38 00 EA |...X2.X.1.X.38..|
00001DE0: 25 C2 C9 41 B2 C2 28 58 32 29 00 F9 25 CC C9 8B |%..A..(X2)..%...|
00001DF0: 41 B2 32 34 A7 41 B2 38 38 00 0A 26 D6 C9 98 34 |A.24.A.88..&...4|
00001E00: 2C C7 28 41 29 3B 22 20 22 3B 00 17 26 E0 C9 82 |,.(A);" ";..&...|
00001E10: 58 32 2C 58 3A A0 34 00 1D 26 EA C9 8E 00 23 26 |X2,X:.4..&....#&|
00001E20: 16 CB 3A 00 29 26 18 CB 3A 00 2F 26 1A CB 3A 00 |..:.)&..:./&..:.|
00001E30: 4F 26 1B CB 8F 20 2A 2A 2A 20 50 52 49 4E 54 20 |O&... *** PRINT |
00001E40: 42 55 46 46 20 49 4E 20 48 45 58 20 2A 2A 2A 00 |BUFF IN HEX ***.|
00001E50: 55 26 1C CB 3A 00 6D 26 20 CB 99 44 24 28 32 29 |U&..:.m& ..D$(2)|
00001E60: 3B 3A 81 58 B2 31 A4 32 35 36 A9 31 36 00 7B 26 |;:.X.1.256.16.{&|
00001E70: 2A CB 97 31 30 31 38 2C 58 AB 31 00 85 26 34 CB |*..1018,X.1..&4.|
00001E80: 9E 20 39 35 34 00 8E 26 3E CB 99 3A 82 58 00 94 |. 954..&>..:.X..|
00001E90: 26 48 CB 8E 00 9A 26 5C CB 3A 00 A0 26 7A CB 3A |&H....&\.:..&z.:|
00001EA0: 00 A6 26 7B CB 3A 00 CA 26 7F CB 8F 20 20 2A 2A |..&{.:..&... **|
00001EB0: 2A 20 53 45 43 54 4F 52 20 4D 41 4E 49 50 2E 20 |* SECTOR MANIP. |
00001EC0: 50 41 52 53 4F 52 20 2A 2A 2A 00 D0 26 80 CB 3A |PARSOR ***..&..:|
00001ED0: 00 D8 26 84 CB 4D B2 30 00 F5 26 87 CB 8D 20 35 |..&..M.0..&... 5|
00001EE0: 32 37 30 30 3A 8F 20 2D 20 44 49 53 50 4C 41 59 |2700:. - DISPLAY|
00001EF0: 20 49 4E 46 4F 00 13 27 89 CB 8D 20 35 32 34 30 | INFO..'... 5240|
00001F00: 30 3A 8F 20 2D 20 57 41 49 54 20 4B 45 59 50 52 |0:. - WAIT KEYPR|
00001F10: 45 53 53 00 3E 27 8E CB 8B 41 24 B2 22 4D 22 A7 |ESS.>'...A$."M".|
00001F20: 8D 31 31 30 30 30 3A 8F 2D 20 47 4F 20 49 4E 54 |.11000:.- GO INT|
00001F30: 4F 20 4D 4F 44 49 46 59 20 4D 4F 44 45 2E 00 6B |O MODIFY MODE..k|
00001F40: 27 98 CB 8B 41 24 B2 22 57 22 A7 8D 31 31 35 30 |'...A$."W"..1150|
00001F50: 30 3A 8E 3A 8F 2D 20 57 52 49 54 45 20 53 45 43 |0:.:.- WRITE SEC|
00001F60: 54 4F 52 20 54 4F 20 44 49 53 4B 00 97 27 A2 CB |TOR TO DISK..'..|
00001F70: 8B 41 24 B2 22 41 22 A7 49 4E 50 24 B2 22 41 53 |.A$."A".INP$."AS|
00001F80: 43 22 3A 8F 2D 20 53 45 54 20 54 4F 20 41 53 43 |C":.- SET TO ASC|
00001F90: 49 49 20 4D 4F 44 45 00 C5 27 AC CB 8B 41 24 B2 |II MODE..'...A$.|
00001FA0: 22 44 22 A7 49 4E 50 24 B2 22 44 45 43 22 3A 8F |"D".INP$."DEC":.|
00001FB0: 2D 20 53 45 54 20 54 4F 20 44 45 43 49 4D 41 4C |- SET TO DECIMAL|
00001FC0: 20 4D 4F 44 45 00 F7 27 C0 CB 8B 41 24 B2 22 48 | MODE..'...A$."H|
00001FD0: 22 A7 49 4E 50 24 B2 22 48 45 58 22 3A 8F 2D 20 |".INP$."HEX":.- |
00001FE0: 53 45 54 20 54 4F 20 48 45 58 41 44 45 43 49 4D |SET TO HEXADECIM|
00001FF0: 41 4C 20 4D 4F 44 45 00 22 28 CA CB 8B 41 24 B2 |AL MODE."(...A$.|
00002000: 22 43 22 A7 20 8E 3A 8F 2D 20 43 41 4E 43 45 4C |"C". .:.- CANCEL|
00002010: 20 41 4C 4C 20 4D 4F 44 49 46 49 43 41 54 49 4F | ALL MODIFICATIO|
00002020: 4E 53 00 54 28 D4 CB 8B 41 24 B2 22 4C 22 A7 20 |NS.T(...A$."L". |
00002030: 8D 31 31 36 30 30 3A 8E 3A 8F 45 2D 20 50 52 4F |.11600:.:.E- PRO|
00002040: 4D 50 54 20 46 4F 52 20 4E 45 57 20 4C 4F 43 41 |MPT FOR NEW LOCA|
00002050: 54 49 4F 4E 00 76 28 DE CB 8B 41 24 B2 22 53 22 |TION.v(...A$."S"|
00002060: A7 8D 35 34 33 30 30 3A 8F 2D 20 53 43 52 45 45 |..54300:.- SCREE|
00002070: 4E 20 44 55 4D 50 00 9F 28 E8 CB 8B 41 24 B2 22 |N DUMP..(...A$."|
00002080: 58 22 A7 20 46 31 B2 31 3A 8E 3A 8F 2D 20 45 58 |X". F1.1:.:.- EX|
00002090: 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 00 |IT TO MAIN MENU.|
000020A0: BE 28 F2 CB 8B 41 24 B2 22 1D 22 A7 53 4E B2 53 |.(...A$.".".SN.S|
000020B0: 4E AA 31 3A 8E 3A 8F 2D 20 52 49 47 48 54 00 DC |N.1:.:.- RIGHT..|
000020C0: 28 FC CB 8B 41 24 B2 22 9D 22 A7 53 4E B2 53 4E |(...A$.".".SN.SN|
000020D0: AB 31 3A 8E 3A 8F 2D 20 4C 45 46 54 00 F9 28 06 |.1:.:.- LEFT..(.|
000020E0: CC 8B 41 24 B2 22 11 22 A7 54 4E B2 54 4E AA 31 |..A$.".".TN.TN.1|
000020F0: 3A 8E 3A 8F 2D 44 4F 57 4E 00 15 29 10 CC 8B 41 |:.:.-DOWN..)...A|
00002100: 24 B2 22 91 22 A7 54 4E B2 54 4E AB 31 3A 8E 3A |$.".".TN.TN.1:.:|
00002110: 8F 2D 20 55 50 00 45 29 1A CC 8B 41 24 B2 22 4E |.- UP.E)...A$."N|
00002120: 22 A7 8D 35 33 38 30 30 3A 8E 3A 8F 2D 20 47 45 |"..53800:.:.- GE|
00002130: 54 20 4E 45 58 54 20 53 45 43 54 4F 52 20 4F 46 |T NEXT SECTOR OF|
00002140: 20 46 49 4C 45 00 7A 29 24 CC 8B 41 24 B2 22 3F | FILE.z)$..A$."?|
00002150: 22 B0 41 24 B2 22 2F 22 A7 8D 35 34 30 30 30 3A |".A$."/"..54000:|
00002160: 8F 2D 20 48 45 4C 50 20 55 53 45 52 20 57 49 54 |.- HELP USER WIT|
00002170: 48 20 43 4F 4D 4D 41 4E 44 53 00 85 29 41 CC 89 |H COMMANDS..)A..|
00002180: 35 32 31 30 33 00 8B 29 42 CC 3A 00 AE 29 47 CC |52103..)B.:..)G.|
00002190: 8F 20 2D 2D 20 43 41 4C 43 2E 20 48 45 58 2F 41 |. -- CALC. HEX/A|
000021A0: 53 43 49 49 20 43 55 52 2E 20 4C 4F 43 2E 00 C4 |SCII CUR. LOC...|
000021B0: 29 4C CC 4C 31 B2 B5 28 4D AD 33 32 29 AC 38 AA |)L.L1..(M.32).8.|
000021C0: 4D AA 41 50 00 DC 29 56 CC 4C 32 B2 B5 28 4D AD |M.AP..)V.L2..(M.|
000021D0: 31 36 29 AC 38 AA 4D AC 32 AA 48 50 00 E2 29 60 |16).8.M.2.HP..)`|
000021E0: CC 8E 00 E8 29 A6 CC 3A 00 EE 29 A7 CC 3A 00 0C |....)..:..)..:..|
000021F0: 2A AB CC 8F 20 2D 20 52 45 54 55 52 4E 20 4B 45 |*... - RETURN KE|
00002200: 59 53 54 4F 4B 45 20 49 4E 20 41 24 00 15 2A B0 |YSTOKE IN A$..*.|
00002210: CC A1 20 41 24 00 26 2A BA CC 8B 41 24 B2 22 22 |.. A$.&*...A$.""|
00002220: A7 35 32 34 30 30 00 2C 2A C4 CC 8E 00 32 2A 0A |.52400.,*....2*.|
00002230: CD 3A 00 38 2A 0B CD 3A 00 5C 2A 0F CD 8F 20 2D |.:.8*..:.\*... -|
00002240: 20 43 55 52 53 4F 52 20 4D 4F 56 45 53 20 46 4F | CURSOR MOVES FO|
00002250: 52 20 42 55 46 46 2E 20 45 44 49 54 00 73 2A 14 |R BUFF. EDIT.s*.|
00002260: CD 4D B2 4D AB 28 4D B3 32 35 35 29 3A 89 35 32 |.M.M.(M.255):.52|
00002270: 35 34 30 00 94 2A 1E CD 4D B2 4D AA 28 4D B1 30 |540..*..M.M.(M.0|
00002280: 29 3A 89 35 32 35 34 30 3A 8F 2D 46 55 4E 20 4C |):.52540:.-FUN L|
00002290: 4F 47 49 43 00 AD 2A 28 CD 4D B2 4D AA 28 4D B1 |OGIC..*(.M.M.(M.|
000022A0: 31 35 29 AC 31 36 3A 89 35 32 35 34 30 00 C7 2A |15).16:.52540..*|
000022B0: 32 CD 4D B2 4D AB 28 4D B3 32 34 30 29 AC 31 36 |2.M.M.(M.240).16|
000022C0: 3A 89 35 32 35 34 30 00 E2 2A 3C CD 97 4C 31 2C |:.52540..*<..L1,|
000022D0: 43 31 3A 97 4C 32 2C 43 32 3A 97 4C 32 AA 31 2C |C1:.L2,C2:.L2.1,|
000022E0: 43 32 00 E8 2A 41 CD 8E 00 EE 2A 43 CD 8E 00 F4 |C2..*A....*C....|
000022F0: 2A 6E CD 3A 00 FA 2A 6F CD 3A 00 11 2B 73 CD 8F |*n.:..*o.:..+s..|
00002300: 20 2D 20 56 41 4C 49 44 41 54 45 20 54 4E 2C 53 | - VALIDATE TN,S|
00002310: 4E 00 2F 2B 78 CD 8B 53 4E B1 AB 31 A7 89 35 32 |N./+x..SN..1..52|
00002320: 36 32 30 3A 8F 20 2D 20 53 4B 49 50 20 49 54 00 |620:. - SKIP IT.|
00002330: 51 2B 82 CD 54 4E B2 54 4E AB 31 3A 8F 20 2D 20 |Q+..TN.TN.1:. - |
00002340: 44 45 43 2E 20 54 52 41 43 4B 20 4E 55 4D 42 45 |DEC. TRACK NUMBE|
00002350: 52 00 73 2B 84 CD 8F 20 2D 20 43 41 4C 55 4C 41 |R.s+... - CALULA|
00002360: 54 45 20 43 55 52 52 45 4E 54 20 53 45 43 54 4F |TE CURRENT SECTO|
00002370: 52 20 23 00 99 2B 87 CD 53 4E B2 32 30 AA 28 28 |R #..+..SN.20.((|
00002380: 54 4E B1 31 37 29 AC 32 29 AA 28 54 4E B1 32 34 |TN.17).2).(TN.24|
00002390: 29 AA 28 54 4E B1 33 30 29 00 B1 2B 8C CD 8B 54 |).(TN.30)..+...T|
000023A0: 4E B3 31 38 AF 53 4E B1 32 30 A7 8D 35 32 36 36 |N.18.SN.20..5266|
000023B0: 30 00 DC 2B 96 CD 8B 54 4E B1 31 37 AF 54 4E B3 |0..+...TN.17.TN.|
000023C0: 32 35 AF 53 4E B1 31 38 A7 20 20 20 20 20 20 20 |25.SN.18. |
000023D0: 20 20 20 20 20 20 8D 35 32 36 36 30 00 07 2C A0 | .52660..,.|
000023E0: CD 8B 54 4E B1 32 34 AF 54 4E B3 33 31 AF 53 4E |..TN.24.TN.31.SN|
000023F0: B1 31 37 A7 20 20 20 20 20 20 20 20 20 20 20 20 |.17. |
00002400: 20 8D 35 32 36 36 30 00 1F 2C A5 CD 8B 54 4E B1 | .52660..,...TN.|
00002410: 33 30 AF 53 4E B1 31 36 A7 8D 35 32 36 36 30 00 |30.SN.16..52660.|
00002420: 39 2C A8 CD 8B 54 4E B1 33 35 B0 54 4E B3 31 A7 |9,...TN.35.TN.1.|
00002430: 54 4E B2 31 3A 53 4E B2 30 00 3F 2C AA CD 8E 00 |TN.1:SN.0.?,....|
00002440: 52 2C B4 CD 54 4E B2 54 4E AA 31 3A 53 4E B2 30 |R,..TN.TN.1:SN.0|
00002450: 3A 8E 00 58 2C D2 CD 3A 00 5E 2C D3 CD 3A 00 64 |:..X,..:.^,..:.d|
00002460: 2C D4 CD 3A 00 81 2C D7 CD 8F 20 2D 20 44 49 53 |,..:..,... - DIS|
00002470: 50 4C 41 59 20 42 55 46 46 45 52 20 49 4E 46 4F |PLAY BUFFER INFO|
00002480: 2E 00 94 2C DC CD 97 20 32 31 34 2C 30 3A 99 44 |...,... 214,0:.D|
00002490: 24 28 33 29 00 A7 2C E1 CD 99 A3 33 33 29 3B 22 |$(3)..,....33);"|
000024A0: 54 52 4B 22 3B 54 4E 00 BA 2C E6 CD 99 A3 33 33 |TRK";TN..,....33|
000024B0: 29 3B 22 53 45 43 22 3B 53 4E 00 C0 2C F0 CD 99 |);"SEC";SN..,...|
000024C0: 00 D1 2C FA CD 99 A3 33 33 29 3B 45 52 24 3B 45 |..,....33);ER$;E|
000024D0: 52 00 D7 2C 04 CE 99 00 EA 2C 0E CE 99 A3 33 33 |R..,.....,....33|
000024E0: 29 3B 22 42 55 46 46 45 52 22 00 F7 2C 18 CE 99 |);"BUFFER"..,...|
000024F0: A3 33 32 29 3B 42 4C 00 06 2D 1D CE 97 20 32 31 |.32);BL..-... 21|
00002500: 34 2C 31 32 3A 99 00 16 2D 22 CE 99 A3 33 33 29 |4,12:...-"...33)|
00002510: 3B 22 52 42 22 3B 00 2A 2D 27 CE 99 C8 28 C4 28 |;"RB";.*-'...(.(|
00002520: 4D 29 2C 32 29 3B 22 20 20 22 00 33 2D 29 CE 41 |M),2);" ".3-).A|
00002530: B2 32 30 00 5C 2D 2C CE 97 32 31 34 2C 41 3A 99 |.20.\-,..214,A:.|
00002540: 3A 99 A3 33 33 29 3B 49 4E 50 24 3A 99 3A 99 A3 |:..33);INP$:.:..|
00002550: 33 33 29 3B 22 43 4D 44 3F 20 20 22 00 62 2D 31 |33);"CMD? ".b-1|
00002560: CE 8E 00 68 2D 36 CE 3A 00 6E 2D 37 CE 3A 00 74 |...h-6.:.n-7.:.t|
00002570: 2D 38 CE 3A 00 97 2D 3A CE 8F 20 2D 20 48 45 58 |-8.:..-:.. - HEX|
00002580: 20 54 4F 20 44 45 43 20 28 54 57 4F 20 44 49 47 | TO DEC (TWO DIG|
00002590: 2E 20 4F 4E 4C 59 29 00 B5 2D 3B CE 8F 20 2D 20 |. ONLY)..-;.. - |
000025A0: 53 4F 4D 45 20 53 4C 4F 50 50 59 20 42 55 54 20 |SOME SLOPPY BUT |
000025B0: 51 55 49 43 4B 00 D9 2D 3C CE 8F 20 2D 20 53 54 |QUICK..-<.. - ST|
000025C0: 52 41 49 47 48 54 20 4C 49 4E 45 20 43 4F 44 45 |RAIGHT LINE CODE|
000025D0: 2E 2E 4F 48 20 57 45 4C 4C 00 FA 2D 3D CE 8F 20 |..OH WELL..-=.. |
000025E0: 2D 20 45 56 45 4E 20 46 41 53 54 45 52 20 57 49 |- EVEN FASTER WI|
000025F0: 54 48 20 4F 55 54 20 41 4C 4C 00 17 2E 3E CE 8F |TH OUT ALL...>..|
00002600: 20 2D 20 54 48 45 53 45 20 44 55 4D 42 20 52 45 | - THESE DUMB RE|
00002610: 4D 41 52 4B 53 21 21 00 1D 2E 3F CE 3A 00 3B 2E |MARKS!!...?.:.;.|
00002620: 40 CE 41 31 24 B2 41 31 24 AA 41 24 3A 8F 20 2D |@.A1$.A1$.A$:. -|
00002630: 20 4B 45 59 53 54 52 4F 4B 45 53 00 53 2E 42 CE | KEYSTROKES.S.B.|
00002640: 97 32 31 34 2C 31 38 3A 99 3A 99 A3 33 33 29 3B |.214,18:.:..33);|
00002650: 41 31 24 00 8B 2E 45 CE 8B 41 31 24 B2 41 24 A7 |A1$...E..A1$.A$.|
00002660: 8E 3A 8F 20 2D 20 53 45 45 20 49 46 20 57 45 48 |.:. - SEE IF WEH|
00002670: 41 56 45 20 54 57 4F 20 44 49 47 49 54 53 2C 20 |AVE TWO DIGITS, |
00002680: 45 4C 53 45 20 52 45 54 55 52 4E 00 CA 2E 4A CE |ELSE RETURN...J.|
00002690: 8B 41 31 24 B3 22 3A 22 A7 56 B2 C5 28 C8 28 41 |.A1$.":".V..(.(A|
000026A0: 31 24 2C 31 29 29 AC 31 36 3A 8F 2D 20 53 54 55 |1$,1)).16:.- STU|
000026B0: 50 49 44 20 54 52 49 43 4B 20 54 4F 20 46 49 4E |PID TRICK TO FIN|
000026C0: 44 20 44 49 47 49 54 20 23 31 00 0B 2F 54 CE 8B |D DIGIT #1../T..|
000026D0: 41 31 24 B1 22 3A 22 A7 56 B2 28 C6 28 C8 28 41 |A1$.":".V.(.(.(A|
000026E0: 31 24 2C 31 29 29 AB 35 35 29 AC 31 36 3A 8F 20 |1$,1)).55).16:. |
000026F0: 2D 20 48 4F 52 52 49 44 20 54 45 43 48 2E 20 42 |- HORRID TECH. B|
00002700: 55 54 20 49 54 20 57 4F 52 4B 53 00 47 2F 5E CE |UT IT WORKS.G/^.|
00002710: 8B C9 28 41 31 24 2C 31 29 B3 22 3A 22 A7 56 B2 |..(A1$,1).":".V.|
00002720: 56 AA C5 28 C9 28 41 31 24 2C 31 29 29 3A 8F 2D |V..(.(A1$,1)):.-|
00002730: 53 41 4D 45 20 44 55 4D 42 20 4D 45 54 48 4F 44 |SAME DUMB METHOD|
00002740: 20 46 4F 52 20 23 32 00 6C 2F 68 CE 8B C9 28 41 | FOR #2.l/h...(A|
00002750: 31 24 2C 31 29 B1 22 3A 22 A7 56 B2 56 AA C6 28 |1$,1).":".V.V..(|
00002760: C9 28 41 31 24 2C 31 29 29 AB 35 35 00 75 2F 90 |.(A1$,1)).55.u/.|
00002770: CE 46 31 B2 31 00 87 2F 95 CE 8E 3A 8F 20 2D 20 |.F1.1../...:. - |
00002780: 47 4F 20 42 41 43 4B 00 8D 2F 9A CE 3A 00 93 2F |GO BACK../..:../|
00002790: 9B CE 3A 00 99 2F 9C CE 3A 00 BA 2F 9F CE 8F 20 |..:../..:../... |
000027A0: 2D 20 43 48 41 4E 47 45 20 53 43 52 45 45 4E 20 |- CHANGE SCREEN |
000027B0: 41 4E 44 20 42 55 46 46 45 52 00 DE 2F A0 CE 8F |AND BUFFER../...|
000027C0: 20 2D 20 55 53 45 44 20 42 59 20 45 44 49 54 20 | - USED BY EDIT |
000027D0: 42 55 46 46 45 52 20 52 4F 55 54 49 4E 45 00 E4 |BUFFER ROUTINE..|
000027E0: 2F A1 CE 3A 00 FE 2F A4 CE 8B 41 31 24 B2 22 22 |/..:../...A1$.""|
000027F0: A7 8D 35 32 33 30 30 3A 89 35 32 39 38 35 00 12 |..52300:.52985..|
00002800: 30 A9 CE 41 50 B2 31 30 32 34 3A 48 50 B2 31 33 |0..AP.1024:HP.13|
00002810: 34 34 00 1D 30 AE CE 8D 35 32 33 30 30 00 3F 30 |44..0...52300.?0|
00002820: B3 CE 8B 49 4E 50 24 B2 22 44 45 43 22 B0 49 4E |...INP$."DEC".IN|
00002830: 50 24 B2 22 41 53 43 22 A7 8D 35 33 35 30 30 00 |P$."ASC"..53500.|
00002840: 5D 30 B8 CE 8B 56 B3 33 33 B0 56 B1 39 30 A7 97 |]0...V.33.V.90..|
00002850: 4C 31 2C 31 32 31 3A 89 35 32 39 34 30 00 6D 30 |L1,121:.52940.m0|
00002860: BD CE 8B 56 B3 36 34 A7 97 4C 31 2C 56 00 80 30 |...V.64..L1,V..0|
00002870: C2 CE 8B 56 B1 36 33 A7 97 4C 31 2C 56 AB 36 34 |...V.63..L1,V.64|
00002880: 00 92 30 CC CE 41 B2 C6 28 C8 28 41 31 24 2C 31 |..0..A..(.(A1$,1|
00002890: 29 29 00 A2 30 D1 CE 8B 41 B3 35 38 A7 97 4C 32 |))..0...A.58..L2|
000028A0: 2C 41 00 B5 30 D6 CE 8B 41 B1 36 34 A7 97 4C 32 |,A..0...A.64..L2|
000028B0: 2C 41 AB 36 34 00 C7 30 E0 CE 41 B2 C6 28 C9 28 |,A.64..0..A..(.(|
000028C0: 41 31 24 2C 31 29 29 00 D9 30 E5 CE 8B 41 B3 35 |A1$,1))..0...A.5|
000028D0: 38 A7 97 4C 32 AA 31 2C 41 00 EE 30 EA CE 8B 41 |8..L2.1,A..0...A|
000028E0: B1 36 34 A7 97 4C 32 AA 31 2C 41 AB 36 34 00 FA |.64..L2.1,A.64..|
000028F0: 30 F4 CE 97 42 4C AA 4D 2C 56 00 0E 31 F9 CE 41 |0...BL.M,V..1..A|
00002900: 31 24 B2 22 22 3A 41 24 B2 22 20 20 20 22 00 25 |1$."":A$." ".%|
00002910: 31 FB CE 97 32 31 34 2C 31 38 3A 99 3A 99 A3 33 |1...214,18:.:..3|
00002920: 33 29 3B 41 24 00 42 31 FD CE 41 50 B2 35 35 32 |3);A$.B1..AP.552|
00002930: 39 36 3A 48 50 B2 35 35 36 31 36 3A 8D 35 32 33 |96:HP.55616:.523|
00002940: 30 30 00 4D 31 FE CE 46 31 B2 30 3A 8E 00 53 31 |00.M1..F1.0:..S1|
00002950: FF CE 3A 00 59 31 01 CF 3A 00 71 31 03 CF 8F 20 |..:.Y1..:.q1... |
00002960: 2D 20 44 49 53 4B 20 45 52 52 4F 52 20 54 52 41 |- DISK ERROR TRA|
00002970: 50 00 77 31 04 CF 3A 00 82 31 6C CF 99 22 93 97 |P.w1..:..1l.."..|
00002980: 22 3B 00 A6 31 76 CF 99 22 20 21 21 21 20 45 52 |";..1v.." !!! ER|
00002990: 52 4F 52 20 4E 55 4D 42 45 52 20 22 3B 45 52 3B |ROR NUMBER ";ER;|
000029A0: 22 20 21 21 21 22 00 BE 31 80 CF 99 45 52 24 3B |" !!!"..1...ER$;|
000029B0: 22 20 48 41 53 20 4F 43 43 55 52 45 44 22 00 E2 |" HAS OCCURED"..|
000029C0: 31 8A CF 99 3A 99 22 41 4C 4C 20 4F 52 20 50 41 |1...:."ALL OR PA|
000029D0: 52 54 20 4F 46 20 44 49 53 4B 20 53 45 43 54 4F |RT OF DISK SECTO|
000029E0: 52 22 00 FF 31 94 CF 99 22 4D 41 59 20 42 45 20 |R"..1..."MAY BE |
000029F0: 49 4E 20 42 55 46 46 45 52 20 41 52 45 41 22 00 |IN BUFFER AREA".|
00002A00: 05 32 9E CF 99 00 29 32 A8 CF 99 22 4E 3E 4F 4E |.2....)2..."N>ON|
00002A10: 2D 53 54 4F 50 2C 20 52 3E 45 54 52 59 2C 20 44 |-STOP, R>ETRY, D|
00002A20: 3E 49 53 50 4C 41 59 2C 22 00 3F 32 AD CF A1 20 |>ISPLAY,".?2... |
00002A30: 41 24 3A 8B 41 24 B2 22 58 22 A7 46 31 B2 30 00 |A$:.A$."X".F1.0.|
00002A40: 4B 32 AF CF 8B 46 31 B2 31 A7 8E 00 59 32 B2 CF |K2...F1.1...Y2..|
00002A50: 45 52 24 B2 22 45 52 52 22 00 65 32 2A D0 8D 20 |ER$."ERR".e2*.. |
00002A60: 35 32 34 30 30 00 78 32 34 D0 8B 41 24 B2 22 4E |52400.x24..A$."N|
00002A70: 22 A7 46 31 B2 31 3A 8E 00 8B 32 3E D0 8B 41 24 |".F1.1:...2>..A$|
00002A80: B2 22 52 22 A7 46 31 B2 32 3A 8E 00 9E 32 48 D0 |."R".F1.2:...2H.|
00002A90: 8B 41 24 B2 22 44 22 A7 46 31 B2 30 3A 8E 00 B9 |.A$."D".F1.0:...|
00002AA0: 32 52 D0 8B 41 24 B2 22 53 22 A7 53 4E B2 53 4E |2R..A$."S".SN.SN|
00002AB0: AA 31 3A 46 31 B2 32 3A 8E 00 BF 32 8E D0 3A 00 |.1:F1.2:...2..:.|
00002AC0: D6 32 93 D0 8F 2D 20 44 45 43 49 4D 41 4C 20 43 |.2...- DECIMAL C|
00002AD0: 4F 4D 50 49 4C 45 00 15 33 98 D0 8B 41 B3 B1 33 |OMPILE..3...A..3|
00002AE0: 32 A7 41 31 24 B2 41 31 24 AA 41 24 3A 8F 2D 20 |2.A1$.A1$.A$:.- |
00002AF0: 42 55 49 4C 44 20 4E 55 4D 42 45 52 2E 20 28 53 |BUILD NUMBER. (S|
00002B00: 50 41 43 45 20 49 53 20 41 20 54 45 52 4D 49 4E |PACE IS A TERMIN|
00002B10: 41 54 4F 52 29 00 2D 33 9D D0 97 32 31 34 2C 31 |ATOR).-3...214,1|
00002B20: 38 3A 99 3A 99 A3 33 33 29 3B 41 31 24 00 6F 33 |8:.:..33);A1$.o3|
00002B30: A2 D0 8B C3 28 41 31 24 29 B2 33 B0 41 B2 33 32 |....(A1$).3.A.32|
00002B40: A7 89 35 33 34 33 30 3A 8F 2D 20 4E 55 4D 42 45 |..53430:.- NUMBE|
00002B50: 52 20 49 53 20 43 4F 4D 50 4C 45 54 45 3F 3F 20 |R IS COMPLETE?? |
00002B60: 49 46 20 53 4F 2C 20 47 45 54 20 53 45 54 2E 00 |IF SO, GET SET..|
00002B70: 83 33 AC D0 8E 3A 8F 2D 20 42 41 43 4B 20 41 47 |.3...:.- BACK AG|
00002B80: 41 49 4E 00 9D 33 B6 D0 8B C5 28 41 31 24 29 B1 |AIN..3....(A1$).|
00002B90: 32 35 35 A7 41 31 24 B2 22 32 35 35 22 00 CA 33 |255.A1$."255"..3|
00002BA0: BB D0 46 31 B2 31 3A 56 B2 C5 28 41 31 24 29 3A |..F1.1:V..(A1$):|
00002BB0: 8E 3A 8F 2D 20 53 45 54 20 4D 4F 44 2E 20 46 4C |.:.- SET MOD. FL|
00002BC0: 41 47 2C 20 52 45 54 55 52 4E 00 D0 33 F2 D0 3A |AG, RETURN..3..:|
00002BD0: 00 D6 33 F3 D0 3A 00 0D 34 F7 D0 8F 2D 20 43 4F |..3..:..4...- CO|
00002BE0: 4E 56 45 52 54 20 56 20 54 4F 20 48 45 58 20 22 |NVERT V TO HEX "|
00002BF0: 41 31 24 22 20 28 54 57 4F 20 44 49 47 49 54 2C |A1$" (TWO DIGIT,|
00002C00: 20 30 30 2D 46 46 2C 20 4F 4E 4C 59 29 00 1B 34 | 00-FF, ONLY)..4|
00002C10: FC D0 41 B2 B5 28 56 AD 31 36 29 00 52 34 06 D1 |..A..(V.16).R4..|
00002C20: 41 31 24 B2 CA 28 48 58 24 2C 41 AA 31 2C 31 29 |A1$..(HX$,A.1,1)|
00002C30: 3A 8F 2D 20 47 45 54 20 46 49 52 53 54 20 44 49 |:.- GET FIRST DI|
00002C40: 47 49 54 20 4F 46 20 48 45 58 20 53 54 52 49 4E |GIT OF HEX STRIN|
00002C50: 47 2E 00 5F 34 10 D1 41 B2 56 AB 31 36 AC 41 00 |G.._4..A.V.16.A.|
00002C60: 99 34 1A D1 41 31 24 B2 41 31 24 AA CA 28 48 58 |.4..A1$.A1$..(HX|
00002C70: 24 2C 41 AA 31 2C 31 29 3A 8E 3A 8F 2D 20 47 45 |$,A.1,1):.:.- GE|
00002C80: 54 20 53 45 43 4F 4E 44 20 44 49 47 49 54 20 41 |T SECOND DIGIT A|
00002C90: 4E 44 20 52 45 54 55 52 4E 00 9F 34 56 D1 3A 00 |ND RETURN..4V.:.|
00002CA0: A5 34 57 D1 3A 00 CE 34 5B D1 8F 2D 20 41 53 43 |.4W.:..4[..- ASC|
00002CB0: 49 49 20 43 4F 4E 56 45 52 54 49 4F 4E 20 54 4F |II CONVERTION TO|
00002CC0: 20 44 45 43 49 4D 41 4C 20 56 41 4C 55 45 00 DA | DECIMAL VALUE..|
00002CD0: 34 60 D1 56 B2 C6 28 41 24 29 00 F0 34 6A D1 8B |4`.V..(A$)..4j..|
00002CE0: 56 B1 31 32 38 B0 56 B3 33 32 A7 56 B2 30 3A 8E |V.128.V.32.V.0:.|
00002CF0: 00 02 35 74 D1 46 31 B2 31 3A 41 31 24 B2 41 24 |..5t.F1.1:A1$.A$|
00002D00: 3A 8E 00 08 35 BA D1 3A 00 0E 35 BB D1 3A 00 56 |:...5..:..5..:.V|
00002D10: 35 BF D1 8F 2D 20 47 45 4E 45 52 41 4C 20 48 45 |5...- GENERAL HE|
00002D20: 58 2E 20 54 4F 20 44 45 43 2E 20 43 4F 4E 56 45 |X. TO DEC. CONVE|
00002D30: 52 54 49 4F 4E 2E 2E 20 53 45 4E 44 20 24 44 44 |RTION.. SEND $DD|
00002D40: 44 44 20 49 4E 20 41 24 2E 20 28 41 4E 59 20 4C |DD IN A$. (ANY L|
00002D50: 45 4E 47 54 48 29 00 82 35 C1 D1 8F 2D 20 57 49 |ENGTH)..5...- WI|
00002D60: 4C 4C 20 52 45 54 55 52 4E 20 44 45 43 49 4D 41 |LL RETURN DECIMA|
00002D70: 4C 20 4E 55 4D 42 45 52 20 49 4E 20 56 41 52 2E |L NUMBER IN VAR.|
00002D80: 20 56 00 A8 35 C4 D1 56 B2 30 3A 8B C8 28 41 24 | V..5..V.0:..(A$|
00002D90: 2C 31 29 B2 22 24 22 A7 41 24 B2 C9 28 41 24 2C |,1)."$".A$..(A$,|
00002DA0: C3 28 41 24 29 AB 31 29 00 BD 35 C7 D1 81 20 58 |.(A$).1)..5... X|
00002DB0: B2 C3 28 41 24 29 AB 31 A4 30 A9 AB 31 00 D1 35 |..(A$).1.0..1..5|
00002DC0: C9 D1 81 58 B2 C3 28 41 24 29 AB 31 A4 30 A9 AB |...X..(A$).1.0..|
00002DD0: 31 00 E5 35 CE D1 41 31 B2 B6 28 58 AB C3 28 41 |1..5..A1..(X..(A|
00002DE0: 24 29 29 AB 31 00 F9 35 D8 D1 41 31 24 B2 CA 28 |$)).1..5..A1$..(|
00002DF0: 41 24 2C 58 AA 31 2C 31 29 00 06 36 E2 D1 81 58 |A$,X.1,1)..6...X|
00002E00: 32 B2 30 A4 31 35 00 2A 36 F6 D1 8B 41 31 24 B2 |2.0.15.*6...A1$.|
00002E10: CA 28 48 58 24 2C 58 32 AA 31 2C 31 29 A7 41 B2 |.(HX$,X2.1,1).A.|
00002E20: 31 36 AE 28 41 31 29 AC 58 32 00 33 36 00 D2 82 |16.(A1).X2.36...|
00002E30: 20 58 32 00 3D 36 0A D2 56 B2 56 AA 41 00 44 36 | X2.=6..V.V.A.D6|
00002E40: 14 D2 82 58 00 4A 36 1E D2 8E 00 64 36 28 D2 54 |...X.J6....d6(.T|
00002E50: 4E B2 C2 28 42 4C 29 3A 53 4E B2 C2 28 42 4C AA |N..(BL):SN..(BL.|
00002E60: 31 29 3A 8E 00 6A 36 E6 D2 3A 00 70 36 E7 D2 3A |1):..j6..:.p6..:|
00002E70: 00 76 36 E8 D2 3A 00 7C 36 E9 D2 3A 00 8F 36 EB |.v6..:.|6..:..6.|
00002E80: D2 8F 2D 20 4F 4E 4C 49 4E 45 20 48 45 4C 50 00 |..- ONLINE HELP.|
00002E90: 95 36 EC D2 3A 00 9F 36 F0 D2 99 22 93 22 3B 00 |.6..:..6...".";.|
00002EA0: C3 36 FA D2 99 22 11 22 3B A3 39 29 22 44 49 2D |.6...".";.9)"DI-|
00002EB0: 53 45 43 54 4F 52 20 4F 4E 4C 49 4E 45 20 48 45 |SECTOR ONLINE HE|
00002EC0: 4C 50 22 00 DD 36 04 D3 99 22 11 11 20 20 20 20 |LP"..6...".. |
00002ED0: 20 41 3E 53 43 49 49 20 4D 4F 44 45 22 00 FF 36 | A>SCII MODE"..6|
00002EE0: 09 D3 99 22 20 20 20 20 20 43 3E 41 4E 43 45 4C |..." C>ANCEL|
00002EF0: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 53 22 00 | MODIFICATIONS".|
00002F00: 19 37 0E D3 99 22 20 20 20 20 20 44 3E 45 43 49 |.7..." D>ECI|
00002F10: 4D 41 4C 20 4D 4F 44 45 22 00 40 37 18 D3 99 22 |MAL MODE".@7..."|
00002F20: 20 20 20 20 20 48 3E 45 58 41 44 45 43 49 4D 41 | H>EXADECIMA|
00002F30: 4C 20 4D 4F 44 45 20 53 45 4C 45 43 54 49 4F 4E |L MODE SELECTION|
00002F40: 00 5D 37 22 D3 99 22 20 20 20 20 20 4C 3E 4F 43 |.]7".." L>OC|
00002F50: 41 54 49 4F 4E 20 43 48 41 4E 47 45 22 00 78 37 |ATION CHANGE".x7|
00002F60: 2C D3 99 22 20 20 20 20 20 4D 3E 4F 44 49 46 59 |,.." M>ODIFY|
00002F70: 20 53 45 43 54 4F 52 22 00 99 37 36 D3 99 22 20 | SECTOR"..76.." |
00002F80: 20 20 20 20 4E 3E 45 58 54 20 53 45 43 54 4F 52 | N>EXT SECTOR|
00002F90: 20 4F 46 20 46 49 4C 45 22 00 BD 37 3B D3 99 22 | OF FILE"..7;.."|
00002FA0: 20 20 20 20 20 53 3E 43 52 45 45 4E 20 44 55 4D | S>CREEN DUM|
00002FB0: 50 20 54 4F 20 50 52 49 4E 54 45 52 22 00 DF 37 |P TO PRINTER"..7|
00002FC0: 40 D3 99 22 20 20 20 20 20 57 3E 52 49 54 45 20 |@.." W>RITE |
00002FD0: 53 45 43 54 4F 52 20 54 4F 20 44 49 53 4B 22 00 |SECTOR TO DISK".|
00002FE0: E7 37 4A D3 99 3A 99 00 12 38 54 D3 99 22 20 20 |.7J..:...8T.." |
00002FF0: 20 20 20 43 55 52 53 4F 52 20 4C 45 46 54 3A 20 | CURSOR LEFT: |
00003000: 20 20 50 52 45 56 49 4F 55 53 20 53 45 43 54 4F | PREVIOUS SECTO|
00003010: 52 22 00 39 38 68 D3 99 22 20 20 20 20 20 43 55 |R".98h.." CU|
00003020: 52 53 4F 52 20 52 49 47 48 54 3A 20 20 4E 45 58 |RSOR RIGHT: NEX|
00003030: 54 20 53 45 43 54 4F 52 22 00 63 38 72 D3 99 22 |T SECTOR".c8r.."|
00003040: 20 20 20 20 20 43 55 52 53 4F 52 20 55 50 3A 20 | CURSOR UP: |
00003050: 20 20 20 20 50 52 45 56 49 4F 55 53 20 54 52 41 | PREVIOUS TRA|
00003060: 43 4B 22 00 89 38 7C D3 99 22 20 20 20 20 20 43 |CK"..8|.." C|
00003070: 55 52 53 4F 52 20 44 4F 57 4E 3A 20 20 20 4E 45 |URSOR DOWN: NE|
00003080: 58 54 20 54 52 41 43 4B 22 00 B6 38 86 D3 99 22 |XT TRACK"..8..."|
00003090: 20 20 20 20 20 58 3A 20 20 20 20 20 20 20 20 20 | X: |
000030A0: 20 20 20 20 45 58 49 54 20 54 4F 20 4D 41 49 4E | EXIT TO MAIN|
000030B0: 20 4D 45 4E 55 22 00 E4 38 90 D3 99 22 20 20 20 | MENU"..8..." |
000030C0: 20 20 3F 3A 20 20 20 20 20 20 20 20 20 20 20 20 | ?: |
000030D0: 20 4F 4E 4C 49 4E 45 20 48 45 4C 50 20 28 54 48 | ONLINE HELP (TH|
000030E0: 49 53 29 22 00 18 39 B8 D3 99 3A 99 3A 99 22 3C |IS)"..9...:.:."<|
000030F0: 3C 3C 3C 3C 3C 20 50 52 45 53 53 20 41 4E 59 20 |<<<<< PRESS ANY |
00003100: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
00003110: 3E 3E 3E 3E 3E 3E 22 3B 00 24 39 C2 D3 8D 20 35 |>>>>>>";.$9... 5|
00003120: 32 34 30 30 00 4A 39 CC D3 8D 35 31 35 30 30 3A |2400.J9...51500:|
00003130: 8F 2D 20 52 45 50 52 49 4E 54 20 53 45 43 54 4F |.- REPRINT SECTO|
00003140: 52 20 49 4E 20 41 53 43 49 49 00 6E 39 D6 D3 8D |R IN ASCII.n9...|
00003150: 35 32 30 30 30 3A 8F 2D 20 52 45 50 52 49 4E 54 |52000:.- REPRINT|
00003160: 20 53 45 43 54 4F 52 20 49 4E 20 48 45 58 00 74 | SECTOR IN HEX.t|
00003170: 39 E0 D3 8E 00 7A 39 12 D4 3A 00 80 39 13 D4 3A |9....z9..:..9..:|
00003180: 00 86 39 14 D4 3A 00 8C 39 15 D4 3A 00 AA 39 17 |..9..:..9..:..9.|
00003190: D4 8F 2D 20 53 43 52 45 45 4E 20 44 55 4D 50 20 |..- SCREEN DUMP |
000031A0: 54 4F 20 50 52 49 4E 54 45 52 00 CF 39 1C D4 9F |TO PRINTER..9...|
000031B0: 34 2C 34 3A 52 42 B2 30 3A 97 32 31 34 2C 32 32 |4,4:RB.0:.214,22|
000031C0: 3A 99 3A 99 A3 33 33 29 22 50 52 49 4E 54 22 00 |:.:..33)"PRINT".|
000031D0: 14 3A 1E D4 98 34 2C 22 20 20 20 20 20 20 20 20 |.:...4," |
000031E0: 20 20 20 20 20 20 44 49 2D 53 45 43 54 4F 52 20 | DI-SECTOR |
000031F0: 53 43 52 45 45 4E 20 44 55 4D 50 20 4F 46 20 54 |SCREEN DUMP OF T|
00003200: 52 41 43 4B 22 3B 54 4E 3B 22 53 45 43 54 4F 52 |RACK";TN;"SECTOR|
00003210: 22 3B 53 4E 00 21 3A 21 D4 98 34 2C C7 28 31 33 |";SN.!:!..4,.(13|
00003220: 29 00 35 3A 26 D4 81 58 B2 31 30 32 34 A4 32 30 |).5:&..X.1024.20|
00003230: 30 30 A9 34 30 00 5D 3A 2B D4 8B 52 42 B3 32 35 |00.40.]:+..RB.25|
00003240: 36 A7 98 34 2C 22 52 45 4C 20 42 59 54 45 22 3B |6..4,"REL BYTE";|
00003250: 52 42 3B 22 2D 2D 3E 22 3B A6 37 29 3B 00 70 3A |RB;"-->";.7);.p:|
00003260: 2C D4 8B 52 42 B3 31 30 A7 98 34 2C 22 20 22 3B |,..RB.10..4," ";|
00003270: 00 84 3A 2D D4 8B 52 42 B3 31 30 30 A7 98 34 2C |..:-..RB.100..4,|
00003280: 22 20 22 3B 00 93 3A 30 D4 81 58 32 B2 58 A4 58 |" ";..:0..X2.X.X|
00003290: AA 33 32 00 A7 3A 3A D4 41 B2 C2 28 58 32 29 3A |.32..::.A..(X2):|
000032A0: 41 B2 41 AF 31 32 37 00 B6 3A 3F D4 8B 41 B1 36 |A.A.127..:?..A.6|
000032B0: 33 A7 41 B2 34 35 00 C7 3A 44 D4 8B 41 B3 33 32 |3.A.45..:D..A.32|
000032C0: A7 41 B2 41 AA 36 34 00 D3 3A 4E D4 41 24 B2 C7 |.A.A.64..:N.A$..|
000032D0: 28 41 29 00 DE 3A 58 D4 98 34 2C 41 24 3B 00 19 |(A)..:X..4,A$;..|
000032E0: 3B 67 D4 8B 58 32 B1 31 33 34 34 AF B5 28 58 32 |;g..X2.1344..(X2|
000032F0: AD 32 29 B3 B1 58 32 AD 32 A7 98 34 2C 22 20 22 |.2)..X2.2..4," "|
00003300: 3B 3A 8F 2D 20 53 45 50 45 52 41 54 45 20 48 45 |;:.- SEPERATE HE|
00003310: 58 20 4E 55 4D 42 45 52 53 00 41 3B 69 D4 82 58 |X NUMBERS.A;i..X|
00003320: 32 3A 98 34 2C C7 28 31 33 29 3B 3A 8F 2D 20 4C |2:.4,.(13);:.- L|
00003330: 4F 4F 50 20 54 4F 20 50 52 49 4E 54 20 4C 49 4E |OOP TO PRINT LIN|
00003340: 45 00 47 3B 6A D4 3A 00 5D 3B 6C D4 8B 58 32 B2 |E.G;j.:.];l..X2.|
00003350: 31 33 33 37 A7 98 34 2C C7 28 31 33 29 00 73 3B |1337..4,.(13).s;|
00003360: 71 D4 8B 58 32 B3 31 33 33 37 A7 52 42 B2 52 42 |q..X2.1337.RB.RB|
00003370: AA 33 32 00 89 3B 76 D4 8B 58 32 B1 31 33 33 37 |.32..;v..X2.1337|
00003380: A7 52 42 B2 52 42 AA 31 36 00 9B 3B 78 D4 8B 58 |.RB.RB.16..;x..X|
00003390: 32 B2 31 33 33 37 A7 52 42 B2 30 00 A1 3B 7C D4 |2.1337.RB.0..;|.|
000033A0: 3A 00 B3 3B 80 D4 82 58 3A A0 34 3A 41 24 B2 22 |:..;...X:.4:A$."|
000033B0: 22 3A 8E 00 B9 3B 74 D6 90 00 D9 3B 1F DB AC AC |":...;t....;....|
000033C0: AC AC AC 20 42 55 46 46 45 52 20 50 4F B5 45 52 |... BUFFER PO.ER|
000033D0: 20 83 20 2A 2A 2A 2A 2A 2A 00 DF 3B 21 DB 3A 00 | . ******..;!.:.|
000033E0: F7 3B 24 DB 83 20 38 33 39 2C 38 35 36 2C 39 36 |.;$.. 839,856,96|
000033F0: 38 2C 34 39 34 32 32 00 FD 3B 56 EA 3A 00 1A 3C |8,49422..;V.:..<|
00003400: 03 EA 83 20 35 2C 32 38 2C 33 30 2C 33 31 2C 31 |... 5,28,30,31,1|
00003410: 32 39 2C 31 34 34 2C 31 34 39 00 20 3C 68 EA 3A |29,144,149. <h.:|
00003420: 00 26 3C 69 EA 3A 00 58 3C 30 F2 99 22 93 11 1D |.&<i.:.X<0.."...|
00003430: 41 52 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 |ARE YOU SURE YOU|
00003440: 20 57 41 4E 54 20 54 4F 20 51 55 49 54 20 4E 4F | WANT TO QUIT NO|
00003450: 57 20 28 59 2F 4E 29 22 00 7A 3C 3A F2 8D 35 32 |W (Y/N)".z<:..52|
00003460: 34 30 30 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 |400:.A$.."Y".A$.|
00003470: B1 22 4E 22 A7 36 32 30 31 30 00 88 3C 44 F2 8B |."N".62010..<D..|
00003480: 41 24 B2 22 4E 22 A7 8E 00 93 3C 4E F2 99 22 93 |A$."N"....<N..".|
00003490: 22 3A A2 00 AA 3C 18 F6 9F 32 2C 38 2C 32 2C 22 |":...<...2,8,2,"|
000034A0: 23 22 3A 9F 31 2C 38 2C 31 35 00 E0 3C 22 F6 98 |#":.1,8,15..<"..|
000034B0: 31 2C 22 55 31 3A 22 32 3B 30 3B 32 3B 32 3A 8F |1,"U1:"2;0;2;2:.|
000034C0: 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |"...............|
000034D0: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
000034E0: 00 EA 3C 2C F6 A0 31 3A A0 32 00 2B 3D 2D F6 9F |..<,..1:.2.+=-..|
000034F0: 31 2C 38 2C 31 35 3A 84 31 2C 41 3A 8B 41 B2 30 |1,8,15:.1,A:.A.0|
00003500: A7 9E 36 34 37 33 38 3A 8F 22 14 14 14 14 14 14 |..64738:."......|
00003510: 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 |................|
00003520: 14 14 14 14 14 14 14 14 14 14 14 00 32 3D 36 F6 |............2=6.|
00003530: 89 31 00 00 00 FF 00 00 48 |.1......H |
..J...A.A.1:.A.1000,1045,1050,1100:. JUM
P OVER CREDITS TO THE REAL PROGRAM.X....
- A HANDY WAY TO SAVE A PROGRAM, "RUN2"
......1100:.- SKIP OVER MACHINE LANG. LO
ADS IF WE "RUN3" (SAVE TIME).S... 15:.15
,8,15: 15:......:(DIRRECT .ERACTI. WITH
SEC.RS)...... *LOAD MACHINE LANG. ROUTIN
ES*.-...A.A.1:. 40500.E....53281,CB:.532
80,CT.R....D$(1);".STARPOINT SOFTWARE PR
ESENTS..."......"......";.11);"DI-SECTOR
VER. 1.0G"......"..";.11);D$(2);"BY BRU
CE Q. HAMMOND":.- MY NAME UP IN LIGHTS..
.....10);"OF THE HAMMSTER GROUP":.- SOME
REALLY NEAT PEOPLE!.]....A.2.."DI-2",8,
1:.- LOAD THE LOWER MACHINE LANGUAGE PRO
GRAM.......A.3.."DI-3",8,1:.- LOAD THE U
PPER MACHINE LANGUAGE PROGRAM..V.B..B(20
60)..143..64738:."......................
.........D.:...F.:...G.. **** INITIALI
ZE ****...I.:.&.L.. * VARIABLES, STRINGS
*.S.O.X.0:A$."":A1$."":HX$."0123456
789ABCDEF":HT$."........................
.."...Q.A.0:A1.0:V.0:F1.0:.- SOME OFTEN
USED VARIABLES...R..T$(100).....:.....:.
E...:...... ** SET UP BUFF PNTR ARRAY **
.....:.7.... BP(5):.- A NIFTY ARRAY THAT
CONTAINS THEN MEMORY LOCATIONS (CONT.).
.....- OF ALL POINTERS TO THE CURRENT DI
SPLAY/WORK BUFFER. THIS BUFFER CAN.N...
.- BE MOVED BY POKING ALL BP(X) LOCATION
S WITH LOBYTE & BP(X)+1,HIBYTE......- EX
AMINE THE SECTOR ROUTINE ANDMAIN MEMORY
EDITOR FOR A WORKING EXAMP..,....X.1.5
:.M.D.. BP(X):.: READ BP LOCATIONS.^.
N..X :.D.X.:.J...:.P...:...... *
**** MISC INIT GARBAGE *****.....:.....
. ** SET UP VERT TAB STRING **.D...:....
.VT$."...........................":.- FO
R VERT TAB XX USE ?LEFT$(VT$,XX);.....:.
..2.:.B.7.INP$."HEX":. - DEFAULT EDIT MO
DE.H.<.:.N.F.:.`.F.. - MAIN MENU.F.H.:.{
.J.. - DRAW BOARDER...L.:...P..".".D$(3)
;:.- CLEAR SCREEN AND SET TEXT COLOR TO
ORANGE...R..G(8);:.- DISABLE LOWER CASE
TOGGLE....U.." UCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCI".".Z..X.1.22.5...." G";.38
);"H".<....X.L...." JCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCK";.R.*.:.X.,.:.~...:..
./.. * DISPLAY TITLE *...0.:...4..D$(1)
;:.: TEXT COLOR...>..".............
DI-SECTOR OPTIONS"...H..:....R.:.....:..
.... **** DISPLAY OPTIONS *****.....:.J.
..RET$.G(13):.- C/R
.Z...RET$.RET$."....<":.- TAB OVER AND
PRINT "<"......D$(2);:.- SET THE TEXT T
O GREY.Z....RET$;"1> SECTOR EXAMINE/MODI
FY":.- DISPLAY THE OPTIONS......RET$;"2>
DISK BACKUP" :.8....R
ET$;"3> FREE SECTOR MAP" :
.G.E..RET$;"4> EXIT TO BASIC"
:.M.J.:.S.L.:...O.. ** MENU PRO
MPT **...P.:.P.T..".......SELECTION PLEA
SE . .":.- ASK FOR THE SELECTION.V...:..
...:...... **** GET MENU INPUT ****....
.:.G.... 52400:.- GO AND WAIT FOR A KEY
TO BE PRESSED (RETURN IT IN A$).`...:
:...... * VALIDATE OPER
ATOR INPUT *.....:...$.A.E(A$):. CONVERT
INPUT TO A NUMBER......A.5.A.1.2300:.-
GO BACK AND WAIT AGAIN IF NOT 1,2,3 OR 4
...3.:...8.. *** MENU BRANCH LOGIC ***.
6.B..A.10000,20000,40000,62000.W.L.F1.0:
.1300:.- REDISPLAY MENU.]..#:.C..#:.I..#
:.O..#:.U..#:....#. **** DISPLAY TRACK S
ECTOR ****. ..#:....#:....#. - SECTOR MO
DUAL.B..#:....'. 11600:. - PROMPT TRK,SE
C...)':....'. * POKE IN BUFF PNTR VALUES
*.*./'BL.49152::. - SECTOR BUFFR..C.0'H
B.BL.256:. - HIBYTE._.1'LB.BL.(HB.256):.
LOBYTE.J.3'.X.1.5...5'.BP(X),LB:.BP(X).
1,HB...7'.X...8':...:'.- SEND FOR PIZZA
(OR A SECTOR)...=':.T.B'.".";:. CLEAR SC
REEN...D'. 52600:. - VALIDATE TN,SN...G'
. 51000:. - GET IT.<.H'.ER$.."OK".. 5310
0:.10058:.- OH NO!! AN ERROR.E.I'F1.0.Z.
J'.F1.1.F1.2.10052.}.L'. ** PRNT BUFF (
ASCII-HEX) **...N':...V'. 51500:.-PRINT
ASCII...`'. 52000:.-PRINT HEX.T.J'. 5210
0:.-WAIT FOR COMMAND.Z.O':...T'.F1.1..:.
- TO M'MENU...~'.F1.2.10000:. - NEW SPO
T.2.N'. 10050:. - GET ANOTHER SEC..8..*:
.>..*:.Z..*. -- EDIT MEMORY BUFFER.`..*:
....*A$."":.214,22:.:..33)"MOD "....+AP
.55296:HP.55616:. 52300....+. 214,12:...
..+..35);"";.P..+A$.D(M):.A$;" ".Z..+A$.
""....+.L1,C2:.L2,C1:.L2.1,C1....+. 5240
0:. -- WAIT KEY.). +.A$."."..52500:.1101
0.C.%+.A$."."..52510:.11010.].*+.A$.".".
.52520:.11010.W./+.A$."."..52530:.11010.
..4+A.F(A$)...9+.A.64.A.71.INP$."HEX"..5
2800:. - COMPILE HEX NUMBER....+.A.47.A.
58.INP$."HEX"..52800:. - COMPILE HEX NUM
BER....+.(A.47.A.58.A.32).INP$."DEC"..53
400:.- DECIMAL COMPILE.Y..+.INP$."ASC"..
53600:.- ASCII CONVERTION.Q..,.F1.1..529
00:.52500....,.A$.G(13).52540....,. 1101
0....,:....,:....,:....,:.E..,.- WRITE S
ECTOR TO DISK.K..,:.V..,.11900....,.15,8
,15....,.5,8,5,"#"....-:....-.- SEND SEC
TOR TO DRIVE.E..-.X.1.2:.15,"B-P";5;0:.8
48:.15,"U2";5;0;TN;SN.L.#-.X.[.(-.15,ER,
ER$.F.)- 5: 15...*-.ER$.."OK"..53100:.11
565:.- TRAP THE ERROR...+-F1.0...--.F1.1
.F1.2..11505...A-....F-:...K-. - SET TRA
CK AND SECTOR...P-.".";:.- TEXT...U-.:..
..Z-. "DESIRED TRACK";T$.+.D-. "DESIRED
SECTOR";T1$.Q.N-V.E(T$):.H(T$,1)."$".A$.
T$:.53700.Z.S-TN.V...X-V.E(T1$):.H(T1$,1
)."$".A$.T1$:.53700...}-SN.V... -....|..
".WRITE TO SAME TRACK/SECTOR (Y/N)";A$.
M....A$."Y"........A$.."N".11900...... 1
1600..........N:....N:....N:....N:....N:
.1..N. TRANSFER TO BACKUP ROUTINE.;. N."
.";.M."N.".......INSERT DI-SECTOR DISK,
PRESS RETURN"...#N.A$:.A$..G(13).20003..
.*N."....................NOW LOADING DI-
BACKUP"...4N. 646,B(53281):.- MAKE ALL T
EXT INVISIBLE NOW...>N.:.".";...HN.198,2
:.631,13:.632,13.8.RN."..LOAD"G(34)"DI-B
ACKUP";G(34)",8".I.\N."....RUN.";.O.ZN..
U.6.:.[.7.:.A.8.:.G.9.:...;.. ** DISK FR
EE SPACE MAP **...<.:...@.TN.18:SN.0:.-
TRACK/SECTOR OF BAM.S.J.BL.49152::. - SE
CTOR BUFFR....T.HB.BL.256:. - HIBYTE...^
.LB.BL.(HB.256):. LOBYTE...H..X.1.5.-.R.
.BP(X),LB:.BP(X).1,HB.4.|..X.:...:.W....
- GO GET THE BAM THING..]...:.{....D$(2)
;:.- SET TEXT COLOR......".";:. CLEAR SC
REEN...... 51000:. - RETRIVE SECTOR FROM
DISK...B..ER$.."OK".. 53100:.".";:.- OH
NO!! AN ERROR...L..F1.40120...V..ER$."E
RR".F1.0.......F1.0.2....- DISPLAY THE M
AP.8...:.B....".";......" 123456789.0123
456789.0123456789.012345":.- TRACK INDEX
ROW............X.0.9 :...&..I(D(X),1)..
.:..X.K.D..- MAKE SECTOR INDEX COL..V.N.
.X.0.9...X..".";I(D(X),1)...L..X......"0
";.....:......- MAKE BIT TABLE.....:.2..
.X.49153:TN.1:SN.0.M....TN.1.35:.- TRACK
LOOP.Y...RB.TN.4.X:.- LOCATION OF BYTE
IN BUFFER.....SN..1:.52615:.- RETURNS NU
MBER OF SECTORS IN THIS TRACK IN SN... .
.MS.SN:SN.0:.- SET MAX # SECTORS, THEN Z
ERO CURRENT SECTOR COUNT.0 ...RB.RB.RB.2
:.- SELECT RELITIVE BYTE TO READ.H F.A.B
(RB):.- READ RELITIVE BYTE FOR THE CURRE
NT TRACK.U P..BIT.0.7.. ...A.2.BIT.T$."-
":.40440:.- SET SECTOR TO UNUSED..K ..T$
."X":.- SET SECTOR TO USED... ..SN.SN.1:
TK$.TK$.T$."..".%!...SN.MS.BIT.8:.BIT:RB
.RB.1:.RB:.40470:.- INNER LOOPS DONE..3!
... BIT:.RB.F!..."...";.TN);TK$:TK$."":.
TN :. PRINT THE TRACK.L!..:..!...".....
.................... H=HARDCOPY, N=NE
W DISK, X=ABORT";..!...52400.J! ..A$."X"
....!"..A$."H"..51600..!$..A$."N"..40000
..!&..40476.."*.:.."+.:..",.:.."/.: .- L
OAD CONFIGURATION FILE.D"4..2,8,2,"DI-5,
S,R".O">..X.1.3.\"H..2,D$(X).C"R..X."\.
.2,CB:.2,CT:.2,C1:.2,C2.."F. 2,8,2.."P..
..".G:.."2G:.."3G. ** PUT SEC INTO DRIVE
BUFF **.F"4G:.."6G. * FOR OPENERS *.
."7G:.."8G.15,8,15..#BG.5,8,5,"#"..#DG:.
"#GG. :: READ IT IN ::.9#LG.15,"U1";
5;0;TN;SN.H#NG.15,ER,ER$.N#PG:.Q#QG. **
LOAD SEC INTO MEM BUFF **.W#R.:..#VG. 82
8..#`G:..#EG. ** READ SECTOR RETURN **..
#JG 5: 15:...#"I:..#$I:..#'I. *** PRINT
BUFF IN ASCII ***..#(I:..$,I."."D$(1);:.
X.1.256.32..$6I. 1018,X.1..$@I. 49408:..
($JI.X:...$.I:.4$.I:.:$.I:.@$.I:.X$.I.-
HARD COPY OF BAM.F$.I.4,4:X3.0..$.I.4,G(
13);.5);"DISK NAME --> ";:.X.49296.49311
:A.B(X)..$.I.A.160..4,G(A);:..C$.I.4,G(1
3);..%.I.4,G(13);" 1 3 5 7 9
11 13 15 17 19 ";.(%.I.4,"21 23
25 27 29 31 33 35".]%.I.4," 2
4 6 8 10 12 14 16 18 ";..%
.I.4,"20 22 24 26 28 30 32 34"..%
.I.X.1104.1944.40.A%.I.4,G(13);:.X3.21..
4,X3;.1..(X3.9));.M%.IX3.X3.1..%.I.X2.X.
1.X.38..%BIA.B(X2)..%LI.A.24.A.88..&VI.4
,G(A);" ";..&.I.X2,X: 4..&.I..#&.K:.)&.K
:./&.K:.O&.K. *** PRINT BUFF IN HEX ***.
U&.K:.M& K.D$(2);:.X.1.256.16.{&*K.1018,
X.1..&4K. 954..&>K.:.X..&HK...&\K:. &ZK:
..&{K:.J&K. *** SECTOR MANIP. PARSOR *
**.P&.K:.X&.KM.0..&.K. 52700:. - DISPLAY
INFO..'.K. 52400:. - WAIT KEYPRESS.>'.K
.A$."M"..11000:.- GO INTO MODIFY MODE..K
'.K.A$."W"..11500:.:.- WRITE SECTOR TO D
ISK..'.K.A$."A".INP$."ASC":.- SET TO ASC
II MODE.E'.K.A$."D".INP$."DEC":.- SET TO
DECIMAL MODE..'.K.A$."H".INP$."HEX":.-
SET TO HEXADECIMAL MODE."(JK.A$."C". .:.
- CANCEL ALL MODIFICATIONS.T(TK.A$."L".
.11600:.:.E- PROMPT FOR NEW LOCATION.V(.
K.A$."S"..54300:.- SCREEN DUMP..(.K.A$."
X". F1.1:.:.- EXIT TO MAIN MENU..(.K.A$.
".".SN.SN.1:.:.- RIGHT..(.K.A$.".".SN.SN
.1:.:.- LEFT..(.L.A$.".".TN.TN.1:.:.-DOW
N..).L.A$.".".TN.TN.1:.:.- UP.E).L.A$."N
"..53800:.:.- GET NEXT SECTOR OF FILE.Z)
$L.A$."?".A$."/"..54000:.- HELP USER WIT
H COMMANDS..)AL.52103..)BL:..)GL. -- CAL
C. HEX/ASCII CUR. LOC..D)LLL1..(M.32).8.
M.AP..)VLL2..(M.16).8.M.2.HP..)`L...).L:
..).L:..*.L. - RETURN KEYSTOKE IN A$..*.
L. A$.&*.L.A$."".52400.,*DL..2*.M:.8*.M:
.\*.M. - CURSOR MOVES FOR BUFF. EDIT.S*.
MM.M.(M.255):.52540..*.MM.M.(M.0):.52540
:.-FUN LOGIC..*(MM.M.(M.15).16:.52540.G*
2MM.M.(M.240).16:.52540..*<M.L1,C1:.L2,C
2:.L2.1,C2..*AM...*CM...*NM:..*OM:..+SM.
- VALIDATE TN,SN./+XM.SN..1..52620:. -
SKIP IT.Q+.MTN.TN.1:. - DEC. TRACK NUMBE
R.S+.M. - CALULATE CURRENT SECTOR #..+.M
SN.20.((TN.17).2).(TN.24).(TN.30)..+.M.T
N.18.SN.20..52660..+.M.TN.17.TN.25.SN.18
. .52660.., M.TN.24.TN.31.SN
.17. .52660..,.M.TN.30.SN.16
..52660.9,.M.TN.35.TN.1.TN.1:SN.0.?,.M..
R,.MTN.TN.1:SN.0:..X,RM:.^,SM:.D,TM:..,W
M. - DISPLAY BUFFER INFO...,.M. 214,0:.D
$(3)..,.M..33);"TRK";TN..,.M..33);"SEC";
SN..,.M..Q,.M..33);ER$;ER.W,.N...,.N..33
);"BUFFER"..,.N..32);BL..-.N. 214,12:...
-"N..33);"RB";.*-'N.H(D(M),2);" ".3-)NA
.20.\-,N.214,A:.:..33);INP$:.:..33);"CMD
? ".B-1N..H-6N:.N-7N:.T-8N:..-:N. - HEX
TO DEC (TWO DIG. ONLY)..-;N. - SOME SLO
PPY BUT QUICK.Y-<N. - STRAIGHT LINE CODE
..OH WELL..-=N. - EVEN FASTER WITH OUT A
LL...>N. - THESE DUMB REMARKS!!...?N:.;.
@NA1$.A1$.A$:. - KEYSTROKES.S.BN.214,18:
.:..33);A1$...EN.A1$.A$..:. - SEE IF WEH
AVE TWO DIGITS, ELSE RETURN.J.JN.A1$.":"
.V.E(H(A1$,1)).16:.- STUPID TRICK TO FIN
D DIGIT #1../TN.A1$.":".V.(F(H(A1$,1)).5
5).16:. - HORRID TECH. BUT IT WORKS.G/^N
.I(A1$,1).":".V.V.E(I(A1$,1)):.-SAME DUM
B METHOD FOR #2.L/HN.I(A1$,1).":".V.V.F(
I(A1$,1)).55.U/.NF1.1../.N.:. - GO BACK.
./.N:../.N:../.N:../.N. - CHANGE SCREEN
AND BUFFER../ N. - USED BY EDIT BUFFER R
OUTINE../.N:../.N.A1$.""..52300:.52985..
0.NAP.1024:HP.1344..0.N.52300.?0.N.INP$.
"DEC".INP$."ASC"..53500.]0.N.V.33.V.90..
L1,121:.52940.M0.N.V.64..L1,V..0BN.V.63.
.L1,V.64..0LNA.F(H(A1$,1))..0QN.A.58..L2
,A..0VN.A.64..L2,A.64.G0.NA.F(I(A1$,1)).
Y0.N.A.58..L2.1,A..0.N.A.64..L2.1,A.64..
0.N.BL.M,V..1.NA1$."":A$." ".%1.N.214,
18:.:..33);A$.B1.NAP.55296:HP.55616:.523
00.M1.NF1.0:..S1.N:.Y1.O:.Q1.O. - DISK E
RROR TRAP.W1.O:..1LO."..";..1VO." !!! ER
ROR NUMBER ";ER;" !!!"..1.O.ER$;" HAS OC
CURED"..1.O.:."ALL OR PART OF DISK SECTO
R"..1.O."MAY BE IN BUFFER AREA"..2.O..)2
.O."N>ON-STOP, R>ETRY, D>ISPLAY,".?2.O.
A$:.A$."X".F1.0.K2.O.F1.1...Y2.OER$."ERR
".E2*P. 52400.X24P.A$."N".F1.1:...2>P.A$
."R".F1.2:...2HP.A$."D".F1.0:...2RP.A$."
S".SN.SN.1:F1.2:...2.P:.V2.P.- DECIMAL C
OMPILE..3.P.A..32.A1$.A1$.A$:.- BUILD NU
MBER. (SPACE IS A TERMINATOR).-3.P.214,1
8:.:..33);A1$.O3.P.C(A1$).3.A.32..53430:
.- NUMBER IS COMPLETE?? IF SO, GET SET..
.3.P.:.- BACK AGAIN..3.P.E(A1$).255.A1$.
"255".J3.PF1.1:V.E(A1$):.:.- SET MOD. FL
AG, RETURN.P3.P:.V3.P:..4.P.- CONVERT V
TO HEX "A1$" (TWO DIGIT, 00-FF, ONLY)..4
.PA..(V.16).R4.QA1$.J(HX$,A.1,1):.- GET
FIRST DIGIT OF HEX STRING.._4.QA.V.16.A.
.4.QA1$.A1$.J(HX$,A.1,1):.:.- GET SECOND
DIGIT AND RETURN..4VQ:..4WQ:.N4[Q.- ASC
II CONVERTION TO DECIMAL VALUE.Z4`QV.F(A
$)..4JQ.V.128.V.32.V.0:...5TQF1.1:A1$.A$
:...5.Q:..5.Q:.V5.Q.- GENERAL HEX. TO DE
C. CONVERTION.. SEND $DDDD IN A$. (ANY L
ENGTH)..5AQ.- WILL RETURN DECIMAL NUMBER
IN VAR. V..5DQV.0:.H(A$,1)."$".A$.I(A$,
C(A$).1)..5GQ. X.C(A$).1.0..1.Q5IQ.X.C(A
$).1.0..1..5NQA1..(X.C(A$)).1..5XQA1$.J(
A$,X.1,1)..6.Q.X2.0.15.*6.Q.A1$.J(HX$,X2
.1,1).A.16.(A1).X2.36.R. X2.=6.RV.V.A.D6
.R.X.J6.R..D6(RTN.B(BL):SN.B(BL.1):..J6.
R:.P6.R:.V6.R:.|6.R:..6.R.- ONLINE HELP.
.6.R:..6.R.".";.C6.R.".";.9)"DI-SECTOR O
NLINE HELP"..6.S.".. A>SCII MODE"..6
.S." C>ANCEL MODIFICATIONS"..7.S."
D>ECIMAL MODE".@7.S." H>EXADECIMA
L MODE SELECTION.]7"S." L>OCATION CH
ANGE".X7,S." M>ODIFY SECTOR"..76S."
N>EXT SECTOR OF FILE"..7;S." S>C
REEN DUMP TO PRINTER"..7@S." W>RITE
SECTOR TO DISK"..7JS.:...8TS." CURSO
R LEFT: PREVIOUS SECTOR".98HS." CU
RSOR RIGHT: NEXT SECTOR".C8RS." CUR
SOR UP: PREVIOUS TRACK"..8|S." C
URSOR DOWN: NEXT TRACK"..8.S." X:
EXIT TO MAIN MENU"..8.S."
?: ONLINE HELP (THIS)"..9.
S.:.:."<<<<<< PRESS ANY KEY TO CONTINUE
>>>>>>";.$9BS. 52400.J9LS.51500:.- REPRI
NT SECTOR IN ASCII.N9VS.52000:.- REPRINT
SECTOR IN HEX.T9.S..Z9.T:..9.T:..9.T:..
9.T:..9.T.- SCREEN DUMP TO PRINTER.O9.T.
4,4:RB.0:.214,22:.:..33)"PRINT"..:.T.4,"
DI-SECTOR SCREEN DUMP OF T
RACK";TN;"SECTOR";SN.!:!T.4,G(13).5:&T.X
.1024.2000.40.]:+T.RB.256..4,"REL BYTE";
RB;"-->";.7);.P:,T.RB.10..4," ";..:-T.RB
.100..4," ";..:0T.X2.X.X.32..::TA.B(X2):
A.A.127..:?T.A.63.A.45.G:DT.A.32.A.A.64.
S:NTA$.G(A)..:XT.4,A$;..;GT.X2.1344..(X2
.2)..X2.2..4," ";:.- SEPERATE HEX NUMBER
S.A;IT.X2:.4,G(13);:.- LOOP TO PRINT LIN
E.G;JT:.];LT.X2.1337..4,G(13).S;QT.X2.13
37.RB.RB.32..;VT.X2.1337.RB.RB.16..;XT.X
2.1337.RB.0..;|T:..;.T.X: 4:A$."":...;TV
..Y;....... BUFFER PO.ER . ******..;!.:.
.;$.. 839,856,968,49422..;V.:..<... 5,28
,30,31,129,144,149. <H.:.&<I.:.X<0.."...
ARE YOU SURE YOU WANT TO QUIT NOW (Y/N)"
.Z<:..52400:.A$.."Y".A$.."N".62010..<D..
A$."N"....<N..".":...<...2,8,2,"#":.1,8,
15..<"..1,"U1:"2;0;2;2:."...............
..................<,. 1: 2.+=-..1,8,15:.
1,A:.A.0..64738:."......................
............2=6..1......H
> CLICK IMAGE PREVIEW FOR FULL MODAL