_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PAGE12-25

FILE INFORMATION

FILENAME(S): PAGE12-25

FILE TYPE(S): SEQ

FILE SIZE: 27.8K

FIRST SEEN: 2025-10-20 14:30:31

APPEARS ON: 1 disk(s)

FILE HASH

ca3427988283c94bee157009e7f5fd3c5a4c2be06f4cd26c52b3a40318122728

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
G PD 30 PAGE12-25 SEQ Treasure Chest - Klaus Der Suhler 19 0 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 39 0D 0D 0D 20 20 20  |       1-9...   |
00000050: 20 20 20 20 20 20 20 C6  55 4E 43 54 49 4F 4E 20  |       .UNCTION |
00000060: CE 41 4D 45 3A 20 C1 C2  D3 31 36 0D 20 20 20 20  |.AME: ...16.    |
00000070: 20 20 20 20 20 20 D0 55  52 50 4F 53 45 3A 20 31  |      .URPOSE: 1|
00000080: 36 20 42 49 54 20 41 42  53 4F 4C 55 54 45 20 56  |6 BIT ABSOLUTE V|
00000090: 41 4C 55 45 2E 0D 20 20  20 20 20 20 20 20 20 20  |ALUE..          |
000000A0: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
000000B0: 31 36 C6 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |16..          .N|
000000C0: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
000000D0: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
000000E0: 20 D8 20 20 20 20 20 20  20 20 20 D4 48 45 20 41  | .         .HE A|
000000F0: 44 44 52 45 53 53 20 4F  46 20 54 48 45 20 31 36  |DDRESS OF THE 16|
00000100: 20 42 49 54 20 49 4E 54  45 47 45 52 2E 0D 20 20  | BIT INTEGER..  |
00000110: 20 20 20 20 20 20 20 20  CF 55 54 50 55 54 3A 0D  |        .UTPUT:.|
00000120: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 D8  |               .|
00000130: 20 20 20 20 20 20 20 20  20 D4 48 45 20 41 44 44  |         .HE ADD|
00000140: 52 45 53 53 20 41 20 50  4F 53 49 54 49 56 45 20  |RESS A POSITIVE |
00000150: 31 36 20 42 49 54 20 49  4E 54 45 47 45 52 2E 0D  |16 BIT INTEGER..|
00000160: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00000170: 49 50 54 49 4F 4E 3A 20  20 D4 48 49 53 20 20 52  |IPTION:  .HIS  R|
00000180: 4F 55 54 49 4E 45 20 49  53 20 4F 4E 45 20 4F 46  |OUTINE IS ONE OF|
00000190: 20 54 48 45 20 C7 C5 CF  D3 20 4D 41 54 48 20 20  | THE .... MATH  |
000001A0: 52 4F 55 54 49 4E 45 53  2E 20 20 D8 0D 20 20 20  |ROUTINES.  ..   |
000001B0: 20 20 20 20 20 20 20 50  4F 49 4E 54 53 20 54 4F  |       POINTS TO|
000001C0: 20 41 20 31 36 20 42 49  54 20 56 41 4C 55 45 20  | A 16 BIT VALUE |
000001D0: 57 48 49 43 48 20 49 46  20 46 4F 55 4E 44 20 54  |WHICH IF FOUND T|
000001E0: 4F 20 42 45 20 4E 45 47  41 54 49 56 45 2C 20 20  |O BE NEGATIVE,  |
000001F0: CE C5 C7 31 36 20 49 53  0D 20 20 20 20 20 20 20  |...16 IS.       |
00000200: 20 20 20 43 41 4C 4C 45  44 20 54 4F 20 4D 41 4B  |   CALLED TO MAK|
00000210: 45 20 49 54 20 50 4F 53  49 54 49 56 45 2E 0D 0D  |E IT POSITIVE...|
00000220: 0D 20 20 20 20 20 20 20  20 20 20 C6 55 4E 43 54  |.          .UNCT|
00000230: 49 4F 4E 20 CE 41 4D 45  3A 20 C1 CC CC CF C3 0D  |ION .AME: ......|
00000240: 20 20 20 20 20 20 20 20  20 20 D0 55 52 50 4F 53  |          .URPOS|
00000250: 45 3A 20 C1 4C 4C 4F 43  41 54 45 20 41 20 42 4C  |E: .LLOCATE A BL|
00000260: 4F 43 4B 20 4F 4E 20 54  48 45 20 44 49 53 4B 2E  |OCK ON THE DISK.|
00000270: 0D 20 20 20 20 20 20 20  20 20 20 C3 41 4C 4C 20  |.          .ALL |
00000280: 41 44 44 52 45 53 53 3A  20 24 C3 32 39 32 0D 20  |ADDRESS: $.292. |
00000290: 20 20 20 20 20 20 20 20  20 C9 4E 50 55 54 20 52  |         .NPUT R|
000002A0: 45 51 55 49 52 45 4D 45  4E 54 53 3A 0D 20 20 20  |EQUIREMENTS:.   |
000002B0: 20 20 20 20 20 20 20 20  20 20 20 20 24 30 38 20  |            $08 |
000002C0: 20 20 20 20 20 20 D4 52  41 43 4B 20 54 4F 20 53  |      .RACK TO S|
000002D0: 54 41 52 54 20 53 43 41  4E 4E 49 4E 47 20 46 52  |TART SCANNING FR|
000002E0: 4F 4D 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |OM..            |
000002F0: 20 20 20 24 30 39 20 20  20 20 20 20 20 D3 45 43  |   $09       .EC|
00000300: 54 4F 52 20 54 4F 20 53  54 41 52 54 20 53 43 41  |TOR TO START SCA|
00000310: 4E 4E 49 4E 47 20 46 52  4F 4D 2E 0D 20 20 20 20  |NNING FROM..    |
00000320: 20 20 20 20 20 20 20 20  20 20 20 24 38 32 30 30  |           $8200|
00000330: 2D 24 38 32 C6 C6 20 D4  52 41 43 4B 20 31 38 20  |-$82.. .RACK 18 |
00000340: 53 45 43 54 4F 52 20 30  2C 20 C2 C1 CD 2E 0D 20  |SECTOR 0, ..... |
00000350: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 38  |              $8|
00000360: 34 39 C3 20 20 20 20 20  D3 4B 45 57 20 46 41 43  |49.     .KEW FAC|
00000370: 54 4F 52 20 28 44 45 46  41 55 4C 54 20 49 53 20  |TOR (DEFAULT IS |
00000380: 38 29 2E 0D 20 20 20 20  20 20 20 20 20 20 CF 55  |8)..          .U|
00000390: 54 50 55 54 3A 0D 20 20  20 20 20 20 20 20 20 20  |TPUT:.          |
000003A0: 20 20 20 20 20 24 30 38  20 20 20 20 20 20 20 CE  |     $08       .|
000003B0: 45 57 20 54 52 41 43 4B  20 4E 55 4D 42 45 52 2E  |EW TRACK NUMBER.|
000003C0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000003D0: 24 30 39 20 20 20 20 20  20 20 CE 45 57 20 53 45  |$09       .EW SE|
000003E0: 43 54 4F 52 20 4E 55 4D  42 45 52 2E 0D 20 20 20  |CTOR NUMBER..   |
000003F0: 20 20 20 20 20 20 20 C5  52 52 4F 52 53 3A 20 D3  |       .RRORS: .|
00000400: 45 45 20 41 50 50 45 4E  44 49 58 20 C9 2E 0D 0D  |EE APPENDIX ....|
00000410: 20 20 20 20 20 20 20 20  20 20 C4 45 53 43 52 49  |          .ESCRI|
00000420: 50 54 49 4F 4E 3A 20 20  D4 48 49 53 20 20 52 4F  |PTION:  .HIS  RO|
00000430: 55 54 49 4E 45 20 20 45  58 50 45 43 54 53 20 54  |UTINE  EXPECTS T|
00000440: 48 41 54 20 54 48 45 20  C2 C1 CD 20 49 53 20 20  |HAT THE ... IS  |
00000450: 41 4C 52 45 41 44 59 20  20 49 4E 0D 20 20 20 20  |ALREADY  IN.    |
00000460: 20 20 20 20 20 20 4D 45  4D 4F 52 59 2E 20 20 C9  |      MEMORY.  .|
00000470: 54 20 20 53 43 41 4E 53  20 20 54 48 45 20 20 C2  |T  SCANS  THE  .|
00000480: C1 CD 20 53 54 41 52 54  49 4E 47 20 41 54 20 20  |.. STARTING AT  |
00000490: 41 20 20 53 50 45 43 49  46 49 45 44 20 20 4C 4F  |A  SPECIFIED  LO|
000004A0: 43 41 54 49 4F 4E 2C 0D  20 20 20 20 20 20 20 20  |CATION,.        |
000004B0: 20 20 4C 4F 4F 4B 49 4E  47 20 20 46 4F 52 20 20  |  LOOKING  FOR  |
000004C0: 41 20 20 46 52 45 45 20  53 45 43 54 4F 52 2E 20  |A  FREE SECTOR. |
000004D0: 20 C9 46 20 4F 4E 45 20  49 53 20 46 4F 55 4E 44  | .F ONE IS FOUND|
000004E0: 20 20 49 54 20 20 49 53  20 20 52 45 54 55 52 4E  |  IT  IS  RETURN|
000004F0: 45 44 2C 0D 20 20 20 20  20 20 20 20 20 20 4F 54  |ED,.          OT|
00000500: 48 45 52 57 49 53 45 20  41 4E 20 45 52 52 4F 52  |HERWISE AN ERROR|
00000510: 20 52 45 53 55 4C 54 53  2E 20 20 20 D4 48 45 20  | RESULTS.   .HE |
00000520: 53 45 43 54 4F 52 20 49  53 20 41 4C 4C 4F 43 41  |SECTOR IS ALLOCA|
00000530: 54 45 44 20 49 4E 20 54  48 45 20 C2 C1 CD 2C 0D  |TED IN THE ...,.|
00000540: 20 20 20 20 20 20 20 20  20 20 41 4E 44 20 54 48  |          AND TH|
00000550: 45 20 C2 C1 CD 20 4D 55  53 54 20 42 45 20 55 50  |E ... MUST BE UP|
00000560: 44 41 54 45 44 20 54 4F  20 44 49 53 4B 20 20 41  |DATED TO DISK  A|
00000570: 46 54 45 52 57 41 52 44  53 20 49 4E 20 20 4F 52  |FTERWARDS IN  OR|
00000580: 44 45 52 20 46 4F 52 20  54 48 45 0D 20 20 20 20  |DER FOR THE.    |
00000590: 20 20 20 20 20 20 53 45  43 54 4F 52 20 54 4F 20  |      SECTOR TO |
000005A0: 52 45 4D 41 49 4E 20 41  4C 4C 4F 43 41 54 45 44  |REMAIN ALLOCATED|
000005B0: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
000005C0: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 C1 D0 D0  |NCTION .AME: ...|
000005D0: C5 CE C4 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |....          .U|
000005E0: 52 50 4F 53 45 3A 20 C1  50 50 45 4E 44 20 41 20  |RPOSE: .PPEND A |
000005F0: 4E 45 57 20 43 48 41 49  4E 20 49 4E 20 41 20 D6  |NEW CHAIN IN A .|
00000600: CC C9 D2 20 46 49 4C 45  2E 0D 20 20 20 20 20 20  |... FILE..      |
00000610: 20 20 20 20 C3 41 4C 4C  20 41 44 44 52 45 53 53  |    .ALL ADDRESS|
00000620: 3A 20 24 C3 32 38 39 0D  20 20 20 20 20 20 20 20  |: $.289.        |
00000630: 20 20 C9 4E 50 55 54 20  52 45 51 55 49 52 45 4D  |  .NPUT REQUIREM|
00000640: 45 4E 54 53 3A 0D 20 20  20 20 20 20 20 20 20 20  |ENTS:.          |
00000650: 20 20 20 20 20 24 38 34  39 36 20 20 20 20 20 C3  |     $8496     .|
00000660: 55 52 52 45 4E 54 20 43  48 41 49 4E 20 4E 55 4D  |URRENT CHAIN NUM|
00000670: 42 45 52 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |BER..          .|
00000680: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00000690: 20 20 20 20 20 20 24 38  34 39 36 20 20 20 20 20  |      $8496     |
000006A0: C9 4E 43 52 45 4D 45 4E  54 45 44 20 42 59 20 31  |.NCREMENTED BY 1|
000006B0: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000006C0: 20 24 38 34 39 37 20 20  20 20 20 C9 4E 43 52 45  | $8497     .NCRE|
000006D0: 4D 45 4E 54 45 44 20 42  59 20 31 2E 0D 20 20 20  |MENTED BY 1..   |
000006E0: 20 20 20 20 20 20 20 D0  52 45 50 41 52 41 54 4F  |       .REPARATO|
000006F0: 52 59 20 52 4F 55 54 49  4E 45 53 3A 20 D6 CF D0  |RY ROUTINES: ...|
00000700: C5 CE 0D 20 20 20 20 20  20 20 20 20 20 C5 52 52  |...          .RR|
00000710: 4F 52 53 3A 20 D3 45 45  20 41 50 50 45 4E 44 49  |ORS: .EE APPENDI|
00000720: 58 20 C9 2E 0D 0D 20 20  20 20 20 20 20 20 20 20  |X ....          |
00000730: C4 45 53 43 52 49 50 54  49 4F 4E 3A 20 20 C1 20  |.ESCRIPTION:  . |
00000740: 20 48 4F 4C 45 20 49 53  20 4F 50 45 4E 45 44 20  | HOLE IS OPENED |
00000750: 55 50 20 49 4E 20 54 48  45 20 D6 CC C9 D2 20 53  |UP IN THE .... S|
00000760: 45 43 54 4F 52 20 49 4D  4D 45 44 49 41 54 45 4C  |ECTOR IMMEDIATEL|
00000770: 59 0D 20 20 20 20 20 20  20 20 20 20 46 4F 4C 4C  |Y.          FOLL|
00000780: 4F 57 49 4E 47 20 20 54  48 45 20 43 55 52 52 45  |OWING  THE CURRE|
00000790: 4E 54 20 43 48 41 49 4E  2E 20 20 D4 48 45 20 48  |NT CHAIN.  .HE H|
000007A0: 4F 4C 45 20 49 53 20 46  49 4C 4C 45 44 20 20 57  |OLE IS FILLED  W|
000007B0: 49 54 48 20 20 24 30 30  2C 24 C6 C6 2E 0D 20 20  |ITH  $00,$....  |
000007C0: 20 20 20 20 20 20 20 20  D4 48 49 53 20 20 52 45  |        .HIS  RE|
000007D0: 50 52 45 53 45 4E 54 53  20 20 41 20 20 4E 55 4C  |PRESENTS  A  NUL|
000007E0: 4C 20 43 48 41 49 4E 2E  20 20 D4 48 49 53 20 48  |L CHAIN.  .HIS H|
000007F0: 4F 4C 45 20 42 45 43 4F  4D 45 53 20 20 54 48 45  |OLE BECOMES  THE|
00000800: 20 20 43 55 52 52 45 4E  54 0D 20 20 20 20 20 20  |  CURRENT.      |
00000810: 20 20 20 20 43 48 41 49  4E 2E 0D 0D 0D 0D 0D 0D  |    CHAIN.......|
00000820: 0D 0D 0D 0D 0D 0D 0D 0D  0D 20 20 20 20 20 20 20  |.........       |
00000830: 20 20 20 C7 C5 CF D3 20  CB 45 52 4E 41 4C 20 D2  |   .... .ERNAL .|
00000840: 4F 55 54 49 4E 45 53 20  20 20 20 20 20 20 20 20  |OUTINES         |
00000850: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000860: 20 20 20 20 20 20 20 20  20 20 20 20 20 31 2D 31  |             1-1|
00000870: 30 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |0...          .U|
00000880: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 C2 C1 D3  |NCTION .AME: ...|
00000890: C9 C3 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
000008A0: 50 4F 53 45 3A 20 D2 45  53 54 41 52 54 20 C2 C1  |POSE: .ESTART ..|
000008B0: D3 C9 C3 20 57 49 54 48  20 4F 50 54 49 4F 4E 41  |... WITH OPTIONA|
000008C0: 4C 20 50 52 4F 47 52 41  4D 20 4C 4F 41 44 2E 0D  |L PROGRAM LOAD..|
000008D0: 20 20 20 20 20 20 20 20  20 20 C3 41 4C 4C 20 41  |          .ALL A|
000008E0: 44 44 52 45 53 53 3A 20  24 C3 32 34 31 0D 20 20  |DDRESS: $.241.  |
000008F0: 20 20 20 20 20 20 20 20  C9 4E 50 55 54 20 52 45  |        .NPUT RE|
00000900: 51 55 49 52 45 4D 45 4E  54 53 3A 0D 20 20 20 20  |QUIREMENTS:.    |
00000910: 20 20 20 20 20 20 20 20  20 20 20 24 30 32 2D 24  |           $02-$|
00000920: 30 33 20 20 20 D0 4F 49  4E 54 45 52 20 54 4F 20  |03   .OINTER TO |
00000930: 34 30 20 43 48 41 52 41  43 54 45 52 53 20 4F 46  |40 CHARACTERS OF|
00000940: 20 54 45 58 54 2E 0D 20  20 20 20 20 20 20 20 20  | TEXT..         |
00000950: 20 20 20 20 20 20 24 30  C3 2D 24 30 C4 20 20 20  |      $0.-$0.   |
00000960: D0 4F 49 4E 54 45 52 20  54 4F 20 46 49 4C 45 27  |.OINTER TO FILE'|
00000970: 53 20 44 49 52 45 43 54  4F 52 59 20 45 4E 54 52  |S DIRECTORY ENTR|
00000980: 59 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |Y..             |
00000990: 20 20 24 31 30 2D 24 31  31 20 20 20 CC 4F 41 44  |  $10-$11   .OAD|
000009A0: 20 41 44 44 52 45 53 53  2E 0D 20 20 20 20 20 20  | ADDRESS..      |
000009B0: 20 20 20 20 D0 52 45 50  41 52 41 54 4F 52 59 20  |    .REPARATORY |
000009C0: 52 4F 55 54 49 4E 45 53  3A 20 CC CF CF CB D5 D0  |ROUTINES: ......|
000009D0: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
000009E0: 52 49 50 54 49 4F 4E 3A  20 D4 48 45 20 34 30 20  |RIPTION: .HE 40 |
000009F0: 43 48 41 52 41 43 54 45  52 53 20 50 4F 49 4E 54  |CHARACTERS POINT|
00000A00: 45 44 20 54 4F 20 42 59  20 24 30 32 2D 24 30 33  |ED TO BY $02-$03|
00000A10: 20 41 52 45 20 53 41 56  45 44 20 49 4E 0D 20 20  | ARE SAVED IN.  |
00000A20: 20 20 20 20 20 20 20 20  41 20 42 55 46 46 45 52  |        A BUFFER|
00000A30: 2E 20 20 C9 46 20 24 30  C3 2D 24 30 C4 20 49 53  |.  .F $0.-$0. IS|
00000A40: 20 4E 4F 4E 2D 5A 45 52  4F 2C 20 54 48 45 20 46  | NON-ZERO, THE F|
00000A50: 49 4C 45 20 49 53 20 4C  4F 41 44 45 44 20 49 4E  |ILE IS LOADED IN|
00000A60: 54 4F 20 4D 45 4D 4F 52  59 0D 20 20 20 20 20 20  |TO MEMORY.      |
00000A70: 20 20 20 20 41 54 20 20  54 48 45 20 41 44 44 52  |    AT  THE ADDR|
00000A80: 45 53 53 20 53 50 45 43  49 46 49 45 44 20 42 59  |ESS SPECIFIED BY|
00000A90: 20 24 31 30 2D 24 31 31  2E 20 20 C2 C1 D3 C9 C3  | $10-$11.  .....|
00000AA0: 20 49 53 20 52 45 53 54  41 52 54 45 44 20 57 49  | IS RESTARTED WI|
00000AB0: 54 48 20 41 4E 0D 20 20  20 20 20 20 20 20 20 20  |TH AN.          |
00000AC0: 49 4E 54 45 52 52 55 50  54 20 56 45 43 54 4F 52  |INTERRUPT VECTOR|
00000AD0: 2E 20 D4 48 49 53 20 49  4E 54 45 52 52 55 50 54  |. .HIS INTERRUPT|
00000AE0: 20 49 53 20 53 45 54 20  55 50 20 54 4F 20 47 49  | IS SET UP TO GI|
00000AF0: 56 45 20 C2 C1 D3 C9 C3  20 41 20 43 48 41 4E 43  |VE ..... A CHANC|
00000B00: 45 0D 20 20 20 20 20 20  20 20 20 20 54 4F 20 53  |E.          TO S|
00000B10: 54 41 52 54 20 55 50 2E  20 C1 46 54 45 52 20 54  |TART UP. .FTER T|
00000B20: 48 45 20 54 49 4D 45 20  48 41 53 20 45 4C 41 50  |HE TIME HAS ELAP|
00000B30: 53 45 44 2C 20 54 48 45  20 34 30 20 43 48 41 52  |SED, THE 40 CHAR|
00000B40: 41 43 54 45 52 53 20 49  4E 20 54 48 45 0D 20 20  |ACTERS IN THE.  |
00000B50: 20 20 20 20 20 20 20 20  42 55 46 46 45 52 20 20  |        BUFFER  |
00000B60: 41 52 45 20 20 43 4F 50  49 45 44 20 20 54 4F 20  |ARE  COPIED  TO |
00000B70: 20 54 48 45 20 53 43 52  45 45 4E 20 41 4E 44 20  | THE SCREEN AND |
00000B80: 41 20 C3 D2 20 20 49 53  20 20 50 4C 41 43 45 44  |A ..  IS  PLACED|
00000B90: 20 20 49 4E 20 20 54 48  45 0D 20 20 20 20 20 20  |  IN  THE.      |
00000BA0: 20 20 20 20 4B 45 59 42  4F 41 52 44 20 42 55 46  |    KEYBOARD BUF|
00000BB0: 46 45 52 2E 20 20 D4 48  45 20 49 4E 54 45 52 52  |FER.  .HE INTERR|
00000BC0: 55 50 54 20 56 45 43 54  4F 52 20 49 53 20 54 48  |UPT VECTOR IS TH|
00000BD0: 45 4E 20 52 45 4D 4F 56  45 44 2C 20 20 42 55 54  |EN REMOVED,  BUT|
00000BE0: 20 20 54 48 45 0D 20 20  20 20 20 20 20 20 20 20  |  THE.          |
00000BF0: CE CD C9 20 56 45 43 54  4F 52 20 49 53 20 53 45  |... VECTOR IS SE|
00000C00: 54 20 55 50 20 54 4F 20  52 45 42 4F 4F 54 20 C7  |T UP TO REBOOT .|
00000C10: C5 CF D3 2E 20 D4 48 45  20 52 45 42 4F 4F 54 20  |.... .HE REBOOT |
00000C20: 43 4F 44 45 20 49 53 20  41 54 20 24 C3 30 30 30  |CODE IS AT $.000|
00000C30: 2D 0D 20 20 20 20 20 20  20 20 20 20 24 C3 30 33  |-.          $.03|
00000C40: 37 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |7....          .|
00000C50: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C2 CC  |UNCTION .AME: ..|
00000C60: CB C3 CD D0 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
00000C70: 55 52 50 4F 53 45 3A 20  C3 4F 4D 50 41 52 45 53  |URPOSE: .OMPARES|
00000C80: 20 54 57 4F 20 42 4C 4F  43 4B 53 20 4F 46 20 4D  | TWO BLOCKS OF M|
00000C90: 45 4D 4F 52 59 20 46 4F  52 20 41 20 46 49 58 45  |EMORY FOR A FIXE|
00000CA0: 44 20 4C 45 4E 47 54 48  2E 0D 20 20 20 20 20 20  |D LENGTH..      |
00000CB0: 20 20 20 20 C3 41 4C 4C  20 41 44 44 52 45 53 53  |    .ALL ADDRESS|
00000CC0: 3A 20 24 C3 32 36 C5 0D  20 20 20 20 20 20 20 20  |: $.26..        |
00000CD0: 20 20 C9 4E 50 55 54 20  52 45 51 55 49 52 45 4D  |  .NPUT REQUIREM|
00000CE0: 45 4E 54 53 3A 0D 20 20  20 20 20 20 20 20 20 20  |ENTS:.          |
00000CF0: 20 20 20 20 20 C1 20 20  20 20 20 20 20 20 20 C2  |     .         .|
00000D00: 59 54 45 20 43 4F 55 4E  54 2E 0D 20 20 20 20 20  |YTE COUNT..     |
00000D10: 20 20 20 20 20 20 20 20  20 20 D8 20 20 20 20 20  |          .     |
00000D20: 20 20 20 20 C1 44 44 52  45 53 53 20 4F 46 20 5A  |    .DDRESS OF Z|
00000D30: 45 52 4F 20 50 41 47 45  20 53 4F 55 52 43 45 20  |ERO PAGE SOURCE |
00000D40: 50 4F 49 4E 54 45 52 2E  0D 20 20 20 20 20 20 20  |POINTER..       |
00000D50: 20 20 20 20 20 20 20 20  D9 20 20 20 20 20 20 20  |        .       |
00000D60: 20 20 C1 44 44 52 45 53  53 20 4F 46 20 5A 45 52  |  .DDRESS OF ZER|
00000D70: 4F 20 50 41 47 45 20 44  45 53 54 49 4E 41 54 49  |O PAGE DESTINATI|
00000D80: 4F 4E 20 50 4F 49 4E 54  45 52 2E 0D 20 20 20 20  |ON POINTER..    |
00000D90: 20 20 20 20 20 20 CF 55  54 50 55 54 3A 0D 20 20  |      .UTPUT:.  |
00000DA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 DA 20 46  |             . F|
00000DB0: 4C 41 47 20 20 20 20 D3  45 54 20 41 43 43 4F 52  |LAG    .ET ACCOR|
00000DC0: 44 49 4E 47 4C 59 2E 0D  0D 20 20 20 20 20 20 20  |DINGLY...       |
00000DD0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00000DE0: D4 48 45 20 D8 20 41 4E  44 20 D9 20 52 45 47 49  |.HE . AND . REGI|
00000DF0: 53 54 45 52 53 20 50 4F  49 4E 54 20 54 4F 20 5A  |STERS POINT TO Z|
00000E00: 45 52 4F 20 50 41 47 45  20 50 4F 49 4E 54 45 52  |ERO PAGE POINTER|
00000E10: 53 2E 20 C1 0D 20 20 20  20 20 20 20 20 20 20 48  |S. ..          H|
00000E20: 41 53 20 20 54 48 45 20  20 4E 55 4D 42 45 52 20  |AS  THE  NUMBER |
00000E30: 4F 46 20 42 59 54 45 53  20 54 4F 20 42 45 20 43  |OF BYTES TO BE C|
00000E40: 4F 4D 50 41 52 45 44 20  28 31 2D 32 35 35 29 2E  |OMPARED (1-255).|
00000E50: 20 20 C9 46 20 C1 20 49  53 20 20 5A 45 52 4F 2C  |  .F . IS  ZERO,|
00000E60: 0D 20 20 20 20 20 20 20  20 20 20 54 48 49 53 20  |.          THIS |
00000E70: 52 4F 55 54 49 4E 45 20  57 49 4C 4C 20 43 4F 4D  |ROUTINE WILL COM|
00000E80: 50 41 52 45 20 55 50 20  54 4F 20 41 4E 44 20 49  |PARE UP TO AND I|
00000E90: 4E 43 4C 55 44 49 4E 47  20 41 20 5A 45 52 4F 20  |NCLUDING A ZERO |
00000EA0: 42 59 54 45 2E 20 20 D4  48 45 20 DA 0D 20 20 20  |BYTE.  .HE ..   |
00000EB0: 20 20 20 20 20 20 20 46  4C 41 47 20 49 53 20 53  |       FLAG IS S|
00000EC0: 45 54 20 41 43 43 4F 52  44 49 4E 47 4C 59 2E 20  |ET ACCORDINGLY. |
00000ED0: D3 45 45 20 D3 D4 D2 C3  CD D0 2E 0D 0D 0D 20 20  |.EE ..........  |
00000EE0: 20 20 20 20 20 20 20 20  C6 55 4E 43 54 49 4F 4E  |        .UNCTION|
00000EF0: 20 CE 41 4D 45 3A 20 C2  CC CB C6 C9 CC 0D 20 20  | .AME: .......  |
00000F00: 20 20 20 20 20 20 20 20  D0 55 52 50 4F 53 45 3A  |        .URPOSE:|
00000F10: 20 C6 49 4C 4C 53 20 41  20 4D 45 4D 4F 52 59 20  | .ILLS A MEMORY |
00000F20: 52 45 47 49 4F 4E 20 57  49 54 48 20 41 20 53 50  |REGION WITH A SP|
00000F30: 45 43 49 46 49 45 44 20  42 59 54 45 2E 0D 20 20  |ECIFIED BYTE..  |
00000F40: 20 20 20 20 20 20 20 20  C3 41 4C 4C 20 41 44 44  |        .ALL ADD|
00000F50: 52 45 53 53 3A 20 24 C3  31 37 C2 0D 20 20 20 20  |RESS: $.17..    |
00000F60: 20 20 20 20 20 20 C9 4E  50 55 54 20 52 45 51 55  |      .NPUT REQU|
00000F70: 49 52 45 4D 45 4E 54 53  3A 0D 20 20 20 20 20 20  |IREMENTS:.      |
00000F80: 20 20 20 20 20 20 20 20  20 24 30 32 2D 24 30 33  |         $02-$03|
00000F90: 20 20 20 D4 48 45 20 4C  45 4E 47 54 48 20 4F 46  |   .HE LENGTH OF|
00000FA0: 20 54 48 45 20 52 45 47  49 4F 4E 2E 0D 20 20 20  | THE REGION..   |
00000FB0: 20 20 20 20 20 20 20 20  20 20 20 20 24 30 34 2D  |            $04-|
00000FC0: 24 30 35 20 20 20 D4 48  45 20 41 44 44 52 45 53  |$05   .HE ADDRES|
00000FD0: 53 20 4F 46 20 54 48 45  20 52 45 47 49 4F 4E 2E  |S OF THE REGION.|
00000FE0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000FF0: 24 30 36 20 20 20 20 20  20 20 D4 48 45 20 42 59  |$06       .HE BY|
00001000: 54 45 20 54 4F 20 46 49  4C 4C 20 54 48 45 20 52  |TE TO FILL THE R|
00001010: 45 47 49 4F 4E 20 57 49  54 48 2E 0D 0D 20 20 20  |EGION WITH...   |
00001020: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00001030: 4F 4E 3A 20 C1 20 53 49  4D 50 4C 45 20 4C 4F 4F  |ON: . SIMPLE LOO|
00001040: 50 20 46 49 4C 4C 53 20  4D 45 4D 4F 52 59 20 57  |P FILLS MEMORY W|
00001050: 49 54 48 20 54 48 45 20  53 50 45 43 49 46 49 45  |ITH THE SPECIFIE|
00001060: 44 20 42 59 54 45 2E 0D  0D 0D 0D 0D 0D 0D 0D 0D  |D BYTE..........|
00001070: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 20 20 20 20 20 20  |..........      |
00001080: 20 20 20 20 C7 C5 CF D3  20 CB 45 52 4E 41 4C 20  |    .... .ERNAL |
00001090: D2 4F 55 54 49 4E 45 53  20 20 20 20 20 20 20 20  |.OUTINES        |
000010A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 2D  |              1-|
000010C0: 31 31 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |11...          .|
000010D0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C2 CC  |UNCTION .AME: ..|
000010E0: CB C6 CC 32 0D 20 20 20  20 20 20 20 20 20 20 D0  |...2.          .|
000010F0: 55 52 50 4F 53 45 3A 20  C9 44 45 4E 54 49 43 41  |URPOSE: .DENTICA|
00001100: 4C 20 54 4F 20 C2 CC CB  C6 C9 CC 2C 20 42 55 54  |L TO ......, BUT|
00001110: 20 57 49 54 48 20 49 4E  4C 49 4E 45 20 44 41 54  | WITH INLINE DAT|
00001120: 41 2E 0D 20 20 20 20 20  20 20 20 20 20 C3 41 4C  |A..          .AL|
00001130: 4C 20 41 44 44 52 45 53  53 3A 20 24 C3 31 C2 34  |L ADDRESS: $.1.4|
00001140: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
00001150: 52 49 50 54 49 4F 4E 3A  20 20 20 D4 48 49 53 20  |RIPTION:   .HIS |
00001160: 20 52 4F 55 54 49 4E 45  20 20 54 41 4B 45 53 20  | ROUTINE  TAKES |
00001170: 20 54 48 45 20 20 49 4E  4C 49 4E 45 20 20 44 41  | THE  INLINE  DA|
00001180: 54 41 20 20 41 4E 44 20  20 53 45 54 53 0D 20 20  |TA  AND  SETS.  |
00001190: 20 20 20 20 20 20 20 20  45 56 45 52 59 54 48 49  |        EVERYTHI|
000011A0: 4E 47 20 55 50 20 42 45  46 4F 52 45 20 43 41 4C  |NG UP BEFORE CAL|
000011B0: 4C 49 4E 47 20 C2 CC CB  C6 C9 CC 2E 20 C6 4F 52  |LING ....... .OR|
000011C0: 20 45 58 41 4D 50 4C 45  3A 0D 20 20 20 20 20 20  | EXAMPLE:.      |
000011D0: 20 20 20 20 20 20 20 20  20 20 CA D3 D2 20 C2 CC  |          ... ..|
000011E0: CB C6 CC 32 0D 20 20 20  20 20 20 20 20 20 20 20  |...2.           |
000011F0: 20 20 20 20 2E D7 CF D2  C4 20 CC 45 4E 47 54 48  |    ..... .ENGTH|
00001200: 20 4F 46 20 52 45 47 49  4F 4E 0D 20 20 20 20 20  | OF REGION.     |
00001210: 20 20 20 20 20 20 20 20  20 20 2E D7 CF D2 C4 20  |          ..... |
00001220: C1 44 44 52 45 53 53 20  4F 46 20 52 45 47 49 4F  |.DDRESS OF REGIO|
00001230: 4E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |N.              |
00001240: 20 2E C2 D9 D4 C5 20 C2  59 54 45 20 54 4F 20 46  | ..... .YTE TO F|
00001250: 49 4C 4C 20 4D 45 4D 4F  52 59 20 57 49 54 48 0D  |ILL MEMORY WITH.|
00001260: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 C3  |               .|
00001270: 4F 4E 54 52 4F 4C 20 52  45 54 55 52 4E 53 20 48  |ONTROL RETURNS H|
00001280: 45 52 45 20 55 50 4F 4E  20 43 4F 4D 50 4C 45 54  |ERE UPON COMPLET|
00001290: 49 4F 4E 2E 0D 0D 0D 20  20 20 20 20 20 20 20 20  |ION....         |
000012A0: 20 C6 55 4E 43 54 49 4F  4E 20 CE 41 4D 45 3A 20  | .UNCTION .AME: |
000012B0: C2 CC CB CD CF D6 0D 20  20 20 20 20 20 20 20 20  |.......         |
000012C0: 20 D0 55 52 50 4F 53 45  3A 20 C3 4F 50 59 20 41  | .URPOSE: .OPY A|
000012D0: 20 42 4C 4F 43 4B 20 4F  46 20 4D 45 4D 4F 52 59  | BLOCK OF MEMORY|
000012E0: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
000012F0: 20 41 44 44 52 45 53 53  3A 20 24 C3 32 36 38 0D  | ADDRESS: $.268.|
00001300: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
00001310: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
00001320: 20 20 20 20 20 20 20 20  20 20 20 20 20 C1 20 20  |             .  |
00001330: 20 20 20 20 20 20 20 C2  59 54 45 20 43 4F 55 4E  |       .YTE COUN|
00001340: 54 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |T..             |
00001350: 20 20 D8 20 20 20 20 20  20 20 20 20 C1 44 44 52  |  .         .DDR|
00001360: 45 53 53 20 4F 46 20 5A  45 52 4F 20 50 41 47 45  |ESS OF ZERO PAGE|
00001370: 20 53 4F 55 52 43 45 20  50 4F 49 4E 54 45 52 2E  | SOURCE POINTER.|
00001380: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001390: D9 20 20 20 20 20 20 20  20 20 C1 44 44 52 45 53  |.         .DDRES|
000013A0: 53 20 4F 46 20 5A 45 52  4F 20 50 41 47 45 20 44  |S OF ZERO PAGE D|
000013B0: 45 53 54 49 4E 41 54 49  4F 4E 20 50 4F 49 4E 54  |ESTINATION POINT|
000013C0: 45 52 2E 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  |ER...          .|
000013D0: 45 53 43 52 49 50 54 49  4F 4E 3A 20 20 D4 48 45  |ESCRIPTION:  .HE|
000013E0: 20 20 D8 20 41 4E 44 20  D9 20 52 45 47 49 53 54  |  . AND . REGIST|
000013F0: 45 52 53 20 50 4F 49 4E  54 20 54 4F 20 5A 45 52  |ERS POINT TO ZER|
00001400: 4F 20 50 41 47 45 20 50  4F 49 4E 54 45 52 53 2E  |O PAGE POINTERS.|
00001410: 0D 20 20 20 20 20 20 20  20 20 20 C1 20 20 48 41  |.          .  HA|
00001420: 53 20 20 54 48 45 20 4E  55 4D 42 45 52 20 4F 46  |S  THE NUMBER OF|
00001430: 20 42 59 54 45 53 20 54  4F 20 42 45 20 54 52 41  | BYTES TO BE TRA|
00001440: 4E 53 46 45 52 52 45 44  20 28 31 2D 32 35 35 29  |NSFERRED (1-255)|
00001450: 2E 20 20 C9 46 20 20 C1  20 20 49 53 0D 20 20 20  |.  .F  .  IS.   |
00001460: 20 20 20 20 20 20 20 5A  45 52 4F 2C 20 54 48 49  |       ZERO, THI|
00001470: 53 20 52 4F 55 54 49 4E  45 20 57 49 4C 4C 20 43  |S ROUTINE WILL C|
00001480: 4F 50 59 20 55 50 20 54  4F 20 41 4E 44 20 49 4E  |OPY UP TO AND IN|
00001490: 43 4C 55 44 49 4E 47 20  41 20 5A 45 52 4F 20 42  |CLUDING A ZERO B|
000014A0: 59 54 45 2E 20 D3 45 45  0D 20 20 20 20 20 20 20  |YTE. .EE.       |
000014B0: 20 20 20 D3 D4 D2 C3 D0  D9 2E 0D 0D 0D 20 20 20  |   ..........   |
000014C0: 20 20 20 20 20 20 20 C6  55 4E 43 54 49 4F 4E 20  |       .UNCTION |
000014D0: CE 41 4D 45 3A 20 C2 CC  CB D3 C5 D4 0D 20 20 20  |.AME: .......   |
000014E0: 20 20 20 20 20 20 20 D0  55 52 50 4F 53 45 3A 20  |       .URPOSE: |
000014F0: D5 53 45 53 20 41 20 54  41 42 4C 45 20 54 4F 20  |.SES A TABLE TO |
00001500: 53 45 54 20 56 41 52 49  4F 55 53 20 4D 45 4D 4F  |SET VARIOUS MEMO|
00001510: 52 59 20 4C 4F 43 41 54  49 4F 4E 53 20 49 4E 20  |RY LOCATIONS IN |
00001520: 41 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |A.              |
00001530: 20 20 20 20 20 55 4E 49  46 4F 52 4D 20 4D 41 4E  |     UNIFORM MAN|
00001540: 4E 45 52 2E 0D 20 20 20  20 20 20 20 20 20 20 C3  |NER..          .|
00001550: 41 4C 4C 20 41 44 44 52  45 53 53 3A 20 24 C3 31  |ALL ADDRESS: $.1|
00001560: 38 31 0D 20 20 20 20 20  20 20 20 20 20 C9 4E 50  |81.          .NP|
00001570: 55 54 20 52 45 51 55 49  52 45 4D 45 4E 54 53 3A  |UT REQUIREMENTS:|
00001580: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001590: 24 30 32 2D 24 30 33 20  20 20 C1 44 44 52 45 53  |$02-$03   .DDRES|
000015A0: 53 20 4F 46 20 41 20 44  41 54 41 20 54 41 42 4C  |S OF A DATA TABL|
000015B0: 45 2E 0D 0D 20 20 20 20  20 20 20 20 20 20 C4 45  |E...          .E|
000015C0: 53 43 52 49 50 54 49 4F  4E 3A 20 20 D4 48 49 53  |SCRIPTION:  .HIS|
000015D0: 20 20 52 4F 55 54 49 4E  45 20 20 41 4C 4C 4F 57  |  ROUTINE  ALLOW|
000015E0: 53 20 4D 41 4E 59 20 4D  45 4D 4F 52 59 20 4C 4F  |S MANY MEMORY LO|
000015F0: 43 41 54 49 4F 4E 53 20  20 54 4F 20 20 42 45 0D  |CATIONS  TO  BE.|
00001600: 20 20 20 20 20 20 20 20  20 20 53 50 45 43 49 46  |          SPECIF|
00001610: 49 45 44 20 20 41 4E 44  20 53 45 54 20 49 4E 20  |IED  AND SET IN |
00001620: 41 4E 20 4F 52 44 45 52  4C 59 20 4D 41 4E 4E 45  |AN ORDERLY MANNE|
00001630: 52 2E 20 20 D4 48 45 20  46 4F 52 4D 41 54 20 4F  |R.  .HE FORMAT O|
00001640: 46 20 54 48 45 20 20 44  41 54 41 0D 20 20 20 20  |F THE  DATA.    |
00001650: 20 20 20 20 20 20 54 41  42 4C 45 20 49 53 20 41  |      TABLE IS A|
00001660: 53 20 46 4F 4C 4C 4F 57  53 3A 0D 20 20 20 20 20  |S FOLLOWS:.     |
00001670: 20 20 20 20 20 20 20 20  20 20 23 42 59 54 45 53  |          #BYTES|
00001680: 20 20 20 20 C4 45 53 43  52 49 50 54 49 4F 4E 0D  |    .ESCRIPTION.|
00001690: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000016A0: 20 20 32 20 20 20 20 20  20 C1 44 44 52 45 53 53  |  2      .DDRESS|
000016B0: 20 54 4F 20 53 54 4F 52  45 20 56 41 4C 55 45 53  | TO STORE VALUES|
000016C0: 20 41 54 2E 0D 20 20 20  20 20 20 20 20 20 20 20  | AT..           |
000016D0: 20 20 20 20 20 20 20 31  20 20 20 20 20 20 23 20  |       1      # |
000016E0: 4F 46 20 56 41 4C 55 45  53 20 54 48 41 54 20 46  |OF VALUES THAT F|
000016F0: 4F 4C 4C 4F 57 2E 0D 20  20 20 20 20 20 20 20 20  |OLLOW..         |
00001700: 20 20 20 20 20 20 20 20  20 3F 20 20 20 20 20 20  |         ?      |
00001710: D6 41 4C 55 45 53 20 54  4F 20 42 45 20 53 54 4F  |.ALUES TO BE STO|
00001720: 52 45 44 20 41 54 20 54  48 45 20 44 45 53 49 47  |RED AT THE DESIG|
00001730: 4E 41 54 45 44 20 4D 45  4D 4F 52 59 0D 20 20 20  |NATED MEMORY.   |
00001740: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001750: 20 20 20 20 20 20 52 45  47 49 4F 4E 2E 0D 20 20  |      REGION..  |
00001760: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2E  |               .|
00001770: 2E 2E 20 20 20 20 20 CD  4F 52 45 20 44 45 46 49  |..     .ORE DEFI|
00001780: 4E 49 54 49 4F 4E 53 2E  0D 20 20 20 20 20 20 20  |NITIONS..       |
00001790: 20 20 20 20 20 20 20 20  20 20 20 32 20 20 20 20  |           2    |
000017A0: 20 20 C1 4E 20 41 44 44  52 45 53 53 20 4F 46 20  |  .N ADDRESS OF |
000017B0: 24 30 30 30 30 20 45 4E  44 53 20 54 48 45 20 54  |$0000 ENDS THE T|
000017C0: 41 42 4C 45 2E 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |ABLE............|
000017D0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 20 20 20 20 20 20 20  |.........       |
000017E0: 20 20 20 C7 C5 CF D3 20  CB 45 52 4E 41 4C 20 D2  |   .... .ERNAL .|
000017F0: 4F 55 54 49 4E 45 53 20  20 20 20 20 20 20 20 20  |OUTINES         |
00001800: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001810: 20 20 20 20 20 20 20 20  20 20 20 20 20 31 2D 31  |             1-1|
00001820: 32 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |2...          .U|
00001830: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 C3 C2 CF  |NCTION .AME: ...|
00001840: D8 0D 20 20 20 20 20 20  20 20 20 20 D0 55 52 50  |..          .URP|
00001850: 4F 53 45 3A 20 C4 52 41  57 53 20 41 20 43 4C 49  |OSE: .RAWS A CLI|
00001860: 43 4B 20 42 4F 58 20 4F  4E 20 54 48 45 20 53 43  |CK BOX ON THE SC|
00001870: 52 45 45 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |REEN..          |
00001880: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
00001890: 31 34 32 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |142.          .N|
000018A0: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
000018B0: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
000018C0: 20 24 30 32 2D 24 30 33  20 20 20 D0 4F 49 4E 54  | $02-$03   .OINT|
000018D0: 45 52 20 54 4F 20 54 48  45 20 47 52 41 50 48 49  |ER TO THE GRAPHI|
000018E0: 43 20 44 41 54 41 2E 0D  20 20 20 20 20 20 20 20  |C DATA..        |
000018F0: 20 20 20 20 20 20 20 24  30 34 20 20 20 20 20 20  |       $04      |
00001900: 20 C3 4F 4C 55 4D 4E 20  49 4E 20 43 48 41 52 41  | .OLUMN IN CHARA|
00001910: 43 54 45 52 53 2E 0D 20  20 20 20 20 20 20 20 20  |CTERS..         |
00001920: 20 20 20 20 20 20 24 30  35 20 20 20 20 20 20 20  |      $05       |
00001930: D4 48 45 20 52 4F 57 20  49 4E 20 50 49 58 45 4C  |.HE ROW IN PIXEL|
00001940: 53 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |S..             |
00001950: 20 20 24 30 36 20 20 20  20 20 20 20 D4 48 45 20  |  $06       .HE |
00001960: 57 49 44 54 48 20 49 4E  20 42 59 54 45 53 2E 0D  |WIDTH IN BYTES..|
00001970: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00001980: 30 37 20 20 20 20 20 20  20 D4 48 45 20 48 45 49  |07       .HE HEI|
00001990: 47 48 54 20 49 4E 20 50  49 58 45 4C 53 2E 0D 0D  |GHT IN PIXELS...|
000019A0: 20 20 20 20 20 20 20 20  20 20 C4 45 53 43 52 49  |          .ESCRI|
000019B0: 50 54 49 4F 4E 3A 20 20  D4 48 49 53 20 20 52 4F  |PTION:  .HIS  RO|
000019C0: 55 54 49 4E 45 20 20 44  52 41 57 53 20 41 20 43  |UTINE  DRAWS A C|
000019D0: 4C 49 43 4B 20 42 4F 58  20 4F 4E 20 54 48 45 20  |LICK BOX ON THE |
000019E0: 20 53 43 52 45 45 4E 2E  20 20 C1 0D 20 20 20 20  | SCREEN.  ..    |
000019F0: 20 20 20 20 20 20 43 4C  49 43 4B 20 42 4F 58 20  |      CLICK BOX |
00001A00: 49 53 20 41 20 42 4F 58  20 4C 49 4B 45 20 CF 4B  |IS A BOX LIKE .K|
00001A10: 2C 20 20 CF 50 45 4E 2C  20 45 54 43 2E 20 D4 48  |,  .PEN, ETC. .H|
00001A20: 45 53 45 20 42 4F 58 45  53 20 41 52 45 20 47 45  |ESE BOXES ARE GE|
00001A30: 4E 45 52 41 4C 4C 59 0D  20 20 20 20 20 20 20 20  |NERALLY.        |
00001A40: 20 20 50 41 52 54 20 20  4F 46 20 20 41 20 57 49  |  PART  OF  A WI|
00001A50: 4E 44 4F 57 20 44 45 53  43 52 49 50 54 49 4F 4E  |NDOW DESCRIPTION|
00001A60: 2E 20 20 D4 48 45 20 47  52 41 50 48 49 43 20 44  |.  .HE GRAPHIC D|
00001A70: 41 54 41 20 49 53 20 49  4E 20 20 41 20 20 43 4F  |ATA IS IN  A  CO|
00001A80: 44 45 44 0D 20 20 20 20  20 20 20 20 20 20 46 4F  |DED.          FO|
00001A90: 52 4D 41 54 2E 20 D4 48  49 53 20 46 4F 52 4D 41  |RMAT. .HIS FORMA|
00001AA0: 54 20 43 4F 4E 53 49 53  54 53 20 4F 46 20 41 20  |T CONSISTS OF A |
00001AB0: 43 4F 44 45 20 42 59 54  45 20 46 4F 4C 4C 4F 57  |CODE BYTE FOLLOW|
00001AC0: 45 44 20 42 59 20 31 20  4F 52 20 4D 4F 52 45 0D  |ED BY 1 OR MORE.|
00001AD0: 20 20 20 20 20 20 20 20  20 20 44 41 54 41 20 42  |          DATA B|
00001AE0: 59 54 45 53 2E 0D 20 20  20 20 20 20 20 20 20 20  |YTES..          |
00001AF0: 20 20 20 20 20 31 29 20  C3 4F 44 45 20 42 59 54  |     1) .ODE BYT|
00001B00: 45 53 20 4C 45 53 53 20  54 48 41 4E 20 31 32 38  |ES LESS THAN 128|
00001B10: 20 4D 45 41 4E 20 20 54  48 41 54 20 54 48 45 20  | MEAN  THAT THE |
00001B20: 46 4F 4C 4C 4F 57 49 4E  47 20 42 59 54 45 20 49  |FOLLOWING BYTE I|
00001B30: 53 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S.              |
00001B40: 20 20 20 20 54 4F 20 42  45 20 52 45 50 45 41 54  |    TO BE REPEAT|
00001B50: 45 44 20 54 48 41 54 20  4D 41 4E 59 20 54 49 4D  |ED THAT MANY TIM|
00001B60: 45 53 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |ES..            |
00001B70: 20 20 20 32 29 20 C3 4F  44 45 20 20 42 59 54 45  |   2) .ODE  BYTE|
00001B80: 53 20 20 52 41 4E 47 49  4E 47 20 46 52 4F 4D 20  |S  RANGING FROM |
00001B90: 31 32 38 20 54 4F 20 32  31 39 20 4D 45 41 4E 20  |128 TO 219 MEAN |
00001BA0: 54 48 41 54 20 49 46 20  31 32 38 20 20 49 53 0D  |THAT IF 128  IS.|
00001BB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001BC0: 20 20 53 55 42 54 52 41  43 54 45 44 20 20 46 52  |  SUBTRACTED  FR|
00001BD0: 4F 4D 20 20 54 48 45 20  43 4F 44 45 20 42 59 54  |OM  THE CODE BYT|
00001BE0: 45 2C 20 54 48 45 4E 20  54 48 45 20 20 52 45 53  |E, THEN THE  RES|
00001BF0: 55 4C 54 20 49 53 20 20  54 48 45 0D 20 20 20 20  |ULT IS  THE.    |
00001C00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 4E 55  |              NU|
00001C10: 4D 42 45 52 20 4F 46 20  44 41 54 41 20 42 59 54  |MBER OF DATA BYT|
00001C20: 45 53 20 54 48 41 54 20  46 4F 4C 4C 4F 57 2E 0D  |ES THAT FOLLOW..|
00001C30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 33  |               3|
00001C40: 29 20 C3 4F 44 45 20 42  59 54 45 53 20 52 41 4E  |) .ODE BYTES RAN|
00001C50: 47 49 4E 47 20 46 52 4F  4D 20 32 32 30 20 54 4F  |GING FROM 220 TO|
00001C60: 20 32 32 35 20 41 52 45  20 53 50 45 43 49 41 4C  | 225 ARE SPECIAL|
00001C70: 2E 20 C6 49 52 53 54 20  32 31 39 0D 20 20 20 20  |. .IRST 219.    |
00001C80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 53  |              IS|
00001C90: 20 20 53 55 42 54 52 41  43 54 45 44 20 20 46 52  |  SUBTRACTED  FR|
00001CA0: 4F 4D 20 20 54 48 45 20  43 4F 44 45 20 42 59 54  |OM  THE CODE BYT|
00001CB0: 45 2C 20 20 54 48 45 20  52 45 53 55 4C 54 20 20  |E,  THE RESULT  |
00001CC0: 49 53 20 20 54 48 45 0D  20 20 20 20 20 20 20 20  |IS  THE.        |
00001CD0: 20 20 20 20 20 20 20 20  20 20 4E 55 4D 42 45 52  |          NUMBER|
00001CE0: 20 4F 46 20 42 59 54 45  53 20 49 4E 20 54 48 45  | OF BYTES IN THE|
00001CF0: 20 50 41 54 54 45 52 4E  2E 20 20 C6 4F 4C 4C 4F  | PATTERN.  .OLLO|
00001D00: 57 49 4E 47 20 54 48 49  53 20 43 4F 44 45 20 42  |WING THIS CODE B|
00001D10: 59 54 45 0D 20 20 20 20  20 20 20 20 20 20 20 20  |YTE.            |
00001D20: 20 20 20 20 20 20 49 53  20 41 20 52 45 50 45 54  |      IS A REPET|
00001D30: 49 54 49 4F 4E 20 43 4F  55 4E 54 20 46 4F 52 20  |ITION COUNT FOR |
00001D40: 54 48 45 20 50 41 54 54  45 52 4E 2E 20 C6 4F 4C  |THE PATTERN. .OL|
00001D50: 4C 4F 57 49 4E 47 20 54  48 49 53 20 41 52 45 0D  |LOWING THIS ARE.|
00001D60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001D70: 20 20 54 48 45 20 20 42  59 54 45 53 20 20 54 48  |  THE  BYTES  TH|
00001D80: 41 54 20 20 43 4F 4E 53  54 49 54 55 54 45 20 20  |AT  CONSTITUTE  |
00001D90: 54 48 45 20 20 50 41 54  54 45 52 4E 2E 20 20 D4  |THE  PATTERN.  .|
00001DA0: 48 45 53 45 20 20 43 4F  55 4C 44 0D 20 20 20 20  |HESE  COULD.    |
00001DB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 4E  |              IN|
00001DC0: 43 4C 55 44 45 20 45 49  54 48 45 52 20 4F 46 20  |CLUDE EITHER OF |
00001DD0: 54 48 45 20 50 52 45 56  49 4F 55 53 20 54 57 4F  |THE PREVIOUS TWO|
00001DE0: 20 43 4F 44 45 20 54 59  50 45 53 2E 0D 0D 0D 20  | CODE TYPES.... |
00001DF0: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
00001E00: 4E 20 CE 41 4D 45 3A 20  C3 C2 CF D8 32 0D 20 20  |N .AME: ....2.  |
00001E10: 20 20 20 20 20 20 20 20  D0 55 52 50 4F 53 45 3A  |        .URPOSE:|
00001E20: 20 C9 44 45 4E 54 49 43  41 4C 20 54 4F 20 C3 C2  | .DENTICAL TO ..|
00001E30: CF D8 2C 20 42 55 54 20  57 49 54 48 20 49 4E 4C  |.., BUT WITH INL|
00001E40: 49 4E 45 20 44 41 54 41  2E 0D 20 20 20 20 20 20  |INE DATA..      |
00001E50: 20 20 20 20 C3 41 4C 4C  20 41 44 44 52 45 53 53  |    .ALL ADDRESS|
00001E60: 3A 20 24 C3 31 C1 C2 0D  0D 20 20 20 20 20 20 20  |: $.1....       |
00001E70: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00001E80: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 20  | .HIS  ROUTINE  |
00001E90: 54 41 4B 45 53 20 20 41  20 43 4C 49 43 4B 20 42  |TAKES  A CLICK B|
00001EA0: 4F 58 20 20 44 45 53 43  52 49 50 54 4F 52 20 20  |OX  DESCRIPTOR  |
00001EB0: 46 52 4F 4D 0D 20 20 20  20 20 20 20 20 20 20 49  |FROM.          I|
00001EC0: 4E 4C 49 4E 45 20 20 44  41 54 41 20 41 4E 44 20  |NLINE  DATA AND |
00001ED0: 44 52 41 57 53 20 49 54  2E 20 20 D4 48 45 20 49  |DRAWS IT.  .HE I|
00001EE0: 4E 4C 49 4E 45 20 44 41  54 41 20 44 4F 45 53 20  |NLINE DATA DOES |
00001EF0: CE CF D4 20 49 4E 43 4C  55 44 45 20 20 54 48 45  |... INCLUDE  THE|
00001F00: 0D 20 20 20 20 20 20 20  20 20 20 50 52 4F 43 45  |.          PROCE|
00001F10: 53 53 49 4E 47 20 56 45  43 54 4F 52 2C 20 49 45  |SSING VECTOR, IE|
00001F20: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00001F30: 20 20 CA D3 D2 20 C4 D2  D7 C3 C2 32 0D 20 20 20  |  ... .....2.   |
00001F40: 20 20 20 20 20 20 20 20  20 20 20 20 2E D7 CF D2  |            ....|
00001F50: C4 20 41 44 44 52 45 53  53 20 4F 46 20 47 52 41  |. ADDRESS OF GRA|
00001F60: 50 48 49 43 20 49 4D 41  47 45 0D 20 20 20 20 20  |PHIC IMAGE.     |
00001F70: 20 20 20 20 20 20 20 20  20 20 2E C2 D9 D4 C5 20  |          ..... |
00001F80: 53 54 41 52 54 20 43 4F  4C 55 4D 4E 20 49 4E 20  |START COLUMN IN |
00001F90: 42 59 54 45 53 0D 20 20  20 20 20 20 20 20 20 20  |BYTES.          |
00001FA0: 20 20 20 20 20 2E C2 D9  D4 C5 20 53 54 41 52 54  |     ..... START|
00001FB0: 20 4D 41 52 47 49 4E 20  49 4E 20 50 49 58 45 4C  | MARGIN IN PIXEL|
00001FC0: 53 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S.              |
00001FD0: 20 2E C2 D9 D4 C5 20 57  49 44 54 48 20 4F 46 20  | ..... WIDTH OF |
00001FE0: 42 4F 58 20 49 4E 20 42  59 54 45 53 0D 20 20 20  |BOX IN BYTES.   |
00001FF0: 20 20 20 20 20 20 20 20  20 20 20 20 2E C2 D9 D4  |            ....|
00002000: C5 20 48 45 49 47 48 54  20 4F 46 20 42 4F 58 20  |. HEIGHT OF BOX |
00002010: 49 4E 20 50 49 58 45 4C  53 0D 20 20 20 20 20 20  |IN PIXELS.      |
00002020: 20 20 20 20 20 20 20 20  20 C3 4F 4E 54 52 4F 4C  |         .ONTROL|
00002030: 20 52 45 54 55 52 4E 53  20 48 45 52 45 20 41 46  | RETURNS HERE AF|
00002040: 54 45 52 20 54 48 45 20  42 4F 58 20 49 53 20 44  |TER THE BOX IS D|
00002050: 52 41 57 4E 2E 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |RAWN............|
00002060: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 20 20 20 20 20  |...........     |
00002070: 20 20 20 20 20 C7 C5 CF  D3 20 CB 45 52 4E 41 4C  |     .... .ERNAL|
00002080: 20 D2 4F 55 54 49 4E 45  53 20 20 20 20 20 20 20  | .OUTINES       |
00002090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000020A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 31  |               1|
000020B0: 2D 31 33 0D 0D 0D 20 20  20 20 20 20 20 20 20 20  |-13...          |
000020C0: C6 55 4E 43 54 49 4F 4E  20 CE 41 4D 45 3A 20 C3  |.UNCTION .AME: .|
000020D0: C2 CF D8 C5 D3 0D 20 20  20 20 20 20 20 20 20 20  |......          |
000020E0: D0 55 52 50 4F 53 45 3A  20 C4 52 41 57 53 20 41  |.URPOSE: .RAWS A|
000020F0: 4C 4C 20 4F 46 20 54 48  45 20 43 4C 49 43 4B 20  |LL OF THE CLICK |
00002100: 42 4F 58 45 53 20 49 4E  20 41 20 54 41 42 4C 45  |BOXES IN A TABLE|
00002110: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00002120: 20 41 44 44 52 45 53 53  3A 20 24 C3 31 35 C1 0D  | ADDRESS: $.15..|
00002130: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
00002140: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
00002150: 20 20 20 20 20 20 20 20  20 20 20 20 20 24 30 32  |             $02|
00002160: 2D 24 30 33 20 20 20 D0  4F 49 4E 54 45 52 20 54  |-$03   .OINTER T|
00002170: 4F 20 41 20 43 4C 49 43  4B 20 42 4F 58 20 54 41  |O A CLICK BOX TA|
00002180: 42 4C 45 20 28 D5 53 55  41 4C 4C 59 20 24 38 38  |BLE (.SUALLY $88|
00002190: 30 C3 29 2E 0D 20 20 20  20 20 20 20 20 20 20 D0  |0.)..          .|
000021A0: 52 45 50 41 52 41 54 4F  52 59 20 52 4F 55 54 49  |REPARATORY ROUTI|
000021B0: 4E 45 53 3A 20 D7 C9 CE  C4 CF D7 20 28 4F 50 54  |NES: ...... (OPT|
000021C0: 49 4F 4E 41 4C 29 2E 0D  0D 20 20 20 20 20 20 20  |IONAL)...       |
000021D0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
000021E0: D4 48 49 53 20 52 4F 55  54 49 4E 45 20 44 52 41  |.HIS ROUTINE DRA|
000021F0: 57 53 20 41 4C 4C 20 4F  46 20 54 48 45 20 43 4C  |WS ALL OF THE CL|
00002200: 49 43 4B 20 42 4F 58 45  53 20 42 59 20 43 41 4C  |ICK BOXES BY CAL|
00002210: 4C 49 4E 47 0D 20 20 20  20 20 20 20 20 20 20 C3  |LING.          .|
00002220: C2 CF D8 20 20 52 45 50  45 41 54 45 44 4C 59 20  |...  REPEATEDLY |
00002230: 20 55 4E 54 49 4C 20 54  48 45 20 54 41 42 4C 45  | UNTIL THE TABLE|
00002240: 20 49 53 20 20 45 58 48  41 55 53 54 45 44 2E 20  | IS  EXHAUSTED. |
00002250: 20 D4 48 45 20 20 C9 CE  C9 D4 CD D3 20 20 49 53  | .HE  ......  IS|
00002260: 0D 20 20 20 20 20 20 20  20 20 20 43 41 4C 4C 45  |.          CALLE|
00002270: 44 20 20 54 4F 20 20 53  45 54 20 20 54 48 45 20  |D  TO  SET  THE |
00002280: 4D 4F 55 53 45 27 53 20  50 4F 53 49 54 49 4F 4E  |MOUSE'S POSITION|
00002290: 2E 20 20 C3 4C 49 43 4B  20 54 41 42 4C 45 20 46  |.  .LICK TABLE F|
000022A0: 4F 52 4D 41 54 3A 0D 20  20 20 20 20 20 20 20 20  |ORMAT:.         |
000022B0: 20 20 20 20 20 20 23 42  59 54 45 53 20 20 20 20  |      #BYTES    |
000022C0: C4 45 53 43 52 49 50 54  49 4F 4E 0D 20 20 20 20  |.ESCRIPTION.    |
000022D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 20  |              1 |
000022E0: 20 20 20 20 20 23 20 43  4C 49 43 4B 20 42 4F 58  |     # CLICK BOX|
000022F0: 45 53 20 49 4E 20 54 41  42 4C 45 2E 0D 20 20 20  |ES IN TABLE..   |
00002300: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 32  |               2|
00002310: 20 20 20 20 20 20 C3 4F  4C 55 4D 4E 20 54 4F 20  |      .OLUMN TO |
00002320: 50 4C 41 43 45 20 4D 4F  55 53 45 20 49 4E 20 28  |PLACE MOUSE IN (|
00002330: 30 20 57 49 4C 4C 20 50  52 45 56 45 4E 54 0D 20  |0 WILL PREVENT. |
00002340: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002350: 20 20 20 20 20 20 20 20  50 4C 41 43 45 4D 45 4E  |        PLACEMEN|
00002360: 54 29 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |T)..            |
00002370: 20 20 20 20 20 20 31 20  20 20 20 20 20 D2 4F 57  |      1      .OW|
00002380: 20 54 4F 20 50 4C 41 43  45 20 4D 4F 55 53 45 20  | TO PLACE MOUSE |
00002390: 49 4E 2E 0D 20 20 20 20  20 20 20 20 20 20 D4 48  |IN..          .H|
000023A0: 49 53 20 49 53 20 46 4F  4C 4C 4F 57 45 44 20 42  |IS IS FOLLOWED B|
000023B0: 59 20 53 45 54 53 20 4F  46 20 38 20 42 59 54 45  |Y SETS OF 8 BYTE|
000023C0: 53 2C 20 4F 4E 45 20 46  4F 52 20 45 41 43 48 20  |S, ONE FOR EACH |
000023D0: 43 4C 49 43 4B 20 42 4F  58 2E 0D 20 20 20 20 20  |CLICK BOX..     |
000023E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 32 20 20  |             2  |
000023F0: 20 20 20 20 20 C1 44 44  52 45 53 53 20 4F 46 20  |     .DDRESS OF |
00002400: 47 52 41 50 48 49 43 20  44 41 54 41 2E 0D 20 20  |GRAPHIC DATA..  |
00002410: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002420: 31 20 20 20 20 20 20 20  C3 4F 4C 55 4D 4E 20 50  |1       .OLUMN P|
00002430: 4F 53 49 54 49 4F 4E 20  4F 46 20 42 4F 58 20 49  |OSITION OF BOX I|
00002440: 4E 20 43 48 41 52 41 43  54 45 52 53 2E 0D 20 20  |N CHARACTERS..  |
00002450: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002460: 31 20 20 20 20 20 20 20  D2 4F 57 20 50 4F 53 49  |1       .OW POSI|
00002470: 54 49 4F 4E 20 4F 46 20  42 4F 58 20 49 4E 20 50  |TION OF BOX IN P|
00002480: 49 58 45 4C 53 2E 0D 20  20 20 20 20 20 20 20 20  |IXELS..         |
00002490: 20 20 20 20 20 20 20 20  20 31 20 20 20 20 20 20  |         1      |
000024A0: 20 D7 49 44 54 48 20 4F  46 20 42 4F 58 20 49 4E  | .IDTH OF BOX IN|
000024B0: 20 42 59 54 45 53 2E 0D  20 20 20 20 20 20 20 20  | BYTES..        |
000024C0: 20 20 20 20 20 20 20 20  20 20 31 20 20 20 20 20  |          1     |
000024D0: 20 20 C8 45 49 47 48 54  20 4F 46 20 42 4F 58 20  |  .EIGHT OF BOX |
000024E0: 49 4E 20 50 49 58 45 4C  53 2E 0D 20 20 20 20 20  |IN PIXELS..     |
000024F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 32 20 20  |             2  |
00002500: 20 20 20 20 20 C1 44 44  52 45 53 53 20 4F 46 20  |     .DDRESS OF |
00002510: 52 4F 55 54 49 4E 45 20  54 4F 20 50 52 4F 43 45  |ROUTINE TO PROCE|
00002520: 53 53 20 54 48 49 53 20  42 4F 58 2E 0D 0D 0D 20  |SS THIS BOX.... |
00002530: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
00002540: 4E 20 CE 41 4D 45 3A 20  C3 C8 C1 D2 D3 D4 0D 20  |N .AME: ....... |
00002550: 20 20 20 20 20 20 20 20  20 D0 55 52 50 4F 53 45  |         .URPOSE|
00002560: 3A 20 C7 45 54 20 53 54  41 54 49 53 54 49 43 53  |: .ET STATISTICS|
00002570: 20 46 4F 52 20 41 20 43  48 41 52 41 43 54 45 52  | FOR A CHARACTER|
00002580: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00002590: 20 41 44 44 52 45 53 53  3A 20 24 C3 31 C2 31 0D  | ADDRESS: $.1.1.|
000025A0: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
000025B0: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
000025C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 C1 20 20  |             .  |
000025D0: 20 20 20 20 20 20 20 D4  48 45 20 43 48 41 52 41  |       .HE CHARA|
000025E0: 43 54 45 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |CTER..          |
000025F0: CF 55 54 50 55 54 3A 0D  20 20 20 20 20 20 20 20  |.UTPUT:.        |
00002600: 20 20 20 20 20 20 20 C1  20 20 20 20 20 20 20 20  |       .        |
00002610: 20 D4 48 45 20 50 4F 53  49 54 49 4F 4E 20 4F 46  | .HE POSITION OF|
00002620: 20 54 48 45 20 55 4E 44  45 52 4C 49 4E 45 2E 0D  | THE UNDERLINE..|
00002630: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 D9  |               .|
00002640: 20 20 20 20 20 20 20 20  20 D4 48 45 20 43 48 41  |         .HE CHA|
00002650: 52 41 43 54 45 52 27 53  20 57 49 44 54 48 2E 0D  |RACTER'S WIDTH..|
00002660: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 D8  |               .|
00002670: 20 20 20 20 20 20 20 20  20 D4 48 45 20 43 48 41  |         .HE CHA|
00002680: 52 41 43 54 45 52 27 53  20 48 45 49 47 48 54 2E  |RACTER'S HEIGHT.|
00002690: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
000026A0: 52 49 50 54 49 4F 4E 3A  20 20 C7 49 56 45 4E 20  |RIPTION:  .IVEN |
000026B0: 54 48 45 20 C1 D3 C3 C9  C9 20 56 41 4C 55 45 20  |THE ..... VALUE |
000026C0: 4F 46 20 41 20 43 48 41  52 41 43 54 45 52 2C 20  |OF A CHARACTER, |
000026D0: 20 54 48 49 53 20 52 4F  55 54 49 4E 45 0D 20 20  | THIS ROUTINE.  |
000026E0: 20 20 20 20 20 20 20 20  43 4F 4D 50 55 54 45 53  |        COMPUTES|
000026F0: 20 41 4E 44 20 52 45 54  55 52 4E 53 20 54 48 45  | AND RETURNS THE|
00002700: 20 48 45 49 47 48 54 20  41 4E 44 20 57 49 44 54  | HEIGHT AND WIDT|
00002710: 48 2C 20 54 41 4B 49 4E  47 20 54 48 45 20 53 54  |H, TAKING THE ST|
00002720: 59 4C 45 20 20 49 4E 54  4F 0D 20 20 20 20 20 20  |YLE  INTO.      |
00002730: 20 20 20 20 41 43 43 4F  55 4E 54 2E 20 D4 48 45  |    ACCOUNT. .HE|
00002740: 20 23 20 50 49 58 45 4C  53 20 41 42 4F 56 45 20  | # PIXELS ABOVE |
00002750: 54 48 45 20 55 4E 44 45  52 4C 49 4E 45 20 46 4F  |THE UNDERLINE FO|
00002760: 52 20 54 48 45 20 50 52  45 53 45 4E 54 20 46 4F  |R THE PRESENT FO|
00002770: 4E 54 20 49 53 0D 20 20  20 20 20 20 20 20 20 20  |NT IS.          |
00002780: 41 4C 53 4F 20 52 45 54  55 52 4E 45 44 2E 0D 0D  |ALSO RETURNED...|
00002790: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000027A0: 0D 0D 0D 0D 0D 0D 0D 0D  20 20 20 20 20 20 20 20  |........        |
000027B0: 20 20 C7 C5 CF D3 20 CB  45 52 4E 41 4C 20 D2 4F  |  .... .ERNAL .O|
000027C0: 55 54 49 4E 45 53 20 20  20 20 20 20 20 20 20 20  |UTINES          |
000027D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000027E0: 20 20 20 20 20 20 20 20  20 20 20 20 31 2D 31 34  |            1-14|
000027F0: 0D 0D 0D 20 20 20 20 20  20 20 20 20 20 C6 55 4E  |...          .UN|
00002800: 43 54 49 4F 4E 20 CE 41  4D 45 3A 20 C3 C8 C7 C4  |CTION .AME: ....|
00002810: D2 D6 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
00002820: 50 4F 53 45 3A 20 C3 48  41 4E 47 45 20 54 48 45  |POSE: .HANGE THE|
00002830: 20 44 45 56 49 43 45 20  4E 55 4D 42 45 52 20 4F  | DEVICE NUMBER O|
00002840: 46 20 41 20 44 52 49 56  45 2E 0D 20 20 20 20 20  |F A DRIVE..     |
00002850: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
00002860: 53 3A 20 24 C3 32 C2 C3  0D 20 20 20 20 20 20 20  |S: $.2...       |
00002870: 20 20 20 C9 4E 50 55 54  20 52 45 51 55 49 52 45  |   .NPUT REQUIRE|
00002880: 4D 45 4E 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |MENTS:.         |
00002890: 20 20 20 20 20 20 C1 20  20 20 20 20 20 20 20 20  |      .         |
000028A0: CE 45 57 20 44 45 56 49  43 45 20 4E 55 4D 42 45  |.EW DEVICE NUMBE|
000028B0: 52 20 46 4F 52 20 44 52  49 56 45 2E 0D 20 20 20  |R FOR DRIVE..   |
000028C0: 20 20 20 20 20 20 20 20  20 20 20 20 24 38 34 38  |            $848|
000028D0: 39 20 20 20 20 20 C3 55  52 52 45 4E 54 20 44 52  |9     .URRENT DR|
000028E0: 49 56 45 20 4E 55 4D 42  45 52 2E 0D 20 20 20 20  |IVE NUMBER..    |
000028F0: 20 20 20 20 20 20 CF 55  54 50 55 54 3A 0D 20 20  |      .UTPUT:.  |
00002900: 20 20 20 20 20 20 20 20  20 20 20 20 20 24 C2 C1  |             $..|
00002910: 20 20 20 20 20 20 20 CE  45 57 20 44 45 56 49 43  |       .EW DEVIC|
00002920: 45 20 4E 55 4D 42 45 52  2E 0D 20 20 20 20 20 20  |E NUMBER..      |
00002930: 20 20 20 20 20 20 20 20  20 24 38 34 38 39 20 20  |         $8489  |
00002940: 20 20 20 CE 45 57 20 44  45 56 49 43 45 20 4E 55  |   .EW DEVICE NU|
00002950: 4D 42 45 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |MBER..          |
00002960: 20 20 20 20 20 24 38 34  39 32 2D 24 38 34 39 35  |     $8492-$8495|
00002970: 20 C1 50 50 52 4F 50 52  49 41 54 45 20 42 59 54  | .PPROPRIATE BYT|
00002980: 45 53 20 41 52 45 20 52  45 53 45 54 20 41 4E 44  |ES ARE RESET AND|
00002990: 20 53 45 54 2E 0D 20 20  20 20 20 20 20 20 20 20  | SET..          |
000029A0: C5 52 52 4F 52 53 3A 20  D3 45 45 20 41 50 50 45  |.RRORS: .EE APPE|
000029B0: 4E 44 49 58 20 C9 2E 0D  0D 20 20 20 20 20 20 20  |NDIX ....       |
000029C0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
000029D0: D4 48 45 20 43 55 52 52  45 4E 54 20 44 52 49 56  |.HE CURRENT DRIV|
000029E0: 45 20 49 53 20 4D 41 44  45 20 52 45 41 44 59 2C  |E IS MADE READY,|
000029F0: 20 54 48 45 4E 20 54 48  45 20 4E 45 57 20 44 45  | THEN THE NEW DE|
00002A00: 56 49 43 45 0D 20 20 20  20 20 20 20 20 20 20 4E  |VICE.          N|
00002A10: 55 4D 42 45 52 20 49 53  20 53 45 4E 54 20 54 4F  |UMBER IS SENT TO|
00002A20: 20 54 55 52 42 4F 44 4F  53 20 57 48 49 43 48 20  | TURBODOS WHICH |
00002A30: 57 49 4C 4C 20 43 48 41  4E 47 45 20 49 54 2E 20  |WILL CHANGE IT. |
00002A40: 20 D4 48 49 53 20 52 45  53 55 4C 54 53 20 49 4E  | .HIS RESULTS IN|
00002A50: 0D 20 20 20 20 20 20 20  20 20 20 54 48 45 20 20  |.          THE  |
00002A60: 44 52 49 56 45 20 42 45  49 4E 47 20 53 45 54 20  |DRIVE BEING SET |
00002A70: 41 53 20 54 48 45 20 43  55 52 52 45 4E 54 20 44  |AS THE CURRENT D|
00002A80: 52 49 56 45 20 42 55 54  20 57 49 54 48 20 41 20  |RIVE BUT WITH A |
00002A90: 20 4E 45 57 20 20 44 45  56 49 43 45 0D 20 20 20  | NEW  DEVICE.   |
00002AA0: 20 20 20 20 20 20 20 4E  55 4D 42 45 52 2C 20 20  |       NUMBER,  |
00002AB0: 41 4E 44 20 20 57 49 54  48 20 54 55 52 42 4F 44  |AND  WITH TURBOD|
00002AC0: 4F 53 20 55 50 20 41 4E  44 20 52 55 4E 4E 49 4E  |OS UP AND RUNNIN|
00002AD0: 47 2E 20 20 D4 48 45 20  53 54 41 54 55 53 20 42  |G.  .HE STATUS B|
00002AE0: 59 54 45 53 20 20 41 54  0D 20 20 20 20 20 20 20  |YTES  AT.       |
00002AF0: 20 20 20 24 38 34 39 32  2D 24 38 34 39 35 20 41  |   $8492-$8495 A|
00002B00: 52 45 20 43 48 41 4E 47  45 44 2C 20 54 48 45 20  |RE CHANGED, THE |
00002B10: 4F 4C 44 20 4F 4E 45 20  49 53 20 52 45 53 45 54  |OLD ONE IS RESET|
00002B20: 20 41 4E 44 20 54 48 45  20 4E 45 57 20 4F 4E 45  | AND THE NEW ONE|
00002B30: 20 48 41 53 0D 20 20 20  20 20 20 20 20 20 20 42  | HAS.          B|
00002B40: 49 54 53 20 36 20 41 4E  44 20 37 20 53 45 54 2E  |ITS 6 AND 7 SET.|
00002B50: 0D 0D 0D 20 20 20 20 20  20 20 20 20 20 C6 55 4E  |...          .UN|
00002B60: 43 54 49 4F 4E 20 CE 41  4D 45 3A 20 C3 CB CD CF  |CTION .AME: ....|
00002B70: D5 D3 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
00002B80: 50 4F 53 45 3A 20 C3 48  45 43 4B 20 49 46 20 54  |POSE: .HECK IF T|
00002B90: 48 45 20 4D 4F 55 53 45  20 49 53 20 49 4E 20 41  |HE MOUSE IS IN A|
00002BA0: 20 42 4F 58 2E 0D 20 20  20 20 20 20 20 20 20 20  | BOX..          |
00002BB0: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
00002BC0: 32 C2 33 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |2.3.          .N|
00002BD0: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
00002BE0: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
00002BF0: 20 24 30 36 20 20 20 20  20 20 20 D4 4F 50 20 4D  | $06       .OP M|
00002C00: 41 52 47 49 4E 2E 0D 20  20 20 20 20 20 20 20 20  |ARGIN..         |
00002C10: 20 20 20 20 20 20 24 30  37 20 20 20 20 20 20 20  |      $07       |
00002C20: C2 4F 54 54 4F 4D 20 4D  41 52 47 49 4E 2E 0D 20  |.OTTOM MARGIN.. |
00002C30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 30  |              $0|
00002C40: 38 2D 24 30 39 20 20 20  CC 45 46 54 20 4D 41 52  |8-$09   .EFT MAR|
00002C50: 47 49 4E 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |GIN..           |
00002C60: 20 20 20 20 24 30 C1 2D  24 30 C2 20 20 20 D2 49  |    $0.-$0.   .I|
00002C70: 47 48 54 20 4D 41 52 47  49 4E 2E 0D 20 20 20 20  |GHT MARGIN..    |
00002C80: 20 20 20 20 20 20 CF 55  54 50 55 54 3A 0D 20 20  |      .UTPUT:.  |
00002C90: 20 20 20 20 20 20 20 20  20 20 20 20 20 C1 20 20  |             .  |
00002CA0: 20 20 20 20 20 20 20 24  30 30 20 2D 20 4F 55 54  |       $00 - OUT|
00002CB0: 53 49 44 45 20 42 4F 58  2C 20 24 C6 C6 20 2D 20  |SIDE BOX, $.. - |
00002CC0: 49 4E 53 49 44 45 20 42  4F 58 2E 0D 0D 20 20 20  |INSIDE BOX...   |
00002CD0: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00002CE0: 4F 4E 3A 20 20 D4 48 49  53 20 20 52 4F 55 54 49  |ON:  .HIS  ROUTI|
00002CF0: 4E 45 20 20 53 49 4D 50  4C 59 20 20 43 4F 4D 50  |NE  SIMPLY  COMP|
00002D00: 41 52 45 53 20 54 48 45  20 20 50 52 45 53 45 4E  |ARES THE  PRESEN|
00002D10: 54 20 20 4D 4F 55 53 45  0D 20 20 20 20 20 20 20  |T  MOUSE.       |
00002D20: 20 20 20 4C 4F 43 41 54  49 4F 4E 20 20 20 53 54  |   LOCATION   ST|
00002D30: 4F 52 45 44 20 20 20 41  54 20 20 4C 4F 43 41 54  |ORED   AT  LOCAT|
00002D40: 49 4F 4E 53 20 20 24 33  C1 2D 24 33 C3 20 20 41  |IONS  $3.-$3.  A|
00002D50: 47 41 49 4E 53 54 20 20  20 54 48 45 20 20 20 42  |GAINST   THE   B|
00002D60: 4F 58 27 53 0D 20 20 20  20 20 20 20 20 20 20 42  |OX'S.          B|
00002D70: 4F 55 4E 44 41 52 49 45  53 2E 20 C1 20 49 53 20  |OUNDARIES. . IS |
00002D80: 53 45 54 20 54 4F 20 24  30 30 20 49 46 20 54 48  |SET TO $00 IF TH|
00002D90: 45 20 4D 4F 55 53 45 20  49 53 20 4F 55 54 53 49  |E MOUSE IS OUTSI|
00002DA0: 44 45 2C 20 24 C6 C6 20  49 46 20 49 54 20 49 53  |DE, $.. IF IT IS|
00002DB0: 0D 20 20 20 20 20 20 20  20 20 20 49 4E 53 49 44  |.          INSID|
00002DC0: 45 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |E....          .|
00002DD0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C3 CC  |UNCTION .AME: ..|
00002DE0: D2 D2 C4 D9 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
00002DF0: 55 52 50 4F 53 45 3A 20  D4 55 52 4E 20 4F 46 46  |URPOSE: .URN OFF|
00002E00: 20 54 55 52 42 4F 44 4F  53 2E 0D 20 20 20 20 20  | TURBODOS..     |
00002E10: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
00002E20: 53 3A 20 24 C3 32 33 32  0D 20 20 20 20 20 20 20  |S: $.232.       |
00002E30: 20 20 20 C9 4E 50 55 54  20 52 45 51 55 49 52 45  |   .NPUT REQUIRE|
00002E40: 4D 45 4E 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |MENTS:.         |
00002E50: 20 20 20 20 20 20 24 38  34 38 39 20 20 20 20 20  |      $8489     |
00002E60: C3 55 52 52 45 4E 54 20  44 52 49 56 45 20 4E 55  |.URRENT DRIVE NU|
00002E70: 4D 42 45 52 2E 0D 0D 20  20 20 20 20 20 20 20 20  |MBER...         |
00002E80: 20 C4 45 53 43 52 49 50  54 49 4F 4E 3A 20 D4 55  | .ESCRIPTION: .U|
00002E90: 52 42 4F 44 4F 53 20 49  53 20 54 45 52 4D 49 4E  |RBODOS IS TERMIN|
00002EA0: 41 54 45 44 20 49 4E 20  54 48 45 20 43 55 52 52  |ATED IN THE CURR|
00002EB0: 45 4E 54 20 44 52 49 56  45 2E 0D 0D 0D 0D 0D 0D  |ENT DRIVE.......|
00002EC0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 20 20  |..............  |
00002ED0: 20 20 20 20 20 20 20 20  C7 C5 CF D3 20 CB 45 52  |        .... .ER|
00002EE0: 4E 41 4C 20 D2 4F 55 54  49 4E 45 53 20 20 20 20  |NAL .OUTINES    |
00002EF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002F00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002F10: 20 20 31 2D 31 35 0D 0D  0D 20 20 20 20 20 20 20  |  1-15...       |
00002F20: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00002F30: 3A 20 C3 CC D2 D3 D4 D3  0D 20 20 20 20 20 20 20  |: .......       |
00002F40: 20 20 20 D0 55 52 50 4F  53 45 3A 20 C3 4C 45 41  |   .URPOSE: .LEA|
00002F50: 52 20 54 48 45 20 44 52  49 56 45 20 52 45 41 44  |R THE DRIVE READ|
00002F60: 59 20 53 54 41 54 55 53  2E 0D 20 20 20 20 20 20  |Y STATUS..      |
00002F70: 20 20 20 20 C3 41 4C 4C  20 41 44 44 52 45 53 53  |    .ALL ADDRESS|
00002F80: 3A 20 24 C3 32 33 35 0D  20 20 20 20 20 20 20 20  |: $.235.        |
00002F90: 20 20 C9 4E 50 55 54 20  52 45 51 55 49 52 45 4D  |  .NPUT REQUIREM|
00002FA0: 45 4E 54 53 3A 0D 20 20  20 20 20 20 20 20 20 20  |ENTS:.          |
00002FB0: 20 20 20 20 20 24 38 34  38 39 20 20 20 20 20 C3  |     $8489     .|
00002FC0: 55 52 52 45 4E 54 20 44  52 49 56 45 20 4E 55 4D  |URRENT DRIVE NUM|
00002FD0: 42 45 52 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |BER..          .|
00002FE0: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00002FF0: 20 20 20 20 20 20 C1 50  50 52 4F 50 52 49 41 54  |      .PPROPRIAT|
00003000: 45 20 53 54 41 54 55 53  20 42 59 54 45 20 49 53  |E STATUS BYTE IS|
00003010: 20 52 45 53 45 54 2E 0D  0D 20 20 20 20 20 20 20  | RESET...       |
00003020: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00003030: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 20  | .HIS  ROUTINE  |
00003040: 54 45 52 4D 49 4E 41 54  45 53 20 54 55 52 42 4F  |TERMINATES TURBO|
00003050: 44 4F 53 20 49 4E 20 20  54 48 45 20 20 43 55 52  |DOS IN  THE  CUR|
00003060: 52 45 4E 54 0D 20 20 20  20 20 20 20 20 20 20 44  |RENT.          D|
00003070: 52 49 56 45 2C 20 41 4E  44 20 52 45 53 45 54 53  |RIVE, AND RESETS|
00003080: 20 54 48 45 20 44 52 49  56 45 20 53 54 41 54 55  | THE DRIVE STATU|
00003090: 53 20 42 59 54 45 20 41  54 20 24 38 34 39 32 2D  |S BYTE AT $8492-|
000030A0: 24 38 34 39 35 2E 0D 0D  0D 20 20 20 20 20 20 20  |$8495....       |
000030B0: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
000030C0: 3A 20 C3 CC D3 CD CE D5  0D 20 20 20 20 20 20 20  |: .......       |
000030D0: 20 20 20 D0 55 52 50 4F  53 45 3A 20 C2 41 43 4B  |   .URPOSE: .ACK|
000030E0: 53 20 55 50 20 41 20 4D  45 4E 55 20 4C 45 56 45  |S UP A MENU LEVE|
000030F0: 4C 2E 0D 20 20 20 20 20  20 20 20 20 20 C3 41 4C  |L..          .AL|
00003100: 4C 20 41 44 44 52 45 53  53 3A 20 24 C3 31 39 30  |L ADDRESS: $.190|
00003110: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
00003120: 52 49 50 54 49 4F 4E 3A  20 20 D4 48 49 53 20 52  |RIPTION:  .HIS R|
00003130: 4F 55 54 49 4E 45 20 45  52 41 53 45 53 20 54 48  |OUTINE ERASES TH|
00003140: 45 20 50 52 45 53 45 4E  54 20 4D 45 4E 55 2C 20  |E PRESENT MENU, |
00003150: 41 4E 44 20 50 4F 50 53  20 42 41 43 4B 0D 20 20  |AND POPS BACK.  |
00003160: 20 20 20 20 20 20 20 20  4F 4E 45 20 4C 45 56 45  |        ONE LEVE|
00003170: 4C 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |L....          .|
00003180: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C3 CC  |UNCTION .AME: ..|
00003190: D3 D3 C5 D2 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
000031A0: 55 52 50 4F 53 45 3A 20  C3 4C 4F 53 45 20 4F 46  |URPOSE: .LOSE OF|
000031B0: 46 20 53 45 52 49 41 4C  20 43 4F 4D 4D 55 4E 49  |F SERIAL COMMUNI|
000031C0: 43 41 54 49 4F 4E 2E 0D  20 20 20 20 20 20 20 20  |CATION..        |
000031D0: 20 20 C3 41 4C 4C 20 41  44 44 52 45 53 53 3A 20  |  .ALL ADDRESS: |
000031E0: 24 C3 32 35 C6 0D 20 20  20 20 20 20 20 20 20 20  |$.25..          |
000031F0: C5 52 52 4F 52 53 3A 20  D3 45 45 20 41 50 50 45  |.RRORS: .EE APPE|
00003200: 4E 44 49 58 20 C9 2E 0D  0D 20 20 20 20 20 20 20  |NDIX ....       |
00003210: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00003220: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 20  | .HIS  ROUTINE  |
00003230: 52 45 53 45 54 53 20 54  48 45 20 C9 2F CF 20 20  |RESETS THE ./.  |
00003240: 50 4F 52 54 53 20 20 41  46 54 45 52 20 20 53 45  |PORTS  AFTER  SE|
00003250: 52 49 41 4C 0D 20 20 20  20 20 20 20 20 20 20 43  |RIAL.          C|
00003260: 4F 4D 4D 55 4E 49 43 41  54 49 4F 4E 20 49 53 20  |OMMUNICATION IS |
00003270: 43 4F 4D 50 4C 45 54 45  2E 20 D4 48 49 53 20 52  |COMPLETE. .HIS R|
00003280: 4F 55 54 49 4E 45 20 49  53 20 43 41 4C 4C 45 44  |OUTINE IS CALLED|
00003290: 20 41 46 54 45 52 20 43  41 4C 4C 53 20 20 54 4F  | AFTER CALLS  TO|
000032A0: 0D 20 20 20 20 20 20 20  20 20 20 D2 C5 C1 C4 32  |.          ....2|
000032B0: 2C 20 D7 D2 C9 D4 C5 32  20 4F 52 20 C3 D7 D2 C9  |, .....2 OR ....|
000032C0: D4 C5 2E 0D 0D 0D 20 20  20 20 20 20 20 20 20 20  |......          |
000032D0: C6 55 4E 43 54 49 4F 4E  20 CE 41 4D 45 3A 20 C3  |.UNCTION .AME: .|
000032E0: CC D3 D7 C9 CE 0D 20 20  20 20 20 20 20 20 20 20  |......          |
000032F0: D0 55 52 50 4F 53 45 3A  20 C3 4C 4F 53 45 20 41  |.URPOSE: .LOSE A|
00003300: 20 57 49 4E 44 4F 57 2E  0D 20 20 20 20 20 20 20  | WINDOW..       |
00003310: 20 20 20 C3 41 4C 4C 20  41 44 44 52 45 53 53 3A  |   .ALL ADDRESS:|
00003320: 20 24 C3 32 C2 C6 0D 20  20 20 20 20 20 20 20 20  | $.2...         |
00003330: 20 CF 55 54 50 55 54 3A  0D 20 20 20 20 20 20 20  | .UTPUT:.       |
00003340: 20 20 20 20 20 20 20 20  24 30 32 20 20 20 20 20  |        $02     |
00003350: 20 20 C3 4F 4D 4D 41 4E  44 20 42 59 54 45 20 46  |  .OMMAND BYTE F|
00003360: 52 4F 4D 20 57 49 4E 44  4F 57 20 50 52 4F 43 45  |ROM WINDOW PROCE|
00003370: 53 53 4F 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |SSOR..          |
00003380: 20 20 20 20 20 24 38 35  31 C4 20 20 20 20 20 C3  |     $851.     .|
00003390: 4F 4D 4D 41 4E 44 20 42  59 54 45 20 46 52 4F 4D  |OMMAND BYTE FROM|
000033A0: 20 57 49 4E 44 4F 57 20  50 52 4F 43 45 53 53 4F  | WINDOW PROCESSO|
000033B0: 52 2E 0D 0D 20 20 20 20  20 20 20 20 20 20 C4 45  |R...          .E|
000033C0: 53 43 52 49 50 54 49 4F  4E 3A 20 20 D4 48 45 20  |SCRIPTION:  .HE |
000033D0: 20 57 49 4E 44 4F 57 20  49 53 20 45 52 41 53 45  | WINDOW IS ERASE|
000033E0: 44 20 41 4E 44 20 54 48  45 20 4D 45 4D 4F 52 59  |D AND THE MEMORY|
000033F0: 20 41 44 44 52 45 53 53  45 53 20 54 48 41 54 0D  | ADDRESSES THAT.|
00003400: 20 20 20 20 20 20 20 20  20 20 54 48 45 20 57 49  |          THE WI|
00003410: 4E 44 4F 57 20 50 52 4F  43 45 53 53 4F 52 20 53  |NDOW PROCESSOR S|
00003420: 41 56 45 44 20 41 52 45  20 52 45 53 54 4F 52 45  |AVED ARE RESTORE|
00003430: 44 2E 20 20 C3 4F 4E 54  52 4F 4C 20 52 45 54 55  |D.  .ONTROL RETU|
00003440: 52 4E 53 20 54 4F 20 20  54 48 45 0D 20 20 20 20  |RNS TO  THE.    |
00003450: 20 20 20 20 20 20 43 41  4C 4C 45 52 20 4F 46 20  |      CALLER OF |
00003460: D7 C9 CE C4 CF D7 2E 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
00003470: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 20  |............... |
00003480: 20 20 20 20 20 20 20 20  20 C7 C5 CF D3 20 CB 45  |         .... .E|
00003490: 52 4E 41 4C 20 D2 4F 55  54 49 4E 45 53 20 20 20  |RNAL .OUTINES   |
000034A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000034B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000034C0: 20 20 20 31 2D 31 36 0D  0D 0D 20 20 20 20 20 20  |   1-16...      |
000034D0: 20 20 20 20 C6 55 4E 43  54 49 4F 4E 20 CE 41 4D  |    .UNCTION .AM|
000034E0: 45 3A 20 C3 CD C4 D4 C2  CC 0D 20 20 20 20 20 20  |E: .......      |
000034F0: 20 20 20 20 D0 55 52 50  4F 53 45 3A 20 D3 45 54  |    .URPOSE: .ET|
00003500: 53 20 55 50 20 41 20 54  41 42 4C 45 20 4F 46 20  |S UP A TABLE OF |
00003510: 52 45 43 55 52 52 49 4E  47 20 54 49 4D 45 44 20  |RECURRING TIMED |
00003520: 45 56 45 4E 54 53 2E 0D  20 20 20 20 20 20 20 20  |EVENTS..        |
00003530: 20 20 C3 41 4C 4C 20 41  44 44 52 45 53 53 3A 20  |  .ALL ADDRESS: |
00003540: 24 C3 31 30 33 0D 20 20  20 20 20 20 20 20 20 20  |$.103.          |
00003550: C9 4E 50 55 54 20 52 45  51 55 49 52 45 4D 45 4E  |.NPUT REQUIREMEN|
00003560: 54 53 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |TS:.            |
00003570: 20 20 20 C1 20 20 20 20  20 20 20 20 20 D4 48 45  |   .         .HE|
00003580: 20 4E 55 4D 42 45 52 20  4F 46 20 45 4E 54 52 49  | NUMBER OF ENTRI|
00003590: 45 53 20 49 4E 20 54 48  45 20 54 41 42 4C 45 2E  |ES IN THE TABLE.|
000035A0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000035B0: 24 30 32 2D 24 30 33 20  20 20 C1 20 50 4F 49 4E  |$02-$03   . POIN|
000035C0: 54 45 52 20 54 4F 20 54  48 45 20 54 41 42 4C 45  |TER TO THE TABLE|
000035D0: 20 4F 46 20 43 4F 55 4E  54 45 52 53 20 41 4E 44  | OF COUNTERS AND|
000035E0: 20 52 4F 55 54 49 4E 45  0D 20 20 20 20 20 20 20  | ROUTINE.       |
000035F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003600: 20 20 41 44 44 52 45 53  53 45 53 2E 0D 0D 20 20  |  ADDRESSES...  |
00003610: 20 20 20 20 20 20 20 20  C4 45 53 43 52 49 50 54  |        .ESCRIPT|
00003620: 49 4F 4E 3A 20 20 D4 48  49 53 20 52 4F 55 54 49  |ION:  .HIS ROUTI|
00003630: 4E 45 20 43 4F 50 49 45  53 20 41 20 54 41 42 4C  |NE COPIES A TABL|
00003640: 45 20 4F 46 20 53 55 42  52 4F 55 54 49 4E 45 20  |E OF SUBROUTINE |
00003650: 41 44 44 52 45 53 53 45  53 0D 20 20 20 20 20 20  |ADDRESSES.      |
00003660: 20 20 20 20 41 4E 44 20  20 43 4F 55 4E 54 45 52  |    AND  COUNTER|
00003670: 20 20 56 41 4C 55 45 53  20 49 4E 54 4F 20 C7 C5  |  VALUES INTO ..|
00003680: CF D3 27 53 20 54 41 42  4C 45 53 20 41 54 20 24  |..'S TABLES AT $|
00003690: 38 37 32 C4 20 41 4E 44  20 20 24 38 37 35 35 2E  |872. AND  $8755.|
000036A0: 20 20 D4 48 45 0D 20 20  20 20 20 20 20 20 20 20  |  .HE.          |
000036B0: 43 4F 55 4E 54 45 52 53  20 20 57 49 4C 4C 20 42  |COUNTERS  WILL B|
000036C0: 45 20 44 45 43 52 45 4D  45 4E 54 45 44 20 4F 4E  |E DECREMENTED ON|
000036D0: 20 45 41 43 48 20 43 41  4C 4C 20 54 4F 20 C9 D2  | EACH CALL TO ..|
000036E0: D1 D2 D4 CE 2E 20 20 D7  48 45 4E 20 20 54 48 45  |.....  .HEN  THE|
000036F0: 59 0D 20 20 20 20 20 20  20 20 20 20 52 45 41 43  |Y.          REAC|
00003700: 48 20 5A 45 52 4F 2C 20  20 54 48 45 59 20 41 52  |H ZERO,  THEY AR|
00003710: 45 20 52 45 53 45 54 20  41 4E 44 20 54 48 45 20  |E RESET AND THE |
00003720: 41 53 53 4F 43 49 41 54  45 44 20 52 4F 55 54 49  |ASSOCIATED ROUTI|
00003730: 4E 45 20 49 53 20 20 43  41 4C 4C 45 44 0D 20 20  |NE IS  CALLED.  |
00003740: 20 20 20 20 20 20 20 20  42 59 20 20 54 48 45 20  |        BY  THE |
00003750: 20 C7 C5 CF D3 20 4D 41  49 4E 20 4C 4F 4F 50 2E  | .... MAIN LOOP.|
00003760: 20 20 D4 48 45 20 43 4F  4D 4D 41 4E 44 20 42 59  |  .HE COMMAND BY|
00003770: 54 45 53 20 41 52 45 20  49 4E 49 54 49 41 4C 4C  |TES ARE INITIALL|
00003780: 59 20 53 45 54 20 20 54  4F 0D 20 20 20 20 20 20  |Y SET  TO.      |
00003790: 20 20 20 20 44 49 53 41  42 4C 45 20 54 48 45 20  |    DISABLE THE |
000037A0: 43 4F 55 4E 54 45 52 53  2E 20 D3 45 56 45 52 41  |COUNTERS. .EVERA|
000037B0: 4C 20 43 41 4C 4C 53 20  54 4F 20 C5 CE C1 C2 CC  |L CALLS TO .....|
000037C0: C5 20 41 52 45 20 4E 45  45 44 45 44 20 54 4F 20  |. ARE NEEDED TO |
000037D0: 53 54 41 52 54 0D 20 20  20 20 20 20 20 20 20 20  |START.          |
000037E0: 54 48 45 20 43 4F 55 4E  54 45 52 53 20 52 55 4E  |THE COUNTERS RUN|
000037F0: 4E 49 4E 47 2C 20 20 4F  4E 45 20 46 4F 52 20 45  |NING,  ONE FOR E|
00003800: 41 43 48 20 45 4E 54 52  59 20 49 4E 20 54 48 45  |ACH ENTRY IN THE|
00003810: 20 54 41 42 4C 45 2E 20  D4 48 45 20 54 41 42 4C  | TABLE. .HE TABL|
00003820: 45 0D 20 20 20 20 20 20  20 20 20 20 43 4F 4E 53  |E.          CONS|
00003830: 49 53 54 53 20 20 4F 46  20 20 50 41 49 52 53 20  |ISTS  OF  PAIRS |
00003840: 4F 46 20 57 4F 52 44 53  2E 20 20 D4 48 45 20 46  |OF WORDS.  .HE F|
00003850: 49 52 53 54 20 49 53 20  54 48 45 20 20 41 44 44  |IRST IS THE  ADD|
00003860: 52 45 53 53 20 20 4F 46  20 20 54 48 45 0D 20 20  |RESS  OF  THE.  |
00003870: 20 20 20 20 20 20 20 20  53 55 42 52 4F 55 54 49  |        SUBROUTI|
00003880: 4E 45 20 20 54 4F 20 42  45 20 45 58 45 43 55 54  |NE  TO BE EXECUT|
00003890: 45 44 20 45 41 43 48 20  54 49 4D 45 20 54 48 45  |ED EACH TIME THE|
000038A0: 20 43 4F 55 4E 54 45 52  20 52 45 41 43 48 45 53  | COUNTER REACHES|
000038B0: 20 5A 45 52 4F 20 41 4E  44 0D 20 20 20 20 20 20  | ZERO AND.      |
000038C0: 20 20 20 20 54 48 45 20  20 53 45 43 4F 4E 44 20  |    THE  SECOND |
000038D0: 20 49 53 20 20 54 48 45  20 20 43 4F 55 4E 54 45  | IS  THE  COUNTE|
000038E0: 52 20 56 41 4C 55 45 20  2E 20 20 D4 48 49 53 20  |R VALUE .  .HIS |
000038F0: 20 41 50 50 45 41 52 53  20 20 54 4F 20 20 42 45  | APPEARS  TO  BE|
00003900: 20 20 54 48 45 0D 20 20  20 20 20 20 20 20 20 20  |  THE.          |
00003910: 52 55 44 49 4D 45 4E 54  53 20 20 4F 46 20 4D 55  |RUDIMENTS  OF MU|
00003920: 4C 54 49 54 41 53 4B 49  4E 47 20 C7 C5 CF D3 2E  |LTITASKING .....|
00003930: 20 20 D4 48 45 20 54 41  42 4C 45 20 4F 46 20 43  |  .HE TABLE OF C|
00003940: 4F 4D 4D 41 4E 44 20 20  42 59 54 45 53 20 20 41  |OMMAND  BYTES  A|
00003950: 54 0D 20 20 20 20 20 20  20 20 20 20 24 38 37 31  |T.          $871|
00003960: 39 20 20 41 52 45 20 20  42 49 54 20 20 4F 52 49  |9  ARE  BIT  ORI|
00003970: 45 4E 54 45 44 20 41 4E  44 20 4F 50 45 52 41 54  |ENTED AND OPERAT|
00003980: 45 20 41 43 43 4F 52 44  49 4E 47 20 54 4F 20 20  |E ACCORDING TO  |
00003990: 54 48 45 20 46 4F 4C 4C  4F 57 49 4E 47 0D 20 20  |THE FOLLOWING.  |
000039A0: 20 20 20 20 20 20 20 20  54 41 42 4C 45 3A 0D 20  |        TABLE:. |
000039B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 C2 49  |              .I|
000039C0: 54 20 37 20 2D 20 D4 49  4D 45 52 20 52 45 41 43  |T 7 - .IMER REAC|
000039D0: 48 45 44 20 5A 45 52 4F  2C 20 43 41 4C 4C 20 54  |HED ZERO, CALL T|
000039E0: 48 45 20 53 55 42 52 4F  55 54 49 4E 45 2E 0D 20  |HE SUBROUTINE.. |
000039F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 C2 49  |              .I|
00003A00: 54 20 36 20 2D 20 C4 49  53 41 42 4C 45 20 54 48  |T 6 - .ISABLE TH|
00003A10: 45 20 45 58 45 43 55 54  49 4F 4E 20 4F 46 20 54  |E EXECUTION OF T|
00003A20: 48 45 20 52 4F 55 54 49  4E 45 2E 20 20 D4 48 49  |HE ROUTINE.  .HI|
00003A30: 53 20 44 4F 45 53 20 CE  CF D4 0D 20 20 20 20 20  |S DOES ....     |
00003A40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003A50: 20 20 41 46 46 45 43 54  20 54 48 45 20 43 4F 55  |  AFFECT THE COU|
00003A60: 4E 54 45 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |NTER..          |
00003A70: 20 20 20 20 20 C2 49 54  20 35 20 2D 20 C9 4E 49  |     .IT 5 - .NI|
00003A80: 54 49 41 4C 4C 59 20 53  45 54 20 42 59 20 C3 CD  |TIALLY SET BY ..|
00003A90: C4 D4 C2 CC 2C 20 20 43  41 55 53 45 53 20 54 48  |....,  CAUSES TH|
00003AA0: 45 20 43 4F 55 4E 54 45  52 20 54 4F 20 53 54 4F  |E COUNTER TO STO|
00003AB0: 50 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |P.              |
00003AC0: 20 20 20 20 20 20 20 20  20 52 55 4E 4E 49 4E 47  |         RUNNING|
00003AD0: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00003AE0: 20 C2 49 54 20 34 20 2D  20 D4 48 4F 55 47 48 20  | .IT 4 - .HOUGH |
00003AF0: 20 4E 4F 54 20 52 45 46  45 52 45 4E 43 45 44 20  | NOT REFERENCED |
00003B00: 41 4E 59 57 48 45 52 45  20 49 4E 20 54 48 45 20  |ANYWHERE IN THE |
00003B10: C7 C5 CF D3 20 20 CB 45  52 4E 41 4C 2C 0D 20 20  |....  .ERNAL,.  |
00003B20: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003B30: 20 20 20 20 20 54 48 49  53 20 20 42 49 54 20 41  |     THIS  BIT A|
00003B40: 4C 53 4F 20 53 54 4F 50  53 20 54 48 45 20 43 4F  |LSO STOPS THE CO|
00003B50: 55 4E 54 45 52 2E 20 20  D4 48 49 53 20 42 49 54  |UNTER.  .HIS BIT|
00003B60: 20 20 49 53 20 20 CE CF  D4 0D 20 20 20 20 20 20  |  IS  ....      |
00003B70: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003B80: 20 54 4F 55 43 48 45 44  20 20 42 59 20 20 41 4E  | TOUCHED  BY  AN|
00003B90: 59 20 20 4F 46 20 54 48  45 20 20 C7 C5 CF D3 20  |Y  OF THE  .... |
00003BA0: 20 52 4F 55 54 49 4E 45  53 2C 20 20 49 4E 43 4C  | ROUTINES,  INCL|
00003BB0: 55 44 49 4E 47 0D 20 20  20 20 20 20 20 20 20 20  |UDING.          |
00003BC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 C5 CE C1  |             ...|
00003BD0: C2 CC C5 2E 0D 0D 0D 20  20 20 20 20 20 20 20 20  |.......         |
00003BE0: 20 C6 55 4E 43 54 49 4F  4E 20 CE 41 4D 45 3A 20  | .UNCTION .AME: |
00003BF0: C3 CD C5 CE D5 D3 0D 20  20 20 20 20 20 20 20 20  |.......         |
00003C00: 20 D0 55 52 50 4F 53 45  3A 20 C3 4C 4F 53 45 53  | .URPOSE: .LOSES|
00003C10: 20 41 4C 4C 20 4D 45 4E  55 20 4C 45 56 45 4C 53  | ALL MENU LEVELS|
00003C20: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00003C30: 20 41 44 44 52 45 53 53  3A 20 24 C3 31 C2 C4 0D  | ADDRESS: $.1...|
00003C40: 20 20 20 20 20 20 20 20  20 20 D0 52 45 50 41 52  |          .REPAR|
00003C50: 41 54 4F 52 59 20 52 4F  55 54 49 4E 45 53 3A 20  |ATORY ROUTINES: |
00003C60: CD C5 CE D5 0D 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00003C70: C4 45 53 43 52 49 50 54  49 4F 4E 3A 20 20 D4 48  |.ESCRIPTION:  .H|
00003C80: 49 53 20 52 4F 55 54 49  4E 45 20 49 53 20 4E 4F  |IS ROUTINE IS NO|
00003C90: 54 20 54 48 45 20 53 41  4D 45 20 C5 D2 C1 CD CE  |T THE SAME .....|
00003CA0: D3 2E 20 20 D4 48 45 20  4D 45 4E 55 53 20 41 52  |..  .HE MENUS AR|
00003CB0: 45 0D 20 20 20 20 20 20  20 20 20 20 43 4C 45 41  |E.          CLEA|
00003CC0: 52 45 44 20 20 4F 4E 45  20 41 54 20 41 20 54 49  |RED  ONE AT A TI|
00003CD0: 4D 45 20 41 4E 44 20 54  48 45 20 50 52 45 56 49  |ME AND THE PREVI|
00003CE0: 4F 55 53 20 4C 45 56 45  4C 53 20 41 52 45 20 52  |OUS LEVELS ARE R|
00003CF0: 45 50 52 4F 43 45 53 53  45 44 20 49 4E 0D 20 20  |EPROCESSED IN.  |
00003D00: 20 20 20 20 20 20 20 20  52 45 56 45 52 53 45 20  |        REVERSE |
00003D10: 4F 52 44 45 52 20 55 4E  54 49 4C 20 41 4C 4C 20  |ORDER UNTIL ALL |
00003D20: 4D 45 4E 55 53 20 41 52  45 20 43 4C 4F 53 45 44  |MENUS ARE CLOSED|
00003D30: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
00003D40: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 C3 CF CE  |NCTION .AME: ...|
00003D50: D6 D2 D4 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |....          .U|
00003D60: 52 50 4F 53 45 3A 20 C3  4F 4E 56 45 52 54 53 20  |RPOSE: .ONVERTS |
00003D70: 41 20 44 49 53 4B 20 54  4F 20 C7 C5 CF D3 20 46  |A DISK TO .... F|
00003D80: 4F 52 4D 41 54 2E 0D 20  20 20 20 20 20 20 20 20  |ORMAT..         |
00003D90: 20 C3 41 4C 4C 20 41 44  44 52 45 53 53 3A 20 24  | .ALL ADDRESS: $|
00003DA0: C3 31 C5 C1 0D 20 20 20  20 20 20 20 20 20 20 C5  |.1...          .|
00003DB0: 52 52 4F 52 53 3A 20 D3  45 45 20 41 50 50 45 4E  |RRORS: .EE APPEN|
00003DC0: 44 49 58 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  |DIX..          .|
00003DD0: 45 53 43 52 49 50 54 49  4F 4E 3A 20 20 D4 48 49  |ESCRIPTION:  .HI|
00003DE0: 53 20 20 52 4F 55 54 49  4E 45 20 20 4D 4F 44 49  |S  ROUTINE  MODI|
00003DF0: 46 49 45 53 20 20 54 48  45 20 20 44 49 52 45 43  |FIES  THE  DIREC|
00003E00: 54 4F 52 59 20 20 48 45  41 44 45 52 20 20 54 4F  |TORY  HEADER  TO|
00003E10: 0D 20 20 20 20 20 20 20  20 20 20 49 4E 43 4C 55  |.          INCLU|
00003E20: 44 45 20 54 48 45 20 C7  C5 CF D3 20 46 4F 52 4D  |DE THE .... FORM|
00003E30: 41 54 20 4D 45 53 53 41  47 45 2E 20 C9 54 20 41  |AT MESSAGE. .T A|
00003E40: 4C 53 4F 20 41 4C 4C 4F  43 41 54 45 53 20 41 20  |LSO ALLOCATES A |
00003E50: 53 45 43 54 4F 52 20 54  4F 20 42 45 0D 20 20 20  |SECTOR TO BE.   |
00003E60: 20 20 20 20 20 20 20 55  53 45 44 20 46 4F 52 20  |       USED FOR |
00003E70: 54 48 45 20 42 4F 52 44  45 52 20 46 52 4F 4D 20  |THE BORDER FROM |
00003E80: C4 C5 D3 CB D4 CF D0 2E  0D 0D 0D 0D 0D 0D 0D 0D  |................|
00003E90: 0D 0D 0D 0D 0D 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00003EA0: C7 C5 CF D3 20 CB 45 52  4E 41 4C 20 D2 4F 55 54  |.... .ERNAL .OUT|
00003EB0: 49 4E 45 53 20 20 20 20  20 20 20 20 20 20 20 20  |INES            |
00003EC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003ED0: 20 20 20 20 20 20 20 20  20 20 31 2D 31 37 0D 0D  |          1-17..|
00003EE0: 0D 20 20 20 20 20 20 20  20 20 20 C6 55 4E 43 54  |.          .UNCT|
00003EF0: 49 4F 4E 20 CE 41 4D 45  3A 20 C3 CF D0 D9 C2 0D  |ION .AME: ......|
00003F00: 20 20 20 20 20 20 20 20  20 20 D0 55 52 50 4F 53  |          .URPOS|
00003F10: 45 3A 20 C3 4F 50 49 45  53 20 41 20 42 4F 58 20  |E: .OPIES A BOX |
00003F20: 46 52 4F 4D 20 53 43 52  45 45 4E 20 32 20 54 4F  |FROM SCREEN 2 TO|
00003F30: 20 53 43 52 45 45 4E 20  31 2E 0D 20 20 20 20 20  | SCREEN 1..     |
00003F40: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
00003F50: 53 3A 20 24 C3 31 32 C4  0D 20 20 20 20 20 20 20  |S: $.12..       |
00003F60: 20 20 20 C9 4E 50 55 54  20 52 45 51 55 49 52 45  |   .NPUT REQUIRE|
00003F70: 4D 45 4E 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |MENTS:.         |
00003F80: 20 20 20 20 20 20 24 30  36 20 20 20 20 20 20 20  |      $06       |
00003F90: D4 48 45 20 54 4F 50 20  4D 41 52 47 49 4E 2E 0D  |.HE TOP MARGIN..|
00003FA0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00003FB0: 30 37 20 20 20 20 20 20  20 D4 48 45 20 42 4F 54  |07       .HE BOT|
00003FC0: 54 4F 4D 20 4D 41 52 47  49 4E 2E 0D 20 20 20 20  |TOM MARGIN..    |
00003FD0: 20 20 20 20 20 20 20 20  20 20 20 24 30 38 2D 24  |           $08-$|
00003FE0: 30 39 20 20 20 D4 48 45  20 4C 45 46 54 20 4D 41  |09   .HE LEFT MA|
00003FF0: 52 47 49 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |RGIN..          |
00004000: 20 20 20 20 20 24 30 C1  2D 24 30 C2 20 20 20 D4  |     $0.-$0.   .|
00004010: 48 45 20 52 49 47 48 54  20 4D 41 52 47 49 4E 2E  |HE RIGHT MARGIN.|
00004020: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
00004030: 52 49 50 54 49 4F 4E 3A  20 20 D4 48 49 53 20 20  |RIPTION:  .HIS  |
00004040: 52 4F 55 54 49 4E 45 20  43 4F 50 49 45 53 20 41  |ROUTINE COPIES A|
00004050: 20 42 4F 58 20 46 52 4F  4D 20 53 43 52 45 45 4E  | BOX FROM SCREEN|
00004060: 20 32 20 28 24 36 30 30  30 29 20 54 4F 0D 20 20  | 2 ($6000) TO.  |
00004070: 20 20 20 20 20 20 20 20  53 43 52 45 45 4E 20 31  |        SCREEN 1|
00004080: 20 28 24 C1 30 30 30 29  2E 20 20 CC 4F 43 41 54  | ($.000).  .OCAT|
00004090: 49 4F 4E 20 24 32 C6 20  49 53 20 55 4E 41 46 46  |ION $2. IS UNAFF|
000040A0: 45 43 54 45 44 2E 20 D4  48 49 53 20 52 4F 55 54  |ECTED. .HIS ROUT|
000040B0: 49 4E 45 20 43 41 4C 4C  53 0D 20 20 20 20 20 20  |INE CALLS.      |
000040C0: 20 20 20 20 C3 CF D0 D9  CC 20 52 45 50 45 41 54  |    ..... REPEAT|
000040D0: 45 44 4C 59 20 54 4F 20  43 4F 50 59 20 45 41 43  |EDLY TO COPY EAC|
000040E0: 48 20 4C 49 4E 45 20 4F  46 20 54 48 45 20 42 4F  |H LINE OF THE BO|
000040F0: 58 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |X....          .|
00004100: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C3 CF  |UNCTION .AME: ..|
00004110: D0 D9 C2 32 0D 20 20 20  20 20 20 20 20 20 20 D0  |...2.          .|
00004120: 55 52 50 4F 53 45 3A 20  C9 44 45 4E 54 49 43 41  |URPOSE: .DENTICA|
00004130: 4C 20 54 4F 20 C3 CF D0  D9 C2 2C 20 42 55 54 20  |L TO ....., BUT |
00004140: 57 49 54 48 20 49 4E 4C  49 4E 45 20 44 41 54 41  |WITH INLINE DATA|
00004150: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00004160: 20 41 44 44 52 45 53 53  3A 20 24 C3 31 C1 35 0D  | ADDRESS: $.1.5.|
00004170: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00004180: 49 50 54 49 4F 4E 3A 20  20 D4 48 49 53 20 20 52  |IPTION:  .HIS  R|
00004190: 4F 55 54 49 4E 45 20 43  4F 50 49 45 53 20 41 20  |OUTINE COPIES A |
000041A0: 42 4F 58 20 46 52 4F 4D  20 53 43 52 45 45 4E 20  |BOX FROM SCREEN |
000041B0: 32 20 28 24 36 30 30 30  29 20 54 4F 0D 20 20 20  |2 ($6000) TO.   |
000041C0: 20 20 20 20 20 20 20 53  43 52 45 45 4E 20 31 20  |       SCREEN 1 |
000041D0: 28 24 C1 30 30 30 29 2E  20 20 D4 48 45 20 42 4F  |($.000).  .HE BO|
000041E0: 58 20 44 45 53 43 52 49  50 54 4F 52 20 49 53 20  |X DESCRIPTOR IS |
000041F0: 49 4E 4C 49 4E 45 20 57  49 54 48 20 54 48 45 20  |INLINE WITH THE |
00004200: 20 43 41 4C 4C 49 4E 47  0D 20 20 20 20 20 20 20  | CALLING.       |
00004210: 20 20 20 43 4F 44 45 2E  20 20 D3 45 45 20 D0 C6  |   CODE.  .EE ..|
00004220: C9 CC CC 32 20 46 4F 52  20 41 4E 20 45 58 41 4D  |...2 FOR AN EXAM|
00004230: 50 4C 45 2E 0D 0D 0D 20  20 20 20 20 20 20 20 20  |PLE....         |
00004240: 20 C6 55 4E 43 54 49 4F  4E 20 CE 41 4D 45 3A 20  | .UNCTION .AME: |
00004250: C3 CF D0 D9 C2 33 0D 20  20 20 20 20 20 20 20 20  |.....3.         |
00004260: 20 D0 55 52 50 4F 53 45  3A 20 C3 4F 50 49 45 53  | .URPOSE: .OPIES|
00004270: 20 41 20 42 4F 58 20 46  52 4F 4D 20 53 43 52 45  | A BOX FROM SCRE|
00004280: 45 4E 20 32 20 54 4F 20  53 43 52 45 45 4E 20 31  |EN 2 TO SCREEN 1|
00004290: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
000042A0: 20 41 44 44 52 45 53 53  3A 20 24 C3 32 35 30 0D  | ADDRESS: $.250.|
000042B0: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
000042C0: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
000042D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 24 30 36  |             $06|
000042E0: 20 20 20 20 20 20 20 D4  48 45 20 54 4F 50 20 4D  |       .HE TOP M|
000042F0: 41 52 47 49 4E 2E 0D 20  20 20 20 20 20 20 20 20  |ARGIN..         |
00004300: 20 20 20 20 20 20 24 30  37 20 20 20 20 20 20 20  |      $07       |
00004310: D4 48 45 20 42 4F 54 54  4F 4D 20 4D 41 52 47 49  |.HE BOTTOM MARGI|
00004320: 4E 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |N..             |
00004330: 20 20 24 30 38 2D 24 30  39 20 20 20 D4 48 45 20  |  $08-$09   .HE |
00004340: 4C 45 46 54 20 4D 41 52  47 49 4E 2E 0D 20 20 20  |LEFT MARGIN..   |
00004350: 20 20 20 20 20 20 20 20  20 20 20 20 24 30 C1 2D  |            $0.-|
00004360: 24 30 C2 20 20 20 D4 48  45 20 52 49 47 48 54 20  |$0.   .HE RIGHT |
00004370: 4D 41 52 47 49 4E 2E 0D  0D 20 20 20 20 20 20 20  |MARGIN...       |
00004380: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00004390: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 43  | .HIS  ROUTINE C|
000043A0: 4F 50 49 45 53 20 41 20  42 4F 58 20 46 52 4F 4D  |OPIES A BOX FROM|
000043B0: 20 53 43 52 45 45 4E 20  31 20 28 24 C1 30 30 30  | SCREEN 1 ($.000|
000043C0: 29 20 54 4F 0D 20 20 20  20 20 20 20 20 20 20 53  |) TO.          S|
000043D0: 43 52 45 45 4E 20 32 20  28 24 36 30 30 30 29 2E  |CREEN 2 ($6000).|
000043E0: 20 20 CC 4F 43 41 54 49  4F 4E 20 24 32 C6 20 49  |  .OCATION $2. I|
000043F0: 53 20 55 4E 41 46 46 45  43 54 45 44 2E 20 D4 48  |S UNAFFECTED. .H|
00004400: 49 53 20 52 4F 55 54 49  4E 45 20 43 41 4C 4C 53  |IS ROUTINE CALLS|
00004410: 0D 20 20 20 20 20 20 20  20 20 20 C3 CF D0 D9 CC  |.          .....|
00004420: 20 52 45 50 45 41 54 45  44 4C 59 20 54 4F 20 43  | REPEATEDLY TO C|
00004430: 4F 50 59 20 45 41 43 48  20 4C 49 4E 45 20 4F 46  |OPY EACH LINE OF|
00004440: 20 54 48 45 20 42 4F 58  2E 0D 0D 0D 20 20 20 20  | THE BOX....    |
00004450: 20 20 20 20 20 20 C6 55  4E 43 54 49 4F 4E 20 CE  |      .UNCTION .|
00004460: 41 4D 45 3A 20 C3 CF D0  D9 C2 34 0D 20 20 20 20  |AME: .....4.    |
00004470: 20 20 20 20 20 20 D0 55  52 50 4F 53 45 3A 20 C9  |      .URPOSE: .|
00004480: 44 45 4E 54 49 43 41 4C  20 54 4F 20 C3 CF D0 D9  |DENTICAL TO ....|
00004490: C2 33 2C 20 42 55 54 20  57 49 54 48 20 49 4E 4C  |.3, BUT WITH INL|
000044A0: 49 4E 45 20 44 41 54 41  2E 0D 20 20 20 20 20 20  |INE DATA..      |
000044B0: 20 20 20 20 C3 41 4C 4C  20 41 44 44 52 45 53 53  |    .ALL ADDRESS|
000044C0: 3A 20 24 C3 32 35 33 0D  0D 20 20 20 20 20 20 20  |: $.253..       |
000044D0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
000044E0: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 43  | .HIS  ROUTINE C|
000044F0: 4F 50 49 45 53 20 41 20  42 4F 58 20 46 52 4F 4D  |OPIES A BOX FROM|
00004500: 20 53 43 52 45 45 4E 20  31 20 28 24 C1 30 30 30  | SCREEN 1 ($.000|
00004510: 29 20 54 4F 0D 20 20 20  20 20 20 20 20 20 20 53  |) TO.          S|
00004520: 43 52 45 45 4E 20 32 20  28 24 36 30 30 30 29 2E  |CREEN 2 ($6000).|
00004530: 20 20 D4 48 45 20 42 4F  58 20 44 45 53 43 52 49  |  .HE BOX DESCRI|
00004540: 50 54 4F 52 20 49 53 20  49 4E 4C 49 4E 45 20 57  |PTOR IS INLINE W|
00004550: 49 54 48 20 54 48 45 20  20 43 41 4C 4C 49 4E 47  |ITH THE  CALLING|
00004560: 0D 20 20 20 20 20 20 20  20 20 20 43 4F 44 45 2E  |.          CODE.|
00004570: 20 20 D3 45 45 20 D0 C6  C9 CC CC 32 20 46 4F 52  |  .EE .....2 FOR|
00004580: 20 41 4E 20 45 58 41 4D  50 4C 45 2E 0D 0D 0D 0D  | AN EXAMPLE.....|
00004590: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000045A0: 20 20 20 20 20 20 20 20  20 20 C7 C5 CF D3 20 CB  |          .... .|
000045B0: 45 52 4E 41 4C 20 D2 4F  55 54 49 4E 45 53 20 20  |ERNAL .OUTINES  |
000045C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000045D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000045E0: 20 20 20 20 31 2D 31 38  0D 0D 0D 20 20 20 20 20  |    1-18...     |
000045F0: 20 20 20 20 20 C6 55 4E  43 54 49 4F 4E 20 CE 41  |     .UNCTION .A|
00004600: 4D 45 3A 20 C3 CF D0 D9  CC 0D 20 20 20 20 20 20  |ME: ......      |
00004610: 20 20 20 20 D0 55 52 50  4F 53 45 3A 20 C3 4F 50  |    .URPOSE: .OP|
00004620: 49 45 53 20 41 20 48 4F  52 49 5A 4F 4E 41 4C 20  |IES A HORIZONAL |
00004630: 4C 49 4E 45 20 46 52 4F  4D 20 53 43 52 45 45 4E  |LINE FROM SCREEN|
00004640: 20 32 20 54 4F 20 53 43  52 45 45 4E 20 31 2E 0D  | 2 TO SCREEN 1..|
00004650: 20 20 20 20 20 20 20 20  20 20 C3 41 4C 4C 20 41  |          .ALL A|
00004660: 44 44 52 45 53 53 3A 20  24 C3 31 31 C5 0D 20 20  |DDRESS: $.11..  |
00004670: 20 20 20 20 20 20 20 20  C9 4E 50 55 54 20 52 45  |        .NPUT RE|
00004680: 51 55 49 52 45 4D 45 4E  54 53 3A 0D 20 20 20 20  |QUIREMENTS:.    |
00004690: 20 20 20 20 20 20 20 20  20 20 20 24 30 38 2D 24  |           $08-$|
000046A0: 30 39 20 20 20 D4 48 45  20 4C 45 46 54 20 4D 41  |09   .HE LEFT MA|
000046B0: 52 47 49 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |RGIN..          |
000046C0: 20 20 20 20 20 24 30 C1  2D 24 30 C2 20 20 20 D4  |     $0.-$0.   .|
000046D0: 48 45 20 52 49 47 48 54  20 4D 41 52 47 49 4E 2E  |HE RIGHT MARGIN.|
000046E0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000046F0: 24 31 38 20 20 20 20 20  20 20 D4 48 45 20 52 4F  |$18       .HE RO|
00004700: 57 20 4E 55 4D 42 45 52  2E 0D 0D 20 20 20 20 20  |W NUMBER...     |
00004710: 20 20 20 20 20 C4 45 53  43 52 49 50 54 49 4F 4E  |     .ESCRIPTION|
00004720: 3A 20 20 D4 48 49 53 20  52 4F 55 54 49 4E 45 20  |:  .HIS ROUTINE |
00004730: 43 4F 50 49 45 53 20 41  20 48 4F 52 49 5A 4F 4E  |COPIES A HORIZON|
00004740: 54 41 4C 20 4C 49 4E 45  20 46 52 4F 4D 20 53 43  |TAL LINE FROM SC|
00004750: 52 45 45 4E 20 32 0D 20  20 20 20 20 20 20 20 20  |REEN 2.         |
00004760: 20 28 24 36 30 30 30 29  20 54 4F 20 53 43 52 45  | ($6000) TO SCRE|
00004770: 45 4E 20 31 20 28 24 C1  30 30 30 29 2E 20 CC 4F  |EN 1 ($.000). .O|
00004780: 43 41 54 49 4F 4E 20 24  32 C6 20 49 53 20 55 4E  |CATION $2. IS UN|
00004790: 41 46 46 45 43 54 45 44  2E 0D 0D 0D 20 20 20 20  |AFFECTED....    |
000047A0: 20 20 20 20 20 20 C6 55  4E 43 54 49 4F 4E 20 CE  |      .UNCTION .|
000047B0: 41 4D 45 3A 20 C3 CF D0  D9 D3 D0 0D 20 20 20 20  |AME: .......    |
000047C0: 20 20 20 20 20 20 D0 55  52 50 4F 53 45 3A 20 C3  |      .URPOSE: .|
000047D0: 4F 50 49 45 53 20 41 20  53 50 52 49 54 45 20 49  |OPIES A SPRITE I|
000047E0: 4E 54 4F 20 C7 C5 CF D3  27 53 20 53 54 4F 52 41  |NTO ....'S STORA|
000047F0: 47 45 20 41 52 45 41 2E  0D 20 20 20 20 20 20 20  |GE AREA..       |
00004800: 20 20 20 C3 41 4C 4C 20  41 44 44 52 45 53 53 3A  |   .ALL ADDRESS:|
00004810: 20 24 C3 31 C3 36 0D 20  20 20 20 20 20 20 20 20  | $.1.6.         |
00004820: 20 C9 4E 50 55 54 20 52  45 51 55 49 52 45 4D 45  | .NPUT REQUIREME|
00004830: 4E 54 53 3A 0D 20 20 20  20 20 20 20 20 20 20 20  |NTS:.           |
00004840: 20 20 20 20 24 30 38 20  20 20 20 20 20 20 D4 48  |    $08       .H|
00004850: 45 20 53 50 52 49 54 45  20 4E 55 4D 42 45 52 20  |E SPRITE NUMBER |
00004860: 28 30 2D 37 29 2E 0D 20  20 20 20 20 20 20 20 20  |(0-7)..         |
00004870: 20 20 20 20 20 20 24 30  C1 2D 24 30 C2 20 20 20  |      $0.-$0.   |
00004880: D0 4F 49 4E 54 45 52 20  54 4F 20 54 48 45 20 53  |.OINTER TO THE S|
00004890: 50 52 49 54 45 20 44 41  54 41 2E 0D 0D 20 20 20  |PRITE DATA...   |
000048A0: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
000048B0: 4F 4E 3A 20 20 D4 48 49  53 20 52 4F 55 54 49 4E  |ON:  .HIS ROUTIN|
000048C0: 45 20 53 49 4D 50 4C 59  20 43 4F 50 49 45 53 20  |E SIMPLY COPIES |
000048D0: 36 33 20 42 59 54 45 53  20 4F 46 20 44 41 54 41  |63 BYTES OF DATA|
000048E0: 20 50 4F 49 4E 54 45 44  0D 20 20 20 20 20 20 20  | POINTED.       |
000048F0: 20 20 20 54 4F 20 20 42  59 20 20 24 30 C1 2D 24  |   TO  BY  $0.-$|
00004900: 30 C2 20 54 4F 20 54 48  45 20 53 50 45 43 49 46  |0. TO THE SPECIF|
00004910: 49 45 44 20 53 50 52 49  54 45 20 42 4C 4F 43 4B  |IED SPRITE BLOCK|
00004920: 2E 20 20 C7 C5 CF D3 20  55 53 45 53 20 20 53 50  |.  .... USES  SP|
00004930: 52 49 54 45 0D 20 20 20  20 20 20 20 20 20 20 42  |RITE.          B|
00004940: 4C 4F 43 4B 53 20 34 30  20 54 4F 20 34 37 2E 0D  |LOCKS 40 TO 47..|
00004950: 0D 0D 20 20 20 20 20 20  20 20 20 20 C6 55 4E 43  |..          .UNC|
00004960: 54 49 4F 4E 20 CE 41 4D  45 3A 20 C3 D5 D2 D3 CF  |TION .AME: .....|
00004970: C6 0D 20 20 20 20 20 20  20 20 20 20 D0 55 52 50  |..          .URP|
00004980: 4F 53 45 3A 20 D4 55 52  4E 20 4F 46 46 20 54 45  |OSE: .URN OFF TE|
00004990: 58 54 20 43 55 52 53 4F  52 2E 0D 20 20 20 20 20  |XT CURSOR..     |
000049A0: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
000049B0: 53 3A 20 24 C3 32 39 C5  0D 20 20 20 20 20 20 20  |S: $.29..       |
000049C0: 20 20 20 CF 55 54 50 55  54 3A 0D 20 20 20 20 20  |   .UTPUT:.     |
000049D0: 20 20 20 20 20 20 20 20  20 20 24 38 34 C2 34 20  |          $84.4 |
000049E0: 20 20 20 20 C2 49 54 20  36 20 49 53 20 43 4C 45  |    .IT 6 IS CLE|
000049F0: 41 52 45 44 2E 0D 20 20  20 20 20 20 20 20 20 20  |ARED..          |
00004A00: D0 52 45 50 41 52 41 54  4F 52 59 20 52 4F 55 54  |.REPARATORY ROUT|
00004A10: 49 4E 45 53 3A 20 C3 D5  D2 D3 CF CE 0D 0D 20 20  |INES: ........  |
00004A20: 20 20 20 20 20 20 20 20  C4 45 53 43 52 49 50 54  |        .ESCRIPT|
00004A30: 49 4F 4E 3A 20 20 D3 50  52 49 54 45 20 31 20 28  |ION:  .PRITE 1 (|
00004A40: C7 C5 CF D3 27 53 20 54  45 58 54 20 43 55 52 53  |....'S TEXT CURS|
00004A50: 4F 52 29 20 49 53 20 54  55 52 4E 45 44 20 4F 46  |OR) IS TURNED OF|
00004A60: 46 2C 20 20 42 49 54 20  36 0D 20 20 20 20 20 20  |F,  BIT 6.      |
00004A70: 20 20 20 20 4F 46 20 4C  4F 43 41 54 49 4F 4E 20  |    OF LOCATION |
00004A80: 24 38 34 C2 34 20 49 53  20 52 45 53 45 54 2E 20  |$84.4 IS RESET. |
00004A90: D4 48 45 20 42 4C 49 4E  4B 20 52 41 54 45 20 49  |.HE BLINK RATE I|
00004AA0: 53 20 53 45 54 20 54 4F  20 36 30 20 28 4F 4E 43  |S SET TO 60 (ONC|
00004AB0: 45 20 50 45 52 0D 20 20  20 20 20 20 20 20 20 20  |E PER.          |
00004AC0: 53 45 43 4F 4E 44 29 2E  0D 0D 0D 20 20 20 20 20  |SECOND)....     |
00004AD0: 20 20 20 20 20 C6 55 4E  43 54 49 4F 4E 20 CE 41  |     .UNCTION .A|
00004AE0: 4D 45 3A 20 C3 D5 D2 D3  CF CE 0D 20 20 20 20 20  |ME: .......     |
00004AF0: 20 20 20 20 20 D0 55 52  50 4F 53 45 3A 20 D4 55  |     .URPOSE: .U|
00004B00: 52 4E 20 4F 4E 20 54 45  58 54 20 43 55 52 53 4F  |RN ON TEXT CURSO|
00004B10: 52 2E 0D 20 20 20 20 20  20 20 20 20 20 C3 41 4C  |R..          .AL|
00004B20: 4C 20 41 44 44 52 45 53  53 3A 20 24 C3 32 39 C2  |L ADDRESS: $.29.|
00004B30: 0D 20 20 20 20 20 20 20  20 20 20 C9 4E 50 55 54  |.          .NPUT|
00004B40: 20 52 45 51 55 49 52 45  4D 45 4E 54 53 3A 0D 20  | REQUIREMENTS:. |
00004B50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 38  |              $8|
00004B60: 34 C2 C5 2D 24 38 34 C2  C6 20 C3 4F 4C 55 4D 4E  |4..-$84.. .OLUMN|
00004B70: 20 54 4F 20 50 4C 41 43  45 20 43 55 52 53 4F 52  | TO PLACE CURSOR|
00004B80: 20 49 4E 2E 0D 20 20 20  20 20 20 20 20 20 20 20  | IN..           |
00004B90: 20 20 20 20 24 38 34 C3  30 20 20 20 20 20 D2 4F  |    $84.0     .O|
00004BA0: 57 20 54 4F 20 50 4C 41  43 45 20 43 55 52 53 4F  |W TO PLACE CURSO|
00004BB0: 52 20 4F 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |R ON..          |
00004BC0: CF 55 54 50 55 54 3A 0D  20 20 20 20 20 20 20 20  |.UTPUT:.        |
00004BD0: 20 20 20 20 20 20 20 24  38 34 C2 34 20 20 20 20  |       $84.4    |
00004BE0: 20 C2 49 54 20 36 20 49  53 20 53 45 54 2E 0D 0D  | .IT 6 IS SET...|
00004BF0: 20 20 20 20 20 20 20 20  20 20 C4 45 53 43 52 49  |          .ESCRI|
00004C00: 50 54 49 4F 4E 3A 20 D4  55 52 4E 53 20 4F 4E 20  |PTION: .URNS ON |
00004C10: 53 50 52 49 54 45 20 31  20 41 4E 44 20 50 4F 53  |SPRITE 1 AND POS|
00004C20: 49 54 49 4F 4E 53 20 49  54 2E 20 C9 54 20 41 4C  |ITIONS IT. .T AL|
00004C30: 53 4F 20 53 45 54 53 20  42 49 54 0D 20 20 20 20  |SO SETS BIT.    |
00004C40: 20 20 20 20 20 20 36 20  20 4F 46 20 20 4C 4F 43  |      6  OF  LOC|
00004C50: 41 54 49 4F 4E 20 20 24  38 34 C2 34 2E 20 20 D4  |ATION  $84.4.  .|
00004C60: 48 45 20 42 4C 49 4E 4B  20 52 41 54 45 20 49 53  |HE BLINK RATE IS|
00004C70: 20 53 45 54 20 54 4F 20  20 36 30 2C 20 20 4F 4E  | SET TO  60,  ON|
00004C80: 43 45 20 20 50 45 52 0D  20 20 20 20 20 20 20 20  |CE  PER.        |
00004C90: 20 20 53 45 43 4F 4E 44  2E 20 D3 50 52 49 54 45  |  SECOND. .PRITE|
00004CA0: 20 31 20 49 53 20 54 48  45 20 54 45 58 54 20 43  | 1 IS THE TEXT C|
00004CB0: 55 52 53 4F 52 20 46 4F  52 20 C7 C5 CF D3 2E 0D  |URSOR FOR ......|
00004CC0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 20  |............... |
00004CD0: 20 20 20 20 20 20 20 20  20 C7 C5 CF D3 20 CB 45  |         .... .E|
00004CE0: 52 4E 41 4C 20 D2 4F 55  54 49 4E 45 53 20 20 20  |RNAL .OUTINES   |
00004CF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004D00: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004D10: 20 20 20 31 2D 31 39 0D  0D 0D 20 20 20 20 20 20  |   1-19...      |
00004D20: 20 20 20 20 C6 55 4E 43  54 49 4F 4E 20 CE 41 4D  |    .UNCTION .AM|
00004D30: 45 3A 20 C3 D7 C9 C4 D4  C8 0D 20 20 20 20 20 20  |E: .......      |
00004D40: 20 20 20 20 D0 55 52 50  4F 53 45 3A 20 D2 45 54  |    .URPOSE: .ET|
00004D50: 55 52 4E 53 20 54 48 45  20 57 49 44 54 48 20 4F  |URNS THE WIDTH O|
00004D60: 46 20 41 20 43 48 41 52  41 43 54 45 52 2E 0D 20  |F A CHARACTER.. |
00004D70: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
00004D80: 44 52 45 53 53 3A 20 24  C3 31 C3 39 0D 20 20 20  |DRESS: $.1.9.   |
00004D90: 20 20 20 20 20 20 20 C9  4E 50 55 54 20 52 45 51  |       .NPUT REQ|
00004DA0: 55 49 52 45 4D 45 4E 54  53 3A 0D 20 20 20 20 20  |UIREMENTS:.     |
00004DB0: 20 20 20 20 20 20 20 20  20 20 C1 20 20 20 20 20  |          .     |
00004DC0: 20 20 20 20 D4 48 45 20  C1 D3 C3 C9 C9 20 56 41  |    .HE ..... VA|
00004DD0: 4C 55 45 20 4F 46 20 54  48 45 20 43 48 41 52 41  |LUE OF THE CHARA|
00004DE0: 43 54 45 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |CTER..          |
00004DF0: CF 55 54 50 55 54 3A 0D  20 20 20 20 20 20 20 20  |.UTPUT:.        |
00004E00: 20 20 20 20 20 20 20 C1  20 20 20 20 20 20 20 20  |       .        |
00004E10: 20 D4 48 45 20 57 49 44  54 48 20 4F 46 20 54 48  | .HE WIDTH OF TH|
00004E20: 45 20 43 48 41 52 41 43  54 45 52 2E 0D 0D 20 20  |E CHARACTER...  |
00004E30: 20 20 20 20 20 20 20 20  C4 45 53 43 52 49 50 54  |        .ESCRIPT|
00004E40: 49 4F 4E 3A 20 20 D4 48  49 53 20 52 4F 55 54 49  |ION:  .HIS ROUTI|
00004E50: 4E 45 20 53 49 4D 50 4C  59 20 54 41 4B 45 53 20  |NE SIMPLY TAKES |
00004E60: 54 48 45 20 44 49 46 46  45 52 45 4E 43 45 20 4F  |THE DIFFERENCE O|
00004E70: 46 20 54 48 45 20 42 49  54 0D 20 20 20 20 20 20  |F THE BIT.      |
00004E80: 20 20 20 20 53 54 52 45  41 4D 20 49 4E 44 49 43  |    STREAM INDIC|
00004E90: 45 53 20 54 4F 20 47 45  54 20 54 48 45 20 43 48  |ES TO GET THE CH|
00004EA0: 41 52 41 43 54 45 52 53  20 57 49 44 54 48 2E 20  |ARACTERS WIDTH. |
00004EB0: 20 D4 48 45 20 44 45 4C  45 54 45 20 43 48 41 52  | .HE DELETE CHAR|
00004EC0: 41 43 54 45 52 0D 20 20  20 20 20 20 20 20 20 20  |ACTER.          |
00004ED0: 48 41 53 20 20 49 54 53  20 20 57 49 44 54 48 20  |HAS  ITS  WIDTH |
00004EE0: 20 4C 4F 41 44 45 44 20  46 52 4F 4D 20 24 38 38  | LOADED FROM $88|
00004EF0: 30 37 2E 20 20 D4 48 49  53 20 52 4F 55 54 49 4E  |07.  .HIS ROUTIN|
00004F00: 45 20 20 49 53 20 20 43  41 4C 4C 45 44 20 20 42  |E  IS  CALLED  B|
00004F10: 59 0D 20 20 20 20 20 20  20 20 20 20 C3 C8 C1 D2  |Y.          ....|
00004F20: D3 D4 2E 0D 0D 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00004F30: C6 55 4E 43 54 49 4F 4E  20 CE 41 4D 45 3A 20 C3  |.UNCTION .AME: .|
00004F40: D7 D2 C9 D4 C5 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00004F50: D0 55 52 50 4F 53 45 3A  20 C3 4F 4E 44 49 54 49  |.URPOSE: .ONDITI|
00004F60: 4F 4E 41 4C 4C 59 20 57  52 49 54 45 20 41 20 53  |ONALLY WRITE A S|
00004F70: 45 43 54 4F 52 20 54 4F  20 44 49 53 4B 2E 0D 20  |ECTOR TO DISK.. |
00004F80: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
00004F90: 44 52 45 53 53 3A 20 24  C3 32 32 33 0D 20 20 20  |DRESS: $.223.   |
00004FA0: 20 20 20 20 20 20 20 C9  4E 50 55 54 20 52 45 51  |       .NPUT REQ|
00004FB0: 55 49 52 45 4D 45 4E 54  53 3A 0D 20 20 20 20 20  |UIREMENTS:.     |
00004FC0: 20 20 20 20 20 20 20 20  20 20 24 30 34 20 20 20  |          $04   |
00004FD0: 20 20 20 20 D4 52 41 43  4B 20 4E 55 4D 42 45 52  |    .RACK NUMBER|
00004FE0: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00004FF0: 20 24 30 35 20 20 20 20  20 20 20 D3 45 43 54 4F  | $05       .ECTO|
00005000: 52 20 4E 55 4D 42 45 52  2E 0D 20 20 20 20 20 20  |R NUMBER..      |
00005010: 20 20 20 20 20 20 20 20  20 24 30 C1 2D 24 30 C2  |         $0.-$0.|
00005020: 20 20 20 D0 4F 49 4E 54  45 52 20 54 4F 20 44 41  |   .OINTER TO DA|
00005030: 54 41 20 42 55 46 46 45  52 2E 0D 20 20 20 20 20  |TA BUFFER..     |
00005040: 20 20 20 20 20 D0 52 45  50 41 52 41 54 4F 52 59  |     .REPARATORY|
00005050: 20 52 4F 55 54 49 4E 45  53 3A 20 C4 D3 C5 D4 D5  | ROUTINES: .....|
00005060: D0 0D 20 20 20 20 20 20  20 20 20 20 C5 52 52 4F  |..          .RRO|
00005070: 52 53 3A 20 D3 45 45 20  41 50 50 45 4E 44 49 58  |RS: .EE APPENDIX|
00005080: 20 C9 2E 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  | ....          .|
00005090: 45 53 43 52 49 50 54 49  4F 4E 3A 20 D4 48 45 20  |ESCRIPTION: .HE |
000050A0: 46 49 52 53 54 20 54 48  49 4E 47 20 54 48 49 53  |FIRST THING THIS|
000050B0: 20 52 4F 55 54 49 4E 45  20 44 4F 45 53 20 49 53  | ROUTINE DOES IS|
000050C0: 20 54 52 59 20 54 4F 20  52 45 41 44 20 54 48 45  | TRY TO READ THE|
000050D0: 0D 20 20 20 20 20 20 20  20 20 20 44 45 53 49 52  |.          DESIR|
000050E0: 45 44 20 20 53 45 43 54  4F 52 2E 20 20 C9 46 20  |ED  SECTOR.  .F |
000050F0: 54 48 45 20 52 45 41 44  20 53 55 43 43 45 45 44  |THE READ SUCCEED|
00005100: 53 2C 20 20 4E 4F 54 48  49 4E 47 20 20 48 41 50  |S,  NOTHING  HAP|
00005110: 50 45 4E 53 2E 20 20 D4  48 52 45 45 0D 20 20 20  |PENS.  .HREE.   |
00005120: 20 20 20 20 20 20 20 41  54 54 45 4D 50 54 53 20  |       ATTEMPTS |
00005130: 41 52 45 20 4D 41 44 45  20 41 54 20 54 48 45 20  |ARE MADE AT THE |
00005140: 52 45 41 44 2E 20 20 20  C1 46 54 45 52 20 54 48  |READ.   .FTER TH|
00005150: 45 53 45 20 20 52 45 41  44 20 20 41 54 54 45 4D  |ESE  READ  ATTEM|
00005160: 50 54 53 2C 20 54 48 45  0D 20 20 20 20 20 20 20  |PTS, THE.       |
00005170: 20 20 20 53 45 43 54 4F  52 20 49 53 20 57 52 49  |   SECTOR IS WRI|
00005180: 54 54 45 4E 20 54 4F 20  54 48 45 20 44 49 53 4B  |TTEN TO THE DISK|
00005190: 2C 20 42 59 20 20 43 41  4C 4C 49 4E 47 20 D7 D2  |, BY  CALLING ..|
000051A0: C9 D4 C5 32 2E 20 20 20  C9 46 20 54 48 45 20 57  |...2.   .F THE W|
000051B0: 52 49 54 45 0D 20 20 20  20 20 20 20 20 20 20 53  |RITE.          S|
000051C0: 55 43 43 45 45 44 45 44  20 20 57 49 54 48 4F 55  |UCCEEDED  WITHOU|
000051D0: 54 20 41 4E 59 20 45 52  52 4F 52 53 2C 20 20 54  |T ANY ERRORS,  T|
000051E0: 48 45 4E 20 54 48 45 20  52 4F 55 54 49 4E 45 20  |HEN THE ROUTINE |
000051F0: 52 45 53 54 41 52 54 53  20 49 54 53 45 4C 46 2E  |RESTARTS ITSELF.|
00005200: 0D 20 20 20 20 20 20 20  20 20 20 C9 54 20 57 49  |.          .T WI|
00005210: 4C 4C 20 4D 41 4B 45 20  46 49 56 45 20 41 54 54  |LL MAKE FIVE ATT|
00005220: 45 4D 50 54 53 20 41 54  20 54 48 49 53 20 4C 4F  |EMPTS AT THIS LO|
00005230: 4F 50 2E 20 20 C9 46 20  41 46 54 45 52 20 46 49  |OP.  .F AFTER FI|
00005240: 56 45 20 41 54 54 45 4D  50 54 53 2C 0D 20 20 20  |VE ATTEMPTS,.   |
00005250: 20 20 20 20 20 20 20 54  48 45 20 53 45 43 54 4F  |       THE SECTO|
00005260: 52 20 43 41 4E 20 4E 4F  54 20 42 45 20 52 45 41  |R CAN NOT BE REA|
00005270: 44 20 52 45 4C 49 41 42  4C 59 2C 20 20 41 4E 20  |D RELIABLY,  AN |
00005280: 45 52 52 4F 52 20 33 39  20 20 52 45 53 55 4C 54  |ERROR 39  RESULT|
00005290: 53 2E 20 20 D4 48 49 53  0D 20 20 20 20 20 20 20  |S.  .HIS.       |
000052A0: 20 20 20 52 4F 55 54 49  4E 45 20 20 49 53 20 55  |   ROUTINE  IS U|
000052B0: 53 55 41 4C 4C 59 20 43  41 4C 4C 45 44 20 41 46  |SUALLY CALLED AF|
000052C0: 54 45 52 20 54 48 45 20  53 45 43 54 4F 52 20 48  |TER THE SECTOR H|
000052D0: 41 53 20 42 45 45 4E 20  57 52 49 54 54 45 4E 20  |AS BEEN WRITTEN |
000052E0: 20 4F 55 54 0D 20 20 20  20 20 20 20 20 20 20 57  | OUT.          W|
000052F0: 49 54 48 20 20 41 20 20  43 41 4C 4C 20 54 4F 20  |ITH  A  CALL TO |
00005300: D7 D2 C9 D4 C5 32 2E 20  20 D7 D2 C9 D4 C5 20 43  |.....2.  ..... C|
00005310: 41 4C 4C 53 20 54 48 49  53 20 52 4F 55 54 49 4E  |ALLS THIS ROUTIN|
00005320: 45 20 54 4F 20 56 45 52  49 46 59 20 20 54 48 45  |E TO VERIFY  THE|
00005330: 0D 20 20 20 20 20 20 20  20 20 20 53 45 43 54 4F  |.          SECTO|
00005340: 52 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |R....          .|
00005350: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C4 C5  |UNCTION .AME: ..|
00005360: C3 31 36 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |.16.          .U|
00005370: 52 50 4F 53 45 3A 20 C4  45 43 52 45 4D 45 4E 54  |RPOSE: .ECREMENT|
00005380: 53 20 41 20 31 36 20 42  49 54 20 56 41 4C 55 45  |S A 16 BIT VALUE|
00005390: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
000053A0: 20 41 44 44 52 45 53 53  3A 20 24 C3 31 37 35 0D  | ADDRESS: $.175.|
000053B0: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
000053C0: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
000053D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 D8 20 20  |             .  |
000053E0: 20 20 20 20 20 20 20 D4  48 45 20 41 44 44 52 45  |       .HE ADDRE|
000053F0: 53 53 20 4F 46 20 54 48  45 20 31 36 20 42 49 54  |SS OF THE 16 BIT|
00005400: 20 49 4E 54 45 47 45 52  2E 0D 20 20 20 20 20 20  | INTEGER..      |
00005410: 20 20 20 20 CF 55 54 50  55 54 3A 0D 20 20 20 20  |    .UTPUT:.    |
00005420: 20 20 20 20 20 20 20 20  20 20 20 D8 20 20 20 20  |           .    |
00005430: 20 20 20 20 20 D4 48 45  20 41 44 44 52 45 53 53  |     .HE ADDRESS|
00005440: 20 4F 46 20 54 48 45 20  31 36 20 42 49 54 20 52  | OF THE 16 BIT R|
00005450: 45 53 55 4C 54 2E 0D 0D  20 20 20 20 20 20 20 20  |ESULT...        |
00005460: 20 20 C4 45 53 43 52 49  50 54 49 4F 4E 3A 20 20  |  .ESCRIPTION:  |
00005470: D4 48 49 53 20 20 52 4F  55 54 49 4E 45 20 49 53  |.HIS  ROUTINE IS|
00005480: 20 4F 4E 45 20 4F 46 20  54 48 45 20 C7 C5 CF D3  | ONE OF THE ....|
00005490: 20 4D 41 54 48 20 20 52  4F 55 54 49 4E 45 53 2E  | MATH  ROUTINES.|
000054A0: 20 20 D8 0D 20 20 20 20  20 20 20 20 20 20 50 4F  |  ..          PO|
000054B0: 49 4E 54 53 20 54 4F 20  41 20 31 36 20 42 49 54  |INTS TO A 16 BIT|
000054C0: 20 56 41 4C 55 45 20 57  48 49 43 48 20 49 53 20  | VALUE WHICH IS |
000054D0: 44 45 43 52 45 4D 45 4E  54 45 44 20 42 59 20 31  |DECREMENTED BY 1|
000054E0: 2E 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000054F0: 0D 0D 0D 20 20 20 20 20  20 20 20 20 20 C7 C5 CF  |...          ...|
00005500: D3 20 CB 45 52 4E 41 4C  20 D2 4F 55 54 49 4E 45  |. .ERNAL .OUTINE|
00005510: 53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
00005520: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005530: 20 20 20 20 20 20 20 31  2D 32 30 0D 0D 0D 20 20  |       1-20...  |
00005540: 20 20 20 20 20 20 20 20  C6 55 4E 43 54 49 4F 4E  |        .UNCTION|
00005550: 20 CE 41 4D 45 3A 20 C4  C5 C3 CF C4 C5 0D 20 20  | .AME: .......  |
00005560: 20 20 20 20 20 20 20 20  D0 55 52 50 4F 53 45 3A  |        .URPOSE:|
00005570: 20 C3 4F 4D 50 55 54 45  20 41 20 43 48 45 43 4B  | .OMPUTE A CHECK|
00005580: 53 55 4D 20 46 4F 52 20  41 20 44 41 54 41 20 52  |SUM FOR A DATA R|
00005590: 45 47 49 4F 4E 2E 0D 20  20 20 20 20 20 20 20 20  |EGION..         |
000055A0: 20 C3 41 4C 4C 20 41 44  44 52 45 53 53 3A 20 24  | .ALL ADDRESS: $|
000055B0: C3 32 30 C5 0D 20 20 20  20 20 20 20 20 20 20 C9  |.20..          .|
000055C0: 4E 50 55 54 20 52 45 51  55 49 52 45 4D 45 4E 54  |NPUT REQUIREMENT|
000055D0: 53 3A 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |S:.             |
000055E0: 20 20 24 30 32 2D 24 30  33 20 20 20 D0 4F 49 4E  |  $02-$03   .OIN|
000055F0: 54 45 52 20 54 4F 20 44  41 54 41 20 52 45 47 49  |TER TO DATA REGI|
00005600: 4F 4E 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |ON..            |
00005610: 20 20 20 24 30 34 2D 24  30 35 20 20 20 CC 45 4E  |   $04-$05   .EN|
00005620: 47 54 48 20 4F 46 20 52  45 47 49 4F 4E 2E 0D 20  |GTH OF REGION.. |
00005630: 20 20 20 20 20 20 20 20  20 CF 55 54 50 55 54 3A  |         .UTPUT:|
00005640: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00005650: 24 30 36 2D 24 30 37 20  20 20 C3 48 45 43 4B 53  |$06-$07   .HECKS|
00005660: 55 4D 20 4F 46 20 52 45  47 49 4F 4E 2E 0D 0D 20  |UM OF REGION... |
00005670: 20 20 20 20 20 20 20 20  20 C4 45 53 43 52 49 50  |         .ESCRIP|
00005680: 54 49 4F 4E 3A 20 20 D4  48 49 53 20 20 52 4F 55  |TION:  .HIS  ROU|
00005690: 54 49 4E 45 20 49 53 20  43 41 4C 4C 45 44 20 42  |TINE IS CALLED B|
000056A0: 59 20 54 48 45 20 42 4F  4F 54 55 50 20 20 52 4F  |Y THE BOOTUP  RO|
000056B0: 55 54 49 4E 45 53 20 20  54 4F 0D 20 20 20 20 20  |UTINES  TO.     |
000056C0: 20 20 20 20 20 43 4F 4D  50 55 54 45 20 20 54 48  |     COMPUTE  TH|
000056D0: 45 20 20 43 48 45 43 4B  53 55 4D 20 20 4F 46 20  |E  CHECKSUM  OF |
000056E0: C7 C5 CF D3 20 C2 CF CF  D4 2E 20 20 D4 48 49 53  |.... .....  .HIS|
000056F0: 20 43 48 45 43 4B 53 55  4D 20 49 53 20 20 55 53  | CHECKSUM IS  US|
00005700: 45 44 20 20 54 4F 0D 20  20 20 20 20 20 20 20 20  |ED  TO.         |
00005710: 20 43 52 45 41 54 45 20  54 48 45 20 49 4E 54 45  | CREATE THE INTE|
00005720: 52 52 55 50 54 20 56 45  43 54 4F 52 20 41 44 44  |RRUPT VECTOR ADD|
00005730: 52 45 53 53 2E 20 20 D4  48 45 20 52 45 41 53 4F  |RESS.  .HE REASO|
00005740: 4E 20 46 4F 52 20 54 48  49 53 20 57 41 53 20 20  |N FOR THIS WAS  |
00005750: 54 4F 0D 20 20 20 20 20  20 20 20 20 20 50 52 45  |TO.          PRE|
00005760: 56 45 4E 54 20 20 50 49  52 41 43 59 2E 20 20 D4  |VENT  PIRACY.  .|
00005770: 48 49 53 20 20 43 41 4E  20 42 45 20 55 53 45 44  |HIS  CAN BE USED|
00005780: 20 54 4F 20 43 48 45 43  4B 20 54 48 45 20 49 4E  | TO CHECK THE IN|
00005790: 54 45 47 52 49 54 59 20  20 4F 46 20 20 41 0D 20  |TEGRITY  OF  A. |
000057A0: 20 20 20 20 20 20 20 20  20 4D 45 4D 4F 52 59 20  |         MEMORY |
000057B0: 52 45 47 49 4F 4E 2E 20  20 D4 48 49 53 20 49 53  |REGION.  .HIS IS|
000057C0: 20 41 43 54 55 41 4C 4C  59 20 4D 4F 52 45 20 4F  | ACTUALLY MORE O|
000057D0: 46 20 41 20 C3 D2 C3 20  43 4F 4D 50 55 54 41 54  |F A ... COMPUTAT|
000057E0: 49 4F 4E 20 54 48 45 4E  20 41 0D 20 20 20 20 20  |ION THEN A.     |
000057F0: 20 20 20 20 20 43 48 45  43 4B 53 55 4D 20 41 4E  |     CHECKSUM AN|
00005800: 44 20 54 48 45 20 46 4F  52 4D 55 4C 41 20 49 53  |D THE FORMULA IS|
00005810: 20 41 20 4C 49 54 54 4C  45 20 54 4F 4F 20 43 4F  | A LITTLE TOO CO|
00005820: 4D 50 4C 45 58 20 54 4F  20 45 58 50 4C 41 49 4E  |MPLEX TO EXPLAIN|
00005830: 20 48 45 52 45 2E 0D 0D  0D 20 20 20 20 20 20 20  | HERE....       |
00005840: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00005850: 3A 20 C4 C5 CC C1 D9 0D  20 20 20 20 20 20 20 20  |: ......        |
00005860: 20 20 D0 55 52 50 4F 53  45 3A 20 D3 45 54 53 20  |  .URPOSE: .ETS |
00005870: 55 50 20 41 20 54 49 4D  45 20 44 45 4C 41 59 2E  |UP A TIME DELAY.|
00005880: 0D 20 20 20 20 20 20 20  20 20 20 C3 41 4C 4C 20  |.          .ALL |
00005890: 41 44 44 52 45 53 53 3A  20 24 C3 31 39 39 0D 20  |ADDRESS: $.199. |
000058A0: 20 20 20 20 20 20 20 20  20 C9 4E 50 55 54 20 52  |         .NPUT R|
000058B0: 45 51 55 49 52 45 4D 45  4E 54 53 3A 0D 20 20 20  |EQUIREMENTS:.   |
000058C0: 20 20 20 20 20 20 20 20  20 20 20 20 24 30 32 2D  |            $02-|
000058D0: 24 30 33 20 20 20 C1 4D  4F 55 4E 54 20 4F 46 20  |$03   .MOUNT OF |
000058E0: 54 49 4D 45 20 44 45 4C  41 59 20 56 41 4C 55 45  |TIME DELAY VALUE|
000058F0: 20 49 4E 20 36 30 54 48  53 20 4F 46 20 41 20 53  | IN 60THS OF A S|
00005900: 45 43 4F 4E 44 2E 0D 0D  20 20 20 20 20 20 20 20  |ECOND...        |
00005910: 20 20 C4 45 53 43 52 49  50 54 49 4F 4E 3A 20 20  |  .ESCRIPTION:  |
00005920: D4 48 45 20 20 43 4F 55  4E 54 45 52 20 49 53 20  |.HE  COUNTER IS |
00005930: 20 53 41 56 45 44 20 4F  4E 20 41 20 53 54 41 43  | SAVED ON A STAC|
00005940: 4B 2C 20 41 53 20 57 45  4C 4C 20 20 41 53 20 20  |K, AS WELL  AS  |
00005950: 54 48 45 0D 20 20 20 20  20 20 20 20 20 20 52 45  |THE.          RE|
00005960: 54 55 52 4E 20 20 41 44  44 52 45 53 53 20 20 4F  |TURN  ADDRESS  O|
00005970: 46 20 54 48 45 20 43 41  4C 4C 45 52 2E 20 20 C3  |F THE CALLER.  .|
00005980: 4F 4E 54 52 4F 4C 20 49  53 20 50 41 53 53 45 44  |ONTROL IS PASSED|
00005990: 20 42 41 43 4B 20 20 41  20 20 4C 45 56 45 4C 0D  | BACK  A  LEVEL.|
000059A0: 20 20 20 20 20 20 20 20  20 20 48 49 47 48 45 52  |          HIGHER|
000059B0: 20 20 54 48 41 4E 20 54  48 45 20 43 41 4C 4C 45  |  THAN THE CALLE|
000059C0: 52 2E 20 20 D7 48 45 4E  20 54 48 45 20 54 49 4D  |R.  .HEN THE TIM|
000059D0: 45 52 20 52 55 4E 53 20  4F 55 54 2C 20 20 43 4F  |ER RUNS OUT,  CO|
000059E0: 4E 54 52 4F 4C 20 20 57  49 4C 4C 0D 20 20 20 20  |NTROL  WILL.    |
000059F0: 20 20 20 20 20 20 52 45  54 55 52 4E 20 20 57 48  |      RETURN  WH|
00005A00: 45 52 45 20 20 49 54 20  4C 45 46 54 20 4F 46 46  |ERE  IT LEFT OFF|
00005A10: 2E 20 20 D4 48 49 53 20  41 4C 4C 4F 57 53 20 50  |.  .HIS ALLOWS P|
00005A20: 52 4F 47 52 41 4D 53 20  54 4F 20 20 49 4E 43 4F  |ROGRAMS TO  INCO|
00005A30: 52 50 4F 52 41 54 45 0D  20 20 20 20 20 20 20 20  |RPORATE.        |
00005A40: 20 20 44 45 4C 41 59 53  20 20 57 49 54 48 4F 55  |  DELAYS  WITHOU|
00005A50: 54 20 48 41 4C 54 49 4E  47 20 C7 C5 CF D3 27 53  |T HALTING ....'S|
00005A60: 20 4D 41 4E 59 20 49 4E  44 45 50 45 4E 44 41 4E  | MANY INDEPENDAN|
00005A70: 54 20 20 50 52 4F 43 45  53 53 45 53 2E 20 20 D4  |T  PROCESSES.  .|
00005A80: 48 49 53 0D 20 20 20 20  20 20 20 20 20 20 41 4E  |HIS.          AN|
00005A90: 44 20 C3 CD C4 D4 C2 CC  20 41 50 50 45 41 52 20  |D ...... APPEAR |
00005AA0: 54 4F 20 42 45 20 54 48  45 20 42 45 47 49 4E 4E  |TO BE THE BEGINN|
00005AB0: 49 4E 47 53 20 4F 46 20  4D 55 4C 54 49 54 41 53  |INGS OF MULTITAS|
00005AC0: 4B 49 4E 47 20 46 4F 52  20 C7 C5 CF D3 2E 0D 0D  |KING FOR .......|
00005AD0: 0D 20 20 20 20 20 20 20  20 20 20 C6 55 4E 43 54  |.          .UNCT|
00005AE0: 49 4F 4E 20 CE 41 4D 45  3A 20 C4 C5 CC C5 D4 32  |ION .AME: .....2|
00005AF0: 0D 20 20 20 20 20 20 20  20 20 20 D0 55 52 50 4F  |.          .URPO|
00005B00: 53 45 3A 20 C4 45 4C 45  54 45 20 41 20 54 45 4D  |SE: .ELETE A TEM|
00005B10: 50 4F 52 41 52 59 20 46  49 4C 45 2E 0D 20 20 20  |PORARY FILE..   |
00005B20: 20 20 20 20 20 20 20 C3  41 4C 4C 20 41 44 44 52  |       .ALL ADDR|
00005B30: 45 53 53 3A 20 24 C3 32  34 34 0D 20 20 20 20 20  |ESS: $.244.     |
00005B40: 20 20 20 20 20 C9 4E 50  55 54 20 52 45 51 55 49  |     .NPUT REQUI|
00005B50: 52 45 4D 45 4E 54 53 3A  0D 20 20 20 20 20 20 20  |REMENTS:.       |
00005B60: 20 20 20 20 20 20 20 20  24 30 38 2D 24 30 39 20  |        $08-$09 |
00005B70: 20 20 D0 4F 49 4E 54 45  52 20 54 4F 20 54 41 42  |  .OINTER TO TAB|
00005B80: 4C 45 20 4F 46 20 54 52  41 43 4B 53 20 41 4E 44  |LE OF TRACKS AND|
00005B90: 20 53 45 43 54 4F 52 53  2E 0D 20 20 20 20 20 20  | SECTORS..      |
00005BA0: 20 20 20 20 20 20 20 20  20 24 30 C5 2D 24 30 C6  |         $0.-$0.|
00005BB0: 20 20 20 D0 4F 49 4E 54  45 52 20 54 4F 20 46 49  |   .OINTER TO FI|
00005BC0: 4C 45 20 4E 41 4D 45 2E  0D 20 20 20 20 20 20 20  |LE NAME..       |
00005BD0: 20 20 20 C5 52 52 4F 52  53 3A 20 D3 45 45 20 41  |   .RRORS: .EE A|
00005BE0: 50 50 45 4E 44 49 58 20  C9 2E 0D 0D 20 20 20 20  |PPENDIX ....    |
00005BF0: 20 20 20 20 20 20 C4 45  53 43 52 49 50 54 49 4F  |      .ESCRIPTIO|
00005C00: 4E 3A 20 D4 48 49 53 20  52 4F 55 54 49 4E 45 20  |N: .HIS ROUTINE |
00005C10: 52 45 4D 4F 56 45 53 20  54 48 45 20 46 49 4C 45  |REMOVES THE FILE|
00005C20: 20 46 52 4F 4D 20 54 48  45 20 44 49 52 45 43 54  | FROM THE DIRECT|
00005C30: 4F 52 59 2E 20 C9 54 0D  20 20 20 20 20 20 20 20  |ORY. .T.        |
00005C40: 20 20 55 53 45 53 20 20  54 48 45 20 54 41 42 4C  |  USES  THE TABL|
00005C50: 45 20 4F 46 20 54 52 41  43 4B 53 20 41 4E 44 20  |E OF TRACKS AND |
00005C60: 53 45 43 54 4F 52 53 20  54 4F 20 46 52 45 45 20  |SECTORS TO FREE |
00005C70: 55 50 20 54 48 45 20 53  45 43 54 4F 52 53 20 55  |UP THE SECTORS U|
00005C80: 53 45 44 0D 20 20 20 20  20 20 20 20 20 20 42 59  |SED.          BY|
00005C90: 20 20 54 48 45 20 46 49  4C 45 2E 20 20 D4 48 49  |  THE FILE.  .HI|
00005CA0: 53 20 52 4F 55 54 49 4E  45 20 49 53 20 55 53 45  |S ROUTINE IS USE|
00005CB0: 44 20 54 4F 20 43 4C 45  41 4E 20 55 50 20 41 20  |D TO CLEAN UP A |
00005CC0: 54 45 4D 50 4F 52 41 52  59 20 20 46 49 4C 45 0D  |TEMPORARY  FILE.|
00005CD0: 20 20 20 20 20 20 20 20  20 20 54 48 41 54 20 57  |          THAT W|
00005CE0: 41 53 20 4E 4F 54 20 43  4F 4D 50 4C 45 54 45 44  |AS NOT COMPLETED|
00005CF0: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
00005D00: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 C4 C5 CC  |NCTION .AME: ...|
00005D10: C5 D4 C5 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |....          .U|
00005D20: 52 50 4F 53 45 3A 20 C4  45 4C 45 54 45 20 41 20  |RPOSE: .ELETE A |
00005D30: 46 49 4C 45 20 46 52 4F  4D 20 54 48 45 20 44 49  |FILE FROM THE DI|
00005D40: 53 4B 2E 0D 20 20 20 20  20 20 20 20 20 20 C3 41  |SK..          .A|
00005D50: 4C 4C 20 41 44 44 52 45  53 53 3A 20 24 C3 32 33  |LL ADDRESS: $.23|
00005D60: 38 0D 20 20 20 20 20 20  20 20 20 20 C9 4E 50 55  |8.          .NPU|
00005D70: 54 20 52 45 51 55 49 52  45 4D 45 4E 54 53 3A 0D  |T REQUIREMENTS:.|
00005D80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00005D90: 30 32 2D 24 30 33 20 20  20 D0 4F 49 4E 54 45 52  |02-$03   .OINTER|
00005DA0: 20 54 4F 20 46 49 4C 45  20 4E 41 4D 45 2E 0D 20  | TO FILE NAME.. |
00005DB0: 20 20 20 20 20 20 20 20  20 C5 52 52 4F 52 53 3A  |         .RRORS:|
00005DC0: 20 D3 45 45 20 41 50 50  45 4E 44 49 58 20 C9 2E  | .EE APPENDIX ..|
00005DD0: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
00005DE0: 52 49 50 54 49 4F 4E 3A  20 20 D4 48 45 20 20 53  |RIPTION:  .HE  S|
00005DF0: 50 45 43 49 46 49 45 44  20 20 46 49 4C 45 20 49  |PECIFIED  FILE I|
00005E00: 53 20 44 45 4C 45 54 45  44 20 20 46 52 4F 4D 20  |S DELETED  FROM |
00005E10: 20 54 48 45 20 20 43 55  52 52 45 4E 54 0D 20 20  | THE  CURRENT.  |
00005E20: 20 20 20 20 20 20 20 20  44 52 49 56 45 2E 0D 0D  |        DRIVE...|
00005E30: 0D 0D 0D 0D 0D 0D 0D 0D  20 20 20 20 20 20 20 20  |........        |
00005E40: 20 20 C7 C5 CF D3 20 CB  45 52 4E 41 4C 20 D2 4F  |  .... .ERNAL .O|
00005E50: 55 54 49 4E 45 53 20 20  20 20 20 20 20 20 20 20  |UTINES          |
00005E60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005E70: 20 20 20 20 20 20 20 20  20 20 20 20 31 2D 32 31  |            1-21|
00005E80: 0D 0D 0D 20 20 20 20 20  20 20 20 20 20 C6 55 4E  |...          .UN|
00005E90: 43 54 49 4F 4E 20 CE 41  4D 45 3A 20 C4 C9 D2 C4  |CTION .AME: ....|
00005EA0: D3 CB 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
00005EB0: 50 4F 53 45 3A 20 C3 52  45 41 54 45 53 20 41 20  |POSE: .REATES A |
00005EC0: 44 49 52 45 43 54 4F 52  59 20 45 4E 54 52 59 20  |DIRECTORY ENTRY |
00005ED0: 4F 4E 20 54 48 45 20 44  49 53 4B 2E 0D 20 20 20  |ON THE DISK..   |
00005EE0: 20 20 20 20 20 20 20 C3  41 4C 4C 20 41 44 44 52  |       .ALL ADDR|
00005EF0: 45 53 53 3A 20 24 C3 31  C6 30 0D 20 20 20 20 20  |ESS: $.1.0.     |
00005F00: 20 20 20 20 20 C9 4E 50  55 54 20 52 45 51 55 49  |     .NPUT REQUI|
00005F10: 52 45 4D 45 4E 54 53 3A  0D 20 20 20 20 20 20 20  |REMENTS:.       |
00005F20: 20 20 20 20 20 20 20 20  24 31 34 2D 24 31 35 20  |        $14-$15 |
00005F30: 20 20 24 38 31 30 30 2C  20 52 45 51 55 49 52 45  |  $8100, REQUIRE|
00005F40: 44 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |D..             |
00005F50: 20 20 24 31 36 20 20 20  20 20 20 20 23 20 4F 46  |  $16       # OF|
00005F60: 20 44 49 52 45 43 54 4F  52 59 20 53 45 43 54 4F  | DIRECTORY SECTO|
00005F70: 52 53 20 54 4F 20 53 4B  49 50 20 46 49 52 53 54  |RS TO SKIP FIRST|
00005F80: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00005F90: 20 24 38 31 30 30 2D 24  38 31 C6 C6 20 C9 4E 46  | $8100-$81.. .NF|
00005FA0: 4F 52 4D 41 54 49 4F 4E  20 53 45 43 54 4F 52 20  |ORMATION SECTOR |
00005FB0: 46 4F 52 20 46 49 4C 45  2E 0D 20 20 20 20 20 20  |FOR FILE..      |
00005FC0: 20 20 20 20 20 20 20 20  20 24 38 33 30 30 2D 20  |         $8300- |
00005FD0: 20 20 20 D4 52 41 43 4B  20 41 4E 44 20 53 45 43  |   .RACK AND SEC|
00005FE0: 54 4F 52 20 4C 49 53 54  20 46 4F 52 20 46 49 4C  |TOR LIST FOR FIL|
00005FF0: 45 2E 0D 20 20 20 20 20  20 20 20 20 20 CF 55 54  |E..          .UT|
00006000: 50 55 54 53 3A 0D 20 20  20 20 20 20 20 20 20 20  |PUTS:.          |
00006010: 20 20 20 20 20 24 38 34  30 30 2D 24 38 34 31 C4  |     $8400-$841.|
00006020: 20 C4 49 52 45 43 54 4F  52 59 20 45 4E 54 52 59  | .IRECTORY ENTRY|
00006030: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00006040: 20 C4 49 52 45 43 54 4F  52 59 20 45 4E 54 52 59  | .IRECTORY ENTRY|
00006050: 20 49 53 20 57 52 49 54  54 45 4E 20 54 4F 20 54  | IS WRITTEN TO T|
00006060: 48 45 20 44 49 53 4B 2E  0D 20 20 20 20 20 20 20  |HE DISK..       |
00006070: 20 20 20 D0 52 45 50 41  52 41 54 4F 52 59 20 52  |   .REPARATORY R|
00006080: 4F 55 54 49 4E 45 53 3A  20 C6 C1 CC CC CF C3 0D  |OUTINES: .......|
00006090: 20 20 20 20 20 20 20 20  20 20 C5 52 52 4F 52 53  |          .RRORS|
000060A0: 3A 20 D3 45 45 20 41 50  50 45 4E 44 49 58 0D 0D  |: .EE APPENDIX..|
000060B0: 20 20 20 20 20 20 20 20  20 20 C4 45 53 43 52 49  |          .ESCRI|
000060C0: 50 54 49 4F 4E 3A 20 20  D4 48 49 53 20 20 52 4F  |PTION:  .HIS  RO|
000060D0: 55 54 49 4E 45 20 20 49  53 20 20 55 53 45 44 20  |UTINE  IS  USED |
000060E0: 42 59 20 D3 C1 D6 C5 20  41 4E 44 20 20 43 41 4C  |BY .... AND  CAL|
000060F0: 4C 53 20 20 C4 C9 D2 CD  C5 CD 2E 0D 20 20 20 20  |LS  ........    |
00006100: 20 20 20 20 20 20 C2 45  43 41 55 53 45 20 20 4F  |      .ECAUSE  O|
00006110: 46 20 54 48 49 53 2C 20  41 53 53 55 4D 50 54 49  |F THIS, ASSUMPTI|
00006120: 4F 4E 53 20 41 52 45 20  4D 41 44 45 2E 20 20 D4  |ONS ARE MADE.  .|
00006130: 48 45 20 46 49 52 53 54  20 20 49 53 20 20 54 48  |HE FIRST  IS  TH|
00006140: 41 54 20 20 54 48 45 0D  20 20 20 20 20 20 20 20  |AT  THE.        |
00006150: 20 20 49 4E 46 4F 52 4D  41 54 49 4F 4E 20 20 53  |  INFORMATION  S|
00006160: 45 43 54 4F 52 20 20 49  53 20 20 41 54 20 24 38  |ECTOR  IS  AT $8|
00006170: 31 30 30 2D 24 38 31 C6  C6 20 41 4E 44 20 20 54  |100-$81.. AND  T|
00006180: 48 41 54 20 20 24 31 34  2D 24 31 35 20 20 50 4F  |HAT  $14-$15  PO|
00006190: 49 4E 54 0D 20 20 20 20  20 20 20 20 20 20 54 48  |INT.          TH|
000061A0: 45 52 45 2E 20 20 D4 48  45 20 20 46 49 52 53 54  |ERE.  .HE  FIRST|
000061B0: 20 20 54 57 4F 20 42 59  54 45 53 20 4F 46 20 54  |  TWO BYTES OF T|
000061C0: 48 45 20 49 4E 46 4F 52  4D 41 54 49 4F 4E 20 53  |HE INFORMATION S|
000061D0: 45 43 54 4F 52 20 20 41  52 45 20 20 54 48 45 0D  |ECTOR  ARE  THE.|
000061E0: 20 20 20 20 20 20 20 20  20 20 41 44 44 52 45 53  |          ADDRES|
000061F0: 53 20 4F 46 20 54 48 45  20 46 49 4C 45 4E 41 4D  |S OF THE FILENAM|
00006200: 45 2E 20 20 D4 48 45 53  45 20 41 52 45 20 52 45  |E.  .HESE ARE RE|
00006210: 53 45 54 20 42 59 20 54  48 49 53 20 52 4F 55 54  |SET BY THIS ROUT|
00006220: 49 4E 45 20 54 4F 20 24  30 30 2C 0D 20 20 20 20  |INE TO $00,.    |
00006230: 20 20 20 20 20 20 24 C6  C6 2E 20 20 C1 4E 4F 54  |      $...  .NOT|
00006240: 48 45 52 20 20 41 53 53  55 4D 50 54 49 4F 4E 20  |HER  ASSUMPTION |
00006250: 4D 41 44 45 20 42 59 20  54 48 49 53 20 52 4F 55  |MADE BY THIS ROU|
00006260: 54 49 4E 45 20 49 53 20  54 48 41 54 20 24 38 33  |TINE IS THAT $83|
00006270: 30 30 20 49 53 20 41 0D  20 20 20 20 20 20 20 20  |00 IS A.        |
00006280: 20 20 4C 49 53 54 20 4F  46 20 55 53 45 41 42 4C  |  LIST OF USEABL|
00006290: 45 20 54 52 41 43 4B 53  20 41 4E 44 20 53 45 43  |E TRACKS AND SEC|
000062A0: 54 4F 52 53 3B 20 53 50  45 43 49 46 49 43 41 4C  |TORS; SPECIFICAL|
000062B0: 4C 59 2C 20 24 38 33 30  30 2D 24 38 33 30 31 20  |LY, $8300-$8301 |
000062C0: 41 52 45 0D 20 20 20 20  20 20 20 20 20 20 54 48  |ARE.          TH|
000062D0: 45 20 20 54 52 41 43 4B  20 41 4E 44 20 53 45 43  |E  TRACK AND SEC|
000062E0: 54 4F 52 20 46 4F 52 20  54 48 45 20 49 4E 46 4F  |TOR FOR THE INFO|
000062F0: 52 4D 41 54 49 4F 4E 20  53 45 43 54 4F 52 20 41  |RMATION SECTOR A|
00006300: 4E 44 20 20 24 38 33 30  32 2D 24 38 33 30 33 0D  |ND  $8302-$8303.|
00006310: 20 20 20 20 20 20 20 20  20 20 41 52 45 20 54 48  |          ARE TH|
00006320: 45 20 54 52 41 43 4B 20  41 4E 44 20 53 45 43 54  |E TRACK AND SECT|
00006330: 4F 52 20 4F 46 20 54 48  45 20 46 49 52 53 54 20  |OR OF THE FIRST |
00006340: 53 45 43 54 4F 52 20 4F  46 20 54 48 45 20 46 49  |SECTOR OF THE FI|
00006350: 4C 45 2E 0D 0D 0D 20 20  20 20 20 20 20 20 20 20  |LE....          |
00006360: C6 55 4E 43 54 49 4F 4E  20 CE 41 4D 45 3A 20 C4  |.UNCTION .AME: .|
00006370: C9 D2 CD C5 CD 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00006380: D0 55 52 50 4F 53 45 3A  20 C3 52 45 41 54 45 20  |.URPOSE: .REATE |
00006390: 41 20 44 49 52 45 43 54  4F 52 59 20 45 4E 54 52  |A DIRECTORY ENTR|
000063A0: 59 20 49 4E 20 4D 45 4D  4F 52 59 2E 0D 20 20 20  |Y IN MEMORY..   |
000063B0: 20 20 20 20 20 20 20 C3  41 4C 4C 20 41 44 44 52  |       .ALL ADDR|
000063C0: 45 53 53 3A 20 24 C3 31  C6 33 0D 20 20 20 20 20  |ESS: $.1.3.     |
000063D0: 20 20 20 20 20 C9 4E 50  55 54 20 52 45 51 55 49  |     .NPUT REQUI|
000063E0: 52 45 4D 45 4E 54 53 3A  0D 20 20 20 20 20 20 20  |REMENTS:.       |
000063F0: 20 20 20 20 20 20 20 20  24 31 34 2D 24 31 35 20  |        $14-$15 |
00006400: 20 20 24 38 31 30 30 2C  20 52 45 51 55 49 52 45  |  $8100, REQUIRE|
00006410: 44 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |D..             |
00006420: 20 20 24 38 31 30 30 2D  24 38 31 C6 C6 20 C9 4E  |  $8100-$81.. .N|
00006430: 46 4F 52 4D 41 54 49 4F  4E 20 53 45 43 54 4F 52  |FORMATION SECTOR|
00006440: 20 46 4F 52 20 46 49 4C  45 2E 0D 20 20 20 20 20  | FOR FILE..     |
00006450: 20 20 20 20 20 20 20 20  20 20 24 38 33 30 30 2D  |          $8300-|
00006460: 20 20 20 20 D4 52 41 43  4B 20 41 4E 44 20 53 45  |    .RACK AND SE|
00006470: 43 54 4F 52 20 4C 49 53  54 20 46 4F 52 20 46 49  |CTOR LIST FOR FI|
00006480: 4C 45 2E 0D 20 20 20 20  20 20 20 20 20 20 CF 55  |LE..          .U|
00006490: 54 50 55 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |TPUTS:.         |
000064A0: 20 20 20 20 20 20 24 38  34 30 30 2D 24 38 34 31  |      $8400-$841|
000064B0: C4 20 C4 49 52 45 43 54  4F 52 59 20 45 4E 54 52  |. .IRECTORY ENTR|
000064C0: 59 2E 0D 20 20 20 20 20  20 20 20 20 20 D0 52 45  |Y..          .RE|
000064D0: 50 41 52 41 54 4F 52 59  20 52 4F 55 54 49 4E 45  |PARATORY ROUTINE|
000064E0: 53 3A 20 C6 C1 CC CC CF  C3 0D 20 20 20 20 20 20  |S: .......      |
000064F0: 20 20 20 20 C5 52 52 4F  52 53 3A 20 D3 45 45 20  |    .RRORS: .EE |
00006500: 41 50 50 45 4E 44 49 58  0D 0D 20 20 20 20 20 20  |APPENDIX..      |
00006510: 20 20 20 20 C4 45 53 43  52 49 50 54 49 4F 4E 3A  |    .ESCRIPTION:|
00006520: 20 20 20 D3 45 45 20 20  C4 C9 D2 C4 D3 CB 20 20  |   .EE  ......  |
00006530: 46 4F 52 20 20 41 20 20  43 4F 4D 50 4C 45 54 45  |FOR  A  COMPLETE|
00006540: 20 20 4C 49 53 54 20 20  4F 46 20 20 41 4C 4C 20  |  LIST  OF  ALL |
00006550: 20 20 54 48 45 0D 20 20  20 20 20 20 20 20 20 20  |  THE.          |
00006560: 41 53 53 55 4D 50 54 49  4F 4E 53 20 4D 41 44 45  |ASSUMPTIONS MADE|
00006570: 20 42 59 20 54 48 49 53  20 52 4F 55 54 49 4E 45  | BY THIS ROUTINE|
00006580: 2E 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
00006590: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 20 20 20 20 20 20  |..........      |
000065A0: 20 20 20 20 C7 C5 CF D3  20 CB 45 52 4E 41 4C 20  |    .... .ERNAL |
000065B0: D2 4F 55 54 49 4E 45 53  20 20 20 20 20 20 20 20  |.OUTINES        |
000065C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000065D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 2D  |              1-|
000065E0: 32 32 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |22...          .|
000065F0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 C4 D2  |UNCTION .AME: ..|
00006600: C1 D7 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
00006610: 50 4F 53 45 3A 20 C4 52  41 57 20 41 20 53 45 43  |POSE: .RAW A SEC|
00006620: 54 49 4F 4E 20 4F 46 20  41 20 43 4F 44 45 44 20  |TION OF A CODED |
00006630: 47 52 41 50 48 49 43 20  49 4D 41 47 45 2E 0D 20  |GRAPHIC IMAGE.. |
00006640: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
00006650: 44 52 45 53 53 3A 20 24  C3 32 C1 C1 0D 20 20 20  |DRESS: $.2...   |
00006660: 20 20 20 20 20 20 20 C9  4E 50 55 54 20 52 45 51  |       .NPUT REQ|
00006670: 55 49 52 45 4D 45 4E 54  53 3A 0D 20 20 20 20 20  |UIREMENTS:.     |
00006680: 20 20 20 20 20 20 20 20  20 20 24 30 32 2D 24 30  |          $02-$0|
00006690: 33 20 20 20 D0 4F 49 4E  54 45 52 20 54 4F 20 47  |3   .OINTER TO G|
000066A0: 52 41 50 48 49 43 20 49  4D 41 47 45 20 44 41 54  |RAPHIC IMAGE DAT|
000066B0: 41 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |A..             |
000066C0: 20 20 24 30 34 20 20 20  20 20 20 20 C3 4F 4C 55  |  $04       .OLU|
000066D0: 4D 4E 20 54 4F 20 53 54  41 52 54 20 4F 4E 2C 20  |MN TO START ON, |
000066E0: 49 4E 20 42 59 54 45 53  2E 0D 20 20 20 20 20 20  |IN BYTES..      |
000066F0: 20 20 20 20 20 20 20 20  20 24 30 35 20 20 20 20  |         $05    |
00006700: 20 20 20 D2 4F 57 20 54  4F 20 53 54 41 52 54 20  |   .OW TO START |
00006710: 44 52 41 57 49 4E 47 20  54 48 45 20 49 4D 41 47  |DRAWING THE IMAG|
00006720: 45 20 4F 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |E ON..          |
00006730: 20 20 20 20 20 24 30 36  20 20 20 20 20 20 20 C9  |     $06       .|
00006740: 4D 41 47 45 20 57 49 44  54 48 20 49 4E 20 42 59  |MAGE WIDTH IN BY|
00006750: 54 45 53 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |TES..           |
00006760: 20 20 20 20 24 30 37 20  20 20 20 20 20 20 C9 4D  |    $07       .M|
00006770: 41 47 45 20 48 45 49 47  48 54 20 49 4E 20 50 49  |AGE HEIGHT IN PI|
00006780: 58 45 4C 53 0D 20 20 20  20 20 20 20 20 20 20 20  |XELS.           |
00006790: 20 20 20 20 24 31 38 20  20 20 20 20 20 20 23 20  |    $18       # |
000067A0: 42 59 54 45 53 20 54 4F  20 53 4B 49 50 20 4F 4E  |BYTES TO SKIP ON|
000067B0: 20 54 48 45 20 4C 45 46  54 20 53 49 44 45 2E 0D  | THE LEFT SIDE..|
000067C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
000067D0: 31 39 20 20 20 20 20 20  20 23 20 42 59 54 45 53  |19       # BYTES|
000067E0: 20 4F 4E 20 54 48 45 20  52 49 47 48 54 20 53 49  | ON THE RIGHT SI|
000067F0: 44 45 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |DE..            |
00006800: 20 20 20 24 31 C1 2D 24  31 C2 20 20 20 23 20 52  |   $1.-$1.   # R|
00006810: 4F 57 53 20 54 4F 20 53  4B 49 50 20 44 4F 57 4E  |OWS TO SKIP DOWN|
00006820: 2E 0D 0D 20 20 20 20 20  20 20 20 20 20 C4 45 53  |...          .ES|
00006830: 43 52 49 50 54 49 4F 4E  3A 20 20 D4 48 45 20 20  |CRIPTION:  .HE  |
00006840: 43 4F 44 49 4E 47 20 4F  46 20 54 48 45 20 49 4D  |CODING OF THE IM|
00006850: 41 47 45 20 49 53 20 54  48 45 20 53 41 4D 45 20  |AGE IS THE SAME |
00006860: 41 53 20 54 48 41 54 20  4F 46 20 54 48 45 0D 20  |AS THAT OF THE. |
00006870: 20 20 20 20 20 20 20 20  20 43 4C 49 43 4B 20 42  |         CLICK B|
00006880: 4F 58 45 53 2C 20 53 45  45 20 C3 C2 CF D8 20 46  |OXES, SEE .... F|
00006890: 4F 52 20 4D 4F 52 45 20  49 4E 46 4F 52 4D 41 54  |OR MORE INFORMAT|
000068A0: 49 4F 4E 2E 20 D4 48 49  53 20 52 4F 55 54 49 4E  |ION. .HIS ROUTIN|
000068B0: 45 20 53 45 45 4D 53 20  54 4F 0D 20 20 20 20 20  |E SEEMS TO.     |
000068C0: 20 20 20 20 20 42 45 20  20 46 4F 52 20 44 52 41  |     BE  FOR DRA|
000068D0: 57 49 4E 47 20 50 49 45  43 45 53 20 4F 46 20 D0  |WING PIECES OF .|
000068E0: 48 4F 54 4F 20 D3 43 52  41 50 53 2E 20 20 D0 48  |HOTO .CRAPS.  .H|
000068F0: 4F 54 4F 20 D3 43 52 41  50 53 20 20 48 41 56 45  |OTO .CRAPS  HAVE|
00006900: 20 20 54 48 49 53 0D 20  20 20 20 20 20 20 20 20  |  THIS.         |
00006910: 20 43 4F 44 45 44 20 46  4F 52 4D 41 54 2E 20 20  | CODED FORMAT.  |
00006920: D4 48 45 20 50 41 52 41  4D 45 54 45 52 53 20 46  |.HE PARAMETERS F|
00006930: 4F 52 20 54 48 49 53 20  52 4F 55 54 49 4E 45 20  |OR THIS ROUTINE |
00006940: 41 4C 4C 4F 57 20 41 20  53 45 43 54 49 4F 4E 20  |ALLOW A SECTION |
00006950: 4F 46 0D 20 20 20 20 20  20 20 20 20 20 54 48 45  |OF.          THE|
00006960: 20 49 4D 41 47 45 20 54  4F 20 42 45 20 44 52 41  | IMAGE TO BE DRA|
00006970: 57 4E 20 42 59 20 53 50  45 43 49 46 59 49 4E 47  |WN BY SPECIFYING|
00006980: 20 48 4F 57 20 4D 41 4E  59 20 52 4F 57 53 20 54  | HOW MANY ROWS T|
00006990: 4F 20 53 4B 49 50 20 44  4F 57 4E 2C 41 53 0D 20  |O SKIP DOWN,AS. |
000069A0: 20 20 20 20 20 20 20 20  20 57 45 4C 4C 20 20 41  |         WELL  A|
000069B0: 53 20 48 4F 57 20 4D 41  4E 59 20 42 59 54 45 53  |S HOW MANY BYTES|
000069C0: 20 54 4F 20 53 4B 49 50  20 4F 4E 20 54 48 45 20  | TO SKIP ON THE |
000069D0: 4C 45 46 54 20 41 4E 44  20 54 48 45 20 52 49 47  |LEFT AND THE RIG|
000069E0: 48 54 20 4F 46 20 20 54  48 45 0D 20 20 20 20 20  |HT OF  THE.     |
000069F0: 20 20 20 20 20 44 45 53  49 52 45 44 20 20 53 45  |     DESIRED  SE|
00006A00: 43 54 49 4F 4E 2E 20 20  D4 48 49 53 20 49 53 20  |CTION.  .HIS IS |
00006A10: 4E 4F 54 20 55 53 45 44  20 42 59 20 C7 C5 CF 50  |NOT USED BY ...P|
00006A20: 41 49 4E 54 20 20 55 4E  4C 45 53 53 20 20 C7 C5  |AINT  UNLESS  ..|
00006A30: CF 50 41 49 4E 54 0D 20  20 20 20 20 20 20 20 20  |.PAINT.         |
00006A40: 20 43 4F 4E 56 45 52 54  53 20 20 49 54 53 20 20  | CONVERTS  ITS  |
00006A50: 46 49 4C 45 53 20 20 42  45 43 41 55 53 45 20 20  |FILES  BECAUSE  |
00006A60: 54 48 45 59 20 41 52 45  20 49 4E 20 20 41 20 20  |THEY ARE IN  A  |
00006A70: 44 49 46 46 45 52 45 4E  54 20 20 46 4F 52 4D 41  |DIFFERENT  FORMA|
00006A80: 54 3B 0D 20 20 20 20 20  20 20 20 20 20 48 4F 57  |T;.          HOW|
00006A90: 45 56 45 52 2C 20 D0 48  4F 54 4F 20 D3 43 52 41  |EVER, .HOTO .CRA|
00006AA0: 50 53 20 41 52 45 20 49  4E 20 54 48 49 53 20 46  |PS ARE IN THIS F|
00006AB0: 4F 52 4D 41 54 2E 0D 0D  0D 20 20 20 20 20 20 20  |ORMAT....       |
00006AC0: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00006AD0: 3A 20 C4 D2 C1 D7 32 0D  20 20 20 20 20 20 20 20  |: ....2.        |
00006AE0: 20 20 D0 55 52 50 4F 53  45 3A 20 C4 52 41 57 20  |  .URPOSE: .RAW |
00006AF0: 41 20 53 45 43 54 49 4F  4E 20 4F 46 20 41 20 43  |A SECTION OF A C|
00006B00: 4F 44 45 44 20 47 52 41  50 48 49 43 20 49 4D 41  |ODED GRAPHIC IMA|
00006B10: 47 45 2E 0D 20 20 20 20  20 20 20 20 20 20 C3 41  |GE..          .A|
00006B20: 4C 4C 20 41 44 44 52 45  53 53 3A 20 24 C3 32 C3  |LL ADDRESS: $.2.|
00006B30: 35 0D 20 20 20 20 20 20  20 20 20 20 C9 4E 50 55  |5.          .NPU|
00006B40: 54 20 52 45 51 55 49 52  45 4D 45 4E 54 53 3A 0D  |T REQUIREMENTS:.|
00006B50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00006B60: 30 32 2D 24 30 33 20 20  20 D0 4F 49 4E 54 45 52  |02-$03   .OINTER|
00006B70: 20 54 4F 20 47 52 41 50  48 49 43 20 49 4D 41 47  | TO GRAPHIC IMAG|
00006B80: 45 20 44 41 54 41 2E 0D  20 20 20 20 20 20 20 20  |E DATA..        |
00006B90: 20 20 20 20 20 20 20 24  30 34 20 20 20 20 20 20  |       $04      |
00006BA0: 20 C3 4F 4C 55 4D 4E 20  54 4F 20 53 54 41 52 54  | .OLUMN TO START|
00006BB0: 20 4F 4E 2C 20 49 4E 20  42 59 54 45 53 2E 0D 20  | ON, IN BYTES.. |
00006BC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 30  |              $0|
00006BD0: 35 20 20 20 20 20 20 20  D2 4F 57 20 54 4F 20 53  |5       .OW TO S|
00006BE0: 54 41 52 54 20 44 52 41  57 49 4E 47 20 54 48 45  |TART DRAWING THE|
00006BF0: 20 49 4D 41 47 45 20 4F  4E 2E 0D 20 20 20 20 20  | IMAGE ON..     |
00006C00: 20 20 20 20 20 20 20 20  20 20 24 30 36 20 20 20  |          $06   |
00006C10: 20 20 20 20 C9 4D 41 47  45 20 57 49 44 54 48 20  |    .MAGE WIDTH |
00006C20: 49 4E 20 42 59 54 45 53  2E 0D 20 20 20 20 20 20  |IN BYTES..      |
00006C30: 20 20 20 20 20 20 20 20  20 24 30 37 20 20 20 20  |         $07    |
00006C40: 20 20 20 C9 4D 41 47 45  20 48 45 49 47 48 54 20  |   .MAGE HEIGHT |
00006C50: 49 4E 20 50 49 58 45 4C  53 0D 20 20 20 20 20 20  |IN PIXELS.      |
00006C60: 20 20 20 20 20 20 20 20  20 24 31 38 20 20 20 20  |         $18    |
00006C70: 20 20 20 23 20 42 59 54  45 53 20 54 4F 20 53 4B  |   # BYTES TO SK|
00006C80: 49 50 20 4F 4E 20 54 48  45 20 4C 45 46 54 20 53  |IP ON THE LEFT S|
00006C90: 49 44 45 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |IDE..           |
00006CA0: 20 20 20 20 24 31 39 20  20 20 20 20 20 20 23 20  |    $19       # |
00006CB0: 42 59 54 45 53 20 4F 4E  20 54 48 45 20 52 49 47  |BYTES ON THE RIG|
00006CC0: 48 54 20 53 49 44 45 2E  0D 20 20 20 20 20 20 20  |HT SIDE..       |
00006CD0: 20 20 20 20 20 20 20 20  24 31 C1 2D 24 31 C2 20  |        $1.-$1. |
00006CE0: 20 20 23 20 52 4F 57 53  20 54 4F 20 53 4B 49 50  |  # ROWS TO SKIP|
00006CF0: 20 44 4F 57 4E 2E 0D 20  20 20 20 20 20 20 20 20  | DOWN..         |
00006D00: 20 20 20 20 20 20 24 31  C3 2D 24 31 C4 20 20 20  |      $1.-$1.   |
00006D10: C6 49 52 53 54 20 55 53  45 52 20 56 45 43 54 4F  |.IRST USER VECTO|
00006D20: 52 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |R..             |
00006D30: 20 20 24 31 C5 2D 24 31  C6 20 20 20 D3 45 43 4F  |  $1.-$1.   .ECO|
00006D40: 4E 44 20 55 53 45 52 20  56 45 43 54 4F 52 2E 0D  |ND USER VECTOR..|
00006D50: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00006D60: 49 50 54 49 4F 4E 3A 20  20 D4 48 49 53 20 20 52  |IPTION:  .HIS  R|
00006D70: 4F 55 54 49 4E 45 20 20  49 53 20 49 44 45 4E 54  |OUTINE  IS IDENT|
00006D80: 49 43 41 4C 20 54 4F 20  20 C4 D2 C1 D7 2C 20 20  |ICAL TO  ....,  |
00006D90: 45 58 43 45 50 54 20 20  54 48 41 54 0D 20 20 20  |EXCEPT  THAT.   |
00006DA0: 20 20 20 20 20 20 20 42  45 46 4F 52 45 20 45 41  |       BEFORE EA|
00006DB0: 43 48 20 42 59 54 45 20  49 53 20 52 45 41 44 2C  |CH BYTE IS READ,|
00006DC0: 20 20 54 48 45 20 46 49  52 53 54 20 55 53 45 52  |  THE FIRST USER|
00006DD0: 20 52 4F 55 54 49 4E 45  20 49 53 20 43 41 4C 4C  | ROUTINE IS CALL|
00006DE0: 45 44 2E 20 20 D4 48 45  0D 20 20 20 20 20 20 20  |ED.  .HE.       |
00006DF0: 20 20 20 53 45 43 4F 4E  44 20 20 55 53 45 52 20  |   SECOND  USER |
00006E00: 20 52 4F 55 54 49 4E 45  20 49 53 20 43 41 4C 4C  | ROUTINE IS CALL|
00006E10: 45 44 20 42 45 46 4F 52  45 20 52 45 41 44 49 4E  |ED BEFORE READIN|
00006E20: 47 20 45 41 43 48 20 42  59 54 45 20 54 48 41 54  |G EACH BYTE THAT|
00006E30: 20 20 49 53 0D 20 20 20  20 20 20 20 20 20 20 4E  |  IS.          N|
00006E40: 4F 54 20 20 50 41 52 54  20 4F 46 20 41 20 50 41  |OT  PART OF A PA|
00006E50: 54 54 45 52 4E 20 28 C3  4F 4D 4D 41 4E 44 20 42  |TTERN (.OMMAND B|
00006E60: 59 54 45 53 20 47 52 45  41 54 45 52 20 20 54 48  |YTES GREATER  TH|
00006E70: 41 4E 20 20 32 31 39 29  2E 20 20 D4 48 45 53 45  |AN  219).  .HESE|
00006E80: 0D 20 20 20 20 20 20 20  20 20 20 55 53 45 52 20  |.          USER |
00006E90: 20 52 4F 55 54 49 4E 45  53 20 20 4D 49 47 48 54  | ROUTINES  MIGHT|
00006EA0: 20 42 45 20 46 4F 52 20  44 49 53 4B 20 52 45 41  | BE FOR DISK REA|
00006EB0: 44 49 4E 47 2C 20 20 49  4E 20 4F 52 44 45 52 20  |DING,  IN ORDER |
00006EC0: 54 4F 20 20 44 52 41 57  20 20 41 4E 0D 20 20 20  |TO  DRAW  AN.   |
00006ED0: 20 20 20 20 20 20 20 49  4D 41 47 45 20 54 48 41  |       IMAGE THA|
00006EE0: 54 20 49 53 20 4E 4F 54  20 4D 45 4D 4F 52 59 20  |T IS NOT MEMORY |
00006EF0: 52 45 53 49 44 45 4E 54  2E 0D 0D 0D 0D 0D 0D 0D  |RESIDENT........|
00006F00: 0D 0D 0D 0D 0D 0D 0D 0D  0D                       |.........       |
...          GEOS KERNAL ROUTINES       
                               1-9...   
       FUNCTION NAME: ABS16.          PU
