PAGE26-38
FILE INFORMATION
FILENAME(S): PAGE26-38
FILE TYPE(S): SEQ
FILE SIZE: 28.2K
FIRST SEEN: 2025-10-20 14:30:31
APPEARS ON: 1 disk(s)
FILE HASH
7c77523214eafe6ee8c0f27be3fa8b2784153cafd25a85e3949550b92528b861
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 30 | PAGE26-38 | SEQ | Treasure Chest - Klaus Der Suhler | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF |... ...| 00000010: D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 |. .ERNAL .OUTINE| 00000020: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 31 2D 32 33 0D 0D 0D 20 20 | 1-23... | 00000050: 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E | .UNCTION| 00000060: 20 CE 41 4D 45 3A 20 C4 D2 C1 D7 C3 C8 0D 20 20 | .AME: ....... | 00000070: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00000080: 20 C4 52 41 57 53 20 41 20 43 48 41 52 41 43 54 | .RAWS A CHARACT| 00000090: 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |ER.. .A| 000000A0: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 30 |LL ADDRESS: $.20| 000000B0: 32 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |2. .NPU| 000000C0: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 | .| 000000E0: 20 20 20 20 20 20 20 20 20 D4 48 45 20 C1 D3 C3 | .HE ...| 000000F0: C9 C9 20 56 41 4C 55 45 20 4F 46 20 54 48 45 20 |.. VALUE OF THE | 00000100: 43 48 41 52 41 43 54 45 52 2E 0D 20 20 20 20 20 |CHARACTER.. | 00000110: 20 20 20 20 20 20 20 20 20 20 24 30 35 20 20 20 | $05 | 00000120: 20 20 20 20 D2 4F 57 20 54 4F 20 50 52 49 4E 54 | .OW TO PRINT| 00000130: 20 4F 4E 20 28 31 20 41 42 4F 56 45 20 54 48 45 | ON (1 ABOVE THE| 00000140: 20 55 4E 44 45 52 4C 49 4E 45 29 2E 0D 20 20 20 | UNDERLINE).. | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 24 31 38 2D | $18-| 00000160: 24 31 39 20 20 20 C3 4F 4C 55 4D 4E 20 54 4F 20 |$19 .OLUMN TO | 00000170: 50 52 49 4E 54 20 49 4E 2E 0D 20 20 20 20 20 20 |PRINT IN.. | 00000180: 20 20 20 20 20 20 20 20 20 24 33 33 20 20 20 20 | $33 | 00000190: 20 20 20 D4 48 45 20 54 4F 50 20 4D 41 52 47 49 | .HE TOP MARGI| 000001A0: 4E 20 28 D5 53 55 41 4C 4C 59 20 30 29 2E 0D 20 |N (.SUALLY 0).. | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 33 | $3| 000001C0: 34 20 20 20 20 20 20 20 D4 48 45 20 42 4F 54 54 |4 .HE BOTT| 000001D0: 4F 4D 20 4D 41 52 47 49 4E 20 28 D5 53 55 41 4C |OM MARGIN (.SUAL| 000001E0: 4C 59 20 31 39 39 29 2E 0D 0D 20 20 20 20 20 20 |LY 199)... | 000001F0: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A | .ESCRIPTION:| 00000200: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 | .HIS ROUTINE IS| 00000210: 20 4E 4F 54 20 45 58 41 43 54 4C 59 20 54 48 45 | NOT EXACTLY THE| 00000220: 20 53 41 4D 45 20 41 53 20 C4 D3 D0 C3 C8 D2 2E | SAME AS .......| 00000230: 20 D4 48 49 53 0D 20 20 20 20 20 20 20 20 20 20 | .HIS. | 00000240: 52 4F 55 54 49 4E 45 20 44 4F 45 53 20 4E 4F 54 |ROUTINE DOES NOT| 00000250: 20 50 52 4F 43 45 53 53 20 43 4F 4E 54 52 4F 4C | PROCESS CONTROL| 00000260: 20 43 48 41 52 41 43 54 45 52 53 20 41 54 20 41 | CHARACTERS AT A| 00000270: 4C 4C 2E 20 20 C9 54 20 41 4C 53 4F 20 44 4F 45 |LL. .T ALSO DOE| 00000280: 53 0D 20 20 20 20 20 20 20 20 20 20 4E 4F 54 20 |S. NOT | 00000290: 20 43 48 45 43 4B 20 4C 45 46 54 20 41 4E 44 20 | CHECK LEFT AND | 000002A0: 52 49 47 48 54 20 4D 41 52 47 49 4E 53 20 41 54 |RIGHT MARGINS AT| 000002B0: 20 41 4C 4C 2E 20 20 C9 54 20 4F 4E 4C 59 20 43 | ALL. .T ONLY C| 000002C0: 48 45 43 4B 53 20 54 4F 50 20 41 4E 44 0D 20 20 |HECKS TOP AND. | 000002D0: 20 20 20 20 20 20 20 20 42 4F 54 54 4F 4D 20 4D | BOTTOM M| 000002E0: 41 52 47 49 4E 53 20 53 4F 20 54 48 41 54 20 49 |ARGINS SO THAT I| 000002F0: 54 20 53 54 41 59 53 20 4F 4E 20 53 43 52 45 45 |T STAYS ON SCREE| 00000300: 4E 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |N.... .| 00000310: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C4 D2 |UNCTION .AME: ..| 00000320: D6 CE C1 CD 0D 20 20 20 20 20 20 20 20 20 20 D0 |..... .| 00000330: 55 52 50 4F 53 45 3A 20 C3 4F 4D 50 55 54 45 20 |URPOSE: .OMPUTE | 00000340: 54 48 45 20 41 44 44 52 45 53 53 20 4F 46 20 54 |THE ADDRESS OF T| 00000350: 48 45 20 44 49 53 4B 27 53 20 4E 41 4D 45 2E 0D |HE DISK'S NAME..| 00000360: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00000370: 44 44 52 45 53 53 3A 20 24 C3 32 39 38 0D 20 20 |DDRESS: $.298. | 00000380: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00000390: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 D8 20 20 20 20 | . | 000003B0: 20 20 20 20 20 C1 44 44 52 45 53 53 20 54 4F 20 | .DDRESS TO | 000003C0: 50 4C 41 43 45 20 50 4F 49 4E 54 45 52 20 49 4E |PLACE POINTER IN| 000003D0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000003E0: 20 24 38 34 38 39 20 20 20 20 20 C3 55 52 52 45 | $8489 .URRE| 000003F0: 4E 54 20 44 52 49 56 45 20 4E 55 4D 42 45 52 2E |NT DRIVE NUMBER.| 00000400: 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 |. .UTPU| 00000410: 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T:. | 00000420: 20 20 CC 4F 43 41 54 49 4F 4E 20 49 4E 20 5A 45 | .OCATION IN ZE| 00000430: 52 4F 20 50 41 47 45 20 50 4F 49 4E 54 45 44 20 |RO PAGE POINTED | 00000440: 54 4F 20 42 59 20 D8 20 48 41 53 20 54 48 45 20 |TO BY . HAS THE | 00000450: 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 0D 20 |ADDRESS OF THE. | 00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 55 | CU| 00000470: 52 52 45 4E 54 20 44 52 49 56 45 27 53 20 4E 41 |RRENT DRIVE'S NA| 00000480: 4D 45 2E 0D 20 20 20 20 20 20 20 20 20 20 D0 52 |ME.. .R| 00000490: 45 50 41 52 41 54 4F 52 59 20 52 4F 55 54 49 4E |EPARATORY ROUTIN| 000004A0: 45 53 3A 20 CF D0 CE C4 D3 CB 0D 0D 20 20 20 20 |ES: ........ | 000004B0: 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F | .ESCRIPTIO| 000004C0: 4E 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 4E |N: .HIS ROUTIN| 000004D0: 45 20 20 43 4F 4D 50 55 54 45 53 20 54 48 45 20 |E COMPUTES THE | 000004E0: 41 44 44 52 45 53 53 20 4F 46 20 54 48 45 20 20 |ADDRESS OF THE | 000004F0: 43 55 52 52 45 4E 54 0D 20 20 20 20 20 20 20 20 |CURRENT. | 00000500: 20 20 44 52 49 56 45 27 53 20 20 4E 41 4D 45 20 | DRIVE'S NAME | 00000510: 20 42 59 20 4D 55 4C 54 49 50 4C 59 49 4E 47 20 | BY MULTIPLYING | 00000520: 54 48 45 20 44 52 49 56 45 20 4E 55 4D 42 45 52 |THE DRIVE NUMBER| 00000530: 20 28 4D 49 4E 55 53 20 38 29 20 20 42 59 20 20 | (MINUS 8) BY | 00000540: 31 38 2C 0D 20 20 20 20 20 20 20 20 20 20 54 48 |18,. TH| 00000550: 45 4E 20 20 54 48 45 20 20 4F 46 46 53 45 54 20 |EN THE OFFSET | 00000560: 4F 46 20 24 38 34 31 C5 20 49 53 20 41 44 44 45 |OF $841. IS ADDE| 00000570: 44 20 54 4F 20 54 48 41 54 2E 20 20 D4 48 45 20 |D TO THAT. .HE | 00000580: 52 45 53 55 4C 54 20 20 4F 46 20 20 54 48 45 0D |RESULT OF THE.| 00000590: 20 20 20 20 20 20 20 20 20 20 43 4F 4D 50 55 54 | COMPUT| 000005A0: 41 54 49 4F 4E 20 49 53 20 53 54 4F 52 45 44 20 |ATION IS STORED | 000005B0: 41 54 20 54 48 45 20 5A 45 52 4F 20 50 41 47 45 |AT THE ZERO PAGE| 000005C0: 20 41 44 44 52 45 53 53 20 49 4E 20 D8 2E 0D 0D | ADDRESS IN ....| 000005D0: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 000005E0: 49 4F 4E 20 CE 41 4D 45 3A 20 C4 D2 D6 D3 C5 D4 |ION .AME: ......| 000005F0: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00000600: 53 45 3A 20 D3 45 54 20 43 55 52 52 45 4E 54 20 |SE: .ET CURRENT | 00000610: 44 52 49 56 45 2E 0D 20 20 20 20 20 20 20 20 20 |DRIVE.. | 00000620: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 00000630: C3 32 C2 30 0D 20 20 20 20 20 20 20 20 20 20 C9 |.2.0. .| 00000640: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 00000650: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 00000660: 20 20 C1 20 20 20 20 20 20 20 20 20 C4 45 56 49 | . .EVI| 00000670: 43 45 20 4E 55 4D 42 45 52 20 4F 46 20 44 52 49 |CE NUMBER OF DRI| 00000680: 56 45 20 28 38 2D 31 31 29 2E 0D 20 20 20 20 20 |VE (8-11).. | 00000690: 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 | .UTPUT:. | 000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 24 C2 C1 20 | $.. | 000006B0: 20 20 20 20 20 20 D3 45 54 20 54 4F 20 4E 45 57 | .ET TO NEW| 000006C0: 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 2E 0D | DEVICE NUMBER..| 000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 000006E0: 38 34 38 39 20 20 20 20 20 D3 45 54 20 54 4F 20 |8489 .ET TO | 000006F0: 4E 45 57 20 44 52 49 56 45 20 4E 55 4D 42 45 52 |NEW DRIVE NUMBER| 00000700: 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00000710: 43 52 49 50 54 49 4F 4E 3A 20 20 C9 46 20 20 54 |CRIPTION: .F T| 00000720: 48 45 20 20 44 52 49 56 45 20 42 45 49 4E 47 20 |HE DRIVE BEING | 00000730: 53 50 45 43 49 46 49 45 44 20 49 53 20 4E 4F 54 |SPECIFIED IS NOT| 00000740: 20 20 54 48 45 20 20 43 55 52 52 45 4E 54 0D 20 | THE CURRENT. | 00000750: 20 20 20 20 20 20 20 20 20 44 52 49 56 45 20 20 | DRIVE | 00000760: 54 48 45 4E 20 20 C3 CC D2 D2 C4 D9 20 49 53 20 |THEN ...... IS | 00000770: 43 41 4C 4C 45 44 20 54 4F 20 43 4C 45 41 52 20 |CALLED TO CLEAR | 00000780: 54 48 45 20 20 43 55 52 52 45 4E 54 20 20 44 52 |THE CURRENT DR| 00000790: 49 56 45 2E 20 20 D4 48 45 4E 0D 20 20 20 20 20 |IVE. .HEN. | 000007A0: 20 20 20 20 20 4C 4F 43 41 54 49 4F 4E 53 20 24 | LOCATIONS $| 000007B0: C2 C1 20 41 4E 44 20 24 38 34 38 39 20 41 52 45 |.. AND $8489 ARE| 000007C0: 20 53 45 54 20 54 4F 20 54 48 45 20 4E 45 57 20 | SET TO THE NEW | 000007D0: 44 52 49 56 45 20 4E 55 4D 42 45 52 2E 20 CE 4F |DRIVE NUMBER. .O| 000007E0: 20 4F 54 48 45 52 0D 20 20 20 20 20 20 20 20 20 | OTHER. | 000007F0: 20 4C 4F 43 41 54 49 4F 4E 53 20 20 41 52 45 20 | LOCATIONS ARE | 00000800: 41 46 46 45 43 54 45 44 2C 20 20 4E 4F 52 20 49 |AFFECTED, NOR I| 00000810: 53 20 41 4E 59 54 48 49 4E 47 20 41 43 54 55 41 |S ANYTHING ACTUA| 00000820: 4C 4C 59 20 44 4F 4E 45 20 57 49 54 48 20 20 54 |LLY DONE WITH T| 00000830: 48 45 0D 20 20 20 20 20 20 20 20 20 20 44 52 49 |HE. DRI| 00000840: 56 45 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |VE.... | 00000850: C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C4 |.UNCTION .AME: .| 00000860: D2 D7 CD CE D5 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00000870: D0 55 52 50 4F 53 45 3A 20 D2 45 44 52 41 57 53 |.URPOSE: .EDRAWS| 00000880: 20 54 48 45 20 50 52 45 53 45 4E 54 20 4D 45 4E | THE PRESENT MEN| 00000890: 55 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |U.. .AL| 000008A0: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 39 33 |L ADDRESS: $.193| 000008B0: 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 |.. .ESC| 000008C0: 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 4F |RIPTION: .HIS RO| 000008D0: 55 54 49 4E 45 20 52 45 44 52 41 57 53 20 54 48 |UTINE REDRAWS TH| 000008E0: 45 20 43 55 52 52 45 4E 54 20 4D 45 4E 55 2E 0D |E CURRENT MENU..| 000008F0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 |......... | 00000900: 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 | .... .ERNAL .| 00000910: 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 |OUTINES | 00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 32 | 1-2| 00000940: 34 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |4... .U| 00000950: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C4 D3 C5 |NCTION .AME: ...| 00000960: D4 D5 D0 0D 20 20 20 20 20 20 20 20 20 20 D0 55 |.... .U| 00000970: 52 50 4F 53 45 3A 20 D3 45 54 53 20 55 50 20 41 |RPOSE: .ETS UP A| 00000980: 20 44 52 49 56 45 20 57 49 54 48 20 54 55 52 42 | DRIVE WITH TURB| 00000990: 4F 44 4F 53 2E 0D 20 20 20 20 20 20 20 20 20 20 |ODOS.. | 000009A0: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 000009B0: 32 31 34 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |214. .N| 000009C0: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 000009D0: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 000009E0: 20 24 38 34 38 39 20 20 20 20 20 C3 55 52 52 45 | $8489 .URRE| 000009F0: 4E 54 20 44 52 49 56 45 20 4E 55 4D 42 45 52 2E |NT DRIVE NUMBER.| 00000A00: 0D 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 |. .RROR| 00000A10: 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 20 |S: .EE .PPENDIX | 00000A20: C9 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |.... .E| 00000A30: 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 |SCRIPTION: .HIS| 00000A40: 20 52 4F 55 54 49 4E 45 20 49 4E 49 54 49 41 4C | ROUTINE INITIAL| 00000A50: 49 5A 45 53 20 54 48 45 20 43 55 52 52 45 4E 54 |IZES THE CURRENT| 00000A60: 20 44 52 49 56 45 2C 20 53 45 4E 44 49 4E 47 0D | DRIVE, SENDING.| 00000A70: 20 20 20 20 20 20 20 20 20 20 54 55 52 42 4F 44 | TURBOD| 00000A80: 4F 53 20 49 46 20 4E 45 43 45 53 53 41 52 59 2E |OS IF NECESSARY.| 00000A90: 20 20 C9 54 20 54 48 45 4E 20 43 41 55 53 45 53 | .T THEN CAUSES| 00000AA0: 20 54 48 45 20 44 52 49 56 45 20 54 4F 20 52 55 | THE DRIVE TO RU| 00000AB0: 4E 20 54 55 52 42 4F 44 4F 53 2E 0D 20 20 20 20 |N TURBODOS.. | 00000AC0: 20 20 20 20 20 20 D4 48 49 53 20 52 4F 55 54 49 | .HIS ROUTI| 00000AD0: 4E 45 20 49 53 20 43 41 4C 4C 45 44 20 42 59 20 |NE IS CALLED BY | 00000AE0: 53 45 56 45 52 41 4C 20 4F 46 20 54 48 45 20 44 |SEVERAL OF THE D| 00000AF0: 49 53 4B 20 C9 2F CF 20 52 4F 55 54 49 4E 45 53 |ISK ./. ROUTINES| 00000B00: 2C 20 20 4D 4F 53 54 0D 20 20 20 20 20 20 20 20 |, MOST. | 00000B10: 20 20 4E 4F 54 41 42 4C 59 20 20 41 52 45 20 20 | NOTABLY ARE | 00000B20: D2 C5 C1 C4 20 41 4E 44 20 D7 D2 C9 D4 C5 2E 20 |.... AND ...... | 00000B30: 20 D5 50 4F 4E 20 49 4E 49 54 49 41 4C 49 5A 49 | .PON INITIALIZI| 00000B40: 4E 47 20 54 48 45 20 20 44 52 49 56 45 2C 20 20 |NG THE DRIVE, | 00000B50: 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 44 52 |THE. DR| 00000B60: 49 56 45 27 53 20 53 54 41 54 55 53 20 42 59 54 |IVE'S STATUS BYT| 00000B70: 45 20 49 53 20 53 45 54 20 54 4F 20 54 48 45 20 |E IS SET TO THE | 00000B80: 41 50 50 52 4F 50 52 49 41 54 45 20 56 41 4C 55 |APPROPRIATE VALU| 00000B90: 45 2E 20 20 D4 48 45 20 20 53 54 41 54 55 53 0D |E. .HE STATUS.| 00000BA0: 20 20 20 20 20 20 20 20 20 20 42 59 54 45 53 20 | BYTES | 00000BB0: 20 41 52 45 20 20 53 54 4F 52 45 44 20 20 41 54 | ARE STORED AT| 00000BC0: 20 20 24 38 34 39 32 2D 24 38 34 39 35 20 41 4E | $8492-$8495 AN| 00000BD0: 44 20 20 48 41 56 45 20 54 48 45 20 20 46 4F 4C |D HAVE THE FOL| 00000BE0: 4C 4F 57 49 4E 47 20 20 42 49 54 0D 20 20 20 20 |LOWING BIT. | 00000BF0: 20 20 20 20 20 20 44 45 46 49 4E 49 54 49 4F 4E | DEFINITION| 00000C00: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 00000C10: 20 20 20 20 20 20 20 20 20 20 20 20 C2 49 54 20 | .IT | 00000C20: 37 20 20 20 20 20 D4 55 52 42 4F 44 4F 53 20 49 |7 .URBODOS I| 00000C30: 53 20 4C 4F 41 44 45 44 2E 0D 20 20 20 20 20 20 |S LOADED.. | 00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C50: 20 20 20 C2 49 54 20 36 20 20 20 20 20 D4 55 52 | .IT 6 .UR| 00000C60: 42 4F 44 4F 53 20 49 53 20 52 55 4E 4E 49 4E 47 |BODOS IS RUNNING| 00000C70: 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |.... .U| 00000C80: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C4 D3 D0 |NCTION .AME: ...| 00000C90: C3 C8 D2 0D 20 20 20 20 20 20 20 20 20 20 D0 55 |.... .U| 00000CA0: 52 50 4F 53 45 3A 20 C4 49 53 50 4C 41 59 53 20 |RPOSE: .ISPLAYS | 00000CB0: 41 20 43 48 41 52 41 43 54 45 52 20 4F 4E 20 54 |A CHARACTER ON T| 00000CC0: 48 45 20 53 43 52 45 45 4E 2E 0D 20 20 20 20 20 |HE SCREEN.. | 00000CD0: 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 | .ALL ADDRES| 00000CE0: 53 3A 20 24 C3 31 34 35 0D 20 20 20 20 20 20 20 |S: $.145. | 00000CF0: 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 | .NPUT REQUIRE| 00000D00: 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 |MENTS:. | 00000D10: 20 20 20 20 20 20 C1 20 20 20 20 20 20 20 20 20 | . | 00000D20: D4 48 45 20 43 48 41 52 41 43 54 45 52 20 54 4F |.HE CHARACTER TO| 00000D30: 20 42 45 20 50 52 49 4E 54 45 44 2E 0D 20 20 20 | BE PRINTED.. | 00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 32 2D | $02-| 00000D50: 24 30 33 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F |$03 .OINTER TO| 00000D60: 20 45 58 54 52 41 20 44 41 54 41 20 28 D5 53 45 | EXTRA DATA (.SE| 00000D70: 44 20 42 59 20 41 20 46 45 57 20 43 4F 4E 54 52 |D BY A FEW CONTR| 00000D80: 4F 4C 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |OL. | 00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 43 48 41 52 | CHAR| 00000DA0: 41 43 54 45 52 53 2C 20 4E 4F 54 20 4E 45 45 44 |ACTERS, NOT NEED| 00000DB0: 45 44 20 4F 54 48 45 52 57 49 53 45 29 2E 0D 20 |ED OTHERWISE).. | 00000DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00000DD0: 35 20 20 20 20 20 20 20 D4 48 45 20 52 4F 57 20 |5 .HE ROW | 00000DE0: 46 4F 52 20 50 52 49 4E 54 49 4E 47 20 28 31 20 |FOR PRINTING (1 | 00000DF0: 41 42 4F 56 45 20 54 48 45 20 55 4E 44 45 52 4C |ABOVE THE UNDERL| 00000E00: 49 4E 45 29 2E 0D 20 20 20 20 20 20 20 20 20 20 |INE).. | 00000E10: 20 20 20 20 20 24 31 38 2D 24 31 39 20 20 20 D4 | $18-$19 .| 00000E20: 48 45 20 43 4F 4C 55 4D 4E 20 54 4F 20 53 54 41 |HE COLUMN TO STA| 00000E30: 52 54 20 50 52 49 4E 54 49 4E 47 2E 0D 20 20 20 |RT PRINTING.. | 00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 24 33 33 20 | $33 | 00000E50: 20 20 20 20 20 20 D4 48 45 20 54 4F 50 20 4D 41 | .HE TOP MA| 00000E60: 52 47 49 4E 20 28 D5 53 55 41 4C 4C 59 20 30 29 |RGIN (.SUALLY 0)| 00000E70: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000E80: 20 24 33 34 20 20 20 20 20 20 20 D4 48 45 20 42 | $34 .HE B| 00000E90: 4F 54 54 4F 4D 20 4D 41 52 47 49 4E 20 28 D5 53 |OTTOM MARGIN (.S| 00000EA0: 55 41 4C 4C 59 20 31 39 39 29 2E 0D 20 20 20 20 |UALLY 199).. | 00000EB0: 20 20 20 20 20 20 20 20 20 20 20 24 33 35 2D 24 | $35-$| 00000EC0: 33 36 20 20 20 D4 48 45 20 4C 45 46 54 20 4D 41 |36 .HE LEFT MA| 00000ED0: 52 47 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 |RGIN.. | 00000EE0: 20 20 20 20 20 24 33 37 2D 24 33 38 20 20 20 D4 | $37-$38 .| 00000EF0: 48 45 20 52 49 47 48 54 20 4D 41 52 47 49 4E 2E |HE RIGHT MARGIN.| 00000F00: 0D 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 |. .REPA| 00000F10: 52 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A |RATORY ROUTINES:| 00000F20: 20 D3 C5 CC C2 D3 D7 20 4F 52 20 C6 CF CE D4 0D | ...... OR .....| 00000F30: 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 | .RRORS| 00000F40: 3A 20 C2 52 41 4E 43 48 45 53 20 54 48 52 4F 55 |: .RANCHES THROU| 00000F50: 47 48 20 24 38 34 C1 C2 2D 24 38 34 C1 C3 20 49 |GH $84..-$84.. I| 00000F60: 46 20 52 49 47 48 54 20 4D 41 52 47 49 4E 20 49 |F RIGHT MARGIN I| 00000F70: 53 20 45 58 43 45 45 44 45 44 2E 0D 0D 20 20 20 |S EXCEEDED... | 00000F80: 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 | .ESCRIPTI| 00000F90: 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 |ON: .HIS ROUTI| 00000FA0: 4E 45 20 20 44 49 53 50 4C 41 59 53 20 20 41 20 |NE DISPLAYS A | 00000FB0: 20 43 48 41 52 41 43 54 45 52 20 20 49 4E 20 20 | CHARACTER IN | 00000FC0: 41 20 20 47 49 56 45 4E 0D 20 20 20 20 20 20 20 |A GIVEN. | 00000FD0: 20 20 20 4C 4F 43 41 54 49 4F 4E 20 20 49 4E 20 | LOCATION IN | 00000FE0: 20 54 48 45 20 20 43 55 52 52 45 4E 54 20 46 4F | THE CURRENT FO| 00000FF0: 4E 54 20 41 4E 44 20 20 53 54 59 4C 45 2E 20 20 |NT AND STYLE. | 00001000: D4 48 45 20 20 53 54 59 4C 45 20 20 42 59 54 45 |.HE STYLE BYTE| 00001010: 20 20 49 4E 0D 20 20 20 20 20 20 20 20 20 20 4C | IN. L| 00001020: 4F 43 41 54 49 4F 4E 20 24 32 C5 20 49 53 20 43 |OCATION $2. IS C| 00001030: 4F 44 45 44 20 41 53 20 46 4F 4C 4C 4F 57 53 3A |ODED AS FOLLOWS:| 00001040: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001050: 20 20 C2 49 54 20 20 20 20 20 20 C4 45 53 43 52 | .IT .ESCR| 00001060: 49 50 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 |IPTION. | 00001070: 20 20 20 20 20 20 20 20 20 37 20 20 20 20 20 20 | 7 | 00001080: 20 D5 4E 44 45 52 4C 49 4E 45 0D 20 20 20 20 20 | .NDERLINE. | 00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 36 20 20 | 6 | 000010A0: 20 20 20 20 20 C2 4F 4C 44 46 41 43 45 0D 20 20 | .OLDFACE. | 000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010C0: 35 20 20 20 20 20 20 20 D2 45 56 45 52 53 45 44 |5 .EVERSED| 000010D0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000010E0: 20 20 20 34 20 20 20 20 20 20 20 C9 54 41 4C 49 | 4 .TALI| 000010F0: 43 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |CS. | 00001100: 20 20 20 20 20 33 20 20 20 20 20 20 20 CF 55 54 | 3 .UT| 00001110: 4C 49 4E 45 44 0D 20 20 20 20 20 20 20 20 20 20 |LINED. | 00001120: C5 49 54 48 45 52 20 D3 C5 CC C2 D3 D7 20 4F 52 |.ITHER ...... OR| 00001130: 20 C6 CF CE D4 20 4D 55 53 54 20 42 45 20 43 41 | .... MUST BE CA| 00001140: 4C 4C 45 44 20 50 52 49 4F 52 20 54 4F 20 55 53 |LLED PRIOR TO US| 00001150: 49 4E 47 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |ING THIS ROUTINE| 00001160: 2C 0D 20 20 20 20 20 20 20 20 20 20 49 4E 20 20 |,. IN | 00001170: 4F 52 44 45 52 20 20 54 4F 20 53 45 54 20 55 50 |ORDER TO SET UP| 00001180: 20 54 48 45 20 46 4F 4E 54 20 50 4F 49 4E 54 45 | THE FONT POINTE| 00001190: 52 53 2E 20 20 D3 C5 CC C2 D3 D7 20 49 53 20 43 |RS. ...... IS C| 000011A0: 41 4C 4C 45 44 20 20 44 55 52 49 4E 47 0D 20 20 |ALLED DURING. | 000011B0: 20 20 20 20 20 20 20 20 C7 C5 CF D3 27 53 20 20 | ....'S | 000011C0: 42 4F 4F 54 55 50 20 20 50 52 4F 43 45 44 55 52 |BOOTUP PROCEDUR| 000011D0: 45 2C 20 20 41 53 20 20 57 45 4C 4C 20 41 53 20 |E, AS WELL AS | 000011E0: 42 59 20 20 54 48 45 20 20 4D 45 4E 55 20 20 50 |BY THE MENU P| 000011F0: 52 4F 43 45 53 53 4F 52 2E 0D 20 20 20 20 20 20 |ROCESSOR.. | 00001200: 20 20 20 20 D3 45 56 45 52 41 4C 20 43 4F 4E 54 | .EVERAL CONT| 00001210: 52 4F 4C 20 43 48 41 52 41 43 54 45 52 53 20 48 |ROL CHARACTERS H| 00001220: 41 56 45 20 53 50 45 43 49 41 4C 20 50 52 4F 50 |AVE SPECIAL PROP| 00001230: 45 52 54 49 45 53 2E 20 20 D4 48 4F 53 45 20 20 |ERTIES. .HOSE | 00001240: 57 48 49 43 48 0D 20 20 20 20 20 20 20 20 20 20 |WHICH. | 00001250: 52 45 51 55 49 52 45 20 41 20 44 41 54 41 20 50 |REQUIRE A DATA P| 00001260: 4F 49 4E 54 45 52 20 41 52 45 20 4D 41 52 4B 45 |OINTER ARE MARKE| 00001270: 44 20 57 49 54 48 20 41 4E 20 41 53 54 45 52 49 |D WITH AN ASTERI| 00001280: 53 4B 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |SK..............| 00001290: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF |... ...| 000012A0: D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 |. .ERNAL .OUTINE| 000012B0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012D0: 20 20 20 20 20 20 20 31 2D 32 35 0D 0D 0D 20 20 | 1-25... | 000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 4F 4E | .ON| 00001300: 54 52 4F 4C 20 C3 48 41 52 41 43 54 45 52 20 D4 |TROL .HARACTER .| 00001310: 41 42 4C 45 0D 0D 20 20 20 20 20 20 20 20 20 20 |ABLE.. | 00001320: 20 20 20 20 20 C3 54 52 4C 2D C8 20 20 C4 45 4C | .TRL-. .EL| 00001330: 45 54 45 20 50 52 45 56 49 4F 55 53 20 43 48 41 |ETE PREVIOUS CHA| 00001340: 52 41 43 54 45 52 2E 0D 20 20 20 20 20 20 20 20 |RACTER.. | 00001350: 20 20 20 20 20 20 20 C3 54 52 4C 2D C9 20 20 D4 | .TRL-. .| 00001360: 41 42 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |AB.. | 00001370: 20 20 20 C3 54 52 4C 2D CA 20 20 CD 4F 56 45 20 | .TRL-. .OVE | 00001380: 53 54 52 41 49 47 48 54 20 44 4F 57 4E 20 41 20 |STRAIGHT DOWN A | 00001390: 4C 49 4E 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |LINE.. | 000013A0: 20 20 20 20 20 C3 54 52 4C 2D CB 20 20 D3 45 54 | .TRL-. .ET| 000013B0: 20 54 45 58 54 20 43 55 52 53 4F 52 20 54 4F 20 | TEXT CURSOR TO | 000013C0: 30 2C 30 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |0,0.. | 000013D0: 20 20 20 20 C3 54 52 4C 2D CC 20 20 CD 4F 56 45 | .TRL-. .OVE| 000013E0: 20 53 54 52 41 49 47 48 54 20 55 50 20 41 20 4C | STRAIGHT UP A L| 000013F0: 49 4E 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |INE.. | 00001400: 20 20 20 20 C3 54 52 4C 2D CD 20 20 CD 4F 56 45 | .TRL-. .OVE| 00001410: 20 54 4F 20 54 48 45 20 42 45 47 49 4E 4E 49 4E | TO THE BEGINNIN| 00001420: 47 20 4F 46 20 54 48 45 20 4E 45 58 54 20 4C 49 |G OF THE NEXT LI| 00001430: 4E 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |NE.. | 00001440: 20 20 20 C3 54 52 4C 2D CE 20 20 D4 55 52 4E 20 | .TRL-. .URN | 00001450: 4F 4E 20 55 4E 44 45 52 4C 49 4E 49 4E 47 2E 0D |ON UNDERLINING..| 00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 | .| 00001470: 54 52 4C 2D CF 20 20 D4 55 52 4E 20 4F 46 46 20 |TRL-. .URN OFF | 00001480: 55 4E 44 45 52 4C 49 4E 49 4E 47 2E 0D 20 20 20 |UNDERLINING.. | 00001490: 20 20 20 20 20 20 20 20 20 20 2A 20 C3 54 52 4C | * .TRL| 000014A0: 2D D0 20 20 C6 4F 4C 4C 4F 57 45 44 20 42 59 20 |-. .OLLOWED BY | 000014B0: 41 20 54 41 42 4C 45 20 53 55 49 54 41 42 4C 45 |A TABLE SUITABLE| 000014C0: 20 46 4F 52 20 C7 D2 D0 C8 C9 C3 2E 0D 20 20 20 | FOR ........ | 000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 C3 54 52 4C | .TRL| 000014E0: 2D D2 20 20 D4 55 52 4E 20 4F 4E 20 52 45 56 45 |-. .URN ON REVE| 000014F0: 52 53 45 20 56 49 44 45 4F 2E 0D 20 20 20 20 20 |RSE VIDEO.. | 00001500: 20 20 20 20 20 20 20 20 20 20 C3 54 52 4C 2D D3 | .TRL-.| 00001510: 20 20 D4 55 52 4E 20 4F 46 46 20 52 45 56 45 52 | .URN OFF REVER| 00001520: 53 45 20 56 49 44 45 4F 2E 0D 20 20 20 20 20 20 |SE VIDEO.. | 00001530: 20 20 20 20 20 20 20 2A 20 C3 54 52 4C 2D D4 20 | * .TRL-. | 00001540: 20 C6 4F 4C 4C 4F 57 45 44 20 42 59 20 32 20 42 | .OLLOWED BY 2 B| 00001550: 59 54 45 53 20 57 48 49 43 48 20 53 50 45 43 49 |YTES WHICH SPECI| 00001560: 46 59 20 54 48 45 20 4E 45 57 20 43 4F 4C 55 4D |FY THE NEW COLUM| 00001570: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.. | 00001580: 2A 20 C3 54 52 4C 2D D5 20 20 C6 4F 4C 4C 4F 57 |* .TRL-. .OLLOW| 00001590: 45 44 20 42 59 20 41 20 42 59 54 45 20 57 48 49 |ED BY A BYTE WHI| 000015A0: 43 48 20 53 50 45 43 49 46 49 45 53 20 54 48 45 |CH SPECIFIES THE| 000015B0: 20 4E 45 57 20 52 4F 57 2E 0D 20 20 20 20 20 20 | NEW ROW.. | 000015C0: 20 20 20 20 20 20 20 2A 20 C3 54 52 4C 2D D6 20 | * .TRL-. | 000015D0: 20 C6 4F 4C 4C 4F 57 45 44 20 42 59 20 33 20 42 | .OLLOWED BY 3 B| 000015E0: 59 54 45 53 20 57 48 49 43 48 20 53 50 45 43 49 |YTES WHICH SPECI| 000015F0: 46 59 20 54 48 45 20 4E 45 57 20 50 52 49 4E 54 |FY THE NEW PRINT| 00001600: 20 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | . | 00001610: 20 20 20 20 20 20 20 20 20 50 4F 53 49 54 49 4F | POSITIO| 00001620: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.. | 00001630: 2A 20 C3 54 52 4C 2D D7 20 20 D3 4B 49 50 53 20 |* .TRL-. .KIPS | 00001640: 54 48 45 20 4E 45 58 54 20 33 20 42 59 54 45 53 |THE NEXT 3 BYTES| 00001650: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001660: 20 C3 54 52 4C 2D D8 20 20 D4 55 52 4E 20 4F 4E | .TRL-. .URN ON| 00001670: 20 C2 4F 4C 44 46 41 43 45 2E 0D 20 20 20 20 20 | .OLDFACE.. | 00001680: 20 20 20 20 20 20 20 20 20 20 C3 54 52 4C 2D D9 | .TRL-.| 00001690: 20 20 D4 55 52 4E 20 4F 4E 20 C9 54 41 4C 49 43 | .URN ON .TALIC| 000016A0: 53 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S.. | 000016B0: 20 20 C3 54 52 4C 2D DA 20 20 D4 55 52 4E 20 4F | .TRL-. .URN O| 000016C0: 4E 20 CF 55 54 4C 49 4E 45 2E 0D 20 20 20 20 20 |N .UTLINE.. | 000016D0: 20 20 20 20 20 20 20 20 20 20 C3 54 52 4C 2D 20 | .TRL- | 000016E0: 20 D4 55 52 4E 20 4F 46 46 20 41 4C 4C 20 45 46 | .URN OFF ALL EF| 000016F0: 46 45 43 54 53 2C 20 52 45 54 55 52 4E 20 54 4F |FECTS, RETURN TO| 00001700: 20 50 4C 41 49 4E 20 54 45 58 54 2E 0D 0D 20 20 | PLAIN TEXT... | 00001710: 20 20 20 20 20 20 20 20 D4 48 4F 53 45 20 20 45 | .HOSE E| 00001720: 4E 54 52 49 45 53 20 20 4D 41 52 4B 45 44 20 57 |NTRIES MARKED W| 00001730: 49 54 48 20 41 4E 20 41 53 54 45 52 49 53 4B 20 |ITH AN ASTERISK | 00001740: 28 2A 29 20 53 48 4F 55 4C 44 20 4F 4E 4C 59 20 |(*) SHOULD ONLY | 00001750: 20 42 45 20 20 55 53 45 44 0D 20 20 20 20 20 20 | BE USED. | 00001760: 20 20 20 20 46 52 4F 4D 20 20 C4 D3 D0 D4 D8 D4 | FROM ......| 00001770: 20 42 45 43 41 55 53 45 20 54 48 45 59 20 52 45 | BECAUSE THEY RE| 00001780: 51 55 49 52 45 20 24 30 32 2D 24 30 33 20 54 4F |QUIRE $02-$03 TO| 00001790: 20 42 45 20 41 20 50 4F 49 4E 54 45 52 20 54 4F | BE A POINTER TO| 000017A0: 20 20 47 45 54 0D 20 20 20 20 20 20 20 20 20 20 | GET. | 000017B0: 45 58 54 52 41 20 20 44 41 54 41 2E 20 20 C1 53 |EXTRA DATA. .S| 000017C0: 20 20 57 49 54 48 20 C7 D2 D0 C8 C9 C3 2C 20 20 | WITH ......, | 000017D0: C3 54 52 4C 2D D0 20 4D 55 53 54 20 42 45 20 54 |.TRL-. MUST BE T| 000017E0: 48 45 20 20 4C 41 53 54 20 20 43 4F 4D 4D 41 4E |HE LAST COMMAN| 000017F0: 44 0D 20 20 20 20 20 20 20 20 20 20 42 45 43 41 |D. BECA| 00001800: 55 53 45 20 20 54 48 45 20 20 5A 45 52 4F 20 20 |USE THE ZERO | 00001810: 42 59 54 45 20 54 48 41 54 20 54 45 52 4D 49 4E |BYTE THAT TERMIN| 00001820: 41 54 45 53 20 20 C7 D2 D0 C8 C9 C3 20 20 57 49 |ATES ...... WI| 00001830: 4C 4C 20 20 54 45 52 4D 49 4E 41 54 45 0D 20 20 |LL TERMINATE. | 00001840: 20 20 20 20 20 20 20 20 C4 D3 D0 D4 D8 D4 2E 0D | ........| 00001850: 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 |.. .UNC| 00001860: 54 49 4F 4E 20 CE 41 4D 45 3A 20 C4 D3 D0 CE D5 |TION .AME: .....| 00001870: CD 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 |.. .URP| 00001880: 4F 53 45 3A 20 C4 49 53 50 4C 41 59 20 41 4E 20 |OSE: .ISPLAY AN | 00001890: 55 4E 53 49 47 4E 45 44 20 31 36 20 42 49 54 20 |UNSIGNED 16 BIT | 000018A0: 49 4E 54 45 47 45 52 2E 0D 20 20 20 20 20 20 20 |INTEGER.. | 000018B0: 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A | .ALL ADDRESS:| 000018C0: 20 24 C3 31 38 34 0D 20 20 20 20 20 20 20 20 20 | $.184. | 000018D0: 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 | .NPUT REQUIREME| 000018E0: 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 |NTS:. | 000018F0: 20 20 20 20 C1 20 20 20 20 20 20 20 20 20 C3 4F | . .O| 00001900: 4E 54 52 4F 4C 20 56 41 4C 55 45 20 28 D3 45 45 |NTROL VALUE (.EE| 00001910: 20 44 45 53 43 52 49 50 54 49 4F 4E 29 2E 0D 20 | DESCRIPTION).. | 00001920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00001930: 32 2D 24 30 33 20 20 20 D4 48 45 20 56 41 4C 55 |2-$03 .HE VALU| 00001940: 45 20 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 |E TO BE DISPLAYE| 00001950: 44 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |D... .E| 00001960: 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 |SCRIPTION: .HIS| 00001970: 20 20 52 4F 55 54 49 4E 45 20 20 43 4F 4E 56 45 | ROUTINE CONVE| 00001980: 52 54 53 20 20 54 48 45 20 56 41 4C 55 45 20 20 |RTS THE VALUE | 00001990: 41 54 20 20 24 30 32 2D 24 30 33 20 20 54 4F 0D |AT $02-$03 TO.| 000019A0: 20 20 20 20 20 20 20 20 20 20 44 45 43 49 4D 41 | DECIMA| 000019B0: 4C 20 C1 D3 C3 C9 C9 20 41 4E 44 20 44 49 53 50 |L ..... AND DISP| 000019C0: 4C 41 59 53 20 49 54 20 55 53 49 4E 47 20 C4 D3 |LAYS IT USING ..| 000019D0: D0 C3 C8 D2 2E 20 20 D4 48 45 20 43 4F 4E 54 52 |..... .HE CONTR| 000019E0: 4F 4C 20 56 41 4C 55 45 20 49 4E 0D 20 20 20 20 |OL VALUE IN. | 000019F0: 20 20 20 20 20 20 C1 20 49 53 20 44 45 46 49 4E | . IS DEFIN| 00001A00: 45 44 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 0D 20 |ED AS FOLLOWS:. | 00001A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 | BI| 00001A20: 54 20 37 20 20 20 20 20 30 20 2D 20 52 49 47 48 |T 7 0 - RIGH| 00001A30: 54 20 4A 55 53 54 49 46 59 20 54 48 45 20 4E 55 |T JUSTIFY THE NU| 00001A40: 4D 42 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 |MBER.. | 00001A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 | 1| 00001A60: 20 2D 20 4C 45 46 54 20 4A 55 53 54 49 46 59 20 | - LEFT JUSTIFY | 00001A70: 54 48 45 20 4E 55 4D 42 45 52 2C 20 49 45 2E 20 |THE NUMBER, IE. | 00001A80: 4E 4F 20 4A 55 53 54 49 46 59 2E 0D 20 20 20 20 |NO JUSTIFY.. | 00001A90: 20 20 20 20 20 20 20 20 20 20 20 42 49 54 20 36 | BIT 6| 00001AA0: 20 20 20 20 20 30 20 2D 20 50 52 49 4E 54 20 4C | 0 - PRINT L| 00001AB0: 45 41 44 49 4E 47 20 5A 45 52 4F 45 53 2E 0D 20 |EADING ZEROES.. | 00001AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001AD0: 20 20 20 20 20 20 20 20 31 20 2D 20 53 4B 49 50 | 1 - SKIP| 00001AE0: 20 4C 45 41 44 49 4E 47 20 5A 45 52 4F 45 53 2E | LEADING ZEROES.| 00001AF0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001B00: 42 49 54 53 20 30 2D 35 20 20 D4 48 45 20 46 49 |BITS 0-5 .HE FI| 00001B10: 45 4C 44 20 57 49 44 54 48 20 49 4E 20 50 49 58 |ELD WIDTH IN PIX| 00001B20: 45 4C 53 20 46 4F 52 20 52 49 47 48 54 20 4A 55 |ELS FOR RIGHT JU| 00001B30: 53 54 49 46 49 43 41 54 49 4F 4E 2E 0D 0D 0D 0D |STIFICATION.....| 00001B40: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 |............... | 00001B50: 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 CB 45 | .... .E| 00001B60: 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 20 20 |RNAL .OUTINES | 00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001B90: 20 20 20 31 2D 32 36 0D 0D 0D 20 20 20 20 20 20 | 1-26... | 00001BA0: 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D | .UNCTION .AM| 00001BB0: 45 3A 20 C4 D3 D0 D4 D8 32 0D 20 20 20 20 20 20 |E: .....2. | 00001BC0: 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C9 44 45 | .URPOSE: .DE| 00001BD0: 4E 54 49 43 41 4C 20 54 4F 20 C4 D3 D0 D4 D8 D4 |NTICAL TO ......| 00001BE0: 2C 20 42 55 54 20 57 49 54 48 20 49 4E 4C 49 4E |, BUT WITH INLIN| 00001BF0: 45 20 43 4F 44 45 2E 0D 20 20 20 20 20 20 20 20 |E CODE.. | 00001C00: 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 | .ALL ADDRESS: | 00001C10: 24 C3 31 C1 C5 0D 20 20 20 20 20 20 20 20 20 20 |$.1... | 00001C20: C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E |.NPUT REQUIREMEN| 00001C30: 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TS:. | 00001C40: 20 20 20 24 33 35 2D 24 33 36 20 20 20 D4 48 45 | $35-$36 .HE| 00001C50: 20 4C 45 46 54 20 4D 41 52 47 49 4E 2E 0D 20 20 | LEFT MARGIN.. | 00001C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 33 37 | $37| 00001C70: 2D 24 33 38 20 20 20 D4 48 45 20 52 49 47 48 54 |-$38 .HE RIGHT| 00001C80: 20 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 20 20 | MARGIN.. | 00001C90: 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 | .REPARATORY R| 00001CA0: 4F 55 54 49 4E 45 53 3A 20 D3 C5 CC C2 D3 D7 20 |OUTINES: ...... | 00001CB0: 4F 52 20 C6 CF CE D4 0D 20 20 20 20 20 20 20 20 |OR ..... | 00001CC0: 20 20 C5 52 52 4F 52 53 3A 20 C2 52 41 4E 43 48 | .RRORS: .RANCH| 00001CD0: 45 53 20 54 48 52 4F 55 47 48 20 24 38 34 C1 C2 |ES THROUGH $84..| 00001CE0: 2D 24 38 34 C1 C3 20 49 46 20 52 49 47 48 54 20 |-$84.. IF RIGHT | 00001CF0: 4D 41 52 47 49 4E 20 49 53 20 45 58 43 45 45 44 |MARGIN IS EXCEED| 00001D00: 45 44 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 |ED... .| 00001D10: 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 |ESCRIPTION: .HI| 00001D20: 53 20 52 4F 55 54 49 4E 45 20 43 52 45 41 54 45 |S ROUTINE CREATE| 00001D30: 53 20 41 20 50 4F 49 4E 54 45 52 20 54 4F 20 54 |S A POINTER TO T| 00001D40: 48 45 20 20 54 45 58 54 2C 20 20 43 41 4C 4C 53 |HE TEXT, CALLS| 00001D50: 0D 20 20 20 20 20 20 20 20 20 20 C4 D3 D0 D4 D8 |. .....| 00001D60: D4 2C 20 54 48 45 4E 20 52 45 54 55 52 4E 53 20 |., THEN RETURNS | 00001D70: 54 4F 20 54 48 45 20 43 4F 44 45 20 49 4D 4D 45 |TO THE CODE IMME| 00001D80: 44 49 41 54 45 4C 59 20 46 4F 4C 4C 4F 57 49 4E |DIATELY FOLLOWIN| 00001D90: 47 20 54 48 45 20 54 45 58 54 2E 0D 20 20 20 20 |G THE TEXT.. | 00001DA0: 20 20 20 20 20 20 20 20 20 20 20 20 CA D3 D2 20 | ... | 00001DB0: C4 D3 D0 D4 D8 32 0D 20 20 20 20 20 20 20 20 20 |.....2. | 00001DC0: 20 20 20 20 20 20 2E D7 CF D2 C4 20 D4 48 45 20 | ..... .HE | 00001DD0: 43 4F 4C 55 4D 4E 20 54 4F 20 53 54 41 52 54 20 |COLUMN TO START | 00001DE0: 50 52 49 4E 54 49 4E 47 20 49 4E 0D 20 20 20 20 |PRINTING IN. | 00001DF0: 20 20 20 20 20 20 20 20 20 20 20 2E C2 D9 D4 C5 | .....| 00001E00: 20 D2 4F 57 20 46 4F 52 20 4C 49 4E 45 20 4F 46 | .OW FOR LINE OF| 00001E10: 20 50 52 49 4E 54 20 28 31 20 41 42 4F 56 45 20 | PRINT (1 ABOVE | 00001E20: 54 48 45 20 55 4E 44 45 52 4C 49 4E 45 29 0D 20 |THE UNDERLINE). | 00001E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2E C2 | ..| 00001E40: D9 D4 C5 20 D4 45 58 54 20 54 4F 20 42 45 20 44 |... .EXT TO BE D| 00001E50: 49 53 50 4C 41 59 45 44 0D 20 20 20 20 20 20 20 |ISPLAYED. | 00001E60: 20 20 20 20 20 20 20 20 2E C2 D9 D4 C5 20 30 0D | ..... 0.| 00001E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 | .| 00001E80: 4F 4E 54 52 4F 4C 20 52 45 54 55 52 4E 53 20 48 |ONTROL RETURNS H| 00001E90: 45 52 45 20 41 46 54 45 52 20 54 45 58 54 20 49 |ERE AFTER TEXT I| 00001EA0: 53 20 50 52 49 4E 54 45 44 2E 0D 0D 0D 20 20 20 |S PRINTED.... | 00001EB0: 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 | .UNCTION | 00001EC0: CE 41 4D 45 3A 20 C4 D3 D0 D4 D8 D4 0D 20 20 20 |.AME: ....... | 00001ED0: 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 | .URPOSE: | 00001EE0: C4 49 53 50 4C 41 59 53 20 41 4E 20 45 4E 54 49 |.ISPLAYS AN ENTI| 00001EF0: 52 45 20 53 54 52 49 4E 47 20 4F 46 20 54 45 58 |RE STRING OF TEX| 00001F00: 54 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |T.. .AL| 00001F10: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 34 38 |L ADDRESS: $.148| 00001F20: 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 |. .NPUT| 00001F30: 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 | REQUIREMENTS:. | 00001F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00001F50: 32 2D 24 30 33 20 20 20 D0 4F 49 4E 54 45 52 20 |2-$03 .OINTER | 00001F60: 54 4F 20 54 45 58 54 20 53 54 52 49 4E 47 2E 0D |TO TEXT STRING..| 00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00001F80: 30 35 20 20 20 20 20 20 20 D4 48 45 20 52 4F 57 |05 .HE ROW| 00001F90: 20 46 4F 52 20 50 52 49 4E 54 49 4E 47 20 28 31 | FOR PRINTING (1| 00001FA0: 20 41 42 4F 56 45 20 54 48 45 20 55 4E 44 45 52 | ABOVE THE UNDER| 00001FB0: 4C 49 4E 45 29 2E 0D 20 20 20 20 20 20 20 20 20 |LINE).. | 00001FC0: 20 20 20 20 20 20 24 31 38 2D 24 31 39 20 20 20 | $18-$19 | 00001FD0: D4 48 45 20 43 4F 4C 55 4D 4E 20 49 4E 20 57 48 |.HE COLUMN IN WH| 00001FE0: 49 43 48 20 54 4F 20 53 54 41 52 54 20 50 52 49 |ICH TO START PRI| 00001FF0: 4E 54 49 4E 47 2E 0D 20 20 20 20 20 20 20 20 20 |NTING.. | 00002000: 20 20 20 20 20 20 24 33 33 20 20 20 20 20 20 20 | $33 | 00002010: D4 48 45 20 54 4F 50 20 4D 41 52 47 49 4E 20 28 |.HE TOP MARGIN (| 00002020: D5 53 55 41 4C 4C 59 20 30 29 2E 0D 20 20 20 20 |.SUALLY 0).. | 00002030: 20 20 20 20 20 20 20 20 20 20 20 24 33 34 20 20 | $34 | 00002040: 20 20 20 20 20 D4 48 45 20 42 4F 54 54 4F 4D 20 | .HE BOTTOM | 00002050: 4D 41 52 47 49 4E 20 28 D5 53 55 41 4C 4C 59 20 |MARGIN (.SUALLY | 00002060: 31 39 39 29 2E 0D 20 20 20 20 20 20 20 20 20 20 |199).. | 00002070: 20 20 20 20 20 24 33 35 2D 24 33 36 20 20 20 D4 | $35-$36 .| 00002080: 48 45 20 4C 45 46 54 20 4D 41 52 47 49 4E 2E 0D |HE LEFT MARGIN..| 00002090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 000020A0: 33 37 2D 24 33 38 20 20 20 D4 48 45 20 52 49 47 |37-$38 .HE RIG| 000020B0: 48 54 20 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 |HT MARGIN.. | 000020C0: 20 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 | .REPARATORY| 000020D0: 20 52 4F 55 54 49 4E 45 53 3A 20 D3 C5 CC C2 D3 | ROUTINES: .....| 000020E0: D7 20 4F 52 20 C6 CF CE D4 0D 20 20 20 20 20 20 |. OR ..... | 000020F0: 20 20 20 20 C5 52 52 4F 52 53 3A 20 C2 52 41 4E | .RRORS: .RAN| 00002100: 43 48 45 53 20 54 48 52 4F 55 47 48 20 24 38 34 |CHES THROUGH $84| 00002110: C1 C2 2D 24 38 34 C1 C3 20 49 46 20 52 49 47 48 |..-$84.. IF RIGH| 00002120: 54 20 4D 41 52 47 49 4E 20 49 53 20 45 58 43 45 |T MARGIN IS EXCE| 00002130: 45 44 45 44 2E 0D 0D 20 20 20 20 20 20 20 20 20 |EDED... | 00002140: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 00002150: 48 49 53 20 52 4F 55 54 49 4E 45 20 43 41 4C 4C |HIS ROUTINE CALL| 00002160: 53 20 C4 D3 D0 C3 C8 D2 20 54 4F 20 44 49 53 50 |S ...... TO DISP| 00002170: 4C 41 59 20 45 41 43 48 20 43 48 41 52 41 43 54 |LAY EACH CHARACT| 00002180: 45 52 0D 20 20 20 20 20 20 20 20 20 20 49 4E 20 |ER. IN | 00002190: 41 20 53 54 52 49 4E 47 2E 20 D4 48 45 20 53 54 |A STRING. .HE ST| 000021A0: 52 49 4E 47 20 49 53 20 54 45 52 4D 49 4E 41 54 |RING IS TERMINAT| 000021B0: 45 44 20 42 59 20 41 20 5A 45 52 4F 20 42 59 54 |ED BY A ZERO BYT| 000021C0: 45 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |E.... .| 000021D0: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C5 CE |UNCTION .AME: ..| 000021E0: C1 C2 CC C5 0D 20 20 20 20 20 20 20 20 20 20 D0 |..... .| 000021F0: 55 52 50 4F 53 45 3A 20 C5 4E 41 42 4C 45 53 20 |URPOSE: .NABLES | 00002200: 41 20 52 45 43 55 52 52 49 4E 47 20 54 49 4D 45 |A RECURRING TIME| 00002210: 44 20 45 56 45 4E 54 2E 0D 20 20 20 20 20 20 20 |D EVENT.. | 00002220: 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A | .ALL ADDRESS:| 00002230: 20 24 C3 31 30 36 0D 20 20 20 20 20 20 20 20 20 | $.106. | 00002240: 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 | .NPUT REQUIREME| 00002250: 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 |NTS:. | 00002260: 20 20 20 20 D8 20 20 20 20 20 20 20 20 20 D4 48 | . .H| 00002270: 45 20 49 4E 44 45 58 20 49 4E 54 4F 20 54 48 45 |E INDEX INTO THE| 00002280: 20 43 4F 4D 4D 41 4E 44 20 54 41 42 4C 45 20 41 | COMMAND TABLE A| 00002290: 54 20 24 38 37 31 39 2E 0D 20 20 20 20 20 20 20 |T $8719.. | 000022A0: 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 | .REPARATORY R| 000022B0: 4F 55 54 49 4E 45 53 3A 20 C3 CD C4 D4 C2 CC 0D |OUTINES: .......| 000022C0: 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 |. .ESCR| 000022D0: 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F |IPTION: .HIS RO| 000022E0: 55 54 49 4E 45 20 45 4E 41 42 4C 45 53 20 41 20 |UTINE ENABLES A | 000022F0: 53 50 45 43 49 46 49 43 20 54 49 4D 45 52 20 49 |SPECIFIC TIMER I| 00002300: 4E 20 54 48 45 20 20 54 41 42 4C 45 0D 20 20 20 |N THE TABLE. | 00002310: 20 20 20 20 20 20 20 41 54 20 24 38 37 31 39 20 | AT $8719 | 00002320: 42 59 20 52 45 53 45 54 54 49 4E 47 20 42 49 54 |BY RESETTING BIT| 00002330: 53 20 35 20 41 4E 44 20 36 20 49 4E 20 54 48 45 |S 5 AND 6 IN THE| 00002340: 20 43 4F 4D 4D 41 4E 44 20 54 41 42 4C 45 2E 20 | COMMAND TABLE. | 00002350: 20 C9 54 20 41 4C 53 4F 0D 20 20 20 20 20 20 20 | .T ALSO. | 00002360: 20 20 20 43 4F 50 49 45 53 20 20 54 48 45 20 20 | COPIES THE | 00002370: 49 4E 49 54 49 41 4C 20 20 56 41 4C 55 45 20 49 |INITIAL VALUE I| 00002380: 4E 54 4F 20 54 48 45 20 54 49 4D 45 52 20 54 41 |NTO THE TIMER TA| 00002390: 42 4C 45 20 20 41 54 20 20 24 38 37 C6 31 2E 20 |BLE AT $87.1. | 000023A0: 20 D4 48 45 0D 20 20 20 20 20 20 20 20 20 20 43 | .HE. C| 000023B0: 4F 4D 4D 41 4E 44 20 20 54 41 42 4C 45 20 20 4D |OMMAND TABLE M| 000023C0: 55 53 54 20 20 48 41 56 45 20 42 45 45 4E 20 50 |UST HAVE BEEN P| 000023D0: 52 45 56 49 4F 55 53 4C 59 20 53 45 54 20 55 50 |REVIOUSLY SET UP| 000023E0: 20 42 59 20 20 41 20 20 43 41 4C 4C 20 20 54 4F | BY A CALL TO| 000023F0: 0D 20 20 20 20 20 20 20 20 20 20 C3 CD C4 D4 C2 |. .....| 00002400: CC 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00002410: 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 |. .... | 00002420: CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 |.ERNAL .OUTINES | 00002430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002450: 20 20 20 20 20 31 2D 32 37 0D 0D 0D 20 20 20 20 | 1-27... | 00002460: 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE | .UNCTION .| 00002470: 41 4D 45 3A 20 C5 D2 C1 CD CE D3 0D 20 20 20 20 |AME: ....... | 00002480: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C5 | .URPOSE: .| 00002490: 52 41 53 45 53 20 41 4C 4C 20 4F 50 45 4E 20 4D |RASES ALL OPEN M| 000024A0: 45 4E 55 53 2E 0D 20 20 20 20 20 20 20 20 20 20 |ENUS.. | 000024B0: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 000024C0: 31 35 37 0D 20 20 20 20 20 20 20 20 20 20 D0 52 |157. .R| 000024D0: 45 50 41 52 41 54 4F 52 59 20 52 4F 55 54 49 4E |EPARATORY ROUTIN| 000024E0: 45 53 3A 20 CD C5 CE D5 0D 0D 20 20 20 20 20 20 |ES: ...... | 000024F0: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A | .ESCRIPTION:| 00002500: 20 20 D4 48 49 53 20 20 52 4F 55 54 49 4E 45 20 | .HIS ROUTINE | 00002510: 20 45 52 41 53 45 53 20 41 4C 4C 20 4F 46 20 54 | ERASES ALL OF T| 00002520: 48 45 20 20 4D 45 4E 55 53 2E 20 20 C9 54 20 20 |HE MENUS. .T | 00002530: 43 41 4C 4C 53 0D 20 20 20 20 20 20 20 20 20 20 |CALLS. | 00002540: C5 D2 C1 CD CE D5 20 52 45 50 45 41 54 45 44 4C |...... REPEATEDL| 00002550: 59 20 54 4F 20 41 43 43 4F 4D 50 4C 49 53 48 20 |Y TO ACCOMPLISH | 00002560: 54 48 49 53 2E 20 C9 54 20 54 48 45 4E 20 53 45 |THIS. .T THEN SE| 00002570: 54 53 20 54 48 45 20 4D 45 4E 55 20 4C 45 56 45 |TS THE MENU LEVE| 00002580: 4C 0D 20 20 20 20 20 20 20 20 20 20 43 4F 55 4E |L. COUN| 00002590: 54 45 52 20 28 24 38 34 C2 37 29 20 54 4F 20 24 |TER ($84.7) TO $| 000025A0: 30 30 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |00.... | 000025B0: C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C5 |.UNCTION .AME: .| 000025C0: D2 C1 CD CE D5 0D 20 20 20 20 20 20 20 20 20 20 |...... | 000025D0: D0 55 52 50 4F 53 45 3A 20 C5 52 41 53 45 53 20 |.URPOSE: .RASES | 000025E0: 54 48 45 20 43 55 52 52 45 4E 54 20 4D 45 4E 55 |THE CURRENT MENU| 000025F0: 20 46 52 4F 4D 20 54 48 45 20 53 43 52 45 45 4E | FROM THE SCREEN| 00002600: 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C |.. .ALL| 00002610: 20 41 44 44 52 45 53 53 3A 20 24 C3 31 35 34 0D | ADDRESS: $.154.| 00002620: 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 | .REPAR| 00002630: 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 |ATORY ROUTINES: | 00002640: CD C5 CE D5 0D 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00002650: C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 |.ESCRIPTION: .H| 00002660: 49 53 20 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C |IS ROUTINE WILL| 00002670: 20 45 52 41 53 45 20 54 48 45 20 43 55 52 52 45 | ERASE THE CURRE| 00002680: 4E 54 20 4D 45 4E 55 2E 20 20 C9 54 20 44 4F 45 |NT MENU. .T DOE| 00002690: 53 0D 20 20 20 20 20 20 20 20 20 20 CE CF D4 20 |S. ... | 000026A0: 50 4F 50 20 55 50 20 41 20 4C 45 56 45 4C 2E 20 |POP UP A LEVEL. | 000026B0: 20 C9 54 20 53 49 4D 50 4C 59 20 45 52 41 53 45 | .T SIMPLY ERASE| 000026C0: 53 20 49 54 20 46 52 4F 4D 20 54 48 45 20 53 43 |S IT FROM THE SC| 000026D0: 52 45 45 4E 2E 20 20 C9 46 20 54 48 45 0D 20 20 |REEN. .F THE. | 000026E0: 20 20 20 20 20 20 20 20 56 45 43 54 4F 52 20 41 | VECTOR A| 000026F0: 54 20 24 38 34 C2 31 20 57 41 53 20 53 45 54 2C |T $84.1 WAS SET,| 00002700: 20 54 48 45 4E 20 54 48 41 54 20 49 53 20 54 48 | THEN THAT IS TH| 00002710: 45 20 52 4F 55 54 49 4E 45 20 43 41 4C 4C 45 44 |E ROUTINE CALLED| 00002720: 20 54 4F 20 45 52 41 53 45 0D 20 20 20 20 20 20 | TO ERASE. | 00002730: 20 20 20 20 54 48 45 20 4D 45 4E 55 3B 20 20 4F | THE MENU; O| 00002740: 54 48 45 52 57 49 53 45 2C 20 41 20 42 4C 41 4E |THERWISE, A BLAN| 00002750: 4B 20 50 41 54 54 45 52 4E 20 49 53 20 53 45 4C |K PATTERN IS SEL| 00002760: 45 43 54 45 44 20 57 49 54 48 20 D3 C5 D4 D0 C1 |ECTED WITH .....| 00002770: D4 20 41 4E 44 0D 20 20 20 20 20 20 20 20 20 20 |. AND. | 00002780: D0 C6 C9 CC CC 20 49 53 20 43 41 4C 4C 45 44 2E |..... IS CALLED.| 00002790: 20 D4 48 45 20 44 45 46 41 55 4C 54 20 53 45 54 | .HE DEFAULT SET| 000027A0: 54 49 4E 47 20 46 4F 52 20 24 38 34 C2 31 20 49 |TING FOR $84.1 I| 000027B0: 53 20 C3 CF D0 D9 C2 2E 0D 0D 0D 20 20 20 20 20 |S ......... | 000027C0: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 000027D0: 4D 45 3A 20 C5 D8 C5 D2 D4 CE 0D 20 20 20 20 20 |ME: ....... | 000027E0: 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C6 4F | .URPOSE: .O| 000027F0: 52 43 45 53 20 41 20 54 49 4D 45 44 20 45 56 45 |RCES A TIMED EVE| 00002800: 4E 54 20 54 4F 20 45 58 45 43 55 54 45 2C 52 45 |NT TO EXECUTE,RE| 00002810: 47 41 52 44 4C 45 53 53 20 4F 46 20 49 54 53 20 |GARDLESS OF ITS | 00002820: 54 49 4D 45 52 2E 0D 20 20 20 20 20 20 20 20 20 |TIMER.. | 00002830: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 00002840: C3 31 30 39 0D 20 20 20 20 20 20 20 20 20 20 C9 |.109. .| 00002850: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 00002860: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 00002870: 20 20 D8 20 20 20 20 20 20 20 20 20 D4 48 45 20 | . .HE | 00002880: 49 4E 44 45 58 20 49 4E 54 4F 20 54 48 45 20 43 |INDEX INTO THE C| 00002890: 4F 4D 4D 41 4E 44 20 42 59 54 45 20 54 41 42 4C |OMMAND BYTE TABL| 000028A0: 45 20 41 54 20 24 38 37 31 39 2E 0D 20 20 20 20 |E AT $8719.. | 000028B0: 20 20 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 | .REPARATOR| 000028C0: 59 20 52 4F 55 54 49 4E 45 53 3A 20 C3 CD C4 D4 |Y ROUTINES: ....| 000028D0: C2 CC 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |.... .E| 000028E0: 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 |SCRIPTION: .HIS| 000028F0: 20 20 52 4F 55 54 49 4E 45 20 53 45 54 53 20 42 | ROUTINE SETS B| 00002900: 49 54 20 37 20 4F 46 20 41 20 53 50 45 43 49 46 |IT 7 OF A SPECIF| 00002910: 49 43 20 43 4F 4D 4D 41 4E 44 20 42 59 54 45 0D |IC COMMAND BYTE.| 00002920: 20 20 20 20 20 20 20 20 20 20 49 4E 20 54 48 45 | IN THE| 00002930: 20 54 41 42 4C 45 20 41 54 20 24 38 37 31 39 2E | TABLE AT $8719.| 00002940: 20 D4 48 49 53 20 53 49 4D 55 4C 41 54 45 53 20 | .HIS SIMULATES | 00002950: 54 48 45 20 54 49 4D 45 52 20 48 41 56 49 4E 47 |THE TIMER HAVING| 00002960: 20 52 55 4E 20 4F 55 54 2E 0D 0D 0D 20 20 20 20 | RUN OUT.... | 00002970: 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE | .UNCTION .| 00002980: 41 4D 45 3A 20 C6 C1 CC CC CF C3 0D 20 20 20 20 |AME: ....... | 00002990: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C1 | .URPOSE: .| 000029A0: 4C 4C 4F 43 41 54 45 20 45 4E 4F 55 47 48 20 53 |LLOCATE ENOUGH S| 000029B0: 45 43 54 4F 52 53 20 46 4F 52 20 41 20 46 49 4C |ECTORS FOR A FIL| 000029C0: 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |E.. .AL| 000029D0: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 C6 C3 |L ADDRESS: $.1..| 000029E0: 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 |. .NPUT| 000029F0: 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 | REQUIREMENTS:. | 00002A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00002A10: 36 2D 24 30 37 20 20 20 CE 55 4D 42 45 52 20 4F |6-$07 .UMBER O| 00002A20: 46 20 42 59 54 45 53 20 54 4F 20 42 45 20 53 41 |F BYTES TO BE SA| 00002A30: 56 45 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |VED.. | 00002A40: 20 20 20 20 24 30 C1 2D 24 30 C2 20 20 20 C1 44 | $0.-$0. .D| 00002A50: 44 52 45 53 53 20 4F 46 20 42 55 46 46 45 52 20 |DRESS OF BUFFER | 00002A60: 46 4F 52 20 54 52 41 43 4B 20 41 4E 44 20 53 45 |FOR TRACK AND SE| 00002A70: 43 54 4F 52 20 4C 49 53 54 2E 0D 20 20 20 20 20 |CTOR LIST.. | 00002A80: 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 | .UTPUT:. | 00002A90: 20 20 20 20 20 20 20 20 20 20 20 20 C2 55 46 46 | .UFF| 00002AA0: 45 52 20 49 53 20 46 49 4C 4C 45 44 20 57 49 54 |ER IS FILLED WIT| 00002AB0: 48 20 41 20 53 45 54 20 4F 46 20 54 52 41 43 4B |H A SET OF TRACK| 00002AC0: 53 20 41 4E 44 20 53 45 43 54 4F 52 53 2E 0D 20 |S AND SECTORS.. | 00002AD0: 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 3A | .RRORS:| 00002AE0: 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 0D 0D 20 | .EE .PPENDIX.. | 00002AF0: 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 | .ESCRIP| 00002B00: 54 49 4F 4E 3A 20 20 C7 49 56 45 4E 20 41 20 42 |TION: .IVEN A B| 00002B10: 59 54 45 20 43 4F 55 4E 54 20 41 4E 44 20 41 20 |YTE COUNT AND A | 00002B20: 50 4F 49 4E 54 45 52 20 54 4F 20 41 20 42 55 46 |POINTER TO A BUF| 00002B30: 46 45 52 2C 20 20 54 48 49 53 0D 20 20 20 20 20 |FER, THIS. | 00002B40: 20 20 20 20 20 52 4F 55 54 49 4E 45 20 20 41 54 | ROUTINE AT| 00002B50: 54 45 4D 50 54 53 20 20 54 4F 20 41 4C 4C 4F 43 |TEMPTS TO ALLOC| 00002B60: 41 54 45 20 45 4E 4F 55 47 48 20 53 45 43 54 4F |ATE ENOUGH SECTO| 00002B70: 52 53 2E 20 20 D4 48 49 53 20 20 52 4F 55 54 49 |RS. .HIS ROUTI| 00002B80: 4E 45 20 20 49 53 0D 20 20 20 20 20 20 20 20 20 |NE IS. | 00002B90: 20 43 41 4C 4C 45 44 20 50 52 49 4F 52 20 54 4F | CALLED PRIOR TO| 00002BA0: 20 53 41 56 49 4E 47 20 41 20 46 49 4C 45 2E 20 | SAVING A FILE. | 00002BB0: 20 D4 48 45 20 54 52 41 43 4B 20 41 4E 44 20 53 | .HE TRACK AND S| 00002BC0: 45 43 54 4F 52 20 4C 49 53 54 20 49 53 20 20 4E |ECTOR LIST IS N| 00002BD0: 4F 54 0D 20 20 20 20 20 20 20 20 20 20 4C 49 4D |OT. LIM| 00002BE0: 49 54 45 44 20 20 49 4E 20 4C 45 4E 47 54 48 2C |ITED IN LENGTH,| 00002BF0: 20 20 41 56 41 49 4C 41 42 4C 45 20 44 49 53 4B | AVAILABLE DISK| 00002C00: 20 53 50 41 43 45 20 4E 4F 54 20 20 57 49 54 48 | SPACE NOT WITH| 00002C10: 53 54 41 4E 44 49 4E 47 2E 20 20 D4 48 45 0D 20 |STANDING. .HE. | 00002C20: 20 20 20 20 20 20 20 20 20 4C 49 53 54 20 20 20 | LIST | 00002C30: 49 53 20 20 54 45 52 4D 49 4E 41 54 45 44 20 20 |IS TERMINATED | 00002C40: 57 49 54 48 20 20 41 20 20 54 52 41 43 4B 20 20 |WITH A TRACK | 00002C50: 4E 55 4D 42 45 52 20 20 4F 46 20 20 5A 45 52 4F |NUMBER OF ZERO| 00002C60: 20 20 41 4E 44 20 20 54 48 45 0D 20 20 20 20 20 | AND THE. | 00002C70: 20 20 20 20 20 41 50 50 52 4F 50 52 49 41 54 45 | APPROPRIATE| 00002C80: 20 42 59 54 45 20 43 4F 55 4E 54 20 49 4E 20 54 | BYTE COUNT IN T| 00002C90: 48 45 20 53 45 43 54 4F 52 20 4C 4F 43 41 54 49 |HE SECTOR LOCATI| 00002CA0: 4F 4E 2E 20 20 CE 4F 54 45 20 49 46 20 41 4E 20 |ON. .OTE IF AN | 00002CB0: 20 45 52 52 4F 52 0D 20 20 20 20 20 20 20 20 20 | ERROR. | 00002CC0: 20 4F 43 43 55 52 53 20 20 44 55 52 49 4E 47 20 | OCCURS DURING | 00002CD0: 54 48 45 20 41 4C 4C 4F 43 41 54 49 4F 4E 2C 20 |THE ALLOCATION, | 00002CE0: 20 54 48 45 20 53 45 43 54 4F 52 53 20 41 4C 52 | THE SECTORS ALR| 00002CF0: 45 41 44 59 20 41 4C 4C 4F 43 41 54 45 44 20 41 |EADY ALLOCATED A| 00002D00: 52 45 0D 20 20 20 20 20 20 20 20 20 20 4E 4F 54 |RE. NOT| 00002D10: 20 20 46 52 45 45 44 20 20 55 50 2E 20 20 C5 49 | FREED UP. .I| 00002D20: 54 48 45 52 20 20 54 48 49 53 20 4D 55 53 54 20 |THER THIS MUST | 00002D30: 42 45 20 44 4F 4E 45 20 4F 52 20 54 48 45 20 20 |BE DONE OR THE | 00002D40: 44 49 53 4B 20 20 4D 55 53 54 20 20 42 45 0D 20 |DISK MUST BE. | 00002D50: 20 20 20 20 20 20 20 20 20 56 41 4C 49 44 41 54 | VALIDAT| 00002D60: 45 44 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 |ED............. | 00002D70: 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 CB 45 | .... .E| 00002D80: 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 20 20 |RNAL .OUTINES | 00002D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002DA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002DB0: 20 20 20 31 2D 32 38 0D 0D 0D 20 20 20 20 20 20 | 1-28... | 00002DC0: 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D | .UNCTION .AM| 00002DD0: 45 3A 20 C6 C1 CC CF C3 32 0D 20 20 20 20 20 20 |E: .....2. | 00002DE0: 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C1 4C 4C | .URPOSE: .LL| 00002DF0: 4F 43 41 54 45 20 45 4E 4F 55 47 48 20 53 45 43 |OCATE ENOUGH SEC| 00002E00: 54 4F 52 53 20 46 4F 52 20 41 20 46 49 4C 45 2E |TORS FOR A FILE.| 00002E10: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00002E20: 41 44 44 52 45 53 53 3A 20 24 C3 32 34 C4 0D 20 |ADDRESS: $.24.. | 00002E30: 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 | .NPUT R| 00002E40: 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 |EQUIREMENTS:. | 00002E50: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 36 2D | $06-| 00002E60: 24 30 37 20 20 20 CE 55 4D 42 45 52 20 4F 46 20 |$07 .UMBER OF | 00002E70: 42 59 54 45 53 20 54 4F 20 42 45 20 53 41 56 45 |BYTES TO BE SAVE| 00002E80: 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |D.. | 00002E90: 20 20 24 30 38 20 20 20 20 20 20 20 D4 52 41 43 | $08 .RAC| 00002EA0: 4B 20 54 4F 20 53 54 41 52 54 20 4C 4F 4F 4B 49 |K TO START LOOKI| 00002EB0: 4E 47 20 46 52 4F 4D 2E 0D 20 20 20 20 20 20 20 |NG FROM.. | 00002EC0: 20 20 20 20 20 20 20 20 24 30 39 20 20 20 20 20 | $09 | 00002ED0: 20 20 D3 45 43 54 4F 52 20 54 4F 20 53 54 41 52 | .ECTOR TO STAR| 00002EE0: 54 20 4C 4F 4F 4B 49 4E 47 20 46 52 4F 4D 2E 0D |T LOOKING FROM..| 00002EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00002F00: 30 C1 2D 24 30 C2 20 20 20 C1 44 44 52 45 53 53 |0.-$0. .DDRESS| 00002F10: 20 4F 46 20 42 55 46 46 45 52 20 46 4F 52 20 54 | OF BUFFER FOR T| 00002F20: 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 |RACK AND SECTOR | 00002F30: 4C 49 53 54 2E 0D 20 20 20 20 20 20 20 20 20 20 |LIST.. | 00002F40: CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 |.UTPUT:. | 00002F50: 20 20 20 20 20 20 20 C2 55 46 46 45 52 20 49 53 | .UFFER IS| 00002F60: 20 46 49 4C 4C 45 44 20 57 49 54 48 20 41 20 53 | FILLED WITH A S| 00002F70: 45 54 20 4F 46 20 54 52 41 43 4B 53 20 41 4E 44 |ET OF TRACKS AND| 00002F80: 20 53 45 43 54 4F 52 53 2E 0D 20 20 20 20 20 20 | SECTORS.. | 00002F90: 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 | .RRORS: .EE | 00002FA0: C1 50 50 45 4E 44 49 58 0D 0D 20 20 20 20 20 20 |.PPENDIX.. | 00002FB0: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A | .ESCRIPTION:| 00002FC0: 20 20 D4 48 49 53 20 20 52 4F 55 54 49 4E 45 20 | .HIS ROUTINE | 00002FD0: 49 53 20 41 4C 4D 4F 53 54 20 49 44 45 4E 54 49 |IS ALMOST IDENTI| 00002FE0: 43 41 4C 20 54 4F 20 C6 C1 CC CC CF C3 2E 20 20 |CAL TO ....... | 00002FF0: C1 53 20 20 41 0D 20 20 20 20 20 20 20 20 20 20 |.S A. | 00003000: 4D 41 54 54 45 52 20 4F 46 20 46 41 43 54 2C 20 |MATTER OF FACT, | 00003010: C6 C1 CC CC CF C3 20 46 41 4C 4C 53 20 49 4E 54 |...... FALLS INT| 00003020: 4F 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 41 |O THIS ROUTINE A| 00003030: 46 54 45 52 20 53 45 54 54 49 4E 47 20 24 30 38 |FTER SETTING $08| 00003040: 2D 0D 20 20 20 20 20 20 20 20 20 20 24 30 39 20 |-. $09 | 00003050: 54 4F 20 50 4F 49 4E 54 20 54 4F 20 54 52 41 43 |TO POINT TO TRAC| 00003060: 4B 20 31 20 53 45 43 54 4F 52 20 30 2E 20 D4 48 |K 1 SECTOR 0. .H| 00003070: 49 53 20 52 4F 55 54 49 4E 45 20 41 4C 4C 4F 57 |IS ROUTINE ALLOW| 00003080: 53 20 54 48 45 20 55 53 45 52 20 54 4F 0D 20 20 |S THE USER TO. | 00003090: 20 20 20 20 20 20 20 20 53 50 45 43 49 46 59 20 | SPECIFY | 000030A0: 20 57 48 45 52 45 20 20 4F 4E 20 54 48 45 20 44 | WHERE ON THE D| 000030B0: 49 53 4B 20 54 4F 20 53 54 41 52 54 20 4C 4F 4F |ISK TO START LOO| 000030C0: 4B 49 4E 47 20 20 46 4F 52 20 20 46 52 45 45 20 |KING FOR FREE | 000030D0: 20 53 45 43 54 4F 52 53 2C 0D 20 20 20 20 20 20 | SECTORS,. | 000030E0: 20 20 20 20 50 4F 53 53 49 42 4C 59 20 53 50 45 | POSSIBLY SPE| 000030F0: 45 44 49 4E 47 20 54 48 49 4E 47 53 20 55 50 2E |EDING THINGS UP.| 00003100: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E |... .UN| 00003110: 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C6 CF CE D4 |CTION .AME: ....| 00003120: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00003130: 53 45 3A 20 C3 48 41 4E 47 45 20 54 48 45 20 43 |SE: .HANGE THE C| 00003140: 55 52 52 45 4E 54 20 46 4F 4E 54 2E 0D 20 20 20 |URRENT FONT.. | 00003150: 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 | .ALL ADDR| 00003160: 45 53 53 3A 20 24 C3 31 C3 C3 0D 20 20 20 20 20 |ESS: $.1... | 00003170: 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 | .NPUT REQUI| 00003180: 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 |REMENTS:. | 00003190: 20 20 20 20 20 20 20 20 24 30 32 2D 24 30 33 20 | $02-$03 | 000031A0: 20 20 D0 4F 49 4E 54 45 52 20 54 4F 20 46 4F 4E | .OINTER TO FON| 000031B0: 54 20 48 45 41 44 45 52 20 49 4E 20 4D 45 4D 4F |T HEADER IN MEMO| 000031C0: 52 59 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 |RY.. .U| 000031D0: 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 |TPUT:. | 000031E0: 20 20 20 20 20 24 32 36 20 20 20 20 20 20 20 23 | $26 #| 000031F0: 20 50 49 58 45 4C 53 20 41 42 4F 56 45 20 4C 49 | PIXELS ABOVE LI| 00003200: 4E 45 20 4F 46 20 50 52 49 4E 54 2E 0D 20 20 20 |NE OF PRINT.. | 00003210: 20 20 20 20 20 20 20 20 20 20 20 20 24 32 37 2D | $27-| 00003220: 24 32 38 20 20 20 D4 48 45 20 4E 55 4D 42 45 52 |$28 .HE NUMBER| 00003230: 20 4F 46 20 42 59 54 45 53 20 49 4E 20 54 48 45 | OF BYTES IN THE| 00003240: 20 42 49 54 20 53 54 52 45 41 4D 2E 0D 20 20 20 | BIT STREAM.. | 00003250: 20 20 20 20 20 20 20 20 20 20 20 20 24 32 39 20 | $29 | 00003260: 20 20 20 20 20 20 D4 48 45 20 50 4F 49 4E 54 20 | .HE POINT | 00003270: 53 49 5A 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |SIZE.. | 00003280: 20 20 20 20 20 24 32 C1 2D 24 32 C2 20 20 20 D0 | $2.-$2. .| 00003290: 4F 49 4E 54 45 52 20 54 4F 20 54 48 45 20 54 41 |OINTER TO THE TA| 000032A0: 42 4C 45 20 4F 46 20 54 48 45 20 42 49 54 20 53 |BLE OF THE BIT S| 000032B0: 54 52 45 41 4D 20 49 4E 44 49 43 45 53 2E 0D 20 |TREAM INDICES.. | 000032C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 32 | $2| 000032D0: C3 2D 24 32 C4 20 20 20 D0 4F 49 4E 54 45 52 20 |.-$2. .OINTER | 000032E0: 54 4F 20 54 48 45 20 42 49 54 20 53 54 52 45 41 |TO THE BIT STREA| 000032F0: 4D 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |M... .E| 00003300: 53 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 |SCRIPTION: .HIS | 00003310: 52 4F 55 54 49 4E 45 20 53 49 4D 50 4C 59 20 43 |ROUTINE SIMPLY C| 00003320: 4F 50 49 45 53 20 54 48 45 20 48 45 41 44 45 52 |OPIES THE HEADER| 00003330: 20 42 4C 4F 43 4B 20 46 52 4F 4D 20 54 48 45 0D | BLOCK FROM THE.| 00003340: 20 20 20 20 20 20 20 20 20 20 46 4F 4E 54 20 54 | FONT T| 00003350: 4F 20 5A 45 52 4F 20 50 41 47 45 2E 20 20 D4 48 |O ZERO PAGE. .H| 00003360: 49 53 20 4D 41 4B 45 53 20 54 48 45 20 46 4F 4E |IS MAKES THE FON| 00003370: 54 20 54 48 45 20 43 55 52 52 45 4E 54 20 46 4F |T THE CURRENT FO| 00003380: 4E 54 20 46 4F 52 20 20 41 4C 4C 0D 20 20 20 20 |NT FOR ALL. | 00003390: 20 20 20 20 20 20 43 48 41 52 41 43 54 45 52 20 | CHARACTER | 000033A0: 4F 55 54 50 55 54 2E 20 28 D3 45 45 20 C4 D3 D0 |OUTPUT. (.EE ...| 000033B0: C3 C8 D2 2C 20 C4 D3 D0 D4 D8 D4 20 41 4E 44 20 |..., ...... AND | 000033C0: C4 D3 D0 D4 D8 32 29 2E 0D 0D 0D 20 20 20 20 20 |.....2).... | 000033D0: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 000033E0: 4D 45 3A 20 C6 CF D2 C2 C9 C4 0D 20 20 20 20 20 |ME: ....... | 000033F0: 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C4 49 | .URPOSE: .I| 00003400: 53 41 42 4C 45 53 20 54 48 45 20 45 58 45 43 55 |SABLES THE EXECU| 00003410: 54 49 4F 4E 20 4F 46 20 41 20 54 49 4D 45 44 20 |TION OF A TIMED | 00003420: 45 56 45 4E 54 2E 0D 20 20 20 20 20 20 20 20 20 |EVENT.. | 00003430: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 00003440: C3 31 30 C3 0D 20 20 20 20 20 20 20 20 20 20 C9 |.10.. .| 00003450: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 00003460: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 00003470: 20 20 D8 20 20 20 20 20 20 20 20 20 D4 48 45 20 | . .HE | 00003480: 49 4E 44 45 58 20 49 4E 54 4F 20 54 48 45 20 43 |INDEX INTO THE C| 00003490: 4F 4D 4D 41 4E 44 20 54 41 42 4C 45 20 41 54 20 |OMMAND TABLE AT | 000034A0: 24 38 37 31 39 2E 0D 20 20 20 20 20 20 20 20 20 |$8719.. | 000034B0: 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 4F 55 | .REPARATORY ROU| 000034C0: 54 49 4E 45 53 3A 20 C3 CD C4 D4 C2 CC 0D 0D 20 |TINES: ........ | 000034D0: 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 | .ESCRIP| 000034E0: 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F 55 54 |TION: .HIS ROUT| 000034F0: 49 4E 45 20 53 45 54 53 20 42 49 54 20 36 20 4F |INE SETS BIT 6 O| 00003500: 46 20 41 20 53 50 45 43 49 46 49 43 20 43 4F 4D |F A SPECIFIC COM| 00003510: 4D 41 4E 44 20 20 42 59 54 45 0D 20 20 20 20 20 |MAND BYTE. | 00003520: 20 20 20 20 20 49 4E 20 54 48 45 20 54 41 42 4C | IN THE TABL| 00003530: 45 20 41 54 20 24 38 37 31 39 2E 20 20 D4 48 49 |E AT $8719. .HI| 00003540: 53 20 50 52 45 56 45 4E 54 53 20 54 48 45 20 41 |S PREVENTS THE A| 00003550: 53 53 4F 43 49 41 54 45 44 20 52 4F 55 54 49 4E |SSOCIATED ROUTIN| 00003560: 45 20 46 52 4F 4D 0D 20 20 20 20 20 20 20 20 20 |E FROM. | 00003570: 20 45 58 45 43 55 54 49 4E 47 2C 20 52 45 47 41 | EXECUTING, REGA| 00003580: 52 44 4C 45 53 53 20 4F 46 20 49 54 53 20 54 49 |RDLESS OF ITS TI| 00003590: 4D 45 52 2E 20 20 D4 48 49 53 20 44 4F 45 53 20 |MER. .HIS DOES | 000035A0: CE CF D4 20 53 54 4F 50 20 54 48 45 20 54 49 4D |... STOP THE TIM| 000035B0: 45 52 0D 20 20 20 20 20 20 20 20 20 20 46 52 4F |ER. FRO| 000035C0: 4D 20 20 52 55 4E 4E 49 4E 47 2E 20 20 C9 46 20 |M RUNNING. .F | 000035D0: 20 54 48 45 20 20 54 49 4D 45 52 20 20 52 55 4E | THE TIMER RUN| 000035E0: 53 20 4F 55 54 20 20 57 48 49 4C 45 20 20 54 48 |S OUT WHILE TH| 000035F0: 45 20 20 52 4F 55 54 49 4E 45 20 20 49 53 0D 20 |E ROUTINE IS. | 00003600: 20 20 20 20 20 20 20 20 20 44 49 53 41 42 4C 45 | DISABLE| 00003610: 44 2C 20 20 57 48 45 4E 20 20 54 48 45 20 54 49 |D, WHEN THE TI| 00003620: 4D 45 52 20 49 53 20 52 45 45 4E 41 42 4C 45 44 |MER IS REENABLED| 00003630: 2C 20 20 54 48 45 20 41 53 53 4F 43 49 41 54 45 |, THE ASSOCIATE| 00003640: 44 20 20 52 4F 55 54 49 4E 45 0D 20 20 20 20 20 |D ROUTINE. | 00003650: 20 20 20 20 20 57 49 4C 4C 20 42 45 20 45 58 45 | WILL BE EXE| 00003660: 43 55 54 45 44 2E 20 D4 48 49 53 20 52 4F 55 54 |CUTED. .HIS ROUT| 00003670: 49 4E 45 20 49 53 20 54 48 45 20 43 4F 4D 50 4C |INE IS THE COMPL| 00003680: 45 4D 45 4E 54 20 54 4F 20 D0 C5 D2 CD C9 D4 2E |EMENT TO .......| 00003690: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 |............... | 000036A0: 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 CB 45 | .... .E| 000036B0: 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 20 20 |RNAL .OUTINES | 000036C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000036D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000036E0: 20 20 20 31 2D 32 39 0D 0D 0D 20 20 20 20 20 20 | 1-29... | 000036F0: 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D | .UNCTION .AM| 00003700: 45 3A 20 C6 D2 C5 C5 0D 20 20 20 20 20 20 20 20 |E: ..... | 00003710: 20 20 D0 55 52 50 4F 53 45 3A 20 C4 45 41 4C 4C | .URPOSE: .EALL| 00003720: 4F 43 41 54 45 53 20 41 4C 4C 20 4F 46 20 41 20 |OCATES ALL OF A | 00003730: 46 49 4C 45 27 53 20 53 45 43 54 4F 52 53 2E 0D |FILE'S SECTORS..| 00003740: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00003750: 44 44 52 45 53 53 3A 20 24 C3 32 32 36 0D 20 20 |DDRESS: $.226. | 00003760: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00003770: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 00003780: 20 20 20 20 20 20 20 20 20 20 20 24 31 34 2D 24 | $14-$| 00003790: 31 35 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F 20 |15 .OINTER TO | 000037A0: 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 2E |DIRECTORY ENTRY.| 000037B0: 0D 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 |. .REPA| 000037C0: 52 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A |RATORY ROUTINES:| 000037D0: 20 CC CF CF CB D5 D0 20 28 D0 4F 49 4E 54 45 52 | ...... (.OINTER| 000037E0: 20 4D 55 53 54 20 42 45 20 43 4F 50 49 45 44 29 | MUST BE COPIED)| 000037F0: 2E 0D 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F |.. .RRO| 00003800: 52 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 |RS: .EE .PPENDIX| 00003810: 20 C9 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 | .... .| 00003820: 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 C7 49 56 |ESCRIPTION: .IV| 00003830: 45 4E 20 20 54 48 45 20 20 44 49 52 45 43 54 4F |EN THE DIRECTO| 00003840: 52 59 20 45 4E 54 52 59 20 4F 46 20 41 20 46 49 |RY ENTRY OF A FI| 00003850: 4C 45 2C 20 20 41 4C 4C 20 4F 46 20 20 49 54 53 |LE, ALL OF ITS| 00003860: 0D 20 20 20 20 20 20 20 20 20 20 53 45 43 54 4F |. SECTO| 00003870: 52 53 20 41 52 45 20 20 52 45 54 55 52 4E 45 44 |RS ARE RETURNED| 00003880: 20 54 4F 20 54 48 45 20 46 52 45 45 20 20 50 4F | TO THE FREE PO| 00003890: 4F 4C 2E 20 20 D4 48 45 20 20 44 49 52 45 43 54 |OL. .HE DIRECT| 000038A0: 4F 52 59 20 20 50 4F 49 4E 54 45 52 0D 20 20 20 |ORY POINTER. | 000038B0: 20 20 20 20 20 20 20 53 48 4F 55 4C 44 20 20 42 | SHOULD B| 000038C0: 45 20 20 50 4F 49 4E 54 49 4E 47 20 54 4F 20 54 |E POINTING TO T| 000038D0: 48 45 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 |HE DIRECTORY ENT| 000038E0: 52 59 20 41 54 20 24 38 34 30 30 20 41 4E 44 20 |RY AT $8400 AND | 000038F0: 4E 4F 54 20 20 54 48 45 0D 20 20 20 20 20 20 20 |NOT THE. | 00003900: 20 20 20 50 4F 49 4E 54 45 52 20 52 45 54 55 52 | POINTER RETUR| 00003910: 4E 45 44 20 42 59 20 CC CF CF CB D5 D0 2E 20 20 |NED BY ....... | 00003920: D4 48 49 53 20 49 53 20 44 55 45 20 54 4F 20 4D |.HIS IS DUE TO M| 00003930: 45 4D 4F 52 59 20 43 4F 4E 46 4C 49 43 54 53 20 |EMORY CONFLICTS | 00003940: 54 48 41 54 0D 20 20 20 20 20 20 20 20 20 20 57 |THAT. W| 00003950: 49 4C 4C 20 41 52 49 53 45 2E 20 D4 48 49 53 20 |ILL ARISE. .HIS | 00003960: 52 4F 55 54 49 4E 45 20 55 53 45 53 20 24 38 30 |ROUTINE USES $80| 00003970: 30 30 2D 24 38 32 C6 C6 20 46 4F 52 20 49 54 53 |00-$82.. FOR ITS| 00003980: 20 42 55 46 46 45 52 20 41 52 45 41 53 2E 0D 0D | BUFFER AREAS...| 00003990: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 000039A0: 49 4F 4E 20 CE 41 4D 45 3A 20 C7 C5 CF D3 C3 CB |ION .AME: ......| 000039B0: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 000039C0: 53 45 3A 20 C3 48 45 43 4B 53 20 49 46 20 41 20 |SE: .HECKS IF A | 000039D0: 44 49 53 4B 20 49 53 20 C7 C5 CF D3 20 46 4F 52 |DISK IS .... FOR| 000039E0: 4D 41 54 20 4F 52 20 4E 4F 54 2E 0D 20 20 20 20 |MAT OR NOT.. | 000039F0: 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 | .ALL ADDRE| 00003A00: 53 53 3A 20 24 C3 31 C4 C5 0D 20 20 20 20 20 20 |SS: $.1... | 00003A10: 20 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 | .NPUT REQUIR| 00003A20: 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 |EMENTS:. | 00003A30: 20 20 20 20 20 20 20 24 30 C3 2D 24 30 C4 20 20 | $0.-$0. | 00003A40: 20 D0 4F 49 4E 54 45 52 20 54 4F 20 42 55 46 46 | .OINTER TO BUFF| 00003A50: 45 52 20 57 49 54 48 20 54 52 41 43 4B 20 31 38 |ER WITH TRACK 18| 00003A60: 20 53 45 43 54 4F 52 20 30 2E 0D 20 20 20 20 20 | SECTOR 0.. | 00003A70: 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 | .UTPUT:. | 00003A80: 20 20 20 20 20 20 20 20 20 20 20 20 DA 20 20 20 | . | 00003A90: 20 20 20 20 20 20 D3 45 54 20 49 46 20 4E 4F 4E | .ET IF NON| 00003AA0: 2D C7 C5 CF D3 2C 20 52 45 53 45 54 20 49 46 20 |-...., RESET IF | 00003AB0: C7 C5 CF D3 20 46 4F 52 4D 41 54 2E 0D 20 20 20 |.... FORMAT.. | 00003AC0: 20 20 20 20 20 20 20 20 20 20 20 20 C1 2C 24 38 | .,$8| 00003AD0: 34 38 C2 20 20 20 24 30 30 20 49 46 20 4E 4F 4E |48. $00 IF NON| 00003AE0: 2D C7 C5 CF D3 2C 20 24 C6 C6 20 49 46 20 C7 C5 |-...., $.. IF ..| 00003AF0: CF D3 20 46 4F 52 4D 41 54 2E 0D 0D 20 20 20 20 |.. FORMAT... | 00003B00: 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F | .ESCRIPTIO| 00003B10: 4E 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 4E |N: .HIS ROUTIN| 00003B20: 45 20 20 45 58 50 45 43 54 53 20 54 48 41 54 20 |E EXPECTS THAT | 00003B30: 54 52 41 43 4B 20 31 38 20 53 45 43 54 4F 52 20 |TRACK 18 SECTOR | 00003B40: 20 30 20 20 48 41 53 0D 20 20 20 20 20 20 20 20 | 0 HAS. | 00003B50: 20 20 41 4C 52 45 41 44 59 20 20 42 45 45 4E 20 | ALREADY BEEN | 00003B60: 20 52 45 41 44 2E 20 20 C9 54 20 20 43 4F 4D 50 | READ. .T COMP| 00003B70: 41 52 45 53 20 31 31 20 42 59 54 45 53 2C 20 20 |ARES 11 BYTES, | 00003B80: 53 54 41 52 54 49 4E 47 20 20 57 49 54 48 20 20 |STARTING WITH | 00003B90: 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 31 37 |THE. 17| 00003BA0: 33 52 44 2C 20 20 41 47 41 49 4E 53 54 20 27 C7 |3RD, AGAINST '.| 00003BB0: C5 CF D3 20 46 4F 52 4D 41 54 27 2E 20 20 C9 54 |... FORMAT'. .T| 00003BC0: 20 53 45 54 53 20 24 38 34 38 C2 20 53 4F 20 54 | SETS $848. SO T| 00003BD0: 48 41 54 20 54 48 45 20 43 55 52 52 45 4E 54 0D |HAT THE CURRENT.| 00003BE0: 20 20 20 20 20 20 20 20 20 20 44 52 49 56 45 20 | DRIVE | 00003BF0: 49 53 20 4B 45 50 54 20 54 52 41 43 4B 20 4F 46 |IS KEPT TRACK OF| 00003C00: 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |.... .U| 00003C10: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C7 C5 D4 |NCTION .AME: ...| 00003C20: C2 D9 D4 0D 20 20 20 20 20 20 20 20 20 20 D0 55 |.... .U| 00003C30: 52 50 4F 53 45 3A 20 D2 45 41 44 20 41 20 42 59 |RPOSE: .EAD A BY| 00003C40: 54 45 20 46 52 4F 4D 20 41 20 46 49 4C 45 2E 0D |TE FROM A FILE..| 00003C50: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00003C60: 44 44 52 45 53 53 3A 20 24 C3 32 C2 36 0D 20 20 |DDRESS: $.2.6. | 00003C70: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00003C80: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 00003C90: 20 20 20 20 20 20 20 20 20 20 20 24 30 C3 20 20 | $0. | 00003CA0: 20 20 20 20 20 C9 4E 44 45 58 20 4F 46 20 4C 41 | .NDEX OF LA| 00003CB0: 53 54 20 42 59 54 45 20 49 4E 20 42 55 46 46 45 |ST BYTE IN BUFFE| 00003CC0: 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |R.. | 00003CD0: 20 20 24 30 C4 20 20 20 20 20 20 20 C9 4E 44 45 | $0. .NDE| 00003CE0: 58 20 54 4F 20 4E 45 58 54 20 43 48 41 52 41 43 |X TO NEXT CHARAC| 00003CF0: 54 45 52 20 49 4E 20 42 55 46 46 45 52 2E 0D 20 |TER IN BUFFER.. | 00003D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00003D10: C1 2D 24 30 C2 20 20 20 D0 4F 49 4E 54 45 52 20 |.-$0. .OINTER | 00003D20: 54 4F 20 44 49 53 4B 20 42 55 46 46 45 52 2E 0D |TO DISK BUFFER..| 00003D30: 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 | .UTPUT| 00003D40: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00003D50: 20 C1 20 20 20 20 20 20 20 20 20 C3 48 41 52 41 | . .HARA| 00003D60: 43 54 45 52 20 54 48 41 54 20 57 41 53 20 52 45 |CTER THAT WAS RE| 00003D70: 41 44 2E 0D 20 20 20 20 20 20 20 20 20 20 C5 52 |AD.. .R| 00003D80: 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 |RORS: .EE .PPEND| 00003D90: 49 58 20 C9 2E 0D 0D 20 20 20 20 20 20 20 20 20 |IX .... | 00003DA0: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 00003DB0: 48 45 20 49 4E 49 54 49 41 4C 20 53 45 43 54 4F |HE INITIAL SECTO| 00003DC0: 52 20 4D 55 53 54 20 48 41 56 45 20 42 45 45 4E |R MUST HAVE BEEN| 00003DD0: 20 52 45 41 44 20 42 45 43 41 55 53 45 20 20 54 | READ BECAUSE T| 00003DE0: 48 45 0D 20 20 20 20 20 20 20 20 20 20 46 49 52 |HE. FIR| 00003DF0: 53 54 20 54 57 4F 20 42 59 54 45 53 20 49 4E 20 |ST TWO BYTES IN | 00003E00: 54 48 45 20 42 55 46 46 45 52 20 41 52 45 20 55 |THE BUFFER ARE U| 00003E10: 53 45 44 20 54 4F 20 46 49 4E 44 20 54 48 45 20 |SED TO FIND THE | 00003E20: 4E 45 58 54 20 54 52 41 43 4B 20 41 4E 44 0D 20 |NEXT TRACK AND. | 00003E30: 20 20 20 20 20 20 20 20 20 53 45 43 54 4F 52 2E | SECTOR.| 00003E40: 20 20 C2 59 54 45 53 20 20 41 52 45 20 52 45 41 | .YTES ARE REA| 00003E50: 44 20 46 52 4F 4D 20 54 48 45 20 42 55 46 46 45 |D FROM THE BUFFE| 00003E60: 52 20 55 4E 54 49 4C 20 54 48 45 52 45 20 41 52 |R UNTIL THERE AR| 00003E70: 45 20 4E 4F 20 4D 4F 52 45 2C 0D 20 20 20 20 20 |E NO MORE,. | 00003E80: 20 20 20 20 20 54 48 45 4E 20 20 54 48 45 20 4E | THEN THE N| 00003E90: 45 58 54 20 53 45 43 54 4F 52 20 49 53 20 52 45 |EXT SECTOR IS RE| 00003EA0: 41 44 20 46 52 4F 4D 20 54 48 45 20 44 49 53 4B |AD FROM THE DISK| 00003EB0: 2E 20 20 D4 48 49 53 20 20 43 41 4E 20 20 43 4F |. .HIS CAN CO| 00003EC0: 4E 54 49 4E 55 45 0D 20 20 20 20 20 20 20 20 20 |NTINUE. | 00003ED0: 20 55 4E 54 49 4C 20 20 54 48 45 20 4C 41 53 54 | UNTIL THE LAST| 00003EE0: 20 43 48 41 52 41 43 54 45 52 20 4F 46 20 54 48 | CHARACTER OF TH| 00003EF0: 45 20 4C 41 53 54 20 53 45 43 54 4F 52 20 49 53 |E LAST SECTOR IS| 00003F00: 20 52 45 41 44 2E 20 20 C1 46 54 45 52 20 54 48 | READ. .FTER TH| 00003F10: 49 53 0D 20 20 20 20 20 20 20 20 20 20 41 4E 20 |IS. AN | 00003F20: 45 52 52 4F 52 20 31 31 20 28 C5 4E 44 20 4F 46 |ERROR 11 (.ND OF| 00003F30: 20 46 49 4C 45 29 20 57 49 4C 4C 20 42 45 20 52 | FILE) WILL BE R| 00003F40: 45 54 55 52 4E 45 44 2E 0D 0D 0D 0D 0D 0D 0D 0D |ETURNED.........| 00003F50: 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 |......... | 00003F60: 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 | .... .ERNAL .| 00003F70: 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 |OUTINES | 00003F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 33 | 1-3| 00003FA0: 30 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |0... .U| 00003FB0: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C7 C5 D4 |NCTION .AME: ...| 00003FC0: C9 CE 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 |... .UR| 00003FD0: 50 4F 53 45 3A 20 C7 45 54 20 41 20 4B 45 59 20 |POSE: .ET A KEY | 00003FE0: 46 52 4F 4D 20 54 48 45 20 4B 45 59 42 4F 41 52 |FROM THE KEYBOAR| 00003FF0: 44 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |D.. .AL| 00004000: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 C1 37 |L ADDRESS: $.2.7| 00004010: 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 |. .UTPU| 00004020: 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T:. | 00004030: 20 20 C1 20 20 20 20 20 20 20 20 20 C3 48 41 52 | . .HAR| 00004040: 41 43 54 45 52 20 4F 52 20 24 30 30 20 49 46 20 |ACTER OR $00 IF | 00004050: 54 48 45 52 45 20 41 52 45 20 4E 4F 4E 45 2E 0D |THERE ARE NONE..| 00004060: 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 |. .ESCR| 00004070: 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 4F 55 |IPTION: .HIS ROU| 00004080: 54 49 4E 45 20 54 41 4B 45 53 20 41 20 4B 45 59 |TINE TAKES A KEY| 00004090: 20 46 52 4F 4D 20 20 54 48 45 20 20 4B 45 59 42 | FROM THE KEYB| 000040A0: 4F 41 52 44 20 42 55 46 46 45 52 2C 0D 20 20 20 |OARD BUFFER,. | 000040B0: 20 20 20 20 20 20 20 49 46 20 54 48 45 52 45 20 | IF THERE | 000040C0: 49 53 20 4F 4E 45 2E 20 C9 46 20 54 48 45 52 45 |IS ONE. .F THERE| 000040D0: 20 41 52 45 20 4E 4F 20 43 48 41 52 41 43 54 45 | ARE NO CHARACTE| 000040E0: 52 53 20 49 4E 20 54 48 45 20 42 55 46 46 45 52 |RS IN THE BUFFER| 000040F0: 2C 20 54 48 45 4E 20 41 0D 20 20 20 20 20 20 20 |, THEN A. | 00004100: 20 20 20 5A 45 52 4F 20 49 53 20 52 45 54 55 52 | ZERO IS RETUR| 00004110: 4E 45 44 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 |NED.... | 00004120: 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 | .UNCTION .AME: | 00004130: C7 CF D4 CF 0D 20 20 20 20 20 20 20 20 20 20 D0 |..... .| 00004140: 55 52 50 4F 53 45 3A 20 C7 45 54 20 41 20 53 50 |URPOSE: .ET A SP| 00004150: 45 43 49 46 49 43 20 D6 CC C9 D2 20 43 48 41 49 |ECIFIC .... CHAI| 00004160: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |N.. .AL| 00004170: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 38 30 |L ADDRESS: $.280| 00004180: 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 |. .NPUT| 00004190: 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 | REQUIREMENTS:. | 000041A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 20 | . | 000041B0: 20 20 20 20 20 20 20 20 D6 CC C9 D2 20 43 48 41 | .... CHA| 000041C0: 49 4E 20 4E 55 4D 42 45 52 2E 0D 20 20 20 20 20 |IN NUMBER.. | 000041D0: 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 | .UTPUT:. | 000041E0: 20 20 20 20 20 20 20 20 20 20 20 20 D9 20 20 20 | . | 000041F0: 20 20 20 20 20 20 D4 52 41 43 4B 20 4F 46 20 D6 | .RACK OF .| 00004200: CC C9 D2 20 43 48 41 49 4E 2E 0D 20 20 20 20 20 |... CHAIN.. | 00004210: 20 20 20 20 20 20 20 20 20 20 24 30 34 20 20 20 | $04 | 00004220: 20 20 20 20 D4 52 41 43 4B 20 4F 46 20 D6 CC C9 | .RACK OF ...| 00004230: D2 20 43 48 41 49 4E 2E 0D 20 20 20 20 20 20 20 |. CHAIN.. | 00004240: 20 20 20 20 20 20 20 20 24 30 35 20 20 20 20 20 | $05 | 00004250: 20 20 D3 45 43 54 4F 52 20 4F 46 20 D6 CC C9 D2 | .ECTOR OF ....| 00004260: 20 43 48 41 49 4E 2E 0D 20 20 20 20 20 20 20 20 | CHAIN.. | 00004270: 20 20 20 20 20 20 20 24 38 34 39 36 20 20 20 20 | $8496 | 00004280: 20 D3 45 54 20 54 4F 20 C1 2E 0D 20 20 20 20 20 | .ET TO ... | 00004290: 20 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 | .REPARATORY| 000042A0: 20 52 4F 55 54 49 4E 45 53 3A 20 D6 CF D0 C5 CE | ROUTINES: .....| 000042B0: 0D 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 |. .RROR| 000042C0: 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 20 |S: .EE .PPENDIX | 000042D0: C9 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |.... .E| 000042E0: 53 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 |SCRIPTION: .HIS | 000042F0: 52 4F 55 54 49 4E 45 20 47 45 54 53 20 54 48 45 |ROUTINE GETS THE| 00004300: 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 4F | TRACK AND SECTO| 00004310: 52 20 4F 46 20 41 20 53 50 45 43 49 46 49 43 0D |R OF A SPECIFIC.| 00004320: 20 20 20 20 20 20 20 20 20 20 43 48 41 49 4E 20 | CHAIN | 00004330: 20 49 4E 20 20 54 48 45 20 4F 50 45 4E 20 D6 CC | IN THE OPEN ..| 00004340: C9 D2 20 46 49 4C 45 2E 20 20 C9 54 20 44 4F 45 |.. FILE. .T DOE| 00004350: 53 20 4E 4F 54 20 43 48 45 43 4B 20 54 4F 20 53 |S NOT CHECK TO S| 00004360: 45 45 20 20 49 46 20 20 54 48 45 0D 20 20 20 20 |EE IF THE. | 00004370: 20 20 20 20 20 20 43 48 41 49 4E 20 45 58 49 53 | CHAIN EXIS| 00004380: 54 53 20 28 49 45 2E 20 20 54 52 41 43 4B 20 49 |TS (IE. TRACK I| 00004390: 53 20 5A 45 52 4F 29 2E 20 C9 54 20 44 4F 45 53 |S ZERO). .T DOES| 000043A0: 20 43 48 45 43 4B 20 49 46 20 54 48 49 53 20 43 | CHECK IF THIS C| 000043B0: 48 41 49 4E 20 49 53 0D 20 20 20 20 20 20 20 20 |HAIN IS. | 000043C0: 20 20 47 52 45 41 54 45 52 20 20 54 48 41 4E 20 | GREATER THAN | 000043D0: 20 5A 45 52 4F 20 20 41 4E 44 20 20 4C 45 53 53 | ZERO AND LESS| 000043E0: 20 54 48 41 4E 20 54 48 45 20 20 4E 55 4D 42 45 | THAN THE NUMBE| 000043F0: 52 20 20 4F 46 20 20 D6 CC C9 D2 20 20 43 48 41 |R OF .... CHA| 00004400: 49 4E 53 0D 20 20 20 20 20 20 20 20 20 20 28 CC |INS. (.| 00004410: 4F 43 41 54 49 4F 4E 20 24 38 34 39 37 29 2E 20 |OCATION $8497). | 00004420: D6 CC C9 D2 20 43 48 41 49 4E 53 20 41 52 45 20 |.... CHAINS ARE | 00004430: 4E 55 4D 42 45 52 45 44 20 46 52 4F 4D 20 30 20 |NUMBERED FROM 0 | 00004440: 54 4F 20 CE 2D 31 2C 20 57 48 45 52 45 20 CE 0D |TO .-1, WHERE ..| 00004450: 20 20 20 20 20 20 20 20 20 20 49 53 20 54 48 45 | IS THE| 00004460: 20 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 49 4E | NUMBER OF CHAIN| 00004470: 53 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |S.... .| 00004480: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C7 D2 |UNCTION .AME: ..| 00004490: D0 C8 C3 32 0D 20 20 20 20 20 20 20 20 20 20 D0 |...2. .| 000044A0: 55 52 50 4F 53 45 3A 20 C9 44 45 4E 54 49 43 41 |URPOSE: .DENTICA| 000044B0: 4C 20 54 4F 20 C7 D2 D0 C8 C9 C3 2C 20 42 55 54 |L TO ......, BUT| 000044C0: 20 57 49 54 48 20 49 4E 4C 49 4E 45 20 44 41 54 | WITH INLINE DAT| 000044D0: 41 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |A.. .AL| 000044E0: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 C1 38 |L ADDRESS: $.1.8| 000044F0: 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 |.. .ESC| 00004500: 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 |RIPTION: .HIS R| 00004510: 4F 55 54 49 4E 45 20 54 41 4B 45 53 20 41 4E 20 |OUTINE TAKES AN | 00004520: 49 4E 4C 49 4E 45 20 44 41 54 41 20 54 41 42 4C |INLINE DATA TABL| 00004530: 45 2C 20 43 52 45 41 54 45 53 20 20 41 0D 20 20 |E, CREATES A. | 00004540: 20 20 20 20 20 20 20 20 50 4F 49 4E 54 45 52 20 | POINTER | 00004550: 54 4F 20 49 54 2C 20 54 48 45 4E 20 43 41 4C 4C |TO IT, THEN CALL| 00004560: 53 20 C7 D2 D0 C8 C9 C3 20 54 4F 20 50 52 4F 43 |S ...... TO PROC| 00004570: 45 53 53 20 49 54 2E 20 D3 45 45 20 D0 C6 C9 CC |ESS IT. .EE ....| 00004580: CC 32 20 46 4F 52 20 41 4E 0D 20 20 20 20 20 20 |.2 FOR AN. | 00004590: 20 20 20 20 45 58 41 4D 50 4C 45 20 4F 46 20 49 | EXAMPLE OF I| 000045A0: 4E 4C 49 4E 45 20 44 41 54 41 20 54 41 42 4C 45 |NLINE DATA TABLE| 000045B0: 53 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |S.... .| 000045C0: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C7 D2 |UNCTION .AME: ..| 000045D0: D0 C8 C9 C3 0D 20 20 20 20 20 20 20 20 20 20 D0 |..... .| 000045E0: 55 52 50 4F 53 45 3A 20 D0 52 4F 43 45 53 53 20 |URPOSE: .ROCESS | 000045F0: 53 45 56 45 52 41 4C 20 47 52 41 50 48 49 43 53 |SEVERAL GRAPHICS| 00004600: 20 43 4F 4D 4D 41 4E 44 53 20 44 45 53 49 47 4E | COMMANDS DESIGN| 00004610: 41 54 45 44 20 42 59 20 41 20 54 41 42 4C 45 2E |ATED BY A TABLE.| 00004620: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00004630: 41 44 44 52 45 53 53 3A 20 24 C3 31 33 36 0D 20 |ADDRESS: $.136. | 00004640: 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 | .NPUT R| 00004650: 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 |EQUIREMENTS:. | 00004660: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 32 2D | $02-| 00004670: 24 30 33 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F |$03 .OINTER TO| 00004680: 20 54 48 45 20 54 41 42 4C 45 20 4F 46 20 43 4F | THE TABLE OF CO| 00004690: 4D 4D 41 4E 44 53 2E 0D 0D 20 20 20 20 20 20 20 |MMANDS... | 000046A0: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 000046B0: D4 48 49 53 20 52 4F 55 54 49 4E 45 20 45 58 45 |.HIS ROUTINE EXE| 000046C0: 43 55 54 45 53 20 20 54 48 45 20 47 52 41 50 48 |CUTES THE GRAPH| 000046D0: 49 43 20 20 43 4F 4D 4D 41 4E 44 53 20 50 52 45 |IC COMMANDS PRE| 000046E0: 53 45 4E 54 0D 20 20 20 20 20 20 20 20 20 20 49 |SENT. I| 000046F0: 4E 20 41 20 54 41 42 4C 45 2E 20 D4 48 49 53 20 |N A TABLE. .HIS | 00004700: 52 4F 55 54 49 4E 45 20 49 53 20 55 53 45 44 20 |ROUTINE IS USED | 00004710: 42 59 20 C4 D3 D0 C3 C8 D2 20 28 C3 4F 4E 54 52 |BY ...... (.ONTR| 00004720: 4F 4C 2D D0 29 2C C4 D3 D0 D4 D8 D4 20 28 C2 59 |OL-.),...... (.Y| 00004730: 0D 20 20 20 20 20 20 20 20 20 20 43 41 4C 4C 49 |. CALLI| 00004740: 4E 47 20 20 C4 D3 D0 C3 C8 D2 29 2C 20 41 4E 44 |NG ......), AND| 00004750: 20 D7 C9 CE C4 CF D7 20 28 C3 4F 4D 4D 41 4E 44 | ...... (.OMMAND| 00004760: 20 31 35 29 2E 20 20 D4 48 45 20 20 46 4F 4C 4C | 15). .HE FOLL| 00004770: 4F 57 49 4E 47 20 20 54 41 42 4C 45 0D 20 20 20 |OWING TABLE. | 00004780: 20 20 20 20 20 20 20 44 45 53 43 52 49 42 45 53 | DESCRIBES| 00004790: 20 54 48 45 20 41 56 41 49 4C 41 42 4C 45 20 43 | THE AVAILABLE C| 000047A0: 4F 4D 4D 41 4E 44 53 2E 0D 0D 0D 0D 0D 0D 0D 0D |OMMANDS.........| 000047B0: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 |..... .| 000047C0: C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 |... .ERNAL .OUTI| 000047D0: 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |NES | 000047E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000047F0: 20 20 20 20 20 20 20 20 20 31 2D 33 31 0D 0D 0D | 1-31...| 00004800: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004820: C7 52 41 50 48 49 43 20 C3 4F 4D 4D 41 4E 44 20 |.RAPHIC .OMMAND | 00004830: D4 41 42 4C 45 0D 0D 20 20 20 20 20 20 20 20 20 |.ABLE.. | 00004840: 20 20 20 20 20 20 20 C3 4F 4D 4D 41 4E 44 20 20 | .OMMAND | 00004850: 20 23 C2 59 54 45 53 20 20 C4 45 53 43 52 49 50 | #.YTES .ESCRIP| 00004860: 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 20 20 |TION. | 00004870: 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 20 | 0 | 00004880: 20 31 20 20 20 20 20 D3 54 4F 50 2C 20 45 4E 44 | 1 .TOP, END| 00004890: 20 4F 46 20 54 41 42 4C 45 2E 0D 20 20 20 20 20 | OF TABLE.. | 000048A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 | 1 | 000048B0: 20 20 20 20 20 20 20 34 20 20 20 20 20 D3 45 54 | 4 .ET| 000048C0: 20 43 4F 4C 55 4D 4E 20 41 4E 44 20 52 4F 57 20 | COLUMN AND ROW | 000048D0: 56 41 52 49 41 42 4C 45 53 2E 0D 20 20 20 20 20 |VARIABLES.. | 000048E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 | 2 | 000048F0: 20 20 20 20 20 20 20 34 20 20 20 20 20 C4 52 41 | 4 .RA| 00004900: 57 20 41 20 4C 49 4E 45 2E 0D 20 20 20 20 20 20 |W A LINE.. | 00004910: 20 20 20 20 20 20 20 20 20 20 20 20 33 20 20 20 | 3 | 00004920: 20 20 20 20 20 20 34 20 20 20 20 20 D0 41 54 54 | 4 .ATT| 00004930: 45 52 4E 20 46 49 4C 4C 20 41 20 52 45 47 49 4F |ERN FILL A REGIO| 00004940: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.. | 00004950: 20 20 20 20 20 34 20 20 20 20 20 20 20 20 20 31 | 4 1| 00004960: 20 20 20 20 20 CE 4F 20 4F 50 45 52 41 54 49 4F | .O OPERATIO| 00004970: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |N.. | 00004980: 20 20 20 20 20 35 20 20 20 20 20 20 20 20 20 32 | 5 2| 00004990: 20 20 20 20 20 D3 45 54 20 46 49 4C 4C 20 50 41 | .ET FILL PA| 000049A0: 54 54 45 52 4E 2E 0D 20 20 20 20 20 20 20 20 20 |TTERN.. | 000049B0: 20 20 20 20 20 20 20 20 20 36 20 20 20 20 20 20 | 6 | 000049C0: 20 20 20 34 2B 20 20 20 20 D3 45 54 20 50 4F 53 | 4+ .ET POS| 000049D0: 49 54 49 4F 4E 20 41 4E 44 20 44 49 53 50 4C 41 |ITION AND DISPLA| 000049E0: 59 20 54 45 58 54 2E 20 CD D5 D3 D4 20 C2 C5 0D |Y TEXT. .... ...| 000049F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004A10: 20 20 4C 41 53 54 20 43 4F 4D 4D 41 4E 44 20 42 | LAST COMMAND B| 00004A20: 45 43 41 55 53 45 20 54 48 45 20 5A 45 52 4F 20 |ECAUSE THE ZERO | 00004A30: 42 59 54 45 20 54 48 41 54 0D 20 20 20 20 20 20 |BYTE THAT. | 00004A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004A50: 20 20 20 20 20 20 20 20 20 20 20 20 45 4E 44 53 | ENDS| 00004A60: 20 54 48 45 20 54 45 58 54 20 41 4C 53 4F 20 45 | THE TEXT ALSO E| 00004A70: 4E 44 53 20 54 48 49 53 20 43 4F 4D 4D 41 4E 44 |NDS THIS COMMAND| 00004A80: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00004A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004AA0: 20 20 20 54 41 42 4C 45 2E 0D 20 20 20 20 20 20 | TABLE.. | 00004AB0: 20 20 20 20 20 20 20 20 20 20 20 20 37 20 20 20 | 7 | 00004AC0: 20 20 20 20 20 20 34 20 20 20 20 20 C4 52 41 57 | 4 .RAW| 00004AD0: 20 41 20 53 4F 4C 49 44 20 4C 49 4E 45 44 20 42 | A SOLID LINED B| 00004AE0: 4F 58 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |OX.. | 00004AF0: 20 20 20 20 20 20 38 20 20 20 20 20 20 20 20 20 | 8 | 00004B00: 33 20 20 20 20 20 C1 44 44 20 41 4E 20 4F 46 46 |3 .DD AN OFF| 00004B10: 53 45 54 20 54 4F 20 43 4F 4C 55 4D 4E 20 56 41 |SET TO COLUMN VA| 00004B20: 52 49 41 42 4C 45 2E 0D 20 20 20 20 20 20 20 20 |RIABLE.. | 00004B30: 20 20 20 20 20 20 20 20 20 20 39 20 20 20 20 20 | 9 | 00004B40: 20 20 20 20 32 20 20 20 20 20 C1 44 44 20 41 4E | 2 .DD AN| 00004B50: 20 4F 46 46 53 45 54 20 54 4F 20 52 4F 57 20 56 | OFFSET TO ROW V| 00004B60: 41 52 49 41 42 4C 45 2E 0D 20 20 20 20 20 20 20 |ARIABLE.. | 00004B70: 20 20 20 20 20 20 20 20 20 20 20 31 30 20 20 20 | 10 | 00004B80: 20 20 20 20 20 34 20 20 20 20 20 C1 44 44 20 4F | 4 .DD O| 00004B90: 46 46 53 45 54 53 20 54 4F 20 42 4F 54 48 20 43 |FFSETS TO BOTH C| 00004BA0: 4F 4C 55 4D 4E 20 41 4E 44 20 52 4F 57 0D 20 20 |OLUMN AND ROW. | 00004BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004BC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004BD0: 56 41 52 49 41 42 4C 45 53 2E 0D 0D 20 20 20 20 |VARIABLES... | 00004BE0: 20 20 20 20 20 20 C3 4F 4D 4D 41 4E 44 20 31 20 | .OMMAND 1 | 00004BF0: 49 53 20 55 53 45 44 20 54 4F 20 53 45 54 20 54 |IS USED TO SET T| 00004C00: 48 45 20 43 4F 4C 55 4D 4E 20 41 4E 44 20 52 4F |HE COLUMN AND RO| 00004C10: 57 20 56 41 52 49 41 42 4C 45 53 20 55 53 45 44 |W VARIABLES USED| 00004C20: 20 42 59 20 41 4C 4C 0D 20 20 20 20 20 20 20 20 | BY ALL. | 00004C30: 20 20 4F 46 20 54 48 45 20 4F 54 48 45 52 20 43 | OF THE OTHER C| 00004C40: 4F 4D 4D 41 4E 44 53 20 57 48 49 43 48 20 52 45 |OMMANDS WHICH RE| 00004C50: 51 55 49 52 45 20 54 57 4F 20 50 4F 49 4E 54 53 |QUIRE TWO POINTS| 00004C60: 2E 20 D4 48 45 20 46 4F 52 4D 41 54 20 4F 46 20 |. .HE FORMAT OF | 00004C70: 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 43 4F |THE. CO| 00004C80: 4D 4D 41 4E 44 53 20 20 49 53 20 20 54 48 41 54 |MMANDS IS THAT| 00004C90: 20 41 4C 4C 20 4F 46 20 54 48 45 20 4E 45 43 45 | ALL OF THE NECE| 00004CA0: 53 53 41 52 59 20 44 41 54 41 20 46 4F 4C 4C 4F |SSARY DATA FOLLO| 00004CB0: 57 53 20 54 48 45 20 20 43 4F 4D 4D 41 4E 44 0D |WS THE COMMAND.| 00004CC0: 20 20 20 20 20 20 20 20 20 20 42 59 54 45 2E 20 | BYTE. | 00004CD0: 20 C6 4F 52 20 45 58 41 4D 50 4C 45 2C 20 54 48 | .OR EXAMPLE, TH| 00004CE0: 45 20 43 4F 4D 4D 41 4E 44 53 20 54 4F 20 45 52 |E COMMANDS TO ER| 00004CF0: 41 53 45 20 54 48 45 20 45 4E 54 49 52 45 20 53 |ASE THE ENTIRE S| 00004D00: 43 52 45 45 4E 20 57 4F 55 4C 44 0D 20 20 20 20 |CREEN WOULD. | 00004D10: 20 20 20 20 20 20 4C 4F 4F 4B 20 4C 49 4B 45 20 | LOOK LIKE | 00004D20: 54 48 49 53 3A 0D 20 20 20 20 20 20 20 20 20 20 |THIS:. | 00004D30: 20 20 20 20 20 2E C2 D9 D4 C5 20 24 30 35 2C 24 | ..... $05,$| 00004D40: 30 30 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |00. | 00004D50: 20 20 2E C2 D9 D4 C5 20 24 30 31 0D 20 20 20 20 | ..... $01. | 00004D60: 20 20 20 20 20 20 20 20 20 20 20 2E D7 CF D2 C4 | .....| 00004D70: 20 30 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 | 0. | 00004D80: 20 20 2E C2 D9 D4 C5 20 30 0D 20 20 20 20 20 20 | ..... 0. | 00004D90: 20 20 20 20 20 20 20 20 20 2E C2 D9 D4 C5 20 24 | ..... $| 00004DA0: 30 33 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |03. | 00004DB0: 20 20 2E D7 CF D2 C4 20 33 32 30 0D 20 20 20 20 | ..... 320. | 00004DC0: 20 20 20 20 20 20 20 20 20 20 20 2E C2 D9 D4 C5 | .....| 00004DD0: 20 31 39 39 0D 20 20 20 20 20 20 20 20 20 20 20 | 199. | 00004DE0: 20 20 20 20 2E C2 D9 D4 C5 20 24 30 30 0D 20 20 | ..... $00. | 00004DF0: 20 20 20 20 20 20 20 20 C9 4E 20 54 48 45 20 43 | .N THE C| 00004E00: 41 53 45 20 4F 46 20 43 4F 4D 4D 41 4E 44 20 36 |ASE OF COMMAND 6| 00004E10: 2C 20 20 41 46 54 45 52 20 54 48 45 20 43 4F 4C |, AFTER THE COL| 00004E20: 55 4D 4E 20 41 4E 44 20 52 4F 57 20 42 59 54 45 |UMN AND ROW BYTE| 00004E30: 53 20 49 4E 20 20 54 48 45 0D 20 20 20 20 20 20 |S IN THE. | 00004E40: 20 20 20 20 43 4F 4D 4D 41 4E 44 20 43 4F 4D 45 | COMMAND COME| 00004E50: 53 20 54 48 45 20 54 45 58 54 20 54 48 41 54 20 |S THE TEXT THAT | 00004E60: 49 53 20 54 4F 20 42 45 20 44 49 53 50 4C 41 59 |IS TO BE DISPLAY| 00004E70: 45 44 2E 20 20 C6 4F 52 20 45 58 41 4D 50 4C 45 |ED. .OR EXAMPLE| 00004E80: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00004E90: 20 2E C2 D9 D4 C5 20 24 30 36 0D 20 20 20 20 20 | ..... $06. | 00004EA0: 20 20 20 20 20 20 20 20 20 20 2E D7 CF D2 C4 20 | ..... | 00004EB0: 35 30 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |50. | 00004EC0: 20 20 2E C2 D9 D4 C5 20 35 30 0D 20 20 20 20 20 | ..... 50. | 00004ED0: 20 20 20 20 20 20 20 20 20 20 2E C2 D9 D4 C5 20 | ..... | 00004EE0: 27 C8 45 4C 4C 4F 20 57 4F 52 4C 44 21 27 0D 20 |'.ELLO WORLD!'. | 00004EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2E C2 | ..| 00004F00: D9 D4 C5 20 24 30 30 0D 0D 0D 20 20 20 20 20 20 |... $00... | 00004F10: 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D | .UNCTION .AM| 00004F20: 45 3A 20 C8 CC C9 CE C5 0D 20 20 20 20 20 20 20 |E: ...... | 00004F30: 20 20 20 D0 55 52 50 4F 53 45 3A 20 C4 52 41 57 | .URPOSE: .RAW| 00004F40: 53 20 41 20 48 4F 52 49 5A 4F 4E 41 4C 20 4C 49 |S A HORIZONAL LI| 00004F50: 4E 45 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E |NE ON THE SCREEN| 00004F60: 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C |.. .ALL| 00004F70: 20 41 44 44 52 45 53 53 3A 20 24 C3 31 31 38 0D | ADDRESS: $.118.| 00004F80: 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 | .NPUT | 00004F90: 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 |REQUIREMENTS:. | 00004FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 20 20 | . | 00004FB0: 20 20 20 20 20 20 20 D4 48 45 20 41 43 54 55 41 | .HE ACTUA| 00004FC0: 4C 20 42 49 54 20 50 41 54 54 45 52 4E 20 46 4F |L BIT PATTERN FO| 00004FD0: 52 20 54 48 45 20 4C 49 4E 45 2E 0D 20 20 20 20 |R THE LINE.. | 00004FE0: 20 20 20 20 20 20 20 20 20 20 20 24 30 38 2D 24 | $08-$| 00004FF0: 30 39 20 20 20 D4 48 45 20 4C 45 46 54 20 4D 41 |09 .HE LEFT MA| 00005000: 52 47 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 |RGIN.. | 00005010: 20 20 20 20 20 24 30 C1 2D 24 30 C2 20 20 20 D4 | $0.-$0. .| 00005020: 48 45 20 52 49 47 48 54 20 4D 41 52 47 49 4E 2E |HE RIGHT MARGIN.| 00005030: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00005040: 24 31 38 20 20 20 20 20 20 20 D4 48 45 20 52 4F |$18 .HE RO| 00005050: 57 20 4E 55 4D 42 45 52 2E 0D 0D 20 20 20 20 20 |W NUMBER... | 00005060: 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E | .ESCRIPTION| 00005070: 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 4E 45 |: .HIS ROUTINE| 00005080: 20 44 52 41 57 53 20 41 20 48 4F 52 49 5A 4F 4E | DRAWS A HORIZON| 00005090: 54 41 4C 20 4C 49 4E 45 20 4F 4E 20 54 48 45 20 |TAL LINE ON THE | 000050A0: 20 48 49 52 45 53 0D 20 20 20 20 20 20 20 20 20 | HIRES. | 000050B0: 20 53 43 52 45 45 4E 20 49 4E 20 41 20 47 49 56 | SCREEN IN A GIV| 000050C0: 45 4E 20 50 41 54 54 45 52 4E 2E 20 20 D3 45 45 |EN PATTERN. .EE| 000050D0: 20 41 4C 53 4F 20 D2 CF D7 C1 C4 D2 2E 0D 0D 0D | ALSO ..........| 000050E0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 |......... | 000050F0: 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 | .... .ERNAL .| 00005100: 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 |OUTINES | 00005110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005120: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 33 | 1-3| 00005130: 32 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |2... .U| 00005140: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 C8 CF CC |NCTION .AME: ...| 00005150: C5 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 |.. .URP| 00005160: 4F 53 45 3A 20 C6 49 4E 44 20 41 20 48 4F 4C 45 |OSE: .IND A HOLE| 00005170: 20 49 4E 20 54 48 45 20 44 49 52 45 43 54 4F 52 | IN THE DIRECTOR| 00005180: 59 2C 20 4F 52 20 4D 41 4B 45 20 4F 4E 45 2E 0D |Y, OR MAKE ONE..| 00005190: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 000051A0: 44 44 52 45 53 53 3A 20 24 C3 31 C6 36 0D 20 20 |DDRESS: $.1.6. | 000051B0: 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A 0D | .UTPUT:.| 000051C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D9 | .| 000051D0: 20 20 20 20 20 20 20 20 20 C9 4E 44 45 58 20 4F | .NDEX O| 000051E0: 46 20 48 4F 4C 45 20 49 4E 20 42 55 46 46 45 52 |F HOLE IN BUFFER| 000051F0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00005200: 20 24 30 34 20 20 20 20 20 20 20 C4 49 52 45 43 | $04 .IREC| 00005210: 54 4F 52 59 20 54 52 41 43 4B 20 4E 55 4D 42 45 |TORY TRACK NUMBE| 00005220: 52 20 28 D3 48 4F 55 4C 44 20 42 45 20 31 38 29 |R (.HOULD BE 18)| 00005230: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00005240: 20 24 30 35 20 20 20 20 20 20 20 C4 49 52 45 43 | $05 .IREC| 00005250: 54 4F 52 59 20 53 45 43 54 4F 52 20 4E 55 4D 42 |TORY SECTOR NUMB| 00005260: 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ER.. | 00005270: 20 20 20 24 31 36 20 20 20 20 20 20 20 23 20 44 | $16 # D| 00005280: 49 52 45 43 54 4F 52 59 20 53 45 43 54 4F 52 53 |IRECTORY SECTORS| 00005290: 20 54 4F 20 53 4B 49 50 20 46 49 52 53 54 2E 0D | TO SKIP FIRST..| 000052A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 000052B0: 38 30 30 30 2D 24 38 30 C6 C6 20 C2 55 46 46 45 |8000-$80.. .UFFE| 000052C0: 52 20 46 4F 52 20 44 49 52 45 43 54 4F 52 59 20 |R FOR DIRECTORY | 000052D0: 53 45 43 54 4F 52 2E 0D 0D 20 20 20 20 20 20 20 |SECTOR... | 000052E0: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 000052F0: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 53 43 | .HIS ROUTINE SC| 00005300: 41 4E 53 20 54 48 45 20 44 49 53 4B 27 53 20 44 |ANS THE DISK'S D| 00005310: 49 52 45 43 54 4F 52 59 20 4C 4F 4F 4B 49 4E 47 |IRECTORY LOOKING| 00005320: 20 46 4F 52 0D 20 20 20 20 20 20 20 20 20 20 41 | FOR. A| 00005330: 20 20 44 45 4C 45 54 45 44 20 46 49 4C 45 2C 20 | DELETED FILE, | 00005340: 42 59 20 46 49 52 53 54 20 53 4B 49 50 50 49 4E |BY FIRST SKIPPIN| 00005350: 47 20 41 20 43 45 52 54 41 49 4E 20 4E 55 4D 42 |G A CERTAIN NUMB| 00005360: 45 52 20 20 4F 46 20 20 53 45 43 54 4F 52 53 2E |ER OF SECTORS.| 00005370: 0D 20 20 20 20 20 20 20 20 20 20 D4 48 49 53 20 |. .HIS | 00005380: 20 41 4C 4C 4F 57 53 20 54 48 45 20 20 55 53 45 | ALLOWS THE USE| 00005390: 52 20 54 4F 20 46 49 4E 44 20 41 20 48 4F 4C 45 |R TO FIND A HOLE| 000053A0: 20 49 4E 20 41 20 47 49 56 45 4E 20 20 44 49 52 | IN A GIVEN DIR| 000053B0: 45 43 54 4F 52 59 20 50 41 47 45 2E 0D 20 20 20 |ECTORY PAGE.. | 000053C0: 20 20 20 20 20 20 20 C9 46 20 4F 4E 45 20 49 53 | .F ONE IS| 000053D0: 20 4E 4F 54 20 46 4F 55 4E 44 20 49 4E 20 41 4E | NOT FOUND IN AN| 000053E0: 59 20 20 4F 46 20 54 48 45 20 20 41 56 41 49 4C |Y OF THE AVAIL| 000053F0: 41 42 4C 45 20 20 44 49 52 45 43 54 4F 52 59 20 |ABLE DIRECTORY | 00005400: 53 45 43 54 4F 52 53 2C 0D 20 20 20 20 20 20 20 |SECTORS,. | 00005410: 20 20 20 54 48 45 4E 20 41 20 4E 45 57 20 53 45 | THEN A NEW SE| 00005420: 43 54 4F 52 20 49 53 20 41 44 44 45 44 20 54 4F |CTOR IS ADDED TO| 00005430: 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 2E 0D | THE DIRECTORY..| 00005440: 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 |.. .UNC| 00005450: 54 49 4F 4E 20 CE 41 4D 45 3A 20 C9 CE C4 CA CD |TION .AME: .....| 00005460: D0 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 |.. .URP| 00005470: 4F 53 45 3A 20 C3 4F 4E 44 49 54 49 4F 4E 41 4C |OSE: .ONDITIONAL| 00005480: 20 4A 55 4D 50 2E 0D 20 20 20 20 20 20 20 20 20 | JUMP.. | 00005490: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 000054A0: C3 31 C4 38 0D 20 20 20 20 20 20 20 20 20 20 C9 |.1.8. .| 000054B0: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 000054C0: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 000054D0: 20 20 C1 20 20 20 20 20 20 20 20 20 D4 48 45 20 | . .HE | 000054E0: 48 49 47 48 20 42 59 54 45 20 4F 46 20 54 48 45 |HIGH BYTE OF THE| 000054F0: 20 4A 55 4D 50 20 56 45 43 54 4F 52 2E 0D 20 20 | JUMP VECTOR.. | 00005500: 20 20 20 20 20 20 20 20 20 20 20 20 20 D8 20 20 | . | 00005510: 20 20 20 20 20 20 20 D4 48 45 20 4C 4F 57 20 42 | .HE LOW B| 00005520: 59 54 45 20 4F 46 20 54 48 45 20 4A 55 4D 50 20 |YTE OF THE JUMP | 00005530: 56 45 43 54 4F 52 2E 0D 0D 20 20 20 20 20 20 20 |VECTOR... | 00005540: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 00005550: C9 46 20 C1 20 41 4E 44 20 D8 20 41 52 45 20 5A |.F . AND . ARE Z| 00005560: 45 52 4F 2C 20 54 48 45 20 4A 55 4D 50 20 49 53 |ERO, THE JUMP IS| 00005570: 20 4E 4F 54 20 50 45 52 46 4F 52 4D 45 44 2E 20 | NOT PERFORMED. | 00005580: C9 46 20 C1 0D 20 20 20 20 20 20 20 20 20 20 41 |.F .. A| 00005590: 4E 44 20 D8 20 41 52 45 20 4E 4F 4E 5A 45 52 4F |ND . ARE NONZERO| 000055A0: 2C 20 54 48 45 20 4A 55 4D 50 20 49 53 20 50 45 |, THE JUMP IS PE| 000055B0: 52 46 4F 52 4D 45 44 2E 0D 0D 0D 20 20 20 20 20 |RFORMED.... | 000055C0: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 000055D0: 4D 45 3A 20 C9 CE C9 D4 30 31 0D 20 20 20 20 20 |ME: ....01. | 000055E0: 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 D0 41 | .URPOSE: .A| 000055F0: 52 54 20 4F 46 20 C7 C5 CF D3 27 53 20 42 4F 4F |RT OF ....'S BOO| 00005600: 54 55 50 20 50 52 4F 43 45 53 53 2E 0D 20 20 20 |TUP PROCESS.. | 00005610: 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 | .ALL ADDR| 00005620: 45 53 53 3A 20 24 C3 32 37 31 0D 0D 20 20 20 20 |ESS: $.271.. | 00005630: 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F | .ESCRIPTIO| 00005640: 4E 3A 20 20 C9 4E 49 54 49 41 4C 49 5A 45 53 20 |N: .NITIALIZES | 00005650: 20 54 48 45 20 D6 C9 C3 20 43 48 49 50 20 41 4E | THE ... CHIP AN| 00005660: 44 20 54 48 45 20 C9 2F CF 20 20 43 48 49 50 53 |D THE ./. CHIPS| 00005670: 2E 20 20 D3 4F 4D 45 0D 20 20 20 20 20 20 20 20 |. .OME. | 00005680: 20 20 47 4C 4F 42 41 4C 20 20 20 4D 45 4D 4F 52 | GLOBAL MEMOR| 00005690: 59 20 20 20 49 53 20 20 41 4C 53 4F 20 20 49 4E |Y IS ALSO IN| 000056A0: 49 54 49 41 4C 49 5A 45 44 2E 20 20 20 C9 54 20 |ITIALIZED. .T | 000056B0: 20 41 4C 53 4F 20 20 52 45 53 45 54 53 20 20 20 | ALSO RESETS | 000056C0: 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 50 52 |THE. PR| 000056D0: 45 46 45 52 45 4E 43 45 53 20 41 4E 44 20 41 4C |EFERENCES AND AL| 000056E0: 4C 20 54 48 45 20 44 52 49 56 45 53 2E 20 20 D4 |L THE DRIVES. .| 000056F0: 48 45 20 44 45 46 41 55 4C 54 20 44 52 49 56 45 |HE DEFAULT DRIVE| 00005700: 20 49 53 20 52 45 53 45 54 20 42 59 20 20 41 0D | IS RESET BY A.| 00005710: 20 20 20 20 20 20 20 20 20 20 43 41 4C 4C 20 54 | CALL T| 00005720: 4F 20 C4 D3 C5 D4 D5 D0 2E 0D 0D 0D 20 20 20 20 |O .......... | 00005730: 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE | .UNCTION .| 00005740: 41 4D 45 3A 20 C9 CE C9 D4 C4 D6 0D 20 20 20 20 |AME: ....... | 00005750: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C9 | .URPOSE: .| 00005760: 4E 49 54 49 41 4C 49 5A 45 53 20 41 20 44 52 49 |NITIALIZES A DRI| 00005770: 56 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |VE.. .A| 00005780: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 C5 |LL ADDRESS: $.1.| 00005790: 31 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |1. .NPU| 000057A0: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 000057B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 000057C0: 30 34 20 20 20 20 20 20 20 D4 52 41 43 4B 20 54 |04 .RACK T| 000057D0: 4F 20 50 4F 53 49 54 49 4F 4E 20 54 48 45 20 44 |O POSITION THE D| 000057E0: 49 53 4B 20 44 52 49 56 45 20 48 45 41 44 20 41 |ISK DRIVE HEAD A| 000057F0: 54 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T.. | 00005800: 20 20 24 30 35 20 20 20 20 20 20 20 D3 45 43 54 | $05 .ECT| 00005810: 4F 52 20 54 4F 20 50 4F 53 49 54 49 4F 4E 20 54 |OR TO POSITION T| 00005820: 48 45 20 44 49 53 4B 20 44 52 49 56 45 20 48 45 |HE DISK DRIVE HE| 00005830: 41 44 20 41 54 2E 0D 20 20 20 20 20 20 20 20 20 |AD AT.. | 00005840: 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 | .RRORS: .EE .PP| 00005850: 45 4E 44 49 58 0D 0D 20 20 20 20 20 20 20 20 20 |ENDIX.. | 00005860: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 CD | .ESCRIPTION: .| 00005870: 41 4B 45 53 20 53 55 52 45 20 54 48 41 54 20 43 |AKES SURE THAT C| 00005880: 55 52 52 45 4E 54 20 44 52 49 56 45 20 48 41 53 |URRENT DRIVE HAS| 00005890: 20 54 55 52 42 4F 44 4F 53 20 52 55 4E 4E 49 4E | TURBODOS RUNNIN| 000058A0: 47 2E 0D 20 20 20 20 20 20 20 20 20 20 C9 54 20 |G.. .T | 000058B0: 41 4C 53 4F 20 50 4F 53 49 54 49 4F 4E 53 20 54 |ALSO POSITIONS T| 000058C0: 48 45 20 48 45 41 44 20 4F 56 45 52 20 41 20 50 |HE HEAD OVER A P| 000058D0: 41 52 54 49 43 55 4C 41 52 20 53 45 43 54 4F 52 |ARTICULAR SECTOR| 000058E0: 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 000058F0: 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 |. .... | 00005900: CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 |.ERNAL .OUTINES | 00005910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005930: 20 20 20 20 20 31 2D 33 33 0D 0D 0D 20 20 20 20 | 1-33... | 00005940: 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE | .UNCTION .| 00005950: 41 4D 45 3A 20 C9 CE C9 D4 CD D3 0D 20 20 20 20 |AME: ....... | 00005960: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C9 | .URPOSE: .| 00005970: 4E 49 54 49 41 4C 49 5A 45 53 20 54 48 45 20 4D |NITIALIZES THE M| 00005980: 4F 55 53 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |OUSE.. | 00005990: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 000059A0: 31 34 C5 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |14.. .N| 000059B0: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 000059C0: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 000059D0: 20 C3 20 46 4C 41 47 20 20 20 20 C3 4C 45 41 52 | . FLAG .LEAR| 000059E0: 20 49 46 20 54 48 45 20 4D 4F 55 53 45 20 50 4F | IF THE MOUSE PO| 000059F0: 53 49 54 49 4F 4E 20 53 48 4F 55 4C 44 20 4E 4F |SITION SHOULD NO| 00005A00: 54 20 42 45 20 53 45 54 2E 0D 20 20 20 20 20 20 |T BE SET.. | 00005A10: 20 20 20 20 20 20 20 20 20 C3 20 46 4C 41 47 20 | . FLAG | 00005A20: 20 20 20 D3 45 54 20 49 46 20 54 48 45 20 4D 4F | .ET IF THE MO| 00005A30: 55 53 45 20 50 4F 53 49 54 49 4F 4E 20 53 48 4F |USE POSITION SHO| 00005A40: 55 4C 44 20 42 45 20 53 45 54 2E 0D 20 20 20 20 |ULD BE SET.. | 00005A50: 20 20 20 20 20 20 20 20 20 20 20 D9 20 20 20 20 | . | 00005A60: 20 20 20 20 20 D4 48 45 20 52 4F 57 20 50 4F 53 | .HE ROW POS| 00005A70: 49 54 49 4F 4E 20 46 4F 52 20 54 48 45 20 4D 4F |ITION FOR THE MO| 00005A80: 55 53 45 20 28 4F 50 54 49 4F 4E 41 4C 29 2E 0D |USE (OPTIONAL)..| 00005A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00005AA0: 31 38 2D 24 31 39 20 20 20 D4 48 45 20 43 4F 4C |18-$19 .HE COL| 00005AB0: 55 4D 4E 20 50 4F 53 49 54 49 4F 4E 20 46 4F 52 |UMN POSITION FOR| 00005AC0: 20 54 48 45 20 4D 4F 55 53 45 20 28 4F 50 54 49 | THE MOUSE (OPTI| 00005AD0: 4F 4E 41 4C 29 2E 0D 0D 20 20 20 20 20 20 20 20 |ONAL)... | 00005AE0: 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 D4 | .ESCRIPTION: .| 00005AF0: 48 49 53 20 52 4F 55 54 49 4E 45 20 54 55 52 4E |HIS ROUTINE TURN| 00005B00: 53 20 4F 4E 20 54 48 45 20 4D 4F 55 53 45 20 41 |S ON THE MOUSE A| 00005B10: 4E 44 20 20 50 4F 53 49 54 49 4F 4E 53 20 49 54 |ND POSITIONS IT| 00005B20: 20 49 46 0D 20 20 20 20 20 20 20 20 20 20 44 45 | IF. DE| 00005B30: 53 49 52 45 44 2E 20 20 C9 46 20 54 48 45 20 43 |SIRED. .F THE C| 00005B40: 4F 4C 55 4D 4E 20 49 53 20 53 45 54 20 54 4F 20 |OLUMN IS SET TO | 00005B50: 30 2C 20 20 54 48 45 20 4D 4F 55 53 45 20 49 53 |0, THE MOUSE IS| 00005B60: 20 4E 4F 54 20 50 4F 53 49 54 49 4F 4E 45 44 0D | NOT POSITIONED.| 00005B70: 20 20 20 20 20 20 20 20 20 20 45 56 45 4E 20 20 | EVEN | 00005B80: 49 53 20 20 54 48 45 20 C3 20 46 4C 41 47 20 49 |IS THE . FLAG I| 00005B90: 53 20 53 45 54 2E 20 20 C9 54 20 41 4C 53 4F 20 |S SET. .T ALSO | 00005BA0: 53 45 54 53 20 55 50 20 54 48 45 20 42 55 54 54 |SETS UP THE BUTT| 00005BB0: 4F 4E 20 20 50 52 45 53 53 45 44 0D 20 20 20 20 |ON PRESSED. | 00005BC0: 20 20 20 20 20 20 56 45 43 54 4F 52 20 24 38 34 | VECTOR $84| 00005BD0: C1 31 2D 24 38 34 C1 32 20 41 4E 44 20 54 48 45 |.1-$84.2 AND THE| 00005BE0: 20 43 4C 4F 53 45 20 4D 45 4E 55 20 56 45 43 54 | CLOSE MENU VECT| 00005BF0: 4F 52 20 24 38 34 C1 37 2D 24 38 34 C1 38 2E 20 |OR $84.7-$84.8. | 00005C00: C9 54 20 41 4C 53 4F 0D 20 20 20 20 20 20 20 20 |.T ALSO. | 00005C10: 20 20 43 4C 45 41 52 53 20 54 48 45 20 46 4C 41 | CLEARS THE FLA| 00005C20: 47 20 41 54 20 24 38 34 C2 36 2E 20 20 D4 48 49 |G AT $84.6. .HI| 00005C30: 53 20 52 4F 55 54 49 4E 45 20 44 4F 45 53 20 4E |S ROUTINE DOES N| 00005C40: 4F 54 20 41 43 54 55 41 4C 4C 59 20 54 55 52 4E |OT ACTUALLY TURN| 00005C50: 20 4F 4E 0D 20 20 20 20 20 20 20 20 20 20 54 48 | ON. TH| 00005C60: 45 20 4D 4F 55 53 45 2E 20 20 C9 54 20 43 41 4C |E MOUSE. .T CAL| 00005C70: 4C 53 20 CD CF D5 D3 CF CE 20 54 4F 20 52 45 53 |LS ...... TO RES| 00005C80: 45 54 20 42 49 54 20 37 20 4F 46 20 4C 4F 43 41 |ET BIT 7 OF LOCA| 00005C90: 54 49 4F 4E 20 24 33 30 3B 20 20 54 48 49 53 0D |TION $30; THIS.| 00005CA0: 20 20 20 20 20 20 20 20 20 20 57 49 4C 4C 20 43 | WILL C| 00005CB0: 41 55 53 45 20 C7 C5 CF D3 27 53 20 49 4E 54 45 |AUSE ....'S INTE| 00005CC0: 52 52 55 50 54 20 52 4F 55 54 49 4E 45 53 20 54 |RRUPT ROUTINES T| 00005CD0: 4F 20 54 55 52 4E 20 4F 4E 20 54 48 45 20 4D 4F |O TURN ON THE MO| 00005CE0: 55 53 45 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 |USE.... | 00005CF0: 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 | .UNCTION .AME: | 00005D00: C9 CE D0 D5 D4 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00005D10: D0 55 52 50 4F 53 45 3A 20 C9 4E 50 55 54 20 41 |.URPOSE: .NPUT A| 00005D20: 20 4C 49 4E 45 20 4F 46 20 54 45 58 54 20 46 52 | LINE OF TEXT FR| 00005D30: 4F 4D 20 54 48 45 20 55 53 45 52 2E 0D 20 20 20 |OM THE USER.. | 00005D40: 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 | .ALL ADDR| 00005D50: 45 53 53 3A 20 24 C3 31 C2 C1 0D 20 20 20 20 20 |ESS: $.1... | 00005D60: 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 | .NPUT REQUI| 00005D70: 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 |REMENTS:. | 00005D80: 20 20 20 20 20 20 20 20 24 30 32 2D 24 30 33 20 | $02-$03 | 00005D90: 20 20 C1 44 44 52 45 53 53 20 4F 46 20 54 45 58 | .DDRESS OF TEX| 00005DA0: 54 20 41 4E 44 20 42 55 46 46 45 52 2E 0D 20 20 |T AND BUFFER.. | 00005DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 34 | $04| 00005DC0: 20 20 20 20 20 20 20 C6 4C 41 47 20 42 59 54 45 | .LAG BYTE| 00005DD0: 20 28 24 38 37 C4 33 29 2E 0D 20 20 20 20 20 20 | ($87.3).. | 00005DE0: 20 20 20 20 20 20 20 20 20 24 30 35 20 20 20 20 | $05 | 00005DF0: 20 20 20 D2 4F 57 20 54 4F 20 50 52 49 4E 54 20 | .OW TO PRINT | 00005E00: 54 45 58 54 20 4F 4E 20 28 31 20 41 42 4F 56 45 |TEXT ON (1 ABOVE| 00005E10: 20 54 48 45 20 55 4E 44 45 52 4C 49 4E 45 29 2E | THE UNDERLINE).| 00005E20: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00005E30: 24 30 36 20 20 20 20 20 20 20 CD 41 58 49 4D 55 |$06 .AXIMU| 00005E40: 4D 20 4C 45 4E 47 54 48 20 4F 46 20 49 4E 50 55 |M LENGTH OF INPU| 00005E50: 54 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T.. | 00005E60: 20 20 24 30 C1 2D 24 30 C2 20 20 20 D6 45 43 54 | $0.-$0. .ECT| 00005E70: 4F 52 20 46 4F 52 20 55 53 45 52 20 52 4F 55 54 |OR FOR USER ROUT| 00005E80: 49 4E 45 20 46 4F 52 20 52 49 47 48 54 20 4D 41 |INE FOR RIGHT MA| 00005E90: 52 47 49 4E 20 45 58 43 45 45 44 45 44 0D 20 20 |RGIN EXCEEDED. | 00005EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005EB0: 20 20 20 20 20 20 20 28 4F 50 54 49 4F 4E 41 4C | (OPTIONAL| 00005EC0: 29 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |).. | 00005ED0: 20 20 24 31 38 2D 24 31 39 20 20 20 C3 4F 4C 55 | $18-$19 .OLU| 00005EE0: 4D 4E 20 54 4F 20 53 54 41 52 54 20 50 52 49 4E |MN TO START PRIN| 00005EF0: 54 49 4E 47 20 54 45 58 54 20 41 54 2E 0D 20 20 |TING TEXT AT.. | 00005F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 38 34 | $84| 00005F10: C1 33 2D 24 38 34 C1 34 20 C1 44 44 52 45 53 53 |.3-$84.4 .DDRESS| 00005F20: 20 46 4F 52 20 C3 D2 20 45 4E 54 45 52 45 44 2E | FOR .. ENTERED.| 00005F30: 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 |. .UTPU| 00005F40: 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T:. | 00005F50: 20 20 24 32 34 2D 24 32 35 20 20 20 D0 4F 49 4E | $24-$25 .OIN| 00005F60: 54 45 52 20 54 4F 20 54 45 58 54 20 42 55 46 46 |TER TO TEXT BUFF| 00005F70: 45 52 20 28 43 4F 50 49 45 44 20 46 52 4F 4D 20 |ER (COPIED FROM | 00005F80: 24 30 32 2D 24 30 33 29 2E 0D 20 20 20 20 20 20 |$02-$03).. | 00005F90: 20 20 20 20 20 20 20 20 20 C2 55 46 46 45 52 20 | .UFFER | 00005FA0: 57 49 4C 4C 20 42 45 20 4D 4F 44 49 46 49 45 44 |WILL BE MODIFIED| 00005FB0: 20 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 54 48 | ACCORDING TO TH| 00005FC0: 45 20 55 53 45 52 27 53 20 49 4E 50 55 54 2E 0D |E USER'S INPUT..| 00005FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00005FE0: 38 34 C1 33 2D 24 38 34 C1 34 20 C3 4C 45 41 52 |84.3-$84.4 .LEAR| 00005FF0: 45 44 20 54 4F 20 24 30 30 30 30 2E 0D 0D 20 20 |ED TO $0000... | 00006000: 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 | .ESCRIPT| 00006010: 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F 55 54 49 |ION: .HIS ROUTI| 00006020: 4E 45 20 49 53 20 52 41 54 48 45 52 20 50 4F 57 |NE IS RATHER POW| 00006030: 45 52 46 55 4C 2E 20 C9 54 20 44 49 53 50 4C 41 |ERFUL. .T DISPLA| 00006040: 59 53 20 41 20 4C 49 4E 45 0D 20 20 20 20 20 20 |YS A LINE. | 00006050: 20 20 20 20 4F 46 20 54 45 58 54 2C 20 20 49 46 | OF TEXT, IF| 00006060: 20 54 48 45 52 45 20 57 41 53 20 41 4E 59 20 54 | THERE WAS ANY T| 00006070: 45 58 54 20 54 4F 20 44 49 53 50 4C 41 59 2E 20 |EXT TO DISPLAY. | 00006080: 20 D4 48 45 4E 20 54 48 45 20 54 45 58 54 20 43 | .HEN THE TEXT C| 00006090: 55 52 53 4F 52 0D 20 20 20 20 20 20 20 20 20 20 |URSOR. | 000060A0: 49 53 20 20 54 55 52 4E 45 44 20 20 4F 4E 2E 20 |IS TURNED ON. | 000060B0: 20 D3 45 56 45 52 41 4C 20 4F 46 20 54 48 45 20 | .EVERAL OF THE | 000060C0: 4A 55 4D 50 20 56 45 43 54 4F 52 53 20 41 52 45 |JUMP VECTORS ARE| 000060D0: 20 55 53 45 44 2E 0D 20 20 20 20 20 20 20 20 20 | USED.. | 000060E0: 20 24 38 34 C1 C2 2D 24 38 34 C1 C3 20 20 49 53 | $84..-$84.. IS| 000060F0: 20 54 48 45 20 56 45 43 54 4F 52 20 46 4F 52 20 | THE VECTOR FOR | 00006100: 54 48 45 20 52 49 47 48 54 20 4D 41 52 47 49 4E |THE RIGHT MARGIN| 00006110: 20 20 42 45 49 4E 47 20 20 45 58 43 45 45 44 45 | BEING EXCEEDE| 00006120: 44 2E 0D 20 20 20 20 20 20 20 20 20 20 24 38 34 |D.. $84| 00006130: C1 39 2D 24 38 34 C1 C1 20 20 49 53 20 20 54 48 |.9-$84.. IS TH| 00006140: 45 20 56 45 43 54 4F 52 20 46 4F 52 20 41 20 43 |E VECTOR FOR A C| 00006150: 48 41 52 41 43 54 45 52 20 42 45 49 4E 47 20 20 |HARACTER BEING | 00006160: 54 59 50 45 44 2E 20 20 24 38 34 C1 33 2D 0D 20 |TYPED. $84.3-. | 00006170: 20 20 20 20 20 20 20 20 20 24 38 34 C1 34 20 49 | $84.4 I| 00006180: 53 20 54 48 45 20 56 45 43 54 4F 52 20 46 4F 52 |S THE VECTOR FOR| 00006190: 20 C3 D2 20 45 4E 54 45 52 45 44 2E 20 20 C1 46 | .. ENTERED. .F| 000061A0: 54 45 52 20 45 56 45 52 59 54 48 49 4E 47 20 49 |TER EVERYTHING I| 000061B0: 53 20 53 45 54 20 20 55 50 2C 0D 20 20 20 20 20 |S SET UP,. | 000061C0: 20 20 20 20 20 43 4F 4E 54 52 4F 4C 20 52 45 54 | CONTROL RET| 000061D0: 55 52 4E 53 20 54 4F 20 54 48 45 20 43 41 4C 4C |URNS TO THE CALL| 000061E0: 45 52 3B 20 20 48 4F 57 45 56 45 52 2C 20 20 54 |ER; HOWEVER, T| 000061F0: 48 45 20 49 4E 50 55 54 20 49 53 20 48 41 4E 44 |HE INPUT IS HAND| 00006200: 4C 45 44 20 42 59 0D 20 20 20 20 20 20 20 20 20 |LED BY. | 00006210: 20 54 48 45 20 49 4E 54 45 52 52 55 50 54 20 44 | THE INTERRUPT D| 00006220: 52 49 56 45 52 53 2E 20 D7 48 45 4E 20 41 20 C3 |RIVERS. .HEN A .| 00006230: D2 20 49 53 20 45 4E 54 45 52 45 44 2C 20 43 4F |. IS ENTERED, CO| 00006240: 4E 54 52 4F 4C 20 47 4F 45 53 20 54 48 52 4F 55 |NTROL GOES THROU| 00006250: 47 48 0D 20 20 20 20 20 20 20 20 20 20 54 48 45 |GH. THE| 00006260: 20 20 56 45 43 54 4F 52 20 20 41 54 20 24 38 34 | VECTOR AT $84| 00006270: C1 33 2D 24 38 34 C1 34 2E 20 20 D4 48 45 20 46 |.3-$84.4. .HE F| 00006280: 4C 41 47 20 42 59 54 45 20 41 54 20 20 4C 4F 43 |LAG BYTE AT LOC| 00006290: 41 54 49 4F 4E 20 20 24 30 34 20 20 49 53 0D 20 |ATION $04 IS. | 000062A0: 20 20 20 20 20 20 20 20 20 43 4F 50 49 45 44 20 | COPIED | 000062B0: 54 4F 20 24 38 37 C4 33 20 41 4E 44 20 48 41 53 |TO $87.3 AND HAS| 000062C0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 50 | THE FOLLOWING P| 000062D0: 52 4F 50 45 52 54 59 3A 20 20 C9 46 20 42 49 54 |ROPERTY: .F BIT| 000062E0: 20 37 20 49 53 20 53 45 54 2C 0D 20 20 20 20 20 | 7 IS SET,. | 000062F0: 20 20 20 20 20 54 48 45 4E 20 20 55 53 45 20 54 | THEN USE T| 00006300: 48 45 20 55 53 45 52 27 53 20 52 4F 55 54 49 4E |HE USER'S ROUTIN| 00006310: 45 20 57 48 4F 53 45 20 41 44 44 52 45 53 53 20 |E WHOSE ADDRESS | 00006320: 49 53 20 53 54 4F 52 45 44 20 41 54 20 4C 4F 43 |IS STORED AT LOC| 00006330: 41 54 49 4F 4E 53 0D 20 20 20 20 20 20 20 20 20 |ATIONS. | 00006340: 20 24 30 C1 2D 24 30 C2 20 46 4F 52 20 54 48 45 | $0.-$0. FOR THE| 00006350: 20 52 49 47 48 54 20 4D 41 52 47 49 4E 20 49 53 | RIGHT MARGIN IS| 00006360: 20 45 58 43 45 45 44 45 44 20 52 4F 55 54 49 4E | EXCEEDED ROUTIN| 00006370: 45 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |E...............| 00006380: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF |... ...| 00006390: D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 |. .ERNAL .OUTINE| 000063A0: 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S | 000063B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000063C0: 20 20 20 20 20 20 20 31 2D 33 34 0D 0D 0D 20 20 | 1-34... | 000063D0: 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E | .UNCTION| 000063E0: 20 CE 41 4D 45 3A 20 C9 CE D3 C5 D2 D4 0D 20 20 | .AME: ....... | 000063F0: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00006400: 20 C9 4E 53 45 52 54 20 41 20 4E 45 57 20 43 48 | .NSERT A NEW CH| 00006410: 41 49 4E 20 49 4E 20 41 20 D6 CC C9 D2 20 46 49 |AIN IN A .... FI| 00006420: 4C 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |LE.. .A| 00006430: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 38 |LL ADDRESS: $.28| 00006440: 36 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |6. .NPU| 00006450: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 00006460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00006470: 38 34 39 36 20 20 20 20 20 C3 55 52 52 45 4E 54 |8496 .URRENT| 00006480: 20 43 48 41 49 4E 20 4E 55 4D 42 45 52 2E 0D 20 | CHAIN NUMBER.. | 00006490: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 000064A0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000064B0: 24 38 34 39 37 20 20 20 20 20 C9 4E 43 52 45 4D |$8497 .NCREM| 000064C0: 45 4E 54 45 44 20 42 59 20 31 2E 0D 20 20 20 20 |ENTED BY 1.. | 000064D0: 20 20 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 | .REPARATOR| 000064E0: 59 20 52 4F 55 54 49 4E 45 53 3A 20 D6 CF D0 C5 |Y ROUTINES: ....| 000064F0: CE 0D 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F |.. .RRO| 00006500: 52 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 |RS: .EE .PPENDIX| 00006510: 20 C9 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 | .... .| 00006520: 45 53 43 52 49 50 54 49 4F 4E 3A 20 C1 20 48 4F |ESCRIPTION: . HO| 00006530: 4C 45 20 49 53 20 4F 50 45 4E 45 44 20 55 50 20 |LE IS OPENED UP | 00006540: 49 4E 20 54 48 45 20 D6 CC C9 D2 20 53 45 43 54 |IN THE .... SECT| 00006550: 4F 52 20 53 54 41 52 54 49 4E 47 20 57 49 54 48 |OR STARTING WITH| 00006560: 0D 20 20 20 20 20 20 20 20 20 20 54 48 45 20 20 |. THE | 00006570: 43 55 52 52 45 4E 54 20 20 43 48 41 49 4E 2E 20 |CURRENT CHAIN. | 00006580: 20 D4 48 45 20 20 48 4F 4C 45 20 20 49 53 20 20 | .HE HOLE IS | 00006590: 46 49 4C 4C 45 44 20 20 57 49 54 48 20 20 24 30 |FILLED WITH $0| 000065A0: 30 2C 24 C6 C6 2E 20 20 D4 48 49 53 0D 20 20 20 |0,$... .HIS. | 000065B0: 20 20 20 20 20 20 20 52 45 50 52 45 53 45 4E 54 | REPRESENT| 000065C0: 53 20 41 20 4E 55 4C 4C 20 43 48 41 49 4E 2E 0D |S A NULL CHAIN..| 000065D0: 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 |.. .UNC| 000065E0: 54 49 4F 4E 20 CE 41 4D 45 3A 20 C9 CE D4 C2 CD |TION .AME: .....| 000065F0: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00006600: 53 45 3A 20 C9 4E 54 45 4C 4C 49 47 45 4E 54 20 |SE: .NTELLIGENT | 00006610: 42 4C 4F 43 4B 20 4D 4F 56 45 2E 0D 20 20 20 20 |BLOCK MOVE.. | 00006620: 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 | .ALL ADDRE| 00006630: 53 53 3A 20 24 C3 31 37 C5 0D 20 20 20 20 20 20 |SS: $.17.. | 00006640: 20 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 | .NPUT REQUIR| 00006650: 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 |EMENTS:. | 00006660: 20 20 20 20 20 20 20 24 30 32 2D 24 30 33 20 20 | $02-$03 | 00006670: 20 D4 48 45 20 53 4F 55 52 43 45 20 41 44 44 52 | .HE SOURCE ADDR| 00006680: 45 53 53 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |ESS.. | 00006690: 20 20 20 20 24 30 34 2D 24 30 35 20 20 20 D4 48 | $04-$05 .H| 000066A0: 45 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 41 44 |E DESTINATION AD| 000066B0: 44 52 45 53 53 2E 0D 20 20 20 20 20 20 20 20 20 |DRESS.. | 000066C0: 20 20 20 20 20 20 24 30 36 2D 24 30 37 20 20 20 | $06-$07 | 000066D0: D4 48 45 20 4C 45 4E 47 54 48 20 4F 46 20 54 48 |.HE LENGTH OF TH| 000066E0: 45 20 52 45 47 49 4F 4E 20 54 4F 20 42 45 20 4D |E REGION TO BE M| 000066F0: 4F 56 45 44 2E 0D 0D 20 20 20 20 20 20 20 20 20 |OVED... | 00006700: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 00006710: 48 49 53 20 20 52 4F 55 54 49 4E 45 20 20 57 49 |HIS ROUTINE WI| 00006720: 4C 4C 20 20 50 45 52 46 4F 52 4D 20 20 41 4E 20 |LL PERFORM AN | 00006730: 20 49 4E 54 45 4C 4C 49 47 45 4E 54 2C 20 20 49 | INTELLIGENT, I| 00006740: 45 2E 0D 20 20 20 20 20 20 20 20 20 20 4E 4F 4E |E.. NON| 00006750: 43 4F 4E 46 4C 49 43 54 49 4E 47 2C 20 20 42 4C |CONFLICTING, BL| 00006760: 4F 43 4B 20 4D 4F 56 45 20 4F 46 20 4D 45 4D 4F |OCK MOVE OF MEMO| 00006770: 52 59 2E 20 20 C9 46 20 41 4E 20 41 54 54 45 4D |RY. .F AN ATTEM| 00006780: 50 54 20 49 53 20 4D 41 44 45 20 20 54 4F 0D 20 |PT IS MADE TO. | 00006790: 20 20 20 20 20 20 20 20 20 4D 4F 56 45 20 41 20 | MOVE A | 000067A0: 42 4C 4F 43 4B 20 4F 46 20 4D 45 4D 4F 52 59 20 |BLOCK OF MEMORY | 000067B0: 54 4F 20 41 20 44 45 53 54 49 4E 41 54 49 4F 4E |TO A DESTINATION| 000067C0: 20 54 48 41 54 20 49 53 20 57 49 54 48 49 4E 20 | THAT IS WITHIN | 000067D0: 54 48 45 20 42 4C 4F 43 4B 2C 0D 20 20 20 20 20 |THE BLOCK,. | 000067E0: 20 20 20 20 20 54 48 45 20 20 54 52 41 4E 53 46 | THE TRANSF| 000067F0: 45 52 20 20 49 53 20 20 44 4F 4E 45 20 46 52 4F |ER IS DONE FRO| 00006800: 4D 20 42 41 43 4B 20 54 4F 20 46 52 4F 4E 54 20 |M BACK TO FRONT | 00006810: 53 4F 20 41 53 20 54 4F 20 20 50 52 45 56 45 4E |SO AS TO PREVEN| 00006820: 54 20 20 54 48 45 0D 20 20 20 20 20 20 20 20 20 |T THE. | 00006830: 20 43 4F 4E 46 4C 49 43 54 2C 20 4F 52 20 27 52 | CONFLICT, OR 'R| 00006840: 49 50 50 4C 45 20 45 46 46 45 43 54 27 2E 0D 0D |IPPLE EFFECT'...| 00006850: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00006860: 49 4F 4E 20 CE 41 4D 45 3A 20 C9 CE D4 C2 CD 32 |ION .AME: .....2| 00006870: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00006880: 53 45 3A 20 C9 44 45 4E 54 49 43 41 4C 20 54 4F |SE: .DENTICAL TO| 00006890: 20 C9 CE D4 C2 CD 2C 20 42 55 54 20 57 49 54 48 | ....., BUT WITH| 000068A0: 20 49 4E 4C 49 4E 45 20 44 41 54 41 2E 0D 20 20 | INLINE DATA.. | 000068B0: 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 | .ALL ADD| 000068C0: 52 45 53 53 3A 20 24 C3 31 C2 37 0D 0D 20 20 20 |RESS: $.1.7.. | 000068D0: 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 | .ESCRIPTI| 000068E0: 4F 4E 3A 20 20 D4 48 49 53 20 52 4F 55 54 49 4E |ON: .HIS ROUTIN| 000068F0: 45 20 55 53 45 53 20 54 48 45 20 49 4E 4C 49 4E |E USES THE INLIN| 00006900: 45 20 44 41 54 41 20 54 4F 20 53 45 54 20 45 56 |E DATA TO SET EV| 00006910: 45 52 59 54 48 49 4E 47 0D 20 20 20 20 20 20 20 |ERYTHING. | 00006920: 20 20 20 55 50 20 42 45 46 4F 52 45 20 43 41 4C | UP BEFORE CAL| 00006930: 4C 49 4E 47 20 C9 CE D4 C2 CD 2E 20 C6 4F 52 20 |LING ...... .OR | 00006940: 45 58 41 4D 50 4C 45 3A 0D 20 20 20 20 20 20 20 |EXAMPLE:. | 00006950: 20 20 20 20 20 20 20 20 20 CA D3 D2 20 C9 CE D4 | ... ...| 00006960: C2 CD 32 0D 20 20 20 20 20 20 20 20 20 20 20 20 |..2. | 00006970: 20 20 20 2E D7 CF D2 C4 20 D3 4F 55 52 43 45 20 | ..... .OURCE | 00006980: 41 44 44 52 45 53 53 0D 20 20 20 20 20 20 20 20 |ADDRESS. | 00006990: 20 20 20 20 20 20 20 2E D7 CF D2 C4 20 C4 45 53 | ..... .ES| 000069A0: 54 49 4E 41 54 49 4F 4E 20 41 44 44 52 45 53 53 |TINATION ADDRESS| 000069B0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000069C0: 2E D7 CF D2 C4 20 CC 45 4E 47 54 48 20 4F 46 20 |..... .ENGTH OF | 000069D0: 54 52 41 4E 53 46 45 52 0D 20 20 20 20 20 20 20 |TRANSFER. | 000069E0: 20 20 20 20 20 20 20 20 C3 4F 4E 54 52 4F 4C 20 | .ONTROL | 000069F0: 52 45 54 55 52 4E 53 20 48 45 52 45 20 55 50 4F |RETURNS HERE UPO| 00006A00: 4E 20 43 4F 4D 50 4C 45 54 49 4F 4E 2E 0D 0D 0D |N COMPLETION....| 00006A10: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00006A20: 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 |.... ..| 00006A30: CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E |.. .ERNAL .OUTIN| 00006A40: 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ES | 00006A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00006A60: 20 20 20 20 20 20 20 20 31 2D 33 35 0D 0D 0D 20 | 1-35... | 00006A70: 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F | .UNCTIO| 00006A80: 4E 20 CE 41 4D 45 3A 20 C9 CE D5 D3 C5 0D 20 20 |N .AME: ...... | 00006A90: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00006AA0: 20 C3 48 45 43 4B 20 49 46 20 41 20 44 49 53 4B | .HECK IF A DISK| 00006AB0: 20 53 45 43 54 4F 52 20 49 53 20 49 4E 20 55 53 | SECTOR IS IN US| 00006AC0: 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |E.. .AL| 00006AD0: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 C1 C4 |L ADDRESS: $.2..| 00006AE0: 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 |. .NPUT| 00006AF0: 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 | REQUIREMENTS:. | 00006B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00006B10: C5 20 20 20 20 20 20 20 D4 52 41 43 4B 20 54 4F |. .RACK TO| 00006B20: 20 42 45 20 43 48 45 43 4B 45 44 2E 0D 20 20 20 | BE CHECKED.. | 00006B30: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 C6 20 | $0. | 00006B40: 20 20 20 20 20 20 D3 45 43 54 4F 52 20 54 4F 20 | .ECTOR TO | 00006B50: 42 45 20 43 48 45 43 4B 45 44 2E 0D 20 20 20 20 |BE CHECKED.. | 00006B60: 20 20 20 20 20 20 20 20 20 20 20 24 38 32 30 30 | $8200| 00006B70: 2D 24 38 32 C6 C6 20 D4 52 41 43 4B 20 31 38 20 |-$82.. .RACK 18 | 00006B80: 53 45 43 54 4F 52 20 30 2C 20 C2 C1 CD 20 42 55 |SECTOR 0, ... BU| 00006B90: 46 46 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 |FFER.. | 00006BA0: CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 |.UTPUT:. | 00006BB0: 20 20 20 20 20 20 20 D8 20 20 20 20 20 20 20 20 | . | 00006BC0: 20 C9 4E 44 45 58 20 49 4E 54 4F 20 C2 C1 CD 20 | .NDEX INTO ... | 00006BD0: 4F 46 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |OF THE APPROPRIA| 00006BE0: 54 45 20 42 59 54 45 2E 0D 20 20 20 20 20 20 20 |TE BYTE.. | 00006BF0: 20 20 20 20 20 20 20 20 DA 20 46 4C 41 47 20 20 | . FLAG | 00006C00: 20 20 D3 45 54 20 49 46 20 54 48 45 20 53 45 43 | .ET IF THE SEC| 00006C10: 54 4F 52 20 49 53 20 49 4E 20 55 53 45 2E 0D 20 |TOR IS IN USE.. | 00006C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 31 | $1| 00006C30: 31 20 20 20 20 20 20 20 C9 4E 44 45 58 20 54 4F |1 .NDEX TO| 00006C40: 20 54 52 41 43 4B 27 53 20 44 41 54 41 20 49 4E | TRACK'S DATA IN| 00006C50: 20 C2 C1 CD 2E 0D 20 20 20 20 20 20 20 20 20 20 | ..... | 00006C60: 20 20 20 20 20 24 31 33 20 20 20 20 20 20 20 C2 | $13 .| 00006C70: 49 54 20 4D 41 53 4B 20 46 4F 52 20 54 48 45 20 |IT MASK FOR THE | 00006C80: 44 45 53 49 52 45 44 20 53 45 43 54 4F 52 2E 0D |DESIRED SECTOR..| 00006C90: 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 | .REPAR| 00006CA0: 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 |ATORY ROUTINES: | 00006CB0: D2 C4 31 38 30 0D 0D 20 20 20 20 20 20 20 20 20 |..180.. | 00006CC0: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 D4 48 | .ESCRIPTION: .H| 00006CD0: 49 53 20 52 4F 55 54 49 4E 45 20 49 53 20 55 53 |IS ROUTINE IS US| 00006CE0: 45 44 20 42 59 20 C1 CC CC CF C3 20 54 4F 20 54 |ED BY ..... TO T| 00006CF0: 45 53 54 20 49 46 20 41 20 53 45 43 54 4F 52 20 |EST IF A SECTOR | 00006D00: 49 53 0D 20 20 20 20 20 20 20 20 20 20 41 4C 52 |IS. ALR| 00006D10: 45 41 44 59 20 49 4E 20 55 53 45 2E 0D 0D 0D 20 |EADY IN USE.... | 00006D20: 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F | .UNCTIO| 00006D30: 4E 20 CE 41 4D 45 3A 20 C9 CE D6 C2 CF D8 0D 20 |N .AME: ....... | 00006D40: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00006D50: 3A 20 C9 4E 56 45 52 54 53 20 54 48 45 20 50 49 |: .NVERTS THE PI| 00006D60: 58 45 4C 53 20 49 4E 20 41 20 42 4F 58 2E 0D 20 |XELS IN A BOX.. | 00006D70: 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 | .ALL AD| 00006D80: 44 52 45 53 53 3A 20 24 C3 31 32 C1 0D 20 20 20 |DRESS: $.12.. | 00006D90: 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 | .NPUT REQ| 00006DA0: 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 |UIREMENTS:. | 00006DB0: 20 20 20 20 20 20 20 20 20 20 24 30 36 20 20 20 | $06 | 00006DC0: 20 20 20 20 D4 48 45 20 54 4F 50 20 4D 41 52 47 | .HE TOP MARG| 00006DD0: 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |IN.. | 00006DE0: 20 20 20 24 30 37 20 20 20 20 20 20 20 D4 48 45 | $07 .HE| 00006DF0: 20 42 4F 54 54 4F 4D 20 4D 41 52 47 49 4E 2E 0D | BOTTOM MARGIN..| 00006E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00006E10: 30 38 2D 24 30 39 20 20 20 D4 48 45 20 4C 45 46 |08-$09 .HE LEF| 00006E20: 54 20 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 20 |T MARGIN.. | 00006E30: 20 20 20 20 20 20 20 20 20 24 30 C1 2D 24 30 C2 | $0.-$0.| 00006E40: 20 20 20 D4 48 45 20 52 49 47 48 54 20 4D 41 52 | .HE RIGHT MAR| 00006E50: 47 49 4E 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 |GIN... | 00006E60: C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 |.ESCRIPTION: .H| 00006E70: 49 53 20 52 4F 55 54 49 4E 45 20 52 45 56 45 52 |IS ROUTINE REVER| 00006E80: 53 45 53 20 54 48 45 20 50 49 58 45 4C 53 20 49 |SES THE PIXELS I| 00006E90: 4E 20 41 20 47 49 56 45 4E 20 42 4F 58 20 20 42 |N A GIVEN BOX B| 00006EA0: 59 0D 20 20 20 20 20 20 20 20 20 20 52 45 50 45 |Y. REPE| 00006EB0: 41 54 45 44 4C 59 20 43 41 4C 4C 49 4E 47 20 C9 |ATEDLY CALLING .| 00006EC0: CE D6 CC C9 CE 2E 20 D3 45 45 20 41 4C 53 4F 20 |...... .EE ALSO | 00006ED0: D2 CF D7 C1 C4 D2 2E 0D 0D 0D 20 20 20 20 20 20 |.......... | 00006EE0: 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D | .UNCTION .AM| 00006EF0: 45 3A 20 C9 CE D6 CC C9 CE 0D 20 20 20 20 20 20 |E: ....... | 00006F00: 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 C9 4E 56 | .URPOSE: .NV| 00006F10: 45 52 54 53 20 41 20 48 4F 52 49 5A 4F 4E 41 4C |ERTS A HORIZONAL| 00006F20: 20 4C 49 4E 45 20 4F 4E 20 54 48 45 20 53 43 52 | LINE ON THE SCR| 00006F30: 45 45 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 |EEN.. .| 00006F40: 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 |ALL ADDRESS: $.1| 00006F50: 31 C2 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 |1.. .NP| 00006F60: 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A |UT REQUIREMENTS:| 00006F70: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00006F80: 24 30 38 2D 24 30 39 20 20 20 D4 48 45 20 4C 45 |$08-$09 .HE LE| 00006F90: 46 54 20 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 |FT MARGIN.. | 00006FA0: 20 20 20 20 20 20 20 20 20 20 24 30 C1 2D 24 30 | $0.-$0| 00006FB0: C2 20 20 20 D4 48 45 20 52 49 47 48 54 20 4D 41 |. .HE RIGHT MA| 00006FC0: 52 47 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 |RGIN.. | 00006FD0: 20 20 20 20 20 24 31 38 20 20 20 20 20 20 20 D4 | $18 .| 00006FE0: 48 45 20 52 4F 57 20 4E 55 4D 42 45 52 2E 0D 0D |HE ROW NUMBER...| 00006FF0: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00007000: 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F |PTION: .HIS RO| 00007010: 55 54 49 4E 45 20 52 45 56 45 52 53 45 53 20 54 |UTINE REVERSES T| 00007020: 48 45 20 50 49 58 45 4C 53 20 4F 4E 20 20 41 20 |HE PIXELS ON A | 00007030: 20 48 4F 52 49 5A 4F 4E 54 41 4C 0D 20 20 20 20 | HORIZONTAL. | 00007040: 20 20 20 20 20 20 4C 49 4E 45 20 4F 4E 20 54 48 | LINE ON TH| 00007050: 45 20 48 49 52 45 53 20 53 43 52 45 45 4E 2E 20 |E HIRES SCREEN. | 00007060: C9 46 20 54 48 45 20 50 49 58 45 4C 20 57 41 53 |.F THE PIXEL WAS| 00007070: 20 4F 4E 20 49 54 20 57 49 4C 4C 20 4E 4F 57 20 | ON IT WILL NOW | 00007080: 42 45 20 4F 46 46 3B 0D 20 20 20 20 20 20 20 20 |BE OFF;. | 00007090: 20 20 49 46 20 49 54 20 57 41 53 20 4F 46 46 20 | IF IT WAS OFF | 000070A0: 49 54 20 57 49 4C 4C 20 4E 4F 57 20 42 45 20 54 |IT WILL NOW BE T| 000070B0: 55 52 4E 45 44 20 4F 4E 2E 20 D3 45 45 20 41 4C |URNED ON. .EE AL| 000070C0: 53 4F 20 D2 CF D7 C1 C4 D2 2E 0D 0D 0D 0D 0D 0D |SO .............| 000070D0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |............. |
... GEOS KERNAL ROUTINES
1-23...
FUNCTION NAME: DRAWCH.
PURPOSE: DRAWS A CHARACTER.. CA
LL ADDRESS: $C202. INPUT REQUIR
EMENTS:. A THE ASC
II VALUE OF THE CHARACTER..
$05 ROW TO PRINT ON (1 ABOVE THE
UNDERLINE).. $18-$19 CO
LUMN TO PRINT IN.. $33
THE TOP MARGIN (USUALLY 0)..
$34 THE BOTTOM MARGIN (USUAL
LY 199)... DESCRIPTION: THIS RO
UTINE IS NOT EXACTLY THE SAME AS DSPCHR.
THIS. ROUTINE DOES NOT PROCESS
CONTROL CHARACTERS AT ALL. IT ALSO DOE
S. NOT CHECK LEFT AND RIGHT MA
RGINS AT ALL. IT ONLY CHECKS TOP AND.
BOTTOM MARGINS SO THAT IT STAYS
ON SCREEN.... FUNCTION NAME: DR
VNAM. PURPOSE: COMPUTE THE ADDR
ESS OF THE DISK'S NAME.. CALL A
DDRESS: $C298. INPUT REQUIREMEN
TS:. X ADDRESS TO
PLACE POINTER IN.. $8489
CURRENT DRIVE NUMBER.. OUTPU
T:. LOCATION IN ZERO PAGE
POINTED TO BY X HAS THE ADDRESS OF THE.
CURRENT DRIVE'S NAME..
PREPARATORY ROUTINES: OPNDSK..
DESCRIPTION: THIS ROUTINE COMPU
TES THE ADDRESS OF THE CURRENT.
DRIVE'S NAME BY MULTIPLYING THE DRIV
E NUMBER (MINUS 8) BY 18,. TH
EN THE OFFSET OF $841E IS ADDED TO THA
T. THE RESULT OF THE. COMPUT
ATION IS STORED AT THE ZERO PAGE ADDRESS
IN X.... FUNCTION NAME: DRVSET
. PURPOSE: SET CURRENT DRIVE..
CALL ADDRESS: $C2B0. I
NPUT REQUIREMENTS:. A
DEVICE NUMBER OF DRIVE (8-11)..
OUTPUT:. $BA SE
T TO NEW DEVICE NUMBER.. $
8489 SET TO NEW DRIVE NUMBER...
DESCRIPTION: IF THE DRIVE BEING
SPECIFIED IS NOT THE CURRENT.
DRIVE THEN CLRRDY IS CALLED TO CLEAR
THE CURRENT DRIVE. THEN. LOC
ATIONS $BA AND $8489 ARE SET TO THE NEW
DRIVE NUMBER. NO OTHER. LOCATIO
NS ARE AFFECTED, NOR IS ANYTHING ACTUA
LLY DONE WITH THE. DRIVE....
FUNCTION NAME: DRWMNU.
PURPOSE: REDRAWS THE PRESENT MENU..
CALL ADDRESS: $C193.. DESC
RIPTION: THIS ROUTINE REDRAWS THE CURREN
T MENU........... GEOS KERNAL R
OUTINES
1-24... FUNCTION NAME: DSE
TUP. PURPOSE: SETS UP A DRIVE W
ITH TURBODOS.. CALL ADDRESS: $C
214. INPUT REQUIREMENTS:.
$8489 CURRENT DRIVE NUMBER.
. ERRORS: SEE APPENDIX I...
DESCRIPTION: THIS ROUTINE INITIAL
IZES THE CURRENT DRIVE, SENDING.
TURBODOS IF NECESSARY. IT THEN CAUSES
THE DRIVE TO RUN TURBODOS.. TH
IS ROUTINE IS CALLED BY SEVERAL OF THE D
ISK I/O ROUTINES, MOST. NOTABL
Y ARE READ AND WRITE. UPON INITIALIZI
NG THE DRIVE, THE. DRIVE'S ST
ATUS BYTE IS SET TO THE APPROPRIATE VALU
E. THE STATUS. BYTES ARE ST
ORED AT $8492-$8495 AND HAVE THE FOL
LOWING BIT. DEFINITIONS:.
BIT 7 TURBODOS I
S LOADED.. BIT 6
TURBODOS IS RUNNING.... FU
NCTION NAME: DSPCHR. PURPOSE: D
ISPLAYS A CHARACTER ON THE SCREEN..
CALL ADDRESS: $C145. INPUT
REQUIREMENTS:. A
THE CHARACTER TO BE PRINTED..
$02-$03 POINTER TO EXTRA DATA (USE
D BY A FEW CONTROL.
CHARACTERS, NOT NEEDED OTHERWISE)..
$05 THE ROW FOR PRIN
TING (1 ABOVE THE UNDERLINE)..
$18-$19 THE COLUMN TO START PRINT
ING.. $33 THE TOP MA
RGIN (USUALLY 0).. $34
THE BOTTOM MARGIN (USUALLY 199)..
$35-$36 THE LEFT MARGIN..
$37-$38 THE RIGHT MARGIN.
. PREPARATORY ROUTINES: SELBSW
OR FONT. ERRORS: BRANCHES THROU
GH $84AB-$84AC IF RIGHT MARGIN IS EXCEED
ED... DESCRIPTION: THIS ROUTI
NE DISPLAYS A CHARACTER IN A GIVEN
. LOCATION IN THE CURRENT FO
NT AND STYLE. THE STYLE BYTE IN.
LOCATION $2E IS CODED AS FOLLOWS:
. BIT DESCRIPTION.
7 UNDERLINE.
6 BOLDFACE.
5 REVERSED.
4 ITALICS. 3
OUTLINED. EITHER SELBSW OR
FONT MUST BE CALLED PRIOR TO USING THIS
ROUTINE,. IN ORDER TO SET UP
THE FONT POINTERS. SELBSW IS CALLED D
URING. GEOS'S BOOTUP PROCEDUR
E, AS WELL AS BY THE MENU PROCESSOR
.. SEVERAL CONTROL CHARACTERS H
AVE SPECIAL PROPERTIES. THOSE WHICH.
REQUIRE A DATA POINTER ARE MARKE
D WITH AN ASTERISK.................
GEOS KERNAL ROUTINES
1-25...
CONTROL CHARACTER T
ABLE.. CTRL-H DELETE PREV
IOUS CHARACTER.. CTRL-I T
AB.. CTRL-J MOVE STRAIGHT
DOWN A LINE.. CTRL-K SET
TEXT CURSOR TO 0,0.. CTRL
-L MOVE STRAIGHT UP A LINE..
CTRL-M MOVE TO THE BEGINNING OF THE
NEXT LINE.. CTRL-N TURN
ON UNDERLINING.. CTRL-O T
URN OFF UNDERLINING.. * CTRL
-P FOLLOWED BY A TABLE SUITABLE FOR GRP
HIC.. CTRL-R TURN ON REVE
RSE VIDEO.. CTRL-S TURN O
FF REVERSE VIDEO.. * CTRL-T
FOLLOWED BY 2 BYTES WHICH SPECIFY THE N
EW COLUMN.. * CTRL-U FOLLOW
ED BY A BYTE WHICH SPECIFIES THE NEW ROW
.. * CTRL-V FOLLOWED BY 3 B
YTES WHICH SPECIFY THE NEW PRINT .
POSITION..
* CTRL-W SKIPS THE NEXT 3 BYTES..
CTRL-X TURN ON BOLDFACE..
CTRL-Y TURN ON ITALICS..
CTRL-Z TURN ON OUTLINE..
CTRL- TURN OFF ALL EFFECTS, R
ETURN TO PLAIN TEXT... THOSE E
NTRIES MARKED WITH AN ASTERISK (*) SHOU
LD ONLY BE USED. FROM DSPTXT
BECAUSE THEY REQUIRE $02-$03 TO BE A PO
INTER TO GET. EXTRA DATA. AS
WITH GRPHIC, CTRL-P MUST BE THE LAST
COMMAND. BECAUSE THE ZERO
BYTE THAT TERMINATES GRPHIC WILL TERM
INATE. DSPTXT.... FUNC
TION NAME: DSPNUM. PURPOSE: DIS
PLAY AN UNSIGNED 16 BIT INTEGER..
CALL ADDRESS: $C184. INPUT R
EQUIREMENTS:. A CO
NTROL VALUE (SEE DESCRIPTION)..
$02-$03 THE VALUE TO BE DISPLAYE
D... DESCRIPTION: THIS ROUTIN
E CONVERTS THE VALUE AT $02-$03 TO.
DECIMAL ASCII AND DISPLAYS IT
USING DSPCHR. THE CONTROL VALUE IN.
A IS DEFINED AS FOLLOWS:.
BIT 7 0 - RIGHT JUSTIFY THE NU
MBER.. 1 - LEFT
JUSTIFY THE NUMBER, IE. NO JUSTIFY..
BIT 6 0 - PRINT LEADING Z
EROES.. 1 - SKIP
LEADING ZEROES.. BITS 0-5
THE FIELD WIDTH IN PIXELS FOR RIGHT JU
STIFICATION....................
GEOS KERNAL ROUTINES
1-26... FUNC
TION NAME: DSPTX2. PURPOSE: IDE
NTICAL TO DSPTXT, BUT WITH INLINE CODE..
CALL ADDRESS: $C1AE.
INPUT REQUIREMENTS:. $35-$
36 THE LEFT MARGIN.. $37
-$38 THE RIGHT MARGIN.. PREPA
RATORY ROUTINES: SELBSW OR FONT.
ERRORS: BRANCHES THROUGH $84AB-$84AC I
F RIGHT MARGIN IS EXCEEDED... D
ESCRIPTION: THIS ROUTINE CREATES A POIN
TER TO THE TEXT, CALLS. DSPTX
T, THEN RETURNS TO THE CODE IMMEDIATELY
FOLLOWING THE TEXT.. JSR
DSPTX2. .WORD THE COLUMN T
O START PRINTING IN. .BYTE
ROW FOR LINE OF PRINT (1 ABOVE THE UNDE
RLINE). .BYTE TEXT TO BE D
ISPLAYED. .BYTE 0.
CONTROL RETURNS HERE AFTER TEXT I
S PRINTED.... FUNCTION NAME: DS
PTXT. PURPOSE: DISPLAYS AN ENTI
RE STRING OF TEXT.. CALL ADDRES
S: $C148. INPUT REQUIREMENTS:.
$02-$03 POINTER TO TEXT
STRING.. $05 THE ROW
FOR PRINTING (1 ABOVE THE UNDERLINE)..
$18-$19 THE COLUMN IN WH
ICH TO START PRINTING.. $3
3 THE TOP MARGIN (USUALLY 0)..
$34 THE BOTTOM MARGIN (
USUALLY 199).. $35-$36 T
HE LEFT MARGIN.. $37-$38
THE RIGHT MARGIN.. PREPARATORY
ROUTINES: SELBSW OR FONT. ERRO
RS: BRANCHES THROUGH $84AB-$84AC IF RIGH
T MARGIN IS EXCEEDED... DESCRIP
TION: THIS ROUTINE CALLS DSPCHR TO DISP
LAY EACH CHARACTER. IN A STRING
. THE STRING IS TERMINATED BY A ZERO BYT
E.... FUNCTION NAME: ENABLE.
PURPOSE: ENABLES A RECURRING TIME
D EVENT.. CALL ADDRESS: $C106.
INPUT REQUIREMENTS:.
X THE INDEX INTO THE COMMAND
TABLE AT $8719.. PREPARATORY R
OUTINES: CMDTBL.. DESCRIPTION:
THIS ROUTINE ENABLES A SPECIFIC TIMER I
N THE TABLE. AT $8719 BY RESET
TING BITS 5 AND 6 IN THE COMMAND TABLE.
IT ALSO. COPIES THE INITIAL
VALUE INTO THE TIMER TABLE AT $87F1.
THE. COMMAND TABLE MUST HAV
E BEEN PREVIOUSLY SET UP BY A CALL TO
. CMDTBL................
GEOS KERNAL ROUTINES
1-27... FU
NCTION NAME: ERAMNS. PURPOSE: E
RASES ALL OPEN MENUS.. CALL ADD
RESS: $C157. PREPARATORY ROUTIN
ES: MENU.. DESCRIPTION: THIS
ROUTINE ERASES ALL OF THE MENUS. IT
CALLS. ERAMNU REPEATEDLY TO ACC
OMPLISH THIS. IT THEN SETS THE MENU LEVE
L. COUNTER ($84B7) TO $00....
FUNCTION NAME: ERAMNU.
PURPOSE: ERASES THE CURRENT MENU FROM TH
E SCREEN.. CALL ADDRESS: $C154.
PREPARATORY ROUTINES: MENU..
DESCRIPTION: THIS ROUTINE WILL
ERASE THE CURRENT MENU. IT DOES.
NOT POP UP A LEVEL. IT SIMPLY ERASE
S IT FROM THE SCREEN. IF THE.
VECTOR AT $84B1 WAS SET, THEN THAT IS TH
E ROUTINE CALLED TO ERASE. THE
MENU; OTHERWISE, A BLANK PATTERN IS SEL
ECTED WITH SETPAT AND. PFILL IS
CALLED. THE DEFAULT SETTING FOR $84B1 I
S COPYB.... FUNCTION NAME: EXER
TN. PURPOSE: FORCES A TIMED EVE
NT TO EXECUTE,REGARDLESS OF ITS TIMER..
CALL ADDRESS: $C109. I
NPUT REQUIREMENTS:. X
THE INDEX INTO THE COMMAND BYTE TABL
E AT $8719.. PREPARATORY ROUTIN
ES: CMDTBL.. DESCRIPTION: THIS
ROUTINE SETS BIT 7 OF A SPECIFIC COMMA
ND BYTE. IN THE TABLE AT $8719.
THIS SIMULATES THE TIMER HAVING RUN OUT
.... FUNCTION NAME: FALLOC.
PURPOSE: ALLOCATE ENOUGH SECTORS F
OR A FILE.. CALL ADDRESS: $C1FC
. INPUT REQUIREMENTS:.
$06-$07 NUMBER OF BYTES TO BE SA
VED.. $0A-$0B ADDRESS OF
BUFFER FOR TRACK AND SECTOR LIST..
OUTPUT:. BUFFER IS FI
LLED WITH A SET OF TRACKS AND SECTORS..
ERRORS: SEE APPENDIX..
DESCRIPTION: GIVEN A BYTE COUNT AND A
POINTER TO A BUFFER, THIS. ROU
TINE ATTEMPTS TO ALLOCATE ENOUGH SECTO
RS. THIS ROUTINE IS. CALLED
PRIOR TO SAVING A FILE. THE TRACK AND S
ECTOR LIST IS NOT. LIMITED IN
LENGTH, AVAILABLE DISK SPACE NOT WITH
STANDING. THE. LIST IS TERM
INATED WITH A TRACK NUMBER OF ZERO
AND THE. APPROPRIATE BYTE CO
UNT IN THE SECTOR LOCATION. NOTE IF AN
ERROR. OCCURS DURING THE ALLO
CATION, THE SECTORS ALREADY ALLOCATED A
RE. NOT FREED UP. EITHER TH
IS MUST BE DONE OR THE DISK MUST BE.
VALIDATED.............
GEOS KERNAL ROUTINES
1-28... FUNC
TION NAME: FALOC2. PURPOSE: ALL
OCATE ENOUGH SECTORS FOR A FILE..
CALL ADDRESS: $C24D. INPUT R
EQUIREMENTS:. $06-$07 NU
MBER OF BYTES TO BE SAVED..
$08 TRACK TO START LOOKING FROM.
. $09 SECTOR TO STAR
T LOOKING FROM.. $0A-$0B
ADDRESS OF BUFFER FOR TRACK AND SECTOR
LIST.. OUTPUT:. B
UFFER IS FILLED WITH A SET OF TRACKS AND
SECTORS.. ERRORS: SEE APPENDIX
.. DESCRIPTION: THIS ROUTINE
IS ALMOST IDENTICAL TO FALLOC. AS A.
MATTER OF FACT, FALLOC FALLS INT
O THIS ROUTINE AFTER SETTING $08-.
$09 TO POINT TO TRACK 1 SECTOR 0. TH
IS ROUTINE ALLOWS THE USER TO.
SPECIFY WHERE ON THE DISK TO START LOO
KING FOR FREE SECTORS,. POSS
IBLY SPEEDING THINGS UP.... FUN
CTION NAME: FONT. PURPOSE: CHAN
GE THE CURRENT FONT.. CALL ADDR
ESS: $C1CC. INPUT REQUIREMENTS:
. $02-$03 POINTER TO FON
T HEADER IN MEMORY.. OUTPUT:.
$26 # PIXELS ABOVE LI
NE OF PRINT.. $27-$28 TH
E NUMBER OF BYTES IN THE BIT STREAM..
$29 THE POINT SIZE..
$2A-$2B POINTER TO THE TA
BLE OF THE BIT STREAM INDICES..
$2C-$2D POINTER TO THE BIT STREA
M... DESCRIPTION: THIS ROUTINE
SIMPLY COPIES THE HEADER BLOCK FROM THE.
FONT TO ZERO PAGE. THIS MAKES
THE FONT THE CURRENT FONT FOR ALL.
CHARACTER OUTPUT. (SEE DSPCHR, DSP
TXT AND DSPTX2).... FUNCTION NA
ME: FORBID. PURPOSE: DISABLES T
HE EXECUTION OF A TIMED EVENT..
CALL ADDRESS: $C10C. INPUT REQ
UIREMENTS:. X THE
INDEX INTO THE COMMAND TABLE AT $8719..
PREPARATORY ROUTINES: CMDTBL..
DESCRIPTION: THIS ROUTINE SETS
BIT 6 OF A SPECIFIC COMMAND BYTE.
IN THE TABLE AT $8719. THIS PREVEN
TS THE ASSOCIATED ROUTINE FROM.
EXECUTING, REGARDLESS OF ITS TIMER. TH
IS DOES NOT STOP THE TIMER. FRO
M RUNNING. IF THE TIMER RUNS OUT W
HILE THE ROUTINE IS. DISABLE
D, WHEN THE TIMER IS REENABLED, THE A
SSOCIATED ROUTINE. WILL BE EXE
CUTED. THIS ROUTINE IS THE COMPLEMENT TO
PERMIT................ GEOS KE
RNAL ROUTINES
1-29... FUNCTION NAM
E: FREE. PURPOSE: DEALLOCATES A
LL OF A FILE'S SECTORS.. CALL A
DDRESS: $C226. INPUT REQUIREMEN
TS:. $14-$15 POINTER TO
DIRECTORY ENTRY.. PREPARATORY R
OUTINES: LOOKUP (POINTER MUST BE COPIED)
.. ERRORS: SEE APPENDIX I...
DESCRIPTION: GIVEN THE DIRECTO
RY ENTRY OF A FILE, ALL OF ITS.
SECTORS ARE RETURNED TO THE FREE PO
OL. THE DIRECTORY POINTER. S
HOULD BE POINTING TO THE DIRECTORY ENT
RY AT $8400 AND NOT THE. POINT
ER RETURNED BY LOOKUP. THIS IS DUE TO M
EMORY CONFLICTS THAT. WILL ARIS
E. THIS ROUTINE USES $8000-$82FF FOR ITS
BUFFER AREAS.... FUNCTION NAME
: GEOSCK. PURPOSE: CHECKS IF A
DISK IS GEOS FORMAT OR NOT.. CA
LL ADDRESS: $C1DE. INPUT REQUIR
EMENTS:. $0C-$0D POINTER
TO BUFFER WITH TRACK 18 SECTOR 0..
OUTPUT:. Z SE
T IF NON-GEOS, RESET IF GEOS FORMAT..
A,$848B $00 IF NON-GEOS, $
FF IF GEOS FORMAT... DESCRIPTIO
N: THIS ROUTINE EXPECTS THAT TRACK 18
SECTOR 0 HAS. ALREADY BEEN
READ. IT COMPARES 11 BYTES, STARTING
WITH THE. 173RD, AGAINST 'G
EOS FORMAT'. IT SETS $848B SO THAT THE
CURRENT. DRIVE IS KEPT TRACK OF
.... FUNCTION NAME: GETBYT.
PURPOSE: READ A BYTE FROM A FILE..
CALL ADDRESS: $C2B6.
INPUT REQUIREMENTS:. $0C
INDEX OF LAST BYTE IN BUFFER..
$0D INDEX TO NEXT CHARAC
TER IN BUFFER.. $0A-$0B
POINTER TO DISK BUFFER.. OUTPUT
:. A CHARACTER THA
T WAS READ.. ERRORS: SEE APPEND
IX I... DESCRIPTION: THE INITI
AL SECTOR MUST HAVE BEEN READ BECAUSE T
HE. FIRST TWO BYTES IN THE BUFF
ER ARE USED TO FIND THE NEXT TRACK AND.
SECTOR. BYTES ARE READ FROM T
HE BUFFER UNTIL THERE ARE NO MORE,.
THEN THE NEXT SECTOR IS READ FROM
THE DISK. THIS CAN CONTINUE.
UNTIL THE LAST CHARACTER OF THE LAST S
ECTOR IS READ. AFTER THIS. AN
ERROR 11 (END OF FILE) WILL BE RETURNED.
................. GEOS KERNAL R
OUTINES
1-30... FUNCTION NAME: GET
IN. PURPOSE: GET A KEY FROM THE
KEYBOARD.. CALL ADDRESS: $C2A7
. OUTPUT:. A
CHARACTER OR $00 IF THERE ARE NONE..
. DESCRIPTION: THIS ROUTINE TAK
ES A KEY FROM THE KEYBOARD BUFFER,.
IF THERE IS ONE. IF THERE ARE NO
CHARACTERS IN THE BUFFER, THEN A.
ZERO IS RETURNED.... FUNCTIO
N NAME: GOTO. PURPOSE: GET A SP
ECIFIC VLIR CHAIN.. CALL ADDRES
S: $C280. INPUT REQUIREMENTS:.
A VLIR CHAIN NUMBE
R.. OUTPUT:. Y
TRACK OF VLIR CHAIN..
$04 TRACK OF VLIR CHAIN..
$05 SECTOR OF VLIR CHAIN..
$8496 SET TO A..
PREPARATORY ROUTINES: VOPEN.
ERRORS: SEE APPENDIX I... DE
SCRIPTION: THIS ROUTINE GETS THE TRACK A
ND SECTOR OF A SPECIFIC. CHAIN
IN THE OPEN VLIR FILE. IT DOES NOT CH
ECK TO SEE IF THE. CHAIN EXIS
TS (IE. TRACK IS ZERO). IT DOES CHECK I
F THIS CHAIN IS. GREATER THAN
ZERO AND LESS THAN THE NUMBER OF V
LIR CHAINS. (LOCATION $8497).
VLIR CHAINS ARE NUMBERED FROM 0 TO N-1,
WHERE N. IS THE NUMBER OF CHAIN
S.... FUNCTION NAME: GRPHC2.
PURPOSE: IDENTICAL TO GRPHIC, BUT
WITH INLINE DATA.. CALL ADDRES
S: $C1A8.. DESCRIPTION: THIS R
OUTINE TAKES AN INLINE DATA TABLE, CREAT
ES A. POINTER TO IT, THEN CALL
S GRPHIC TO PROCESS IT. SEE PFILL2 FOR A
N. EXAMPLE OF INLINE DATA TABLE
S.... FUNCTION NAME: GRPHIC.
PURPOSE: PROCESS SEVERAL GRAPHICS
COMMANDS DESIGNATED BY A TABLE..
CALL ADDRESS: $C136. INPUT R
EQUIREMENTS:. $02-$03 PO
INTER TO THE TABLE OF COMMANDS...
DESCRIPTION: THIS ROUTINE EXECUTES T
HE GRAPHIC COMMANDS PRESENT. I
N A TABLE. THIS ROUTINE IS USED BY DSPCH
R (CONTROL-P),DSPTXT (BY. CALLI
NG DSPCHR), AND WINDOW (COMMAND 15). T
HE FOLLOWING TABLE. DESCRIBES
THE AVAILABLE COMMANDS..............
GEOS KERNAL ROUTINES
1-31...
GRAPHIC COMMAND
TABLE.. COMMAND #BYTES
DESCRIPTION. 0
1 STOP, END OF TABLE..
1 4 SET COLUMN AND ROW
VARIABLES.. 2 4
DRAW A LINE.. 3
4 PATTERN FILL A REGION..
4 1 NO OPERATIO
N.. 5 2 SET
FILL PATTERN.. 6
4+ SET POSITION AND DISPLAY TEXT.
MUST BE.
LAST COMMAND BECAUSE THE ZERO BYTE THA
T. ENDS
THE TEXT ALSO ENDS THIS COMMAND.
TABLE..
7 4 DRAW A SOLID
LINED BOX.. 8
3 ADD AN OFFSET TO COLUMN VARIABLE..
9 2 ADD AN
OFFSET TO ROW VARIABLE..
10 4 ADD OFFSETS TO BOTH C
OLUMN AND ROW.
VARIABLES... COMMAND 1
IS USED TO SET THE COLUMN AND ROW VARIAB
LES USED BY ALL. OF THE OTHER C
OMMANDS WHICH REQUIRE TWO POINTS. THE FO
RMAT OF THE. COMMANDS IS THAT
ALL OF THE NECESSARY DATA FOLLOWS THE
COMMAND. BYTE. FOR EXAMPLE, TH
E COMMANDS TO ERASE THE ENTIRE SCREEN WO
ULD. LOOK LIKE THIS:.
.BYTE $05,$00. .BYTE
$01. .WORD 0.
.BYTE 0. .BYTE $03.
.WORD 320. .BYTE
199. .BYTE $00.
IN THE CASE OF COMMAND 6, AFTER THE COL
UMN AND ROW BYTES IN THE. COMM
AND COMES THE TEXT THAT IS TO BE DISPLAY
ED. FOR EXAMPLE:. .BYTE $
06. .WORD 50.
.BYTE 50. .BYTE 'HELLO W
ORLD!'. .BYTE $00...
FUNCTION NAME: HLINE. PURPO
SE: DRAWS A HORIZONAL LINE ON THE SCREEN
.. CALL ADDRESS: $C118.
INPUT REQUIREMENTS:. A
THE ACTUAL BIT PATTERN FOR THE LI
NE.. $08-$09 THE LEFT MA
RGIN.. $0A-$0B THE RIGHT
MARGIN.. $18 THE RO
W NUMBER... DESCRIPTION: THIS
ROUTINE DRAWS A HORIZONTAL LINE ON THE
HIRES. SCREEN IN A GIVEN PATTE
RN. SEE ALSO ROWADR.............
GEOS KERNAL ROUTINES
1-32... FU
NCTION NAME: HOLE. PURPOSE: FIN
D A HOLE IN THE DIRECTORY, OR MAKE ONE..
CALL ADDRESS: $C1F6.
OUTPUT:. Y INDEX O
F HOLE IN BUFFER.. $04
DIRECTORY TRACK NUMBER (SHOULD BE 18)
.. $05 DIRECTORY SEC
TOR NUMBER.. $16 # D
IRECTORY SECTORS TO SKIP FIRST..
$8000-$80FF BUFFER FOR DIRECTORY
SECTOR... DESCRIPTION: THIS RO
UTINE SCANS THE DISK'S DIRECTORY LOOKING
FOR. A DELETED FILE, BY FIRST
SKIPPING A CERTAIN NUMBER OF SECTORS.
. THIS ALLOWS THE USER TO FIN
D A HOLE IN A GIVEN DIRECTORY PAGE..
IF ONE IS NOT FOUND IN ANY OF TH
E AVAILABLE DIRECTORY SECTORS,.
THEN A NEW SECTOR IS ADDED TO THE DIR
ECTORY.... FUNCTION NAME: INDJM
P. PURPOSE: CONDITIONAL JUMP..
CALL ADDRESS: $C1D8. I
NPUT REQUIREMENTS:. A
THE HIGH BYTE OF THE JUMP VECTOR..
X THE LOW BYTE OF T
HE JUMP VECTOR... DESCRIPTION:
IF A AND X ARE ZERO, THE JUMP IS NOT PER
FORMED. IF A. AND X ARE NONZERO
, THE JUMP IS PERFORMED.... FUN
CTION NAME: INIT01. PURPOSE: PA
RT OF GEOS'S BOOTUP PROCESS.. C
ALL ADDRESS: $C271.. DESCRIPTIO
N: INITIALIZES THE VIC CHIP AND THE I/
O CHIPS. SOME. GLOBAL MEMOR
Y IS ALSO INITIALIZED. IT ALSO R
ESETS THE. PREFERENCES AND AL
L THE DRIVES. THE DEFAULT DRIVE IS RESE
T BY A. CALL TO DSETUP....
FUNCTION NAME: INITDV. PU
RPOSE: INITIALIZES A DRIVE.. CA
LL ADDRESS: $C1E1. INPUT REQUIR
EMENTS:. $04 TRACK T
O POSITION THE DISK DRIVE HEAD AT..
$05 SECTOR TO POSITION T
HE DISK DRIVE HEAD AT.. ERRORS:
SEE APPENDIX.. DESCRIPTION: M
AKES SURE THAT CURRENT DRIVE HAS TURBODO
S RUNNING.. IT ALSO POSITIONS T
HE HEAD OVER A PARTICULAR SECTOR........
......... GEOS KERNAL ROUTINES
1-3
3... FUNCTION NAME: INITMS.
PURPOSE: INITIALIZES THE MOUSE..
CALL ADDRESS: $C14E. IN
PUT REQUIREMENTS:. C FLAG
CLEAR IF THE MOUSE POSITION SHOULD NO
T BE SET.. C FLAG SET I
F THE MOUSE POSITION SHOULD BE SET..
Y THE ROW POSITION FO
R THE MOUSE (OPTIONAL).. $
18-$19 THE COLUMN POSITION FOR THE MOU
SE (OPTIONAL)... DESCRIPTION: T
HIS ROUTINE TURNS ON THE MOUSE AND POSI
TIONS IT IF. DESIRED. IF THE C
OLUMN IS SET TO 0, THE MOUSE IS NOT POS
ITIONED. EVEN IS THE C FLAG I
S SET. IT ALSO SETS UP THE BUTTON PRES
SED. VECTOR $84A1-$84A2 AND THE
CLOSE MENU VECTOR $84A7-$84A8. IT ALSO.
CLEARS THE FLAG AT $84B6. THI
S ROUTINE DOES NOT ACTUALLY TURN ON.
THE MOUSE. IT CALLS MOUSON TO RES
ET BIT 7 OF LOCATION $30; THIS.
WILL CAUSE GEOS'S INTERRUPT ROUTINES T
O TURN ON THE MOUSE.... FUNCTIO
N NAME: INPUT. PURPOSE: INPUT A
LINE OF TEXT FROM THE USER.. C
ALL ADDRESS: $C1BA. INPUT REQUI
REMENTS:. $02-$03 ADDRES
S OF TEXT AND BUFFER.. $04
FLAG BYTE ($87D3)..
$05 ROW TO PRINT TEXT ON (1 ABOVE
THE UNDERLINE).. $06
MAXIMUM LENGTH OF INPUT..
$0A-$0B VECTOR FOR USER ROUTINE FOR
RIGHT MARGIN EXCEEDED.
(OPTIONAL).. $18-$1
9 COLUMN TO START PRINTING TEXT AT..
$84A3-$84A4 ADDRESS FOR CR
ENTERED.. OUTPUT:.
$24-$25 POINTER TO TEXT BUFFER (COPI
ED FROM $02-$03).. BUFFER
WILL BE MODIFIED ACCORDING TO THE USER'S
INPUT.. $84A3-$84A4 CLEAR
ED TO $0000... DESCRIPTION: TH
IS ROUTINE IS RATHER POWERFUL. IT DISPLA
YS A LINE. OF TEXT, IF THERE W
AS ANY TEXT TO DISPLAY. THEN THE TEXT C
URSOR. IS TURNED ON. SEVERAL
OF THE JUMP VECTORS ARE USED..
$84AB-$84AC IS THE VECTOR FOR THE RIGH
T MARGIN BEING EXCEEDED.. $84
A9-$84AA IS THE VECTOR FOR A CHARACTER
BEING TYPED. $84A3-. $84A4 I
S THE VECTOR FOR CR ENTERED. AFTER EVER
YTHING IS SET UP,. CONTROL RET
URNS TO THE CALLER; HOWEVER, THE INPUT
IS HANDLED BY. THE INTERRUPT D
RIVERS. WHEN A CR IS ENTERED, CONTROL GO
ES THROUGH. THE VECTOR AT $84
A3-$84A4. THE FLAG BYTE AT LOCATION $
04 IS. COPIED TO $87D3 AND HAS
THE FOLLOWING PROPERTY: IF BIT 7 IS SE
T,. THEN USE THE USER'S ROUTIN
E WHOSE ADDRESS IS STORED AT LOCATIONS.
$0A-$0B FOR THE RIGHT MARGIN IS
EXCEEDED ROUTINE..................
GEOS KERNAL ROUTINES
1-34...
FUNCTION NAME: INSERT. PURPOSE:
INSERT A NEW CHAIN IN A VLIR FILE..
CALL ADDRESS: $C286. INPU
T REQUIREMENTS:. $8496
CURRENT CHAIN NUMBER.. OUTPUT:
. $8497 INCREMENTED BY
1.. PREPARATORY ROUTINES: VOPE
N. ERRORS: SEE APPENDIX I...
DESCRIPTION: A HOLE IS OPENED UP
IN THE VLIR SECTOR STARTING WITH.
THE CURRENT CHAIN. THE HOLE IS
FILLED WITH $00,$FF. THIS. R
EPRESENTS A NULL CHAIN.... FUNC
TION NAME: INTBM. PURPOSE: INTE
LLIGENT BLOCK MOVE.. CALL ADDRE
SS: $C17E. INPUT REQUIREMENTS:.
$02-$03 THE SOURCE ADDR
ESS.. $04-$05 THE DESTIN
ATION ADDRESS.. $06-$07
THE LENGTH OF THE REGION TO BE MOVED...
DESCRIPTION: THIS ROUTINE WI
LL PERFORM AN INTELLIGENT, IE..
NONCONFLICTING, BLOCK MOVE OF MEMO
RY. IF AN ATTEMPT IS MADE TO.
MOVE A BLOCK OF MEMORY TO A DESTINATION
THAT IS WITHIN THE BLOCK,. THE
TRANSFER IS DONE FROM BACK TO FRONT
SO AS TO PREVENT THE. CONFLIC
T, OR 'RIPPLE EFFECT'.... FUNCT
ION NAME: INTBM2. PURPOSE: IDEN
TICAL TO INTBM, BUT WITH INLINE DATA..
CALL ADDRESS: $C1B7.. D
ESCRIPTION: THIS ROUTINE USES THE INLIN
E DATA TO SET EVERYTHING. UP BE
FORE CALLING INTBM. FOR EXAMPLE:.
JSR INTBM2. .WORD
SOURCE ADDRESS. .WORD DES
TINATION ADDRESS. .WORD LE
NGTH OF TRANSFER. CONTROL
RETURNS HERE UPON COMPLETION............
............ GEOS KERNAL ROUTIN
ES
1-35... FUNCTION NAME: INUSE.
PURPOSE: CHECK IF A DISK SECTOR
IS IN USE.. CALL ADDRESS: $C2AD
. INPUT REQUIREMENTS:.
$0E TRACK TO BE CHECKED..
$0F SECTOR TO BE CHECK
ED.. $8200-$82FF TRACK 18
SECTOR 0, BAM BUFFER.. OUTPUT:.
X INDEX INTO BAM
OF THE APPROPRIATE BYTE..
Z FLAG SET IF THE SECTOR IS IN USE..
$11 INDEX TO TRACK'S
DATA IN BAM.. $13 B
IT MASK FOR THE DESIRED SECTOR..
PREPARATORY ROUTINES: RD180..
DESCRIPTION: THIS ROUTINE IS USED BY AL
LOC TO TEST IF A SECTOR IS. ALR
EADY IN USE.... FUNCTION NAME:
INVBOX. PURPOSE: INVERTS THE PI
XELS IN A BOX.. CALL ADDRESS: $
C12A. INPUT REQUIREMENTS:.
$06 THE TOP MARGIN..
$07 THE BOTTOM MARGIN..
$08-$09 THE LEFT MARGIN
.. $0A-$0B THE RIGHT MAR
GIN... DESCRIPTION: THIS ROUTI
NE REVERSES THE PIXELS IN A GIVEN BOX B
Y. REPEATEDLY CALLING INVLIN. S
EE ALSO ROWADR.... FUNCTION NAM
E: INVLIN. PURPOSE: INVERTS A H
ORIZONAL LINE ON THE SCREEN.. C
ALL ADDRESS: $C11B. INPUT REQUI
REMENTS:. $08-$09 THE LE
FT MARGIN.. $0A-$0B THE
RIGHT MARGIN.. $18 T
HE ROW NUMBER... DESCRIPTION:
THIS ROUTINE REVERSES THE PIXELS ON A
HORIZONTAL. LINE ON THE HIRES
SCREEN. IF THE PIXEL WAS ON IT WILL NOW
BE OFF;. IF IT WAS OFF IT WILL
NOW BE TURNED ON. SEE ALSO ROWADR.......
.............
> CLICK IMAGE PREVIEW FOR FULL MODAL