PAGE39-53
FILE INFORMATION
FILENAME(S): PAGE39-53
FILE TYPE(S): SEQ
FILE SIZE: 29.8K
FIRST SEEN: 2025-10-20 14:30:31
APPEARS ON: 1 disk(s)
FILE HASH
f631139ea23b55cfed0fc52b42a930ffebb24b56e1be1d6a25e13b3a8f135055
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| G PD 30 | PAGE39-53 | SEQ | Treasure Chest - Klaus Der Suhler | 24 | 11 | 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 33 36 0D 0D 0D 20 20 | 1-36... | 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 C9 D2 D1 D2 D4 CE 0D 20 20 | .AME: ....... | 00000070: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00000080: 20 C8 41 4E 44 4C 45 53 20 20 53 45 56 45 52 41 | .ANDLES SEVERA| 00000090: 4C 20 20 49 54 45 4D 53 20 20 54 48 41 54 20 20 |L ITEMS THAT | 000000A0: 4F 43 43 55 52 20 20 41 54 20 20 52 45 47 55 4C |OCCUR AT REGUL| 000000B0: 41 52 20 20 54 49 4D 45 44 0D 20 20 20 20 20 20 |AR TIMED. | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4E 54 | INT| 000000D0: 45 52 56 41 4C 53 2E 0D 20 20 20 20 20 20 20 20 |ERVALS.. | 000000E0: 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 | .ALL ADDRESS: | 000000F0: 24 C3 31 30 30 0D 20 20 20 20 20 20 20 20 20 20 |$.100. | 00000100: CF 55 54 50 55 54 53 3A 20 D3 45 45 20 44 45 53 |.UTPUTS: .EE DES| 00000110: 43 52 49 50 54 49 4F 4E 0D 0D 20 20 20 20 20 20 |CRIPTION.. | 00000120: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A | .ESCRIPTION:| 00000130: 20 C7 C5 CF D3 20 53 45 54 53 20 55 50 20 54 48 | .... SETS UP TH| 00000140: 45 20 52 41 53 54 45 52 20 49 4E 54 45 52 52 55 |E RASTER INTERRU| 00000150: 50 54 20 4F 4E 20 54 48 45 20 D6 C9 C3 20 43 48 |PT ON THE ... CH| 00000160: 49 50 20 54 4F 0D 20 20 20 20 20 20 20 20 20 20 |IP TO. | 00000170: 43 41 55 53 45 20 20 41 4E 20 49 4E 54 45 52 52 |CAUSE AN INTERR| 00000180: 55 50 54 20 45 56 45 52 59 20 53 49 58 54 49 45 |UPT EVERY SIXTIE| 00000190: 54 48 20 4F 46 20 41 20 53 45 43 4F 4E 44 2E 20 |TH OF A SECOND. | 000001A0: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 20 49 | .HIS ROUTINE I| 000001B0: 53 0D 20 20 20 20 20 20 20 20 20 20 43 41 4C 4C |S. CALL| 000001C0: 45 44 20 20 42 59 20 20 C7 C5 CF D3 20 41 46 54 |ED BY .... AFT| 000001D0: 45 52 20 45 41 43 48 20 49 4E 54 45 52 52 55 50 |ER EACH INTERRUP| 000001E0: 54 2E 20 20 C6 49 52 53 54 20 49 54 20 52 45 41 |T. .IRST IT REA| 000001F0: 44 53 20 54 48 45 20 20 49 4E 50 55 54 0D 20 20 |DS THE INPUT. | 00000200: 20 20 20 20 20 20 20 20 44 45 56 49 43 45 20 20 | DEVICE | 00000210: 41 4E 44 20 20 55 50 44 41 54 45 53 20 20 54 48 |AND UPDATES TH| 00000220: 45 20 4D 4F 55 53 45 27 53 20 20 50 4F 53 49 54 |E MOUSE'S POSIT| 00000230: 49 4F 4E 2C 20 20 54 55 52 4E 49 4E 47 20 20 49 |ION, TURNING I| 00000240: 54 20 20 4F 4E 20 20 49 46 0D 20 20 20 20 20 20 |T ON IF. | 00000250: 20 20 20 20 4E 45 43 45 53 53 41 52 59 2E 20 C9 | NECESSARY. .| 00000260: 54 20 54 48 45 4E 20 53 43 41 4E 53 20 54 48 45 |T THEN SCANS THE| 00000270: 20 43 4F 4D 4D 41 4E 44 20 54 41 42 4C 45 20 41 | COMMAND TABLE A| 00000280: 54 20 24 38 37 31 39 20 54 4F 20 53 45 45 20 49 |T $8719 TO SEE I| 00000290: 46 20 41 4E 59 0D 20 20 20 20 20 20 20 20 20 20 |F ANY. | 000002A0: 4F 46 20 54 48 45 20 43 4F 4D 4D 41 4E 44 20 42 |OF THE COMMAND B| 000002B0: 59 54 45 53 20 48 41 56 45 20 42 4F 54 48 20 42 |YTES HAVE BOTH B| 000002C0: 49 54 53 20 34 20 41 4E 44 20 35 20 52 45 53 45 |ITS 4 AND 5 RESE| 000002D0: 54 2E 20 C9 46 20 53 4F 2C 20 49 54 20 54 48 45 |T. .F SO, IT THE| 000002E0: 4E 0D 20 20 20 20 20 20 20 20 20 20 44 45 43 52 |N. DECR| 000002F0: 45 4D 45 4E 54 53 20 20 54 48 45 20 20 41 53 53 |EMENTS THE ASS| 00000300: 4F 43 49 41 54 45 44 20 20 43 4F 55 4E 54 45 52 |OCIATED COUNTER| 00000310: 20 41 54 20 20 24 38 36 C6 31 2E 20 20 C9 46 20 | AT $86.1. .F | 00000320: 20 54 48 45 20 20 43 4F 55 4E 54 45 52 0D 20 20 | THE COUNTER. | 00000330: 20 20 20 20 20 20 20 20 52 45 41 43 48 45 53 20 | REACHES | 00000340: 20 5A 45 52 4F 2C 20 20 49 54 53 20 20 56 41 4C | ZERO, ITS VAL| 00000350: 55 45 20 49 53 20 52 45 53 45 54 20 41 4E 44 20 |UE IS RESET AND | 00000360: 42 49 54 20 37 20 4F 46 20 20 54 48 45 20 20 41 |BIT 7 OF THE A| 00000370: 53 53 4F 43 49 41 54 45 44 0D 20 20 20 20 20 20 |SSOCIATED. | 00000380: 20 20 20 20 43 4F 4D 4D 41 4E 44 20 20 42 59 54 | COMMAND BYT| 00000390: 45 20 49 53 20 53 45 54 2E 20 20 D4 48 49 53 20 |E IS SET. .HIS | 000003A0: 57 49 4C 4C 20 43 41 55 53 45 20 54 48 45 20 41 |WILL CAUSE THE A| 000003B0: 50 50 52 4F 50 52 49 41 54 45 20 53 55 42 52 4F |PPROPRIATE SUBRO| 000003C0: 55 54 49 4E 45 0D 20 20 20 20 20 20 20 20 20 20 |UTINE. | 000003D0: 54 4F 20 42 45 20 45 58 45 43 55 54 45 44 20 54 |TO BE EXECUTED T| 000003E0: 48 45 20 4E 45 58 54 20 54 49 4D 45 20 54 48 45 |HE NEXT TIME THE| 000003F0: 20 54 41 42 4C 45 20 49 53 20 50 4F 4C 4C 45 44 | TABLE IS POLLED| 00000400: 2E 20 20 D4 48 45 20 4E 45 58 54 20 20 50 41 52 |. .HE NEXT PAR| 00000410: 54 0D 20 20 20 20 20 20 20 20 20 20 4F 46 20 54 |T. OF T| 00000420: 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 20 54 |HIS ROUTINE IS T| 00000430: 4F 20 44 45 43 52 45 4D 45 4E 54 20 41 4C 4C 20 |O DECREMENT ALL | 00000440: 4E 4F 4E 5A 45 52 4F 20 43 4F 55 4E 54 45 52 53 |NONZERO COUNTERS| 00000450: 20 49 4E 20 54 48 45 20 53 54 41 43 4B 0D 20 20 | IN THE STACK. | 00000460: 20 20 20 20 20 20 20 20 41 54 20 20 24 38 37 37 | AT $877| 00000470: C6 2E 20 20 D4 48 45 20 52 4F 55 54 49 4E 45 20 |.. .HE ROUTINE | 00000480: 54 4F 20 42 4C 49 4E 4B 20 54 48 45 20 54 45 58 |TO BLINK THE TEX| 00000490: 54 20 43 55 52 53 4F 52 20 49 53 20 43 41 4C 4C |T CURSOR IS CALL| 000004A0: 45 44 20 20 4E 45 58 54 2E 0D 20 20 20 20 20 20 |ED NEXT.. | 000004B0: 20 20 20 20 C6 49 4E 41 4C 4C 59 2C 20 54 48 45 | .INALLY, THE| 000004C0: 20 52 41 4E 44 4F 4D 20 4E 55 4D 42 45 52 20 47 | RANDOM NUMBER G| 000004D0: 45 4E 45 52 41 54 4F 52 20 41 54 20 24 38 35 30 |ENERATOR AT $850| 000004E0: C1 20 49 53 20 55 50 44 41 54 45 44 2E 0D 0D 0D |. IS UPDATED....| 000004F0: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00000500: 4F 4E 20 CE 41 4D 45 3A 20 CC C3 C8 C1 C9 CE 0D |ON .AME: .......| 00000510: 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 | .URPOS| 00000520: 45 3A 20 CC 4F 41 44 20 4D 45 4D 4F 52 59 20 46 |E: .OAD MEMORY F| 00000530: 52 4F 4D 20 44 49 53 4B 2E 0D 20 20 20 20 20 20 |ROM DISK.. | 00000540: 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 | .ALL ADDRESS| 00000550: 3A 20 24 C3 31 C6 C6 0D 20 20 20 20 20 20 20 20 |: $.1... | 00000560: 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D | .NPUT REQUIREM| 00000570: 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 |ENTS:. | 00000580: 20 20 20 20 20 24 30 34 20 20 20 20 20 20 20 C9 | $04 .| 00000590: 4E 49 54 49 41 4C 20 54 52 41 43 4B 20 4E 55 4D |NITIAL TRACK NUM| 000005A0: 42 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |BER.. | 000005B0: 20 20 20 20 24 30 35 20 20 20 20 20 20 20 C9 4E | $05 .N| 000005C0: 49 54 49 41 4C 20 53 45 43 54 4F 52 20 4E 55 4D |ITIAL SECTOR NUM| 000005D0: 42 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |BER.. | 000005E0: 20 20 20 20 24 30 36 2D 24 30 37 20 20 20 C2 59 | $06-$07 .Y| 000005F0: 54 45 20 43 4F 55 4E 54 20 4F 46 20 4C 4F 41 44 |TE COUNT OF LOAD| 00000600: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000610: 20 24 31 30 2D 24 31 31 20 20 20 CC 4F 41 44 20 | $10-$11 .OAD | 00000620: 41 44 44 52 45 53 53 2E 0D 20 20 20 20 20 20 20 |ADDRESS.. | 00000630: 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 20 20 | .UTPUT:. | 00000640: 20 20 20 20 20 20 20 20 20 20 24 30 C3 20 20 20 | $0. | 00000650: 20 20 20 20 C9 4E 44 45 58 20 54 4F 20 4C 41 53 | .NDEX TO LAS| 00000660: 54 20 53 45 43 54 4F 52 20 4C 4F 41 44 45 44 2E |T SECTOR LOADED.| 00000670: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000680: 24 38 33 30 30 2D 20 20 20 20 CC 49 53 54 20 4F |$8300- .IST O| 00000690: 46 20 54 52 41 43 4B 53 20 41 4E 44 20 53 45 43 |F TRACKS AND SEC| 000006A0: 54 4F 52 53 20 54 52 41 43 4B 20 57 45 52 45 20 |TORS TRACK WERE | 000006B0: 4C 4F 41 44 45 44 2E 0D 20 20 20 20 20 20 20 20 |LOADED.. | 000006C0: 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 4F | .REPARATORY RO| 000006D0: 55 54 49 4E 45 53 3A 20 CC CF C1 C4 C1 C4 0D 20 |UTINES: ....... | 000006E0: 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 3A | .RRORS:| 000006F0: 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 20 C9 2E | .EE .PPENDIX ..| 00000700: 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 |.. .ESC| 00000710: 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 |RIPTION: .HIS R| 00000720: 4F 55 54 49 4E 45 20 41 53 53 55 4D 45 53 20 54 |OUTINE ASSUMES T| 00000730: 48 41 54 20 54 48 45 20 46 49 4C 45 20 48 41 53 |HAT THE FILE HAS| 00000740: 20 42 45 45 4E 20 4C 4F 43 41 54 45 44 0D 20 20 | BEEN LOCATED. | 00000750: 20 20 20 20 20 20 20 20 49 4E 20 54 48 45 20 44 | IN THE D| 00000760: 49 52 45 43 54 4F 52 59 20 41 4E 44 20 54 48 41 |IRECTORY AND THA| 00000770: 54 20 54 48 45 20 49 4E 49 54 49 41 4C 20 54 52 |T THE INITIAL TR| 00000780: 41 43 4B 20 41 4E 44 20 53 45 43 54 4F 52 20 41 |ACK AND SECTOR A| 00000790: 52 45 20 4B 4E 4F 57 4E 2E 0D 0D 0D 20 20 20 20 |RE KNOWN.... | 000007A0: 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE | .UNCTION .| 000007B0: 41 4D 45 3A 20 CC C4 D3 D7 C1 D0 0D 20 20 20 20 |AME: ....... | 000007C0: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 D2 | .URPOSE: .| 000007D0: 45 4C 4F 41 44 20 54 48 45 20 D3 D7 C1 D0 C6 C9 |ELOAD THE ......| 000007E0: CC C5 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |.... .A| 000007F0: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 33 |LL ADDRESS: $.23| 00000800: C5 0D 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 |.. .REP| 00000810: 41 52 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 |ARATORY ROUTINES| 00000820: 3A 20 CC CF C1 C4 D3 D7 0D 20 20 20 20 20 20 20 |: ....... | 00000830: 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 | .RRORS: .EE .| 00000840: 50 50 45 4E 44 49 58 20 C9 2E 0D 0D 20 20 20 20 |PPENDIX .... | 00000850: 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F | .ESCRIPTIO| 00000860: 4E 3A 20 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 |N: .HIS ROUTINE| 00000870: 20 52 45 4C 4F 41 44 53 20 54 48 45 20 D3 D7 C1 | RELOADS THE ...| 00000880: D0 C6 C9 CC C5 2C 20 54 48 45 4E 20 44 45 4C 45 |....., THEN DELE| 00000890: 54 45 53 20 49 54 2E 0D 20 20 20 20 20 20 20 20 |TES IT.. | 000008A0: 20 20 D4 48 45 20 20 4C 41 53 54 20 57 49 4E 44 | .HE LAST WIND| 000008B0: 4F 57 20 44 45 53 43 52 49 50 54 49 4F 4E 20 49 |OW DESCRIPTION I| 000008C0: 53 20 52 45 50 52 4F 43 45 53 53 45 44 20 54 4F |S REPROCESSED TO| 000008D0: 20 52 45 53 54 4F 52 45 20 54 48 45 20 53 43 52 | RESTORE THE SCR| 000008E0: 45 45 4E 0D 20 20 20 20 20 20 20 20 20 20 41 4E |EEN. AN| 000008F0: 44 20 20 43 4F 4E 54 52 4F 4C 20 20 49 53 20 20 |D CONTROL IS | 00000900: 52 45 54 55 52 4E 45 44 20 54 4F 20 54 48 45 20 |RETURNED TO THE | 00000910: 4F 52 49 47 49 4E 41 4C 20 20 50 52 4F 47 52 41 |ORIGINAL PROGRA| 00000920: 4D 20 20 54 48 41 54 20 20 43 41 4C 4C 45 44 0D |M THAT CALLED.| 00000930: 20 20 20 20 20 20 20 20 20 20 CC CF C1 C4 D3 D7 | ......| 00000940: 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00000950: 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 CB | .... .| 00000960: 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 20 |ERNAL .OUTINES | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000990: 20 20 20 20 31 2D 33 37 0D 0D 0D 20 20 20 20 20 | 1-37... | 000009A0: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 000009B0: 4D 45 3A 20 CC C9 CE C5 0D 20 20 20 20 20 20 20 |ME: ..... | 000009C0: 20 20 20 D0 55 52 50 4F 53 45 3A 20 C4 52 41 57 | .URPOSE: .RAW| 000009D0: 53 2C 20 45 52 41 53 45 53 20 4F 52 20 43 4F 50 |S, ERASES OR COP| 000009E0: 49 45 53 20 41 20 4C 49 4E 45 20 4F 4E 20 54 48 |IES A LINE ON TH| 000009F0: 45 20 48 49 52 45 53 20 53 43 52 45 45 4E 2E 0D |E HIRES SCREEN..| 00000A00: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00000A10: 44 44 52 45 53 53 3A 20 24 C3 31 33 30 0D 20 20 |DDRESS: $.130. | 00000A20: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00000A30: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 00000A40: 20 20 20 20 20 20 20 20 20 20 20 CE 20 46 4C 41 | . FLA| 00000A50: 47 20 20 C3 20 C6 4C 41 47 20 20 20 CF 50 45 52 |G . .LAG .PER| 00000A60: 41 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 20 |ATION. | 00000A70: 20 20 20 20 20 20 20 20 31 20 20 20 20 20 20 20 | 1 | 00000A80: D8 20 20 20 20 20 C3 4F 50 59 0D 20 20 20 20 20 |. .OPY. | 00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 | 0 | 00000AA0: 20 20 20 20 20 31 20 20 20 20 20 C4 52 41 57 0D | 1 .RAW.| 00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AC0: 20 20 30 20 20 20 20 20 20 20 30 20 20 20 20 20 | 0 0 | 00000AD0: C5 52 41 53 45 0D 20 20 20 20 20 20 20 20 20 20 |.RASE. | 00000AE0: 20 20 20 20 20 24 30 38 2D 24 30 39 20 20 20 D4 | $08-$09 .| 00000AF0: 48 45 20 43 4F 4C 55 4D 4E 20 46 4F 52 20 54 48 |HE COLUMN FOR TH| 00000B00: 45 20 46 49 52 53 54 20 45 4E 44 50 4F 49 4E 54 |E FIRST ENDPOINT| 00000B10: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000B20: 20 24 30 C1 2D 24 30 C2 20 20 20 D4 48 45 20 43 | $0.-$0. .HE C| 00000B30: 4F 4C 55 4D 4E 20 46 4F 52 20 54 48 45 20 53 45 |OLUMN FOR THE SE| 00000B40: 43 4F 4E 44 20 45 4E 44 50 4F 49 4E 54 2E 0D 20 |COND ENDPOINT.. | 00000B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 31 | $1| 00000B60: 38 20 20 20 20 20 20 20 D4 48 45 20 52 4F 57 20 |8 .HE ROW | 00000B70: 46 4F 52 20 54 48 45 20 46 49 52 53 54 20 45 4E |FOR THE FIRST EN| 00000B80: 44 50 4F 49 4E 54 2E 0D 20 20 20 20 20 20 20 20 |DPOINT.. | 00000B90: 20 20 20 20 20 20 20 24 31 39 20 20 20 20 20 20 | $19 | 00000BA0: 20 D4 48 45 20 52 4F 57 20 46 4F 52 20 54 48 45 | .HE ROW FOR THE| 00000BB0: 20 53 45 43 4F 4E 44 20 45 4E 44 50 4F 49 4E 54 | SECOND ENDPOINT| 00000BC0: 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00000BD0: 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 |CRIPTION: .HIS | 00000BE0: 20 49 53 20 41 20 56 45 52 59 20 56 45 52 53 41 | IS A VERY VERSA| 00000BF0: 54 49 4C 45 20 52 4F 55 54 49 4E 45 2E 20 20 C9 |TILE ROUTINE. .| 00000C00: 54 20 43 41 4E 20 43 4F 50 59 20 20 41 4E 0D 20 |T CAN COPY AN. | 00000C10: 20 20 20 20 20 20 20 20 20 41 52 42 49 54 52 41 | ARBITRA| 00000C20: 52 59 20 20 4C 49 4E 45 20 20 46 52 4F 4D 20 4F |RY LINE FROM O| 00000C30: 4E 45 20 53 43 52 45 45 4E 20 54 4F 20 41 4E 4F |NE SCREEN TO ANO| 00000C40: 54 48 45 52 2C 20 20 41 53 20 57 45 4C 4C 20 41 |THER, AS WELL A| 00000C50: 53 20 44 52 41 57 20 20 4F 52 0D 20 20 20 20 20 |S DRAW OR. | 00000C60: 20 20 20 20 20 45 52 41 53 45 20 4C 49 4E 45 53 | ERASE LINES| 00000C70: 2E 20 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 |. .HIS ROUTINE | 00000C80: 50 4C 41 43 45 53 20 4E 4F 20 52 45 53 54 52 49 |PLACES NO RESTRI| 00000C90: 43 54 49 4F 4E 53 20 4F 4E 20 54 48 45 20 52 45 |CTIONS ON THE RE| 00000CA0: 4C 41 54 49 56 45 0D 20 20 20 20 20 20 20 20 20 |LATIVE. | 00000CB0: 20 50 4F 53 49 54 49 4F 4E 53 20 4F 46 20 54 48 | POSITIONS OF TH| 00000CC0: 45 20 45 4E 44 50 4F 49 4E 54 53 2E 20 20 D4 48 |E ENDPOINTS. .H| 00000CD0: 49 53 20 52 4F 55 54 49 4E 45 20 43 41 4C 4C 53 |IS ROUTINE CALLS| 00000CE0: 20 D0 CC CF D4 20 54 4F 20 50 4C 4F 54 20 20 54 | .... TO PLOT T| 00000CF0: 48 45 0D 20 20 20 20 20 20 20 20 20 20 50 4F 49 |HE. POI| 00000D00: 4E 54 53 2E 20 D3 45 45 20 41 4C 53 4F 20 D2 CF |NTS. .EE ALSO ..| 00000D10: D7 C1 C4 D2 2E 0D 0D 0D 20 20 20 20 20 20 20 20 |........ | 00000D20: 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A | .UNCTION .AME:| 00000D30: 20 CC CF C1 C4 0D 20 20 20 20 20 20 20 20 20 20 | ..... | 00000D40: D0 55 52 50 4F 53 45 3A 20 CC 4F 41 44 20 41 4E |.URPOSE: .OAD AN| 00000D50: 44 20 52 55 4E 20 41 20 46 49 4C 45 2E 0D 20 20 |D RUN A FILE.. | 00000D60: 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 | .ALL ADD| 00000D70: 52 45 53 53 3A 20 24 C3 32 30 38 0D 20 20 20 20 |RESS: $.208. | 00000D80: 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 55 | .NPUT REQU| 00000D90: 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 |IREMENTS:. | 00000DA0: 20 20 20 20 20 20 20 20 20 24 30 32 20 20 20 20 | $02 | 00000DB0: 20 20 20 C6 4C 41 47 20 42 59 54 45 20 28 D3 45 | .LAG BYTE (.E| 00000DC0: 45 20 44 45 53 43 52 49 50 54 49 4F 4E 29 2E 0D |E DESCRIPTION)..| 00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00000DE0: 30 36 2D 24 30 37 20 20 20 CF 50 54 49 4F 4E 41 |06-$07 .PTIONA| 00000DF0: 4C 20 44 41 54 41 20 50 4F 49 4E 54 45 52 2E 0D |L DATA POINTER..| 00000E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00000E10: 30 38 2D 24 30 39 20 20 20 CF 50 54 49 4F 4E 41 |08-$09 .PTIONA| 00000E20: 4C 20 44 41 54 41 20 50 4F 49 4E 54 45 52 2E 0D |L DATA POINTER..| 00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00000E40: 30 C5 2D 24 30 C6 20 20 20 D0 4F 49 4E 54 45 52 |0.-$0. .OINTER| 00000E50: 20 54 4F 20 46 49 4C 45 4E 41 4D 45 2E 0D 20 20 | TO FILENAME.. | 00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 31 30 | $10| 00000E70: 2D 24 31 31 20 20 20 CC 4F 41 44 20 41 44 44 52 |-$11 .OAD ADDR| 00000E80: 45 53 53 20 28 4F 50 54 49 4F 4E 41 4C 29 2E 0D |ESS (OPTIONAL)..| 00000E90: 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 | .UTPUT| 00000EA0: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00000EB0: 20 24 38 31 30 30 2D 24 38 31 C6 C6 20 C9 4E 46 | $8100-$81.. .NF| 00000EC0: 4F 20 53 45 43 54 4F 52 20 46 4F 52 20 46 49 4C |O SECTOR FOR FIL| 00000ED0: 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |E.. | 00000EE0: 20 20 24 38 33 30 30 2D 24 38 33 C6 C6 20 D4 41 | $8300-$83.. .A| 00000EF0: 42 4C 45 20 4F 46 20 54 52 41 43 4B 53 20 41 4E |BLE OF TRACKS AN| 00000F00: 44 20 53 45 43 54 4F 52 53 20 54 48 41 54 20 57 |D SECTORS THAT W| 00000F10: 45 52 45 20 4C 4F 41 44 45 44 2E 0D 20 20 20 20 |ERE LOADED.. | 00000F20: 20 20 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 | .RRORS: .E| 00000F30: 45 20 C1 50 50 45 4E 44 49 58 0D 0D 20 20 20 20 |E .PPENDIX.. | 00000F40: 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F | .ESCRIPTIO| 00000F50: 4E 3A 20 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 |N: .HIS ROUTINE| 00000F60: 20 4C 4F 41 44 53 20 41 4E 44 20 52 55 4E 53 20 | LOADS AND RUNS | 00000F70: 41 20 47 49 56 45 4E 20 46 49 4C 45 2E 20 20 D4 |A GIVEN FILE. .| 00000F80: 48 45 20 46 49 4C 45 0D 20 20 20 20 20 20 20 20 |HE FILE. | 00000F90: 20 20 4D 55 53 54 20 42 45 20 4F 4E 45 20 4F 46 | MUST BE ONE OF| 00000FA0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 C7 | THE FOLLOWING .| 00000FB0: C5 CF D3 20 54 59 50 45 53 3A 0D 20 20 20 20 20 |... TYPES:. | 00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000FD0: 20 20 20 20 D3 59 53 54 45 4D 20 C6 49 4C 45 20 | .YSTEM .ILE | 00000FE0: 20 20 20 20 20 20 20 20 C4 45 53 4B 20 C1 43 43 | .ESK .CC| 00000FF0: 45 53 53 4F 52 59 0D 20 20 20 20 20 20 20 20 20 |ESSORY. | 00001000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001010: C1 50 50 4C 49 43 41 54 49 4F 4E 20 20 20 20 20 |.PPLICATION | 00001020: 20 20 20 20 C1 50 50 4C 49 43 41 54 49 4F 4E 20 | .PPLICATION | 00001030: C4 41 54 41 0D 20 20 20 20 20 20 20 20 20 20 20 |.ATA. | 00001040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D0 52 | .R| 00001050: 49 4E 54 45 52 20 C4 52 49 56 45 52 20 20 20 20 |INTER .RIVER | 00001060: 20 20 C9 4E 50 55 54 20 C4 52 49 56 45 52 0D 20 | .NPUT .RIVER. | 00001070: 20 20 20 20 20 20 20 20 20 D4 48 45 20 45 58 45 | .HE EXE| 00001080: 43 55 54 49 4F 4E 20 41 44 44 52 45 53 53 20 49 |CUTION ADDRESS I| 00001090: 53 20 54 41 4B 45 4E 20 46 52 4F 4D 20 54 48 45 |S TAKEN FROM THE| 000010A0: 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 53 45 43 | INFORMATION SEC| 000010B0: 54 4F 52 2E 20 C9 46 20 49 54 0D 20 20 20 20 20 |TOR. .F IT. | 000010C0: 20 20 20 20 20 49 53 20 5A 45 52 4F 2C 20 20 54 | IS ZERO, T| 000010D0: 48 45 20 46 49 4C 45 20 49 53 20 4E 4F 54 20 45 |HE FILE IS NOT E| 000010E0: 58 45 43 55 54 45 44 2C 20 4F 4E 4C 59 20 4C 4F |XECUTED, ONLY LO| 000010F0: 41 44 45 44 2E 20 20 D6 CC C9 D2 20 46 49 4C 45 |ADED. .... FILE| 00001100: 53 20 48 41 56 45 0D 20 20 20 20 20 20 20 20 20 |S HAVE. | 00001110: 20 4F 4E 4C 59 20 20 54 48 45 49 52 20 20 46 49 | ONLY THEIR FI| 00001120: 52 53 54 20 43 48 41 49 4E 20 4C 4F 41 44 45 44 |RST CHAIN LOADED| 00001130: 2E 20 20 C4 45 53 4B 20 C1 43 43 45 53 53 4F 52 |. .ESK .CCESSOR| 00001140: 49 45 53 20 53 57 41 50 20 20 4F 55 54 20 20 54 |IES SWAP OUT T| 00001150: 48 45 0D 20 20 20 20 20 20 20 20 20 20 4D 45 4D |HE. MEM| 00001160: 4F 52 59 20 20 54 48 41 54 20 20 54 48 45 59 20 |ORY THAT THEY | 00001170: 55 53 45 20 54 4F 20 20 54 48 45 20 20 D3 D7 C1 |USE TO THE ...| 00001180: D0 C6 C9 CC C5 2E 20 20 D5 50 4F 4E 20 20 43 4F |...... .PON CO| 00001190: 4D 50 4C 45 54 49 4F 4E 2C 20 20 54 48 45 0D 20 |MPLETION, THE. | 000011A0: 20 20 20 20 20 20 20 20 20 D3 D7 C1 D0 C6 C9 CC | .......| 000011B0: C5 20 20 49 53 20 20 52 45 4C 4F 41 44 45 44 2E |. IS RELOADED.| 000011C0: 20 20 D4 48 45 20 20 46 4C 41 47 20 42 59 54 45 | .HE FLAG BYTE| 000011D0: 20 41 54 20 4C 4F 43 41 54 49 4F 4E 20 24 30 32 | AT LOCATION $02| 000011E0: 20 20 48 41 53 20 20 54 57 4F 0D 20 20 20 20 20 | HAS TWO. | 000011F0: 20 20 20 20 20 50 55 52 50 4F 53 45 53 2E 20 20 | PURPOSES. | 00001200: D4 48 49 53 20 20 46 49 52 53 54 20 20 49 53 20 |.HIS FIRST IS | 00001210: 49 46 20 42 49 54 20 30 20 49 53 20 53 45 54 20 |IF BIT 0 IS SET | 00001220: 41 4E 44 20 54 48 45 20 20 46 49 4C 45 20 20 57 |AND THE FILE W| 00001230: 41 53 20 20 41 4E 0D 20 20 20 20 20 20 20 20 20 |AS AN. | 00001240: 20 41 50 50 4C 49 43 41 54 49 4F 4E 2C 20 54 48 | APPLICATION, TH| 00001250: 45 4E 20 49 54 20 49 53 20 4E 4F 54 20 45 58 45 |EN IT IS NOT EXE| 00001260: 43 55 54 45 44 2E 20 20 C1 4C 53 4F 20 49 46 20 |CUTED. .LSO IF | 00001270: 42 49 54 20 30 20 49 53 20 53 45 54 2C 20 54 48 |BIT 0 IS SET, TH| 00001280: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 4F 43 |EN. LOC| 00001290: 41 54 49 4F 4E 53 20 20 24 31 30 2D 24 31 31 20 |ATIONS $10-$11 | 000012A0: 20 48 41 56 45 20 54 48 45 20 4C 4F 41 44 20 41 | HAVE THE LOAD A| 000012B0: 44 44 52 45 53 53 3B 20 20 4F 54 48 45 52 57 49 |DDRESS; OTHERWI| 000012C0: 53 45 2C 20 20 54 48 45 20 20 4C 4F 41 44 0D 20 |SE, THE LOAD. | 000012D0: 20 20 20 20 20 20 20 20 20 41 44 44 52 45 53 53 | ADDRESS| 000012E0: 20 49 53 20 54 41 4B 45 4E 20 46 52 4F 4D 20 54 | IS TAKEN FROM T| 000012F0: 48 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 53 |HE INFORMATION S| 00001300: 45 43 54 4F 52 2E 20 20 D4 48 49 53 20 42 49 54 |ECTOR. .HIS BIT| 00001310: 20 44 4F 45 53 20 20 4E 4F 54 0D 20 20 20 20 20 | DOES NOT. | 00001320: 20 20 20 20 20 41 50 50 4C 59 20 20 54 4F 20 C4 | APPLY TO .| 00001330: 45 53 4B 20 C1 43 43 45 53 53 4F 52 49 45 53 2E |ESK .CCESSORIES.| 00001340: 20 20 C9 46 20 45 49 54 48 45 52 20 42 49 54 20 | .F EITHER BIT | 00001350: 36 20 4F 52 20 37 20 41 52 45 20 20 53 45 54 2C |6 OR 7 ARE SET,| 00001360: 20 20 54 48 45 4E 0D 20 20 20 20 20 20 20 20 20 | THEN. | 00001370: 20 24 30 36 2D 24 30 37 20 20 50 4F 49 4E 54 53 | $06-$07 POINTS| 00001380: 20 54 4F 20 31 36 20 42 59 54 45 53 20 57 48 49 | TO 16 BYTES WHI| 00001390: 43 48 20 41 52 45 20 43 4F 50 49 45 44 20 54 4F |CH ARE COPIED TO| 000013A0: 20 24 38 34 35 33 20 28 C4 49 53 4B 20 20 4E 41 | $8453 (.ISK NA| 000013B0: 4D 45 0D 20 20 20 20 20 20 20 20 20 20 46 4F 52 |ME. FOR| 000013C0: 20 44 52 49 56 45 20 31 30 29 2C 20 20 41 4E 44 | DRIVE 10), AND| 000013D0: 20 24 30 37 2D 24 30 38 20 50 4F 49 4E 54 20 54 | $07-$08 POINT T| 000013E0: 4F 20 31 36 20 42 59 54 45 53 20 57 48 49 43 48 |O 16 BYTES WHICH| 000013F0: 20 41 52 45 20 43 4F 50 49 45 44 20 54 4F 0D 20 | ARE COPIED TO. | 00001400: 20 20 20 20 20 20 20 20 20 24 38 34 34 32 20 28 | $8442 (| 00001410: C4 49 53 4B 20 4E 41 4D 45 20 46 4F 52 20 44 52 |.ISK NAME FOR DR| 00001420: 49 56 45 20 31 31 29 2E 20 0D 0D 0D 0D 0D 0D 0D |IVE 11). .......| 00001430: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 |..... .| 00001440: C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 |... .ERNAL .OUTI| 00001450: 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |NES | 00001460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001470: 20 20 20 20 20 20 20 20 20 31 2D 33 38 0D 0D 0D | 1-38...| 00001480: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00001490: 4F 4E 20 CE 41 4D 45 3A 20 CC CF C1 C4 32 0D 20 |ON .AME: ....2. | 000014A0: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 000014B0: 3A 20 CC 4F 41 44 20 41 20 46 49 4C 45 2E 0D 20 |: .OAD A FILE.. | 000014C0: 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 | .ALL AD| 000014D0: 44 52 45 53 53 3A 20 24 C3 32 31 31 0D 20 20 20 |DRESS: $.211. | 000014E0: 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 | .NPUT REQ| 000014F0: 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 |UIREMENTS:. | 00001500: 20 20 20 20 20 20 20 20 20 20 24 31 34 2D 24 31 | $14-$1| 00001510: 35 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F 20 44 |5 .OINTER TO D| 00001520: 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 2E 0D |IRECTORY ENTRY..| 00001530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00001540: 38 38 36 C2 20 20 20 20 20 C6 4C 41 47 20 42 59 |886. .LAG BY| 00001550: 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TE.. | 00001560: 20 20 20 24 38 38 36 C3 2D 24 38 38 36 C4 20 CC | $886.-$886. .| 00001570: 4F 41 44 20 41 44 44 52 45 53 53 2E 0D 20 20 20 |OAD ADDRESS.. | 00001580: 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 | .UTPUT:. | 00001590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 38 | $8| 000015A0: 31 30 30 2D 24 38 31 C6 C6 20 C9 4E 46 4F 20 53 |100-$81.. .NFO S| 000015B0: 45 43 54 4F 52 20 46 4F 52 20 46 49 4C 45 2E 0D |ECTOR FOR FILE..| 000015C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 000015D0: 38 33 30 30 2D 24 38 33 C6 C6 20 D4 41 42 4C 45 |8300-$83.. .ABLE| 000015E0: 20 4F 46 20 54 52 41 43 4B 53 20 41 4E 44 20 53 | OF TRACKS AND S| 000015F0: 45 43 54 4F 52 53 20 54 48 41 54 20 57 45 52 45 |ECTORS THAT WERE| 00001600: 20 4C 4F 41 44 45 44 2E 0D 20 20 20 20 20 20 20 | LOADED.. | 00001610: 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 | .REPARATORY R| 00001620: 4F 55 54 49 4E 45 53 3A 20 CC CF CF CB D5 D0 20 |OUTINES: ...... | 00001630: 28 D0 4F 49 4E 54 45 52 20 4D 55 53 54 20 42 45 |(.OINTER MUST BE| 00001640: 20 43 4F 50 49 45 44 29 0D 20 20 20 20 20 20 20 | COPIED). | 00001650: 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 | .RRORS: .EE .| 00001660: 50 50 45 4E 44 49 58 0D 0D 20 20 20 20 20 20 20 |PPENDIX.. | 00001670: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 00001680: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 49 53 | .HIS ROUTINE IS| 00001690: 20 43 41 4C 4C 45 44 20 42 59 20 CC CF C1 C4 20 | CALLED BY .... | 000016A0: 54 4F 20 50 45 52 46 4F 52 4D 20 54 48 45 20 4C |TO PERFORM THE L| 000016B0: 4F 41 44 2E 0D 20 20 20 20 20 20 20 20 20 20 D4 |OAD.. .| 000016C0: 48 49 53 20 20 52 4F 55 54 49 4E 45 20 44 4F 45 |HIS ROUTINE DOE| 000016D0: 53 20 4E 4F 54 20 54 52 59 20 54 4F 20 45 58 45 |S NOT TRY TO EXE| 000016E0: 43 55 54 45 20 54 48 45 20 46 49 4C 45 20 4C 4F |CUTE THE FILE LO| 000016F0: 41 44 45 44 2C 20 20 4E 4F 52 20 49 53 20 49 54 |ADED, NOR IS IT| 00001700: 0D 20 20 20 20 20 20 20 20 20 20 4C 49 4D 49 54 |. LIMIT| 00001710: 45 44 20 54 4F 20 54 48 45 20 46 49 4C 45 20 54 |ED TO THE FILE T| 00001720: 59 50 45 53 20 54 48 41 54 20 CC CF C1 C4 20 49 |YPES THAT .... I| 00001730: 53 2E 20 C8 4F 57 45 56 45 52 2C 20 54 48 49 53 |S. .OWEVER, THIS| 00001740: 20 52 4F 55 54 49 4E 45 20 43 41 4E 0D 20 20 20 | ROUTINE CAN. | 00001750: 20 20 20 20 20 20 20 4E 4F 54 20 20 42 45 20 55 | NOT BE U| 00001760: 53 45 44 20 54 4F 20 4C 4F 41 44 20 CE 4F 4E 2D |SED TO LOAD .ON-| 00001770: C7 C5 CF D3 20 46 49 4C 45 53 20 42 45 43 41 55 |.... FILES BECAU| 00001780: 53 45 20 54 48 45 20 49 4E 46 4F 20 53 45 43 54 |SE THE INFO SECT| 00001790: 4F 52 20 20 4D 55 53 54 0D 20 20 20 20 20 20 20 |OR MUST. | 000017A0: 20 20 20 42 45 20 20 50 52 45 53 45 4E 54 2E 20 | BE PRESENT. | 000017B0: 20 C9 46 20 42 49 54 20 30 20 4F 46 20 4C 4F 43 | .F BIT 0 OF LOC| 000017C0: 41 54 49 4F 4E 20 24 38 38 36 C2 20 49 53 20 53 |ATION $886. IS S| 000017D0: 45 54 2C 20 20 54 48 45 4E 20 20 54 48 45 20 20 |ET, THEN THE | 000017E0: 4C 4F 41 44 0D 20 20 20 20 20 20 20 20 20 20 41 |LOAD. A| 000017F0: 44 44 52 45 53 53 20 20 49 53 20 54 41 4B 45 4E |DDRESS IS TAKEN| 00001800: 20 46 52 4F 4D 20 4C 4F 43 41 54 49 4F 4E 53 20 | FROM LOCATIONS | 00001810: 24 38 38 36 C3 2D 24 38 38 36 C4 20 49 4E 53 54 |$886.-$886. INST| 00001820: 45 41 44 20 4F 46 20 54 48 45 20 20 49 4E 46 4F |EAD OF THE INFO| 00001830: 0D 20 20 20 20 20 20 20 20 20 20 53 45 43 54 4F |. SECTO| 00001840: 52 2E 20 20 D4 48 45 20 20 44 49 52 45 43 54 4F |R. .HE DIRECTO| 00001850: 52 59 20 45 4E 54 52 59 20 20 50 4F 49 4E 54 45 |RY ENTRY POINTE| 00001860: 52 20 53 48 4F 55 4C 44 20 50 4F 49 4E 54 20 54 |R SHOULD POINT T| 00001870: 4F 20 24 38 34 30 30 20 20 41 4E 44 0D 20 20 20 |O $8400 AND. | 00001880: 20 20 20 20 20 20 20 4E 4F 54 20 20 54 48 45 20 | NOT THE | 00001890: 20 50 4F 49 4E 54 45 52 20 20 52 45 54 55 52 4E | POINTER RETURN| 000018A0: 45 44 20 20 42 59 20 CC CF CF CB D5 D0 2E 20 20 |ED BY ....... | 000018B0: D4 48 49 53 20 49 53 20 20 44 55 45 20 20 54 4F |.HIS IS DUE TO| 000018C0: 20 20 4D 45 4D 4F 52 59 0D 20 20 20 20 20 20 20 | MEMORY. | 000018D0: 20 20 20 43 4F 4E 46 4C 49 43 54 53 20 54 48 41 | CONFLICTS THA| 000018E0: 54 20 57 49 4C 4C 20 41 52 49 53 45 2E 0D 0D 0D |T WILL ARISE....| 000018F0: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00001900: 4F 4E 20 CE 41 4D 45 3A 20 CC CF C1 C4 33 0D 20 |ON .AME: ....3. | 00001910: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00001920: 3A 20 CC 4F 41 44 20 41 4E 44 20 50 4F 53 53 49 |: .OAD AND POSSI| 00001930: 42 4C 59 20 52 55 4E 20 41 20 46 49 4C 45 2E 0D |BLY RUN A FILE..| 00001940: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00001950: 44 44 52 45 53 53 3A 20 24 C3 32 31 C4 0D 20 20 |DDRESS: $.21.. | 00001960: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 32 | $02| 00001970: 20 20 20 20 20 20 20 C6 4C 41 47 20 42 59 54 45 | .LAG BYTE| 00001980: 20 28 D3 45 45 20 44 45 53 43 52 49 50 54 49 4F | (.EE DESCRIPTIO| 00001990: 4E 29 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |N).. | 000019A0: 20 20 20 24 30 36 2D 24 30 37 20 20 20 CF 50 54 | $06-$07 .PT| 000019B0: 49 4F 4E 41 4C 20 44 41 54 41 20 50 4F 49 4E 54 |IONAL DATA POINT| 000019C0: 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ER.. | 000019D0: 20 20 20 24 30 38 2D 24 30 39 20 20 20 CF 50 54 | $08-$09 .PT| 000019E0: 49 4F 4E 41 4C 20 44 41 54 41 20 50 4F 49 4E 54 |IONAL DATA POINT| 000019F0: 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ER.. | 00001A00: 20 20 20 24 30 C5 2D 24 30 C6 20 20 20 D0 4F 49 | $0.-$0. .OI| 00001A10: 4E 54 45 52 20 54 4F 20 46 49 4C 45 4E 41 4D 45 |NTER TO FILENAME| 00001A20: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00001A30: 20 24 31 30 2D 24 31 31 20 20 20 CC 4F 41 44 20 | $10-$11 .OAD | 00001A40: 41 44 44 52 45 53 53 20 28 4F 50 54 49 4F 4E 41 |ADDRESS (OPTIONA| 00001A50: 4C 29 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 |L).. .U| 00001A60: 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 |TPUT:. | 00001A70: 20 20 20 20 20 24 38 31 30 30 2D 24 38 31 C6 C6 | $8100-$81..| 00001A80: 20 C9 4E 46 4F 20 53 45 43 54 4F 52 20 46 4F 52 | .NFO SECTOR FOR| 00001A90: 20 46 49 4C 45 2E 0D 20 20 20 20 20 20 20 20 20 | FILE.. | 00001AA0: 20 20 20 20 20 20 24 38 33 30 30 2D 24 38 33 C6 | $8300-$83.| 00001AB0: C6 20 D4 41 42 4C 45 20 4F 46 20 54 52 41 43 4B |. .ABLE OF TRACK| 00001AC0: 53 20 41 4E 44 20 53 45 43 54 4F 52 53 20 54 48 |S AND SECTORS TH| 00001AD0: 41 54 20 57 45 52 45 20 4C 4F 41 44 45 44 2E 0D |AT WERE LOADED..| 00001AE0: 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 | .RRORS| 00001AF0: 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 0D 0D |: .EE .PPENDIX..| 00001B00: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00001B10: 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F 55 |PTION: .HIS ROU| 00001B20: 54 49 4E 45 20 49 53 20 43 41 4C 4C 45 44 20 42 |TINE IS CALLED B| 00001B30: 59 20 CC CF C1 C4 20 54 4F 20 4C 4F 41 44 20 20 |Y .... TO LOAD | 00001B40: C1 50 50 4C 49 43 41 54 49 4F 4E 0D 20 20 20 20 |.PPLICATION. | 00001B50: 20 20 20 20 20 20 46 49 4C 45 53 2E 20 20 CC 49 | FILES. .I| 00001B60: 4B 45 20 CC CF C1 C4 32 2C 20 54 48 49 53 20 52 |KE ....2, THIS R| 00001B70: 4F 55 54 49 4E 45 20 49 53 20 4E 4F 54 20 4C 49 |OUTINE IS NOT LI| 00001B80: 4D 49 54 45 44 20 54 4F 20 41 4E 59 20 50 41 52 |MITED TO ANY PAR| 00001B90: 54 49 43 55 4C 41 52 0D 20 20 20 20 20 20 20 20 |TICULAR. | 00001BA0: 20 20 46 49 4C 45 20 54 59 50 45 2C 20 45 58 43 | FILE TYPE, EXC| 00001BB0: 45 50 54 20 54 48 41 54 20 49 54 20 41 4C 53 4F |EPT THAT IT ALSO| 00001BC0: 20 43 41 4E 20 4E 4F 54 20 4C 4F 41 44 20 41 20 | CAN NOT LOAD A | 00001BD0: CE 4F 4E 2D C7 C5 CF D3 20 46 49 4C 45 2E 20 20 |.ON-.... FILE. | 00001BE0: D3 45 45 0D 20 20 20 20 20 20 20 20 20 20 CC CF |.EE. ..| 00001BF0: C1 C4 20 20 46 4F 52 20 41 20 44 45 53 43 52 49 |.. FOR A DESCRI| 00001C00: 50 54 49 4F 4E 20 4F 46 20 54 48 45 20 46 4C 41 |PTION OF THE FLA| 00001C10: 47 20 42 59 54 45 2C 20 20 44 41 54 41 20 50 4F |G BYTE, DATA PO| 00001C20: 49 4E 54 45 52 53 20 41 4E 44 20 4C 4F 41 44 0D |INTERS AND LOAD.| 00001C30: 20 20 20 20 20 20 20 20 20 20 41 44 44 52 45 53 | ADDRES| 00001C40: 53 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |S...............| 00001C50: 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 |........ | 00001C60: 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F | .... .ERNAL .O| 00001C70: 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 20 |UTINES | 00001C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C90: 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 33 39 | 1-39| 00001CA0: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E |... .UN| 00001CB0: 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 CC CF C1 C4 |CTION .AME: ....| 00001CC0: C1 C4 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 |... .UR| 00001CD0: 50 4F 53 45 3A 20 C7 45 54 20 54 48 45 20 4C 4F |POSE: .ET THE LO| 00001CE0: 41 44 20 41 44 44 52 45 53 53 20 4F 46 20 41 20 |AD ADDRESS OF A | 00001CF0: 46 49 4C 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |FILE.. | 00001D00: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 00001D10: 32 32 39 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |229. .N| 00001D20: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 00001D30: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00001D40: 20 24 31 34 2D 24 31 35 20 20 20 D0 4F 49 4E 54 | $14-$15 .OINT| 00001D50: 45 52 20 54 4F 20 44 49 52 45 43 54 4F 52 59 20 |ER TO DIRECTORY | 00001D60: 45 4E 54 52 59 2E 0D 20 20 20 20 20 20 20 20 20 |ENTRY.. | 00001D70: 20 CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 | .UTPUT:. | 00001D80: 20 20 20 20 20 20 20 20 24 30 34 20 20 20 20 20 | $04 | 00001D90: 20 20 D4 52 41 43 4B 20 4F 46 20 46 49 4C 45 27 | .RACK OF FILE'| 00001DA0: 53 20 46 49 52 53 54 20 53 45 43 54 4F 52 2E 0D |S FIRST SECTOR..| 00001DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00001DC0: 30 35 20 20 20 20 20 20 20 D3 45 43 54 4F 52 20 |05 .ECTOR | 00001DD0: 4F 46 20 46 49 4C 45 27 53 20 46 49 52 53 54 20 |OF FILE'S FIRST | 00001DE0: 53 45 43 54 4F 52 2E 0D 20 20 20 20 20 20 20 20 |SECTOR.. | 00001DF0: 20 20 20 20 20 20 20 24 31 30 2D 24 31 31 20 20 | $10-$11 | 00001E00: 20 CC 4F 41 44 20 41 44 44 52 45 53 53 20 46 4F | .OAD ADDRESS FO| 00001E10: 52 20 46 49 4C 45 2E 0D 20 20 20 20 20 20 20 20 |R FILE.. | 00001E20: 20 20 20 20 20 20 20 24 38 31 30 30 2D 24 38 31 | $8100-$81| 00001E30: C6 C6 20 C9 4E 46 4F 20 53 45 43 54 4F 52 20 46 |.. .NFO SECTOR F| 00001E40: 4F 52 20 46 49 4C 45 2E 0D 20 20 20 20 20 20 20 |OR FILE.. | 00001E50: 20 20 20 20 20 20 20 20 24 38 33 30 30 2D 24 38 | $8300-$8| 00001E60: 33 30 31 20 D4 52 41 43 4B 20 41 4E 44 20 53 45 |301 .RACK AND SE| 00001E70: 43 54 4F 52 20 4F 46 20 49 4E 46 4F 20 53 45 43 |CTOR OF INFO SEC| 00001E80: 54 4F 52 2E 0D 20 20 20 20 20 20 20 20 20 20 C5 |TOR.. .| 00001E90: 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 45 4E |RRORS: .EE .PPEN| 00001EA0: 44 49 58 20 C9 2E 0D 0D 20 20 20 20 20 20 20 20 |DIX .... | 00001EB0: 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 | .ESCRIPTION: | 00001EC0: D4 48 49 53 20 20 52 4F 55 54 49 4E 45 20 4C 4F |.HIS ROUTINE LO| 00001ED0: 41 44 53 20 54 48 45 20 49 4E 46 4F 20 53 45 43 |ADS THE INFO SEC| 00001EE0: 54 4F 52 20 46 4F 52 20 41 20 46 49 4C 45 20 49 |TOR FOR A FILE I| 00001EF0: 4E 54 4F 0D 20 20 20 20 20 20 20 20 20 20 54 48 |NTO. TH| 00001F00: 45 20 20 42 55 46 46 45 52 20 41 54 20 24 38 31 |E BUFFER AT $81| 00001F10: 30 30 2E 20 20 D4 48 45 20 4C 4F 41 44 20 41 44 |00. .HE LOAD AD| 00001F20: 44 52 45 53 53 20 49 53 20 53 45 54 20 46 52 4F |DRESS IS SET FRO| 00001F30: 4D 20 20 24 38 31 34 37 2D 24 38 31 34 38 2E 0D |M $8147-$8148..| 00001F40: 20 20 20 20 20 20 20 20 20 20 D4 48 49 53 20 52 | .HIS R| 00001F50: 4F 55 54 49 4E 45 20 49 53 20 43 41 4C 4C 45 44 |OUTINE IS CALLED| 00001F60: 20 42 59 20 41 4C 4C 20 54 48 45 20 4C 4F 41 44 | BY ALL THE LOAD| 00001F70: 20 52 4F 55 54 49 4E 45 53 2E 0D 0D 0D 20 20 20 | ROUTINES.... | 00001F80: 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 | .UNCTION | 00001F90: CE 41 4D 45 3A 20 CC CF C1 C4 D3 D7 0D 20 20 20 |.AME: ....... | 00001FA0: 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 | .URPOSE: | 00001FB0: CC 4F 41 44 20 41 4E 44 20 52 55 4E 20 41 20 46 |.OAD AND RUN A F| 00001FC0: 49 4C 45 20 55 53 49 4E 47 20 54 48 45 20 D3 D7 |ILE USING THE ..| 00001FD0: C1 D0 C6 C9 CC C5 2E 0D 20 20 20 20 20 20 20 20 |........ | 00001FE0: 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 | .ALL ADDRESS: | 00001FF0: 24 C3 32 31 37 0D 20 20 20 20 20 20 20 20 20 20 |$.217. | 00002000: C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E |.NPUT REQUIREMEN| 00002010: 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TS:. | 00002020: 20 20 20 24 31 34 2D 24 31 35 20 20 20 D0 4F 49 | $14-$15 .OI| 00002030: 4E 54 45 52 20 54 4F 20 44 49 52 45 43 54 4F 52 |NTER TO DIRECTOR| 00002040: 59 20 45 4E 54 52 59 2E 0D 20 20 20 20 20 20 20 |Y ENTRY.. | 00002050: 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 20 20 | .UTPUT:. | 00002060: 20 20 20 20 20 20 20 20 20 20 24 38 31 30 30 2D | $8100-| 00002070: 24 38 31 C6 C6 20 C9 4E 46 4F 20 53 45 43 54 4F |$81.. .NFO SECTO| 00002080: 52 20 46 4F 52 20 46 49 4C 45 20 28 CD 4F 44 49 |R FOR FILE (.ODI| 00002090: 46 49 45 44 29 2E 0D 20 20 20 20 20 20 20 20 20 |FIED).. | 000020A0: 20 20 20 20 20 20 24 38 33 30 30 2D 24 38 33 C6 | $8300-$83.| 000020B0: C6 20 CC 49 53 54 20 4F 46 20 54 52 41 43 4B 53 |. .IST OF TRACKS| 000020C0: 20 41 4E 44 20 53 45 43 54 4F 52 53 20 54 48 41 | AND SECTORS THA| 000020D0: 54 20 57 45 52 45 20 4C 4F 41 44 45 44 2E 0D 20 |T WERE LOADED.. | 000020E0: 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 41 | .REPARA| 000020F0: 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 CC |TORY ROUTINES: .| 00002100: CF CF CB D5 D0 20 28 D0 4F 49 4E 54 45 52 20 4D |..... (.OINTER M| 00002110: 55 53 54 20 42 45 20 43 4F 50 49 45 44 29 2E 0D |UST BE COPIED)..| 00002120: 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 | .RRORS| 00002130: 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 20 C9 |: .EE .PPENDIX .| 00002140: 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00002150: 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 |CRIPTION: .HIS | 00002160: 52 4F 55 54 49 4E 45 20 49 53 20 55 53 45 44 20 |ROUTINE IS USED | 00002170: 54 4F 20 4C 4F 41 44 20 C4 45 53 4B 20 C1 43 43 |TO LOAD .ESK .CC| 00002180: 45 53 53 4F 52 49 45 53 2E 20 20 D4 48 45 0D 20 |ESSORIES. .HE. | 00002190: 20 20 20 20 20 20 20 20 20 49 4E 46 4F 20 20 53 | INFO S| 000021A0: 45 43 54 4F 52 20 49 53 20 4C 4F 41 44 45 44 20 |ECTOR IS LOADED | 000021B0: 54 4F 20 44 45 54 45 52 4D 49 4E 45 20 54 48 45 |TO DETERMINE THE| 000021C0: 20 4E 45 43 45 53 53 41 52 59 20 4D 45 4D 4F 52 | NECESSARY MEMOR| 000021D0: 59 20 20 52 45 47 49 4F 4E 2E 0D 20 20 20 20 20 |Y REGION.. | 000021E0: 20 20 20 20 20 D4 48 49 53 20 20 52 45 47 49 4F | .HIS REGIO| 000021F0: 4E 20 20 49 53 20 53 41 56 45 44 20 54 4F 20 41 |N IS SAVED TO A| 00002200: 20 46 49 4C 45 20 43 41 4C 4C 45 44 20 20 27 D3 | FILE CALLED '.| 00002210: D7 C1 D0 C6 C9 CC C5 27 2C 20 20 57 48 4F 53 45 |.......', WHOSE| 00002220: 20 20 49 4E 46 4F 0D 20 20 20 20 20 20 20 20 20 | INFO. | 00002230: 20 53 45 43 54 4F 52 20 20 49 53 20 54 48 45 20 | SECTOR IS THE | 00002240: 53 41 4D 45 20 41 53 20 54 48 45 20 46 49 4C 45 |SAME AS THE FILE| 00002250: 20 54 4F 20 42 45 20 4C 4F 41 44 45 44 2E 20 20 | TO BE LOADED. | 00002260: D4 48 45 20 44 49 46 46 45 52 45 4E 43 45 20 20 |.HE DIFFERENCE | 00002270: 49 53 0D 20 20 20 20 20 20 20 20 20 20 54 48 41 |IS. THA| 00002280: 54 20 54 48 45 20 54 45 58 54 20 46 49 45 4C 44 |T THE TEXT FIELD| 00002290: 20 49 53 20 43 4C 45 41 52 45 44 2C 20 20 41 4E | IS CLEARED, AN| 000022A0: 44 20 54 48 45 20 46 49 4C 45 20 54 59 50 45 20 |D THE FILE TYPE | 000022B0: 49 53 20 D3 59 53 54 45 4D 20 46 49 4C 45 0D 20 |IS .YSTEM FILE. | 000022C0: 20 20 20 20 20 20 20 20 20 28 D4 59 50 45 20 34 | (.YPE 4| 000022D0: 29 2E 20 CC C4 D3 D7 C1 D0 20 4D 55 53 54 20 42 |). ...... MUST B| 000022E0: 45 20 45 56 45 4E 54 55 41 4C 4C 59 20 43 41 4C |E EVENTUALLY CAL| 000022F0: 4C 45 44 20 54 4F 20 52 45 4C 4F 41 44 20 54 48 |LED TO RELOAD TH| 00002300: 45 20 D3 D7 C1 D0 C6 C9 CC C5 0D 20 20 20 20 20 |E ......... | 00002310: 20 20 20 20 20 41 4E 44 20 20 52 45 54 55 52 4E | AND RETURN| 00002320: 20 20 54 4F 20 4E 4F 52 4D 41 4C 20 4F 50 45 52 | TO NORMAL OPER| 00002330: 41 54 49 4F 4E 2E 20 20 D4 48 45 20 20 44 49 52 |ATION. .HE DIR| 00002340: 45 43 54 4F 52 59 20 20 45 4E 54 52 59 20 20 50 |ECTORY ENTRY P| 00002350: 4F 49 4E 54 45 52 0D 20 20 20 20 20 20 20 20 20 |OINTER. | 00002360: 20 53 48 4F 55 4C 44 20 20 50 4F 49 4E 54 20 54 | SHOULD POINT T| 00002370: 4F 20 24 38 34 30 30 2C 20 41 4E 44 20 54 48 45 |O $8400, AND THE| 00002380: 20 50 4F 49 4E 54 45 52 20 52 45 54 55 52 4E 45 | POINTER RETURNE| 00002390: 44 20 42 59 20 CC CF CF CB D5 D0 2E 20 20 D4 48 |D BY ....... .H| 000023A0: 49 53 0D 20 20 20 20 20 20 20 20 20 20 49 53 20 |IS. IS | 000023B0: 44 55 45 20 54 4F 20 4D 45 4D 4F 52 59 20 43 4F |DUE TO MEMORY CO| 000023C0: 4E 46 4C 49 43 54 53 20 54 48 41 54 20 57 49 4C |NFLICTS THAT WIL| 000023D0: 4C 20 41 52 49 53 45 2E 0D 0D 0D 0D 0D 0D 0D 0D |L ARISE.........| 000023E0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 000023F0: 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 |.. ....| 00002400: 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 | .ERNAL .OUTINES| 00002410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002430: 20 20 20 20 20 20 31 2D 34 30 0D 0D 0D 20 20 20 | 1-40... | 00002440: 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 | .UNCTION | 00002450: CE 41 4D 45 3A 20 CC CF CF CB D5 D0 0D 20 20 20 |.AME: ....... | 00002460: 20 20 20 20 20 20 20 D0 52 4F 43 45 44 55 52 45 | .ROCEDURE| 00002470: 3A 20 CC 4F 4F 4B 55 50 20 41 20 46 49 4C 45 4E |: .OOKUP A FILEN| 00002480: 41 4D 45 20 49 4E 20 54 48 45 20 44 49 52 45 43 |AME IN THE DIREC| 00002490: 54 4F 52 59 2E 0D 20 20 20 20 20 20 20 20 20 20 |TORY.. | 000024A0: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 000024B0: 32 30 C2 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |20.. .N| 000024C0: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 000024D0: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 000024E0: 20 24 30 C5 2D 24 30 C6 20 20 20 D0 4F 49 4E 54 | $0.-$0. .OINT| 000024F0: 45 52 20 54 4F 20 46 49 4C 45 4E 41 4D 45 2E 0D |ER TO FILENAME..| 00002500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00002510: 38 38 36 C5 20 20 20 20 20 C6 4C 41 47 20 42 59 |886. .LAG BY| 00002520: 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 |TE.. .U| 00002530: 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 |TPUT:. | 00002540: 20 20 20 20 20 24 30 34 20 20 20 20 20 20 20 D4 | $04 .| 00002550: 52 41 43 4B 20 46 4F 52 20 44 49 52 45 43 54 4F |RACK FOR DIRECTO| 00002560: 52 59 20 53 45 43 54 4F 52 2E 0D 20 20 20 20 20 |RY SECTOR.. | 00002570: 20 20 20 20 20 20 20 20 20 20 24 30 35 20 20 20 | $05 | 00002580: 20 20 20 20 D3 45 43 54 4F 52 20 46 4F 52 20 44 | .ECTOR FOR D| 00002590: 49 52 45 43 54 4F 52 59 20 53 45 43 54 4F 52 2E |IRECTORY SECTOR.| 000025A0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000025B0: 24 30 C3 2D 24 30 C4 20 20 20 D0 4F 49 4E 54 45 |$0.-$0. .OINTE| 000025C0: 52 20 54 4F 20 46 49 4C 45 20 4E 41 4D 45 20 45 |R TO FILE NAME E| 000025D0: 4E 54 52 59 2E 0D 20 20 20 20 20 20 20 20 20 20 |NTRY.. | 000025E0: 20 20 20 20 20 24 38 30 30 30 2D 24 38 30 C6 C6 | $8000-$80..| 000025F0: 20 C4 49 52 45 43 54 4F 52 59 20 53 45 43 54 4F | .IRECTORY SECTO| 00002600: 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |R.. | 00002610: 20 20 24 38 34 30 30 2D 24 38 34 31 C4 20 C3 4F | $8400-$841. .O| 00002620: 50 59 20 4F 46 20 44 49 52 45 43 54 4F 52 59 20 |PY OF DIRECTORY | 00002630: 45 4E 54 52 59 2E 0D 20 20 20 20 20 20 20 20 20 |ENTRY.. | 00002640: 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 | .RRORS: .EE .PP| 00002650: 45 4E 44 49 58 0D 0D 20 20 20 20 20 20 20 20 20 |ENDIX.. | 00002660: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 00002670: 48 49 53 20 49 53 20 41 20 56 45 52 59 20 55 53 |HIS IS A VERY US| 00002680: 45 46 55 4C 20 52 4F 55 54 49 4E 45 2E 20 20 C7 |EFUL ROUTINE. .| 00002690: 49 56 45 4E 20 41 20 54 45 58 54 20 53 54 52 49 |IVEN A TEXT STRI| 000026A0: 4E 47 0D 20 20 20 20 20 20 20 20 20 20 4F 46 20 |NG. OF | 000026B0: 41 20 46 49 4C 45 4E 41 4D 45 2C 20 54 48 49 53 |A FILENAME, THIS| 000026C0: 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C 20 46 49 | ROUTINE WILL FI| 000026D0: 4E 44 20 49 54 20 49 4E 20 54 48 45 20 44 49 52 |ND IT IN THE DIR| 000026E0: 45 43 54 4F 52 59 2E 20 C9 46 20 54 48 45 0D 20 |ECTORY. .F THE. | 000026F0: 20 20 20 20 20 20 20 20 20 46 4C 41 47 20 20 42 | FLAG B| 00002700: 59 54 45 20 20 41 54 20 24 38 38 36 C5 20 49 53 |YTE AT $886. IS| 00002710: 20 24 30 30 2C 20 20 54 48 45 4E 20 42 4F 54 48 | $00, THEN BOTH| 00002720: 20 44 52 49 56 45 53 20 38 20 41 4E 44 20 20 39 | DRIVES 8 AND 9| 00002730: 20 20 57 49 4C 4C 20 20 42 45 0D 20 20 20 20 20 | WILL BE. | 00002740: 20 20 20 20 20 53 43 41 4E 4E 45 44 20 49 46 20 | SCANNED IF | 00002750: 4E 45 43 45 53 53 41 52 59 2E 20 C9 46 20 54 48 |NECESSARY. .F TH| 00002760: 45 20 46 4C 41 47 20 49 53 20 24 C6 C6 2C 20 54 |E FLAG IS $.., T| 00002770: 48 45 4E 20 54 48 45 20 4C 4F 4F 4B 55 50 20 49 |HEN THE LOOKUP I| 00002780: 53 20 4F 4E 4C 59 0D 20 20 20 20 20 20 20 20 20 |S ONLY. | 00002790: 20 54 4F 20 54 48 45 20 43 55 52 52 45 4E 54 20 | TO THE CURRENT | 000027A0: 44 52 49 56 45 2E 20 20 C9 46 20 54 48 45 52 45 |DRIVE. .F THERE| 000027B0: 20 49 53 20 4F 4E 4C 59 20 4F 4E 45 20 44 52 49 | IS ONLY ONE DRI| 000027C0: 56 45 2C 20 54 48 45 4E 20 54 48 49 53 20 46 4C |VE, THEN THIS FL| 000027D0: 41 47 0D 20 20 20 20 20 20 20 20 20 20 48 41 53 |AG. HAS| 000027E0: 20 20 4E 4F 20 45 46 46 45 43 54 2E 20 20 D4 48 | NO EFFECT. .H| 000027F0: 45 20 44 49 52 45 43 54 4F 52 59 20 53 45 43 54 |E DIRECTORY SECT| 00002800: 4F 52 20 49 53 20 4C 4F 41 44 45 44 20 49 4E 54 |OR IS LOADED INT| 00002810: 4F 20 41 20 42 55 46 46 45 52 20 20 41 54 0D 20 |O A BUFFER AT. | 00002820: 20 20 20 20 20 20 20 20 20 24 38 30 30 30 2C 20 | $8000, | 00002830: 41 4E 44 20 54 48 45 20 54 52 41 43 4B 20 41 4E |AND THE TRACK AN| 00002840: 44 20 53 45 43 54 4F 52 20 41 52 45 20 49 4E 20 |D SECTOR ARE IN | 00002850: 4C 4F 43 41 54 49 4F 4E 53 20 24 30 34 20 41 4E |LOCATIONS $04 AN| 00002860: 44 20 24 30 35 2E 20 D4 48 45 0D 20 20 20 20 20 |D $05. .HE. | 00002870: 20 20 20 20 20 50 41 52 54 49 43 55 4C 41 52 20 | PARTICULAR | 00002880: 20 44 49 52 45 43 54 4F 52 59 20 45 4E 54 52 59 | DIRECTORY ENTRY| 00002890: 20 49 53 20 43 4F 50 49 45 44 20 54 4F 20 24 38 | IS COPIED TO $8| 000028A0: 34 30 30 20 41 4E 44 20 54 48 45 20 50 4F 49 4E |400 AND THE POIN| 000028B0: 54 45 52 20 54 4F 0D 20 20 20 20 20 20 20 20 20 |TER TO. | 000028C0: 20 54 48 45 20 45 4E 54 52 59 20 49 4E 20 54 48 | THE ENTRY IN TH| 000028D0: 45 20 42 55 46 46 45 52 20 49 53 20 53 54 4F 52 |E BUFFER IS STOR| 000028E0: 45 44 20 41 54 20 24 30 C3 2D 24 30 C4 2E 0D 0D |ED AT $0.-$0....| 000028F0: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00002900: 49 4F 4E 20 CE 41 4D 45 3A 20 CD C1 C9 CE 0D 20 |ION .AME: ..... | 00002910: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00002920: 3A 20 C5 4E 54 45 52 53 20 C7 C5 CF D3 27 53 20 |: .NTERS ....'S | 00002930: 4D 41 49 4E 20 4C 4F 4F 50 2E 0D 20 20 20 20 20 |MAIN LOOP.. | 00002940: 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 | .ALL ADDRES| 00002950: 53 3A 20 24 C3 31 C3 33 0D 20 20 20 20 20 20 20 |S: $.1.3. | 00002960: 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 | .NPUT REQUIRE| 00002970: 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 |MENTS:. | 00002980: 20 20 20 20 20 20 24 38 34 39 C2 2D 24 38 34 39 | $849.-$849| 00002990: 43 20 C1 44 44 52 45 53 53 20 4F 46 20 55 53 45 |C .DDRESS OF USE| 000029A0: 52 27 53 20 41 44 44 49 54 49 4F 4E 20 54 4F 20 |R'S ADDITION TO | 000029B0: C7 C5 CF D3 27 53 20 4D 41 49 4E 20 4C 4F 4F 50 |....'S MAIN LOOP| 000029C0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000029D0: 20 20 20 20 20 20 20 20 20 20 20 20 28 4F 50 54 | (OPT| 000029E0: 49 4F 4E 41 4C 29 2E 0D 0D 20 20 20 20 20 20 20 |IONAL)... | 000029F0: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 00002A00: D4 48 49 53 20 4C 4F 4F 50 20 44 4F 45 53 20 57 |.HIS LOOP DOES W| 00002A10: 48 41 54 45 56 45 52 20 50 4F 4C 4C 49 4E 47 20 |HATEVER POLLING | 00002A20: 49 53 20 4E 45 45 44 45 44 2E 20 C6 49 52 53 54 |IS NEEDED. .IRST| 00002A30: 20 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 42 | THE. B| 00002A40: 55 54 54 4F 4E 20 20 49 53 20 20 43 48 45 43 4B |UTTON IS CHECK| 00002A50: 45 44 2C 20 20 41 53 20 57 45 4C 4C 20 41 53 20 |ED, AS WELL AS | 00002A60: 20 54 48 45 20 20 4B 45 59 42 4F 41 52 44 20 41 | THE KEYBOARD A| 00002A70: 4E 44 20 20 54 48 45 20 20 4D 4F 55 53 45 27 53 |ND THE MOUSE'S| 00002A80: 0D 20 20 20 20 20 20 20 20 20 20 50 4F 53 49 54 |. POSIT| 00002A90: 49 4F 4E 2E 20 20 D4 48 45 20 43 4F 4D 4D 41 4E |ION. .HE COMMAN| 00002AA0: 44 20 54 41 42 4C 45 20 41 54 20 24 38 37 31 39 |D TABLE AT $8719| 00002AB0: 20 28 D3 45 45 20 C3 CD C4 D4 C2 CC 29 20 49 53 | (.EE ......) IS| 00002AC0: 20 53 43 41 4E 4E 45 44 20 46 4F 52 0D 20 20 20 | SCANNED FOR. | 00002AD0: 20 20 20 20 20 20 20 45 58 45 43 55 54 41 42 4C | EXECUTABL| 00002AE0: 45 20 20 52 4F 55 54 49 4E 45 53 2E 20 20 D4 48 |E ROUTINES. .H| 00002AF0: 45 4E 20 54 48 45 20 43 4F 55 4E 54 45 52 53 20 |EN THE COUNTERS | 00002B00: 41 54 20 24 38 37 37 C6 20 28 D3 45 45 20 C4 C5 |AT $877. (.EE ..| 00002B10: CC C1 D9 29 20 41 52 45 0D 20 20 20 20 20 20 20 |...) ARE. | 00002B20: 20 20 20 43 48 45 43 4B 45 44 3B 20 20 54 48 4F | CHECKED; THO| 00002B30: 53 45 20 20 54 48 41 54 20 20 48 41 56 45 20 52 |SE THAT HAVE R| 00002B40: 45 41 43 48 45 44 20 5A 45 52 4F 20 20 48 41 56 |EACHED ZERO HAV| 00002B50: 45 20 20 54 48 45 49 52 20 20 41 53 53 4F 43 49 |E THEIR ASSOCI| 00002B60: 41 54 45 44 0D 20 20 20 20 20 20 20 20 20 20 52 |ATED. R| 00002B70: 4F 55 54 49 4E 45 53 20 45 58 45 43 55 54 45 44 |OUTINES EXECUTED| 00002B80: 2E 20 D4 48 45 20 4D 45 4D 4F 52 59 20 49 4D 41 |. .HE MEMORY IMA| 00002B90: 47 45 20 4F 46 20 54 48 45 20 43 4C 4F 43 4B 20 |GE OF THE CLOCK | 00002BA0: 49 53 20 55 50 44 41 54 45 44 2E 20 D4 48 45 4E |IS UPDATED. .HEN| 00002BB0: 0D 20 20 20 20 20 20 20 20 20 20 54 48 45 20 41 |. THE A| 00002BC0: 4C 41 52 4D 20 43 4C 4F 43 4B 20 49 53 20 43 48 |LARM CLOCK IS CH| 00002BD0: 45 43 4B 45 44 2E 20 20 C6 49 4E 41 4C 4C 59 2C |ECKED. .INALLY,| 00002BE0: 20 20 54 48 45 20 55 53 45 52 27 53 20 41 44 44 | THE USER'S ADD| 00002BF0: 49 54 49 4F 4E 20 54 4F 20 54 48 45 0D 20 20 20 |ITION TO THE. | 00002C00: 20 20 20 20 20 20 20 4D 41 49 4E 20 20 4C 4F 4F | MAIN LOO| 00002C10: 50 2C 20 20 49 46 20 54 48 45 52 45 20 49 53 20 |P, IF THERE IS | 00002C20: 4F 4E 45 2C 20 20 49 53 20 45 58 45 43 55 54 45 |ONE, IS EXECUTE| 00002C30: 44 2E 20 20 D4 48 49 53 20 4C 4F 4F 50 20 20 43 |D. .HIS LOOP C| 00002C40: 4F 4E 54 49 4E 55 45 53 0D 20 20 20 20 20 20 20 |ONTINUES. | 00002C50: 20 20 20 46 4F 52 45 56 45 52 2E 0D 0D 0D 0D 0D | FOREVER......| 00002C60: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00002C70: 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 |.. ....| 00002C80: 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 | .ERNAL .OUTINES| 00002C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002CB0: 20 20 20 20 20 20 31 2D 34 31 0D 0D 0D 20 20 20 | 1-41... | 00002CC0: 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 | .UNCTION | 00002CD0: CE 41 4D 45 3A 20 CD C1 CB C3 D5 D2 0D 20 20 20 |.AME: ....... | 00002CE0: 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 | .URPOSE: | 00002CF0: CD 41 4B 45 53 20 41 20 56 45 52 54 49 43 41 4C |.AKES A VERTICAL| 00002D00: 20 42 41 52 20 43 55 52 53 4F 52 20 53 50 52 49 | BAR CURSOR SPRI| 00002D10: 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |TE.. .A| 00002D20: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 C3 |LL ADDRESS: $.1.| 00002D30: 30 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |0. .NPU| 00002D40: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 00002D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 | .| 00002D60: 20 20 20 20 20 20 20 20 20 D4 48 45 20 48 45 49 | .HE HEI| 00002D70: 47 48 54 20 4F 46 20 54 48 45 20 43 55 52 53 4F |GHT OF THE CURSO| 00002D80: 52 20 4D 49 4E 55 53 20 31 20 28 30 2D 34 31 29 |R MINUS 1 (0-41)| 00002D90: 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 |. .UTPU| 00002DA0: 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |T:. | 00002DB0: 20 20 D3 50 52 49 54 45 20 42 4C 4F 43 4B 20 23 | .PRITE BLOCK #| 00002DC0: 34 31 20 28 24 38 C1 34 30 2D 24 38 C1 37 C5 29 |41 ($8.40-$8.7.)| 00002DD0: 20 49 53 20 4D 41 44 45 20 49 4E 54 4F 20 41 20 | IS MADE INTO A | 00002DE0: 56 45 52 54 49 43 41 4C 20 42 41 52 0D 20 20 20 |VERTICAL BAR. | 00002DF0: 20 20 20 20 20 20 20 20 20 20 20 20 4F 46 20 41 | OF A| 00002E00: 20 47 49 56 45 4E 20 48 45 49 47 48 54 2E 0D 0D | GIVEN HEIGHT...| 00002E10: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00002E20: 50 54 49 4F 4E 3A 20 20 C7 49 56 45 4E 20 54 48 |PTION: .IVEN TH| 00002E30: 45 20 44 45 53 49 52 45 44 20 48 45 49 47 48 54 |E DESIRED HEIGHT| 00002E40: 2C 20 41 20 56 45 52 54 49 43 41 4C 20 42 41 52 |, A VERTICAL BAR| 00002E50: 20 49 53 20 43 52 45 41 54 45 44 0D 20 20 20 20 | IS CREATED. | 00002E60: 20 20 20 20 20 20 49 4E 20 54 48 45 20 53 50 52 | IN THE SPR| 00002E70: 49 54 45 20 42 4C 4F 43 4B 2E 20 20 C9 46 20 54 |ITE BLOCK. .F T| 00002E80: 48 45 20 48 45 49 47 48 54 20 49 53 20 47 52 45 |HE HEIGHT IS GRE| 00002E90: 41 54 45 52 20 54 48 41 4E 20 32 31 2C 20 20 54 |ATER THAN 21, T| 00002EA0: 48 45 4E 20 54 48 45 0D 20 20 20 20 20 20 20 20 |HEN THE. | 00002EB0: 20 20 48 45 49 47 48 54 20 20 49 53 20 20 48 41 | HEIGHT IS HA| 00002EC0: 4C 56 45 44 20 20 41 4E 44 20 54 48 45 20 53 50 |LVED AND THE SP| 00002ED0: 52 49 54 45 20 49 53 20 20 D9 2D 45 58 50 41 4E |RITE IS .-EXPAN| 00002EE0: 44 45 44 2E 20 20 CE 4F 20 20 43 48 45 43 4B 20 |DED. .O CHECK | 00002EF0: 20 49 53 0D 20 20 20 20 20 20 20 20 20 20 50 45 | IS. PE| 00002F00: 52 46 4F 52 4D 45 44 20 4F 4E 20 54 48 45 20 48 |RFORMED ON THE H| 00002F10: 45 49 47 48 54 2E 20 C9 46 20 41 20 48 45 49 47 |EIGHT. .F A HEIG| 00002F20: 48 54 20 47 52 45 41 54 45 52 20 54 48 41 4E 20 |HT GREATER THAN | 00002F30: 34 31 20 49 53 20 55 53 45 44 20 54 48 45 4E 0D |41 IS USED THEN.| 00002F40: 20 20 20 20 20 20 20 20 20 20 54 48 45 20 4D 45 | THE ME| 00002F50: 4D 4F 52 59 20 46 4F 52 20 4E 45 58 54 20 46 45 |MORY FOR NEXT FE| 00002F60: 57 20 53 50 52 49 54 45 53 20 57 49 4C 4C 20 42 |W SPRITES WILL B| 00002F70: 45 20 41 46 46 45 43 54 45 44 2E 0D 0D 0D 20 20 |E AFFECTED.... | 00002F80: 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E | .UNCTION| 00002F90: 20 CE 41 4D 45 3A 20 CD C1 D3 CC 0D 20 20 20 20 | .AME: ..... | 00002FA0: 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 31 | .URPOSE: 1| 00002FB0: 36 20 42 49 54 20 4D 55 4C 54 49 50 4C 45 20 41 |6 BIT MULTIPLE A| 00002FC0: 52 49 54 48 4D 45 54 49 43 20 53 48 49 46 54 20 |RITHMETIC SHIFT | 00002FD0: 4C 45 46 54 53 2E 0D 20 20 20 20 20 20 20 20 20 |LEFTS.. | 00002FE0: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 00002FF0: C3 31 35 C4 0D 20 20 20 20 20 20 20 20 20 20 C9 |.15.. .| 00003000: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 00003010: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 00003020: 20 20 D9 20 20 20 20 20 20 20 20 20 D4 48 45 20 | . .HE | 00003030: 53 48 49 46 54 20 43 4F 55 4E 54 2E 0D 20 20 20 |SHIFT COUNT.. | 00003040: 20 20 20 20 20 20 20 20 20 20 20 20 D8 20 20 20 | . | 00003050: 20 20 20 20 20 20 D4 48 45 20 41 44 44 52 45 53 | .HE ADDRES| 00003060: 53 20 4F 46 20 54 48 45 20 31 36 20 42 49 54 20 |S OF THE 16 BIT | 00003070: 56 41 4C 55 45 20 54 4F 20 42 45 20 53 48 49 46 |VALUE TO BE SHIF| 00003080: 54 45 44 2E 0D 20 20 20 20 20 20 20 20 20 20 CF |TED.. .| 00003090: 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 20 |UTPUT:. | 000030A0: 20 20 20 20 20 20 D8 20 20 20 20 20 20 20 20 20 | . | 000030B0: D2 45 53 55 4C 54 20 4F 46 20 53 48 49 46 54 53 |.ESULT OF SHIFTS| 000030C0: 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 000030D0: 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 |CRIPTION: .HIS R| 000030E0: 4F 55 54 49 4E 45 20 49 53 20 4F 4E 45 20 4F 46 |OUTINE IS ONE OF| 000030F0: 20 54 48 45 20 C7 C5 CF D3 20 4D 41 54 48 20 52 | THE .... MATH R| 00003100: 4F 55 54 49 4E 45 53 2E 20 D8 20 48 41 53 0D 20 |OUTINES. . HAS. | 00003110: 20 20 20 20 20 20 20 20 20 54 48 45 20 20 41 44 | THE AD| 00003120: 44 52 45 53 53 20 20 4F 46 20 41 20 31 36 20 42 |DRESS OF A 16 B| 00003130: 49 54 20 49 4E 54 45 47 45 52 20 49 4E 20 5A 45 |IT INTEGER IN ZE| 00003140: 52 4F 20 50 41 47 45 2C 20 20 57 48 49 43 48 20 |RO PAGE, WHICH | 00003150: 49 53 20 20 54 4F 20 20 42 45 0D 20 20 20 20 20 |IS TO BE. | 00003160: 20 20 20 20 20 53 48 49 46 54 45 44 20 4C 45 46 | SHIFTED LEF| 00003170: 54 20 42 59 20 54 48 45 20 43 4F 55 4E 54 20 49 |T BY THE COUNT I| 00003180: 4E 20 D9 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |N ..............| 00003190: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 000031A0: 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 |........ | 000031B0: 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F | .... .ERNAL .O| 000031C0: 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 20 |UTINES | 000031D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000031E0: 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 34 32 | 1-42| 000031F0: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E |... .UN| 00003200: 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 CD C5 CE D5 |CTION .AME: ....| 00003210: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00003220: 53 45 3A 20 C4 52 41 57 53 20 41 4E 44 20 53 45 |SE: .RAWS AND SE| 00003230: 54 53 20 45 56 45 52 59 54 48 49 4E 47 20 55 50 |TS EVERYTHING UP| 00003240: 20 46 4F 52 20 50 55 4C 4C 20 44 4F 57 4E 20 4D | FOR PULL DOWN M| 00003250: 45 4E 55 53 20 41 4E 44 0D 20 20 20 20 20 20 20 |ENUS AND. | 00003260: 20 20 20 20 20 20 20 20 20 20 20 20 53 55 42 4D | SUBM| 00003270: 45 4E 55 53 2E 0D 20 20 20 20 20 20 20 20 20 20 |ENUS.. | 00003280: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 00003290: 31 35 31 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |151. .N| 000032A0: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 000032B0: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 000032C0: 20 C1 20 20 20 20 20 20 20 20 20 CD 45 4E 55 20 | . .ENU | 000032D0: 4F 50 54 49 4F 4E 20 54 4F 20 50 4F 53 49 54 49 |OPTION TO POSITI| 000032E0: 4F 4E 20 4D 4F 55 53 45 20 4F 4E 20 28 30 20 54 |ON MOUSE ON (0 T| 000032F0: 4F 20 23 4F 50 54 49 4F 4E 53 2D 31 29 0D 20 20 |O #OPTIONS-1). | 00003300: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 32 | $02| 00003310: 2D 24 30 33 20 20 20 D0 4F 49 4E 54 45 52 20 54 |-$03 .OINTER T| 00003320: 4F 20 54 48 45 20 4D 45 4E 55 20 44 45 53 43 52 |O THE MENU DESCR| 00003330: 49 50 54 4F 52 2E 0D 0D 20 20 20 20 20 20 20 20 |IPTOR... | 00003340: 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 | .ESCRIPTION: | 00003350: D4 48 49 53 20 20 49 53 20 20 41 4E 20 C5 D8 D4 |.HIS IS AN ...| 00003360: D2 C5 CD C5 CC D9 20 50 4F 57 45 52 46 55 4C 20 |...... POWERFUL | 00003370: 20 52 4F 55 54 49 4E 45 2E 20 20 C9 54 20 20 44 | ROUTINE. .T D| 00003380: 4F 45 53 0D 20 20 20 20 20 20 20 20 20 20 C5 D6 |OES. ..| 00003390: C5 D2 D9 D4 C8 C9 CE C7 20 20 46 4F 52 20 20 4D |........ FOR M| 000033A0: 45 4E 55 20 20 50 52 4F 43 45 53 53 49 4E 47 2E |ENU PROCESSING.| 000033B0: 20 20 CF 4E 43 45 20 43 4F 4E 54 52 4F 4C 20 52 | .NCE CONTROL R| 000033C0: 45 54 55 52 4E 53 20 20 54 4F 20 20 54 48 45 0D |ETURNS TO THE.| 000033D0: 20 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 | PROGRA| 000033E0: 4D 20 54 48 41 54 20 43 52 45 41 54 45 44 20 54 |M THAT CREATED T| 000033F0: 48 45 20 4D 45 4E 55 2C 20 54 48 45 20 50 52 4F |HE MENU, THE PRO| 00003400: 47 52 41 4D 20 43 41 4E 20 52 45 54 55 52 4E 20 |GRAM CAN RETURN | 00003410: 54 4F 20 54 48 45 20 C7 C5 CF D3 0D 20 20 20 20 |TO THE ..... | 00003420: 20 20 20 20 20 20 4D 41 49 4E 20 20 4C 49 4E 45 | MAIN LINE| 00003430: 2C 20 20 4F 52 20 44 4F 20 41 4E 59 54 48 49 4E |, OR DO ANYTHIN| 00003440: 47 20 45 4C 53 45 2E 20 20 C9 54 20 49 53 20 49 |G ELSE. .T IS I| 00003450: 4D 50 4F 52 54 41 4E 54 20 54 4F 20 20 4E 4F 54 |MPORTANT TO NOT| 00003460: 45 20 20 54 48 41 54 0D 20 20 20 20 20 20 20 20 |E THAT. | 00003470: 20 20 4D 45 4E 55 53 20 4F 4E 4C 59 20 41 50 50 | MENUS ONLY APP| 00003480: 45 41 52 20 4F 4E 20 53 43 52 45 45 4E 20 31 2E |EAR ON SCREEN 1.| 00003490: 20 CC 4F 43 41 54 49 4F 4E 20 24 32 C6 20 49 53 | .OCATION $2. IS| 000034A0: 20 53 41 56 45 44 20 41 4E 44 20 52 45 53 54 4F | SAVED AND RESTO| 000034B0: 52 45 44 0D 20 20 20 20 20 20 20 20 20 20 44 55 |RED. DU| 000034C0: 52 49 4E 47 20 20 54 48 45 20 20 44 52 41 57 49 |RING THE DRAWI| 000034D0: 4E 47 20 50 48 41 53 45 2E 20 20 D4 48 45 20 4C |NG PHASE. .HE L| 000034E0: 45 46 54 20 41 4E 44 20 52 49 47 48 54 20 4D 41 |EFT AND RIGHT MA| 000034F0: 52 47 49 4E 53 20 41 52 45 20 20 41 4C 53 4F 0D |RGINS ARE ALSO.| 00003500: 20 20 20 20 20 20 20 20 20 20 4C 45 46 54 20 20 | LEFT | 00003510: 55 4E 41 4C 54 45 52 45 44 2E 20 20 D4 48 45 20 |UNALTERED. .HE | 00003520: 20 46 4F 4C 4C 4F 57 49 4E 47 20 20 49 53 20 20 | FOLLOWING IS | 00003530: 41 20 20 44 45 53 43 52 49 50 54 49 4F 4E 20 20 |A DESCRIPTION | 00003540: 4F 46 20 20 41 20 20 4D 45 4E 55 0D 20 20 20 20 |OF A MENU. | 00003550: 20 20 20 20 20 20 44 45 53 43 52 49 50 54 4F 52 | DESCRIPTOR| 00003560: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00003570: 20 23 42 59 54 45 53 20 20 20 20 C4 45 53 43 52 | #BYTES .ESCR| 00003580: 49 50 54 49 4F 4E 0D 20 20 20 20 20 20 20 20 20 |IPTION. | 00003590: 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 20 | 1 | 000035A0: D4 4F 50 20 4D 41 52 47 49 4E 20 4F 46 20 45 4E |.OP MARGIN OF EN| 000035B0: 54 49 52 45 20 4D 45 4E 55 2E 0D 20 20 20 20 20 |TIRE MENU.. | 000035C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 | 1 | 000035D0: 20 20 20 20 C2 4F 54 54 4F 4D 20 4D 41 52 47 49 | .OTTOM MARGI| 000035E0: 4E 20 4F 46 20 45 4E 54 49 52 45 20 4D 45 4E 55 |N OF ENTIRE MENU| 000035F0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00003600: 20 20 20 20 32 20 20 20 20 20 20 CC 45 46 54 20 | 2 .EFT | 00003610: 4D 41 52 47 49 4E 20 4F 46 20 45 4E 54 49 52 45 |MARGIN OF ENTIRE| 00003620: 20 4D 45 4E 55 2E 0D 20 20 20 20 20 20 20 20 20 | MENU.. | 00003630: 20 20 20 20 20 20 20 20 20 32 20 20 20 20 20 20 | 2 | 00003640: D2 49 47 48 54 20 4D 41 52 47 49 4E 20 4F 46 20 |.IGHT MARGIN OF | 00003650: 45 4E 54 49 52 45 20 4D 45 4E 55 2E 0D 20 20 20 |ENTIRE MENU.. | 00003660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 | 1| 00003670: 20 20 20 20 20 20 C3 4F 44 45 20 42 59 54 45 3A | .ODE BYTE:| 00003680: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00003690: 20 20 20 20 20 20 20 20 20 20 20 42 49 54 20 37 | BIT 7| 000036A0: 20 2D 20 56 45 52 54 49 43 41 4C 20 4D 45 4E 55 | - VERTICAL MENU| 000036B0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000036C0: 20 20 20 20 20 20 20 20 20 20 20 20 42 49 54 20 | BIT | 000036D0: 36 20 2D 20 53 45 54 20 20 53 45 43 4F 4E 44 41 |6 - SET SECONDA| 000036E0: 52 59 20 20 42 4F 58 20 20 44 45 53 43 52 49 50 |RY BOX DESCRIP| 000036F0: 54 4F 52 20 20 54 4F 20 20 46 55 4C 4C 0D 20 20 |TOR TO FULL. | 00003700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003720: 53 43 52 45 45 4E 3B 20 54 48 49 53 20 41 4C 4C |SCREEN; THIS ALL| 00003730: 4F 57 53 20 54 48 45 20 4D 4F 55 53 45 20 54 4F |OWS THE MOUSE TO| 00003740: 20 42 45 20 4D 4F 56 45 44 0D 20 20 20 20 20 20 | BE MOVED. | 00003750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003760: 20 20 20 20 20 20 20 20 20 20 20 20 4F 55 54 53 | OUTS| 00003770: 49 44 45 20 20 4F 46 20 41 20 4D 45 4E 55 20 57 |IDE OF A MENU W| 00003780: 49 54 48 4F 55 54 20 43 41 55 53 49 4E 47 20 49 |ITHOUT CAUSING I| 00003790: 54 20 20 54 4F 0D 20 20 20 20 20 20 20 20 20 20 |T TO. | 000037A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000037B0: 20 20 20 20 20 20 20 20 42 45 20 43 4C 4F 53 45 | BE CLOSE| 000037C0: 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |D.. | 000037D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 42 49 54 | BIT| 000037E0: 53 20 30 2D 34 20 2D 20 23 20 45 4E 54 52 49 45 |S 0-4 - # ENTRIE| 000037F0: 53 20 49 4E 20 4D 45 4E 55 2E 0D 20 20 20 20 20 |S IN MENU.. | 00003800: 20 20 20 20 20 D4 48 49 53 20 20 49 53 20 20 46 | .HIS IS F| 00003810: 4F 4C 4C 4F 57 45 44 20 20 42 59 20 53 45 54 53 |OLLOWED BY SETS| 00003820: 20 4F 46 20 35 20 42 59 54 45 53 3B 20 20 41 53 | OF 5 BYTES; AS| 00003830: 20 20 4D 41 4E 59 20 20 41 53 20 20 54 48 45 52 | MANY AS THER| 00003840: 45 20 20 41 52 45 0D 20 20 20 20 20 20 20 20 20 |E ARE. | 00003850: 20 45 4E 54 52 49 45 53 2E 0D 20 20 20 20 20 20 | ENTRIES.. | 00003860: 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 20 | 2 | 00003870: 20 20 20 C1 44 44 52 45 53 53 20 4F 46 20 54 48 | .DDRESS OF TH| 00003880: 45 20 54 45 58 54 20 46 4F 52 20 54 48 49 53 20 |E TEXT FOR THIS | 00003890: 4F 50 54 49 4F 4E 2E 0D 20 20 20 20 20 20 20 20 |OPTION.. | 000038A0: 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 20 | 1 | 000038B0: 20 C3 4F 44 45 20 42 59 54 45 20 57 48 49 43 48 | .ODE BYTE WHICH| 000038C0: 20 44 45 53 43 52 49 42 45 53 20 57 48 41 54 20 | DESCRIBES WHAT | 000038D0: 54 4F 20 44 4F 20 57 49 54 48 20 54 48 45 0D 20 |TO DO WITH THE. | 000038E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000038F0: 20 20 20 20 20 20 20 20 41 44 44 52 45 53 53 20 | ADDRESS | 00003900: 54 48 41 54 20 46 4F 4C 4C 4F 57 53 3A 0D 20 20 |THAT FOLLOWS:. | 00003910: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003920: 20 20 20 20 20 20 20 20 42 49 54 20 37 20 2D 20 | BIT 7 - | 00003930: 4F 50 45 52 41 4E 44 20 49 53 20 54 48 45 20 41 |OPERAND IS THE A| 00003940: 44 44 52 45 53 53 20 4F 46 20 41 20 53 55 42 4D |DDRESS OF A SUBM| 00003950: 45 4E 55 0D 20 20 20 20 20 20 20 20 20 20 20 20 |ENU. | 00003960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003970: 20 20 20 20 20 20 44 45 53 43 52 49 50 54 4F 52 | DESCRIPTOR| 00003980: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00003990: 20 20 20 20 20 20 20 20 20 20 20 20 42 49 54 20 | BIT | 000039A0: 36 20 2D 20 43 41 4C 4C 20 53 55 42 52 4F 55 54 |6 - CALL SUBROUT| 000039B0: 49 4E 45 2C 20 49 54 20 4D 55 53 54 20 52 45 54 |INE, IT MUST RET| 000039C0: 55 52 4E 20 41 20 52 45 53 55 4C 54 0D 20 20 20 |URN A RESULT. | 000039D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000039E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 | I| 000039F0: 4E 20 24 30 32 2D 24 30 33 20 57 48 49 43 48 20 |N $02-$03 WHICH | 00003A00: 49 53 20 45 49 54 48 45 52 20 30 20 4F 52 20 54 |IS EITHER 0 OR T| 00003A10: 48 45 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |HE. | 00003A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003A30: 20 20 20 20 20 41 44 44 52 45 53 53 20 4F 46 20 | ADDRESS OF | 00003A40: 54 48 45 20 4E 45 58 54 20 53 55 42 4D 45 4E 55 |THE NEXT SUBMENU| 00003A50: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00003A60: 20 20 20 20 20 20 20 20 20 20 20 20 C9 46 20 20 | .F | 00003A70: 4E 45 49 54 48 45 52 20 42 49 54 20 49 53 20 53 |NEITHER BIT IS S| 00003A80: 45 54 2C 20 20 54 48 45 4E 20 57 48 45 4E 20 54 |ET, THEN WHEN T| 00003A90: 48 49 53 20 4F 50 54 49 4F 4E 20 49 53 0D 20 20 |HIS OPTION IS. | 00003AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003AB0: 20 20 20 20 20 20 20 20 53 45 4C 45 43 54 45 44 | SELECTED| 00003AC0: 20 20 49 54 20 20 57 49 4C 4C 20 46 4C 41 53 48 | IT WILL FLASH| 00003AD0: 20 20 42 45 46 4F 52 45 20 20 54 48 45 20 52 4F | BEFORE THE RO| 00003AE0: 55 54 49 4E 45 20 20 49 53 0D 20 20 20 20 20 20 |UTINE IS. | 00003AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003B00: 20 20 20 20 45 58 45 43 55 54 45 44 2E 20 20 C3 | EXECUTED. .| 00003B10: 4F 4E 54 52 4F 4C 20 20 44 4F 45 53 20 4E 4F 54 |ONTROL DOES NOT| 00003B20: 20 52 45 54 55 52 4E 20 54 4F 20 20 54 48 45 20 | RETURN TO THE | 00003B30: 20 4D 45 4E 55 0D 20 20 20 20 20 20 20 20 20 20 | MENU. | 00003B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003B50: 50 52 4F 43 45 53 53 4F 52 2E 0D 20 20 20 20 20 |PROCESSOR.. | 00003B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 20 20 | 2 | 00003B70: 20 20 20 20 20 C1 44 44 52 45 53 53 20 4F 46 20 | .DDRESS OF | 00003B80: 45 49 54 48 45 52 20 41 20 53 55 42 4D 45 4E 55 |EITHER A SUBMENU| 00003B90: 20 44 45 53 43 52 49 50 54 4F 52 20 4F 52 20 41 | DESCRIPTOR OR A| 00003BA0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00003BB0: 20 20 20 20 20 20 20 20 20 20 20 52 4F 55 54 49 | ROUTI| 00003BC0: 4E 45 20 54 4F 20 42 45 20 45 58 45 43 55 54 45 |NE TO BE EXECUTE| 00003BD0: 44 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |D...............| 00003BE0: 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00003BF0: C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 |.... .ERNAL .OUT| 00003C00: 49 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 20 |INES | 00003C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003C20: 20 20 20 20 20 20 20 20 20 20 31 2D 34 33 0D 0D | 1-43..| 00003C30: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00003C40: 49 4F 4E 20 CE 41 4D 45 3A 20 CD CC D3 D2 0D 20 |ION .AME: ..... | 00003C50: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00003C60: 3A 20 31 36 20 42 49 54 20 4D 55 4C 54 49 50 4C |: 16 BIT MULTIPL| 00003C70: 45 20 4C 4F 47 49 43 41 4C 20 53 48 49 46 54 20 |E LOGICAL SHIFT | 00003C80: 52 49 47 48 54 53 2E 0D 20 20 20 20 20 20 20 20 |RIGHTS.. | 00003C90: 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 | .ALL ADDRESS: | 00003CA0: 24 C3 32 36 32 0D 20 20 20 20 20 20 20 20 20 20 |$.262. | 00003CB0: C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E |.NPUT REQUIREMEN| 00003CC0: 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TS:. | 00003CD0: 20 20 20 D9 20 20 20 20 20 20 20 20 20 D4 48 45 | . .HE| 00003CE0: 20 53 48 49 46 54 20 43 4F 55 4E 54 2E 0D 20 20 | SHIFT COUNT.. | 00003CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 D8 20 20 | . | 00003D00: 20 20 20 20 20 20 20 D4 48 45 20 41 44 44 52 45 | .HE ADDRE| 00003D10: 53 53 20 4F 46 20 54 48 45 20 31 36 20 42 49 54 |SS OF THE 16 BIT| 00003D20: 20 56 41 4C 55 45 20 54 4F 20 42 45 20 53 48 49 | VALUE TO BE SHI| 00003D30: 46 54 45 44 2E 0D 20 20 20 20 20 20 20 20 20 20 |FTED.. | 00003D40: CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 |.UTPUT:. | 00003D50: 20 20 20 20 20 20 20 D8 20 20 20 20 20 20 20 20 | . | 00003D60: 20 D2 45 53 55 4C 54 20 4F 46 20 53 48 49 46 54 | .ESULT OF SHIFT| 00003D70: 53 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |S... .E| 00003D80: 53 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 |SCRIPTION: .HIS | 00003D90: 52 4F 55 54 49 4E 45 20 49 53 20 4F 4E 45 20 4F |ROUTINE IS ONE O| 00003DA0: 46 20 54 48 45 20 C7 C5 CF D3 20 4D 41 54 48 20 |F THE .... MATH | 00003DB0: 52 4F 55 54 49 4E 45 53 2E 20 D8 20 48 41 53 0D |ROUTINES. . HAS.| 00003DC0: 20 20 20 20 20 20 20 20 20 20 54 48 45 20 20 41 | THE A| 00003DD0: 44 44 52 45 53 53 20 20 4F 46 20 41 20 31 36 20 |DDRESS OF A 16 | 00003DE0: 42 49 54 20 49 4E 54 45 47 45 52 20 49 4E 20 5A |BIT INTEGER IN Z| 00003DF0: 45 52 4F 20 50 41 47 45 2C 20 20 57 48 49 43 48 |ERO PAGE, WHICH| 00003E00: 20 49 53 20 20 54 4F 20 20 42 45 0D 20 20 20 20 | IS TO BE. | 00003E10: 20 20 20 20 20 20 53 48 49 46 54 45 44 20 52 49 | SHIFTED RI| 00003E20: 47 48 54 20 42 59 20 54 48 45 20 43 4F 55 4E 54 |GHT BY THE COUNT| 00003E30: 20 49 4E 20 D9 2E 0D 0D 0D 20 20 20 20 20 20 20 | IN ..... | 00003E40: 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 | .UNCTION .AME| 00003E50: 3A 20 CD CF D5 D3 CF C6 0D 20 20 20 20 20 20 20 |: ....... | 00003E60: 20 20 20 D0 55 52 50 4F 53 45 3A 20 D4 55 52 4E | .URPOSE: .URN| 00003E70: 53 20 4F 46 46 20 54 48 45 20 4D 4F 55 53 45 2E |S OFF THE MOUSE.| 00003E80: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00003E90: 41 44 44 52 45 53 53 3A 20 24 C3 31 38 C4 0D 0D |ADDRESS: $.18...| 00003EA0: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00003EB0: 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F |PTION: .HIS RO| 00003EC0: 55 54 49 4E 45 20 20 52 45 53 45 54 53 20 42 49 |UTINE RESETS BI| 00003ED0: 54 20 37 20 4F 46 20 20 4C 4F 43 41 54 49 4F 4E |T 7 OF LOCATION| 00003EE0: 20 20 24 33 30 2C 20 20 41 4E 44 0D 20 20 20 20 | $30, AND. | 00003EF0: 20 20 20 20 20 20 41 43 54 55 41 4C 4C 59 20 54 | ACTUALLY T| 00003F00: 55 52 4E 53 20 4F 46 46 20 54 48 45 20 4D 4F 55 |URNS OFF THE MOU| 00003F10: 53 45 20 53 50 52 49 54 45 2E 0D 0D 0D 20 20 20 |SE SPRITE.... | 00003F20: 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 | .UNCTION | 00003F30: CE 41 4D 45 3A 20 CD CF D5 D3 CF CE 0D 20 20 20 |.AME: ....... | 00003F40: 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 | .URPOSE: | 00003F50: D4 55 52 4E 53 20 4F 4E 20 54 48 45 20 4D 4F 55 |.URNS ON THE MOU| 00003F60: 53 45 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |SE.. .A| 00003F70: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 38 |LL ADDRESS: $.18| 00003F80: C1 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00003F90: 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 |CRIPTION: .HIS | 00003FA0: 20 52 4F 55 54 49 4E 45 20 20 53 45 54 53 20 20 | ROUTINE SETS | 00003FB0: 42 49 54 20 37 20 20 4F 46 20 20 4C 4F 43 41 54 |BIT 7 OF LOCAT| 00003FC0: 49 4F 4E 20 20 24 33 30 2E 20 20 D4 48 45 0D 20 |ION $30. .HE. | 00003FD0: 20 20 20 20 20 20 20 20 20 49 4E 54 45 52 52 55 | INTERRU| 00003FE0: 50 54 20 52 4F 55 54 49 4E 45 53 20 57 49 4C 4C |PT ROUTINES WILL| 00003FF0: 20 54 55 52 4E 20 4F 4E 20 54 48 45 20 4D 4F 55 | TURN ON THE MOU| 00004000: 53 45 20 57 48 45 4E 20 49 54 20 54 52 49 45 53 |SE WHEN IT TRIES| 00004010: 20 54 4F 20 55 50 44 41 54 45 0D 20 20 20 20 20 | TO UPDATE. | 00004020: 20 20 20 20 20 49 54 53 20 50 4F 53 49 54 49 4F | ITS POSITIO| 00004030: 4E 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |N.... .| 00004040: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 CE C5 |UNCTION .AME: ..| 00004050: C7 31 36 0D 20 20 20 20 20 20 20 20 20 20 D0 55 |.16. .U| 00004060: 52 50 4F 53 45 3A 20 CE 45 47 41 54 45 53 20 41 |RPOSE: .EGATES A| 00004070: 20 31 36 20 42 49 54 20 56 41 4C 55 45 2E 0D 20 | 16 BIT VALUE.. | 00004080: 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 | .ALL AD| 00004090: 44 52 45 53 53 3A 20 24 C3 31 37 32 0D 20 20 20 |DRESS: $.172. | 000040A0: 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 51 | .NPUT REQ| 000040B0: 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 20 |UIREMENTS:. | 000040C0: 20 20 20 20 20 20 20 20 20 20 D8 20 20 20 20 20 | . | 000040D0: 20 20 20 20 D4 48 45 20 41 44 44 52 45 53 53 20 | .HE ADDRESS | 000040E0: 4F 46 20 54 48 45 20 31 36 20 42 49 54 20 49 4E |OF THE 16 BIT IN| 000040F0: 54 45 47 45 52 0D 20 20 20 20 20 20 20 20 20 20 |TEGER. | 00004100: CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 |.UTPUT:. | 00004110: 20 20 20 20 20 20 20 D8 20 20 20 20 20 20 20 20 | . | 00004120: 20 D4 48 45 20 41 44 44 52 45 53 53 20 4F 46 20 | .HE ADDRESS OF | 00004130: 54 48 45 20 31 36 20 42 49 54 20 52 45 53 55 4C |THE 16 BIT RESUL| 00004140: 54 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |T... .E| 00004150: 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 |SCRIPTION: .HIS| 00004160: 20 20 52 4F 55 54 49 4E 45 20 49 53 20 4F 4E 45 | ROUTINE IS ONE| 00004170: 20 4F 46 20 54 48 45 20 C7 C5 CF D3 20 4D 41 54 | OF THE .... MAT| 00004180: 48 20 20 52 4F 55 54 49 4E 45 53 2E 20 20 D8 0D |H ROUTINES. ..| 00004190: 20 20 20 20 20 20 20 20 20 20 50 4F 49 4E 54 53 | POINTS| 000041A0: 20 54 4F 20 41 20 31 36 20 42 49 54 20 56 41 4C | TO A 16 BIT VAL| 000041B0: 55 45 20 57 48 49 43 48 20 49 53 20 4E 45 47 41 |UE WHICH IS NEGA| 000041C0: 54 45 44 2E 20 20 D4 48 45 20 56 41 4C 55 45 20 |TED. .HE VALUE | 000041D0: 4F 46 20 D8 20 49 53 20 4E 4F 54 0D 20 20 20 20 |OF . IS NOT. | 000041E0: 20 20 20 20 20 20 41 46 46 45 43 54 45 44 2E 0D | AFFECTED..| 000041F0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00004200: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 |..... .| 00004210: C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 |... .ERNAL .OUTI| 00004220: 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |NES | 00004230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004240: 20 20 20 20 20 20 20 20 20 31 2D 34 34 0D 0D 0D | 1-44...| 00004250: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00004260: 4F 4E 20 CE 41 4D 45 3A 20 CE C5 D8 D4 0D 20 20 |ON .AME: ..... | 00004270: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00004280: 20 CD 4F 56 45 20 54 4F 20 4E 45 58 54 20 D6 CC | .OVE TO NEXT ..| 00004290: C9 D2 20 43 48 41 49 4E 2E 0D 20 20 20 20 20 20 |.. CHAIN.. | 000042A0: 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 | .ALL ADDRESS| 000042B0: 3A 20 24 C3 32 37 C1 0D 20 20 20 20 20 20 20 20 |: $.27.. | 000042C0: 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 20 20 20 | .UTPUT:. | 000042D0: 20 20 20 20 20 20 20 20 20 D9 20 20 20 20 20 20 | . | 000042E0: 20 20 20 D4 52 41 43 4B 20 4F 46 20 D6 CC C9 D2 | .RACK OF ....| 000042F0: 20 43 48 41 49 4E 2E 0D 20 20 20 20 20 20 20 20 | CHAIN.. | 00004300: 20 20 20 20 20 20 20 24 30 34 20 20 20 20 20 20 | $04 | 00004310: 20 D4 52 41 43 4B 20 4F 46 20 D6 CC C9 D2 20 43 | .RACK OF .... C| 00004320: 48 41 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 |HAIN.. | 00004330: 20 20 20 20 20 24 30 35 20 20 20 20 20 20 20 D3 | $05 .| 00004340: 45 43 54 4F 52 20 4F 46 20 D6 CC C9 D2 20 43 48 |ECTOR OF .... CH| 00004350: 41 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |AIN.. | 00004360: 20 20 20 20 24 38 34 39 36 20 20 20 20 20 C9 4E | $8496 .N| 00004370: 43 52 45 4D 45 4E 54 45 44 20 42 59 20 31 2E 0D |CREMENTED BY 1..| 00004380: 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 | .REPAR| 00004390: 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 |ATORY ROUTINES: | 000043A0: D6 CF D0 C5 CE 0D 20 20 20 20 20 20 20 20 20 20 |...... | 000043B0: C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 45 |.RRORS: .EE .PPE| 000043C0: 4E 44 49 58 20 C9 2E 0D 0D 20 20 20 20 20 20 20 |NDIX .... | 000043D0: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 000043E0: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 47 45 | .HIS ROUTINE GE| 000043F0: 54 53 20 54 48 45 20 54 52 41 43 4B 20 41 4E 44 |TS THE TRACK AND| 00004400: 20 53 45 43 54 4F 52 20 4F 46 20 54 48 45 20 20 | SECTOR OF THE | 00004410: 4E 45 58 54 0D 20 20 20 20 20 20 20 20 20 20 43 |NEXT. C| 00004420: 48 41 49 4E 20 20 49 4E 20 20 54 48 45 20 4F 50 |HAIN IN THE OP| 00004430: 45 4E 20 D6 CC C9 D2 20 46 49 4C 45 2E 20 20 C9 |EN .... FILE. .| 00004440: 54 20 44 4F 45 53 20 4E 4F 54 20 43 48 45 43 4B |T DOES NOT CHECK| 00004450: 20 54 4F 20 53 45 45 20 20 49 46 20 20 54 48 45 | TO SEE IF THE| 00004460: 0D 20 20 20 20 20 20 20 20 20 20 43 48 41 49 4E |. CHAIN| 00004470: 20 45 58 49 53 54 53 20 28 49 45 2E 20 54 52 41 | EXISTS (IE. TRA| 00004480: 43 4B 20 49 53 20 5A 45 52 4F 29 2E 20 20 C9 54 |CK IS ZERO). .T| 00004490: 20 44 4F 45 53 20 43 48 45 43 4B 20 49 46 20 54 | DOES CHECK IF T| 000044A0: 48 49 53 20 43 48 41 49 4E 20 49 53 0D 20 20 20 |HIS CHAIN IS. | 000044B0: 20 20 20 20 20 20 20 49 4E 20 52 41 4E 47 45 20 | IN RANGE | 000044C0: 28 41 47 41 49 4E 53 54 20 24 38 34 39 37 29 2E |(AGAINST $8497).| 000044D0: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E |... .UN| 000044E0: 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 CE D5 CD C2 |CTION .AME: ....| 000044F0: CC CB 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 |... .UR| 00004500: 50 4F 53 45 3A 20 C3 4F 55 4E 54 53 20 54 48 45 |POSE: .OUNTS THE| 00004510: 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 45 20 | NUMBER OF FREE | 00004520: 42 4C 4F 43 4B 53 20 49 4E 20 54 48 45 20 C2 C1 |BLOCKS IN THE ..| 00004530: CD 20 54 48 41 54 20 49 53 20 49 4E 0D 20 20 20 |. THAT IS IN. | 00004540: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004550: D2 C1 CD 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 |..... .| 00004560: 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 |ALL ADDRESS: $.1| 00004570: C4 C2 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 |... .NP| 00004580: 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A |UT REQUIREMENTS:| 00004590: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000045A0: 24 30 C3 2D 24 30 C4 20 20 20 D0 4F 49 4E 54 45 |$0.-$0. .OINTE| 000045B0: 52 20 54 4F 20 42 55 46 46 45 52 20 57 49 54 48 |R TO BUFFER WITH| 000045C0: 20 54 52 41 43 4B 20 31 38 20 53 45 43 54 4F 52 | TRACK 18 SECTOR| 000045D0: 20 30 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 | 0.. .U| 000045E0: 54 50 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 |TPUT:. | 000045F0: 20 20 20 20 20 24 30 C1 2D 24 30 C2 20 20 20 D4 | $0.-$0. .| 00004600: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 46 52 45 |HE NUMBER OF FRE| 00004610: 45 20 42 4C 4F 43 4B 53 2E 0D 20 20 20 20 20 20 |E BLOCKS.. | 00004620: 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 | .REPARATORY | 00004630: 52 4F 55 54 49 4E 45 53 3A 20 D2 C4 31 38 30 0D |ROUTINES: ..180.| 00004640: 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 |. .ESCR| 00004650: 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 20 52 |IPTION: .HIS R| 00004660: 4F 55 54 49 4E 45 20 45 58 50 45 43 54 53 20 54 |OUTINE EXPECTS T| 00004670: 48 41 54 20 54 48 45 20 C2 C1 CD 20 48 41 53 20 |HAT THE ... HAS | 00004680: 41 4C 52 45 41 44 59 20 42 45 45 4E 0D 20 20 20 |ALREADY BEEN. | 00004690: 20 20 20 20 20 20 20 52 45 41 44 20 49 4E 54 4F | READ INTO| 000046A0: 20 4D 45 4D 4F 52 59 2E 20 20 C1 4C 4C 20 54 48 | MEMORY. .LL TH| 000046B0: 41 54 20 49 54 20 44 4F 45 53 20 49 53 20 41 44 |AT IT DOES IS AD| 000046C0: 44 20 55 50 20 54 48 45 20 4E 55 4D 42 45 52 20 |D UP THE NUMBER | 000046D0: 4F 46 20 20 46 52 45 45 0D 20 20 20 20 20 20 20 |OF FREE. | 000046E0: 20 20 20 42 4C 4F 43 4B 53 20 49 4E 20 45 41 43 | BLOCKS IN EAC| 000046F0: 48 20 54 52 41 43 4B 2E 0D 0D 0D 20 20 20 20 20 |H TRACK.... | 00004700: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 00004710: 4D 45 3A 20 CF D0 CE C4 D3 CB 0D 20 20 20 20 20 |ME: ....... | 00004720: 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 CF 50 | .URPOSE: .P| 00004730: 45 4E 53 20 41 20 44 49 53 4B 20 54 4F 20 C7 C5 |ENS A DISK TO ..| 00004740: CF D3 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |.... .A| 00004750: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 C1 |LL ADDRESS: $.2.| 00004760: 31 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |1. .NPU| 00004770: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 00004780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00004790: 38 34 38 39 20 20 20 20 20 C3 55 52 52 45 4E 54 |8489 .URRENT| 000047A0: 20 44 52 49 56 45 20 4E 55 4D 42 45 52 2E 0D 20 | DRIVE NUMBER.. | 000047B0: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 000047C0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000047D0: 24 38 34 38 C2 20 20 20 20 20 24 30 30 2F 24 C6 |$848. $00/$.| 000047E0: C6 20 C7 45 4F 53 20 46 4F 52 4D 41 54 20 4F 52 |. .EOS FORMAT OR| 000047F0: 20 4E 4F 54 2E 0D 20 20 20 20 20 20 20 20 20 20 | NOT.. | 00004800: 20 20 20 20 20 24 38 34 31 C5 2D 24 38 34 36 35 | $841.-$8465| 00004810: 20 C1 50 50 52 4F 50 52 49 41 54 45 20 42 55 46 | .PPROPRIATE BUF| 00004820: 46 45 52 20 57 49 4C 4C 20 48 41 56 45 20 44 49 |FER WILL HAVE DI| 00004830: 53 4B 27 53 20 4E 41 4D 45 2E 0D 20 20 20 20 20 |SK'S NAME.. | 00004840: 20 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 45 | .RRORS: .EE| 00004850: 20 C1 50 50 45 4E 44 49 58 20 C9 2E 0D 0D 20 20 | .PPENDIX .... | 00004860: 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 | .ESCRIPT| 00004870: 49 4F 4E 3A 20 20 D4 48 45 20 43 55 52 52 45 4E |ION: .HE CURREN| 00004880: 54 20 44 52 49 56 45 20 49 53 20 49 4E 49 54 49 |T DRIVE IS INITI| 00004890: 41 4C 49 5A 45 44 20 42 59 20 43 41 4C 4C 49 4E |ALIZED BY CALLIN| 000048A0: 47 20 C9 CE C9 D4 C4 D6 2E 0D 20 20 20 20 20 20 |G ........ | 000048B0: 20 20 20 20 C7 C5 CF D3 20 20 46 4F 52 4D 41 54 | .... FORMAT| 000048C0: 20 49 53 20 43 48 45 43 4B 45 44 20 46 4F 52 2C | IS CHECKED FOR,| 000048D0: 20 20 41 4E 44 20 54 48 45 20 44 49 53 4B 27 53 | AND THE DISK'S| 000048E0: 20 4E 41 4D 45 20 49 53 20 43 4F 50 49 45 44 20 | NAME IS COPIED | 000048F0: 20 49 4E 54 4F 0D 20 20 20 20 20 20 20 20 20 20 | INTO. | 00004900: 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 |THE APPROPRIATE | 00004910: 42 55 46 46 45 52 20 41 54 20 24 38 34 31 C5 2D |BUFFER AT $841.-| 00004920: 24 38 34 36 35 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |$8465...........| 00004930: 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 |......... | 00004940: 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 | .... .ERNAL .| 00004950: 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 |OUTINES | 00004960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004970: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 34 | 1-4| 00004980: 35 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |5... .U| 00004990: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 CF D0 CE |NCTION .AME: ...| 000049A0: D3 C5 D2 0D 20 20 20 20 20 20 20 20 20 20 D0 55 |.... .U| 000049B0: 52 50 4F 53 45 3A 20 CF 50 45 4E 20 53 45 52 49 |RPOSE: .PEN SERI| 000049C0: 41 4C 20 43 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E |AL COMMUNICATION| 000049D0: 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C |.. .ALL| 000049E0: 20 41 44 44 52 45 53 53 3A 20 24 C3 32 35 C3 0D | ADDRESS: $.25..| 000049F0: 20 20 20 20 20 20 20 20 20 20 C5 52 52 4F 52 53 | .RRORS| 00004A00: 3A 20 D3 45 45 20 C1 50 50 45 4E 44 49 58 20 C9 |: .EE .PPENDIX .| 00004A10: 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00004A20: 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 |CRIPTION: .HIS | 00004A30: 20 52 4F 55 54 49 4E 45 20 53 45 54 53 20 55 50 | ROUTINE SETS UP| 00004A40: 20 54 48 45 20 C9 2F CF 20 50 4F 52 54 53 20 46 | THE ./. PORTS F| 00004A50: 4F 52 20 48 49 47 48 20 20 53 50 45 45 44 0D 20 |OR HIGH SPEED. | 00004A60: 20 20 20 20 20 20 20 20 20 53 45 52 49 41 4C 20 | SERIAL | 00004A70: 43 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 20 57 49 |COMMUNICATION WI| 00004A80: 54 48 20 54 48 45 20 44 49 53 4B 20 44 52 49 56 |TH THE DISK DRIV| 00004A90: 45 53 2E 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 |ES. .HIS ROUTINE| 00004AA0: 20 49 53 20 43 41 4C 4C 45 44 0D 20 20 20 20 20 | IS CALLED. | 00004AB0: 20 20 20 20 20 50 52 49 4F 52 20 54 4F 20 43 41 | PRIOR TO CA| 00004AC0: 4C 4C 49 4E 47 20 D2 C5 C1 C4 32 2C 20 D7 D2 C9 |LLING ....2, ...| 00004AD0: D4 C5 32 20 4F 52 20 C3 D7 D2 C9 D4 C5 2E 0D 0D |..2 OR .........| 00004AE0: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00004AF0: 49 4F 4E 20 CE 41 4D 45 3A 20 D0 C2 CF D8 0D 20 |ION .AME: ..... | 00004B00: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00004B10: 3A 20 C4 52 41 57 53 20 54 48 45 20 4F 55 54 4C |: .RAWS THE OUTL| 00004B20: 49 4E 45 20 4F 46 20 41 20 52 45 43 54 41 4E 47 |INE OF A RECTANG| 00004B30: 55 4C 41 52 20 42 4F 58 20 49 4E 20 41 20 47 49 |ULAR BOX IN A GI| 00004B40: 56 45 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |VEN. | 00004B50: 20 20 20 20 20 20 20 50 41 54 54 45 52 4E 2E 0D | PATTERN..| 00004B60: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00004B70: 44 44 52 45 53 53 3A 20 24 C3 31 32 37 0D 20 20 |DDRESS: $.127. | 00004B80: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00004B90: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 00004BA0: 20 20 20 20 20 20 20 20 20 20 20 C1 20 20 20 20 | . | 00004BB0: 20 20 20 20 20 D4 48 45 20 41 43 54 55 41 4C 20 | .HE ACTUAL | 00004BC0: 42 49 54 20 50 41 54 54 45 52 4E 20 46 4F 52 20 |BIT PATTERN FOR | 00004BD0: 54 48 45 20 42 4F 58 2E 0D 20 20 20 20 20 20 20 |THE BOX.. | 00004BE0: 20 20 20 20 20 20 20 20 24 30 36 20 20 20 20 20 | $06 | 00004BF0: 20 20 D4 48 45 20 54 4F 50 20 4D 41 52 47 49 4E | .HE TOP MARGIN| 00004C00: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00004C10: 20 24 30 37 20 20 20 20 20 20 20 D4 48 45 20 42 | $07 .HE B| 00004C20: 4F 54 54 4F 4D 20 4D 41 52 47 49 4E 2E 0D 20 20 |OTTOM MARGIN.. | 00004C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 38 | $08| 00004C40: 2D 24 30 39 20 20 20 D4 48 45 20 4C 45 46 54 20 |-$09 .HE LEFT | 00004C50: 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 20 20 20 |MARGIN.. | 00004C60: 20 20 20 20 20 20 20 24 30 C1 2D 24 30 C2 20 20 | $0.-$0. | 00004C70: 20 D4 48 45 20 52 49 47 48 54 20 4D 41 52 47 49 | .HE RIGHT MARGI| 00004C80: 4E 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |N... .E| 00004C90: 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 |SCRIPTION: .HIS| 00004CA0: 20 52 4F 55 54 49 4E 45 20 44 52 41 57 53 20 54 | ROUTINE DRAWS T| 00004CB0: 48 45 20 4F 55 54 4C 49 4E 45 20 4F 46 20 41 20 |HE OUTLINE OF A | 00004CC0: 52 45 43 54 41 4E 47 55 4C 41 52 20 42 4F 58 0D |RECTANGULAR BOX.| 00004CD0: 20 20 20 20 20 20 20 20 20 20 49 4E 20 20 41 20 | IN A | 00004CE0: 47 49 56 45 4E 20 50 41 54 54 45 52 4E 2E 20 20 |GIVEN PATTERN. | 00004CF0: D4 48 49 53 20 52 4F 55 54 49 4E 45 20 43 41 4C |.HIS ROUTINE CAL| 00004D00: 4C 53 20 C8 CC C9 CE C5 20 41 4E 44 20 D6 CC C9 |LS ..... AND ...| 00004D10: CE C5 20 54 4F 20 20 44 52 41 57 0D 20 20 20 20 |.. TO DRAW. | 00004D20: 20 20 20 20 20 20 54 48 45 20 4F 55 54 4C 49 4E | THE OUTLIN| 00004D30: 45 2E 20 D3 45 45 20 41 4C 53 4F 20 D2 CF D7 C1 |E. .EE ALSO ....| 00004D40: C4 D2 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00004D50: C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D0 |.UNCTION .AME: .| 00004D60: C2 CF D8 32 0D 20 20 20 20 20 20 20 20 20 20 D0 |...2. .| 00004D70: 55 52 50 4F 53 45 3A 20 C9 44 45 4E 54 49 43 41 |URPOSE: .DENTICA| 00004D80: 4C 20 54 4F 20 D0 C2 CF D8 2C 20 42 55 54 20 57 |L TO ...., BUT W| 00004D90: 49 54 48 20 49 4E 4C 49 4E 45 20 44 41 54 41 2E |ITH INLINE DATA.| 00004DA0: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00004DB0: 41 44 44 52 45 53 53 3A 20 24 C3 31 C1 32 0D 0D |ADDRESS: $.1.2..| 00004DC0: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00004DD0: 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F 55 |PTION: .HIS ROU| 00004DE0: 54 49 4E 45 20 44 52 41 57 53 20 41 20 53 4F 4C |TINE DRAWS A SOL| 00004DF0: 49 44 20 4F 55 54 4C 49 4E 45 20 4F 46 20 41 20 |ID OUTLINE OF A | 00004E00: 42 4F 58 2C 20 20 57 48 49 43 48 0D 20 20 20 20 |BOX, WHICH. | 00004E10: 20 20 20 20 20 20 49 53 20 44 45 53 43 52 49 42 | IS DESCRIB| 00004E20: 45 44 20 42 59 20 49 4E 4C 49 4E 45 20 43 4F 44 |ED BY INLINE COD| 00004E30: 45 2E 20 D3 45 45 20 D0 C6 C9 CC CC 32 20 46 4F |E. .EE .....2 FO| 00004E40: 52 20 41 4E 20 45 58 41 4D 50 4C 45 2E 0D 0D 0D |R AN EXAMPLE....| 00004E50: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00004E60: 4F 4E 20 CE 41 4D 45 3A 20 D0 C5 D2 CD C9 D4 0D |ON .AME: .......| 00004E70: 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 | .URPOS| 00004E80: 45 3A 20 C5 4E 41 42 4C 45 53 20 54 48 45 20 45 |E: .NABLES THE E| 00004E90: 58 45 43 55 54 49 4F 4E 20 4F 46 20 41 20 54 49 |XECUTION OF A TI| 00004EA0: 4D 45 44 20 45 56 45 4E 54 2E 0D 20 20 20 20 20 |MED EVENT.. | 00004EB0: 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 | .ALL ADDRES| 00004EC0: 53 3A 20 24 C3 31 30 C6 0D 20 20 20 20 20 20 20 |S: $.10.. | 00004ED0: 20 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 | .NPUT REQUIRE| 00004EE0: 4D 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 |MENTS:. | 00004EF0: 20 20 20 20 20 20 D8 20 20 20 20 20 20 20 20 20 | . | 00004F00: D4 48 45 20 49 4E 44 45 58 20 49 4E 54 4F 20 54 |.HE INDEX INTO T| 00004F10: 48 45 20 43 4F 4D 4D 41 4E 44 20 54 41 42 4C 45 |HE COMMAND TABLE| 00004F20: 20 41 54 20 24 38 37 31 39 2E 0D 20 20 20 20 20 | AT $8719.. | 00004F30: 20 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 | .REPARATORY| 00004F40: 20 52 4F 55 54 49 4E 45 53 3A 20 C3 CD C4 D4 C2 | ROUTINES: .....| 00004F50: CC 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 |... .ES| 00004F60: 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 |CRIPTION: .HIS R| 00004F70: 4F 55 54 49 4E 45 20 52 45 53 45 54 53 20 42 49 |OUTINE RESETS BI| 00004F80: 54 20 36 20 4F 46 20 41 20 53 50 45 43 49 46 49 |T 6 OF A SPECIFI| 00004F90: 43 20 43 4F 4D 4D 41 4E 44 20 42 59 54 45 0D 20 |C COMMAND BYTE. | 00004FA0: 20 20 20 20 20 20 20 20 20 49 4E 20 20 54 48 45 | IN THE| 00004FB0: 20 54 41 42 4C 45 20 41 54 20 24 38 37 31 39 2E | TABLE AT $8719.| 00004FC0: 20 20 D4 48 49 53 20 41 4C 4C 4F 57 53 20 54 48 | .HIS ALLOWS TH| 00004FD0: 45 20 41 53 53 4F 43 49 41 54 45 44 20 52 4F 55 |E ASSOCIATED ROU| 00004FE0: 54 49 4E 45 20 54 4F 20 42 45 0D 20 20 20 20 20 |TINE TO BE. | 00004FF0: 20 20 20 20 20 45 58 45 43 55 54 45 44 20 57 48 | EXECUTED WH| 00005000: 45 4E 20 49 54 53 20 54 49 4D 45 52 20 52 55 4E |EN ITS TIMER RUN| 00005010: 53 20 4F 55 54 2E 20 20 C9 46 20 54 48 45 20 54 |S OUT. .F THE T| 00005020: 49 4D 45 52 20 48 41 44 20 52 55 4E 20 4F 55 54 |IMER HAD RUN OUT| 00005030: 20 57 48 49 4C 45 0D 20 20 20 20 20 20 20 20 20 | WHILE. | 00005040: 20 54 48 45 20 52 4F 55 54 49 4E 45 20 57 41 53 | THE ROUTINE WAS| 00005050: 20 44 49 53 41 42 4C 45 44 2C 20 20 C7 C5 CF D3 | DISABLED, ....| 00005060: 20 57 49 4C 4C 20 45 58 45 43 55 54 45 20 54 48 | WILL EXECUTE TH| 00005070: 45 20 52 4F 55 54 49 4E 45 20 57 48 45 4E 20 20 |E ROUTINE WHEN | 00005080: 49 54 0D 20 20 20 20 20 20 20 20 20 20 47 45 54 |IT. GET| 00005090: 53 20 54 4F 20 49 54 2E 20 D4 48 49 53 20 49 53 |S TO IT. .HIS IS| 000050A0: 20 54 48 45 20 43 4F 4D 50 4C 45 4D 45 4E 54 20 | THE COMPLEMENT | 000050B0: 54 4F 20 C6 CF D2 C2 C9 C4 2E 0D 0D 0D 0D 0D 0D |TO .............| 000050C0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 |............ | 000050D0: 20 20 20 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 | .... .ERNA| 000050E0: 4C 20 D2 4F 55 54 49 4E 45 53 20 20 20 20 20 20 |L .OUTINES | 000050F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005110: 31 2D 34 36 0D 0D 0D 20 20 20 20 20 20 20 20 20 |1-46... | 00005120: 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 | .UNCTION .AME: | 00005130: D0 C6 C9 CC CC 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00005140: D0 55 52 50 4F 53 45 3A 20 C6 49 4C 4C 53 20 41 |.URPOSE: .ILLS A| 00005150: 20 52 45 43 54 41 4E 47 55 4C 41 52 20 42 4F 58 | RECTANGULAR BOX| 00005160: 20 57 49 54 48 20 41 20 53 45 4C 45 43 54 45 44 | WITH A SELECTED| 00005170: 20 44 45 53 49 47 4E 2E 0D 20 20 20 20 20 20 20 | DESIGN.. | 00005180: 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A | .ALL ADDRESS:| 00005190: 20 24 C3 31 32 34 0D 20 20 20 20 20 20 20 20 20 | $.124. | 000051A0: 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 | .NPUT REQUIREME| 000051B0: 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 |NTS:. | 000051C0: 20 20 20 20 24 30 36 20 20 20 20 20 20 20 D4 48 | $06 .H| 000051D0: 45 20 54 4F 50 20 4D 41 52 47 49 4E 2E 0D 20 20 |E TOP MARGIN.. | 000051E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 37 | $07| 000051F0: 20 20 20 20 20 20 20 D4 48 45 20 42 4F 54 54 4F | .HE BOTTO| 00005200: 4D 20 4D 41 52 47 49 4E 2E 0D 20 20 20 20 20 20 |M MARGIN.. | 00005210: 20 20 20 20 20 20 20 20 20 24 30 38 2D 24 30 39 | $08-$09| 00005220: 20 20 20 D4 48 45 20 4C 45 46 54 20 4D 41 52 47 | .HE LEFT MARG| 00005230: 49 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 |IN.. | 00005240: 20 20 20 24 30 C1 2D 24 30 C2 20 20 20 D4 48 45 | $0.-$0. .HE| 00005250: 20 52 49 47 48 54 20 4D 41 52 47 49 4E 2E 0D 20 | RIGHT MARGIN.. | 00005260: 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 41 | .REPARA| 00005270: 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 D3 |TORY ROUTINES: .| 00005280: C5 D4 D0 C1 D4 0D 0D 20 20 20 20 20 20 20 20 20 |....... | 00005290: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 000052A0: 48 49 53 20 20 52 4F 55 54 49 4E 45 20 20 46 49 |HIS ROUTINE FI| 000052B0: 4C 4C 53 20 41 20 52 45 43 54 41 4E 47 55 4C 41 |LLS A RECTANGULA| 000052C0: 52 20 42 4F 58 20 49 4E 20 20 41 20 20 47 49 56 |R BOX IN A GIV| 000052D0: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 44 45 53 |EN. DES| 000052E0: 49 47 4E 2E 20 20 D4 48 49 53 20 52 4F 55 54 49 |IGN. .HIS ROUTI| 000052F0: 4E 45 20 43 41 4C 4C 53 20 C8 CC C9 CE C5 20 52 |NE CALLS ..... R| 00005300: 45 50 45 41 54 45 44 4C 59 2E 20 D3 45 45 20 41 |EPEATEDLY. .EE A| 00005310: 4C 53 4F 20 D2 CF D7 C1 C4 D2 2E 0D 0D 0D 20 20 |LSO .......... | 00005320: 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E | .UNCTION| 00005330: 20 CE 41 4D 45 3A 20 D0 C6 C9 CC CC 32 0D 20 20 | .AME: .....2. | 00005340: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00005350: 20 C9 44 45 4E 54 49 43 41 4C 20 54 4F 20 D0 C6 | .DENTICAL TO ..| 00005360: C9 CC CC 2C 20 42 55 54 20 57 49 54 48 20 49 4E |..., BUT WITH IN| 00005370: 4C 49 4E 45 20 44 41 54 41 2E 0D 20 20 20 20 20 |LINE DATA.. | 00005380: 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 | .ALL ADDRES| 00005390: 53 3A 20 24 C3 31 39 C6 0D 20 20 20 20 20 20 20 |S: $.19.. | 000053A0: 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 | .REPARATORY R| 000053B0: 4F 55 54 49 4E 45 53 3A 20 D3 C5 D4 D0 C1 D4 0D |OUTINES: .......| 000053C0: 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 |. .ESCR| 000053D0: 49 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 52 4F |IPTION: .HIS RO| 000053E0: 55 54 49 4E 45 20 49 53 20 49 44 45 4E 54 49 43 |UTINE IS IDENTIC| 000053F0: 41 4C 20 54 4F 20 D0 C6 C9 CC CC 20 45 58 43 45 |AL TO ..... EXCE| 00005400: 50 54 20 54 48 41 54 20 44 41 54 41 0D 20 20 20 |PT THAT DATA. | 00005410: 20 20 20 20 20 20 20 54 48 41 54 20 44 45 53 43 | THAT DESC| 00005420: 52 49 42 45 53 20 54 48 45 20 42 4F 58 20 49 53 |RIBES THE BOX IS| 00005430: 20 50 41 52 54 20 4F 46 20 54 48 45 20 49 4E 4C | PART OF THE INL| 00005440: 49 4E 45 20 43 4F 44 45 2E 20 20 C6 4F 52 20 45 |INE CODE. .OR E| 00005450: 58 41 4D 50 4C 45 3A 0D 20 20 20 20 20 20 20 20 |XAMPLE:. | 00005460: 20 20 20 20 20 20 20 20 CA D3 D2 20 D0 C6 C9 CC | ... ....| 00005470: CC 32 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |.2. | 00005480: 20 20 2E C2 D9 D4 C5 20 D4 4F 50 20 4D 41 52 47 | ..... .OP MARG| 00005490: 49 4E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |IN. | 000054A0: 20 20 2E C2 D9 D4 C5 20 C2 4F 54 54 4F 4D 20 4D | ..... .OTTOM M| 000054B0: 41 52 47 49 4E 0D 20 20 20 20 20 20 20 20 20 20 |ARGIN. | 000054C0: 20 20 20 20 20 2E D7 CF D2 C4 20 CC 45 46 54 20 | ..... .EFT | 000054D0: 4D 41 52 47 49 4E 0D 20 20 20 20 20 20 20 20 20 |MARGIN. | 000054E0: 20 20 20 20 20 20 2E D7 CF D2 C4 20 D2 49 47 48 | ..... .IGH| 000054F0: 54 20 4D 41 52 47 49 4E 0D 20 20 20 20 20 20 20 |T MARGIN. | 00005500: 20 20 20 20 20 20 20 20 C3 4F 4E 54 52 4F 4C 20 | .ONTROL | 00005510: 52 45 54 55 52 4E 53 20 48 45 52 45 20 41 46 54 |RETURNS HERE AFT| 00005520: 45 52 20 42 4F 58 20 49 53 20 46 49 4C 4C 45 44 |ER BOX IS FILLED| 00005530: 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |.... .U| 00005540: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D0 CC CF |NCTION .AME: ...| 00005550: D4 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 |.. .URP| 00005560: 4F 53 45 3A 20 C4 52 41 57 53 2C 20 45 52 41 53 |OSE: .RAWS, ERAS| 00005570: 45 53 20 4F 52 20 43 4F 50 49 45 53 20 41 20 50 |ES OR COPIES A P| 00005580: 49 58 45 4C 20 4F 4E 20 54 48 45 20 48 49 52 45 |IXEL ON THE HIRE| 00005590: 53 20 53 43 52 45 45 4E 2E 0D 20 20 20 20 20 20 |S SCREEN.. | 000055A0: 20 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 | .ALL ADDRESS| 000055B0: 3A 20 24 C3 31 33 33 0D 20 20 20 20 20 20 20 20 |: $.133. | 000055C0: 20 20 C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D | .NPUT REQUIREM| 000055D0: 45 4E 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 |ENTS:. | 000055E0: 20 20 20 20 20 CE 20 46 4C 41 47 20 20 C3 20 C6 | . FLAG . .| 000055F0: 4C 41 47 20 20 20 CF 50 45 52 41 54 49 4F 4E 0D |LAG .PERATION.| 00005600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00005610: 20 20 31 20 20 20 20 20 20 20 D8 20 20 20 20 20 | 1 . | 00005620: C3 4F 50 59 0D 20 20 20 20 20 20 20 20 20 20 20 |.OPY. | 00005630: 20 20 20 20 20 20 20 30 20 20 20 20 20 20 20 31 | 0 1| 00005640: 20 20 20 20 20 C4 52 41 57 0D 20 20 20 20 20 20 | .RAW. | 00005650: 20 20 20 20 20 20 20 20 20 20 20 20 30 20 20 20 | 0 | 00005660: 20 20 20 20 30 20 20 20 20 20 C5 52 41 53 45 0D | 0 .RASE.| 00005670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00005680: 30 38 2D 24 30 39 20 20 20 D4 48 45 20 43 4F 4C |08-$09 .HE COL| 00005690: 55 4D 4E 20 4E 55 4D 42 45 52 2E 0D 20 20 20 20 |UMN NUMBER.. | 000056A0: 20 20 20 20 20 20 20 20 20 20 20 24 31 38 20 20 | $18 | 000056B0: 20 20 20 20 20 D4 48 45 20 52 4F 57 20 4E 55 4D | .HE ROW NUM| 000056C0: 42 45 52 2E 0D 0D 20 20 20 20 20 20 20 20 20 20 |BER... | 000056D0: C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 48 |.ESCRIPTION: .H| 000056E0: 49 53 20 20 49 53 20 41 20 56 45 52 59 20 56 45 |IS IS A VERY VE| 000056F0: 52 53 41 54 49 4C 45 20 52 4F 55 54 49 4E 45 2E |RSATILE ROUTINE.| 00005700: 20 20 C9 54 20 43 41 4E 20 20 43 4F 50 59 20 20 | .T CAN COPY | 00005710: 41 0D 20 20 20 20 20 20 20 20 20 20 50 4F 49 4E |A. POIN| 00005720: 54 20 20 46 52 4F 4D 20 4F 4E 45 20 53 43 52 45 |T FROM ONE SCRE| 00005730: 45 4E 20 54 4F 20 41 4E 4F 54 48 45 52 2C 20 20 |EN TO ANOTHER, | 00005740: 41 53 20 57 45 4C 4C 20 41 53 20 44 52 41 57 20 |AS WELL AS DRAW | 00005750: 4F 52 20 45 52 41 53 45 20 20 49 54 2E 0D 20 20 |OR ERASE IT.. | 00005760: 20 20 20 20 20 20 20 20 D4 48 49 53 20 52 4F 55 | .HIS ROU| 00005770: 54 49 4E 45 20 49 53 20 43 41 4C 4C 45 44 20 42 |TINE IS CALLED B| 00005780: 59 20 CC C9 CE C5 20 54 4F 20 44 52 41 57 20 4C |Y .... TO DRAW L| 00005790: 49 4E 45 53 2E 20 D3 45 45 20 41 4C 53 4F 20 D2 |INES. .EE ALSO .| 000057A0: CF D7 C1 C4 D2 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 000057B0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 |........... | 000057C0: 20 20 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C | .... .ERNAL| 000057D0: 20 D2 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 | .OUTINES | 000057E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000057F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 | 1| 00005800: 2D 34 37 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |-47... | 00005810: C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D0 |.UNCTION .AME: .| 00005820: CF D3 D3 D0 D2 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00005830: D0 55 52 50 4F 53 45 3A 20 D3 45 54 53 20 54 48 |.URPOSE: .ETS TH| 00005840: 45 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 41 20 |E POSITION OF A | 00005850: 53 50 52 49 54 45 2E 0D 20 20 20 20 20 20 20 20 |SPRITE.. | 00005860: 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 | .ALL ADDRESS: | 00005870: 24 C3 31 C3 C6 0D 20 20 20 20 20 20 20 20 20 20 |$.1... | 00005880: C9 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E |.NPUT REQUIREMEN| 00005890: 54 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |TS:. | 000058A0: 20 20 20 24 30 38 20 20 20 20 20 20 20 D3 50 52 | $08 .PR| 000058B0: 49 54 45 20 4E 55 4D 42 45 52 20 28 30 2D 37 29 |ITE NUMBER (0-7)| 000058C0: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000058D0: 20 24 30 C1 2D 24 30 C2 20 20 20 D3 50 52 49 54 | $0.-$0. .PRIT| 000058E0: 45 20 D8 20 50 4F 53 49 54 49 4F 4E 2E 0D 20 20 |E . POSITION.. | 000058F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 C3 | $0.| 00005900: 20 20 20 20 20 20 20 D3 50 52 49 54 45 20 D9 20 | .PRITE . | 00005910: 50 4F 53 49 54 49 4F 4E 2E 0D 20 20 20 20 20 20 |POSITION.. | 00005920: 20 20 20 20 D0 52 45 50 41 52 41 54 4F 52 59 20 | .REPARATORY | 00005930: 52 4F 55 54 49 4E 45 53 3A 20 C3 CF D0 D9 D3 D0 |ROUTINES: ......| 00005940: 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 |.. .ESC| 00005950: 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 4F |RIPTION: .HIS RO| 00005960: 55 54 49 4E 45 20 43 4F 50 49 45 53 20 54 48 45 |UTINE COPIES THE| 00005970: 20 53 50 52 49 54 45 27 53 20 50 4F 53 49 54 49 | SPRITE'S POSITI| 00005980: 4F 4E 20 54 4F 20 54 48 45 20 D6 C9 C3 0D 20 20 |ON TO THE .... | 00005990: 20 20 20 20 20 20 20 20 43 48 49 50 2C 20 20 52 | CHIP, R| 000059A0: 45 4C 49 45 56 49 4E 47 20 54 48 45 20 55 53 45 |ELIEVING THE USE| 000059B0: 52 20 4F 46 20 54 48 45 20 42 55 52 44 45 4E 20 |R OF THE BURDEN | 000059C0: 4F 46 20 48 41 4E 44 4C 49 4E 47 20 54 48 45 20 |OF HANDLING THE | 000059D0: 43 52 4F 53 53 4F 56 45 52 0D 20 20 20 20 20 20 |CROSSOVER. | 000059E0: 20 20 20 20 49 4E 20 54 48 45 20 53 43 52 45 45 | IN THE SCREE| 000059F0: 4E 20 46 52 4F 4D 20 43 4F 4C 55 4D 4E 20 32 35 |N FROM COLUMN 25| 00005A00: 35 20 54 4F 20 43 4F 4C 55 4D 4E 20 32 35 36 2E |5 TO COLUMN 256.| 00005A10: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E |... .UN| 00005A20: 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D0 D2 C5 D6 |CTION .AME: ....| 00005A30: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00005A40: 53 45 3A 20 CD 4F 56 45 20 54 4F 20 50 52 45 56 |SE: .OVE TO PREV| 00005A50: 49 4F 55 53 20 D6 CC C9 D2 20 43 48 41 49 4E 2E |IOUS .... CHAIN.| 00005A60: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00005A70: 41 44 44 52 45 53 53 3A 20 24 C3 32 37 C4 0D 20 |ADDRESS: $.27.. | 00005A80: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 00005A90: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00005AA0: D9 20 20 20 20 20 20 20 20 20 D4 52 41 43 4B 20 |. .RACK | 00005AB0: 4F 46 20 D6 CC C9 D2 20 43 48 41 49 4E 2E 0D 20 |OF .... CHAIN.. | 00005AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00005AD0: 34 20 20 20 20 20 20 20 D4 52 41 43 4B 20 4F 46 |4 .RACK OF| 00005AE0: 20 D6 CC C9 D2 20 43 48 41 49 4E 2E 0D 20 20 20 | .... CHAIN.. | 00005AF0: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 35 20 | $05 | 00005B00: 20 20 20 20 20 20 D3 45 43 54 4F 52 20 4F 46 20 | .ECTOR OF | 00005B10: D6 CC C9 D2 20 43 48 41 49 4E 2E 0D 20 20 20 20 |.... CHAIN.. | 00005B20: 20 20 20 20 20 20 20 20 20 20 20 24 38 34 39 36 | $8496| 00005B30: 20 20 20 20 20 C4 45 43 52 45 4D 45 4E 54 45 44 | .ECREMENTED| 00005B40: 20 42 59 20 31 2E 0D 20 20 20 20 20 20 20 20 20 | BY 1.. | 00005B50: 20 D0 52 45 50 41 52 41 54 4F 52 59 20 52 4F 55 | .REPARATORY ROU| 00005B60: 54 49 4E 45 53 3A 20 D6 CF D0 C5 CE 0D 20 20 20 |TINES: ...... | 00005B70: 20 20 20 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 | .RRORS: .| 00005B80: 45 45 20 C1 50 50 45 4E 44 49 58 20 C9 2E 0D 0D |EE .PPENDIX ....| 00005B90: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 00005BA0: 50 54 49 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F |PTION: .HIS RO| 00005BB0: 55 54 49 4E 45 20 20 47 45 54 53 20 20 54 48 45 |UTINE GETS THE| 00005BC0: 20 54 52 41 43 4B 20 41 4E 44 20 20 53 45 43 54 | TRACK AND SECT| 00005BD0: 4F 52 20 20 4F 46 20 20 54 48 45 0D 20 20 20 20 |OR OF THE. | 00005BE0: 20 20 20 20 20 20 50 52 45 56 49 4F 55 53 20 43 | PREVIOUS C| 00005BF0: 48 41 49 4E 20 49 4E 20 54 48 45 20 4F 50 45 4E |HAIN IN THE OPEN| 00005C00: 20 D6 CC C9 D2 20 46 49 4C 45 2E 20 C9 54 20 44 | .... FILE. .T D| 00005C10: 4F 45 53 20 4E 4F 54 20 43 48 45 43 4B 20 54 4F |OES NOT CHECK TO| 00005C20: 20 53 45 45 20 49 46 0D 20 20 20 20 20 20 20 20 | SEE IF. | 00005C30: 20 20 54 48 45 20 43 48 41 49 4E 20 45 58 49 53 | THE CHAIN EXIS| 00005C40: 54 53 20 28 49 45 2E 20 54 52 41 43 4B 20 49 53 |TS (IE. TRACK IS| 00005C50: 20 5A 45 52 4F 29 2E 20 C9 54 20 44 4F 45 53 20 | ZERO). .T DOES | 00005C60: 43 48 45 43 4B 20 49 46 20 54 48 49 53 20 43 48 |CHECK IF THIS CH| 00005C70: 41 49 4E 0D 20 20 20 20 20 20 20 20 20 20 49 53 |AIN. IS| 00005C80: 20 47 52 45 41 54 45 52 20 54 48 41 4E 20 5A 45 | GREATER THAN ZE| 00005C90: 52 4F 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 |RO.... | 00005CA0: C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D2 |.UNCTION .AME: .| 00005CB0: C1 CE C4 CF CD 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00005CC0: D0 55 52 50 4F 53 45 3A 20 CD 4F 44 49 46 49 45 |.URPOSE: .ODIFIE| 00005CD0: 53 20 54 48 45 20 52 41 4E 44 4F 4D 20 4E 55 4D |S THE RANDOM NUM| 00005CE0: 42 45 52 20 47 45 4E 45 52 41 54 4F 52 20 41 54 |BER GENERATOR AT| 00005CF0: 20 24 38 35 30 C1 2D 24 38 35 30 C2 2E 0D 20 20 | $850.-$850... | 00005D00: 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 44 | .ALL ADD| 00005D10: 52 45 53 53 3A 20 24 C3 31 38 37 0D 20 20 20 20 |RESS: $.187. | 00005D20: 20 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 | .UTPUT:. | 00005D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 38 35 | $85| 00005D40: 30 C1 2D 24 38 35 30 C2 20 20 20 20 CE 45 57 20 |0.-$850. .EW | 00005D50: 53 45 45 44 20 56 41 4C 55 45 2E 0D 0D 20 20 20 |SEED VALUE... | 00005D60: 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 | .ESCRIPTI| 00005D70: 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 |ON: .HIS ROUTI| 00005D80: 4E 45 20 43 48 41 4E 47 45 53 20 54 48 45 20 31 |NE CHANGES THE 1| 00005D90: 36 20 42 49 54 20 52 41 4E 44 4F 4D 20 20 4E 55 |6 BIT RANDOM NU| 00005DA0: 4D 42 45 52 20 20 41 54 0D 20 20 20 20 20 20 20 |MBER AT. | 00005DB0: 20 20 20 24 38 35 30 C1 2D 24 38 35 30 C2 2C 20 | $850.-$850., | 00005DC0: 55 53 49 4E 47 20 41 20 53 49 4D 50 4C 45 20 59 |USING A SIMPLE Y| 00005DD0: 45 54 20 45 4C 41 42 4F 52 41 54 45 20 46 4F 52 |ET ELABORATE FOR| 00005DE0: 4D 55 4C 41 2E 0D 0D 0D 20 20 20 20 20 20 20 20 |MULA.... | 00005DF0: 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A | .UNCTION .AME:| 00005E00: 20 D2 C4 31 38 30 0D 20 20 20 20 20 20 20 20 20 | ..180. | 00005E10: 20 D0 55 52 50 4F 53 45 3A 20 D2 45 41 44 20 54 | .URPOSE: .EAD T| 00005E20: 52 41 43 4B 20 31 38 2C 20 53 45 43 54 4F 52 20 |RACK 18, SECTOR | 00005E30: 30 20 46 52 4F 4D 20 54 48 45 20 44 49 53 4B 2E |0 FROM THE DISK.| 00005E40: 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 |. .ALL | 00005E50: 41 44 44 52 45 53 53 3A 20 24 C3 32 34 37 0D 20 |ADDRESS: $.247. | 00005E60: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 00005E70: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00005E80: 24 30 34 20 20 20 20 20 20 20 24 31 32 2C 20 54 |$04 $12, T| 00005E90: 52 41 43 4B 20 4E 55 4D 42 45 52 2E 0D 20 20 20 |RACK NUMBER.. | 00005EA0: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 35 20 | $05 | 00005EB0: 20 20 20 20 20 20 24 30 30 2C 20 53 45 43 54 4F | $00, SECTO| 00005EC0: 52 20 4E 55 4D 42 45 52 2E 0D 20 20 20 20 20 20 |R NUMBER.. | 00005ED0: 20 20 20 20 20 20 20 20 20 24 30 C1 2D 24 30 C2 | $0.-$0.| 00005EE0: 20 20 20 24 38 32 30 30 2C 20 41 44 44 52 45 53 | $8200, ADDRES| 00005EF0: 53 20 4F 46 20 42 55 46 46 45 52 20 41 52 45 41 |S OF BUFFER AREA| 00005F00: 2E 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00005F10: 20 24 38 32 30 30 2D 24 38 32 C6 C6 20 C4 41 54 | $8200-$82.. .AT| 00005F20: 41 20 46 52 4F 4D 20 54 52 41 43 4B 20 31 38 20 |A FROM TRACK 18 | 00005F30: 53 45 43 54 4F 52 20 30 2E 0D 20 20 20 20 20 20 |SECTOR 0.. | 00005F40: 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 | .RRORS: .EE | 00005F50: C1 50 50 45 4E 44 49 58 20 C9 2E 0D 0D 20 20 20 |.PPENDIX .... | 00005F60: 20 20 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 | .ESCRIPTI| 00005F70: 4F 4E 3A 20 20 D4 48 49 53 20 20 52 4F 55 54 49 |ON: .HIS ROUTI| 00005F80: 4E 45 20 53 45 54 53 20 55 50 20 54 48 45 20 50 |NE SETS UP THE P| 00005F90: 4F 49 4E 54 45 52 53 20 46 4F 52 20 20 D2 C5 C1 |OINTERS FOR ...| 00005FA0: C4 2C 20 20 54 48 45 4E 0D 20 20 20 20 20 20 20 |., THEN. | 00005FB0: 20 20 20 43 41 4C 4C 53 20 20 49 54 20 54 4F 20 | CALLS IT TO | 00005FC0: 52 45 41 44 20 54 48 45 20 53 45 43 54 4F 52 2E |READ THE SECTOR.| 00005FD0: 20 20 D4 48 49 53 20 49 53 20 47 45 4E 45 52 41 | .HIS IS GENERA| 00005FE0: 4C 4C 59 20 55 53 45 44 20 54 4F 20 47 45 54 20 |LLY USED TO GET | 00005FF0: 20 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 C2 | THE. .| 00006000: C1 CD 20 49 4E 54 4F 20 4D 45 4D 4F 52 59 2E 0D |.. INTO MEMORY..| 00006010: 0D 0D 0D 0D 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 |......... | 00006020: 20 20 20 C7 C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 | .... .ERNAL .| 00006030: 4F 55 54 49 4E 45 53 20 20 20 20 20 20 20 20 20 |OUTINES | 00006040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00006050: 20 20 20 20 20 20 20 20 20 20 20 20 20 31 2D 34 | 1-4| 00006060: 38 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 55 |8... .U| 00006070: 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D2 C5 C1 |NCTION .AME: ...| 00006080: C4 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 |.. .URP| 00006090: 4F 53 45 3A 20 D2 45 41 44 20 41 20 47 49 56 45 |OSE: .EAD A GIVE| 000060A0: 4E 20 54 52 41 43 4B 20 41 4E 44 20 53 45 43 54 |N TRACK AND SECT| 000060B0: 4F 52 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 |OR.. .A| 000060C0: 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 31 C5 |LL ADDRESS: $.1.| 000060D0: 34 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 |4. .NPU| 000060E0: 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D |T REQUIREMENTS:.| 000060F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 | $| 00006100: 30 34 20 20 20 20 20 20 20 D4 52 41 43 4B 20 4F |04 .RACK O| 00006110: 46 20 53 45 43 54 4F 52 20 54 4F 20 42 45 20 52 |F SECTOR TO BE R| 00006120: 45 41 44 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |EAD.. | 00006130: 20 20 20 20 24 30 35 20 20 20 20 20 20 20 D3 45 | $05 .E| 00006140: 43 54 4F 52 20 4E 55 4D 42 45 52 20 54 4F 20 42 |CTOR NUMBER TO B| 00006150: 45 20 52 45 41 44 2E 0D 20 20 20 20 20 20 20 20 |E READ.. | 00006160: 20 20 20 20 20 20 20 24 30 C1 2D 24 30 C2 20 20 | $0.-$0. | 00006170: 20 D0 4F 49 4E 54 45 52 20 54 4F 20 42 55 46 46 | .OINTER TO BUFF| 00006180: 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 C5 52 |ER.. .R| 00006190: 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 45 4E 44 |RORS: .EE .PPEND| 000061A0: 49 58 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |IX.. .E| 000061B0: 53 43 52 49 50 54 49 4F 4E 3A 20 20 CC 4F 41 44 |SCRIPTION: .OAD| 000061C0: 53 20 41 4E 44 20 52 55 4E 53 20 54 55 52 42 4F |S AND RUNS TURBO| 000061D0: 44 4F 53 20 49 46 20 49 54 20 49 53 20 4E 4F 54 |DOS IF IT IS NOT| 000061E0: 20 41 4C 52 45 41 44 59 20 54 48 45 52 45 2E 0D | ALREADY THERE..| 000061F0: 20 20 20 20 20 20 20 20 20 20 D4 48 45 4E 20 52 | .HEN R| 00006200: 45 41 44 53 20 54 48 45 20 44 45 53 49 52 45 44 |EADS THE DESIRED| 00006210: 20 42 4C 4F 43 4B 20 46 52 4F 4D 20 54 48 45 20 | BLOCK FROM THE | 00006220: 44 49 53 4B 20 49 4E 54 4F 20 54 48 45 20 42 55 |DISK INTO THE BU| 00006230: 46 46 45 52 2E 0D 0D 0D 20 20 20 20 20 20 20 20 |FFER.... | 00006240: 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A | .UNCTION .AME:| 00006250: 20 D2 C5 C1 C4 32 0D 20 20 20 20 20 20 20 20 20 | ....2. | 00006260: 20 D0 55 52 50 4F 53 45 3A 20 D2 45 41 44 20 41 | .URPOSE: .EAD A| 00006270: 20 53 45 43 54 4F 52 20 46 52 4F 4D 20 54 48 45 | SECTOR FROM THE| 00006280: 20 44 49 53 4B 2E 0D 20 20 20 20 20 20 20 20 20 | DISK.. | 00006290: 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 | .ALL ADDRESS: $| 000062A0: C3 32 31 C1 0D 20 20 20 20 20 20 20 20 20 20 C9 |.21.. .| 000062B0: 4E 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 |NPUT REQUIREMENT| 000062C0: 53 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 |S:. | 000062D0: 20 20 24 30 34 20 20 20 20 20 20 20 D4 52 41 43 | $04 .RAC| 000062E0: 4B 20 54 4F 20 42 45 20 52 45 41 44 2E 0D 20 20 |K TO BE READ.. | 000062F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 35 | $05| 00006300: 20 20 20 20 20 20 20 D3 45 43 54 4F 52 20 54 4F | .ECTOR TO| 00006310: 20 42 45 20 52 45 41 44 2E 0D 20 20 20 20 20 20 | BE READ.. | 00006320: 20 20 20 20 20 20 20 20 20 24 30 C1 2D 24 30 C2 | $0.-$0.| 00006330: 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F 20 42 55 | .OINTER TO BU| 00006340: 46 46 45 52 20 46 4F 52 20 44 41 54 41 2E 0D 20 |FFER FOR DATA.. | 00006350: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 00006360: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00006370: C4 41 54 41 20 49 53 20 52 45 41 44 20 49 4E 54 |.ATA IS READ INT| 00006380: 4F 20 54 48 45 20 44 45 53 49 52 45 44 20 42 55 |O THE DESIRED BU| 00006390: 46 46 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 |FFER.. | 000063A0: D0 52 45 50 41 52 41 54 4F 52 59 20 52 4F 55 54 |.REPARATORY ROUT| 000063B0: 49 4E 45 53 3A 20 C4 D3 C5 D4 D5 D0 0D 20 20 20 |INES: ....... | 000063C0: 20 20 20 20 20 20 20 C5 52 52 4F 52 53 3A 20 D3 | .RRORS: .| 000063D0: 45 45 20 C1 50 50 45 4E 44 49 58 20 C9 2E 0D 0D |EE .PPENDIX ....| 000063E0: 20 20 20 20 20 20 20 20 20 20 C4 45 53 43 52 49 | .ESCRI| 000063F0: 50 54 49 4F 4E 3A 20 D4 48 49 53 20 52 4F 55 54 |PTION: .HIS ROUT| 00006400: 49 4E 45 20 49 53 20 43 41 4C 4C 45 44 20 42 59 |INE IS CALLED BY| 00006410: 20 D2 C5 C1 C4 20 54 4F 20 52 45 41 44 20 41 20 | .... TO READ A | 00006420: 53 45 43 54 4F 52 2E 20 D4 48 45 0D 20 20 20 20 |SECTOR. .HE. | 00006430: 20 20 20 20 20 20 44 49 46 46 45 52 45 4E 43 45 | DIFFERENCE| 00006440: 20 20 42 45 54 57 45 45 4E 20 20 54 48 49 53 20 | BETWEEN THIS | 00006450: 20 52 4F 55 54 49 4E 45 20 41 4E 44 20 D2 C5 C1 | ROUTINE AND ...| 00006460: C4 20 49 53 20 20 54 48 41 54 20 20 D2 C5 C1 C4 |. IS THAT ....| 00006470: 20 20 43 41 4C 4C 53 0D 20 20 20 20 20 20 20 20 | CALLS. | 00006480: 20 20 C4 D3 C5 D4 D5 D0 20 20 42 45 46 4F 52 45 | ...... BEFORE| 00006490: 20 20 54 52 59 49 4E 47 20 54 4F 20 52 45 41 44 | TRYING TO READ| 000064A0: 20 54 48 45 20 53 45 43 54 4F 52 2E 20 20 D4 48 | THE SECTOR. .H| 000064B0: 49 53 20 52 4F 55 54 49 4E 45 20 20 41 53 53 55 |IS ROUTINE ASSU| 000064C0: 4D 45 53 0D 20 20 20 20 20 20 20 20 20 20 54 48 |MES. TH| 000064D0: 41 54 20 54 48 45 20 44 52 49 56 45 20 49 53 20 |AT THE DRIVE IS | 000064E0: 52 45 41 44 59 20 57 49 54 48 20 54 55 52 42 4F |READY WITH TURBO| 000064F0: 44 4F 53 20 52 55 4E 4E 49 4E 47 2E 0D 0D 0D 20 |DOS RUNNING.... | 00006500: 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F | .UNCTIO| 00006510: 4E 20 CE 41 4D 45 3A 20 D2 C5 C2 CF CF D4 0D 20 |N .AME: ....... | 00006520: 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 | .URPOSE| 00006530: 3A 20 D2 45 42 4F 4F 54 20 C7 C5 CF D3 2E 0D 20 |: .EBOOT ...... | 00006540: 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 44 | .ALL AD| 00006550: 44 52 45 53 53 3A 20 24 C3 30 30 30 0D 20 20 20 |DRESS: $.000. | 00006560: 20 20 20 20 20 20 20 C5 52 52 4F 52 53 3A 20 C9 | .RRORS: .| 00006570: 46 20 4C 4F 41 44 20 46 41 49 4C 53 2C 20 53 59 |F LOAD FAILS, SY| 00006580: 53 54 45 4D 20 52 45 53 45 54 53 20 54 4F 20 C2 |STEM RESETS TO .| 00006590: C1 D3 C9 C3 2E 0D 0D 20 20 20 20 20 20 20 20 20 |....... | 000065A0: 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 D4 | .ESCRIPTION: .| 000065B0: 48 49 53 20 20 52 4F 55 54 49 4E 45 20 49 53 20 |HIS ROUTINE IS | 000065C0: 4E 4F 54 20 50 41 52 54 20 4F 46 20 54 48 45 20 |NOT PART OF THE | 000065D0: 4E 4F 52 4D 41 4C 20 C7 C5 CF D3 20 CB C5 D2 CE |NORMAL .... ....| 000065E0: C1 CC 0D 20 20 20 20 20 20 20 20 20 20 4A 55 4D |... JUM| 000065F0: 50 20 20 54 41 42 4C 45 2E 20 20 D4 48 49 53 20 |P TABLE. .HIS | 00006600: 20 49 53 20 20 54 48 45 20 52 4F 55 54 49 4E 45 | IS THE ROUTINE| 00006610: 20 54 48 41 54 20 49 53 20 53 45 54 20 20 55 50 | THAT IS SET UP| 00006620: 20 20 41 53 20 20 54 48 45 20 20 CE CD C9 0D 20 | AS THE .... | 00006630: 20 20 20 20 20 20 20 20 20 49 4E 54 45 52 52 55 | INTERRU| 00006640: 50 54 20 20 28 D2 C5 D3 D4 CF D2 C5 20 4B 45 59 |PT (....... KEY| 00006650: 29 20 42 59 20 C7 C5 CF D3 20 57 48 45 4E 20 C7 |) BY .... WHEN .| 00006660: C5 CF D3 20 52 45 54 55 52 4E 53 20 54 4F 20 20 |... RETURNS TO | 00006670: C2 C1 D3 C9 C3 2E 20 20 C9 54 0D 20 20 20 20 20 |...... .T. | 00006680: 20 20 20 20 20 4C 4F 41 44 53 20 27 C7 C5 CF D3 | LOADS '....| 00006690: 20 C2 CF CF D4 27 2C 20 41 4E 44 20 45 58 45 43 | ....', AND EXEC| 000066A0: 55 54 45 53 20 49 54 2E 0D 0D 0D 0D 0D 0D 0D 0D |UTES IT.........| 000066B0: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 000066C0: 20 20 20 20 20 20 20 20 20 20 C7 C5 CF D3 20 CB | .... .| 000066D0: 45 52 4E 41 4C 20 D2 4F 55 54 49 4E 45 53 20 20 |ERNAL .OUTINES | 000066E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000066F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00006700: 20 20 20 20 31 2D 34 39 0D 0D 0D 20 20 20 20 20 | 1-49... | 00006710: 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E 20 CE 41 | .UNCTION .A| 00006720: 4D 45 3A 20 D2 C5 CD CF D6 C5 0D 20 20 20 20 20 |ME: ....... | 00006730: 20 20 20 20 20 D0 55 52 50 4F 53 45 3A 20 D2 45 | .URPOSE: .E| 00006740: 4D 4F 56 45 20 41 20 D6 CC C9 D2 20 43 48 41 49 |MOVE A .... CHAI| 00006750: 4E 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 41 4C |N.. .AL| 00006760: 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 38 33 |L ADDRESS: $.283| 00006770: 0D 20 20 20 20 20 20 20 20 20 20 C9 4E 50 55 54 |. .NPUT| 00006780: 20 52 45 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 | REQUIREMENTS:. | 00006790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 38 | $8| 000067A0: 34 39 36 20 20 20 20 20 D6 CC C9 D2 20 43 48 41 |496 .... CHA| 000067B0: 49 4E 20 4E 55 4D 42 45 52 2E 0D 20 20 20 20 20 |IN NUMBER.. | 000067C0: 20 20 20 20 20 CF 55 54 50 55 54 3A 0D 20 20 20 | .UTPUT:. | 000067D0: 20 20 20 20 20 20 20 20 20 20 20 20 24 38 34 39 | $849| 000067E0: 36 20 20 20 20 20 C4 45 43 52 45 4D 45 4E 54 45 |6 .ECREMENTE| 000067F0: 44 20 49 46 20 47 52 45 41 54 45 52 20 54 48 41 |D IF GREATER THA| 00006800: 4E 20 4F 52 20 45 51 55 41 4C 20 54 4F 20 24 38 |N OR EQUAL TO $8| 00006810: 34 39 37 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |497.. | 00006820: 20 20 20 20 24 38 34 39 37 20 20 20 20 20 C4 45 | $8497 .E| 00006830: 43 52 45 4D 45 4E 54 45 44 20 42 59 20 31 2E 0D |CREMENTED BY 1..| 00006840: 20 20 20 20 20 20 20 20 20 20 D0 52 45 50 41 52 | .REPAR| 00006850: 41 54 4F 52 59 20 52 4F 55 54 49 4E 45 53 3A 20 |ATORY ROUTINES: | 00006860: D6 CF D0 C5 CE 0D 20 20 20 20 20 20 20 20 20 20 |...... | 00006870: C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 45 |.RRORS: .EE .PPE| 00006880: 4E 44 49 58 20 C9 2E 0D 0D 20 20 20 20 20 20 20 |NDIX .... | 00006890: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 000068A0: 20 D4 48 45 20 20 43 55 52 52 45 4E 54 20 20 D6 | .HE CURRENT .| 000068B0: CC C9 D2 20 43 48 41 49 4E 20 49 53 20 52 45 4D |... CHAIN IS REM| 000068C0: 4F 56 45 44 20 46 52 4F 4D 20 20 54 48 45 20 20 |OVED FROM THE | 000068D0: D6 CC C9 D2 0D 20 20 20 20 20 20 20 20 20 20 53 |..... S| 000068E0: 45 43 54 4F 52 2C 20 20 41 4E 44 20 20 41 4C 4C |ECTOR, AND ALL| 000068F0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 | THE FOLLOWING C| 00006900: 48 41 49 4E 53 20 41 52 45 20 4D 4F 56 45 44 20 |HAINS ARE MOVED | 00006910: 20 44 4F 57 4E 20 20 4F 4E 45 2E 20 20 D4 48 45 | DOWN ONE. .HE| 00006920: 0D 20 20 20 20 20 20 20 20 20 20 53 45 43 54 4F |. SECTO| 00006930: 52 53 20 41 53 53 4F 43 49 41 54 45 44 20 57 49 |RS ASSOCIATED WI| 00006940: 54 48 20 54 48 41 54 20 43 48 41 49 4E 20 41 52 |TH THAT CHAIN AR| 00006950: 45 20 46 52 45 45 44 20 55 50 2E 0D 0D 0D 20 20 |E FREED UP.... | 00006960: 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 4F 4E | .UNCTION| 00006970: 20 CE 41 4D 45 3A 20 D2 C5 CE C1 CD C5 0D 20 20 | .AME: ....... | 00006980: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 00006990: 20 D2 45 4E 41 4D 45 20 41 20 46 49 4C 45 2E 0D | .ENAME A FILE..| 000069A0: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 000069B0: 44 44 52 45 53 53 3A 20 24 C3 32 35 39 0D 20 20 |DDRESS: $.259. | 000069C0: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 000069D0: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 000069E0: 20 20 20 20 20 20 20 20 20 20 20 24 30 32 2D 24 | $02-$| 000069F0: 30 33 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F 20 |03 .OINTER TO | 00006A00: 4E 45 57 20 46 49 4C 45 20 4E 41 4D 45 2E 0D 20 |NEW FILE NAME.. | 00006A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 30 | $0| 00006A20: C5 2D 24 30 C6 20 20 20 D0 4F 49 4E 54 45 52 20 |.-$0. .OINTER | 00006A30: 54 4F 20 4F 4C 44 20 46 49 4C 45 20 4E 41 4D 45 |TO OLD FILE NAME| 00006A40: 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 |.. .UTP| 00006A50: 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |UT:. | 00006A60: 20 20 20 24 30 34 20 20 20 20 20 20 20 D4 52 41 | $04 .RA| 00006A70: 43 4B 20 4F 46 20 44 49 52 45 43 54 4F 52 59 20 |CK OF DIRECTORY | 00006A80: 53 45 43 54 4F 52 2E 0D 20 20 20 20 20 20 20 20 |SECTOR.. | 00006A90: 20 20 20 20 20 20 20 24 30 35 20 20 20 20 20 20 | $05 | 00006AA0: 20 D3 45 43 54 4F 52 20 4F 46 20 44 49 52 45 43 | .ECTOR OF DIREC| 00006AB0: 54 4F 52 59 20 53 45 43 54 4F 52 2E 0D 20 20 20 |TORY SECTOR.. | 00006AC0: 20 20 20 20 20 20 20 20 20 20 20 20 24 30 C3 2D | $0.-| 00006AD0: 24 30 C4 20 20 20 D0 4F 49 4E 54 45 52 20 54 4F |$0. .OINTER TO| 00006AE0: 20 46 49 4C 45 20 4E 41 4D 45 20 49 4E 20 44 49 | FILE NAME IN DI| 00006AF0: 52 45 43 54 4F 52 59 20 45 4E 54 52 59 2E 0D 20 |RECTORY ENTRY.. | 00006B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 38 | $8| 00006B10: 34 30 30 2D 24 38 34 31 C4 20 C3 4F 50 59 20 4F |400-$841. .OPY O| 00006B20: 46 20 4F 4C 44 20 44 49 52 45 43 54 4F 52 59 20 |F OLD DIRECTORY | 00006B30: 45 4E 54 52 59 2E 0D 20 20 20 20 20 20 20 20 20 |ENTRY.. | 00006B40: 20 C5 52 52 4F 52 53 3A 20 D3 45 45 20 C1 50 50 | .RRORS: .EE .PP| 00006B50: 45 4E 44 49 58 20 C9 2E 0D 0D 20 20 20 20 20 20 |ENDIX .... | 00006B60: 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A | .ESCRIPTION:| 00006B70: 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 52 45 | .HIS ROUTINE RE| 00006B80: 4E 41 4D 45 53 20 41 20 46 49 4C 45 20 42 59 20 |NAMES A FILE BY | 00006B90: 43 41 4C 4C 49 4E 47 20 20 CC CF CF CB D5 D0 2C |CALLING ......,| 00006BA0: 20 54 48 45 4E 0D 20 20 20 20 20 20 20 20 20 20 | THEN. | 00006BB0: 43 4F 50 59 49 4E 47 20 20 54 48 45 20 20 4E 45 |COPYING THE NE| 00006BC0: 57 20 4E 41 4D 45 20 49 4E 54 4F 20 54 48 45 20 |W NAME INTO THE | 00006BD0: 45 4E 54 52 59 2E 20 20 C6 49 4E 41 4C 4C 59 2C |ENTRY. .INALLY,| 00006BE0: 20 20 54 48 45 20 20 53 45 43 54 4F 52 20 20 49 | THE SECTOR I| 00006BF0: 53 0D 20 20 20 20 20 20 20 20 20 20 52 45 57 52 |S. REWR| 00006C00: 49 54 54 45 4E 20 54 4F 20 54 48 45 20 44 49 53 |ITTEN TO THE DIS| 00006C10: 4B 2E 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C6 |K.... .| 00006C20: 55 4E 43 54 49 4F 4E 20 CE 41 4D 45 3A 20 D2 C5 |UNCTION .AME: ..| 00006C30: D3 C5 D4 CD 0D 20 20 20 20 20 20 20 20 20 20 D0 |..... .| 00006C40: 55 52 50 4F 53 45 3A 20 D2 45 53 45 54 20 54 48 |URPOSE: .ESET TH| 00006C50: 45 20 4D 4F 55 53 45 2E 0D 20 20 20 20 20 20 20 |E MOUSE.. | 00006C60: 20 20 20 C3 41 4C 4C 20 41 44 44 52 45 53 53 3A | .ALL ADDRESS:| 00006C70: 20 24 C3 31 39 C3 0D 0D 20 20 20 20 20 20 20 20 | $.19... | 00006C80: 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 20 | .ESCRIPTION: | 00006C90: D4 48 45 20 20 46 4C 41 47 20 41 54 20 4C 4F 43 |.HE FLAG AT LOC| 00006CA0: 41 54 49 4F 4E 20 24 33 30 20 49 53 20 53 45 54 |ATION $30 IS SET| 00006CB0: 20 54 4F 20 20 24 30 30 2C 20 20 41 4E 44 20 20 | TO $00, AND | 00006CC0: 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 4D 4F |THE. MO| 00006CD0: 55 53 45 20 53 50 52 49 54 45 20 49 53 20 54 55 |USE SPRITE IS TU| 00006CE0: 52 4E 45 44 20 4F 46 46 2E 20 20 C8 4F 57 45 56 |RNED OFF. .OWEV| 00006CF0: 45 52 2C 20 53 49 4E 43 45 20 42 49 54 20 37 20 |ER, SINCE BIT 7 | 00006D00: 4F 46 20 4C 4F 43 41 54 49 4F 4E 20 24 33 30 0D |OF LOCATION $30.| 00006D10: 20 20 20 20 20 20 20 20 20 20 49 53 20 4E 4F 54 | IS NOT| 00006D20: 20 53 45 54 2C 20 54 48 45 20 4E 45 58 54 20 49 | SET, THE NEXT I| 00006D30: 4E 54 45 52 52 55 50 54 20 57 49 4C 4C 20 54 55 |NTERRUPT WILL TU| 00006D40: 52 4E 20 49 54 20 42 41 43 4B 20 4F 4E 2E 0D 0D |RN IT BACK ON...| 00006D50: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00006D60: 49 4F 4E 20 CE 41 4D 45 3A 20 D2 C5 D3 D4 D2 D4 |ION .AME: ......| 00006D70: 0D 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F |. .URPO| 00006D80: 53 45 3A 20 D2 45 53 54 41 52 54 20 C4 C5 D3 CB |SE: .ESTART ....| 00006D90: D4 CF D0 2E 0D 20 20 20 20 20 20 20 20 20 20 C3 |..... .| 00006DA0: 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 32 |ALL ADDRESS: $.2| 00006DB0: 32 C3 0D 0D 20 20 20 20 20 20 20 20 20 20 C4 45 |2... .E| 00006DC0: 53 43 52 49 50 54 49 4F 4E 3A 20 D4 48 49 53 20 |SCRIPTION: .HIS | 00006DD0: 52 4F 55 54 49 4E 45 20 4C 4F 41 44 53 20 C4 C5 |ROUTINE LOADS ..| 00006DE0: D3 CB D4 CF D0 20 41 4E 44 20 52 55 4E 53 20 49 |..... AND RUNS I| 00006DF0: 54 2E 20 C9 54 20 49 53 20 43 41 4C 4C 45 44 0D |T. .T IS CALLED.| 00006E00: 20 20 20 20 20 20 20 20 20 20 41 53 20 54 48 45 | AS THE| 00006E10: 20 4C 41 53 54 20 50 41 52 54 20 4F 46 20 54 48 | LAST PART OF TH| 00006E20: 45 20 42 4F 4F 54 55 50 20 50 52 4F 43 45 44 55 |E BOOTUP PROCEDU| 00006E30: 52 45 2E 20 D4 48 49 53 20 49 53 20 57 48 45 52 |RE. .HIS IS WHER| 00006E40: 45 20 41 20 50 52 4F 47 52 41 4D 0D 20 20 20 20 |E A PROGRAM. | 00006E50: 20 20 20 20 20 20 53 48 4F 55 4C 44 20 54 45 52 | SHOULD TER| 00006E60: 4D 49 4E 41 54 45 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D |MINATE..........| 00006E70: 0D 0D 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 C7 |..... .| 00006E80: C5 CF D3 20 CB 45 52 4E 41 4C 20 D2 4F 55 54 49 |... .ERNAL .OUTI| 00006E90: 4E 45 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |NES | 00006EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00006EB0: 20 20 20 20 20 20 20 20 20 31 2D 35 30 0D 0D 0D | 1-50...| 00006EC0: 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 49 | .UNCTI| 00006ED0: 4F 4E 20 CE 41 4D 45 3A 20 D2 CF D7 C1 C4 D2 0D |ON .AME: .......| 00006EE0: 20 20 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 | .URPOS| 00006EF0: 45 3A 20 C3 4F 4D 50 55 54 45 53 20 54 48 45 20 |E: .OMPUTES THE | 00006F00: 41 44 44 52 45 53 53 20 4F 46 20 41 20 47 49 56 |ADDRESS OF A GIV| 00006F10: 45 4E 20 52 4F 57 20 4F 4E 20 54 48 45 20 48 49 |EN ROW ON THE HI| 00006F20: 52 45 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 |RES. | 00006F30: 20 20 20 20 20 20 20 53 43 52 45 45 4E 53 2E 0D | SCREENS..| 00006F40: 20 20 20 20 20 20 20 20 20 20 C3 41 4C 4C 20 41 | .ALL A| 00006F50: 44 44 52 45 53 53 3A 20 24 C3 31 33 C3 0D 20 20 |DDRESS: $.13.. | 00006F60: 20 20 20 20 20 20 20 20 C9 4E 50 55 54 20 52 45 | .NPUT RE| 00006F70: 51 55 49 52 45 4D 45 4E 54 53 3A 0D 20 20 20 20 |QUIREMENTS:. | 00006F80: 20 20 20 20 20 20 20 20 20 20 20 D8 20 20 20 20 | . | 00006F90: 20 20 20 20 20 D4 48 45 20 52 4F 57 20 4E 55 4D | .HE ROW NUM| 00006FA0: 42 45 52 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |BER.. | 00006FB0: 20 20 20 20 24 32 C6 20 20 20 20 20 20 20 D3 45 | $2. .E| 00006FC0: 45 20 44 45 53 43 52 49 50 54 49 4F 4E 2E 0D 20 |E DESCRIPTION.. | 00006FD0: 20 20 20 20 20 20 20 20 20 CF 55 54 50 55 54 3A | .UTPUT:| 00006FE0: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00006FF0: 24 30 C3 2D 24 30 C4 20 20 20 D0 4F 49 4E 54 45 |$0.-$0. .OINTE| 00007000: 52 20 54 4F 20 54 48 45 20 52 4F 57 20 4F 4E 20 |R TO THE ROW ON | 00007010: 54 48 45 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 |THE DESTINATION | 00007020: 53 43 52 45 45 4E 2E 0D 20 20 20 20 20 20 20 20 |SCREEN.. | 00007030: 20 20 20 20 20 20 20 24 30 C5 2D 24 30 C6 20 20 | $0.-$0. | 00007040: 20 D0 4F 49 4E 54 45 52 20 54 4F 20 54 48 45 20 | .OINTER TO THE | 00007050: 52 4F 57 20 4F 4E 20 54 48 45 20 53 4F 55 52 43 |ROW ON THE SOURC| 00007060: 45 20 53 43 52 45 45 4E 2E 0D 0D 20 20 20 20 20 |E SCREEN... | 00007070: 20 20 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E | .ESCRIPTION| 00007080: 3A 20 20 D4 48 49 53 20 52 4F 55 54 49 4E 45 20 |: .HIS ROUTINE | 00007090: 43 4F 4D 50 55 54 45 53 20 54 48 45 20 41 44 44 |COMPUTES THE ADD| 000070A0: 52 45 53 53 20 4F 46 20 43 4F 4C 55 4D 4E 20 30 |RESS OF COLUMN 0| 000070B0: 20 4F 4E 20 20 41 0D 20 20 20 20 20 20 20 20 20 | ON A. | 000070C0: 20 47 49 56 45 4E 20 52 4F 57 20 4F 46 20 54 48 | GIVEN ROW OF TH| 000070D0: 45 20 48 49 52 45 53 20 53 43 52 45 45 4E 53 2E |E HIRES SCREENS.| 000070E0: 20 C1 4C 4C 20 4F 46 20 54 48 45 20 47 52 41 50 | .LL OF THE GRAP| 000070F0: 48 49 43 53 20 52 4F 55 54 49 4E 45 53 20 52 45 |HICS ROUTINES RE| 00007100: 4C 59 0D 20 20 20 20 20 20 20 20 20 20 4F 4E 20 |LY. ON | 00007110: 54 48 49 53 20 52 4F 55 54 49 4E 45 20 54 4F 20 |THIS ROUTINE TO | 00007120: 47 45 54 20 54 48 45 20 41 44 44 52 45 53 53 20 |GET THE ADDRESS | 00007130: 4F 46 20 54 48 45 20 48 49 52 45 53 20 53 43 52 |OF THE HIRES SCR| 00007140: 45 45 4E 53 2E 20 D4 48 45 59 20 41 4C 4C 0D 20 |EENS. .HEY ALL. | 00007150: 20 20 20 20 20 20 20 20 20 54 41 4B 45 20 20 54 | TAKE T| 00007160: 48 45 20 44 41 54 41 20 50 4F 49 4E 54 45 44 20 |HE DATA POINTED | 00007170: 54 4F 20 42 59 20 24 30 C5 2D 24 30 C6 20 41 4E |TO BY $0.-$0. AN| 00007180: 44 20 53 54 4F 52 45 20 54 48 45 49 52 20 44 41 |D STORE THEIR DA| 00007190: 54 41 20 54 4F 20 42 4F 54 48 0D 20 20 20 20 20 |TA TO BOTH. | 000071A0: 20 20 20 20 20 24 30 C3 2D 24 30 C4 20 20 41 4E | $0.-$0. AN| 000071B0: 44 20 20 24 30 C5 2D 24 30 C6 2E 20 20 CC 4F 43 |D $0.-$0.. .OC| 000071C0: 41 54 49 4F 4E 20 24 32 C6 20 44 45 54 45 52 4D |ATION $2. DETERM| 000071D0: 49 4E 45 53 20 57 48 49 43 48 20 20 53 43 52 45 |INES WHICH SCRE| 000071E0: 45 4E 20 20 49 53 0D 20 20 20 20 20 20 20 20 20 |EN IS. | 000071F0: 20 50 4F 49 4E 54 45 44 20 54 4F 20 42 59 20 57 | POINTED TO BY W| 00007200: 48 49 43 48 20 50 4F 49 4E 54 45 52 2E 20 D4 48 |HICH POINTER. .H| 00007210: 49 53 20 49 53 20 41 53 20 46 4F 4C 4C 4F 57 53 |IS IS AS FOLLOWS| 00007220: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00007230: 20 C2 49 54 20 37 20 20 C2 49 54 20 36 20 20 20 | .IT 7 .IT 6 | 00007240: 24 30 C3 2D 24 30 C4 20 20 20 24 30 C5 2D 24 30 |$0.-$0. $0.-$0| 00007250: C6 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00007260: 20 20 20 30 20 20 20 20 20 20 30 20 20 20 20 20 | 0 0 | 00007270: 20 24 C1 C6 30 30 20 20 20 20 20 24 C1 C6 30 30 | $..00 $..00| 00007280: 20 20 20 C1 50 50 52 4F 58 49 4D 41 54 45 4C 59 | .PPROXIMATELY| 00007290: 20 54 48 45 0D 20 20 20 20 20 20 20 20 20 20 20 | THE. | 000072A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000072B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000072C0: 20 20 20 20 20 20 4D 49 44 44 4C 45 20 4F 46 20 | MIDDLE OF | 000072D0: 53 43 52 45 45 4E 20 31 0D 20 20 20 20 20 20 20 |SCREEN 1. | 000072E0: 20 20 20 20 20 20 20 20 20 20 30 20 20 20 20 20 | 0 | 000072F0: 20 31 20 20 20 20 20 D3 43 52 45 45 4E 20 32 20 | 1 .CREEN 2 | 00007300: 20 D3 43 52 45 45 4E 20 32 0D 20 20 20 20 20 20 | .CREEN 2. | 00007310: 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 20 | 1 | 00007320: 20 20 30 20 20 20 20 20 D3 43 52 45 45 4E 20 31 | 0 .CREEN 1| 00007330: 20 20 D3 43 52 45 45 4E 20 31 0D 20 20 20 20 20 | .CREEN 1. | 00007340: 20 20 20 20 20 20 20 20 20 20 20 20 31 20 20 20 | 1 | 00007350: 20 20 20 31 20 20 20 20 20 D3 43 52 45 45 4E 20 | 1 .CREEN | 00007360: 31 20 20 D3 43 52 45 45 4E 20 32 20 28 C4 45 46 |1 .CREEN 2 (.EF| 00007370: 41 55 4C 54 20 41 54 20 52 45 53 45 54 29 0D 0D |AULT AT RESET)..| 00007380: 0D 20 20 20 20 20 20 20 20 20 20 C6 55 4E 43 54 |. .UNCT| 00007390: 49 4F 4E 20 CE 41 4D 45 3A 20 D2 D5 CE 0D 20 20 |ION .AME: .... | 000073A0: 20 20 20 20 20 20 20 20 D0 55 52 50 4F 53 45 3A | .URPOSE:| 000073B0: 20 C5 58 45 43 55 54 45 20 41 20 50 52 4F 47 52 | .XECUTE A PROGR| 000073C0: 41 4D 20 41 4C 52 45 41 44 59 20 49 4E 20 4D 45 |AM ALREADY IN ME| 000073D0: 4D 4F 52 59 2E 0D 20 20 20 20 20 20 20 20 20 20 |MORY.. | 000073E0: C3 41 4C 4C 20 41 44 44 52 45 53 53 3A 20 24 C3 |.ALL ADDRESS: $.| 000073F0: 32 32 C6 0D 20 20 20 20 20 20 20 20 20 20 C9 4E |22.. .N| 00007400: 50 55 54 20 52 45 51 55 49 52 45 4D 45 4E 54 53 |PUT REQUIREMENTS| 00007410: 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |:. | 00007420: 20 24 30 32 20 20 20 20 20 20 20 C6 4C 41 47 20 | $02 .LAG | 00007430: 42 59 54 45 2E 0D 20 20 20 20 20 20 20 20 20 20 |BYTE.. | 00007440: 20 20 20 20 20 24 30 36 2D 24 30 37 20 20 20 C4 | $06-$07 .| 00007450: 41 54 41 20 50 4F 49 4E 54 45 52 20 28 4F 50 54 |ATA POINTER (OPT| 00007460: 49 4F 4E 41 4C 29 2E 0D 20 20 20 20 20 20 20 20 |IONAL).. | 00007470: 20 20 20 20 20 20 20 24 30 38 2D 24 30 39 20 20 | $08-$09 | 00007480: 20 C4 41 54 41 20 50 4F 49 4E 54 45 52 20 28 4F | .ATA POINTER (O| 00007490: 50 54 49 4F 4E 41 4C 29 2E 0D 20 20 20 20 20 20 |PTIONAL).. | 000074A0: 20 20 20 20 20 20 20 20 20 24 31 30 2D 24 31 31 | $10-$11| 000074B0: 20 20 20 D3 54 41 52 54 20 41 44 44 52 45 53 53 | .TART ADDRESS| 000074C0: 2E 0D 20 20 20 20 20 20 20 20 20 20 CF 55 54 50 |.. .UTP| 000074D0: 55 54 3A 0D 20 20 20 20 20 20 20 20 20 20 20 20 |UT:. | 000074E0: 20 20 20 24 30 36 2D 24 30 37 20 20 20 D0 4F 49 | $06-$07 .OI| 000074F0: 4E 54 45 52 20 54 4F 20 44 52 49 56 45 20 4E 41 |NTER TO DRIVE NA| 00007500: 4D 45 20 32 2E 0D 20 20 20 20 20 20 20 20 20 20 |ME 2.. | 00007510: 20 20 20 20 20 24 30 38 2D 24 30 39 20 20 20 D0 | $08-$09 .| 00007520: 4F 49 4E 54 45 52 20 54 4F 20 44 52 49 56 45 20 |OINTER TO DRIVE | 00007530: 4E 41 4D 45 20 33 2E 0D 0D 20 20 20 20 20 20 20 |NAME 3... | 00007540: 20 20 20 C4 45 53 43 52 49 50 54 49 4F 4E 3A 20 | .ESCRIPTION: | 00007550: 20 D4 48 49 53 20 20 52 4F 55 54 49 4E 45 20 50 | .HIS ROUTINE P| 00007560: 45 52 46 4F 52 4D 53 20 53 4F 4D 45 20 49 4E 49 |ERFORMS SOME INI| 00007570: 54 49 41 4C 49 5A 41 54 49 4F 4E 53 20 20 42 45 |TIALIZATIONS BE| 00007580: 46 4F 52 45 0D 20 20 20 20 20 20 20 20 20 20 45 |FORE. E| 00007590: 58 45 43 55 54 49 4E 47 20 41 20 4C 4F 41 44 45 |XECUTING A LOADE| 000075A0: 44 20 50 52 4F 47 52 41 4D 2E 20 20 C9 46 20 45 |D PROGRAM. .F E| 000075B0: 49 54 48 45 52 20 42 49 54 20 36 20 4F 52 20 42 |ITHER BIT 6 OR B| 000075C0: 49 54 20 37 20 4F 46 20 54 48 45 20 46 4C 41 47 |IT 7 OF THE FLAG| 000075D0: 0D 20 20 20 20 20 20 20 20 20 20 42 59 54 45 20 |. BYTE | 000075E0: 41 54 20 4C 4F 43 41 54 49 4F 4E 20 24 30 32 20 |AT LOCATION $02 | 000075F0: 49 53 20 53 45 54 2C 20 20 54 48 45 4E 20 54 48 |IS SET, THEN TH| 00007600: 45 20 44 41 54 41 20 50 4F 49 4E 54 45 44 20 54 |E DATA POINTED T| 00007610: 4F 20 42 59 20 24 30 36 2D 24 30 37 0D 20 20 20 |O BY $06-$07. | 00007620: 20 20 20 20 20 20 20 41 4E 44 20 24 30 38 2D 24 | AND $08-$| 00007630: 30 39 20 41 52 45 20 43 4F 50 49 45 44 20 49 4E |09 ARE COPIED IN| 00007640: 54 4F 20 54 48 45 20 42 55 46 46 45 52 53 20 46 |TO THE BUFFERS F| 00007650: 4F 52 20 54 48 45 20 33 52 44 20 41 4E 44 20 34 |OR THE 3RD AND 4| 00007660: 54 48 20 44 52 49 56 45 0D 20 20 20 20 20 20 20 |TH DRIVE. | 00007670: 20 20 20 4E 41 4D 45 53 2E 20 20 D4 48 45 53 45 | NAMES. .HESE| 00007680: 20 20 44 41 54 41 20 20 42 4C 4F 43 4B 53 20 20 | DATA BLOCKS | 00007690: 41 52 45 20 4C 49 4D 49 54 45 44 20 54 4F 20 31 |ARE LIMITED TO 1| 000076A0: 36 20 20 42 59 54 45 53 20 20 45 41 43 48 2E 20 |6 BYTES EACH. | 000076B0: 20 D4 48 45 0D 20 20 20 20 20 20 20 20 20 20 49 | .HE. I| 000076C0: 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 20 20 50 |NITIALIZATION P| 000076D0: 52 4F 43 45 53 53 20 53 45 4C 45 43 54 53 20 54 |ROCESS SELECTS T| 000076E0: 48 45 20 C2 D3 D7 20 46 4F 4E 54 20 41 4E 44 20 |HE ... FONT AND | 000076F0: 49 4E 49 54 49 41 4C 49 5A 45 53 20 20 41 4C 4C |INITIALIZES ALL| 00007700: 0D 20 20 20 20 20 20 20 20 20 20 4F 46 20 C7 C5 |. OF ..| 00007710: CF D3 27 53 20 47 4C 4F 42 41 4C 20 56 41 52 49 |..'S GLOBAL VARI| 00007720: 41 42 4C 45 53 2E 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |ABLES...........| 00007730: 0D 0D 0D 0D 0D 0D 0D |....... |
... GEOS KERNAL ROUTINES
1-36...
FUNCTION NAME: IRQRTN.
PURPOSE: HANDLES SEVERAL ITEMS THAT
OCCUR AT REGULAR TIMED.
INTERVALS.. CALL ADDRESS:
$C100. OUTPUTS: SEE DESCRIPTION
.. DESCRIPTION: GEOS SETS UP TH
E RASTER INTERRUPT ON THE VIC CHIP TO.
CAUSE AN INTERRUPT EVERY SIXTIE
TH OF A SECOND. THIS ROUTINE IS.
CALLED BY GEOS AFTER EACH INTERRUP
T. FIRST IT READS THE INPUT.
DEVICE AND UPDATES THE MOUSE'S POSIT
ION, TURNING IT ON IF. NECE
SSARY. IT THEN SCANS THE COMMAND TABLE A
T $8719 TO SEE IF ANY. OF THE C
OMMAND BYTES HAVE BOTH BITS 4 AND 5 RESE
T. IF SO, IT THEN. DECREMENTS
THE ASSOCIATED COUNTER AT $86F1. IF
THE COUNTER. REACHES ZERO,
ITS VALUE IS RESET AND BIT 7 OF THE A
SSOCIATED. COMMAND BYTE IS SET
. THIS WILL CAUSE THE APPROPRIATE SUBRO
UTINE. TO BE EXECUTED THE NEXT
TIME THE TABLE IS POLLED. THE NEXT PAR
T. OF THIS ROUTINE IS TO DECREM
ENT ALL NONZERO COUNTERS IN THE STACK.
AT $877F. THE ROUTINE TO BLINK
THE TEXT CURSOR IS CALLED NEXT..
FINALLY, THE RANDOM NUMBER GENERATOR
AT $850A IS UPDATED.... FUNCTI
ON NAME: LCHAIN. PURPOSE: LOAD
MEMORY FROM DISK.. CALL ADDRESS
: $C1FF. INPUT REQUIREMENTS:.
$04 INITIAL TRACK NUM
BER.. $05 INITIAL SE
CTOR NUMBER.. $06-$07 BY
TE COUNT OF LOAD.. $10-$11
LOAD ADDRESS.. OUTPUT:.
$0C INDEX TO LAST SECTOR
LOADED.. $8300- LIST O
F TRACKS AND SECTORS TRACK WERE LOADED..
PREPARATORY ROUTINES: LOADAD.
ERRORS: SEE APPENDIX I...
DESCRIPTION: THIS ROUTINE ASSUMES T
HAT THE FILE HAS BEEN LOCATED.
IN THE DIRECTORY AND THAT THE INITIAL TR
ACK AND SECTOR ARE KNOWN.... FU
NCTION NAME: LDSWAP. PURPOSE: R
ELOAD THE SWAPFILE.. CALL ADDRE
SS: $C23E. PREPARATORY ROUTINES
: LOADSW. ERRORS: SEE APPENDIX
I... DESCRIPTION: THIS ROUTINE
RELOADS THE SWAPFILE, THEN DELETES IT..
THE LAST WINDOW DESCRIPTION I
S REPROCESSED TO RESTORE THE SCREEN.
AND CONTROL IS RETURNED TO THE
ORIGINAL PROGRAM THAT CALLED.
LOADSW................ GEOS K
ERNAL ROUTINES
1-37... FUNCTION NA
ME: LINE. PURPOSE: DRAWS, ERASE
S OR COPIES A LINE ON THE HIRES SCREEN..
CALL ADDRESS: $C130.
INPUT REQUIREMENTS:. N FLA
G C FLAG OPERATION.
1 X COPY. 0
1 DRAW. 0
0 ERASE. $08-$09 T
HE COLUMN FOR THE FIRST ENDPOINT..
$0A-$0B THE COLUMN FOR THE SE
COND ENDPOINT.. $18
THE ROW FOR THE FIRST ENDPOINT..
$19 THE ROW FOR THE SECOND
ENDPOINT... DESCRIPTION: THIS
IS A VERY VERSATILE ROUTINE. IT CAN CO
PY AN. ARBITRARY LINE FROM O
NE SCREEN TO ANOTHER, AS WELL AS DRAW
OR. ERASE LINES. THIS ROUTINE
PLACES NO RESTRICTIONS ON THE RELATIVE.
POSITIONS OF THE ENDPOINTS. TH
IS ROUTINE CALLS PLOT TO PLOT THE.
POINTS. SEE ALSO ROWADR....
FUNCTION NAME: LOAD. PURPOSE:
LOAD AND RUN A FILE.. CALL ADD
RESS: $C208. INPUT REQUIREMENTS
:. $02 FLAG BYTE (SE
E DESCRIPTION).. $06-$07
OPTIONAL DATA POINTER.. $
08-$09 OPTIONAL DATA POINTER..
$0E-$0F POINTER TO FILENAME..
$10-$11 LOAD ADDRESS (OPT
IONAL).. OUTPUT:.
$8100-$81FF INFO SECTOR FOR FILE..
$8300-$83FF TABLE OF TRACKS AN
D SECTORS THAT WERE LOADED.. ER
RORS: SEE APPENDIX.. DESCRIPTIO
N: THIS ROUTINE LOADS AND RUNS A GIVEN
FILE. THE FILE. MUST BE ONE OF
THE FOLLOWING GEOS TYPES:.
SYSTEM FILE DESK ACC
ESSORY. APPLICAT
ION APPLICATION DATA.
PRINTER DRIVER INPUT
DRIVER. THE EXECUTION ADDRESS I
S TAKEN FROM THE INFORMATION SECTOR. IF
IT. IS ZERO, THE FILE IS NOT E
XECUTED, ONLY LOADED. VLIR FILES HAVE.
ONLY THEIR FIRST CHAIN LOADED
. DESK ACCESSORIES SWAP OUT THE.
MEMORY THAT THEY USE TO THE SWA
PFILE. UPON COMPLETION, THE.
SWAPFILE IS RELOADED. THE FLAG BYTE
AT LOCATION $02 HAS TWO. PUR
POSES. THIS FIRST IS IF BIT 0 IS SET
AND THE FILE WAS AN. APPLICA
TION, THEN IT IS NOT EXECUTED. ALSO IF
BIT 0 IS SET, THEN. LOCATIONS
$10-$11 HAVE THE LOAD ADDRESS; OTHERWI
SE, THE LOAD. ADDRESS IS TAKE
N FROM THE INFORMATION SECTOR. THIS BIT
DOES NOT. APPLY TO DESK ACCE
SSORIES. IF EITHER BIT 6 OR 7 ARE SET,
THEN. $06-$07 POINTS TO 16 B
YTES WHICH ARE COPIED TO $8453 (DISK NA
ME. FOR DRIVE 10), AND $07-$08
POINT TO 16 BYTES WHICH ARE COPIED TO.
$8442 (DISK NAME FOR DRIVE 11).
............ GEOS KERNAL ROUTI
NES
1-38... FUNCTION NAME: LOAD2.
PURPOSE: LOAD A FILE..
CALL ADDRESS: $C211. INPUT REQ
UIREMENTS:. $14-$15 POIN
TER TO DIRECTORY ENTRY.. $
886B FLAG BYTE.. $886C
-$886D LOAD ADDRESS.. OUTPUT:.
$8100-$81FF INFO SECTOR FO
R FILE.. $8300-$83FF TABLE
OF TRACKS AND SECTORS THAT WERE LOADED.
. PREPARATORY ROUTINES: LOOKUP
(POINTER MUST BE COPIED). ERROR
S: SEE APPENDIX.. DESCRIPTION:
THIS ROUTINE IS CALLED BY LOAD TO PERFO
RM THE LOAD.. THIS ROUTINE DOE
S NOT TRY TO EXECUTE THE FILE LOADED, N
OR IS IT. LIMITED TO THE FILE T
YPES THAT LOAD IS. HOWEVER, THIS ROUTINE
CAN. NOT BE USED TO LOAD NON-
GEOS FILES BECAUSE THE INFO SECTOR MUST
. BE PRESENT. IF BIT 0 OF LOC
ATION $886B IS SET, THEN THE LOAD.
ADDRESS IS TAKEN FROM LOCATIONS
$886C-$886D INSTEAD OF THE INFO.
SECTOR. THE DIRECTORY ENTRY POINTE
R SHOULD POINT TO $8400 AND. N
OT THE POINTER RETURNED BY LOOKUP.
THIS IS DUE TO MEMORY. CONFL
ICTS THAT WILL ARISE.... FUNCTI
ON NAME: LOAD3. PURPOSE: LOAD A
ND POSSIBLY RUN A FILE.. CALL A
DDRESS: $C21D. $02 F
LAG BYTE (SEE DESCRIPTION)..
$06-$07 OPTIONAL DATA POINTER..
$08-$09 OPTIONAL DATA POINT
ER.. $0E-$0F POINTER TO
FILENAME.. $10-$11 LOAD
ADDRESS (OPTIONAL).. OUTPUT:.
$8100-$81FF INFO SECTOR FOR
FILE.. $8300-$83FF TABLE
OF TRACKS AND SECTORS THAT WERE LOADED..
ERRORS: SEE APPENDIX..
DESCRIPTION: THIS ROUTINE IS CALLED B
Y LOAD TO LOAD APPLICATION. FI
LES. LIKE LOAD2, THIS ROUTINE IS NOT LI
MITED TO ANY PARTICULAR. FILE T
YPE, EXCEPT THAT IT ALSO CAN NOT LOAD A
NON-GEOS FILE. SEE. LOAD FOR
A DESCRIPTION OF THE FLAG BYTE, DATA PO
INTERS AND LOAD. ADDRESS.......
................ GEOS KERNAL RO
UTINES
1-39... FUNCTION NAME: LOAD
AD. PURPOSE: GET THE LOAD ADDRE
SS OF A FILE.. CALL ADDRESS: $C
229. INPUT REQUIREMENTS:.
$14-$15 POINTER TO DIRECTORY
ENTRY.. OUTPUT:.
$04 TRACK OF FILE'S FIRST SECTOR..
$05 SECTOR OF FILE'
S FIRST SECTOR.. $10-$11
LOAD ADDRESS FOR FILE.. $
8100-$81FF INFO SECTOR FOR FILE..
$8300-$8301 TRACK AND SECTOR OF
INFO SECTOR.. ERRORS: SEE APPEN
DIX I... DESCRIPTION: THIS RO
UTINE LOADS THE INFO SECTOR FOR A FILE I
NTO. THE BUFFER AT $8100. THE
LOAD ADDRESS IS SET FROM $8147-$8148..
THIS ROUTINE IS CALLED BY ALL
THE LOAD ROUTINES.... FUNCTION
NAME: LOADSW. PURPOSE: LOAD AND
RUN A FILE USING THE SWAPFILE..
CALL ADDRESS: $C217. INPUT RE
QUIREMENTS:. $14-$15 POI
NTER TO DIRECTORY ENTRY.. OUTPU
T:. $8100-$81FF INFO SECTO
R FOR FILE (MODIFIED).. $8
300-$83FF LIST OF TRACKS AND SECTORS THA
T WERE LOADED.. PREPARATORY ROU
TINES: LOOKUP (POINTER MUST BE COPIED)..
ERRORS: SEE APPENDIX I...
DESCRIPTION: THIS ROUTINE IS USED
TO LOAD DESK ACCESSORIES. THE.
INFO SECTOR IS LOADED TO DETERMINE THE
NECESSARY MEMORY REGION.. THI
S REGION IS SAVED TO A FILE CALLED 'S
WAPFILE', WHOSE INFO. SECTOR
IS THE SAME AS THE FILE TO BE LOADED.
THE DIFFERENCE IS. THAT THE TE
XT FIELD IS CLEARED, AND THE FILE TYPE
IS SYSTEM FILE. (TYPE 4). LDSWA
P MUST BE EVENTUALLY CALLED TO RELOAD TH
E SWAPFILE. AND RETURN TO NOR
MAL OPERATION. THE DIRECTORY ENTRY P
OINTER. SHOULD POINT TO $8400,
AND THE POINTER RETURNED BY LOOKUP. TH
IS. IS DUE TO MEMORY CONFLICTS
THAT WILL ARISE.........................
.. GEOS KERNAL ROUTINES
1-40...
FUNCTION NAME: LOOKUP. P
ROCEDURE: LOOKUP A FILENAME IN THE DIREC
TORY.. CALL ADDRESS: $C20B.
INPUT REQUIREMENTS:.
$0E-$0F POINTER TO FILENAME..
$886E FLAG BYTE.. OU
TPUT:. $04 TRACK FOR
DIRECTORY SECTOR.. $05
SECTOR FOR DIRECTORY SECTOR..
$0C-$0D POINTER TO FILE NAME E
NTRY.. $8000-$80FF DIRECTO
RY SECTOR.. $8400-$841D CO
PY OF DIRECTORY ENTRY.. ERRORS:
SEE APPENDIX.. DESCRIPTION: T
HIS IS A VERY USEFUL ROUTINE. GIVEN A T
EXT STRING. OF A FILENAME, THIS
ROUTINE WILL FIND IT IN THE DIRECTORY.
IF THE. FLAG BYTE AT $886E IS
$00, THEN BOTH DRIVES 8 AND 9 WILL
BE. SCANNED IF NECESSARY. IF TH
E FLAG IS $FF, THEN THE LOOKUP IS ONLY.
TO THE CURRENT DRIVE. IF THERE
IS ONLY ONE DRIVE, THEN THIS FLAG.
HAS NO EFFECT. THE DIRECTORY SECT
OR IS LOADED INTO A BUFFER AT.
$8000, AND THE TRACK AND SECTOR ARE IN
LOCATIONS $04 AND $05. THE. PAR
TICULAR DIRECTORY ENTRY IS COPIED TO $8
400 AND THE POINTER TO. THE ENT
RY IN THE BUFFER IS STORED AT $0C-$0D...
. FUNCTION NAME: MAIN.
PURPOSE: ENTERS GEOS'S MAIN LOOP..
CALL ADDRESS: $C1C3. INPUT
REQUIREMENTS:. $849B-$849
C ADDRESS OF USER'S ADDITION TO GEOS'S M
AIN LOOP. (OPT
IONAL)... DESCRIPTION: THIS LOO
P DOES WHATEVER POLLING IS NEEDED. FIRST
THE. BUTTON IS CHECKED, AS
WELL AS THE KEYBOARD AND THE MOUSE'S
. POSITION. THE COMMAND TABLE
AT $8719 (SEE CMDTBL) IS SCANNED FOR.
EXECUTABLE ROUTINES. THEN THE C
OUNTERS AT $877F (SEE DELAY) ARE.
CHECKED; THOSE THAT HAVE REACHED Z
ERO HAVE THEIR ASSOCIATED. R
OUTINES EXECUTED. THE MEMORY IMAGE OF TH
E CLOCK IS UPDATED. THEN. THE A
LARM CLOCK IS CHECKED. FINALLY, THE US
ER'S ADDITION TO THE. MAIN LOO
P, IF THERE IS ONE, IS EXECUTED. THIS
LOOP CONTINUES. FOREVER......
.................. GEOS KERNAL
ROUTINES
1-41... FUNCTION NAME: MA
KCUR. PURPOSE: MAKES A VERTICAL
BAR CURSOR SPRITE.. CALL ADDRE
SS: $C1C0. INPUT REQUIREMENTS:.
A THE HEIGHT OF T
HE CURSOR MINUS 1 (0-41). OUTPU
T:. SPRITE BLOCK #41 ($8A4
0-$8A7E) IS MADE INTO A VERTICAL BAR.
OF A GIVEN HEIGHT...
DESCRIPTION: GIVEN THE DESIRED HEIGHT
, A VERTICAL BAR IS CREATED. IN
THE SPRITE BLOCK. IF THE HEIGHT IS GRE
ATER THAN 21, THEN THE. HEIGHT
IS HALVED AND THE SPRITE IS Y-EXPAN
DED. NO CHECK IS. PERFORMED
ON THE HEIGHT. IF A HEIGHT GREATER THAN
41 IS USED THEN. THE MEMORY FOR
NEXT FEW SPRITES WILL BE AFFECTED....
FUNCTION NAME: MASL. PU
RPOSE: 16 BIT MULTIPLE ARITHMETIC SHIFT
LEFTS.. CALL ADDRESS: $C15D.
INPUT REQUIREMENTS:.
Y THE SHIFT COUNT..
X THE ADDRESS OF THE 16 BIT
VALUE TO BE SHIFTED.. OUTPUT:.
X RESULT OF SHIFTS
... DESCRIPTION: THIS ROUTINE I
S ONE OF THE GEOS MATH ROUTINES. X HAS.
THE ADDRESS OF A 16 BIT INTEG
ER IN ZERO PAGE, WHICH IS TO BE.
SHIFTED LEFT BY THE COUNT IN Y.....
................................
GEOS KERNAL ROUTINES
1-42... FUN
CTION NAME: MENU. PURPOSE: DRAW
S AND SETS EVERYTHING UP FOR PULL DOWN M
ENUS AND. SUBMENUS..
CALL ADDRESS: $C151. IN
PUT REQUIREMENTS:. A
MENU OPTION TO POSITION MOUSE ON (0 T
O #OPTIONS-1). $02-$03 P
OINTER TO THE MENU DESCRIPTOR...
DESCRIPTION: THIS IS AN EXTREMELY P
OWERFUL ROUTINE. IT DOES. EV
ERYTHING FOR MENU PROCESSING. ONCE C
ONTROL RETURNS TO THE. PROGRA
M THAT CREATED THE MENU, THE PROGRAM CAN
RETURN TO THE GEOS. MAIN LINE
, OR DO ANYTHING ELSE. IT IS IMPORTANT
TO NOTE THAT. MENUS ONLY APP
EAR ON SCREEN 1. LOCATION $2F IS SAVED A
ND RESTORED. DURING THE DRAWI
NG PHASE. THE LEFT AND RIGHT MARGINS AR
E ALSO. LEFT UNALTERED. THE
FOLLOWING IS A DESCRIPTION OF A M
ENU. DESCRIPTOR:.
#BYTES DESCRIPTION.
1 TOP MARGIN OF ENTIRE MENU..
1 BOTTOM MARGIN OF ENT
IRE MENU.. 2 LEFT
MARGIN OF ENTIRE MENU..
2 RIGHT MARGIN OF ENTIRE MENU..
1 CODE BYTE:.
BIT 7 - VERTICAL MENU
.. BIT 6 - SET
SECONDARY BOX DESCRIPTOR TO FULL.
SCREEN;
THIS ALLOWS THE MOUSE TO BE MOVED.
OUTSIDE OF
A MENU WITHOUT CAUSING IT TO.
BE CLOSED..
BITS 0-4 - # ENTRIE
S IN MENU.. THIS IS FOLLOWED
BY SETS OF 5 BYTES; AS MANY AS THER
E ARE. ENTRIES..
2 ADDRESS OF THE TEXT FOR THIS
OPTION.. 1 CODE BY
TE WHICH DESCRIBES WHAT TO DO WITH THE.
ADDRESS THAT FOL
LOWS:. BIT 7 -
OPERAND IS THE ADDRESS OF A SUBMENU.
DESCRIPTOR
.. BIT 6 - CALL
SUBROUTINE, IT MUST RETURN A RESULT.
IN $02-$0
3 WHICH IS EITHER 0 OR THE.
ADDRESS OF THE NEXT
SUBMENU.. IF
NEITHER BIT IS SET, THEN WHEN THIS OPTI
ON IS. SELECTED
IT WILL FLASH BEFORE THE ROUTINE I
S. EXECUTED. C
ONTROL DOES NOT RETURN TO THE MENU.
PROCESSOR..
2 ADDRESS OF EITHER A
SUBMENU DESCRIPTOR OR A.
ROUTINE TO BE EXECUTED.......
.............. GEOS KERNAL ROUT
INES
1-43... FUNCTION NAME: MLSR.
PURPOSE: 16 BIT MULTIPLE LOGICA
L SHIFT RIGHTS.. CALL ADDRESS:
$C262. INPUT REQUIREMENTS:.
Y THE SHIFT COUNT..
X THE ADDRESS OF TH
E 16 BIT VALUE TO BE SHIFTED..
OUTPUT:. X RESULT
OF SHIFTS... DESCRIPTION: THIS
ROUTINE IS ONE OF THE GEOS MATH ROUTINES
. X HAS. THE ADDRESS OF A 16
BIT INTEGER IN ZERO PAGE, WHICH IS TO
BE. SHIFTED RIGHT BY THE COUNT
IN Y.... FUNCTION NAME: MOUSOF
. PURPOSE: TURNS OFF THE MOUSE.
. CALL ADDRESS: $C18D..
DESCRIPTION: THIS ROUTINE RESETS BI
T 7 OF LOCATION $30, AND. AC
TUALLY TURNS OFF THE MOUSE SPRITE....
FUNCTION NAME: MOUSON. P
URPOSE: TURNS ON THE MOUSE.. CA
LL ADDRESS: $C18A.. DESCRIPTION
: THIS ROUTINE SETS BIT 7 OF LOCAT
ION $30. THE. INTERRUPT ROUTI
NES WILL TURN ON THE MOUSE WHEN IT TRIES
TO UPDATE. ITS POSITION....
FUNCTION NAME: NEG16. PU
RPOSE: NEGATES A 16 BIT VALUE..
CALL ADDRESS: $C172. INPUT REQ
UIREMENTS:. X THE
ADDRESS OF THE 16 BIT INTEGER.
OUTPUT:. X THE ADD
RESS OF THE 16 BIT RESULT... DE
SCRIPTION: THIS ROUTINE IS ONE OF THE
GEOS MATH ROUTINES. X. POINTS
TO A 16 BIT VALUE WHICH IS NEGATED. TH
E VALUE OF X IS NOT. AFFECTED..
..................... GEOS KERN
AL ROUTINES
1-44... FUNCTION NAME:
NEXT. PURPOSE: MOVE TO NEXT VL
IR CHAIN.. CALL ADDRESS: $C27A.
OUTPUT:. Y
TRACK OF VLIR CHAIN.. $
04 TRACK OF VLIR CHAIN..
$05 SECTOR OF VLIR CHAIN..
$8496 INCREMENTED BY 1..
PREPARATORY ROUTINES: VOPEN.
ERRORS: SEE APPENDIX I...
DESCRIPTION: THIS ROUTINE GETS THE T
RACK AND SECTOR OF THE NEXT. C
HAIN IN THE OPEN VLIR FILE. IT DOES N
OT CHECK TO SEE IF THE. CHAIN
EXISTS (IE. TRACK IS ZERO). IT DOES CH
ECK IF THIS CHAIN IS. IN RANGE
(AGAINST $8497).... FUNCTION NA
ME: NUMBLK. PURPOSE: COUNTS THE
NUMBER OF FREE BLOCKS IN THE BAM THAT I
S IN. RAM.. C
ALL ADDRESS: $C1DB. INPUT REQUI
REMENTS:. $0C-$0D POINTE
R TO BUFFER WITH TRACK 18 SECTOR 0..
OUTPUT:. $0A-$0B T
HE NUMBER OF FREE BLOCKS.. PREP
ARATORY ROUTINES: RD180.. DESCR
IPTION: THIS ROUTINE EXPECTS THAT THE
BAM HAS ALREADY BEEN. READ INTO
MEMORY. ALL THAT IT DOES IS ADD UP THE
NUMBER OF FREE. BLOCKS IN EAC
H TRACK.... FUNCTION NAME: OPND
SK. PURPOSE: OPENS A DISK TO GE
OS.. CALL ADDRESS: $C2A1.
INPUT REQUIREMENTS:. $
8489 CURRENT DRIVE NUMBER..
OUTPUT:. $848B $00/$F
F GEOS FORMAT OR NOT.. $84
1E-$8465 APPROPRIATE BUFFER WILL HAVE DI
SK'S NAME.. ERRORS: SEE APPENDI
X I... DESCRIPTION: THE CURREN
T DRIVE IS INITIALIZED BY CALLING INITDV
.. GEOS FORMAT IS CHECKED FOR,
AND THE DISK'S NAME IS COPIED INTO.
THE APPROPRIATE BUFFER AT $841E-
$8465.................... GEOS
KERNAL ROUTINES
1-45... FUNCTION N
AME: OPNSER. PURPOSE: OPEN SERI
AL COMMUNICATION.. CALL ADDRESS
: $C25C. ERRORS: SEE APPENDIX I
... DESCRIPTION: THIS ROUTINE
SETS UP THE I/O PORTS FOR HIGH SPEED.
SERIAL COMMUNICATION WITH THE D
ISK DRIVES. THIS ROUTINE IS CALLED.
PRIOR TO CALLING READ2, WRITE2 OR C
WRITE.... FUNCTION NAME: PBOX.
PURPOSE: DRAWS THE OUTLINE OF A
RECTANGULAR BOX IN A GIVEN.
PATTERN.. CALL ADDRESS:
$C127. INPUT REQUIREMENTS:.
A THE ACTUAL BIT PATT
ERN FOR THE BOX.. $06
THE TOP MARGIN.. $07
THE BOTTOM MARGIN.. $08
-$09 THE LEFT MARGIN.. $
0A-$0B THE RIGHT MARGIN... DE
SCRIPTION: THIS ROUTINE DRAWS THE OUTLI
NE OF A RECTANGULAR BOX. IN A
GIVEN PATTERN. THIS ROUTINE CALLS HLINE
AND VLINE TO DRAW. THE OUTLIN
E. SEE ALSO ROWADR.... FUNCTION
NAME: PBOX2. PURPOSE: IDENTICA
L TO PBOX, BUT WITH INLINE DATA..
CALL ADDRESS: $C1A2.. DESCRI
PTION: THIS ROUTINE DRAWS A SOLID OUTLI
NE OF A BOX, WHICH. IS DESCRIB
ED BY INLINE CODE. SEE PFILL2 FOR AN EXA
MPLE.... FUNCTION NAME: PERMIT.
PURPOSE: ENABLES THE EXECUTION
OF A TIMED EVENT.. CALL ADDRES
S: $C10F. INPUT REQUIREMENTS:.
X THE INDEX INTO T
HE COMMAND TABLE AT $8719.. PRE
PARATORY ROUTINES: CMDTBL.. DES
CRIPTION: THIS ROUTINE RESETS BIT 6 OF A
SPECIFIC COMMAND BYTE. IN THE
TABLE AT $8719. THIS ALLOWS THE ASSOCI
ATED ROUTINE TO BE. EXECUTED WH
EN ITS TIMER RUNS OUT. IF THE TIMER HAD
RUN OUT WHILE. THE ROUTINE WAS
DISABLED, GEOS WILL EXECUTE THE ROUTIN
E WHEN IT. GETS TO IT. THIS IS
THE COMPLEMENT TO FORBID...............
.... GEOS KERNAL ROUTINES
1-46...
FUNCTION NAME: PFILL.
PURPOSE: FILLS A RECTANGULAR BOX WITH A
SELECTED DESIGN.. CALL ADDRESS:
$C124. INPUT REQUIREMENTS:.
$06 THE TOP MARGIN..
$07 THE BOTTOM MARGIN
.. $08-$09 THE LEFT MARG
IN.. $0A-$0B THE RIGHT M
ARGIN.. PREPARATORY ROUTINES: S
ETPAT.. DESCRIPTION: THIS ROU
TINE FILLS A RECTANGULAR BOX IN A GIV
EN. DESIGN. THIS ROUTINE CALLS
HLINE REPEATEDLY. SEE ALSO ROWADR....
FUNCTION NAME: PFILL2.
PURPOSE: IDENTICAL TO PFILL, BUT WITH IN
LINE DATA.. CALL ADDRESS: $C19F
. PREPARATORY ROUTINES: SETPAT.
. DESCRIPTION: THIS ROUTINE IS
IDENTICAL TO PFILL EXCEPT THAT DATA.
THAT DESCRIBES THE BOX IS PART OF
THE INLINE CODE. FOR EXAMPLE:.
JSR PFILL2. .BYTE
TOP MARGIN. .BYTE BOTTOM M
ARGIN. .WORD LEFT MARGIN.
.WORD RIGHT MARGIN.
CONTROL RETURNS HERE AFTER BOX I
S FILLED.... FUNCTION NAME: PLO
T. PURPOSE: DRAWS, ERASES OR CO
PIES A PIXEL ON THE HIRES SCREEN..
CALL ADDRESS: $C133. INPUT
REQUIREMENTS:. N FLAG C F
LAG OPERATION. 1
X COPY. 0 1
DRAW. 0 0
ERASE. $08-$09 THE COL
UMN NUMBER.. $18 THE
ROW NUMBER... DESCRIPTION: TH
IS IS A VERY VERSATILE ROUTINE. IT CAN
COPY A. POINT FROM ONE SCRE
EN TO ANOTHER, AS WELL AS DRAW OR ERASE
IT.. THIS ROUTINE IS CALLED B
Y LINE TO DRAW LINES. SEE ALSO ROWADR...
................... GEOS KERNAL
ROUTINES
1-47... FUNCTION NAME: P
OSSPR. PURPOSE: SETS THE POSITI
ON OF A SPRITE.. CALL ADDRESS:
$C1CF. INPUT REQUIREMENTS:.
$08 SPRITE NUMBER (0-7)
.. $0A-$0B SPRITE X POSI
TION.. $0C SPRITE Y
POSITION.. PREPARATORY ROUTINES
: COPYSP.. DESCRIPTION: THIS RO
UTINE COPIES THE SPRITE'S POSITION TO TH
E VIC. CHIP, RELIEVING THE USE
R OF THE BURDEN OF HANDLING THE CROSSOVE
R. IN THE SCREEN FROM COLUMN 25
5 TO COLUMN 256.... FUNCTION NA
ME: PREV. PURPOSE: MOVE TO PREV
IOUS VLIR CHAIN.. CALL ADDRESS:
$C27D. OUTPUT:.
Y TRACK OF VLIR CHAIN..
$04 TRACK OF VLIR CHAIN..
$05 SECTOR OF VLIR CHA
IN.. $8496 DECREMENTED
BY 1.. PREPARATORY ROUTINES: V
OPEN. ERRORS: SEE APPENDIX I...
DESCRIPTION: THIS ROUTINE G
ETS THE TRACK AND SECTOR OF THE.
PREVIOUS CHAIN IN THE OPEN VLIR FI
LE. IT DOES NOT CHECK TO SEE IF.
THE CHAIN EXISTS (IE. TRACK IS ZERO).
IT DOES CHECK IF THIS CHAIN. IS
GREATER THAN ZERO.... FUNCTION
NAME: RANDOM. PURPOSE: MODIFIE
S THE RANDOM NUMBER GENERATOR AT $850A-$
850B.. CALL ADDRESS: $C187.
OUTPUT:. $850A-$850B
NEW SEED VALUE... DESCRIPTI
ON: THIS ROUTINE CHANGES THE 16 BIT RA
NDOM NUMBER AT. $850A-$850B,
USING A SIMPLE YET ELABORATE FORMULA....
FUNCTION NAME: RD180.
PURPOSE: READ TRACK 18, SECTOR 0 FROM T
HE DISK.. CALL ADDRESS: $C247.
OUTPUT:. $04
$12, TRACK NUMBER.. $05
$00, SECTOR NUMBER..
$0A-$0B $8200, ADDRESS OF BUFFER AREA
.. $8200-$82FF DATA FROM T
RACK 18 SECTOR 0.. ERRORS: SEE
APPENDIX I... DESCRIPTION: THI
S ROUTINE SETS UP THE POINTERS FOR REA
D, THEN. CALLS IT TO READ THE
SECTOR. THIS IS GENERALLY USED TO GET
THE. BAM INTO MEMORY..........
. GEOS KERNAL ROUTINES
1-48...
FUNCTION NAME: READ. PURP
OSE: READ A GIVEN TRACK AND SECTOR..
CALL ADDRESS: $C1E4. INPU
T REQUIREMENTS:. $04
TRACK OF SECTOR TO BE READ..
$05 SECTOR NUMBER TO BE READ..
$0A-$0B POINTER TO BUFF
ER.. ERRORS: SEE APPENDIX..
DESCRIPTION: LOADS AND RUNS TURBO
DOS IF IT IS NOT ALREADY THERE..
THEN READS THE DESIRED BLOCK FROM THE
DISK INTO THE BUFFER.... FUNCTI
ON NAME: READ2. PURPOSE: READ A
SECTOR FROM THE DISK.. CALL AD
DRESS: $C21A. INPUT REQUIREMENT
S:. $04 TRACK TO BE
READ.. $05 SECTOR TO
BE READ.. $0A-$0B POINT
ER TO BUFFER FOR DATA.. OUTPUT:
. DATA IS READ INTO THE DE
SIRED BUFFER.. PREPARATORY ROUT
INES: DSETUP. ERRORS: SEE APPEN
DIX I... DESCRIPTION: THIS ROUT
INE IS CALLED BY READ TO READ A SECTOR.
THE. DIFFERENCE BETWEEN THIS
ROUTINE AND READ IS THAT READ CALLS.
DSETUP BEFORE TRYING TO READ
THE SECTOR. THIS ROUTINE ASSUMES.
THAT THE DRIVE IS READY WITH TURBO
DOS RUNNING.... FUNCTION NAME:
REBOOT. PURPOSE: REBOOT GEOS..
CALL ADDRESS: $C000. E
RRORS: IF LOAD FAILS, SYSTEM RESETS TO B
ASIC... DESCRIPTION: THIS ROU
TINE IS NOT PART OF THE NORMAL GEOS KERN
AL. JUMP TABLE. THIS IS THE
ROUTINE THAT IS SET UP AS THE NMI.
INTERRUPT (RESTORE KEY) BY GEO
S WHEN GEOS RETURNS TO BASIC. IT.
LOADS 'GEOS BOOT', AND EXECUTES IT.
........................ GEOS K
ERNAL ROUTINES
1-49... FUNCTION NA
ME: REMOVE. PURPOSE: REMOVE A V
LIR CHAIN.. CALL ADDRESS: $C283
. INPUT REQUIREMENTS:.
$8496 VLIR CHAIN NUMBER..
OUTPUT:. $8496 DE
CREMENTED IF GREATER THAN OR EQUAL TO $8
497.. $8497 DECREMENTE
D BY 1.. PREPARATORY ROUTINES:
VOPEN. ERRORS: SEE APPENDIX I..
. DESCRIPTION: THE CURRENT V
LIR CHAIN IS REMOVED FROM THE VLIR.
SECTOR, AND ALL THE FOLLOWING C
HAINS ARE MOVED DOWN ONE. THE.
SECTORS ASSOCIATED WITH THAT CHAIN AR
E FREED UP.... FUNCTION NAME: R
ENAME. PURPOSE: RENAME A FILE..
CALL ADDRESS: $C259.
INPUT REQUIREMENTS:. $02-$
03 POINTER TO NEW FILE NAME..
$0E-$0F POINTER TO OLD FILE NAME
.. OUTPUT:. $04
TRACK OF DIRECTORY SECTOR..
$05 SECTOR OF DIRECTORY SEC
TOR.. $0C-$0D POINTER TO
FILE NAME IN DIRECTORY ENTRY..
$8400-$841D COPY OF OLD DIRECTORY
ENTRY.. ERRORS: SEE APPENDIX I.
.. DESCRIPTION: THIS ROUTINE RE
NAMES A FILE BY CALLING LOOKUP, THEN.
COPYING THE NEW NAME INTO THE
ENTRY. FINALLY, THE SECTOR IS.
REWRITTEN TO THE DISK.... F
UNCTION NAME: RESETM. PURPOSE:
RESET THE MOUSE.. CALL ADDRESS:
$C19C.. DESCRIPTION: THE FLA
G AT LOCATION $30 IS SET TO $00, AND
THE. MOUSE SPRITE IS TURNED OFF
. HOWEVER, SINCE BIT 7 OF LOCATION $30.
IS NOT SET, THE NEXT INTERRUPT
WILL TURN IT BACK ON.... FUNCT
ION NAME: RESTRT. PURPOSE: REST
ART DESKTOP.. CALL ADDRESS: $C2
2C.. DESCRIPTION: THIS ROUTINE
LOADS DESKTOP AND RUNS IT. IT IS CALLED.
AS THE LAST PART OF THE BOOTUP
PROCEDURE. THIS IS WHERE A PROGRAM.
SHOULD TERMINATE...............
GEOS KERNAL ROUTINES
1-50...
FUNCTION NAME: ROWADR. PURPOS
E: COMPUTES THE ADDRESS OF A GIVEN ROW O
N THE HIRES. SCREENS..
CALL ADDRESS: $C13C.
INPUT REQUIREMENTS:. X
THE ROW NUMBER.. $2F
SEE DESCRIPTION.. OUTPUT:
. $0C-$0D POINTER TO THE
ROW ON THE DESTINATION SCREEN..
$0E-$0F POINTER TO THE ROW ON T
HE SOURCE SCREEN... DESCRIPTION
: THIS ROUTINE COMPUTES THE ADDRESS OF
COLUMN 0 ON A. GIVEN ROW OF TH
E HIRES SCREENS. ALL OF THE GRAPHICS ROU
TINES RELY. ON THIS ROUTINE TO
GET THE ADDRESS OF THE HIRES SCREENS. TH
EY ALL. TAKE THE DATA POINTED
TO BY $0E-$0F AND STORE THEIR DATA TO BO
TH. $0C-$0D AND $0E-$0F. LOC
ATION $2F DETERMINES WHICH SCREEN IS.
POINTED TO BY WHICH POINTER. TH
IS IS AS FOLLOWS:. BIT 7
BIT 6 $0C-$0D $0E-$0F.
0 0 $AF00 $AF00 APPRO
XIMATELY THE.
MIDDLE OF SCREEN 1
. 0 1 SCREEN 2
SCREEN 2. 1 0
SCREEN 1 SCREEN 1. 1
1 SCREEN 1 SCREEN 2 (DEFAULT AT
RESET)... FUNCTION NAME: RUN.
PURPOSE: EXECUTE A PROGRAM ALREA
DY IN MEMORY.. CALL ADDRESS: $C
22F. INPUT REQUIREMENTS:.
$02 FLAG BYTE..
$06-$07 DATA POINTER (OPTIONAL)..
$08-$09 DATA POINTER (O
PTIONAL).. $10-$11 START
ADDRESS.. OUTPUT:.
$06-$07 POINTER TO DRIVE NAME 2..
$08-$09 POINTER TO DRIVE
NAME 3... DESCRIPTION: THIS R
OUTINE PERFORMS SOME INITIALIZATIONS BE
FORE. EXECUTING A LOADED PROGRA
M. IF EITHER BIT 6 OR BIT 7 OF THE FLAG
. BYTE AT LOCATION $02 IS SET,
THEN THE DATA POINTED TO BY $06-$07.
AND $08-$09 ARE COPIED INTO THE B
UFFERS FOR THE 3RD AND 4TH DRIVE.
NAMES. THESE DATA BLOCKS ARE LIMI
TED TO 16 BYTES EACH. THE. I
NITIALIZATION PROCESS SELECTS THE BSW F
ONT AND INITIALIZES ALL. OF GE
OS'S GLOBAL VARIABLES..................
> CLICK IMAGE PREVIEW FOR FULL MODAL