RPOSE: 16 BIT ABSOLUTE VALUE..          
CALL ADDRESS: $C16F.          INPUT REQU
IREMENTS:.               X         THE A
DDRESS OF THE 16 BIT INTEGER..          
OUTPUT:.               X         THE ADD
RESS A POSITIVE 16 BIT INTEGER...       
   DESCRIPTION:  THIS  ROUTINE IS ONE OF
 THE GEOS MATH  ROUTINES.  X.          P
OINTS TO A 16 BIT VALUE WHICH IF FOUND T
O BE NEGATIVE,  NEG16 IS.          CALLE
D TO MAKE IT POSITIVE....          FUNCT
ION NAME: ALLOC.          PURPOSE: ALLOC
ATE A BLOCK ON THE DISK..          CALL 
ADDRESS: $C292.          INPUT REQUIREME
NTS:.               $08       TRACK TO S
TART SCANNING FROM..               $09  
     SECTOR TO START SCANNING FROM..    
           $8200-$82FF TRACK 18 SECTOR 0
, BAM..               $849C     SKEW FAC
TOR (DEFAULT IS 8)..          OUTPUT:.  
             $08       NEW TRACK NUMBER.
.               $09       NEW SECTOR NUM
BER..          ERRORS: SEE APPENDIX I...
          DESCRIPTION:  THIS  ROUTINE  E
XPECTS THAT THE BAM IS  ALREADY  IN.    
      MEMORY.  IT  SCANS  THE  BAM START
ING AT  A  SPECIFIED  LOCATION,.        
  LOOKING  FOR  A  FREE SECTOR.  IF ONE 
IS FOUND  IT  IS  RETURNED,.          OT
HERWISE AN ERROR RESULTS.   THE SECTOR I
S ALLOCATED IN THE BAM,.          AND TH
E BAM MUST BE UPDATED TO DISK  AFTERWARD
S IN  ORDER FOR THE.          SECTOR TO 
REMAIN ALLOCATED....          FUNCTION N
AME: APPEND.          PURPOSE: APPEND A 
NEW CHAIN IN A VLIR FILE..          CALL
 ADDRESS: $C289.          INPUT REQUIREM
ENTS:.               $8496     CURRENT C
HAIN NUMBER..          OUTPUT:.         
      $8496     INCREMENTED BY 1..      
         $8497     INCREMENTED BY 1..   
       PREPARATORY ROUTINES: VOPEN.     
     ERRORS: SEE APPENDIX I...          
DESCRIPTION:  A  HOLE IS OPENED UP IN TH
E VLIR SECTOR IMMEDIATELY.          FOLL
OWING  THE CURRENT CHAIN.  THE HOLE IS F
ILLED  WITH  $00,$FF..          THIS  RE
PRESENTS  A  NULL CHAIN.  THIS HOLE BECO
MES  THE  CURRENT.          CHAIN.......
.........          GEOS KERNAL ROUTINES 
                                     1-1
0...          FUNCTION NAME: BASIC.     
     PURPOSE: RESTART BASIC WITH OPTIONA
L PROGRAM LOAD..          CALL ADDRESS: 
$C241.          INPUT REQUIREMENTS:.    
           $02-$03   POINTER TO 40 CHARA
CTERS OF TEXT..               $0C-$0D   
POINTER TO FILE'S DIRECTORY ENTRY..     
          $10-$11   LOAD ADDRESS..      
    PREPARATORY ROUTINES: LOOKUP..      
    DESCRIPTION: THE 40 CHARACTERS POINT
ED TO BY $02-$03 ARE SAVED IN.          
A BUFFER.  IF $0C-$0D IS NON-ZERO, THE F
ILE IS LOADED INTO MEMORY.          AT  
THE ADDRESS SPECIFIED BY $10-$11.  BASIC
 IS RESTARTED WITH AN.          INTERRUP
T VECTOR. THIS INTERRUPT IS SET UP TO GI
VE BASIC A CHANCE.          TO START UP.
 AFTER THE TIME HAS ELAPSED, THE 40 CHAR
ACTERS IN THE.          BUFFER  ARE  COP
IED  TO  THE SCREEN AND A CR  IS  PLACED
  IN  THE.          KEYBOARD BUFFER.  TH
E INTERRUPT VECTOR IS THEN REMOVED,  BUT
  THE.          NMI VECTOR IS SET UP TO 
REBOOT GEOS. THE REBOOT CODE IS AT $C000
-.          $C037....          FUNCTION 
NAME: BLKCMP.          PURPOSE: COMPARES
 TWO BLOCKS OF MEMORY FOR A FIXED LENGTH
..          CALL ADDRESS: $C26E.        
  INPUT REQUIREMENTS:.               A  
       BYTE COUNT..               X     
    ADDRESS OF ZERO PAGE SOURCE POINTER.
.               Y         ADDRESS OF ZER
O PAGE DESTINATION POINTER..          OU
TPUT:.               Z FLAG    SET ACCOR
DINGLY...          DESCRIPTION: THE X AN
D Y REGISTERS POINT TO ZERO PAGE POINTER
S. A.          HAS  THE  NUMBER OF BYTES
 TO BE COMPARED (1-255).  IF A IS  ZERO,
.          THIS ROUTINE WILL COMPARE UP 
TO AND INCLUDING A ZERO BYTE.  THE Z.   
       FLAG IS SET ACCORDINGLY. SEE STRC
MP....          FUNCTION NAME: BLKFIL.  
        PURPOSE: FILLS A MEMORY REGION W
ITH A SPECIFIED BYTE..          CALL ADD
RESS: $C17B.          INPUT REQUIREMENTS
:.               $02-$03   THE LENGTH OF
 THE REGION..               $04-$05   TH
E ADDRESS OF THE REGION..               
$06       THE BYTE TO FILL THE REGION WI
TH...          DESCRIPTION: A SIMPLE LOO
P FILLS MEMORY WITH THE SPECIFIED BYTE..
..................          GEOS KERNAL 
ROUTINES                                
      1-11...          FUNCTION NAME: BL
KFL2.          PURPOSE: IDENTICAL TO BLK
FIL, BUT WITH INLINE DATA..          CAL
L ADDRESS: $C1B4..          DESCRIPTION:
   THIS  ROUTINE  TAKES  THE  INLINE  DA
TA  AND  SETS.          EVERYTHING UP BE
FORE CALLING BLKFIL. FOR EXAMPLE:.      
          JSR BLKFL2.               .WOR
D LENGTH OF REGION.               .WORD 
ADDRESS OF REGION.               .BYTE B
YTE TO FILL MEMORY WITH.               C
ONTROL RETURNS HERE UPON COMPLETION.... 
         FUNCTION NAME: BLKMOV.         
 PURPOSE: COPY A BLOCK OF MEMORY..      
    CALL ADDRESS: $C268.          INPUT 
REQUIREMENTS:.               A         B
YTE COUNT..               X         ADDR
ESS OF ZERO PAGE SOURCE POINTER..       
        Y         ADDRESS OF ZERO PAGE D
ESTINATION POINTER...          DESCRIPTI
ON:  THE  X AND Y REGISTERS POINT TO ZER
O PAGE POINTERS..          A  HAS  THE N
UMBER OF BYTES TO BE TRANSFERRED (1-255)
.  IF  A  IS.          ZERO, THIS ROUTIN
E WILL COPY UP TO AND INCLUDING A ZERO B
YTE. SEE.          STRCPY....          F
UNCTION NAME: BLKSET.          PURPOSE: 
USES A TABLE TO SET VARIOUS MEMORY LOCAT
IONS IN A.                   UNIFORM MAN
NER..          CALL ADDRESS: $C181.     
     INPUT REQUIREMENTS:.               
$02-$03   ADDRESS OF A DATA TABLE...    
      DESCRIPTION:  THIS  ROUTINE  ALLOW
S MANY MEMORY LOCATIONS  TO  BE.        
  SPECIFIED  AND SET IN AN ORDERLY MANNE
R.  THE FORMAT OF THE  DATA.          TA
BLE IS AS FOLLOWS:.               #BYTES
    DESCRIPTION.                  2     
 ADDRESS TO STORE VALUES AT..           
       1      # OF VALUES THAT FOLLOW.. 
                 ?      VALUES TO BE STO
RED AT THE DESIGNATED MEMORY.           
              REGION..                 .
..     MORE DEFINITIONS..               
   2      AN ADDRESS OF $0000 ENDS THE T
ABLE.....................          GEOS 
KERNAL ROUTINES                         
             1-12...          FUNCTION N
AME: CBOX.          PURPOSE: DRAWS A CLI
CK BOX ON THE SCREEN..          CALL ADD
RESS: $C142.          INPUT REQUIREMENTS
:.               $02-$03   POINTER TO TH
E GRAPHIC DATA..               $04      
 COLUMN IN CHARACTERS..               $0
5       THE ROW IN PIXELS..             
  $06       THE WIDTH IN BYTES..        
       $07       THE HEIGHT IN PIXELS...
          DESCRIPTION:  THIS  ROUTINE  D
RAWS A CLICK BOX ON THE  SCREEN.  A.    
      CLICK BOX IS A BOX LIKE OK,  OPEN,
 ETC. THESE BOXES ARE GENERALLY.        
  PART  OF  A WINDOW DESCRIPTION.  THE G
RAPHIC DATA IS IN  A  CODED.          FO
RMAT. THIS FORMAT CONSISTS OF A CODE BYT
E FOLLOWED BY 1 OR MORE.          DATA B
YTES..               1) CODE BYTES LESS 
THAN 128 MEAN  THAT THE FOLLOWING BYTE I
S.                  TO BE REPEATED THAT 
MANY TIMES..               2) CODE  BYTE
S  RANGING FROM 128 TO 219 MEAN THAT IF 
128  IS.                  SUBTRACTED  FR
OM  THE CODE BYTE, THEN THE  RESULT IS  
THE.                  NUMBER OF DATA BYT
ES THAT FOLLOW..               3) CODE B
YTES RANGING FROM 220 TO 225 ARE SPECIAL
. FIRST 219.                  IS  SUBTRA
CTED  FROM  THE CODE BYTE,  THE RESULT  
IS  THE.                  NUMBER OF BYTE
S IN THE PATTERN.  FOLLOWING THIS CODE B
YTE.                  IS A REPETITION CO
UNT FOR THE PATTERN. FOLLOWING THIS ARE.
                  THE  BYTES  THAT  CONS
TITUTE  THE  PATTERN.  THESE  COULD.    
              INCLUDE EITHER OF THE PREV
IOUS TWO CODE TYPES....          FUNCTIO
N NAME: CBOX2.          PURPOSE: IDENTIC
AL TO CBOX, BUT WITH INLINE DATA..      
    CALL ADDRESS: $C1AB..          DESCR
IPTION:  THIS  ROUTINE  TAKES  A CLICK B
OX  DESCRIPTOR  FROM.          INLINE  D
ATA AND DRAWS IT.  THE INLINE DATA DOES 
NOT INCLUDE  THE.          PROCESSING VE
CTOR, IE..                JSR DRWCB2.   
            .WORD ADDRESS OF GRAPHIC IMA
GE.               .BYTE START COLUMN IN 
BYTES.               .BYTE START MARGIN 
IN PIXELS.               .BYTE WIDTH OF 
BOX IN BYTES.               .BYTE HEIGHT
 OF BOX IN PIXELS.               CONTROL
 RETURNS HERE AFTER THE BOX IS DRAWN....
...................          GEOS KERNAL
 ROUTINES                               
       1-13...          FUNCTION NAME: C
BOXES.          PURPOSE: DRAWS ALL OF TH
E CLICK BOXES IN A TABLE..          CALL
 ADDRESS: $C15A.          INPUT REQUIREM
ENTS:.               $02-$03   POINTER T
O A CLICK BOX TABLE (USUALLY $880C)..   
       PREPARATORY ROUTINES: WINDOW (OPT
IONAL)...          DESCRIPTION: THIS ROU
TINE DRAWS ALL OF THE CLICK BOXES BY CAL
LING.          CBOX  REPEATEDLY  UNTIL T
HE TABLE IS  EXHAUSTED.  THE  INITMS  IS
.          CALLED  TO  SET  THE MOUSE'S 
POSITION.  CLICK TABLE FORMAT:.         
      #BYTES    DESCRIPTION.            
      1      # CLICK BOXES IN TABLE..   
               2      COLUMN TO PLACE MO
USE IN (0 WILL PREVENT.                 
        PLACEMENT)..                  1 
     ROW TO PLACE MOUSE IN..          TH
IS IS FOLLOWED BY SETS OF 8 BYTES, ONE F
OR EACH CLICK BOX..                  2  
     ADDRESS OF GRAPHIC DATA..          
        1       COLUMN POSITION OF BOX I
N CHARACTERS..                  1       
ROW POSITION OF BOX IN PIXELS..         
         1       WIDTH OF BOX IN BYTES..
                  1       HEIGHT OF BOX 
IN PIXELS..                  2       ADD
RESS OF ROUTINE TO PROCESS THIS BOX.... 
         FUNCTION NAME: CHARST.         
 PURPOSE: GET STATISTICS FOR A CHARACTER
..          CALL ADDRESS: $C1B1.        
  INPUT REQUIREMENTS:.               A  
       THE CHARACTER..          OUTPUT:.
               A         THE POSITION OF
 THE UNDERLINE..               Y        
 THE CHARACTER'S WIDTH..               X
         THE CHARACTER'S HEIGHT...      
    DESCRIPTION:  GIVEN THE ASCII VALUE 
OF A CHARACTER,  THIS ROUTINE.          
COMPUTES AND RETURNS THE HEIGHT AND WIDT
H, TAKING THE STYLE  INTO.          ACCO
UNT. THE # PIXELS ABOVE THE UNDERLINE FO
R THE PRESENT FONT IS.          ALSO RET
URNED...........................        
  GEOS KERNAL ROUTINES                  
                    1-14...          FUN
CTION NAME: CHGDRV.          PURPOSE: CH
ANGE THE DEVICE NUMBER OF A DRIVE..     
     CALL ADDRESS: $C2BC.          INPUT
 REQUIREMENTS:.               A         
NEW DEVICE NUMBER FOR DRIVE..           
    $8489     CURRENT DRIVE NUMBER..    
      OUTPUT:.               $BA       N
EW DEVICE NUMBER..               $8489  
   NEW DEVICE NUMBER..               $84
92-$8495 APPROPRIATE BYTES ARE RESET AND
 SET..          ERRORS: SEE APPENDIX I..
.          DESCRIPTION: THE CURRENT DRIV
E IS MADE READY, THEN THE NEW DEVICE.   
       NUMBER IS SENT TO TURBODOS WHICH 
WILL CHANGE IT.  THIS RESULTS IN.       
   THE  DRIVE BEING SET AS THE CURRENT D
RIVE BUT WITH A  NEW  DEVICE.          N
UMBER,  AND  WITH TURBODOS UP AND RUNNIN
G.  THE STATUS BYTES  AT.          $8492
-$8495 ARE CHANGED, THE OLD ONE IS RESET
 AND THE NEW ONE HAS.          BITS 6 AN
D 7 SET....          FUNCTION NAME: CKMO
US.          PURPOSE: CHECK IF THE MOUSE
 IS IN A BOX..          CALL ADDRESS: $C
2B3.          INPUT REQUIREMENTS:.      
         $06       TOP MARGIN..         
      $07       BOTTOM MARGIN..         
      $08-$09   LEFT MARGIN..           
    $0A-$0B   RIGHT MARGIN..          OU
TPUT:.               A         $00 - OUT
SIDE BOX, $FF - INSIDE BOX...          D
ESCRIPTION:  THIS  ROUTINE  SIMPLY  COMP
ARES THE  PRESENT  MOUSE.          LOCAT
ION   STORED   AT  LOCATIONS  $3A-$3C  A
GAINST   THE   BOX'S.          BOUNDARIE
S. A IS SET TO $00 IF THE MOUSE IS OUTSI
DE, $FF IF IT IS.          INSIDE....   
       FUNCTION NAME: CLRRDY.          P
URPOSE: TURN OFF TURBODOS..          CAL
L ADDRESS: $C232.          INPUT REQUIRE
MENTS:.               $8489     CURRENT 
DRIVE NUMBER...          DESCRIPTION: TU
RBODOS IS TERMINATED IN THE CURRENT DRIV
E.....................          GEOS KER
NAL ROUTINES                            
          1-15...          FUNCTION NAME
: CLRSTS.          PURPOSE: CLEAR THE DR
IVE READY STATUS..          CALL ADDRESS
: $C235.          INPUT REQUIREMENTS:.  
             $8489     CURRENT DRIVE NUM
BER..          OUTPUT:.               AP
PROPRIATE STATUS BYTE IS RESET...       
   DESCRIPTION:  THIS  ROUTINE  TERMINAT
ES TURBODOS IN  THE  CURRENT.          D
RIVE, AND RESETS THE DRIVE STATUS BYTE A
T $8492-$8495....          FUNCTION NAME
: CLSMNU.          PURPOSE: BACKS UP A M
ENU LEVEL..          CALL ADDRESS: $C190
..          DESCRIPTION:  THIS ROUTINE E
RASES THE PRESENT MENU, AND POPS BACK.  
        ONE LEVEL....          FUNCTION 
NAME: CLSSER.          PURPOSE: CLOSE OF
F SERIAL COMMUNICATION..          CALL A
DDRESS: $C25F.          ERRORS: SEE APPE
NDIX I...          DESCRIPTION:  THIS  R
OUTINE  RESETS THE I/O  PORTS  AFTER  SE
RIAL.          COMMUNICATION IS COMPLETE
. THIS ROUTINE IS CALLED AFTER CALLS  TO
.          READ2, WRITE2 OR CWRITE....  
        FUNCTION NAME: CLSWIN.          
PURPOSE: CLOSE A WINDOW..          CALL 
ADDRESS: $C2BF.          OUTPUT:.       
        $02       COMMAND BYTE FROM WIND
OW PROCESSOR..               $851D     C
OMMAND BYTE FROM WINDOW PROCESSOR...    
      DESCRIPTION:  THE  WINDOW IS ERASE
D AND THE MEMORY ADDRESSES THAT.        
  THE WINDOW PROCESSOR SAVED ARE RESTORE
D.  CONTROL RETURNS TO  THE.          CA
LLER OF WINDOW......................... 
         GEOS KERNAL ROUTINES           
                           1-16...      
    FUNCTION NAME: CMDTBL.          PURP
OSE: SETS UP A TABLE OF RECURRING TIMED 
EVENTS..          CALL ADDRESS: $C103.  
        INPUT REQUIREMENTS:.            
   A         THE NUMBER OF ENTRIES IN TH
E TABLE..               $02-$03   A POIN
TER TO THE TABLE OF COUNTERS AND ROUTINE
.                         ADDRESSES...  
        DESCRIPTION:  THIS ROUTINE COPIE
S A TABLE OF SUBROUTINE ADDRESSES.      
    AND  COUNTER  VALUES INTO GEOS'S TAB
LES AT $872D AND  $8755.  THE.          
COUNTERS  WILL BE DECREMENTED ON EACH CA
LL TO IRQRTN.  WHEN  THEY.          REAC
H ZERO,  THEY ARE RESET AND THE ASSOCIAT
ED ROUTINE IS  CALLED.          BY  THE 
 GEOS MAIN LOOP.  THE COMMAND BYTES ARE 
INITIALLY SET  TO.          DISABLE THE 
COUNTERS. SEVERAL CALLS TO ENABLE ARE NE
EDED TO START.          THE COUNTERS RUN
NING,  ONE FOR EACH ENTRY IN THE TABLE. 
THE TABLE.          CONSISTS  OF  PAIRS 
OF WORDS.  THE FIRST IS THE  ADDRESS  OF
  THE.          SUBROUTINE  TO BE EXECUT
ED EACH TIME THE COUNTER REACHES ZERO AN
D.          THE  SECOND  IS  THE  COUNTE
R VALUE .  THIS  APPEARS  TO  BE  THE.  
        RUDIMENTS  OF MULTITASKING GEOS.
  THE TABLE OF COMMAND  BYTES  AT.      
    $8719  ARE  BIT  ORIENTED AND OPERAT
E ACCORDING TO  THE FOLLOWING.          
TABLE:.               BIT 7 - TIMER REAC
HED ZERO, CALL THE SUBROUTINE..         
      BIT 6 - DISABLE THE EXECUTION OF T
HE ROUTINE.  THIS DOES NOT.             
          AFFECT THE COUNTER..          
     BIT 5 - INITIALLY SET BY CMDTBL,  C
AUSES THE COUNTER TO STOP.              
         RUNNING..               BIT 4 -
 THOUGH  NOT REFERENCED ANYWHERE IN THE 
GEOS  KERNAL,.                       THI
S  BIT ALSO STOPS THE COUNTER.  THIS BIT
  IS  NOT.                       TOUCHED
  BY  ANY  OF THE  GEOS  ROUTINES,  INCL
UDING.                       ENABLE.... 
         FUNCTION NAME: CMENUS.         
 PURPOSE: CLOSES ALL MENU LEVELS..      
    CALL ADDRESS: $C1BD.          PREPAR
ATORY ROUTINES: MENU..          DESCRIPT
ION:  THIS ROUTINE IS NOT THE SAME ERAMN
S.  THE MENUS ARE.          CLEARED  ONE
 AT A TIME AND THE PREVIOUS LEVELS ARE R
EPROCESSED IN.          REVERSE ORDER UN
TIL ALL MENUS ARE CLOSED....          FU
NCTION NAME: CONVRT.          PURPOSE: C
ONVERTS A DISK TO GEOS FORMAT..         
 CALL ADDRESS: $C1EA.          ERRORS: S
EE APPENDIX..          DESCRIPTION:  THI
S  ROUTINE  MODIFIES  THE  DIRECTORY  HE
ADER  TO.          INCLUDE THE GEOS FORM
AT MESSAGE. IT ALSO ALLOCATES A SECTOR T
O BE.          USED FOR THE BORDER FROM 
DESKTOP...............          GEOS KER
NAL ROUTINES                            
          1-17...          FUNCTION NAME
: COPYB.          PURPOSE: COPIES A BOX 
FROM SCREEN 2 TO SCREEN 1..          CAL
L ADDRESS: $C12D.          INPUT REQUIRE
MENTS:.               $06       THE TOP 
MARGIN..               $07       THE BOT
TOM MARGIN..               $08-$09   THE
 LEFT MARGIN..               $0A-$0B   T
HE RIGHT MARGIN...          DESCRIPTION:
  THIS  ROUTINE COPIES A BOX FROM SCREEN
 2 ($6000) TO.          SCREEN 1 ($A000)
.  LOCATION $2F IS UNAFFECTED. THIS ROUT
INE CALLS.          COPYL REPEATEDLY TO 
COPY EACH LINE OF THE BOX....          F
UNCTION NAME: COPYB2.          PURPOSE: 
IDENTICAL TO COPYB, BUT WITH INLINE DATA
..          CALL ADDRESS: $C1A5..       
   DESCRIPTION:  THIS  ROUTINE COPIES A 
BOX FROM SCREEN 2 ($6000) TO.          S
CREEN 1 ($A000).  THE BOX DESCRIPTOR IS 
INLINE WITH THE  CALLING.          CODE.
  SEE PFILL2 FOR AN EXAMPLE....         
 FUNCTION NAME: COPYB3.          PURPOSE
: COPIES A BOX FROM SCREEN 2 TO SCREEN 1
..          CALL ADDRESS: $C250.        
  INPUT REQUIREMENTS:.               $06
       THE TOP MARGIN..               $0
7       THE BOTTOM MARGIN..             
  $08-$09   THE LEFT MARGIN..           
    $0A-$0B   THE RIGHT MARGIN...       
   DESCRIPTION:  THIS  ROUTINE COPIES A 
BOX FROM SCREEN 1 ($A000) TO.          S
CREEN 2 ($6000).  LOCATION $2F IS UNAFFE
CTED. THIS ROUTINE CALLS.          COPYL
 REPEATEDLY TO COPY EACH LINE OF THE BOX
....          FUNCTION NAME: COPYB4.    
      PURPOSE: IDENTICAL TO COPYB3, BUT 
WITH INLINE DATA..          CALL ADDRESS
: $C253..          DESCRIPTION:  THIS  R
OUTINE COPIES A BOX FROM SCREEN 1 ($A000
) TO.          SCREEN 2 ($6000).  THE BO
X DESCRIPTOR IS INLINE WITH THE  CALLING
.          CODE.  SEE PFILL2 FOR AN EXAM
PLE.....................          GEOS K
ERNAL ROUTINES                          
            1-18...          FUNCTION NA
ME: COPYL.          PURPOSE: COPIES A HO
RIZONAL LINE FROM SCREEN 2 TO SCREEN 1..
          CALL ADDRESS: $C11E.          
INPUT REQUIREMENTS:.               $08-$
09   THE LEFT MARGIN..               $0A
-$0B   THE RIGHT MARGIN..               
$18       THE ROW NUMBER...          DES
CRIPTION:  THIS ROUTINE COPIES A HORIZON
TAL LINE FROM SCREEN 2.          ($6000)
 TO SCREEN 1 ($A000). LOCATION $2F IS UN
AFFECTED....          FUNCTION NAME: COP
YSP.          PURPOSE: COPIES A SPRITE I
NTO GEOS'S STORAGE AREA..          CALL 
ADDRESS: $C1C6.          INPUT REQUIREME
NTS:.               $08       THE SPRITE
 NUMBER (0-7)..               $0A-$0B   
POINTER TO THE SPRITE DATA...          D
ESCRIPTION:  THIS ROUTINE SIMPLY COPIES 
63 BYTES OF DATA POINTED.          TO  B
Y  $0A-$0B TO THE SPECIFIED SPRITE BLOCK
.  GEOS USES  SPRITE.          BLOCKS 40
 TO 47....          FUNCTION NAME: CURSO
F.          PURPOSE: TURN OFF TEXT CURSO
R..          CALL ADDRESS: $C29E.       
   OUTPUT:.               $84B4     BIT 
6 IS CLEARED..          PREPARATORY ROUT
INES: CURSON..          DESCRIPTION:  SP
RITE 1 (GEOS'S TEXT CURSOR) IS TURNED OF
F,  BIT 6.          OF LOCATION $84B4 IS
 RESET. THE BLINK RATE IS SET TO 60 (ONC
E PER.          SECOND)....          FUN
CTION NAME: CURSON.          PURPOSE: TU
RN ON TEXT CURSOR..          CALL ADDRES
S: $C29B.          INPUT REQUIREMENTS:. 
              $84BE-$84BF COLUMN TO PLAC
E CURSOR IN..               $84C0     RO
W TO PLACE CURSOR ON..          OUTPUT:.
               $84B4     BIT 6 IS SET...
          DESCRIPTION: TURNS ON SPRITE 1
 AND POSITIONS IT. IT ALSO SETS BIT.    
      6  OF  LOCATION  $84B4.  THE BLINK
 RATE IS SET TO  60,  ONCE  PER.        
  SECOND. SPRITE 1 IS THE TEXT CURSOR FO
R GEOS.................          GEOS KE
RNAL ROUTINES                           
           1-19...          FUNCTION NAM
E: CWIDTH.          PURPOSE: RETURNS THE
 WIDTH OF A CHARACTER..          CALL AD
DRESS: $C1C9.          INPUT REQUIREMENT
S:.               A         THE ASCII VA
LUE OF THE CHARACTER..          OUTPUT:.
               A         THE WIDTH OF TH
E CHARACTER...          DESCRIPTION:  TH
IS ROUTINE SIMPLY TAKES THE DIFFERENCE O
F THE BIT.          STREAM INDICES TO GE
T THE CHARACTERS WIDTH.  THE DELETE CHAR
ACTER.          HAS  ITS  WIDTH  LOADED 
FROM $8807.  THIS ROUTINE  IS  CALLED  B
Y.          CHARST....          FUNCTION
 NAME: CWRITE.          PURPOSE: CONDITI
ONALLY WRITE A SECTOR TO DISK..         
 CALL ADDRESS: $C223.          INPUT REQ
UIREMENTS:.               $04       TRAC
K NUMBER..               $05       SECTO
R NUMBER..               $0A-$0B   POINT
ER TO DATA BUFFER..          PREPARATORY
 ROUTINES: DSETUP.          ERRORS: SEE 
APPENDIX I...          DESCRIPTION: THE 
FIRST THING THIS ROUTINE DOES IS TRY TO 
READ THE.          DESIRED  SECTOR.  IF 
THE READ SUCCEEDS,  NOTHING  HAPPENS.  T
HREE.          ATTEMPTS ARE MADE AT THE 
READ.   AFTER THESE  READ  ATTEMPTS, THE
.          SECTOR IS WRITTEN TO THE DISK
, BY  CALLING WRITE2.   IF THE WRITE.   
       SUCCEEDED  WITHOUT ANY ERRORS,  T
HEN THE ROUTINE RESTARTS ITSELF..       
   IT WILL MAKE FIVE ATTEMPTS AT THIS LO
OP.  IF AFTER FIVE ATTEMPTS,.          T
HE SECTOR CAN NOT BE READ RELIABLY,  AN 
ERROR 39  RESULTS.  THIS.          ROUTI
NE  IS USUALLY CALLED AFTER THE SECTOR H
AS BEEN WRITTEN  OUT.          WITH  A  
CALL TO WRITE2.  WRITE CALLS THIS ROUTIN
E TO VERIFY  THE.          SECTOR....   
       FUNCTION NAME: DEC16.          PU
RPOSE: DECREMENTS A 16 BIT VALUE..      
    CALL ADDRESS: $C175.          INPUT 
REQUIREMENTS:.               X         T
HE ADDRESS OF THE 16 BIT INTEGER..      
    OUTPUT:.               X         THE
 ADDRESS OF THE 16 BIT RESULT...        
  DESCRIPTION:  THIS  ROUTINE IS ONE OF 
THE GEOS MATH  ROUTINES.  X.          PO
INTS TO A 16 BIT VALUE WHICH IS DECREMEN
TED BY 1...................          GEO
S KERNAL ROUTINES                       
               1-20...          FUNCTION
 NAME: DECODE.          PURPOSE: COMPUTE
 A CHECKSUM FOR A DATA REGION..         
 CALL ADDRESS: $C20E.          INPUT REQ
UIREMENTS:.               $02-$03   POIN
TER TO DATA REGION..               $04-$
05   LENGTH OF REGION..          OUTPUT:
.               $06-$07   CHECKSUM OF RE
GION...          DESCRIPTION:  THIS  ROU
TINE IS CALLED BY THE BOOTUP  ROUTINES  
TO.          COMPUTE  THE  CHECKSUM  OF 
GEOS BOOT.  THIS CHECKSUM IS  USED  TO. 
         CREATE THE INTERRUPT VECTOR ADD
RESS.  THE REASON FOR THIS WAS  TO.     
     PREVENT  PIRACY.  THIS  CAN BE USED
 TO CHECK THE INTEGRITY  OF  A.         
 MEMORY REGION.  THIS IS ACTUALLY MORE O
F A CRC COMPUTATION THEN A.          CHE
CKSUM AND THE FORMULA IS A LITTLE TOO CO
MPLEX TO EXPLAIN HERE....          FUNCT
ION NAME: DELAY.          PURPOSE: SETS 
UP A TIME DELAY..          CALL ADDRESS:
 $C199.          INPUT REQUIREMENTS:.   
            $02-$03   AMOUNT OF TIME DEL
AY VALUE IN 60THS OF A SECOND...        
  DESCRIPTION:  THE  COUNTER IS  SAVED O
N A STACK, AS WELL  AS  THE.          RE
TURN  ADDRESS  OF THE CALLER.  CONTROL I
S PASSED BACK  A  LEVEL.          HIGHER
  THAN THE CALLER.  WHEN THE TIMER RUNS 
OUT,  CONTROL  WILL.          RETURN  WH
ERE  IT LEFT OFF.  THIS ALLOWS PROGRAMS 
TO  INCORPORATE.          DELAYS  WITHOU
T HALTING GEOS'S MANY INDEPENDANT  PROCE
SSES.  THIS.          AND CMDTBL APPEAR 
TO BE THE BEGINNINGS OF MULTITASKING FOR
 GEOS....          FUNCTION NAME: DELET2
.          PURPOSE: DELETE A TEMPORARY F
ILE..          CALL ADDRESS: $C244.     
     INPUT REQUIREMENTS:.               
$08-$09   POINTER TO TABLE OF TRACKS AND
 SECTORS..               $0E-$0F   POINT
ER TO FILE NAME..          ERRORS: SEE A
PPENDIX I...          DESCRIPTION: THIS 
ROUTINE REMOVES THE FILE FROM THE DIRECT
ORY. IT.          USES  THE TABLE OF TRA
CKS AND SECTORS TO FREE UP THE SECTORS U
SED.          BY  THE FILE.  THIS ROUTIN
E IS USED TO CLEAN UP A TEMPORARY  FILE.
          THAT WAS NOT COMPLETED....    
      FUNCTION NAME: DELETE.          PU
RPOSE: DELETE A FILE FROM THE DISK..    
      CALL ADDRESS: $C238.          INPU
T REQUIREMENTS:.               $02-$03  
 POINTER TO FILE NAME..          ERRORS:
 SEE APPENDIX I...          DESCRIPTION:
  THE  SPECIFIED  FILE IS DELETED  FROM 
 THE  CURRENT.          DRIVE...........
          GEOS KERNAL ROUTINES          
                            1-21...     
     FUNCTION NAME: DIRDSK.          PUR
POSE: CREATES A DIRECTORY ENTRY ON THE D
ISK..          CALL ADDRESS: $C1F0.     
     INPUT REQUIREMENTS:.               
$14-$15   $8100, REQUIRED..             
  $16       # OF DIRECTORY SECTORS TO SK
IP FIRST..               $8100-$81FF INF
ORMATION SECTOR FOR FILE..              
 $8300-    TRACK AND SECTOR LIST FOR FIL
E..          OUTPUTS:.               $84
00-$841D DIRECTORY ENTRY..              
 DIRECTORY ENTRY IS WRITTEN TO THE DISK.
.          PREPARATORY ROUTINES: FALLOC.
          ERRORS: SEE APPENDIX..        
  DESCRIPTION:  THIS  ROUTINE  IS  USED 
BY SAVE AND  CALLS  DIRMEM..          BE
CAUSE  OF THIS, ASSUMPTIONS ARE MADE.  T
HE FIRST  IS  THAT  THE.          INFORM
ATION  SECTOR  IS  AT $8100-$81FF AND  T
HAT  $14-$15  POINT.          THERE.  TH
E  FIRST  TWO BYTES OF THE INFORMATION S
ECTOR  ARE  THE.          ADDRESS OF THE
 FILENAME.  THESE ARE RESET BY THIS ROUT
INE TO $00,.          $FF.  ANOTHER  ASS
UMPTION MADE BY THIS ROUTINE IS THAT $83
00 IS A.          LIST OF USEABLE TRACKS
 AND SECTORS; SPECIFICALLY, $8300-$8301 
ARE.          THE  TRACK AND SECTOR FOR 
THE INFORMATION SECTOR AND  $8302-$8303.
          ARE THE TRACK AND SECTOR OF TH
E FIRST SECTOR OF THE FILE....          
FUNCTION NAME: DIRMEM.          PURPOSE:
 CREATE A DIRECTORY ENTRY IN MEMORY..   
       CALL ADDRESS: $C1F3.          INP
UT REQUIREMENTS:.               $14-$15 
  $8100, REQUIRED..               $8100-
$81FF INFORMATION SECTOR FOR FILE..     
          $8300-    TRACK AND SECTOR LIS
T FOR FILE..          OUTPUTS:.         
      $8400-$841D DIRECTORY ENTRY..     
     PREPARATORY ROUTINES: FALLOC.      
    ERRORS: SEE APPENDIX..          DESC
RIPTION:   SEE  DIRDSK  FOR  A  COMPLETE
  LIST  OF  ALL   THE.          ASSUMPTI
ONS MADE BY THIS ROUTINE................
..........          GEOS KERNAL ROUTINES
                                      1-
22...          FUNCTION NAME: DRAW.     
     PURPOSE: DRAW A SECTION OF A CODED 
GRAPHIC IMAGE..          CALL ADDRESS: $
C2AA.          INPUT REQUIREMENTS:.     
          $02-$03   POINTER TO GRAPHIC I
MAGE DATA..               $04       COLU
MN TO START ON, IN BYTES..              
 $05       ROW TO START DRAWING THE IMAG
E ON..               $06       IMAGE WID
TH IN BYTES..               $07       IM
AGE HEIGHT IN PIXELS.               $18 
      # BYTES TO SKIP ON THE LEFT SIDE..
               $19       # BYTES ON THE 
RIGHT SIDE..               $1A-$1B   # R
OWS TO SKIP DOWN...          DESCRIPTION
:  THE  CODING OF THE IMAGE IS THE SAME 
AS THAT OF THE.          CLICK BOXES, SE
E CBOX FOR MORE INFORMATION. THIS ROUTIN
E SEEMS TO.          BE  FOR DRAWING PIE
CES OF PHOTO SCRAPS.  PHOTO SCRAPS  HAVE
  THIS.          CODED FORMAT.  THE PARA
METERS FOR THIS ROUTINE ALLOW A SECTION 
OF.          THE IMAGE TO BE DRAWN BY SP
ECIFYING HOW MANY ROWS TO SKIP DOWN,AS. 
         WELL  AS HOW MANY BYTES TO SKIP
 ON THE LEFT AND THE RIGHT OF  THE.     
     DESIRED  SECTION.  THIS IS NOT USED
 BY GEOPAINT  UNLESS  GEOPAINT.         
 CONVERTS  ITS  FILES  BECAUSE  THEY ARE
 IN  A  DIFFERENT  FORMAT;.          HOW
EVER, PHOTO SCRAPS ARE IN THIS FORMAT...
.          FUNCTION NAME: DRAW2.        
  PURPOSE: DRAW A SECTION OF A CODED GRA
PHIC IMAGE..          CALL ADDRESS: $C2C
5.          INPUT REQUIREMENTS:.        
       $02-$03   POINTER TO GRAPHIC IMAG
E DATA..               $04       COLUMN 
TO START ON, IN BYTES..               $0
5       ROW TO START DRAWING THE IMAGE O
N..               $06       IMAGE WIDTH 
IN BYTES..               $07       IMAGE
 HEIGHT IN PIXELS.               $18    
   # BYTES TO SKIP ON THE LEFT SIDE..   
            $19       # BYTES ON THE RIG
HT SIDE..               $1A-$1B   # ROWS
 TO SKIP DOWN..               $1C-$1D   
FIRST USER VECTOR..               $1E-$1
F   SECOND USER VECTOR...          DESCR
IPTION:  THIS  ROUTINE  IS IDENTICAL TO 
 DRAW,  EXCEPT  THAT.          BEFORE EA
CH BYTE IS READ,  THE FIRST USER ROUTINE
 IS CALLED.  THE.          SECOND  USER 
 ROUTINE IS CALLED BEFORE READING EACH B
YTE THAT  IS.          NOT  PART OF A PA
TTERN (COMMAND BYTES GREATER  THAN  219)
.  THESE.          USER  ROUTINES  MIGHT
 BE FOR DISK READING,  IN ORDER TO  DRAW
  AN.          IMAGE THAT IS NOT MEMORY 
RESIDENT.................
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL