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

PAGE54-65

FILE INFORMATION

FILENAME(S): PAGE54-65

FILE TYPE(S): SEQ

FILE SIZE: 25.8K

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

APPEARS ON: 1 disk(s)

FILE HASH

2a366e1c72071b6d340d3ec36cf79ca367d8fa98153e032e73ede5c2e4f736dd

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
G PD 30 PAGE54-65 SEQ Treasure Chest - Klaus Der Suhler 7 17 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 35 31 0D 0D 0D 20 20  |       1-51...  |
00000050: 20 20 20 20 20 20 20 20  C6 55 4E 43 54 49 4F 4E  |        .UNCTION|
00000060: 20 CE 41 4D 45 3A 20 D3  C1 D6 C5 0D 20 20 20 20  | .AME: .....    |
00000070: 20 20 20 20 20 20 D0 55  52 50 4F 53 45 3A 20 D3  |      .URPOSE: .|
00000080: 41 56 45 20 4D 45 4D 4F  52 59 20 54 4F 20 41 20  |AVE MEMORY TO A |
00000090: 46 49 4C 45 2E 0D 20 20  20 20 20 20 20 20 20 20  |FILE..          |
000000A0: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
000000B0: 31 C5 C4 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |1...          .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 24 31 34 2D 24 31 35  20 20 20 D0 4F 49 4E 54  | $14-$15   .OINT|
000000F0: 45 52 20 54 4F 20 49 4E  46 4F 52 4D 41 54 49 4F  |ER TO INFORMATIO|
00000100: 4E 20 53 45 43 54 4F 52  20 44 41 54 41 2E 0D 20  |N SECTOR DATA.. |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 31  |              $1|
00000120: 36 20 20 20 20 20 20 20  23 20 44 49 52 45 43 54  |6       # DIRECT|
00000130: 4F 52 59 20 53 45 43 54  4F 52 53 20 54 4F 20 53  |ORY SECTORS TO S|
00000140: 4B 49 50 20 46 49 52 53  54 2E 0D 20 20 20 20 20  |KIP FIRST..     |
00000150: 20 20 20 20 20 C5 52 52  4F 52 53 3A 20 D3 45 45  |     .RRORS: .EE|
00000160: 20 C1 50 50 45 4E 44 49  58 0D 0D 20 20 20 20 20  | .PPENDIX..     |
00000170: 20 20 20 20 20 C4 45 53  43 52 49 50 54 49 4F 4E  |     .ESCRIPTION|
00000180: 3A 20 D4 48 49 53 20 52  4F 55 54 49 4E 45 20 57  |: .HIS ROUTINE W|
00000190: 49 4C 4C 20 53 41 56 45  20 4D 45 4D 4F 52 59 20  |ILL SAVE MEMORY |
000001A0: 54 4F 20 41 20 46 49 4C  45 3B 20 45 41 43 48 20  |TO A FILE; EACH |
000001B0: 53 45 43 54 4F 52 0D 20  20 20 20 20 20 20 20 20  |SECTOR.         |
000001C0: 20 49 53 20 56 45 52 49  46 49 45 44 20 41 46 54  | IS VERIFIED AFT|
000001D0: 45 52 20 54 48 45 20 57  52 49 54 45 20 49 53 20  |ER THE WRITE IS |
000001E0: 46 49 4E 49 53 48 45 44  2E 20 20 D4 48 45 20 49  |FINISHED.  .HE I|
000001F0: 4E 46 4F 20 53 45 43 54  4F 52 20 48 41 53 20 41  |NFO SECTOR HAS A|
00000200: 4C 4C 0D 20 20 20 20 20  20 20 20 20 20 54 48 45  |LL.          THE|
00000210: 20 4E 45 43 45 53 53 41  52 59 20 49 4E 46 4F 52  | NECESSARY INFOR|
00000220: 4D 41 54 49 4F 4E 2E 20  20 49 45 2E 20 20 53 54  |MATION.  IE.  ST|
00000230: 41 52 54 20 41 4E 44 20  53 54 4F 50 20 20 41 44  |ART AND STOP  AD|
00000240: 44 52 45 53 53 45 53 2C  20 20 46 49 4C 45 0D 20  |DRESSES,  FILE. |
00000250: 20 20 20 20 20 20 20 20  20 54 59 50 45 20 20 41  |         TYPE  A|
00000260: 4E 44 20 20 53 54 52 55  43 54 55 52 45 2E 20 20  |ND  STRUCTURE.  |
00000270: C9 54 20 20 4D 55 53 54  20 41 4C 53 4F 20 43 4F  |.T  MUST ALSO CO|
00000280: 4E 54 41 49 4E 20 54 48  45 20 41 44 44 52 45 53  |NTAIN THE ADDRES|
00000290: 53 20 20 4F 46 20 20 54  48 45 0D 20 20 20 20 20  |S  OF  THE.     |
000002A0: 20 20 20 20 20 46 49 4C  45 4E 41 4D 45 20 20 53  |     FILENAME  S|
000002B0: 54 52 49 4E 47 20 53 4F  4D 45 57 48 45 52 45 20  |TRING SOMEWHERE |
000002C0: 49 4E 20 4D 45 4D 4F 52  59 2C 20 49 4E 20 54 48  |IN MEMORY, IN TH|
000002D0: 45 20 46 49 52 53 54 20  54 57 4F 20 42 59 54 45  |E FIRST TWO BYTE|
000002E0: 53 2E 20 20 C9 46 0D 20  20 20 20 20 20 20 20 20  |S.  .F.         |
000002F0: 20 54 48 45 20 46 49 4C  45 20 49 53 20 41 20 D6  | THE FILE IS A .|
00000300: CC C9 D2 20 46 49 4C 45  2C 20 54 48 45 20 4D 45  |... FILE, THE ME|
00000310: 4D 4F 52 59 20 49 53 20  53 41 56 45 44 20 54 4F  |MORY IS SAVED TO|
00000320: 20 43 48 41 49 4E 20 30  2E 20 CC 4F 43 41 54 49  | CHAIN 0. .OCATI|
00000330: 4F 4E 0D 20 20 20 20 20  20 20 20 20 20 24 31 36  |ON.          $16|
00000340: 20 20 53 50 45 43 49 46  49 45 53 20 54 48 45 20  |  SPECIFIES THE |
00000350: 4E 55 4D 42 45 52 20 4F  46 20 44 49 52 45 43 54  |NUMBER OF DIRECT|
00000360: 4F 52 59 20 53 45 43 54  4F 52 53 20 54 4F 20 53  |ORY SECTORS TO S|
00000370: 4B 49 50 20 46 4F 52 20  C4 C9 D2 C4 D3 CB 0D 20  |KIP FOR ....... |
00000380: 20 20 20 20 20 20 20 20  20 41 4E 44 20 C8 CF CC  |         AND ...|
00000390: C5 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |.....          .|
000003A0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 D3 C1  |UNCTION .AME: ..|
000003B0: D6 C5 32 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |..2.          .U|
000003C0: 52 50 4F 53 45 3A 20 D3  41 56 45 20 4D 45 4D 4F  |RPOSE: .AVE MEMO|
000003D0: 52 59 20 54 4F 20 53 50  45 43 49 46 49 45 44 20  |RY TO SPECIFIED |
000003E0: 53 45 43 54 4F 52 53 20  4F 4E 20 54 48 45 20 44  |SECTORS ON THE D|
000003F0: 49 53 4B 2E 0D 20 20 20  20 20 20 20 20 20 20 C3  |ISK..          .|
00000400: 41 4C 4C 20 41 44 44 52  45 53 53 3A 20 24 C3 31  |ALL ADDRESS: $.1|
00000410: C6 39 0D 20 20 20 20 20  20 20 20 20 20 C9 4E 50  |.9.          .NP|
00000420: 55 54 20 52 45 51 55 49  52 45 4D 45 4E 54 53 3A  |UT REQUIREMENTS:|
00000430: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000440: 24 30 C5 2D 24 30 C6 20  20 20 D0 4F 49 4E 54 45  |$0.-$0.   .OINTE|
00000450: 52 20 54 4F 20 4C 49 53  54 20 4F 46 20 54 52 41  |R TO LIST OF TRA|
00000460: 43 4B 53 20 41 4E 44 20  53 45 43 54 4F 52 53 20  |CKS AND SECTORS |
00000470: 54 4F 20 55 53 45 2E 0D  20 20 20 20 20 20 20 20  |TO USE..        |
00000480: 20 20 20 20 20 20 20 24  31 30 2D 24 31 31 20 20  |       $10-$11  |
00000490: 20 D3 54 41 52 54 20 41  44 44 52 45 53 53 20 4F  | .TART ADDRESS O|
000004A0: 46 20 4D 45 4D 4F 52 59  20 54 4F 20 42 45 20 53  |F MEMORY TO BE S|
000004B0: 41 56 45 44 2E 0D 20 20  20 20 20 20 20 20 20 20  |AVED..          |
000004C0: D0 52 45 50 41 52 41 54  4F 52 59 20 52 4F 55 54  |.REPARATORY ROUT|
000004D0: 49 4E 45 53 3A 20 C6 C1  CC CC CF C3 0D 20 20 20  |INES: .......   |
000004E0: 20 20 20 20 20 20 20 C5  52 52 4F 52 53 3A 20 D3  |       .RRORS: .|
000004F0: 45 45 20 C1 50 50 45 4E  44 49 58 0D 0D 20 20 20  |EE .PPENDIX..   |
00000500: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00000510: 4F 4E 3A 20 20 D4 48 49  53 20 52 4F 55 54 49 4E  |ON:  .HIS ROUTIN|
00000520: 45 20 49 53 20 43 41 4C  4C 45 44 20 42 59 20 D3  |E IS CALLED BY .|
00000530: C1 D6 C5 20 54 4F 20 41  43 54 55 41 4C 4C 59 20  |... TO ACTUALLY |
00000540: 53 41 56 45 20 54 48 45  0D 20 20 20 20 20 20 20  |SAVE THE.       |
00000550: 20 20 20 4D 45 4D 4F 52  59 2E 20 20 C1 4C 4C 20  |   MEMORY.  .LL |
00000560: 20 4F 46 20 54 48 45 20  53 45 43 54 4F 52 53 20  | OF THE SECTORS |
00000570: 53 48 4F 55 4C 44 20 48  41 56 45 20 41 4C 52 45  |SHOULD HAVE ALRE|
00000580: 41 44 59 20 42 45 45 4E  20 20 41 4C 4C 4F 43 41  |ADY BEEN  ALLOCA|
00000590: 54 45 44 2E 0D 20 20 20  20 20 20 20 20 20 20 D4  |TED..          .|
000005A0: 48 49 53 20 20 52 4F 55  54 49 4E 45 20 20 53 54  |HIS  ROUTINE  ST|
000005B0: 4F 50 53 20 53 41 56 49  4E 47 20 4D 45 4D 4F 52  |OPS SAVING MEMOR|
000005C0: 59 20 57 48 45 4E 20 54  52 41 43 4B 20 30 20 49  |Y WHEN TRACK 0 I|
000005D0: 53 20 46 4F 55 4E 44 20  20 49 4E 20 20 54 48 45  |S FOUND  IN  THE|
000005E0: 0D 20 20 20 20 20 20 20  20 20 20 4C 49 53 54 20  |.          LIST |
000005F0: 4F 46 20 54 52 41 43 4B  53 20 41 4E 44 20 53 45  |OF TRACKS AND SE|
00000600: 43 54 4F 52 53 2E 0D 0D  0D 20 20 20 20 20 20 20  |CTORS....       |
00000610: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00000620: 3A 20 D3 C4 31 36 31 36  0D 20 20 20 20 20 20 20  |: ..1616.       |
00000630: 20 20 20 D0 55 52 50 4F  53 45 3A 20 D3 49 47 4E  |   .URPOSE: .IGN|
00000640: 45 44 20 31 36 20 42 49  54 20 42 59 20 31 36 20  |ED 16 BIT BY 16 |
00000650: 42 49 54 20 44 49 56 49  53 49 4F 4E 2E 0D 20 20  |BIT DIVISION..  |
00000660: 20 20 20 20 20 20 20 20  C3 41 4C 4C 20 41 44 44  |        .ALL ADD|
00000670: 52 45 53 53 3A 20 24 C3  31 36 C3 0D 20 20 20 20  |RESS: $.16..    |
00000680: 20 20 20 20 20 20 C9 4E  50 55 54 20 52 45 51 55  |      .NPUT REQU|
00000690: 49 52 45 4D 45 4E 54 53  3A 0D 20 20 20 20 20 20  |IREMENTS:.      |
000006A0: 20 20 20 20 20 20 20 20  20 D9 20 20 20 20 20 20  |         .      |
000006B0: 20 20 20 D4 48 45 20 41  44 44 52 45 53 53 20 4F  |   .HE ADDRESS O|
000006C0: 46 20 54 48 45 20 31 36  20 42 49 54 20 44 49 56  |F THE 16 BIT DIV|
000006D0: 49 53 4F 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |ISOR..          |
000006E0: 20 20 20 20 20 D8 20 20  20 20 20 20 20 20 20 D4  |     .         .|
000006F0: 48 45 20 41 44 44 52 45  53 53 20 4F 46 20 54 48  |HE ADDRESS OF TH|
00000700: 45 20 31 36 20 42 49 54  20 44 49 56 49 44 45 4E  |E 16 BIT DIVIDEN|
00000710: 44 2E 0D 20 20 20 20 20  20 20 20 20 20 CF 55 54  |D..          .UT|
00000720: 50 55 54 3A 0D 20 20 20  20 20 20 20 20 20 20 20  |PUT:.           |
00000730: 20 20 20 20 D8 20 20 20  20 20 20 20 20 20 D4 48  |    .         .H|
00000740: 45 20 41 44 44 52 45 53  53 20 4F 46 20 54 48 45  |E ADDRESS OF THE|
00000750: 20 31 36 20 42 49 54 20  51 55 4F 54 49 45 4E 54  | 16 BIT QUOTIENT|
00000760: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00000770: 20 24 31 32 2D 24 31 33  20 20 20 D4 48 45 20 31  | $12-$13   .HE 1|
00000780: 36 20 42 49 54 20 52 45  4D 41 49 4E 44 45 52 2E  |6 BIT REMAINDER.|
00000790: 0D 0D 20 20 20 20 20 20  20 20 20 20 C4 45 53 43  |..          .ESC|
000007A0: 52 49 50 54 49 4F 4E 3A  20 D4 48 49 53 20 52 4F  |RIPTION: .HIS RO|
000007B0: 55 54 49 4E 45 20 49 53  20 4F 4E 45 20 4F 46 20  |UTINE IS ONE OF |
000007C0: 54 48 45 20 C7 C5 CF D3  20 4D 41 54 48 20 52 4F  |THE .... MATH RO|
000007D0: 55 54 49 4E 45 53 2E 20  D8 20 41 4E 44 0D 20 20  |UTINES. . AND.  |
000007E0: 20 20 20 20 20 20 20 20  D9 20 45 41 43 48 20 48  |        . EACH H|
000007F0: 41 56 45 20 54 48 45 20  41 44 44 52 45 53 53 20  |AVE THE ADDRESS |
00000800: 4F 46 20 41 20 54 45 52  4D 20 49 4E 20 54 48 45  |OF A TERM IN THE|
00000810: 20 44 49 56 49 53 49 4F  4E 2E 20 C2 4F 54 48 20  | DIVISION. .OTH |
00000820: 54 45 52 4D 53 20 41 52  45 0D 20 20 20 20 20 20  |TERMS ARE.      |
00000830: 20 20 20 20 4D 41 44 45  20 50 4F 53 49 54 49 56  |    MADE POSITIV|
00000840: 45 20 57 49 54 48 20 C1  C2 D3 31 36 2E 20 D5 C4  |E WITH ...16. ..|
00000850: 31 36 31 36 20 49 53 20  54 48 45 4E 20 43 41 4C  |1616 IS THEN CAL|
00000860: 4C 45 44 3B 20 49 46 20  54 48 45 20 52 45 53 55  |LED; IF THE RESU|
00000870: 4C 54 20 4F 46 0D 20 20  20 20 20 20 20 20 20 20  |LT OF.          |
00000880: 54 48 45 20 44 49 56 49  53 49 4F 4E 20 53 48 4F  |THE DIVISION SHO|
00000890: 55 4C 44 20 42 45 20 4E  45 47 41 54 49 56 45 2C  |ULD BE NEGATIVE,|
000008A0: 20 CE C5 C7 31 36 20 49  53 20 43 41 4C 4C 45 44  | ...16 IS CALLED|
000008B0: 2E 20 D4 48 45 20 51 55  4F 54 49 45 4E 54 20 49  |. .HE QUOTIENT I|
000008C0: 53 0D 20 20 20 20 20 20  20 20 20 20 53 54 4F 52  |S.          STOR|
000008D0: 45 44 20 20 49 4E 20 50  4C 41 43 45 20 4F 46 20  |ED  IN PLACE OF |
000008E0: 54 48 45 20 4F 52 49 47  49 4E 41 4C 20 44 49 56  |THE ORIGINAL DIV|
000008F0: 49 44 45 4E 44 20 54 48  41 54 20 D8 20 50 4F 49  |IDEND THAT . POI|
00000900: 4E 54 45 44 20 54 4F 2E  20 20 D4 48 45 0D 20 20  |NTED TO.  .HE.  |
00000910: 20 20 20 20 20 20 20 20  44 49 56 49 44 45 4E 44  |        DIVIDEND|
00000920: 20 20 49 53 20 4C 45 46  54 20 55 4E 54 4F 55 43  |  IS LEFT UNTOUC|
00000930: 48 45 44 2E 20 20 D4 48  45 20 52 45 4D 41 49 4E  |HED.  .HE REMAIN|
00000940: 44 45 52 20 49 53 20 41  4C 57 41 59 53 20 41 20  |DER IS ALWAYS A |
00000950: 20 50 4F 53 49 54 49 56  45 0D 20 20 20 20 20 20  | POSITIVE.      |
00000960: 20 20 20 20 49 4E 54 45  47 45 52 2E 0D 0D 0D 0D  |    INTEGER.....|
00000970: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 20 20 20 20 20 20  |..........      |
00000980: 20 20 20 20 C7 C5 CF D3  20 CB 45 52 4E 41 4C 20  |    .... .ERNAL |
00000990: D2 4F 55 54 49 4E 45 53  20 20 20 20 20 20 20 20  |.OUTINES        |
000009A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000009B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 2D  |              1-|
000009C0: 35 32 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |52...          .|
000009D0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 D3 C5  |UNCTION .AME: ..|
000009E0: CC C2 D3 D7 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
000009F0: 55 52 50 4F 53 45 3A 20  D3 45 4C 45 43 54 53 20  |URPOSE: .ELECTS |
00000A00: 54 48 45 20 C2 45 52 4B  45 4C 45 59 20 D3 4F 46  |THE .ERKELEY .OF|
00000A10: 54 57 4F 52 4B 53 20 46  4F 4E 54 2E 0D 20 20 20  |TWORKS FONT..   |
00000A20: 20 20 20 20 20 20 20 C3  41 4C 4C 20 41 44 44 52  |       .ALL ADDR|
00000A30: 45 53 53 3A 20 24 C3 31  34 C2 0D 20 20 20 20 20  |ESS: $.14..     |
00000A40: 20 20 20 20 20 CF 55 54  50 55 54 3A 0D 20 20 20  |     .UTPUT:.   |
00000A50: 20 20 20 20 20 20 20 20  20 20 20 20 24 32 36 20  |            $26 |
00000A60: 20 20 20 20 20 20 23 20  50 49 58 45 4C 53 20 41  |      # PIXELS A|
00000A70: 42 4F 56 45 20 4C 49 4E  45 20 4F 46 20 50 52 49  |BOVE LINE OF PRI|
00000A80: 4E 54 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |NT..            |
00000A90: 20 20 20 24 32 37 2D 24  32 38 20 20 20 D4 48 45  |   $27-$28   .HE|
00000AA0: 20 4E 55 4D 42 45 52 20  4F 46 20 42 59 54 45 53  | NUMBER OF BYTES|
00000AB0: 20 49 4E 20 54 48 45 20  42 49 54 20 53 54 52 45  | IN THE BIT STRE|
00000AC0: 41 4D 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |AM..            |
00000AD0: 20 20 20 24 32 39 20 20  20 20 20 20 20 D4 48 45  |   $29       .HE|
00000AE0: 20 50 4F 49 4E 54 20 53  49 5A 45 2E 0D 20 20 20  | POINT SIZE..   |
00000AF0: 20 20 20 20 20 20 20 20  20 20 20 20 24 32 C1 2D  |            $2.-|
00000B00: 24 32 C2 20 20 20 D4 48  45 20 50 4F 49 4E 54 45  |$2.   .HE POINTE|
00000B10: 52 20 54 4F 20 54 48 45  20 54 41 42 4C 45 20 4F  |R TO THE TABLE O|
00000B20: 46 20 49 4E 44 49 43 45  53 20 49 4E 54 4F 20 54  |F INDICES INTO T|
00000B30: 48 45 20 42 49 54 0D 20  20 20 20 20 20 20 20 20  |HE BIT.         |
00000B40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000B50: 53 54 52 45 41 4D 2E 0D  20 20 20 20 20 20 20 20  |STREAM..        |
00000B60: 20 20 20 20 20 20 20 24  32 C3 2D 24 32 C4 20 20  |       $2.-$2.  |
00000B70: 20 D4 48 45 20 50 4F 49  4E 54 45 52 20 54 4F 20  | .HE POINTER TO |
00000B80: 54 48 45 20 42 49 54 20  53 54 52 45 41 4D 2E 0D  |THE BIT STREAM..|
00000B90: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00000BA0: 49 50 54 49 4F 4E 3A 20  20 D4 48 49 53 20 52 4F  |IPTION:  .HIS RO|
00000BB0: 55 54 49 4E 45 20 53 49  4D 50 4C 59 20 43 4F 50  |UTINE SIMPLY COP|
00000BC0: 49 45 53 20 54 48 45 20  46 4F 4E 54 20 48 45 41  |IES THE FONT HEA|
00000BD0: 44 45 52 20 44 41 54 41  20 46 4F 52 0D 20 20 20  |DER DATA FOR.   |
00000BE0: 20 20 20 20 20 20 20 54  48 45 20 C2 D3 D7 20 46  |       THE ... F|
00000BF0: 4F 4E 54 20 54 4F 20 5A  45 52 4F 20 50 41 47 45  |ONT TO ZERO PAGE|
00000C00: 20 46 4F 52 20 55 53 45  20 42 59 20 C4 D3 D0 C3  | FOR USE BY ....|
00000C10: C8 D2 20 41 4E 44 20 C4  D3 D0 D4 D8 D4 2E 0D 0D  |.. AND .........|
00000C20: 0D 20 20 20 20 20 20 20  20 20 20 C6 55 4E 43 54  |.          .UNCT|
00000C30: 49 4F 4E 20 CE 41 4D 45  3A 20 D3 C5 D4 D0 C1 D4  |ION .AME: ......|
00000C40: 0D 20 20 20 20 20 20 20  20 20 20 D0 55 52 50 4F  |.          .URPO|
00000C50: 53 45 3A 20 D3 45 54 53  20 54 48 45 20 43 55 52  |SE: .ETS THE CUR|
00000C60: 52 45 4E 54 20 46 49 4C  4C 20 50 41 54 54 45 52  |RENT FILL PATTER|
00000C70: 4E 2E 0D 20 20 20 20 20  20 20 20 20 20 C3 41 4C  |N..          .AL|
00000C80: 4C 20 41 44 44 52 45 53  53 3A 20 24 C3 31 33 39  |L ADDRESS: $.139|
00000C90: 0D 20 20 20 20 20 20 20  20 20 20 C9 4E 50 55 54  |.          .NPUT|
00000CA0: 20 52 45 51 55 49 52 45  4D 45 4E 54 53 3A 0D 20  | REQUIREMENTS:. |
00000CB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 C1 20  |              . |
00000CC0: 20 20 20 20 20 20 20 20  D4 48 45 20 50 41 54 54  |        .HE PATT|
00000CD0: 45 52 4E 20 4E 55 4D 42  45 52 20 28 30 2D 33 31  |ERN NUMBER (0-31|
00000CE0: 29 2E 0D 0D 20 20 20 20  20 20 20 20 20 20 C4 45  |)...          .E|
00000CF0: 53 43 52 49 50 54 49 4F  4E 3A 20 20 D4 48 49 53  |SCRIPTION:  .HIS|
00000D00: 20 20 52 4F 55 54 49 4E  45 20 53 45 54 53 20 54  |  ROUTINE SETS T|
00000D10: 48 45 20 46 49 4C 4C 20  50 41 54 54 45 52 4E 20  |HE FILL PATTERN |
00000D20: 55 53 45 44 20 42 59 20  20 D0 C6 C9 CC CC 2C 0D  |USED BY  .....,.|
00000D30: 20 20 20 20 20 20 20 20  20 20 D0 C6 C9 CC CC 32  |          .....2|
00000D40: 2C 20 D0 C2 CF D8 20 41  4E 44 20 D0 C2 CF D8 32  |, .... AND ....2|
00000D50: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
00000D60: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 D3 D0 D2  |NCTION .AME: ...|
00000D70: CF C6 C6 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |....          .U|
00000D80: 52 50 4F 53 45 3A 20 D4  55 52 4E 53 20 4F 46 46  |RPOSE: .URNS OFF|
00000D90: 20 41 20 53 50 52 49 54  45 2E 0D 20 20 20 20 20  | A SPRITE..     |
00000DA0: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
00000DB0: 53 3A 20 24 C3 31 C4 35  0D 20 20 20 20 20 20 20  |S: $.1.5.       |
00000DC0: 20 20 20 C9 4E 50 55 54  20 52 45 51 55 49 52 45  |   .NPUT REQUIRE|
00000DD0: 4D 45 4E 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |MENTS:.         |
00000DE0: 20 20 20 20 20 20 24 30  38 20 20 20 20 20 20 20  |      $08       |
00000DF0: D3 50 52 49 54 45 20 4E  55 4D 42 45 52 20 28 30  |.PRITE NUMBER (0|
00000E00: 2D 37 29 2E 0D 20 20 20  20 20 20 20 20 20 20 D0  |-7)..          .|
00000E10: 52 45 50 41 52 41 54 4F  52 59 20 52 4F 55 54 49  |REPARATORY ROUTI|
00000E20: 4E 45 53 3A 20 C3 CF D0  D9 D3 D0 2C 20 D0 CF D3  |NES: ......, ...|
00000E30: D3 D0 D2 2C 20 D3 D0 D2  CF CE 0D 0D 20 20 20 20  |..., .......    |
00000E40: 20 20 20 20 20 20 C4 45  53 43 52 49 50 54 49 4F  |      .ESCRIPTIO|
00000E50: 4E 3A 20 20 D4 48 49 53  20 52 4F 55 54 49 4E 45  |N:  .HIS ROUTINE|
00000E60: 20 54 55 52 4E 53 20 54  48 45 20 53 50 52 49 54  | TURNS THE SPRIT|
00000E70: 45 20 4F 46 46 2C 20 53  4F 20 54 48 41 54 20 49  |E OFF, SO THAT I|
00000E80: 54 20 49 53 20 4E 4F 0D  20 20 20 20 20 20 20 20  |T IS NO.        |
00000E90: 20 20 4C 4F 4E 47 45 52  20 56 49 53 49 42 4C 45  |  LONGER VISIBLE|
00000EA0: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
00000EB0: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 D3 D0 D2  |NCTION .AME: ...|
00000EC0: CF CE 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
00000ED0: 50 4F 53 45 3A 20 D4 55  52 4E 53 20 4F 4E 20 41  |POSE: .URNS ON A|
00000EE0: 20 53 50 52 49 54 45 2E  0D 20 20 20 20 20 20 20  | SPRITE..       |
00000EF0: 20 20 20 C3 41 4C 4C 20  41 44 44 52 45 53 53 3A  |   .ALL ADDRESS:|
00000F00: 20 24 C3 31 C4 32 0D 20  20 20 20 20 20 20 20 20  | $.1.2.         |
00000F10: 20 C9 4E 50 55 54 20 52  45 51 55 49 52 45 4D 45  | .NPUT REQUIREME|
00000F20: 4E 54 53 3A 0D 20 20 20  20 20 20 20 20 20 20 20  |NTS:.           |
00000F30: 20 20 20 20 24 30 38 20  20 20 20 20 20 20 D3 50  |    $08       .P|
00000F40: 52 49 54 45 20 4E 55 4D  42 45 52 20 28 30 2D 37  |RITE NUMBER (0-7|
00000F50: 29 2E 0D 20 20 20 20 20  20 20 20 20 20 D0 52 45  |)..          .RE|
00000F60: 50 41 52 41 54 4F 52 59  20 52 4F 55 54 49 4E 45  |PARATORY ROUTINE|
00000F70: 53 3A 20 C3 CF D0 D9 D3  D0 2C 20 D0 CF D3 D3 D0  |S: ......, .....|
00000F80: D2 0D 0D 20 20 20 20 20  20 20 20 20 20 C4 45 53  |...          .ES|
00000F90: 43 52 49 50 54 49 4F 4E  3A 20 20 D4 48 49 53 20  |CRIPTION:  .HIS |
00000FA0: 20 52 4F 55 54 49 4E 45  20 20 54 55 52 4E 53 20  | ROUTINE  TURNS |
00000FB0: 54 48 45 20 53 50 52 49  54 45 20 4F 4E 2C 20 20  |THE SPRITE ON,  |
00000FC0: 53 4F 20 54 48 41 54 20  49 54 20 20 49 53 0D 20  |SO THAT IT  IS. |
00000FD0: 20 20 20 20 20 20 20 20  20 56 49 53 49 42 4C 45  |         VISIBLE|
00000FE0: 2E 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
00000FF0: 0D 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C7 C5  |....          ..|
00001000: CF D3 20 CB 45 52 4E 41  4C 20 D2 4F 55 54 49 4E  |.. .ERNAL .OUTIN|
00001010: 45 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ES              |
00001020: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001030: 20 20 20 20 20 20 20 20  31 2D 35 33 0D 0D 0D 20  |        1-53... |
00001040: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
00001050: 4E 20 CE 41 4D 45 3A 20  D3 D4 C1 D2 D4 0D 20 20  |N .AME: ......  |
00001060: 20 20 20 20 20 20 20 20  D0 55 52 50 4F 53 45 3A  |        .URPOSE:|
00001070: 20 D2 45 53 54 41 52 54  53 20 54 48 45 20 54 49  | .ESTARTS THE TI|
00001080: 4D 45 52 20 4F 4E 20 41  20 54 49 4D 45 44 20 45  |MER ON A TIMED E|
00001090: 56 45 4E 54 2E 0D 20 20  20 20 20 20 20 20 20 20  |VENT..          |
000010A0: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
000010B0: 31 31 35 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |115.          .N|
000010C0: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
000010D0: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
000010E0: 20 D8 20 20 20 20 20 20  20 20 20 D4 48 45 20 49  | .         .HE I|
000010F0: 4E 44 45 58 20 49 4E 54  4F 20 54 48 45 20 43 4F  |NDEX INTO THE CO|
00001100: 4D 4D 41 4E 44 20 54 41  42 4C 45 20 41 54 20 24  |MMAND TABLE AT $|
00001110: 38 37 31 39 2E 0D 20 20  20 20 20 20 20 20 20 20  |8719..          |
00001120: D0 52 45 50 41 52 41 54  4F 52 59 20 52 4F 55 54  |.REPARATORY ROUT|
00001130: 49 4E 45 53 3A 20 C3 CD  C4 D4 C2 CC 0D 0D 20 20  |INES: ........  |
00001140: 20 20 20 20 20 20 20 20  C4 45 53 43 52 49 50 54  |        .ESCRIPT|
00001150: 49 4F 4E 3A 20 D4 48 49  53 20 52 4F 55 54 49 4E  |ION: .HIS ROUTIN|
00001160: 45 20 52 45 53 45 54 53  20 42 49 54 20 35 20 4F  |E RESETS BIT 5 O|
00001170: 46 20 41 20 53 50 45 43  49 46 49 43 20 43 4F 4D  |F A SPECIFIC COM|
00001180: 4D 41 4E 44 20 42 59 54  45 0D 20 20 20 20 20 20  |MAND BYTE.      |
00001190: 20 20 20 20 49 4E 20 54  48 45 20 54 41 42 4C 45  |    IN THE TABLE|
000011A0: 20 41 54 20 24 38 37 31  39 2E 20 20 D4 48 49 53  | AT $8719.  .HIS|
000011B0: 20 45 4E 41 42 4C 45 53  20 54 48 45 20 41 53 53  | ENABLES THE ASS|
000011C0: 4F 43 49 41 54 45 44 20  43 4F 55 4E 54 45 52 2E  |OCIATED COUNTER.|
000011D0: 20 D4 48 49 53 0D 20 20  20 20 20 20 20 20 20 20  | .HIS.          |
000011E0: 52 4F 55 54 49 4E 45 20  20 49 53 20 20 54 48 45  |ROUTINE  IS  THE|
000011F0: 20 20 43 4F 4D 50 4C 45  4D 45 4E 54 20 20 54 4F  |  COMPLEMENT  TO|
00001200: 20 D3 D4 CF D0 2E 20 20  D4 48 49 53 20 20 52 4F  | .....  .HIS  RO|
00001210: 55 54 49 4E 45 20 20 49  53 20 20 CE CF D4 20 20  |UTINE  IS  ...  |
00001220: 41 0D 20 20 20 20 20 20  20 20 20 20 52 45 50 4C  |A.          REPL|
00001230: 41 43 45 4D 45 4E 54 20  20 46 4F 52 20 C5 CE C1  |ACEMENT  FOR ...|
00001240: C2 CC C5 2E 20 20 D4 48  49 53 20 52 4F 55 54 49  |....  .HIS ROUTI|
00001250: 4E 45 20 44 4F 45 53 20  4E 4F 54 20 43 4F 50 59  |NE DOES NOT COPY|
00001260: 20 54 48 45 20 20 54 49  4D 45 52 27 53 0D 20 20  | THE  TIMER'S.  |
00001270: 20 20 20 20 20 20 20 20  49 4E 49 54 49 41 4C 20  |        INITIAL |
00001280: 56 41 4C 55 45 20 41 53  20 44 4F 45 53 20 C5 CE  |VALUE AS DOES ..|
00001290: C1 C2 CC C5 2E 0D 0D 0D  20 20 20 20 20 20 20 20  |........        |
000012A0: 20 20 C6 55 4E 43 54 49  4F 4E 20 CE 41 4D 45 3A  |  .UNCTION .AME:|
000012B0: 20 D3 D4 CF D0 0D 20 20  20 20 20 20 20 20 20 20  | .....          |
000012C0: D0 55 52 50 4F 53 45 3A  20 D3 54 4F 50 53 20 54  |.URPOSE: .TOPS T|
000012D0: 48 45 20 54 49 4D 45 52  20 4F 4E 20 41 20 54 49  |HE TIMER ON A TI|
000012E0: 4D 45 44 20 45 56 45 4E  54 2E 0D 20 20 20 20 20  |MED EVENT..     |
000012F0: 20 20 20 20 20 C3 41 4C  4C 20 41 44 44 52 45 53  |     .ALL ADDRES|
00001300: 53 3A 20 24 C3 31 31 32  0D 20 20 20 20 20 20 20  |S: $.112.       |
00001310: 20 20 20 C9 4E 50 55 54  20 52 45 51 55 49 52 45  |   .NPUT REQUIRE|
00001320: 4D 45 4E 54 53 3A 0D 20  20 20 20 20 20 20 20 20  |MENTS:.         |
00001330: 20 20 20 20 20 20 D8 20  20 20 20 20 20 20 20 20  |      .         |
00001340: D4 48 45 20 49 4E 44 45  58 20 49 4E 54 4F 20 54  |.HE INDEX INTO T|
00001350: 48 45 20 43 4F 4D 4D 41  4E 44 20 54 41 42 4C 45  |HE COMMAND TABLE|
00001360: 20 41 54 20 24 38 37 31  39 2E 0D 20 20 20 20 20  | AT $8719..     |
00001370: 20 20 20 20 20 D0 52 45  50 41 52 41 54 4F 52 59  |     .REPARATORY|
00001380: 20 52 4F 55 54 49 4E 45  53 3A 20 C3 CD C4 D4 C2  | ROUTINES: .....|
00001390: CC 0D 0D 20 20 20 20 20  20 20 20 20 20 C4 45 53  |...          .ES|
000013A0: 43 52 49 50 54 49 4F 4E  3A 20 20 D4 48 49 53 20  |CRIPTION:  .HIS |
000013B0: 52 4F 55 54 49 4E 45 20  53 45 54 53 20 42 49 54  |ROUTINE SETS BIT|
000013C0: 20 35 20 4F 46 20 41 20  53 50 45 43 49 46 49 43  | 5 OF A SPECIFIC|
000013D0: 20 43 4F 4D 4D 41 4E 44  20 20 42 59 54 45 0D 20  | COMMAND  BYTE. |
000013E0: 20 20 20 20 20 20 20 20  20 49 4E 20 20 54 48 45  |         IN  THE|
000013F0: 20 54 41 42 4C 45 20 41  54 20 24 38 37 31 39 2E  | TABLE AT $8719.|
00001400: 20 20 D4 48 49 53 20 50  52 45 56 45 4E 54 53 20  |  .HIS PREVENTS |
00001410: 54 48 45 20 41 53 53 4F  43 49 41 54 45 44 20 54  |THE ASSOCIATED T|
00001420: 49 4D 45 52 20 20 46 52  4F 4D 0D 20 20 20 20 20  |IMER  FROM.     |
00001430: 20 20 20 20 20 52 55 4E  4E 49 4E 47 2E 20 D4 48  |     RUNNING. .H|
00001440: 49 53 20 52 4F 55 54 49  4E 45 20 49 53 20 54 48  |IS ROUTINE IS TH|
00001450: 45 20 43 4F 4D 50 4C 45  4D 45 4E 54 20 54 4F 20  |E COMPLEMENT TO |
00001460: D3 D4 C1 D2 D4 2E 0D 0D  0D 20 20 20 20 20 20 20  |.........       |
00001470: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00001480: 3A 20 D3 D4 D2 C3 CD D0  0D 20 20 20 20 20 20 20  |: .......       |
00001490: 20 20 20 D0 55 52 50 4F  53 45 3A 20 C3 4F 4D 50  |   .URPOSE: .OMP|
000014A0: 41 52 45 20 54 57 4F 20  53 54 52 49 4E 47 53 20  |ARE TWO STRINGS |
000014B0: 46 4F 52 20 45 51 55 41  4C 49 54 59 2E 0D 20 20  |FOR EQUALITY..  |
000014C0: 20 20 20 20 20 20 20 20  C3 41 4C 4C 20 41 44 44  |        .ALL ADD|
000014D0: 52 45 53 53 3A 20 24 C3  32 36 C2 0D 20 20 20 20  |RESS: $.26..    |
000014E0: 20 20 20 20 20 20 C9 4E  50 55 54 20 52 45 51 55  |      .NPUT REQU|
000014F0: 49 52 45 4D 45 4E 54 53  3A 0D 20 20 20 20 20 20  |IREMENTS:.      |
00001500: 20 20 20 20 20 20 20 20  20 D8 20 20 20 20 20 20  |         .      |
00001510: 20 20 20 C1 44 44 52 45  53 53 20 4F 46 20 41 20  |   .DDRESS OF A |
00001520: 5A 45 52 4F 20 50 41 47  45 20 50 4F 49 4E 54 45  |ZERO PAGE POINTE|
00001530: 52 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |R..             |
00001540: 20 20 D9 20 20 20 20 20  20 20 20 20 C1 44 44 52  |  .         .DDR|
00001550: 45 53 53 20 4F 46 20 41  20 5A 45 52 4F 20 50 41  |ESS OF A ZERO PA|
00001560: 47 45 20 50 4F 49 4E 54  45 52 2E 0D 20 20 20 20  |GE POINTER..    |
00001570: 20 20 20 20 20 20 CF 55  54 50 55 54 3A 0D 20 20  |      .UTPUT:.  |
00001580: 20 20 20 20 20 20 20 20  20 20 20 20 20 DA 20 46  |             . F|
00001590: 4C 41 47 20 20 20 20 D3  45 54 20 41 43 43 4F 52  |LAG    .ET ACCOR|
000015A0: 44 49 4E 47 4C 59 2E 0D  0D 20 20 20 20 20 20 20  |DINGLY...       |
000015B0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
000015C0: 20 D4 48 45 20 20 D8 20  41 4E 44 20 D9 20 52 45  | .HE  . AND . RE|
000015D0: 47 49 53 54 45 52 53 20  50 4F 49 4E 54 20 54 4F  |GISTERS POINT TO|
000015E0: 20 5A 45 52 4F 20 50 41  47 45 20 50 4F 49 4E 54  | ZERO PAGE POINT|
000015F0: 45 52 53 2E 0D 20 20 20  20 20 20 20 20 20 20 D4  |ERS..          .|
00001600: 48 45 20 54 57 4F 20 53  54 52 49 4E 47 53 20 41  |HE TWO STRINGS A|
00001610: 52 45 20 43 4F 4D 50 41  52 45 44 20 55 50 20 54  |RE COMPARED UP T|
00001620: 4F 20 41 20 5A 45 52 4F  20 42 59 54 45 2E 20 D4  |O A ZERO BYTE. .|
00001630: 48 45 20 DA 20 46 4C 41  47 20 49 53 20 53 45 54  |HE . FLAG IS SET|
00001640: 0D 20 20 20 20 20 20 20  20 20 20 41 43 43 4F 52  |.          ACCOR|
00001650: 44 49 4E 47 4C 59 2E 0D  0D 0D 20 20 20 20 20 20  |DINGLY....      |
00001660: 20 20 20 20 C6 55 4E 43  54 49 4F 4E 20 CE 41 4D  |    .UNCTION .AM|
00001670: 45 3A 20 D3 D4 D2 C3 D0  D9 0D 20 20 20 20 20 20  |E: .......      |
00001680: 20 20 20 20 D0 55 52 50  4F 53 45 3A 20 C3 4F 50  |    .URPOSE: .OP|
00001690: 59 20 41 20 53 54 52 49  4E 47 2E 0D 20 20 20 20  |Y A STRING..    |
000016A0: 20 20 20 20 20 20 C3 41  4C 4C 20 41 44 44 52 45  |      .ALL ADDRE|
000016B0: 53 53 3A 20 24 C3 32 36  35 0D 20 20 20 20 20 20  |SS: $.265.      |
000016C0: 20 20 20 20 C9 4E 50 55  54 20 52 45 51 55 49 52  |    .NPUT REQUIR|
000016D0: 45 4D 45 4E 54 53 3A 0D  20 20 20 20 20 20 20 20  |EMENTS:.        |
000016E0: 20 20 20 20 20 20 20 D8  20 20 20 20 20 20 20 20  |       .        |
000016F0: 20 C1 44 44 52 45 53 53  20 4F 46 20 5A 45 52 4F  | .DDRESS OF ZERO|
00001700: 20 50 41 47 45 20 53 4F  55 52 43 45 20 50 4F 49  | PAGE SOURCE POI|
00001710: 4E 54 45 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |NTER..          |
00001720: 20 20 20 20 20 D9 20 20  20 20 20 20 20 20 20 C1  |     .         .|
00001730: 44 44 52 45 53 53 20 4F  46 20 5A 45 52 4F 20 50  |DDRESS OF ZERO P|
00001740: 41 47 45 20 44 45 53 54  49 4E 41 54 49 4F 4E 20  |AGE DESTINATION |
00001750: 50 4F 49 4E 54 45 52 2E  0D 0D 20 20 20 20 20 20  |POINTER...      |
00001760: 20 20 20 20 C4 45 53 43  52 49 50 54 49 4F 4E 3A  |    .ESCRIPTION:|
00001770: 20 20 D4 48 45 20 20 D8  20 41 4E 44 20 D9 20 52  |  .HE  . AND . R|
00001780: 45 47 49 53 54 45 52 53  20 50 4F 49 4E 54 20 54  |EGISTERS POINT T|
00001790: 4F 20 5A 45 52 4F 20 50  41 47 45 20 50 4F 49 4E  |O ZERO PAGE POIN|
000017A0: 54 45 52 53 2E 0D 20 20  20 20 20 20 20 20 20 20  |TERS..          |
000017B0: C4 41 54 41 20 49 53 20  43 4F 50 49 45 44 20 55  |.ATA IS COPIED U|
000017C0: 50 20 54 4F 20 41 4E 44  20 49 4E 43 4C 55 44 49  |P TO AND INCLUDI|
000017D0: 4E 47 20 41 20 5A 45 52  4F 20 42 59 54 45 2E 20  |NG A ZERO BYTE. |
000017E0: 20 D4 48 49 53 20 52 4F  55 54 49 4E 45 20 20 49  | .HIS ROUTINE  I|
000017F0: 53 0D 20 20 20 20 20 20  20 20 20 20 55 53 45 44  |S.          USED|
00001800: 20 54 4F 20 43 4F 50 59  20 53 54 52 49 4E 47 53  | TO COPY STRINGS|
00001810: 20 42 59 20 53 45 54 54  49 4E 47 20 C1 20 54 4F  | BY SETTING . TO|
00001820: 20 5A 45 52 4F 20 41 4E  44 20 43 41 4C 4C 49 4E  | ZERO AND CALLIN|
00001830: 47 20 C2 CC CB CD CF D6  2E 0D 0D 0D 0D 0D 0D 0D  |G ..............|
00001840: 0D 0D 0D 0D 0D 0D 0D 20  20 20 20 20 20 20 20 20  |.......         |
00001850: 20 C7 C5 CF D3 20 CB 45  52 4E 41 4C 20 D2 4F 55  | .... .ERNAL .OU|
00001860: 54 49 4E 45 53 20 20 20  20 20 20 20 20 20 20 20  |TINES           |
00001870: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001880: 20 20 20 20 20 20 20 20  20 20 20 31 2D 35 34 0D  |           1-54.|
00001890: 0D 0D 20 20 20 20 20 20  20 20 20 20 C6 55 4E 43  |..          .UNC|
000018A0: 54 49 4F 4E 20 CE 41 4D  45 3A 20 D3 D9 D3 C5 D2  |TION .AME: .....|
000018B0: D2 0D 20 20 20 20 20 20  20 20 20 20 D0 55 52 50  |..          .URP|
000018C0: 4F 53 45 3A 20 C4 52 41  57 20 41 20 53 59 53 54  |OSE: .RAW A SYST|
000018D0: 45 4D 20 45 52 52 4F 52  20 57 49 4E 44 4F 57 2C  |EM ERROR WINDOW,|
000018E0: 20 41 4E 44 20 48 41 4C  54 20 53 59 53 54 45 4D  | AND HALT SYSTEM|
000018F0: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00001900: 20 41 44 44 52 45 53 53  3A 20 24 C3 32 C3 32 0D  | ADDRESS: $.2.2.|
00001910: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00001920: 49 50 54 49 4F 4E 3A 20  20 C1 20 20 57 49 4E 44  |IPTION:  .  WIND|
00001930: 4F 57 20 20 49 53 20 44  52 41 57 4E 20 57 49 54  |OW  IS DRAWN WIT|
00001940: 48 20 54 48 45 20 4D 45  53 53 41 47 45 20 27 D3  |H THE MESSAGE '.|
00001950: 59 53 54 45 4D 20 20 45  52 52 4F 52 0D 20 20 20  |YSTEM  ERROR.   |
00001960: 20 20 20 20 20 20 20 4E  45 41 52 20 20 24 58 58  |       NEAR  $XX|
00001970: 58 58 27 2C 20 20 57 48  45 52 45 20 20 58 58 58  |XX',  WHERE  XXX|
00001980: 58 20 49 53 20 54 48 45  20 48 45 58 20 41 44 44  |X IS THE HEX ADD|
00001990: 52 45 53 53 20 4F 46 20  54 48 45 20 20 CA D3 D2  |RESS OF THE  ...|
000019A0: 20 20 D3 D9 D3 C5 D2 D2  0D 20 20 20 20 20 20 20  |  .......       |
000019B0: 20 20 20 49 4E 53 54 52  55 43 54 49 4F 4E 2E 20  |   INSTRUCTION. |
000019C0: 20 D3 49 4E 43 45 20 20  54 48 45 20 53 59 53 54  | .INCE  THE SYST|
000019D0: 45 4D 20 45 52 52 4F 52  20 57 49 4E 44 4F 57 20  |EM ERROR WINDOW |
000019E0: 48 41 53 20 4E 4F 20 57  41 59 20 4F 46 20 20 42  |HAS NO WAY OF  B|
000019F0: 45 49 4E 47 0D 20 20 20  20 20 20 20 20 20 20 43  |EING.          C|
00001A00: 4C 4F 53 45 44 2C 20 C7  C5 CF D3 20 53 49 4D 50  |LOSED, .... SIMP|
00001A10: 4C 59 20 53 49 54 53 20  49 4E 20 49 54 53 20 4D  |LY SITS IN ITS M|
00001A20: 41 49 4E 20 4C 4F 4F 50  20 46 4F 52 45 56 45 52  |AIN LOOP FOREVER|
00001A30: 2E 20 D4 48 45 20 C2 D2  CB 20 56 45 43 54 4F 52  |. .HE ... VECTOR|
00001A40: 0D 20 20 20 20 20 20 20  20 20 20 41 54 20 24 38  |.          AT $8|
00001A50: 34 C1 C6 2D 24 38 34 C2  30 20 49 53 20 49 4E 49  |4..-$84.0 IS INI|
00001A60: 54 49 41 4C 4C 59 20 53  45 54 20 54 4F 20 54 48  |TIALLY SET TO TH|
00001A70: 49 53 20 52 4F 55 54 49  4E 45 2E 0D 0D 0D 20 20  |IS ROUTINE....  |
00001A80: 20 20 20 20 20 20 20 20  C6 55 4E 43 54 49 4F 4E  |        .UNCTION|
00001A90: 20 CE 41 4D 45 3A 20 D4  C1 C2 CC C5 0D 20 20 20  | .AME: ......   |
00001AA0: 20 20 20 20 20 20 20 D0  55 52 50 4F 53 45 3A 20  |       .URPOSE: |
00001AB0: C3 52 45 41 54 45 20 41  20 4C 49 53 54 20 4F 46  |.REATE A LIST OF|
00001AC0: 20 46 49 4C 45 4E 41 4D  45 53 2E 0D 20 20 20 20  | FILENAMES..    |
00001AD0: 20 20 20 20 20 20 C3 41  4C 4C 20 41 44 44 52 45  |      .ALL ADDRE|
00001AE0: 53 53 3A 20 24 C3 32 33  C2 0D 20 20 20 20 20 20  |SS: $.23..      |
00001AF0: 20 20 20 20 C9 4E 50 55  54 20 52 45 51 55 49 52  |    .NPUT REQUIR|
00001B00: 45 4D 45 4E 54 53 3A 0D  20 20 20 20 20 20 20 20  |EMENTS:.        |
00001B10: 20 20 20 20 20 20 20 24  30 C5 2D 24 30 C6 20 20  |       $0.-$0.  |
00001B20: 20 D0 4F 49 4E 54 45 52  20 54 4F 20 42 55 46 46  | .OINTER TO BUFF|
00001B30: 45 52 20 41 52 45 41 20  46 4F 52 20 46 49 4C 45  |ER AREA FOR FILE|
00001B40: 20 4E 41 4D 45 53 2E 0D  20 20 20 20 20 20 20 20  | NAMES..        |
00001B50: 20 20 20 20 20 20 20 24  31 30 20 20 20 20 20 20  |       $10      |
00001B60: 20 C7 C5 CF D3 20 46 49  4C 45 20 54 59 50 45 2E  | .... FILE TYPE.|
00001B70: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001B80: 24 31 31 20 20 20 20 20  20 20 CD 41 58 49 4D 55  |$11       .AXIMU|
00001B90: 4D 20 4E 55 4D 42 45 52  20 4F 46 20 46 49 4C 45  |M NUMBER OF FILE|
00001BA0: 20 4E 41 4D 45 53 2E 0D  20 20 20 20 20 20 20 20  | NAMES..        |
00001BB0: 20 20 20 20 20 20 20 24  31 36 2D 24 31 37 20 20  |       $16-$17  |
00001BC0: 20 D0 4F 49 4E 54 45 52  20 54 4F 20 43 4C 41 53  | .OINTER TO CLAS|
00001BD0: 53 2E 0D 20 20 20 20 20  20 20 20 20 20 CF 55 54  |S..          .UT|
00001BE0: 50 55 54 3A 0D 20 20 20  20 20 20 20 20 20 20 20  |PUT:.           |
00001BF0: 20 20 20 20 24 31 31 20  20 20 20 20 20 20 CE 55  |    $11       .U|
00001C00: 4D 42 45 52 20 4F 46 20  46 49 4C 45 53 20 4E 4F  |MBER OF FILES NO|
00001C10: 54 20 46 4F 55 4E 44 2E  0D 20 20 20 20 20 20 20  |T FOUND..       |
00001C20: 20 20 20 20 20 20 20 20  D4 48 45 20 54 41 42 4C  |        .HE TABL|
00001C30: 45 20 49 53 20 46 49 4C  4C 45 44 20 57 49 54 48  |E IS FILLED WITH|
00001C40: 20 46 49 4C 45 4E 41 4D  45 53 2E 0D 20 20 20 20  | FILENAMES..    |
00001C50: 20 20 20 20 20 20 C5 52  52 4F 52 53 3A 20 D3 45  |      .RRORS: .E|
00001C60: 45 20 C1 50 50 45 4E 44  49 58 20 C9 2E 0D 0D 20  |E .PPENDIX .... |
00001C70: 20 20 20 20 20 20 20 20  20 C4 45 53 43 52 49 50  |         .ESCRIP|
00001C80: 54 49 4F 4E 3A 20 20 D4  48 49 53 20 20 49 53 20  |TION:  .HIS  IS |
00001C90: 41 20 56 45 52 59 20 55  53 45 46 55 4C 20 52 4F  |A VERY USEFUL RO|
00001CA0: 55 54 49 4E 45 2E 20 20  C7 49 56 45 4E 20 41 20  |UTINE.  .IVEN A |
00001CB0: C7 C5 CF D3 20 20 46 49  4C 45 0D 20 20 20 20 20  |....  FILE.     |
00001CC0: 20 20 20 20 20 54 59 50  45 2C 20 20 41 20 20 4C  |     TYPE,  A  L|
00001CD0: 49 53 54 20 4F 46 20 46  49 4C 45 53 20 57 49 54  |IST OF FILES WIT|
00001CE0: 48 20 54 48 41 54 20 54  59 50 45 20 49 53 20 43  |H THAT TYPE IS C|
00001CF0: 52 45 41 54 45 44 2E 20  20 C9 46 20 54 48 45 20  |REATED.  .F THE |
00001D00: 20 43 4C 41 53 53 0D 20  20 20 20 20 20 20 20 20  | CLASS.         |
00001D10: 20 50 4F 49 4E 54 45 52  20 20 49 53 20 4E 4F 4E  | POINTER  IS NON|
00001D20: 2D 5A 45 52 4F 20 54 48  45 4E 20 45 41 43 48 20  |-ZERO THEN EACH |
00001D30: 46 49 4C 45 27 53 20 49  4E 46 4F 20 53 45 43 54  |FILE'S INFO SECT|
00001D40: 4F 52 20 49 53 20 43 48  45 43 4B 45 44 20 20 46  |OR IS CHECKED  F|
00001D50: 4F 52 0D 20 20 20 20 20  20 20 20 20 20 50 52 4F  |OR.          PRO|
00001D60: 50 45 52 20 20 43 4C 41  53 53 2E 20 20 D4 48 49  |PER  CLASS.  .HI|
00001D70: 53 20 49 53 20 48 4F 57  20 C7 C5 CF 50 41 49 4E  |S IS HOW ...PAIN|
00001D80: 54 20 41 4E 44 20 C7 C5  CF 57 52 49 54 45 20 43  |T AND ...WRITE C|
00001D90: 41 4E 20 42 4F 54 48 20  43 52 45 41 54 45 0D 20  |AN BOTH CREATE. |
00001DA0: 20 20 20 20 20 20 20 20  20 C1 50 50 4C 49 43 41  |         .PPLICA|
00001DB0: 54 49 4F 4E 20 20 C4 41  54 41 20 20 46 49 4C 45  |TION  .ATA  FILE|
00001DC0: 53 20 20 41 4E 44 20 4E  4F 54 20 20 53 45 45 20  |S  AND NOT  SEE |
00001DD0: 20 45 41 43 48 20 20 4F  54 48 45 52 53 20 20 46  | EACH  OTHERS  F|
00001DE0: 49 4C 45 53 2E 20 20 D4  48 45 0D 20 20 20 20 20  |ILES.  .HE.     |
00001DF0: 20 20 20 20 20 46 49 4C  45 4E 41 4D 45 53 20 41  |     FILENAMES A|
00001E00: 52 45 20 54 45 58 54 20  53 54 52 49 4E 47 53 20  |RE TEXT STRINGS |
00001E10: 57 49 54 48 20 5A 45 52  4F 20 42 59 54 45 20 54  |WITH ZERO BYTE T|
00001E20: 45 52 4D 49 4E 41 54 4F  52 53 2E 20 C5 41 43 48  |ERMINATORS. .ACH|
00001E30: 20 45 4E 54 52 59 0D 20  20 20 20 20 20 20 20 20  | ENTRY.         |
00001E40: 20 49 53 20 49 4E 44 45  58 45 44 20 57 49 54 48  | IS INDEXED WITH|
00001E50: 20 41 20 4D 55 4C 54 49  50 4C 45 20 4F 46 20 31  | A MULTIPLE OF 1|
00001E60: 37 20 28 31 36 20 42 59  54 45 20 46 49 4C 45 4E  |7 (16 BYTE FILEN|
00001E70: 41 4D 45 20 4D 41 58 2E  20 50 4C 55 53 20 5A 45  |AME MAX. PLUS ZE|
00001E80: 52 4F 0D 20 20 20 20 20  20 20 20 20 20 42 59 54  |RO.          BYT|
00001E90: 45 29 2E 20 20 CC 4F 43  41 54 49 4F 4E 20 20 24  |E).  .OCATION  $|
00001EA0: 31 31 20 48 41 53 20 54  48 45 20 4E 55 4D 42 45  |11 HAS THE NUMBE|
00001EB0: 52 20 4F 46 20 54 41 42  4C 45 20 45 4E 54 52 49  |R OF TABLE ENTRI|
00001EC0: 45 53 20 4E 4F 54 20 46  49 4C 4C 45 44 2E 0D 20  |ES NOT FILLED.. |
00001ED0: 20 20 20 20 20 20 20 20  20 D4 4F 20 20 47 45 54  |         .O  GET|
00001EE0: 20 54 48 45 20 4E 55 4D  42 45 52 20 4F 46 20 46  | THE NUMBER OF F|
00001EF0: 49 4C 45 53 20 41 43 54  55 41 4C 4C 59 20 46 4F  |ILES ACTUALLY FO|
00001F00: 55 4E 44 2C 20 20 54 48  49 53 20 56 41 4C 55 45  |UND,  THIS VALUE|
00001F10: 20 20 4D 55 53 54 20 20  42 45 0D 20 20 20 20 20  |  MUST  BE.     |
00001F20: 20 20 20 20 20 53 55 42  54 52 41 43 54 45 44 20  |     SUBTRACTED |
00001F30: 46 52 4F 4D 20 54 48 45  20 4F 52 49 47 49 4E 41  |FROM THE ORIGINA|
00001F40: 4C 20 4D 41 58 49 4D 55  4D 20 42 55 46 46 45 52  |L MAXIMUM BUFFER|
00001F50: 20 4C 45 4E 47 54 48 2E  0D 0D 0D 20 20 20 20 20  | LENGTH....     |
00001F60: 20 20 20 20 20 C6 55 4E  43 54 49 4F 4E 20 CE 41  |     .UNCTION .A|
00001F70: 4D 45 3A 20 D4 C2 CC CA  CD D0 0D 20 20 20 20 20  |ME: .......     |
00001F80: 20 20 20 20 20 D0 55 52  50 4F 53 45 3A 20 CA 55  |     .URPOSE: .U|
00001F90: 4D 50 20 54 48 52 4F 55  47 48 20 41 20 54 41 42  |MP THROUGH A TAB|
00001FA0: 4C 45 2E 0D 20 20 20 20  20 20 20 20 20 20 C3 41  |LE..          .A|
00001FB0: 4C 4C 20 41 44 44 52 45  53 53 3A 20 24 C3 32 C1  |LL ADDRESS: $.2.|
00001FC0: 34 0D 20 20 20 20 20 20  20 20 20 20 C9 4E 50 55  |4.          .NPU|
00001FD0: 54 20 52 45 51 55 49 52  45 4D 45 4E 54 53 3A 0D  |T REQUIREMENTS:.|
00001FE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 C1  |               .|
00001FF0: 20 20 20 20 20 20 20 20  20 CF 46 46 53 45 54 20  |         .FFSET |
00002000: 49 4E 54 4F 20 54 41 42  4C 45 2E 0D 20 20 20 20  |INTO TABLE..    |
00002010: 20 20 20 20 20 20 20 20  20 20 20 24 33 C4 2D 24  |           $3.-$|
00002020: 33 C5 20 20 20 D4 41 42  4C 45 20 41 44 44 52 45  |3.   .ABLE ADDRE|
00002030: 53 53 2E 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  |SS...          .|
00002040: 45 53 43 52 49 50 54 49  4F 4E 3A 20 20 D4 48 49  |ESCRIPTION:  .HI|
00002050: 53 20 52 4F 55 54 49 4E  45 20 49 53 20 43 41 4C  |S ROUTINE IS CAL|
00002060: 4C 45 44 20 42 59 20 41  4C 4C 20 4F 46 20 54 48  |LED BY ALL OF TH|
00002070: 45 20 52 4F 55 54 49 4E  45 53 20 20 54 48 41 54  |E ROUTINES  THAT|
00002080: 0D 20 20 20 20 20 20 20  20 20 20 48 41 56 45 20  |.          HAVE |
00002090: 20 49 4E 4C 49 4E 45 20  44 41 54 41 2E 20 20 D4  | INLINE DATA.  .|
000020A0: 48 45 59 20 41 4C 4C 20  53 45 54 20 24 33 C4 2D  |HEY ALL SET $3.-|
000020B0: 24 33 C5 20 54 4F 20 54  48 45 20 52 45 54 55 52  |$3. TO THE RETUR|
000020C0: 4E 20 41 44 44 52 45 53  53 20 4F 46 0D 20 20 20  |N ADDRESS OF.   |
000020D0: 20 20 20 20 20 20 20 54  48 45 20 20 43 41 4C 4C  |       THE  CALL|
000020E0: 45 52 2C 20 20 49 4E 44  45 58 20 4F 46 46 20 4F  |ER,  INDEX OFF O|
000020F0: 46 20 54 48 49 53 20 50  4F 49 4E 54 45 52 20 54  |F THIS POINTER T|
00002100: 4F 20 47 45 54 20 54 48  45 49 52 20 20 44 41 54  |O GET THEIR  DAT|
00002110: 41 2C 20 20 54 48 45 4E  0D 20 20 20 20 20 20 20  |A,  THEN.       |
00002120: 20 20 20 43 41 4C 4C 20  20 54 48 45 20 41 50 50  |   CALL  THE APP|
00002130: 52 4F 50 52 49 41 54 45  20 52 4F 55 54 49 4E 45  |ROPRIATE ROUTINE|
00002140: 2E 20 20 D7 48 45 4E 20  54 48 45 20 52 4F 55 54  |.  .HEN THE ROUT|
00002150: 49 4E 45 20 46 49 4E 49  53 48 45 53 2C 20 20 C1  |INE FINISHES,  .|
00002160: 20 20 49 53 0D 20 20 20  20 20 20 20 20 20 20 4C  |  IS.          L|
00002170: 4F 41 44 45 44 20 57 49  54 48 20 54 48 45 20 44  |OADED WITH THE D|
00002180: 41 54 41 20 54 41 42 4C  45 27 53 20 4C 45 4E 47  |ATA TABLE'S LENG|
00002190: 54 48 20 41 4E 44 20 54  48 49 53 20 52 4F 55 54  |TH AND THIS ROUT|
000021A0: 49 4E 45 20 49 53 20 43  41 4C 4C 45 44 20 54 4F  |INE IS CALLED TO|
000021B0: 0D 20 20 20 20 20 20 20  20 20 20 52 45 54 55 52  |.          RETUR|
000021C0: 4E 20 43 4F 4E 54 52 4F  4C 20 54 4F 20 54 48 45  |N CONTROL TO THE|
000021D0: 20 43 41 4C 4C 45 52 20  41 46 54 45 52 20 54 48  | CALLER AFTER TH|
000021E0: 45 20 44 41 54 41 20 54  41 42 4C 45 2E 0D 0D 0D  |E DATA TABLE....|
000021F0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 20 20 20 20  |............    |
00002200: 20 20 20 20 20 20 C7 C5  CF D3 20 CB 45 52 4E 41  |      .... .ERNA|
00002210: 4C 20 D2 4F 55 54 49 4E  45 53 20 20 20 20 20 20  |L .OUTINES      |
00002220: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002230: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002240: 31 2D 35 35 0D 0D 0D 20  20 20 20 20 20 20 20 20  |1-55...         |
00002250: 20 C6 55 4E 43 54 49 4F  4E 20 CE 41 4D 45 3A 20  | .UNCTION .AME: |
00002260: D4 C5 D3 D4 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
00002270: 55 52 50 4F 53 45 3A 20  D4 45 53 54 53 20 54 48  |URPOSE: .ESTS TH|
00002280: 45 20 56 41 4C 55 45 20  4F 46 20 41 20 50 4F 49  |E VALUE OF A POI|
00002290: 4E 54 20 4F 4E 20 54 48  45 20 48 49 52 45 53 20  |NT ON THE HIRES |
000022A0: 53 43 52 45 45 4E 2E 0D  20 20 20 20 20 20 20 20  |SCREEN..        |
000022B0: 20 20 C3 41 4C 4C 20 41  44 44 52 45 53 53 3A 20  |  .ALL ADDRESS: |
000022C0: 24 C3 31 33 C6 0D 20 20  20 20 20 20 20 20 20 20  |$.13..          |
000022D0: C9 4E 50 55 54 20 52 45  51 55 49 52 45 4D 45 4E  |.NPUT REQUIREMEN|
000022E0: 54 53 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |TS:.            |
000022F0: 20 20 20 24 30 38 2D 24  30 39 20 20 20 D4 48 45  |   $08-$09   .HE|
00002300: 20 43 4F 4C 55 4D 4E 20  4E 55 4D 42 45 52 2E 0D  | COLUMN NUMBER..|
00002310: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00002320: 31 38 20 20 20 20 20 20  20 D4 48 45 20 52 4F 57  |18       .HE ROW|
00002330: 20 4E 55 4D 42 45 52 2E  0D 20 20 20 20 20 20 20  | NUMBER..       |
00002340: 20 20 20 CF 55 54 50 55  54 3A 0D 20 20 20 20 20  |   .UTPUT:.     |
00002350: 20 20 20 20 20 20 20 20  20 20 C3 20 46 4C 41 47  |          . FLAG|
00002360: 20 49 53 20 53 45 54 20  54 4F 20 54 48 45 20 56  | IS SET TO THE V|
00002370: 41 4C 55 45 20 4F 46 20  54 48 45 20 50 49 58 45  |ALUE OF THE PIXE|
00002380: 4C 2E 0D 0D 20 20 20 20  20 20 20 20 20 20 C4 45  |L...          .E|
00002390: 53 43 52 49 50 54 49 4F  4E 3A 20 D4 45 53 54 53  |SCRIPTION: .ESTS|
000023A0: 20 57 48 45 54 48 45 52  20 4F 52 20 4E 4F 54 20  | WHETHER OR NOT |
000023B0: 41 20 47 49 56 45 4E 20  50 49 58 45 4C 20 49 53  |A GIVEN PIXEL IS|
000023C0: 20 4F 4E 20 4F 52 20 4E  4F 54 2E 20 D4 48 45 0D  | ON OR NOT. .HE.|
000023D0: 20 20 20 20 20 20 20 20  20 20 43 41 52 52 59 20  |          CARRY |
000023E0: 46 4C 41 47 20 49 53 20  53 45 54 20 54 4F 20 54  |FLAG IS SET TO T|
000023F0: 48 45 20 56 41 4C 55 45  20 4F 46 20 54 48 45 20  |HE VALUE OF THE |
00002400: 50 49 58 45 4C 2E 0D 0D  0D 20 20 20 20 20 20 20  |PIXEL....       |
00002410: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00002420: 3A 20 D4 D2 C1 C3 C5 0D  20 20 20 20 20 20 20 20  |: ......        |
00002430: 20 20 D0 55 52 50 4F 53  45 3A 20 C3 52 45 41 54  |  .URPOSE: .REAT|
00002440: 45 20 41 20 54 41 42 4C  45 20 4F 46 20 54 52 41  |E A TABLE OF TRA|
00002450: 43 4B 53 20 41 4E 44 20  53 45 43 54 4F 52 53 2E  |CKS AND SECTORS.|
00002460: 0D 20 20 20 20 20 20 20  20 20 20 C3 41 4C 4C 20  |.          .ALL |
00002470: 41 44 44 52 45 53 53 3A  20 24 C3 32 30 35 0D 20  |ADDRESS: $.205. |
00002480: 20 20 20 20 20 20 20 20  20 C9 4E 50 55 54 20 52  |         .NPUT R|
00002490: 45 51 55 49 52 45 4D 45  4E 54 53 3A 0D 20 20 20  |EQUIREMENTS:.   |
000024A0: 20 20 20 20 20 20 20 20  20 20 20 20 24 30 34 20  |            $04 |
000024B0: 20 20 20 20 20 20 C9 4E  49 54 49 41 4C 20 54 52  |      .NITIAL TR|
000024C0: 41 43 4B 20 4E 55 4D 42  45 52 2E 0D 20 20 20 20  |ACK NUMBER..    |
000024D0: 20 20 20 20 20 20 20 20  20 20 20 24 30 35 20 20  |           $05  |
000024E0: 20 20 20 20 20 C9 4E 49  54 49 41 4C 20 53 45 43  |     .NITIAL SEC|
000024F0: 54 4F 52 20 4E 55 4D 42  45 52 2E 0D 20 20 20 20  |TOR NUMBER..    |
00002500: 20 20 20 20 20 20 20 20  20 20 20 24 30 38 2D 24  |           $08-$|
00002510: 30 39 20 20 20 C1 44 44  52 45 53 53 20 4F 46 20  |09   .DDRESS OF |
00002520: 54 41 42 4C 45 20 54 4F  20 42 45 20 43 52 45 41  |TABLE TO BE CREA|
00002530: 54 45 44 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |TED..          .|
00002540: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00002550: 20 20 20 20 20 20 D4 41  42 4C 45 20 20 50 4F 49  |      .ABLE  POI|
00002560: 4E 54 45 44 20 20 54 4F  20 42 59 20 24 30 38 2D  |NTED  TO BY $08-|
00002570: 24 30 39 20 49 53 20 46  49 4C 4C 45 44 20 57 49  |$09 IS FILLED WI|
00002580: 54 48 20 41 4C 4C 20 54  48 45 20 20 54 52 41 43  |TH ALL THE  TRAC|
00002590: 4B 53 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |KS.             |
000025A0: 20 20 41 4E 44 20 53 45  43 54 4F 52 53 20 4C 49  |  AND SECTORS LI|
000025B0: 4E 4B 45 44 20 54 4F 20  54 48 45 20 49 4E 49 54  |NKED TO THE INIT|
000025C0: 49 41 4C 20 53 45 43 54  4F 52 2E 0D 20 20 20 20  |IAL SECTOR..    |
000025D0: 20 20 20 20 20 20 C5 52  52 4F 52 53 3A 20 D3 45  |      .RRORS: .E|
000025E0: 45 20 C1 50 50 45 4E 44  49 58 0D 0D 20 20 20 20  |E .PPENDIX..    |
000025F0: 20 20 20 20 20 20 C4 45  53 43 52 49 50 54 49 4F  |      .ESCRIPTIO|
00002600: 4E 3A 20 20 C7 49 56 45  4E 20 20 41 4E 20 49 4E  |N:  .IVEN  AN IN|
00002610: 49 54 49 41 4C 20 54 52  41 43 4B 20 41 4E 44 20  |ITIAL TRACK AND |
00002620: 20 53 45 43 54 4F 52 2C  20 20 54 48 49 53 20 20  | SECTOR,  THIS  |
00002630: 52 4F 55 54 49 4E 45 0D  20 20 20 20 20 20 20 20  |ROUTINE.        |
00002640: 20 20 54 52 41 43 45 53  20 20 41 20 43 48 41 49  |  TRACES  A CHAI|
00002650: 4E 20 41 4E 44 20 52 45  54 55 52 4E 53 20 41 20  |N AND RETURNS A |
00002660: 4C 49 53 54 20 4F 46 20  41 4C 4C 20 54 48 45 20  |LIST OF ALL THE |
00002670: 54 52 41 43 4B 53 20 41  4E 44 20 20 53 45 43 54  |TRACKS AND  SECT|
00002680: 4F 52 53 0D 20 20 20 20  20 20 20 20 20 20 45 4E  |ORS.          EN|
00002690: 43 4F 55 4E 54 45 52 45  44 2E 20 20 D4 48 49 53  |COUNTERED.  .HIS|
000026A0: 20 52 4F 55 54 49 4E 45  20 55 53 45 53 20 54 48  | ROUTINE USES TH|
000026B0: 45 20 42 55 46 46 45 52  20 41 54 20 24 38 30 30  |E BUFFER AT $800|
000026C0: 30 2D 24 38 30 C6 C6 20  54 4F 20 52 45 41 44 0D  |0-$80.. TO READ.|
000026D0: 20 20 20 20 20 20 20 20  20 20 54 48 45 20 53 45  |          THE SE|
000026E0: 43 54 4F 52 53 2E 0D 0D  0D 20 20 20 20 20 20 20  |CTORS....       |
000026F0: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00002700: 3A 20 D5 C4 31 36 31 36  0D 20 20 20 20 20 20 20  |: ..1616.       |
00002710: 20 20 20 D0 55 52 50 4F  53 45 3A 20 D5 4E 53 49  |   .URPOSE: .NSI|
00002720: 47 4E 45 44 20 31 36 20  42 49 54 20 42 59 20 31  |GNED 16 BIT BY 1|
00002730: 36 20 42 49 54 20 44 49  56 49 53 49 4F 4E 2E 0D  |6 BIT DIVISION..|
00002740: 20 20 20 20 20 20 20 20  20 20 C3 41 4C 4C 20 41  |          .ALL A|
00002750: 44 44 52 45 53 53 3A 20  24 C3 31 36 39 0D 20 20  |DDRESS: $.169.  |
00002760: 20 20 20 20 20 20 20 20  C9 4E 50 55 54 20 52 45  |        .NPUT RE|
00002770: 51 55 49 52 45 4D 45 4E  54 53 3A 0D 20 20 20 20  |QUIREMENTS:.    |
00002780: 20 20 20 20 20 20 20 20  20 20 20 D9 20 20 20 20  |           .    |
00002790: 20 20 20 20 20 D4 48 45  20 41 44 44 52 45 53 53  |     .HE ADDRESS|
000027A0: 20 4F 46 20 54 48 45 20  31 36 20 42 49 54 20 44  | OF THE 16 BIT D|
000027B0: 49 56 49 53 4F 52 2E 0D  20 20 20 20 20 20 20 20  |IVISOR..        |
000027C0: 20 20 20 20 20 20 20 D8  20 20 20 20 20 20 20 20  |       .        |
000027D0: 20 D4 48 45 20 41 44 44  52 45 53 53 20 4F 46 20  | .HE ADDRESS OF |
000027E0: 54 48 45 20 31 36 20 42  49 54 20 44 49 56 49 44  |THE 16 BIT DIVID|
000027F0: 45 4E 44 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |END..          .|
00002800: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00002810: 20 20 20 20 20 20 D8 20  20 20 20 20 20 20 20 20  |      .         |
00002820: D4 48 45 20 41 44 44 52  45 53 53 20 4F 46 20 54  |.HE ADDRESS OF T|
00002830: 48 45 20 31 36 20 42 49  54 20 51 55 4F 54 49 45  |HE 16 BIT QUOTIE|
00002840: 4E 54 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |NT..            |
00002850: 20 20 20 24 31 32 2D 24  31 33 20 20 20 D4 48 45  |   $12-$13   .HE|
00002860: 20 31 36 20 42 49 54 20  52 45 4D 41 49 4E 44 45  | 16 BIT REMAINDE|
00002870: 52 2E 0D 0D 20 20 20 20  20 20 20 20 20 20 C4 45  |R...          .E|
00002880: 53 43 52 49 50 54 49 4F  4E 3A 20 D4 48 49 53 20  |SCRIPTION: .HIS |
00002890: 52 4F 55 54 49 4E 45 20  49 53 20 4F 4E 45 20 4F  |ROUTINE IS ONE O|
000028A0: 46 20 54 48 45 20 C7 C5  CF D3 20 4D 41 54 48 20  |F THE .... MATH |
000028B0: 52 4F 55 54 49 4E 45 53  2E 20 D8 20 41 4E 44 0D  |ROUTINES. . AND.|
000028C0: 20 20 20 20 20 20 20 20  20 20 D9 20 20 45 41 43  |          .  EAC|
000028D0: 48 20 48 41 56 45 20 54  48 45 20 41 44 44 52 45  |H HAVE THE ADDRE|
000028E0: 53 53 20 4F 46 20 41 20  54 45 52 4D 20 49 4E 20  |SS OF A TERM IN |
000028F0: 54 48 45 20 44 49 56 49  53 49 4F 4E 2E 20 20 D4  |THE DIVISION.  .|
00002900: 48 45 20 51 55 4F 54 49  45 4E 54 0D 20 20 20 20  |HE QUOTIENT.    |
00002910: 20 20 20 20 20 20 49 53  20 20 53 54 4F 52 45 44  |      IS  STORED|
00002920: 20 49 4E 20 50 4C 41 43  45 20 4F 46 20 54 48 45  | IN PLACE OF THE|
00002930: 20 4F 52 49 47 49 4E 41  4C 20 44 49 56 49 44 45  | ORIGINAL DIVIDE|
00002940: 4E 44 20 54 48 41 54 20  D8 20 20 50 4F 49 4E 54  |ND THAT .  POINT|
00002950: 45 44 20 20 54 4F 2E 0D  20 20 20 20 20 20 20 20  |ED  TO..        |
00002960: 20 20 D4 48 45 20 44 49  56 49 44 45 4E 44 20 49  |  .HE DIVIDEND I|
00002970: 53 20 4C 45 46 54 20 55  4E 54 4F 55 43 48 45 44  |S LEFT UNTOUCHED|
00002980: 2E 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
00002990: 0D 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C7 C5  |....          ..|
000029A0: CF D3 20 CB 45 52 4E 41  4C 20 D2 4F 55 54 49 4E  |.. .ERNAL .OUTIN|
000029B0: 45 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ES              |
000029C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000029D0: 20 20 20 20 20 20 20 20  31 2D 35 36 0D 0D 0D 20  |        1-56... |
000029E0: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
000029F0: 4E 20 CE 41 4D 45 3A 20  D5 CD 31 36 31 36 0D 20  |N .AME: ..1616. |
00002A00: 20 20 20 20 20 20 20 20  20 D0 55 52 50 4F 53 45  |         .URPOSE|
00002A10: 3A 20 D5 4E 53 49 47 4E  45 44 20 31 36 20 42 49  |: .NSIGNED 16 BI|
00002A20: 54 20 42 59 20 31 36 20  42 49 54 20 4D 55 4C 54  |T BY 16 BIT MULT|
00002A30: 49 50 4C 59 2E 0D 20 20  20 20 20 20 20 20 20 20  |IPLY..          |
00002A40: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
00002A50: 31 36 36 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |166.          .N|
00002A60: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
00002A70: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
00002A80: 20 D9 20 20 20 20 20 20  20 20 20 D4 48 45 20 41  | .         .HE A|
00002A90: 44 44 52 45 53 53 20 4F  46 20 54 48 45 20 31 36  |DDRESS OF THE 16|
00002AA0: 20 42 49 54 20 4D 55 4C  54 49 50 4C 49 45 52 2E  | BIT MULTIPLIER.|
00002AB0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00002AC0: D8 20 20 20 20 20 20 20  20 20 D4 48 45 20 41 44  |.         .HE AD|
00002AD0: 44 52 45 53 53 20 4F 46  20 54 48 45 20 31 36 20  |DRESS OF THE 16 |
00002AE0: 42 49 54 20 4D 55 4C 54  49 50 4C 49 43 41 4E 44  |BIT MULTIPLICAND|
00002AF0: 2E 0D 20 20 20 20 20 20  20 20 20 20 CF 55 54 50  |..          .UTP|
00002B00: 55 54 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |UT:.            |
00002B10: 20 20 20 D8 20 20 20 20  20 20 20 20 20 D4 48 45  |   .         .HE|
00002B20: 20 41 44 44 52 45 53 53  20 4F 46 20 54 48 45 20  | ADDRESS OF THE |
00002B30: 31 36 20 42 49 54 20 52  45 53 55 4C 54 2E 0D 0D  |16 BIT RESULT...|
00002B40: 20 20 20 20 20 20 20 20  20 20 C4 45 53 43 52 49  |          .ESCRI|
00002B50: 50 54 49 4F 4E 3A 20 D4  48 49 53 20 52 4F 55 54  |PTION: .HIS ROUT|
00002B60: 49 4E 45 20 49 53 20 4F  4E 45 20 4F 46 20 54 48  |INE IS ONE OF TH|
00002B70: 45 20 C7 C5 CF D3 20 4D  41 54 48 20 52 4F 55 54  |E .... MATH ROUT|
00002B80: 49 4E 45 53 2E 20 D8 20  41 4E 44 0D 20 20 20 20  |INES. . AND.    |
00002B90: 20 20 20 20 20 20 D9 20  45 41 43 48 20 48 41 56  |      . EACH HAV|
00002BA0: 45 20 20 54 48 45 20 20  41 44 44 52 45 53 53 20  |E  THE  ADDRESS |
00002BB0: 20 4F 46 20 41 20 54 45  52 4D 20 49 4E 20 54 48  | OF A TERM IN TH|
00002BC0: 45 20 20 4D 55 4C 54 49  50 4C 49 43 41 54 49 4F  |E  MULTIPLICATIO|
00002BD0: 4E 2E 20 20 D4 48 45 0D  20 20 20 20 20 20 20 20  |N.  .HE.        |
00002BE0: 20 20 52 45 53 55 4C 54  20 49 53 20 20 53 54 4F  |  RESULT IS  STO|
00002BF0: 52 45 44 20 20 49 4E 20  20 50 4C 41 43 45 20 4F  |RED  IN  PLACE O|
00002C00: 46 20 54 48 45 20 20 4F  52 49 47 49 4E 41 4C 20  |F THE  ORIGINAL |
00002C10: 4D 55 4C 54 49 50 4C 49  43 41 4E 44 20 54 48 41  |MULTIPLICAND THA|
00002C20: 54 20 D8 0D 20 20 20 20  20 20 20 20 20 20 50 4F  |T ..          PO|
00002C30: 49 4E 54 45 44 20 54 4F  2E 20 20 D4 48 45 20 4D  |INTED TO.  .HE M|
00002C40: 55 4C 54 49 50 4C 49 45  52 20 50 4F 49 4E 54 45  |ULTIPLIER POINTE|
00002C50: 44 20 54 4F 20 42 59 20  D9 20 49 53 20 55 4E 54  |D TO BY . IS UNT|
00002C60: 4F 55 43 48 45 44 2E 0D  0D 0D 20 20 20 20 20 20  |OUCHED....      |
00002C70: 20 20 20 20 C6 55 4E 43  54 49 4F 4E 20 CE 41 4D  |    .UNCTION .AM|
00002C80: 45 3A 20 D5 CD 31 36 38  0D 20 20 20 20 20 20 20  |E: ..168.       |
00002C90: 20 20 20 D0 55 52 50 4F  53 45 3A 20 D5 4E 53 49  |   .URPOSE: .NSI|
00002CA0: 47 4E 45 44 20 38 20 42  49 54 20 42 59 20 31 36  |GNED 8 BIT BY 16|
00002CB0: 20 42 49 54 20 4D 55 4C  54 49 50 4C 59 2E 0D 20  | BIT MULTIPLY.. |
00002CC0: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
00002CD0: 44 52 45 53 53 3A 20 24  C3 31 36 33 0D 20 20 20  |DRESS: $.163.   |
00002CE0: 20 20 20 20 20 20 20 C9  4E 50 55 54 20 52 45 51  |       .NPUT REQ|
00002CF0: 55 49 52 45 4D 45 4E 54  53 3A 0D 20 20 20 20 20  |UIREMENTS:.     |
00002D00: 20 20 20 20 20 20 20 20  20 20 D9 20 20 20 20 20  |          .     |
00002D10: 20 20 20 20 D4 48 45 20  41 44 44 52 45 53 53 20  |    .HE ADDRESS |
00002D20: 4F 46 20 54 48 45 20 38  20 42 49 54 20 4D 55 4C  |OF THE 8 BIT MUL|
00002D30: 54 49 50 4C 49 45 52 2E  0D 20 20 20 20 20 20 20  |TIPLIER..       |
00002D40: 20 20 20 20 20 20 20 20  D8 20 20 20 20 20 20 20  |        .       |
00002D50: 20 20 D4 48 45 20 41 44  44 52 45 53 53 20 4F 46  |  .HE ADDRESS OF|
00002D60: 20 54 48 45 20 31 36 20  42 49 54 20 4D 55 4C 54  | THE 16 BIT MULT|
00002D70: 49 50 4C 49 43 41 4E 44  2E 0D 20 20 20 20 20 20  |IPLICAND..      |
00002D80: 20 20 20 20 CF 55 54 50  55 54 3A 0D 20 20 20 20  |    .UTPUT:.    |
00002D90: 20 20 20 20 20 20 20 20  20 20 20 D8 20 20 20 20  |           .    |
00002DA0: 20 20 20 20 20 D4 48 45  20 41 44 44 52 45 53 53  |     .HE ADDRESS|
00002DB0: 20 4F 46 20 54 48 45 20  31 36 20 42 49 54 20 50  | OF THE 16 BIT P|
00002DC0: 52 4F 44 55 43 54 2E 0D  0D 20 20 20 20 20 20 20  |RODUCT...       |
00002DD0: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00002DE0: D4 48 49 53 20 52 4F 55  54 49 4E 45 20 49 53 20  |.HIS ROUTINE IS |
00002DF0: 4F 4E 45 20 4F 46 20 54  48 45 20 C7 C5 CF D3 20  |ONE OF THE .... |
00002E00: 4D 41 54 48 20 52 4F 55  54 49 4E 45 53 2E 20 D8  |MATH ROUTINES. .|
00002E10: 20 41 4E 44 0D 20 20 20  20 20 20 20 20 20 20 D9  | AND.          .|
00002E20: 20 20 45 41 43 48 20 20  48 41 56 45 20 54 48 45  |  EACH  HAVE THE|
00002E30: 20 41 44 44 52 45 53 53  20 4F 46 20 41 20 54 45  | ADDRESS OF A TE|
00002E40: 52 4D 20 49 4E 20 20 54  48 45 20 20 4D 55 4C 54  |RM IN  THE  MULT|
00002E50: 49 50 4C 49 43 41 54 49  4F 4E 2E 20 20 D4 48 45  |IPLICATION.  .HE|
00002E60: 0D 20 20 20 20 20 20 20  20 20 20 52 45 53 55 4C  |.          RESUL|
00002E70: 54 20 20 49 53 20 20 53  54 4F 52 45 44 20 49 4E  |T  IS  STORED IN|
00002E80: 20 50 4C 41 43 45 20 4F  46 20 54 48 45 20 4F 52  | PLACE OF THE OR|
00002E90: 49 47 49 4E 41 4C 20 4D  55 4C 54 49 50 4C 49 43  |IGINAL MULTIPLIC|
00002EA0: 41 4E 44 20 20 54 48 41  54 20 20 D8 0D 20 20 20  |AND  THAT  ..   |
00002EB0: 20 20 20 20 20 20 20 50  4F 49 4E 54 45 44 20 20  |       POINTED  |
00002EC0: 54 4F 2E 20 20 D4 48 45  20 42 59 54 45 20 46 4F  |TO.  .HE BYTE FO|
00002ED0: 4C 4C 4F 57 49 4E 47 20  54 48 45 20 4D 55 4C 54  |LLOWING THE MULT|
00002EE0: 49 50 4C 49 45 52 20 49  53 20 53 45 54 20 20 54  |IPLIER IS SET  T|
00002EF0: 4F 20 20 5A 45 52 4F 2C  0D 20 20 20 20 20 20 20  |O  ZERO,.       |
00002F00: 20 20 20 54 48 45 4E 20  43 4F 4E 54 52 4F 4C 20  |   THEN CONTROL |
00002F10: 50 41 53 53 45 53 20 54  4F 20 D5 CD 31 36 31 36  |PASSES TO ..1616|
00002F20: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
00002F30: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 D5 CD D5  |NCTION .AME: ...|
00002F40: CC 38 38 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |.88.          .U|
00002F50: 52 50 4F 53 45 3A 20 D5  4E 53 49 47 4E 45 44 20  |RPOSE: .NSIGNED |
00002F60: 38 20 42 49 54 20 42 59  20 38 20 42 49 54 20 4D  |8 BIT BY 8 BIT M|
00002F70: 55 4C 54 49 50 4C 59 2E  0D 20 20 20 20 20 20 20  |ULTIPLY..       |
00002F80: 20 20 20 C3 41 4C 4C 20  41 44 44 52 45 53 53 3A  |   .ALL ADDRESS:|
00002F90: 20 24 C3 31 36 30 0D 20  20 20 20 20 20 20 20 20  | $.160.         |
00002FA0: 20 C9 4E 50 55 54 20 52  45 51 55 49 52 45 4D 45  | .NPUT REQUIREME|
00002FB0: 4E 54 53 3A 0D 20 20 20  20 20 20 20 20 20 20 20  |NTS:.           |
00002FC0: 20 20 20 20 D9 20 20 20  20 20 20 20 20 20 D4 48  |    .         .H|
00002FD0: 45 20 41 44 44 52 45 53  53 20 4F 46 20 54 48 45  |E ADDRESS OF THE|
00002FE0: 20 4D 55 4C 54 49 50 4C  49 45 52 2E 0D 20 20 20  | MULTIPLIER..   |
00002FF0: 20 20 20 20 20 20 20 20  20 20 20 20 D8 20 20 20  |            .   |
00003000: 20 20 20 20 20 20 D4 48  45 20 41 44 44 52 45 53  |      .HE ADDRES|
00003010: 53 20 4F 46 20 54 48 45  20 4D 55 4C 54 49 50 4C  |S OF THE MULTIPL|
00003020: 49 43 41 4E 44 2E 0D 20  20 20 20 20 20 20 20 20  |ICAND..         |
00003030: 20 CF 55 54 50 55 54 3A  0D 20 20 20 20 20 20 20  | .UTPUT:.       |
00003040: 20 20 20 20 20 20 20 20  D8 20 20 20 20 20 20 20  |        .       |
00003050: 20 20 D4 48 45 20 41 44  44 52 45 53 53 20 4F 46  |  .HE ADDRESS OF|
00003060: 20 54 48 45 20 31 36 20  42 49 54 20 50 52 4F 44  | THE 16 BIT PROD|
00003070: 55 43 54 2E 0D 0D 20 20  20 20 20 20 20 20 20 20  |UCT...          |
00003080: C4 45 53 43 52 49 50 54  49 4F 4E 3A 20 D4 48 49  |.ESCRIPTION: .HI|
00003090: 53 20 52 4F 55 54 49 4E  45 20 49 53 20 4F 4E 45  |S ROUTINE IS ONE|
000030A0: 20 4F 46 20 54 48 45 20  C7 C5 CF D3 20 4D 41 54  | OF THE .... MAT|
000030B0: 48 20 52 4F 55 54 49 4E  45 53 2E 20 D8 20 41 4E  |H ROUTINES. . AN|
000030C0: 44 0D 20 20 20 20 20 20  20 20 20 20 D9 20 20 45  |D.          .  E|
000030D0: 41 43 48 20 20 48 41 56  45 20 54 48 45 20 41 44  |ACH  HAVE THE AD|
000030E0: 44 52 45 53 53 20 4F 46  20 41 20 54 45 52 4D 20  |DRESS OF A TERM |
000030F0: 49 4E 20 20 54 48 45 20  20 4D 55 4C 54 49 50 4C  |IN  THE  MULTIPL|
00003100: 49 43 41 54 49 4F 4E 2E  20 20 D4 48 45 0D 20 20  |ICATION.  .HE.  |
00003110: 20 20 20 20 20 20 20 20  52 45 53 55 4C 54 20 20  |        RESULT  |
00003120: 49 53 20 20 53 54 4F 52  45 44 20 49 4E 20 50 4C  |IS  STORED IN PL|
00003130: 41 43 45 20 4F 46 20 54  48 45 20 4F 52 49 47 49  |ACE OF THE ORIGI|
00003140: 4E 41 4C 20 4D 55 4C 54  49 50 4C 49 43 41 4E 44  |NAL MULTIPLICAND|
00003150: 20 20 54 48 41 54 20 20  D8 0D 20 20 20 20 20 20  |  THAT  ..      |
00003160: 20 20 20 20 50 4F 49 4E  54 45 44 20 54 4F 2E 20  |    POINTED TO. |
00003170: 20 D4 48 45 20 56 41 4C  55 45 20 54 48 41 54 20  | .HE VALUE THAT |
00003180: D9 20 50 4F 49 4E 54 53  20 54 4F 20 49 53 20 4C  |. POINTS TO IS L|
00003190: 45 46 54 20 55 4E 54 4F  55 43 48 45 44 2E 0D 0D  |EFT UNTOUCHED...|
000031A0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000031B0: 0D 0D 20 20 20 20 20 20  20 20 20 20 C7 C5 CF D3  |..          ....|
000031C0: 20 CB 45 52 4E 41 4C 20  D2 4F 55 54 49 4E 45 53  | .ERNAL .OUTINES|
000031D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000031E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000031F0: 20 20 20 20 20 20 31 2D  35 37 0D 0D 0D 20 20 20  |      1-57...   |
00003200: 20 20 20 20 20 20 20 C6  55 4E 43 54 49 4F 4E 20  |       .UNCTION |
00003210: CE 41 4D 45 3A 20 D5 D0  C4 C1 D4 C5 0D 20 20 20  |.AME: .......   |
00003220: 20 20 20 20 20 20 20 D0  55 52 50 4F 53 45 3A 20  |       .URPOSE: |
00003230: D5 50 44 41 54 45 20 41  20 D6 CC C9 D2 20 46 49  |.PDATE A .... FI|
00003240: 4C 45 2E 0D 20 20 20 20  20 20 20 20 20 20 C3 41  |LE..          .A|
00003250: 4C 4C 20 41 44 44 52 45  53 53 3A 20 24 C3 32 39  |LL ADDRESS: $.29|
00003260: 35 0D 20 20 20 20 20 20  20 20 20 20 CF 55 54 50  |5.          .UTP|
00003270: 55 54 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |UT:.            |
00003280: 20 20 20 24 38 34 39 38  20 20 20 20 20 C3 4C 45  |   $8498     .LE|
00003290: 41 52 45 44 20 54 4F 20  24 30 30 2E 0D 20 20 20  |ARED TO $00..   |
000032A0: 20 20 20 20 20 20 20 D0  52 45 50 41 52 41 54 4F  |       .REPARATO|
000032B0: 52 59 20 52 4F 55 54 49  4E 45 53 3A 20 D6 CF D0  |RY ROUTINES: ...|
000032C0: C5 CE 0D 20 20 20 20 20  20 20 20 20 20 C5 52 52  |...          .RR|
000032D0: 4F 52 53 3A 20 D3 45 45  20 C1 50 50 45 4E 44 49  |ORS: .EE .PPENDI|
000032E0: 58 20 C9 2E 0D 0D 20 20  20 20 20 20 20 20 20 20  |X ....          |
000032F0: C4 45 53 43 52 49 50 54  49 4F 4E 3A 20 D4 48 49  |.ESCRIPTION: .HI|
00003300: 53 20 52 4F 55 54 49 4E  45 20 57 52 49 54 45 53  |S ROUTINE WRITES|
00003310: 20 54 48 45 20 4F 50 45  4E 20 D6 CC C9 D2 20 46  | THE OPEN .... F|
00003320: 49 4C 45 27 53 20 D6 CC  C9 D2 20 53 45 43 54 4F  |ILE'S .... SECTO|
00003330: 52 0D 20 20 20 20 20 20  20 20 20 20 54 4F 20 20  |R.          TO  |
00003340: 44 49 53 4B 20 20 41 4E  44 20 55 50 44 41 54 45  |DISK  AND UPDATE|
00003350: 53 20 54 48 45 20 46 49  4C 45 27 53 20 44 49 52  |S THE FILE'S DIR|
00003360: 45 43 54 4F 52 59 20 45  4E 54 52 59 20 4F 4E 20  |ECTORY ENTRY ON |
00003370: 20 44 49 53 4B 20 20 28  D4 49 4D 45 2C 0D 20 20  | DISK  (.IME,.  |
00003380: 20 20 20 20 20 20 20 20  44 41 54 45 20 41 4E 44  |        DATE AND|
00003390: 20 46 49 4C 45 20 53 49  5A 45 29 2E 20 20 D4 48  | FILE SIZE).  .H|
000033A0: 49 53 20 4F 50 45 52 41  54 49 4F 4E 20 49 53 20  |IS OPERATION IS |
000033B0: 4E 4F 54 20 50 45 52 46  4F 52 4D 45 44 20 49 46  |NOT PERFORMED IF|
000033C0: 20 4C 4F 43 41 54 49 4F  4E 0D 20 20 20 20 20 20  | LOCATION.      |
000033D0: 20 20 20 20 24 38 34 39  38 20 20 49 53 20 5A 45  |    $8498  IS ZE|
000033E0: 52 4F 20 54 4F 20 53 54  41 52 54 20 57 49 54 48  |RO TO START WITH|
000033F0: 2E 20 20 D4 48 41 54 20  4C 4F 43 41 54 49 4F 4E  |.  .HAT LOCATION|
00003400: 20 49 53 20 41 20 46 4C  41 47 20 54 48 41 54 20  | IS A FLAG THAT |
00003410: 54 45 4C 4C 53 0D 20 20  20 20 20 20 20 20 20 20  |TELLS.          |
00003420: 57 48 45 54 48 45 52 20  54 48 45 20 46 49 4C 45  |WHETHER THE FILE|
00003430: 20 48 41 53 20 42 45 45  4E 20 41 4C 54 45 52 45  | HAS BEEN ALTERE|
00003440: 44 20 4F 52 20 4E 4F 54  2E 20 20 D4 48 49 53 20  |D OR NOT.  .HIS |
00003450: 52 4F 55 54 49 4E 45 20  49 53 20 43 41 4C 4C 45  |ROUTINE IS CALLE|
00003460: 44 0D 20 20 20 20 20 20  20 20 20 20 42 59 20 D6  |D.          BY .|
00003470: C3 CC CF D3 C5 2E 0D 0D  0D 20 20 20 20 20 20 20  |.........       |
00003480: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00003490: 3A 20 D6 C3 CC CF D3 C5  0D 20 20 20 20 20 20 20  |: .......       |
000034A0: 20 20 20 D0 55 52 50 4F  53 45 3A 20 C3 4C 4F 53  |   .URPOSE: .LOS|
000034B0: 45 20 41 20 D6 CC C9 D2  20 46 49 4C 45 2E 0D 20  |E A .... FILE.. |
000034C0: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
000034D0: 44 52 45 53 53 3A 20 24  C3 32 37 37 0D 20 20 20  |DRESS: $.277.   |
000034E0: 20 20 20 20 20 20 20 CF  55 54 50 55 54 3A 0D 20  |       .UTPUT:. |
000034F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 38  |              $8|
00003500: 38 37 33 20 20 20 20 20  C3 4C 45 41 52 45 44 20  |873     .LEARED |
00003510: 54 4F 20 24 30 30 2E 0D  20 20 20 20 20 20 20 20  |TO $00..        |
00003520: 20 20 D0 52 45 50 41 52  41 54 4F 52 59 20 52 4F  |  .REPARATORY RO|
00003530: 55 54 49 4E 45 53 3A 20  D6 CF D0 C5 CE 0D 20 20  |UTINES: ......  |
00003540: 20 20 20 20 20 20 20 20  C5 52 52 4F 52 53 3A 20  |        .RRORS: |
00003550: D3 45 45 20 C1 50 50 45  4E 44 49 58 20 C9 2E 0D  |.EE .PPENDIX ...|
00003560: 0D 20 20 20 20 20 20 20  20 20 20 C4 45 53 43 52  |.          .ESCR|
00003570: 49 50 54 49 4F 4E 3A 20  20 D4 48 45 20 20 D6 CC  |IPTION:  .HE  ..|
00003580: C9 D2 20 20 53 45 43 54  4F 52 20 49 53 20 52 45  |..  SECTOR IS RE|
00003590: 57 52 49 54 54 45 4E 20  54 4F 20 54 48 45 20 44  |WRITTEN TO THE D|
000035A0: 49 53 4B 20 41 4E 44 20  20 54 48 45 0D 20 20 20  |ISK AND  THE.   |
000035B0: 20 20 20 20 20 20 20 44  49 52 45 43 54 4F 52 59  |       DIRECTORY|
000035C0: 20 20 49 53 20 20 55 50  44 41 54 45 44 20 57 49  |  IS  UPDATED WI|
000035D0: 54 48 20 41 20 4E 45 57  20 54 49 4D 45 2C 20 20  |TH A NEW TIME,  |
000035E0: 44 41 54 45 20 41 4E 44  20 20 46 49 4C 45 20 20  |DATE AND  FILE  |
000035F0: 53 49 5A 45 20 20 42 59  0D 20 20 20 20 20 20 20  |SIZE  BY.       |
00003600: 20 20 20 43 41 4C 4C 49  4E 47 20 20 D5 D0 C4 C1  |   CALLING  ....|
00003610: D4 C5 2E 20 20 CC 4F 43  41 54 49 4F 4E 20 24 38  |...  .OCATION $8|
00003620: 38 37 33 20 49 53 20 54  48 45 20 54 52 41 43 4B  |873 IS THE TRACK|
00003630: 20 4E 55 4D 42 45 52 20  4F 46 20 54 48 45 20 20  | NUMBER OF THE  |
00003640: D6 CC C9 D2 0D 20 20 20  20 20 20 20 20 20 20 53  |.....          S|
00003650: 45 43 54 4F 52 2E 20 20  C2 59 20 43 4C 45 41 52  |ECTOR.  .Y CLEAR|
00003660: 49 4E 47 20 49 54 2C 20  20 C7 C5 CF D3 20 53 41  |ING IT,  .... SA|
00003670: 59 53 20 54 48 41 54 20  54 48 45 20 46 49 4C 45  |YS THAT THE FILE|
00003680: 20 49 53 20 4E 4F 20 4C  4F 4E 47 45 52 20 49 4E  | IS NO LONGER IN|
00003690: 0D 20 20 20 20 20 20 20  20 20 20 4D 45 4D 4F 52  |.          MEMOR|
000036A0: 59 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |Y....          .|
000036B0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 D6 CC  |UNCTION .AME: ..|
000036C0: C9 CE C5 0D 20 20 20 20  20 20 20 20 20 20 D0 55  |....          .U|
000036D0: 52 50 4F 53 45 3A 20 C4  52 41 57 53 20 41 20 56  |RPOSE: .RAWS A V|
000036E0: 45 52 54 49 43 41 4C 20  4C 49 4E 45 20 4F 4E 20  |ERTICAL LINE ON |
000036F0: 54 48 45 20 53 43 52 45  45 4E 2E 0D 20 20 20 20  |THE SCREEN..    |
00003700: 20 20 20 20 20 20 C3 41  4C 4C 20 41 44 44 52 45  |      .ALL ADDRE|
00003710: 53 53 3A 20 24 C3 31 32  31 0D 20 20 20 20 20 20  |SS: $.121.      |
00003720: 20 20 20 20 C9 4E 50 55  54 20 52 45 51 55 49 52  |    .NPUT REQUIR|
00003730: 45 4D 45 4E 54 53 3A 0D  20 20 20 20 20 20 20 20  |EMENTS:.        |
00003740: 20 20 20 20 20 20 20 C1  20 20 20 20 20 20 20 20  |       .        |
00003750: 20 D4 48 45 20 41 43 54  55 41 4C 20 42 49 54 20  | .HE ACTUAL BIT |
00003760: 50 41 54 54 45 52 4E 20  46 4F 52 20 54 48 45 20  |PATTERN FOR THE |
00003770: 4C 49 4E 45 2E 0D 20 20  20 20 20 20 20 20 20 20  |LINE..          |
00003780: 20 20 20 20 20 24 30 38  20 20 20 20 20 20 20 D4  |     $08       .|
00003790: 48 45 20 54 4F 50 20 4D  41 52 47 49 4E 2E 0D 20  |HE TOP MARGIN.. |
000037A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 30  |              $0|
000037B0: 39 20 20 20 20 20 20 20  D4 48 45 20 42 4F 54 54  |9       .HE BOTT|
000037C0: 4F 4D 20 4D 41 52 47 49  4E 2E 0D 20 20 20 20 20  |OM MARGIN..     |
000037D0: 20 20 20 20 20 20 20 20  20 20 24 30 C1 2D 24 30  |          $0.-$0|
000037E0: C2 20 20 20 D4 48 45 20  52 49 47 48 54 20 4D 41  |.   .HE RIGHT MA|
000037F0: 52 47 49 4E 2E 0D 0D 20  20 20 20 20 20 20 20 20  |RGIN...         |
00003800: 20 C4 45 53 43 52 49 50  54 49 4F 4E 3A 20 20 D4  | .ESCRIPTION:  .|
00003810: 48 49 53 20 20 52 4F 55  54 49 4E 45 20 20 44 52  |HIS  ROUTINE  DR|
00003820: 41 57 53 20 41 20 56 45  52 54 49 43 41 4C 20 4C  |AWS A VERTICAL L|
00003830: 49 4E 45 20 4F 4E 20 20  54 48 45 20 20 48 49 52  |INE ON  THE  HIR|
00003840: 45 53 0D 20 20 20 20 20  20 20 20 20 20 53 43 52  |ES.          SCR|
00003850: 45 45 4E 20 49 4E 20 41  20 47 49 56 45 4E 20 50  |EEN IN A GIVEN P|
00003860: 41 54 54 45 52 4E 2E 20  D3 45 45 20 41 4C 53 4F  |ATTERN. .EE ALSO|
00003870: 20 D2 CF D7 C1 C4 D2 2E  0D 0D 0D 0D 0D 0D 0D 0D  | ...............|
00003880: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 20 20  |..............  |
00003890: 20 20 20 20 20 20 20 20  C7 C5 CF D3 20 CB 45 52  |        .... .ER|
000038A0: 4E 41 4C 20 D2 4F 55 54  49 4E 45 53 20 20 20 20  |NAL .OUTINES    |
000038B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000038C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000038D0: 20 20 31 2D 35 38 0D 0D  0D 20 20 20 20 20 20 20  |  1-58...       |
000038E0: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
000038F0: 3A 20 D6 CC CF C1 C4 0D  20 20 20 20 20 20 20 20  |: ......        |
00003900: 20 20 D0 55 52 50 4F 53  45 3A 20 CC 4F 41 44 20  |  .URPOSE: .OAD |
00003910: 41 20 D6 CC C9 D2 20 43  48 41 49 4E 2E 0D 20 20  |A .... CHAIN..  |
00003920: 20 20 20 20 20 20 20 20  C3 41 4C 4C 20 41 44 44  |        .ALL ADD|
00003930: 52 45 53 53 3A 20 24 C3  32 38 C3 0D 20 20 20 20  |RESS: $.28..    |
00003940: 20 20 20 20 20 20 C9 4E  50 55 54 20 52 45 51 55  |      .NPUT REQU|
00003950: 49 52 45 4D 45 4E 54 53  3A 0D 20 20 20 20 20 20  |IREMENTS:.      |
00003960: 20 20 20 20 20 20 20 20  20 24 30 36 2D 24 30 37  |         $06-$07|
00003970: 20 20 20 CD 41 58 49 4D  55 4D 20 42 59 54 45 20  |   .AXIMUM BYTE |
00003980: 43 4F 55 4E 54 20 4F 46  20 4C 4F 41 44 2E 0D 20  |COUNT OF LOAD.. |
00003990: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 24 31  |              $1|
000039A0: 30 2D 24 31 31 20 20 20  CC 4F 41 44 20 41 44 44  |0-$11   .OAD ADD|
000039B0: 52 45 53 53 2E 0D 20 20  20 20 20 20 20 20 20 20  |RESS..          |
000039C0: 20 20 20 20 20 24 38 34  39 36 20 20 20 20 20 C3  |     $8496     .|
000039D0: 55 52 52 45 4E 54 20 43  48 41 49 4E 20 4E 55 4D  |URRENT CHAIN NUM|
000039E0: 42 45 52 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |BER..          .|
000039F0: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00003A00: 20 20 20 20 20 20 24 38  33 30 32 2D 24 38 33 C6  |      $8302-$83.|
00003A10: C6 20 D4 41 42 4C 45 20  4F 46 20 54 52 41 43 4B  |. .ABLE OF TRACK|
00003A20: 53 20 41 4E 44 20 53 45  43 54 4F 52 53 20 54 48  |S AND SECTORS TH|
00003A30: 41 54 20 57 45 52 45 20  4C 4F 41 44 45 44 2E 0D  |AT WERE LOADED..|
00003A40: 20 20 20 20 20 20 20 20  20 20 D0 52 45 50 41 52  |          .REPAR|
00003A50: 41 54 4F 52 59 20 52 4F  55 54 49 4E 45 53 3A 20  |ATORY ROUTINES: |
00003A60: D6 CF D0 C5 CE 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00003A70: C5 52 52 4F 52 53 3A 20  D3 45 45 20 C1 50 50 45  |.RRORS: .EE .PPE|
00003A80: 4E 44 49 58 20 C9 2E 0D  0D 20 20 20 20 20 20 20  |NDIX ....       |
00003A90: 20 20 20 C4 45 53 43 52  49 50 54 49 4F 4E 3A 20  |   .ESCRIPTION: |
00003AA0: 20 D4 48 49 53 20 20 52  4F 55 54 49 4E 45 20 20  | .HIS  ROUTINE  |
00003AB0: 4C 4F 41 44 53 20 54 48  45 20 43 55 52 52 45 4E  |LOADS THE CURREN|
00003AC0: 54 20 43 48 41 49 4E 20  20 42 59 20 20 43 41 4C  |T CHAIN  BY  CAL|
00003AD0: 4C 49 4E 47 0D 20 20 20  20 20 20 20 20 20 20 CC  |LING.          .|
00003AE0: C3 C8 C1 C9 CE 2E 0D 0D  0D 20 20 20 20 20 20 20  |.........       |
00003AF0: 20 20 20 C6 55 4E 43 54  49 4F 4E 20 CE 41 4D 45  |   .UNCTION .AME|
00003B00: 3A 20 D6 CF D0 C5 CE 0D  20 20 20 20 20 20 20 20  |: ......        |
00003B10: 20 20 D0 55 52 50 4F 53  45 3A 20 CF 50 45 4E 53  |  .URPOSE: .PENS|
00003B20: 20 41 20 D6 CC C9 D2 20  46 49 4C 45 2E 0D 20 20  | A .... FILE..  |
00003B30: 20 20 20 20 20 20 20 20  C3 41 4C 4C 20 41 44 44  |        .ALL ADD|
00003B40: 52 45 53 53 3A 20 24 C3  32 37 34 0D 20 20 20 20  |RESS: $.274.    |
00003B50: 20 20 20 20 20 20 C9 4E  50 55 54 20 52 45 51 55  |      .NPUT REQU|
00003B60: 49 52 45 4D 45 4E 54 53  3A 0D 20 20 20 20 20 20  |IREMENTS:.      |
00003B70: 20 20 20 20 20 20 20 20  20 24 30 32 2D 24 30 33  |         $02-$03|
00003B80: 20 20 20 D0 4F 49 4E 54  45 52 20 54 4F 20 46 49  |   .OINTER TO FI|
00003B90: 4C 45 20 4E 41 4D 45 2E  0D 20 20 20 20 20 20 20  |LE NAME..       |
00003BA0: 20 20 20 CF 55 54 50 55  54 3A 0D 20 20 20 20 20  |   .UTPUT:.     |
00003BB0: 20 20 20 20 20 20 20 20  20 20 24 30 34 20 20 20  |          $04   |
00003BC0: 20 20 20 20 D4 52 41 43  4B 20 4F 46 20 D6 CC C9  |    .RACK OF ...|
00003BD0: D2 20 53 45 43 54 4F 52  2E 0D 20 20 20 20 20 20  |. SECTOR..      |
00003BE0: 20 20 20 20 20 20 20 20  20 24 30 35 20 20 20 20  |         $05    |
00003BF0: 20 20 20 D3 45 43 54 4F  52 20 4F 46 20 D6 CC C9  |   .ECTOR OF ...|
00003C00: D2 20 53 45 43 54 4F 52  2E 0D 20 20 20 20 20 20  |. SECTOR..      |
00003C10: 20 20 20 20 20 20 20 20  20 24 30 C3 2D 24 30 C4  |         $0.-$0.|
00003C20: 20 20 20 D0 4F 49 4E 54  45 52 20 54 4F 20 46 49  |   .OINTER TO FI|
00003C30: 4C 45 27 53 20 44 49 52  45 43 54 4F 52 59 20 45  |LE'S DIRECTORY E|
00003C40: 4E 54 52 59 2E 0D 20 20  20 20 20 20 20 20 20 20  |NTRY..          |
00003C50: 20 20 20 20 20 24 38 31  30 30 2D 24 38 31 C6 C6  |     $8100-$81..|
00003C60: 20 C6 49 4C 45 27 53 20  D6 CC C9 D2 20 53 45 43  | .ILE'S .... SEC|
00003C70: 54 4F 52 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |TOR..           |
00003C80: 20 20 20 20 24 38 34 39  36 20 20 20 20 20 C9 4E  |    $8496     .N|
00003C90: 49 54 49 41 4C 20 43 48  41 49 4E 20 23 20 28 D3  |ITIAL CHAIN # (.|
00003CA0: 48 4F 55 4C 44 20 42 45  20 30 29 2E 0D 20 20 20  |HOULD BE 0)..   |
00003CB0: 20 20 20 20 20 20 20 20  20 20 20 20 24 38 34 39  |            $849|
00003CC0: 37 20 20 20 20 20 CE 55  4D 42 45 52 20 4F 46 20  |7     .UMBER OF |
00003CD0: 43 48 41 49 4E 53 2E 0D  20 20 20 20 20 20 20 20  |CHAINS..        |
00003CE0: 20 20 20 20 20 20 20 24  38 34 39 38 20 20 20 20  |       $8498    |
00003CF0: 20 C3 4C 45 41 52 45 44  20 54 4F 20 24 30 30 2E  | .LEARED TO $00.|
00003D00: 20 28 D6 CC C9 D2 20 46  49 4C 45 20 4D 4F 44 49  | (.... FILE MODI|
00003D10: 46 49 45 44 29 2E 0D 20  20 20 20 20 20 20 20 20  |FIED)..         |
00003D20: 20 20 20 20 20 20 24 38  34 39 39 2D 24 38 34 39  |      $8499-$849|
00003D30: C1 20 C6 49 4C 45 20 53  49 5A 45 2E 0D 20 20 20  |. .ILE SIZE..   |
00003D40: 20 20 20 20 20 20 20 20  20 20 20 20 24 38 38 36  |            $886|
00003D50: C6 20 20 20 20 20 D4 52  41 43 4B 20 4F 46 20 46  |.     .RACK OF F|
00003D60: 49 4C 45 27 53 20 44 49  52 45 43 54 4F 52 59 20  |ILE'S DIRECTORY |
00003D70: 45 4E 54 52 59 2E 0D 20  20 20 20 20 20 20 20 20  |ENTRY..         |
00003D80: 20 20 20 20 20 20 24 38  38 37 30 20 20 20 20 20  |      $8870     |
00003D90: D3 45 43 54 4F 52 20 4F  46 20 46 49 4C 45 27 53  |.ECTOR OF FILE'S|
00003DA0: 20 44 49 52 45 43 54 4F  52 59 20 45 4E 54 52 59  | DIRECTORY ENTRY|
00003DB0: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00003DC0: 20 24 38 38 37 31 2D 24  38 38 37 32 20 D0 4F 49  | $8871-$8872 .OI|
00003DD0: 4E 54 45 52 20 54 4F 20  44 49 52 45 43 54 4F 52  |NTER TO DIRECTOR|
00003DE0: 59 20 45 4E 54 52 59 2E  0D 20 20 20 20 20 20 20  |Y ENTRY..       |
00003DF0: 20 20 20 20 20 20 20 20  24 38 38 37 33 20 20 20  |        $8873   |
00003E00: 20 20 D4 52 41 43 4B 20  46 4F 52 20 D6 CC C9 D2  |  .RACK FOR ....|
00003E10: 20 53 45 43 54 4F 52 2E  0D 20 20 20 20 20 20 20  | SECTOR..       |
00003E20: 20 20 20 20 20 20 20 20  24 38 38 37 34 20 20 20  |        $8874   |
00003E30: 20 20 D3 45 43 54 4F 52  20 46 4F 52 20 D6 CC C9  |  .ECTOR FOR ...|
00003E40: D2 20 53 45 43 54 4F 52  2E 0D 20 20 20 20 20 20  |. SECTOR..      |
00003E50: 20 20 20 20 C5 52 52 4F  52 53 3A 20 D3 45 45 20  |    .RRORS: .EE |
00003E60: C1 50 50 45 4E 44 49 58  20 C9 2E 0D 0D 20 20 20  |.PPENDIX ....   |
00003E70: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00003E80: 4F 4E 3A 20 20 D4 48 49  53 20 52 4F 55 54 49 4E  |ON:  .HIS ROUTIN|
00003E90: 45 20 4F 50 45 4E 53 20  41 20 D6 CC C9 D2 20 46  |E OPENS A .... F|
00003EA0: 49 4C 45 2C 20 41 4E 44  20 53 45 54 53 20 55 50  |ILE, AND SETS UP|
00003EB0: 20 41 4C 4C 20 54 48 45  0D 20 20 20 20 20 20 20  | ALL THE.       |
00003EC0: 20 20 20 56 41 52 49 41  42 4C 45 53 20 41 53 53  |   VARIABLES ASS|
00003ED0: 4F 43 49 41 54 45 44 20  57 49 54 48 20 49 54 2E  |OCIATED WITH IT.|
00003EE0: 20 CF 4E 4C 59 20 4F 4E  45 20 D6 CC C9 D2 20 46  | .NLY ONE .... F|
00003EF0: 49 4C 45 20 43 41 4E 20  42 45 20 4F 50 45 4E 20  |ILE CAN BE OPEN |
00003F00: 41 54 20 41 0D 20 20 20  20 20 20 20 20 20 20 54  |AT A.          T|
00003F10: 49 4D 45 20 44 55 45 20  54 4F 20 54 48 45 20 46  |IME DUE TO THE F|
00003F20: 41 43 54 20 54 48 41 54  20 54 48 45 53 45 20 56  |ACT THAT THESE V|
00003F30: 41 52 49 41 42 4C 45 53  20 41 52 45 20 47 4C 4F  |ARIABLES ARE GLO|
00003F40: 42 41 4C 2E 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |BAL.............|
00003F50: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 20 20 20 20  |............    |
00003F60: 20 20 20 20 20 20 C7 C5  CF D3 20 CB 45 52 4E 41  |      .... .ERNA|
00003F70: 4C 20 D2 4F 55 54 49 4E  45 53 20 20 20 20 20 20  |L .OUTINES      |
00003F80: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003F90: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003FA0: 31 2D 35 39 0D 0D 0D 20  20 20 20 20 20 20 20 20  |1-59...         |
00003FB0: 20 C6 55 4E 43 54 49 4F  4E 20 CE 41 4D 45 3A 20  | .UNCTION .AME: |
00003FC0: D6 D3 C1 D6 C5 0D 20 20  20 20 20 20 20 20 20 20  |......          |
00003FD0: D0 55 52 50 4F 53 45 3A  20 D3 41 56 45 20 4D 45  |.URPOSE: .AVE ME|
00003FE0: 4D 4F 52 59 20 54 4F 20  41 20 D6 CC C9 D2 20 43  |MORY TO A .... C|
00003FF0: 48 41 49 4E 2E 0D 20 20  20 20 20 20 20 20 20 20  |HAIN..          |
00004000: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
00004010: 32 38 C6 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |28..          .N|
00004020: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
00004030: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
00004040: 20 24 30 36 2D 24 30 37  20 20 20 CC 45 4E 47 54  | $06-$07   .ENGT|
00004050: 48 20 4F 46 20 53 41 56  45 2E 0D 20 20 20 20 20  |H OF SAVE..     |
00004060: 20 20 20 20 20 20 20 20  20 20 24 31 30 2D 24 31  |          $10-$1|
00004070: 31 20 20 20 C1 44 44 52  45 53 53 20 4F 46 20 4D  |1   .DDRESS OF M|
00004080: 45 4D 4F 52 59 20 54 4F  20 42 45 20 53 41 56 45  |EMORY TO BE SAVE|
00004090: 44 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |D..             |
000040A0: 20 20 24 38 34 39 36 20  20 20 20 20 D6 CC C9 D2  |  $8496     ....|
000040B0: 20 43 48 41 49 4E 20 4E  55 4D 42 45 52 2E 0D 20  | CHAIN NUMBER.. |
000040C0: 20 20 20 20 20 20 20 20  20 CF 55 54 50 55 54 3A  |         .UTPUT:|
000040D0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000040E0: 24 38 33 30 30 2D 24 38  33 C6 C6 20 D4 41 42 4C  |$8300-$83.. .ABL|
000040F0: 45 20 4F 46 20 54 52 41  43 4B 53 20 41 4E 44 20  |E OF TRACKS AND |
00004100: 53 45 43 54 4F 52 53 20  54 48 41 54 20 57 45 52  |SECTORS THAT WER|
00004110: 45 20 53 41 56 45 44 20  54 4F 2E 0D 20 20 20 20  |E SAVED TO..    |
00004120: 20 20 20 20 20 20 D0 52  45 50 41 52 41 54 4F 52  |      .REPARATOR|
00004130: 59 20 52 4F 55 54 49 4E  45 53 3A 20 D6 CF D0 C5  |Y ROUTINES: ....|
00004140: CE 0D 20 20 20 20 20 20  20 20 20 20 C5 52 52 4F  |..          .RRO|
00004150: 52 53 3A 20 D3 45 45 20  C1 50 50 45 4E 44 49 58  |RS: .EE .PPENDIX|
00004160: 20 C9 2E 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  | ....          .|
00004170: 45 53 43 52 49 50 54 49  4F 4E 3A 20 20 D4 48 49  |ESCRIPTION:  .HI|
00004180: 53 20 20 52 4F 55 54 49  4E 45 20 20 53 41 56 45  |S  ROUTINE  SAVE|
00004190: 53 20 41 20 42 4C 4F 43  4B 20 4F 46 20 4D 45 4D  |S A BLOCK OF MEM|
000041A0: 4F 52 59 20 20 54 4F 20  20 41 20 20 D6 CC C9 D2  |ORY  TO  A  ....|
000041B0: 0D 20 20 20 20 20 20 20  20 20 20 43 48 41 49 4E  |.          CHAIN|
000041C0: 2E 20 C9 46 20 54 48 45  20 43 48 41 49 4E 20 41  |. .F THE CHAIN A|
000041D0: 4C 52 45 41 44 59 20 45  58 49 53 54 45 44 2C 20  |LREADY EXISTED, |
000041E0: 54 48 45 4E 20 49 54 20  49 53 20 44 45 4C 45 54  |THEN IT IS DELET|
000041F0: 45 44 20 46 49 52 53 54  2E 20 C9 46 0D 20 20 20  |ED FIRST. .F.   |
00004200: 20 20 20 20 20 20 20 54  48 45 20 20 4C 45 4E 47  |       THE  LENG|
00004210: 54 48 20 20 4F 46 20 54  48 45 20 53 41 56 45 20  |TH  OF THE SAVE |
00004220: 49 53 20 30 2C 20 20 54  48 45 4E 20 4E 4F 20 53  |IS 0,  THEN NO S|
00004230: 41 56 45 20 49 53 20 20  50 45 52 46 4F 52 4D 45  |AVE IS  PERFORME|
00004240: 44 2E 20 20 D4 48 49 53  0D 20 20 20 20 20 20 20  |D.  .HIS.       |
00004250: 20 20 20 57 4F 55 4C 44  20 41 4C 4C 4F 57 20 54  |   WOULD ALLOW T|
00004260: 48 49 53 20 52 4F 55 54  49 4E 45 20 54 4F 20 42  |HIS ROUTINE TO B|
00004270: 45 20 55 53 45 44 20 41  53 20 41 20 44 45 4C 45  |E USED AS A DELE|
00004280: 54 45 20 43 48 41 49 4E  20 46 55 4E 43 54 49 4F  |TE CHAIN FUNCTIO|
00004290: 4E 2E 0D 0D 0D 20 20 20  20 20 20 20 20 20 20 C6  |N....          .|
000042A0: 55 4E 43 54 49 4F 4E 20  CE 41 4D 45 3A 20 D7 C8  |UNCTION .AME: ..|
000042B0: C1 D4 C9 D3 0D 20 20 20  20 20 20 20 20 20 20 D0  |.....          .|
000042C0: 55 52 50 4F 53 45 3A 20  D7 48 4F 20 4B 4E 4F 57  |URPOSE: .HO KNOW|
000042D0: 53 3F 0D 20 20 20 20 20  20 20 20 20 20 C3 41 4C  |S?.          .AL|
000042E0: 4C 20 41 44 44 52 45 53  53 3A 20 24 C3 31 39 36  |L ADDRESS: $.196|
000042F0: 0D 20 20 20 20 20 20 20  20 20 20 CF 55 54 50 55  |.          .UTPU|
00004300: 54 3A 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |T:.             |
00004310: 20 20 24 30 32 2D 24 30  33 20 20 20 D6 41 4C 55  |  $02-$03   .ALU|
00004320: 45 20 46 52 4F 4D 20 24  39 C6 32 37 2D 24 39 C6  |E FROM $9.27-$9.|
00004330: 32 38 20 28 24 33 C5 36  36 29 2E 0D 0D 20 20 20  |28 ($3.66)...   |
00004340: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00004350: 4F 4E 3A 20 D4 48 49 53  20 52 4F 55 54 49 4E 45  |ON: .HIS ROUTINE|
00004360: 20 53 45 45 4D 53 20 54  4F 20 48 41 56 45 20 41  | SEEMS TO HAVE A|
00004370: 42 53 4F 4C 55 54 45 4C  59 20 4E 4F 20 50 55 52  |BSOLUTELY NO PUR|
00004380: 50 4F 53 45 2E 20 C9 54  0D 20 20 20 20 20 20 20  |POSE. .T.       |
00004390: 20 20 20 43 4F 50 49 45  53 20 20 41 20 56 45 43  |   COPIES  A VEC|
000043A0: 54 4F 52 20 46 52 4F 4D  20 24 39 C6 32 37 2D 24  |TOR FROM $9.27-$|
000043B0: 39 C6 32 38 20 28 24 33  C5 36 36 29 20 54 4F 20  |9.28 ($3.66) TO |
000043C0: 20 24 30 32 2D 24 30 33  2E 20 20 CC 4F 43 41 54  | $02-$03.  .OCAT|
000043D0: 49 4F 4E 53 0D 20 20 20  20 20 20 20 20 20 20 24  |IONS.          $|
000043E0: 39 C6 32 37 20 20 41 4E  44 20 24 39 C6 32 38 20  |9.27  AND $9.28 |
000043F0: 41 52 45 20 43 48 45 43  4B 45 44 20 42 59 20 41  |ARE CHECKED BY A|
00004400: 4E 4F 54 48 45 52 20 52  4F 55 54 49 4E 45 20 41  |NOTHER ROUTINE A|
00004410: 54 20 42 4F 4F 54 55 50  2E 20 20 C9 46 20 49 54  |T BOOTUP.  .F IT|
00004420: 0D 20 20 20 20 20 20 20  20 20 20 49 53 20 5A 45  |.          IS ZE|
00004430: 52 4F 20 54 48 45 4E 20  54 48 45 20 46 49 52 53  |RO THEN THE FIRS|
00004440: 54 20 D6 CC C9 D2 20 43  48 41 49 4E 20 4F 46 20  |T .... CHAIN OF |
00004450: 54 48 45 20 4B 45 52 4E  41 4C 20 28 24 39 30 30  |THE KERNAL ($900|
00004460: 30 2D 24 39 C6 C6 C6 29  20 20 49 53 0D 20 20 20  |0-$9...)  IS.   |
00004470: 20 20 20 20 20 20 20 52  45 57 52 49 54 54 45 4E  |       REWRITTEN|
00004480: 20 20 54 4F 20 20 54 48  45 20 20 44 49 53 4B 2E  |  TO  THE  DISK.|
00004490: 20 20 D4 48 49 53 20 20  4D 41 59 20 42 45 20 41  |  .HIS  MAY BE A|
000044A0: 20 20 52 45 4D 4E 41 4E  54 20 20 4F 46 20 20 54  |  REMNANT  OF  T|
000044B0: 48 45 20 20 C7 C5 CF D3  0D 20 20 20 20 20 20 20  |HE  .....       |
000044C0: 20 20 20 44 45 56 45 4C  4F 50 4D 45 4E 54 20 20  |   DEVELOPMENT  |
000044D0: 45 4E 56 49 52 4F 4E 4D  45 4E 54 20 4F 52 20 49  |ENVIRONMENT OR I|
000044E0: 54 20 4D 41 59 20 42 45  20 53 4F 4D 45 20 4B 49  |T MAY BE SOME KI|
000044F0: 4E 44 20 4F 46 20 4B 45  52 4E 41 4C 20 56 45 52  |ND OF KERNAL VER|
00004500: 53 49 4F 4E 0D 20 20 20  20 20 20 20 20 20 20 4E  |SION.          N|
00004510: 55 4D 42 45 52 2E 20 D4  48 45 20 43 4F 44 45 20  |UMBER. .HE CODE |
00004520: 4C 4F 4F 4B 53 20 4C 49  4B 45 20 54 48 49 53 3A  |LOOKS LIKE THIS:|
00004530: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004540: 20 CC C4 C1 20 24 39 C6  32 38 0D 20 20 20 20 20  | ... $9.28.     |
00004550: 20 20 20 20 20 20 20 20  20 20 20 D3 D4 C1 20 24  |           ... $|
00004560: 30 33 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |03.             |
00004570: 20 20 20 CC C4 C1 20 24  39 C6 32 37 0D 20 20 20  |   ... $9.27.   |
00004580: 20 20 20 20 20 20 20 20  20 20 20 20 20 D3 D4 C1  |             ...|
00004590: 20 24 30 32 0D 20 20 20  20 20 20 20 20 20 20 20  | $02.           |
000045A0: 20 20 20 20 20 D2 D4 D3  0D 0D 0D 0D 0D 0D 0D 0D  |     ...........|
000045B0: 0D 0D 0D 0D 0D 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 0D  |................|
000045C0: 0D 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C7 C5  |....          ..|
000045D0: CF D3 20 CB 45 52 4E 41  4C 20 D2 4F 55 54 49 4E  |.. .ERNAL .OUTIN|
000045E0: 45 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |ES              |
000045F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004600: 20 20 20 20 20 20 20 20  31 2D 36 30 0D 0D 0D 20  |        1-60... |
00004610: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
00004620: 4E 20 CE 41 4D 45 3A 20  D7 C9 CE C4 CF D7 0D 20  |N .AME: ....... |
00004630: 20 20 20 20 20 20 20 20  20 D0 55 52 50 4F 53 45  |         .URPOSE|
00004640: 3A 20 D0 52 4F 43 45 53  53 20 41 20 57 49 4E 44  |: .ROCESS A WIND|
00004650: 4F 57 20 44 45 53 43 52  49 50 54 4F 52 2E 0D 20  |OW DESCRIPTOR.. |
00004660: 20 20 20 20 20 20 20 20  20 C3 41 4C 4C 20 41 44  |         .ALL AD|
00004670: 44 52 45 53 53 3A 20 24  C3 32 35 36 0D 20 20 20  |DRESS: $.256.   |
00004680: 20 20 20 20 20 20 20 C9  4E 50 55 54 20 52 45 51  |       .NPUT REQ|
00004690: 55 49 52 45 4D 45 4E 54  53 3A 0D 20 20 20 20 20  |UIREMENTS:.     |
000046A0: 20 20 20 20 20 20 20 20  20 20 24 30 32 2D 24 30  |          $02-$0|
000046B0: 33 20 20 20 D0 4F 49 4E  54 45 52 20 54 4F 20 57  |3   .OINTER TO W|
000046C0: 49 4E 44 4F 57 20 44 45  53 43 52 49 50 54 4F 52  |INDOW DESCRIPTOR|
000046D0: 2E 0D 20 20 20 20 20 20  20 20 20 20 CF 55 54 50  |..          .UTP|
000046E0: 55 54 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |UT:.            |
000046F0: 20 20 20 24 30 32 20 20  20 20 20 20 20 D7 49 4E  |   $02       .IN|
00004700: 44 4F 57 20 43 4F 4D 4D  41 4E 44 20 54 48 41 54  |DOW COMMAND THAT|
00004710: 20 43 4C 4F 53 45 44 20  54 48 45 20 57 49 4E 44  | CLOSED THE WIND|
00004720: 4F 57 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |OW..            |
00004730: 20 20 20 24 38 35 31 C4  20 20 20 20 20 D7 49 4E  |   $851.     .IN|
00004740: 44 4F 57 20 43 4F 4D 4D  41 4E 44 20 54 48 41 54  |DOW COMMAND THAT|
00004750: 20 43 4C 4F 53 45 44 20  54 48 45 20 57 49 4E 44  | CLOSED THE WIND|
00004760: 4F 57 2E 0D 0D 20 20 20  20 20 20 20 20 20 20 C4  |OW...          .|
00004770: 45 53 43 52 49 50 54 49  4F 4E 3A 20 20 CC 49 4B  |ESCRIPTION:  .IK|
00004780: 45 20 20 CD C5 CE D5 2C  20 20 54 48 49 53 20 49  |E  ....,  THIS I|
00004790: 53 20 41 4E 4F 54 48 45  52 20 56 45 52 59 20 50  |S ANOTHER VERY P|
000047A0: 4F 57 45 52 46 55 4C 20  52 4F 55 54 49 4E 45 2E  |OWERFUL ROUTINE.|
000047B0: 0D 20 20 20 20 20 20 20  20 20 20 C7 49 56 45 4E  |.          .IVEN|
000047C0: 20 20 41 20 20 44 45 53  43 52 49 50 54 49 4F 4E  |  A  DESCRIPTION|
000047D0: 20 4F 46 20 54 48 45 20  57 49 4E 44 4F 57 27 53  | OF THE WINDOW'S|
000047E0: 20 20 43 4F 4D 4D 41 4E  44 53 2C 20 45 56 45 52  |  COMMANDS, EVER|
000047F0: 59 54 48 49 4E 47 20 20  47 45 54 53 0D 20 20 20  |YTHING  GETS.   |
00004800: 20 20 20 20 20 20 20 48  41 4E 44 4C 45 44 2E 20  |       HANDLED. |
00004810: 20 D4 48 45 20 46 4F 52  4D 41 54 20 4F 46 20 54  | .HE FORMAT OF T|
00004820: 48 45 20 57 49 4E 44 4F  57 20 44 45 53 43 52 49  |HE WINDOW DESCRI|
00004830: 50 54 4F 52 20 49 53 20  41 53 20 46 4F 4C 4C 4F  |PTOR IS AS FOLLO|
00004840: 57 53 3A 0D 20 20 20 20  20 20 20 20 20 20 20 20  |WS:.            |
00004850: 20 20 20 2E C2 D9 D4 C5  20 D7 49 4E 44 4F 57 20  |   ..... .INDOW |
00004860: 54 59 50 45 2E 0D 20 20  20 20 20 20 20 20 20 20  |TYPE..          |
00004870: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 C2  |               .|
00004880: 49 54 20 37 20 20 20 20  20 D7 49 4E 44 4F 57 20  |IT 7     .INDOW |
00004890: 20 53 49 5A 45 20 20 46  4F 4C 4C 4F 57 53 3B 20  | SIZE  FOLLOWS; |
000048A0: 20 20 4F 54 48 45 52 57  49 53 45 2C 20 20 55 53  |  OTHERWISE,  US|
000048B0: 45 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |E.              |
000048C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000048D0: 20 20 20 20 20 53 54 41  4E 44 41 52 44 20 20 57  |     STANDARD  W|
000048E0: 49 4E 44 4F 57 20 20 53  49 5A 45 20 52 4F 57 53  |INDOW  SIZE ROWS|
000048F0: 20 34 30 20 20 54 4F 20  20 31 33 35 2C 0D 20 20  | 40  TO  135,.  |
00004900: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004910: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004920: 20 43 4F 4C 55 4D 4E 53  20 37 32 20 54 4F 20 32  | COLUMNS 72 TO 2|
00004930: 36 33 2E 0D 20 20 20 20  20 20 20 20 20 20 20 20  |63..            |
00004940: 20 20 20 20 20 20 20 20  20 20 20 20 20 C2 49 54  |             .IT|
00004950: 53 20 30 2D 34 20 20 C6  49 4C 4C 20 50 41 54 54  |S 0-4  .ILL PATT|
00004960: 45 52 4E 20 46 4F 52 20  53 48 41 44 4F 57 2E 20  |ERN FOR SHADOW. |
00004970: 20 C9 46 20 5A 45 52 4F  2C 20 20 54 48 45 4E 0D  | .F ZERO,  THEN.|
00004980: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004990: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000049A0: 20 20 20 4E 4F 20 53 48  41 44 4F 57 20 49 53 20  |   NO SHADOW IS |
000049B0: 44 52 41 57 4E 2E 0D 20  20 20 20 20 20 20 20 20  |DRAWN..         |
000049C0: 20 20 20 20 20 20 D4 48  45 20 20 46 4F 4C 4C 4F  |      .HE  FOLLO|
000049D0: 57 49 4E 47 20 20 53 49  58 20 42 59 54 45 53 20  |WING  SIX BYTES |
000049E0: 41 52 45 20 4F 4E 4C 59  20 50 52 45 53 45 4E 54  |ARE ONLY PRESENT|
000049F0: 20 49 46 20 42 49 54 20  37 20 20 4F 46 20 20 54  | IF BIT 7  OF  T|
00004A00: 48 45 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |HE.             |
00004A10: 20 20 57 49 4E 44 4F 57  20 54 59 50 45 20 49 53  |  WINDOW TYPE IS|
00004A20: 20 53 45 54 2E 0D 20 20  20 20 20 20 20 20 20 20  | SET..          |
00004A30: 20 20 20 20 20 2E C2 D9  D4 C5 20 D4 4F 50 20 4D  |     ..... .OP M|
00004A40: 41 52 47 49 4E 2E 0D 20  20 20 20 20 20 20 20 20  |ARGIN..         |
00004A50: 20 20 20 20 20 20 2E C2  D9 D4 C5 20 C2 4F 54 54  |      ..... .OTT|
00004A60: 4F 4D 20 4D 41 52 47 49  4E 2E 0D 20 20 20 20 20  |OM MARGIN..     |
00004A70: 20 20 20 20 20 20 20 20  20 20 2E D7 CF D2 C4 20  |          ..... |
00004A80: CC 45 46 54 20 4D 41 52  47 49 4E 2E 0D 20 20 20  |.EFT MARGIN..   |
00004A90: 20 20 20 20 20 20 20 20  20 20 20 20 2E D7 CF D2  |            ....|
00004AA0: C4 20 D2 49 47 48 54 20  4D 41 52 47 49 4E 2E 0D  |. .IGHT MARGIN..|
00004AB0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00004AC0: 2E C2 D9 D4 C5 20 C3 4F  4D 4D 41 4E 44 20 42 59  |..... .OMMAND BY|
00004AD0: 54 45 53 20 46 4F 4C 4C  4F 57 45 44 20 42 59 20  |TES FOLLOWED BY |
00004AE0: 57 48 41 54 45 56 45 52  20 44 41 54 41 20 49 53  |WHATEVER DATA IS|
00004AF0: 20 4E 45 45 44 45 44 2E  0D 0D 20 20 20 20 20 20  | NEEDED...      |
00004B00: 20 20 20 20 C1 4C 4C 20  54 48 45 20 43 4C 49 43  |    .LL THE CLIC|
00004B10: 4B 20 42 4F 58 20 44 45  53 43 52 49 50 54 4F 52  |K BOX DESCRIPTOR|
00004B20: 53 20 41 52 45 20 53 54  4F 52 45 44 20 49 4E 20  |S ARE STORED IN |
00004B30: 41 20 54 41 42 4C 45 20  41 54 20 24 38 38 30 C3  |A TABLE AT $880.|
00004B40: 2C 20 46 4F 52 0D 20 20  20 20 20 20 20 20 20 20  |, FOR.          |
00004B50: C7 C5 CF D3 20 54 4F 20  50 52 4F 43 45 53 53 20  |.... TO PROCESS |
00004B60: 54 48 45 4D 2E 20 20 D4  48 49 53 20 4C 49 4D 49  |THEM.  .HIS LIMI|
00004B70: 54 53 20 54 48 45 20 4E  55 4D 42 45 52 20 4F 46  |TS THE NUMBER OF|
00004B80: 20 43 4C 49 43 4B 20 42  4F 58 45 53 20 49 4E 20  | CLICK BOXES IN |
00004B90: 41 0D 20 20 20 20 20 20  20 20 20 20 57 49 4E 44  |A.          WIND|
00004BA0: 4F 57 20 20 54 4F 20 20  38 2E 20 20 D3 45 56 45  |OW  TO  8.  .EVE|
00004BB0: 52 41 4C 20 20 4D 45 4D  4F 52 59 20 20 4C 4F 43  |RAL  MEMORY  LOC|
00004BC0: 41 54 49 4F 4E 53 20 20  41 52 45 20 20 53 41 56  |ATIONS  ARE  SAV|
00004BD0: 45 44 20 20 50 52 49 4F  52 20 20 54 4F 0D 20 20  |ED  PRIOR  TO.  |
00004BE0: 20 20 20 20 20 20 20 20  50 52 4F 43 45 53 53 49  |        PROCESSI|
00004BF0: 4E 47 20 54 48 45 20 57  49 4E 44 4F 57 3B 20 20  |NG THE WINDOW;  |
00004C00: 41 4C 53 4F 20 54 48 45  20 53 54 41 43 4B 20 50  |ALSO THE STACK P|
00004C10: 4F 49 4E 54 45 52 20 41  4E 44 20 52 45 54 55 52  |OINTER AND RETUR|
00004C20: 4E 20 41 44 44 52 45 53  53 0D 20 20 20 20 20 20  |N ADDRESS.      |
00004C30: 20 20 20 20 41 52 45 20  20 53 41 56 45 44 2E 20  |    ARE  SAVED. |
00004C40: 20 C1 46 54 45 52 20 54  48 45 20 57 49 4E 44 4F  | .FTER THE WINDO|
00004C50: 57 20 49 53 20 44 52 41  57 4E 2C 20 20 43 4F 4E  |W IS DRAWN,  CON|
00004C60: 54 52 4F 4C 20 50 41 53  53 45 53 20 20 42 41 43  |TROL PASSES  BAC|
00004C70: 4B 20 20 54 4F 0D 20 20  20 20 20 20 20 20 20 20  |K  TO.          |
00004C80: CD C1 C9 CE 2E 20 C3 CC  D3 D7 C9 CE 20 4D 55 53  |..... ...... MUS|
00004C90: 54 20 42 45 20 43 41 4C  4C 45 44 20 54 4F 20 52  |T BE CALLED TO R|
00004CA0: 45 54 55 52 4E 20 54 4F  20 54 48 45 20 43 41 4C  |ETURN TO THE CAL|
00004CB0: 4C 45 52 2E 20 D4 48 45  52 45 46 4F 52 45 20 49  |LER. .HEREFORE I|
00004CC0: 54 0D 20 20 20 20 20 20  20 20 20 20 49 53 20 20  |T.          IS  |
00004CD0: 45 53 53 45 4E 54 49 41  4C 20 20 54 48 41 54 20  |ESSENTIAL  THAT |
00004CE0: 20 53 4F 4D 45 20 20 4D  45 41 4E 53 20 20 4F 46  | SOME  MEANS  OF|
00004CF0: 20 20 43 4C 4F 53 49 4E  47 20 20 41 20 20 57 49  |  CLOSING  A  WI|
00004D00: 4E 44 4F 57 20 20 45 58  49 53 54 53 2C 0D 20 20  |NDOW  EXISTS,.  |
00004D10: 20 20 20 20 20 20 20 20  4F 54 48 45 52 57 49 53  |        OTHERWIS|
00004D20: 45 20 20 41 20 20 53 49  54 55 41 54 49 4F 4E 20  |E  A  SITUATION |
00004D30: 20 4C 49 4B 45 20 D3 D9  D3 C5 D2 D2 20 57 49 4C  | LIKE ...... WIL|
00004D40: 4C 20 4F 43 43 55 52 20  28 D3 45 45 20 20 54 48  |L OCCUR (.EE  TH|
00004D50: 45 20 20 D3 D9 D3 C5 D2  D2 0D 20 20 20 20 20 20  |E  .......      |
00004D60: 20 20 20 20 52 4F 55 54  49 4E 45 20 46 4F 52 20  |    ROUTINE FOR |
00004D70: 4D 4F 52 45 20 49 4E 46  4F 29 2E 0D 20 20 20 20  |MORE INFO)..    |
00004D80: 20 20 20 20 20 20 20 20  20 20 20 D4 48 45 20 43  |           .HE C|
00004D90: 4F 4D 4D 41 4E 44 20 54  48 41 54 20 43 4C 4F 53  |OMMAND THAT CLOS|
00004DA0: 45 53 20 54 48 45 20 57  49 4E 44 4F 57 20 49 53  |ES THE WINDOW IS|
00004DB0: 20 54 48 45 20 56 41 4C  55 45 20 52 45 54 55 52  | THE VALUE RETUR|
00004DC0: 4E 45 44 20 20 54 4F 0D  20 20 20 20 20 20 20 20  |NED  TO.        |
00004DD0: 20 20 54 48 45 20 55 53  45 52 2E 20 20 49 45 2E  |  THE USER.  IE.|
00004DE0: 20 20 49 46 20 41 20 43  4C 49 43 4B 20 42 4F 58  |  IF A CLICK BOX|
00004DF0: 20 43 4C 4F 53 45 53 20  54 48 45 20 57 49 4E 44  | CLOSES THE WIND|
00004E00: 4F 57 20 54 48 45 4E 20  54 48 45 20 43 4F 4D 4D  |OW THEN THE COMM|
00004E10: 41 4E 44 0D 20 20 20 20  20 20 20 20 20 20 4E 55  |AND.          NU|
00004E20: 4D 42 45 52 20 20 54 48  41 54 20 20 44 52 45 57  |MBER  THAT  DREW|
00004E30: 20 54 48 45 20 43 4C 49  43 4B 20 42 4F 58 20 49  | THE CLICK BOX I|
00004E40: 53 20 52 45 54 55 52 4E  45 44 2E 20 20 C8 4F 57  |S RETURNED.  .OW|
00004E50: 45 56 45 52 20 49 54 20  49 53 20 20 54 48 45 0D  |EVER IT IS  THE.|
00004E60: 20 20 20 20 20 20 20 20  20 20 55 53 45 52 27 53  |          USER'S|
00004E70: 20 20 52 4F 55 54 49 4E  45 27 53 20 20 52 45 53  |  ROUTINE'S  RES|
00004E80: 50 4F 4E 53 49 42 49 4C  49 54 59 20 20 54 4F 20  |PONSIBILITY  TO |
00004E90: 53 45 54 20 54 48 45 20  56 41 4C 55 45 20 20 4F  |SET THE VALUE  O|
00004EA0: 46 20 20 4C 4F 43 41 54  49 4F 4E 0D 20 20 20 20  |F  LOCATION.    |
00004EB0: 20 20 20 20 20 20 24 38  35 31 C4 20 49 46 20 41  |      $851. IF A|
00004EC0: 20 55 53 45 52 20 43 4C  49 43 4B 20 42 4F 58 20  | USER CLICK BOX |
00004ED0: 49 53 20 54 4F 20 43 4C  4F 53 45 20 54 48 45 20  |IS TO CLOSE THE |
00004EE0: 57 49 4E 44 4F 57 2E 20  20 C3 4F 4D 4D 41 4E 44  |WINDOW.  .OMMAND|
00004EF0: 20 23 31 33 20 49 53 0D  20 20 20 20 20 20 20 20  | #13 IS.        |
00004F00: 20 20 41 4E 4F 54 48 45  52 20 4F 4E 45 20 54 48  |  ANOTHER ONE TH|
00004F10: 41 54 20 43 41 4E 20 43  4C 4F 53 45 20 54 48 45  |AT CAN CLOSE THE|
00004F20: 20 57 49 4E 44 4F 57 2E  20 20 D5 53 45 52 20 52  | WINDOW.  .SER R|
00004F30: 4F 55 54 49 4E 45 53 20  44 4F 20 4E 4F 54 20 48  |OUTINES DO NOT H|
00004F40: 41 56 45 0D 20 20 20 20  20 20 20 20 20 20 54 4F  |AVE.          TO|
00004F50: 20 43 4C 4F 53 45 20 54  48 45 20 57 49 4E 44 4F  | CLOSE THE WINDO|
00004F60: 57 20 42 55 54 20 54 48  45 59 20 4D 41 59 20 49  |W BUT THEY MAY I|
00004F70: 46 20 54 48 45 59 20 53  4F 20 44 45 53 49 52 45  |F THEY SO DESIRE|
00004F80: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00004F90: 20 D4 48 45 20 20 46 4F  4C 4C 4F 57 49 4E 47 20  | .HE  FOLLOWING |
00004FA0: 20 49 53 20 41 20 4C 49  53 54 20 4F 46 20 54 48  | IS A LIST OF TH|
00004FB0: 45 20 4D 45 4D 4F 52 59  20 41 44 44 52 45 53 53  |E MEMORY ADDRESS|
00004FC0: 45 53 20 53 54 4F 52 45  44 20 20 42 59 0D 20 20  |ES STORED  BY.  |
00004FD0: 20 20 20 20 20 20 20 20  54 48 45 20 57 49 4E 44  |        THE WIND|
00004FE0: 4F 57 20 50 52 4F 43 45  53 53 4F 52 3A 0D 20 20  |OW PROCESSOR:.  |
00004FF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 24 32 32  |             $22|
00005000: 2D 24 33 38 20 20 20 24  38 34 39 C2 2D 24 38 34  |-$38   $849.-$84|
00005010: C3 30 20 20 20 20 24 38  36 C3 30 2D 24 38 37 C4  |.0    $86.0-$87.|
00005020: 33 20 20 20 20 24 38 C6  C6 38 2D 24 38 C6 C6 C6  |3    $8..8-$8...|
00005030: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00005040: 24 33 C6 2D 24 34 30 20  20 20 24 C4 30 30 30 2D  |$3.-$40   $.000-|
00005050: 24 C4 30 31 30 20 20 20  20 24 C4 30 31 C2 2D 24  |$.010    $.01.-$|
00005060: C4 30 31 C4 20 20 20 20  24 C4 30 32 35 2D 24 C4  |.01.    $.025-$.|
00005070: 30 32 36 0D 20 20 20 20  20 20 20 20 20 20 20 20  |026.            |
00005080: 20 20 20 24 C4 30 31 35  20 20 20 20 20 24 C4 30  |   $.015     $.0|
00005090: 32 38 2D 24 C4 30 32 C5  0D 0D 0D 0D 0D 0D 0D 0D  |28-$.02.........|
000050A0: 0D 0D 0D 0D 0D 0D 0D 0D  20 20 20 20 20 20 20 20  |........        |
000050B0: 20 20 C7 C5 CF D3 20 CB  45 52 4E 41 4C 20 D2 4F  |  .... .ERNAL .O|
000050C0: 55 54 49 4E 45 53 20 20  20 20 20 20 20 20 20 20  |UTINES          |
000050D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000050E0: 20 20 20 20 20 20 20 20  20 20 20 20 31 2D 36 31  |            1-61|
000050F0: 0D 0D 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00005100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005110: 20 D7 49 4E 44 4F 57 20  D0 52 4F 43 45 53 53 4F  | .INDOW .ROCESSO|
00005120: 52 20 C3 4F 4D 4D 41 4E  44 53 0D 0D 20 20 20 20  |R .OMMANDS..    |
00005130: 20 20 20 20 20 20 30 20  20 20 20 CE 4F 20 44 41  |      0    .O DA|
00005140: 54 41 2E 20 D4 48 49 53  20 43 4F 4D 4D 41 4E 44  |TA. .HIS COMMAND|
00005150: 20 45 4E 44 53 20 54 48  45 20 57 49 4E 44 4F 57  | ENDS THE WINDOW|
00005160: 20 44 45 53 43 52 49 50  54 4F 52 2E 0D 20 20 20  | DESCRIPTOR..   |
00005170: 20 20 20 20 20 20 20 31  20 20 20 20 D4 48 45 20  |       1    .HE |
00005180: 44 41 54 41 20 46 4F 52  20 54 48 49 53 20 43 4F  |DATA FOR THIS CO|
00005190: 4D 4D 41 4E 44 20 49 53  20 54 48 45 20 43 4F 4C  |MMAND IS THE COL|
000051A0: 55 4D 4E 20 4F 46 46 53  45 54 20 49 4E 20 42 59  |UMN OFFSET IN BY|
000051B0: 54 45 53 20 20 41 4E 44  0D 20 20 20 20 20 20 20  |TES  AND.       |
000051C0: 20 20 20 20 20 20 20 20  54 48 45 20 52 4F 57 20  |        THE ROW |
000051D0: 4F 46 46 53 45 54 20 49  4E 20 50 49 58 45 4C 53  |OFFSET IN PIXELS|
000051E0: 2E 20 20 C4 52 41 57 20  41 4E 20 27 CF CB 27 20  |.  .RAW AN '..' |
000051F0: 43 4C 49 43 4B 20 42 4F  58 2E 0D 20 20 20 20 20  |CLICK BOX..     |
00005200: 20 20 20 20 20 32 20 20  20 20 D4 48 45 20 20 44  |     2    .HE  D|
00005210: 41 54 41 20 46 4F 52 20  54 48 49 53 20 43 4F 4D  |ATA FOR THIS COM|
00005220: 4D 41 4E 44 20 49 53 20  54 48 45 20 43 4F 4C 55  |MAND IS THE COLU|
00005230: 4D 4E 20 4F 46 46 53 45  54 20 49 4E 20 42 59 54  |MN OFFSET IN BYT|
00005240: 45 53 20 41 4E 44 0D 20  20 20 20 20 20 20 20 20  |ES AND.         |
00005250: 20 20 20 20 20 20 54 48  45 20 52 4F 57 20 4F 46  |      THE ROW OF|
00005260: 46 53 45 54 20 49 4E 20  50 49 58 45 4C 53 2E 20  |FSET IN PIXELS. |
00005270: 20 C4 52 41 57 20 41 20  27 C3 41 4E 43 45 4C 27  | .RAW A '.ANCEL'|
00005280: 20 43 4C 49 43 4B 20 42  4F 58 2E 0D 20 20 20 20  | CLICK BOX..    |
00005290: 20 20 20 20 20 20 33 20  20 20 20 D4 48 45 20 44  |      3    .HE D|
000052A0: 41 54 41 20 46 4F 52 20  54 48 49 53 20 43 4F 4D  |ATA FOR THIS COM|
000052B0: 4D 41 4E 44 20 49 53 20  54 48 45 20 43 4F 4C 55  |MAND IS THE COLU|
000052C0: 4D 4E 20 4F 46 46 53 45  54 20 49 4E 20 42 59 54  |MN OFFSET IN BYT|
000052D0: 45 53 20 20 41 4E 44 0D  20 20 20 20 20 20 20 20  |ES  AND.        |
000052E0: 20 20 20 20 20 20 20 54  48 45 20 52 4F 57 20 4F  |       THE ROW O|
000052F0: 46 46 53 45 54 20 49 4E  20 50 49 58 45 4C 53 2E  |FFSET IN PIXELS.|
00005300: 20 20 C4 52 41 57 20 41  20 27 D9 45 53 27 20 43  |  .RAW A '.ES' C|
00005310: 4C 49 43 4B 20 42 4F 58  2E 0D 20 20 20 20 20 20  |LICK BOX..      |
00005320: 20 20 20 20 34 20 20 20  20 D4 48 45 20 44 41 54  |    4    .HE DAT|
00005330: 41 20 46 4F 52 20 54 48  49 53 20 43 4F 4D 4D 41  |A FOR THIS COMMA|
00005340: 4E 44 20 49 53 20 54 48  45 20 43 4F 4C 55 4D 4E  |ND IS THE COLUMN|
00005350: 20 4F 46 46 53 45 54 20  49 4E 20 42 59 54 45 53  | OFFSET IN BYTES|
00005360: 20 20 41 4E 44 0D 20 20  20 20 20 20 20 20 20 20  |  AND.          |
00005370: 20 20 20 20 20 54 48 45  20 52 4F 57 20 4F 46 46  |     THE ROW OFF|
00005380: 53 45 54 20 49 4E 20 50  49 58 45 4C 53 2E 20 20  |SET IN PIXELS.  |
00005390: C4 52 41 57 20 41 20 27  CE 4F 27 20 43 4C 49 43  |.RAW A '.O' CLIC|
000053A0: 4B 20 42 4F 58 2E 0D 20  20 20 20 20 20 20 20 20  |K BOX..         |
000053B0: 20 35 20 20 20 20 D4 48  45 20 20 44 41 54 41 20  | 5    .HE  DATA |
000053C0: 46 4F 52 20 54 48 49 53  20 43 4F 4D 4D 41 4E 44  |FOR THIS COMMAND|
000053D0: 20 49 53 20 54 48 45 20  43 4F 4C 55 4D 4E 20 4F  | IS THE COLUMN O|
000053E0: 46 46 53 45 54 20 49 4E  20 42 59 54 45 53 20 41  |FFSET IN BYTES A|
000053F0: 4E 44 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ND.             |
00005400: 20 20 54 48 45 20 52 4F  57 20 4F 46 46 53 45 54  |  THE ROW OFFSET|
00005410: 20 49 4E 20 50 49 58 45  4C 53 2E 20 20 C4 52 41  | IN PIXELS.  .RA|
00005420: 57 20 41 4E 20 27 CF 50  45 4E 27 20 43 4C 49 43  |W AN '.PEN' CLIC|
00005430: 4B 20 42 4F 58 2E 0D 20  20 20 20 20 20 20 20 20  |K BOX..         |
00005440: 20 36 20 20 20 20 D4 48  45 20 44 41 54 41 20 46  | 6    .HE DATA F|
00005450: 4F 52 20 54 48 49 53 20  43 4F 4D 4D 41 4E 44 20  |OR THIS COMMAND |
00005460: 49 53 20 54 48 45 20 43  4F 4C 55 4D 4E 20 4F 46  |IS THE COLUMN OF|
00005470: 46 53 45 54 20 49 4E 20  42 59 54 45 53 20 20 41  |FSET IN BYTES  A|
00005480: 4E 44 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |ND.             |
00005490: 20 20 54 48 45 20 52 4F  57 20 4F 46 46 53 45 54  |  THE ROW OFFSET|
000054A0: 20 49 4E 20 50 49 58 45  4C 53 2E 20 20 C4 52 41  | IN PIXELS.  .RA|
000054B0: 57 20 41 20 27 C4 49 53  4B 27 20 43 4C 49 43 4B  |W A '.ISK' CLICK|
000054C0: 20 42 4F 58 2E 0D 20 20  20 20 20 20 20 20 20 20  | BOX..          |
000054D0: 37 2D 31 30 20 C1 52 45  20 55 4E 44 45 46 49 4E  |7-10 .RE UNDEFIN|
000054E0: 45 44 20 43 4F 4D 4D 41  4E 44 53 2E 0D 20 20 20  |ED COMMANDS..   |
000054F0: 20 20 20 20 20 20 20 31  31 20 20 20 D4 48 45 20  |       11   .HE |
00005500: 20 44 41 54 41 20 20 46  4F 52 20 54 48 49 53 20  | DATA  FOR THIS |
00005510: 43 4F 4D 4D 41 4E 44 20  49 53 20 54 48 45 20 43  |COMMAND IS THE C|
00005520: 4F 4C 55 4D 4E 20 4F 46  46 53 45 54 20 49 4E 20  |OLUMN OFFSET IN |
00005530: 20 50 49 58 45 4C 53 2C  0D 20 20 20 20 20 20 20  | PIXELS,.       |
00005540: 20 20 20 20 20 20 20 20  54 48 45 20 52 4F 57 20  |        THE ROW |
00005550: 4F 46 46 53 45 54 20 49  4E 20 50 49 58 45 4C 53  |OFFSET IN PIXELS|
00005560: 2C 20 20 41 4E 44 20 54  48 45 20 41 44 44 52 45  |,  AND THE ADDRE|
00005570: 53 53 20 4F 46 20 41 20  54 45 58 54 20 53 54 52  |SS OF A TEXT STR|
00005580: 49 4E 47 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |ING..           |
00005590: 20 20 20 20 D4 48 49 53  20 20 43 4F 4D 4D 41 4E  |    .HIS  COMMAN|
000055A0: 44 20 20 44 49 53 50 4C  41 59 53 20 20 54 48 45  |D  DISPLAYS  THE|
000055B0: 20 54 45 58 54 20 53 54  52 49 4E 47 20 20 41 54  | TEXT STRING  AT|
000055C0: 20 20 54 48 45 20 20 53  50 45 43 49 46 49 45 44  |  THE  SPECIFIED|
000055D0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000055E0: 4F 46 46 53 45 54 20 49  4E 20 54 48 45 20 57 49  |OFFSET IN THE WI|
000055F0: 4E 44 4F 57 2E 0D 20 20  20 20 20 20 20 20 20 20  |NDOW..          |
00005600: 31 32 20 20 20 D4 48 45  20 20 44 41 54 41 20 46  |12   .HE  DATA F|
00005610: 4F 52 20 54 48 49 53 20  43 4F 4D 4D 41 4E 44 20  |OR THIS COMMAND |
00005620: 49 53 20 54 48 45 20 43  4F 4C 55 4D 4E 20 4F 46  |IS THE COLUMN OF|
00005630: 46 53 45 54 20 20 49 4E  20 20 50 49 58 45 4C 53  |FSET  IN  PIXELS|
00005640: 2C 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |,.              |
00005650: 20 54 48 45 20 20 52 4F  57 20 20 4F 46 46 53 45  | THE  ROW  OFFSE|
00005660: 54 20 20 49 4E 20 20 50  49 58 45 4C 53 20 41 4E  |T  IN  PIXELS AN|
00005670: 44 20 5A 45 52 4F 20 50  41 47 45 20 20 41 44 44  |D ZERO PAGE  ADD|
00005680: 52 45 53 53 20 20 4F 46  20 20 54 48 45 0D 20 20  |RESS  OF  THE.  |
00005690: 20 20 20 20 20 20 20 20  20 20 20 20 20 41 44 44  |             ADD|
000056A0: 52 45 53 53 20 4F 46 20  41 20 54 45 58 54 20 53  |RESS OF A TEXT S|
000056B0: 54 52 49 4E 47 2E 20 D4  48 49 53 20 43 4F 4D 4D  |TRING. .HIS COMM|
000056C0: 41 4E 44 20 49 53 20 53  49 4D 49 4C 41 52 20 54  |AND IS SIMILAR T|
000056D0: 4F 20 43 4F 4D 4D 41 4E  44 0D 20 20 20 20 20 20  |O COMMAND.      |
000056E0: 20 20 20 20 20 20 20 20  20 31 31 2C 20 45 58 43  |         11, EXC|
000056F0: 45 50 54 20 46 4F 52 20  49 54 53 20 4D 45 54 48  |EPT FOR ITS METH|
00005700: 4F 44 20 4F 46 20 41 44  44 52 45 53 53 49 4E 47  |OD OF ADDRESSING|
00005710: 20 54 48 45 20 53 54 52  49 4E 47 2E 0D 20 20 20  | THE STRING..   |
00005720: 20 20 20 20 20 20 20 31  33 20 20 20 D4 48 45 20  |       13   .HE |
00005730: 20 44 41 54 41 20 46 4F  52 20 54 48 49 53 20 43  | DATA FOR THIS C|
00005740: 4F 4D 4D 41 4E 44 20 49  53 20 54 48 45 20 43 4F  |OMMAND IS THE CO|
00005750: 4C 55 4D 4E 20 4F 46 46  53 45 54 20 20 49 4E 20  |LUMN OFFSET  IN |
00005760: 20 50 49 58 45 4C 53 2C  0D 20 20 20 20 20 20 20  | PIXELS,.       |
00005770: 20 20 20 20 20 20 20 20  54 48 45 20 20 52 4F 57  |        THE  ROW|
00005780: 20 4F 46 46 53 45 54 20  49 4E 20 50 49 58 45 4C  | OFFSET IN PIXEL|
00005790: 53 2C 20 20 5A 45 52 4F  20 50 41 47 45 20 41 44  |S,  ZERO PAGE AD|
000057A0: 44 52 45 53 53 20 4F 46  20 54 48 45 20 41 44 44  |DRESS OF THE ADD|
000057B0: 52 45 53 53 0D 20 20 20  20 20 20 20 20 20 20 20  |RESS.           |
000057C0: 20 20 20 20 4F 46 20 20  54 48 45 20 20 54 45 58  |    OF  THE  TEX|
000057D0: 54 20 20 42 55 46 46 45  52 20 54 4F 20 42 45 20  |T  BUFFER TO BE |
000057E0: 55 53 45 44 20 42 59 20  C9 CE D0 D5 D4 20 20 41  |USED BY .....  A|
000057F0: 4E 44 20 20 54 48 45 20  20 4D 41 58 49 4D 55 4D  |ND  THE  MAXIMUM|
00005800: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00005810: 4C 45 4E 47 54 48 20 4F  46 20 54 48 45 20 49 4E  |LENGTH OF THE IN|
00005820: 50 55 54 20 42 55 46 46  45 52 2E 20 20 D3 45 45  |PUT BUFFER.  .EE|
00005830: 20 C9 CE D0 D5 D4 20 46  4F 52 20 4D 4F 52 45 20  | ..... FOR MORE |
00005840: 49 4E 46 4F 52 4D 41 54  49 4F 4E 2E 0D 20 20 20  |INFORMATION..   |
00005850: 20 20 20 20 20 20 20 31  34 20 20 20 D3 45 54 20  |       14   .ET |
00005860: 54 48 45 20 56 45 43 54  4F 52 20 41 54 20 24 38  |THE VECTOR AT $8|
00005870: 34 C1 39 2D 24 38 34 C1  C1 20 54 4F 20 43 4C 4F  |4.9-$84.. TO CLO|
00005880: 53 45 20 54 48 45 20 57  49 4E 44 4F 57 2E 20 C7  |SE THE WINDOW. .|
00005890: 45 4E 45 52 41 4C 4C 59  0D 20 20 20 20 20 20 20  |ENERALLY.       |
000058A0: 20 20 20 20 20 20 20 20  55 53 45 44 20 57 49 54  |        USED WIT|
000058B0: 48 20 43 4F 4D 4D 41 4E  44 20 31 33 2E 0D 20 20  |H COMMAND 13..  |
000058C0: 20 20 20 20 20 20 20 20  31 35 20 20 20 D4 48 45  |        15   .HE|
000058D0: 20 44 41 54 41 20 46 4F  52 20 54 48 49 53 20 43  | DATA FOR THIS C|
000058E0: 4F 4D 4D 41 4E 44 20 49  53 20 54 48 45 20 41 44  |OMMAND IS THE AD|
000058F0: 44 52 45 53 53 20 4F 46  20 41 20 C7 D2 D0 C8 C9  |DRESS OF A .....|
00005900: C3 20 43 4F 4D 4D 41 4E  44 0D 20 20 20 20 20 20  |. COMMAND.      |
00005910: 20 20 20 20 20 20 20 20  20 54 41 42 4C 45 2E 20  |         TABLE. |
00005920: 20 D3 45 45 20 C7 D2 D0  C8 C9 C3 20 46 4F 52 20  | .EE ...... FOR |
00005930: 46 55 52 54 48 45 52 20  49 4E 46 4F 52 4D 41 54  |FURTHER INFORMAT|
00005940: 49 4F 4E 2E 0D 20 20 20  20 20 20 20 20 20 20 31  |ION..          1|
00005950: 36 20 20 20 D4 48 45 20  44 41 54 41 20 46 4F 52  |6   .HE DATA FOR|
00005960: 20 54 48 49 53 20 43 4F  4D 4D 41 4E 44 20 49 53  | THIS COMMAND IS|
00005970: 20 54 48 45 20 43 4F 4C  55 4D 4E 20 4F 46 46 53  | THE COLUMN OFFS|
00005980: 45 54 20 49 4E 20 50 49  58 45 4C 53 20 41 4E 44  |ET IN PIXELS AND|
00005990: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
000059A0: 54 48 45 20 20 52 4F 57  20 20 4F 46 46 53 45 54  |THE  ROW  OFFSET|
000059B0: 20 49 4E 20 50 49 58 45  4C 53 2E 20 20 D4 48 49  | IN PIXELS.  .HI|
000059C0: 53 20 43 4F 4D 4D 41 4E  44 20 4F 50 45 4E 53 20  |S COMMAND OPENS |
000059D0: 41 20 20 53 43 52 4F 4C  4C 49 4E 47 0D 20 20 20  |A  SCROLLING.   |
000059E0: 20 20 20 20 20 20 20 20  20 20 20 20 57 49 4E 44  |            WIND|
000059F0: 4F 57 20 4F 46 20 46 49  4C 45 4E 41 4D 45 53 2E  |OW OF FILENAMES.|
00005A00: 20 20 CC 4F 43 41 54 49  4F 4E 53 20 24 31 30 20  |  .OCATIONS $10 |
00005A10: 41 4E 44 20 24 31 36 2D  24 31 37 20 4D 55 53 54  |AND $16-$17 MUST|
00005A20: 20 42 45 20 20 53 45 54  0D 20 20 20 20 20 20 20  | BE  SET.       |
00005A30: 20 20 20 20 20 20 20 20  50 52 49 4F 52 20 20 54  |        PRIOR  T|
00005A40: 4F 20 20 43 41 4C 4C 49  4E 47 20 D7 C9 CE C4 CF  |O  CALLING .....|
00005A50: D7 20 28 D3 45 45 20 D4  C1 C2 CC C5 20 46 4F 52  |. (.EE ..... FOR|
00005A60: 20 4D 4F 52 45 20 20 49  4E 46 4F 52 4D 41 54 49  | MORE  INFORMATI|
00005A70: 4F 4E 29 2E 0D 20 20 20  20 20 20 20 20 20 20 20  |ON)..           |
00005A80: 20 20 20 20 D4 48 45 20  46 49 4C 45 4E 41 4D 45  |    .HE FILENAME|
00005A90: 53 20 41 52 45 20 53 54  4F 52 45 44 20 41 54 20  |S ARE STORED AT |
00005AA0: 24 38 33 30 30 2D 24 38  33 C6 C6 2C 20 20 54 4F  |$8300-$83..,  TO|
00005AB0: 20 41 20 4D 41 58 49 4D  55 4D 20 4F 46 20 31 35  | A MAXIMUM OF 15|
00005AC0: 0D 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00005AD0: 46 49 4C 45 4E 41 4D 45  53 2E 20 20 CC 4F 43 41  |FILENAMES.  .OCA|
00005AE0: 54 49 4F 4E 20 20 24 38  38 35 C3 20 20 57 49 4C  |TION  $885.  WIL|
00005AF0: 4C 20 52 45 54 55 52 4E  20 54 48 45 20 20 49 4E  |L RETURN THE  IN|
00005B00: 44 45 58 20 20 4F 46 20  20 54 48 45 0D 20 20 20  |DEX  OF  THE.   |
00005B10: 20 20 20 20 20 20 20 20  20 20 20 20 53 45 4C 45  |            SELE|
00005B20: 43 54 45 44 20 20 46 49  4C 45 20 20 4E 41 4D 45  |CTED  FILE  NAME|
00005B30: 2E 20 20 C9 46 20 4D 4F  52 45 20 54 48 41 4E 20  |.  .F MORE THAN |
00005B40: 36 20 46 49 4C 45 53 20  41 52 45 20 20 46 4F 55  |6 FILES ARE  FOU|
00005B50: 4E 44 2C 20 20 54 48 45  0D 20 20 20 20 20 20 20  |ND,  THE.       |
00005B60: 20 20 20 20 20 20 20 20  53 55 42 57 49 4E 44 4F  |        SUBWINDO|
00005B70: 57 20 57 49 4C 4C 20 48  41 56 45 20 41 20 43 4C  |W WILL HAVE A CL|
00005B80: 49 43 4B 20 42 4F 58 20  46 4F 52 20 53 43 52 4F  |ICK BOX FOR SCRO|
00005B90: 4C 4C 49 4E 47 20 54 48  45 20 4C 49 53 54 2E 0D  |LLING THE LIST..|
00005BA0: 20 20 20 20 20 20 20 20  20 20 31 37 20 20 20 D4  |          17   .|
00005BB0: 48 45 20 44 41 54 41 20  46 4F 52 20 54 48 49 53  |HE DATA FOR THIS|
00005BC0: 20 43 4F 4D 4D 41 4E 44  20 49 53 20 54 48 45 20  | COMMAND IS THE |
00005BD0: 41 44 44 52 45 53 53 20  4F 46 20 54 48 45 20 52  |ADDRESS OF THE R|
00005BE0: 4F 55 54 49 4E 45 20 20  46 4F 52 0D 20 20 20 20  |OUTINE  FOR.    |
00005BF0: 20 20 20 20 20 20 20 20  20 20 20 42 55 54 54 4F  |           BUTTO|
00005C00: 4E 20 50 52 45 53 53 45  44 2E 20 20 D4 48 49 53  |N PRESSED.  .HIS|
00005C10: 20 43 4F 4D 4D 41 4E 44  20 53 45 54 53 20 54 48  | COMMAND SETS TH|
00005C20: 45 20 56 45 43 54 4F 52  20 41 54 20 24 38 34 C1  |E VECTOR AT $84.|
00005C30: 39 2D 24 38 34 C1 C1 0D  20 20 20 20 20 20 20 20  |9-$84...        |
00005C40: 20 20 20 20 20 20 20 54  4F 20 41 20 55 53 45 52  |       TO A USER|
00005C50: 20 53 50 45 43 49 46 49  45 44 20 52 4F 55 54 49  | SPECIFIED ROUTI|
00005C60: 4E 45 2E 0D 20 20 20 20  20 20 20 20 20 20 31 38  |NE..          18|
00005C70: 20 20 20 D4 48 45 20 44  41 54 41 20 46 4F 52 20  |   .HE DATA FOR |
00005C80: 54 48 49 53 20 43 4F 4D  4D 41 4E 44 20 49 53 20  |THIS COMMAND IS |
00005C90: 54 48 45 20 43 4F 4C 55  4D 4E 20 4F 46 46 53 45  |THE COLUMN OFFSE|
00005CA0: 54 20 49 4E 20 42 59 54  45 53 2C 20 54 48 45 0D  |T IN BYTES, THE.|
00005CB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 52  |               R|
00005CC0: 4F 57 20 20 4F 46 46 53  45 54 20 20 49 4E 20 20  |OW  OFFSET  IN  |
00005CD0: 50 49 58 45 4C 53 20 41  4E 44 20 54 48 45 20 41  |PIXELS AND THE A|
00005CE0: 44 44 52 45 53 53 20 4F  46 20 41 20 55 53 45 52  |DDRESS OF A USER|
00005CF0: 27 53 20 20 38 20 20 42  59 54 45 0D 20 20 20 20  |'S  8  BYTE.    |
00005D00: 20 20 20 20 20 20 20 20  20 20 20 43 4C 49 43 4B  |           CLICK|
00005D10: 20 42 4F 58 20 44 45 53  43 52 49 50 54 49 4F 4E  | BOX DESCRIPTION|
00005D20: 2C 20 49 4E 20 54 48 45  20 46 4F 4C 4C 4F 57 49  |, IN THE FOLLOWI|
00005D30: 4E 47 20 46 4F 52 4D 41  54 3A 0D 20 20 20 20 20  |NG FORMAT:.     |
00005D40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005D50: 20 20 20 20 23 42 59 54  45 53 20 20 20 20 C4 45  |    #BYTES    .E|
00005D60: 53 43 52 49 50 54 49 4F  4E 0D 20 20 20 20 20 20  |SCRIPTION.      |
00005D70: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005D80: 20 20 20 20 20 20 32 20  20 20 20 20 20 C1 44 44  |      2      .DD|
00005D90: 52 45 53 53 20 4F 46 20  47 52 41 50 48 49 43 20  |RESS OF GRAPHIC |
00005DA0: 44 41 54 41 2E 0D 20 20  20 20 20 20 20 20 20 20  |DATA..          |
00005DB0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005DC0: 20 20 32 20 20 20 20 20  20 CE 4F 54 20 55 53 45  |  2      .OT USE|
00005DD0: 44 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |D..             |
00005DE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 31  |               1|
00005DF0: 20 20 20 20 20 20 D7 49  44 54 48 20 4F 46 20 42  |      .IDTH OF B|
00005E00: 4F 58 20 49 4E 20 42 59  54 45 53 2E 0D 20 20 20  |OX IN BYTES..   |
00005E10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005E20: 20 20 20 20 20 20 20 20  20 31 20 20 20 20 20 20  |         1      |
00005E30: C8 45 49 47 48 54 20 4F  46 20 42 4F 58 20 49 4E  |.EIGHT OF BOX IN|
00005E40: 20 50 49 58 45 4C 53 2E  0D 20 20 20 20 20 20 20  | PIXELS..       |
00005E50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005E60: 20 20 20 20 20 32 20 20  20 20 20 20 C1 44 44 52  |     2      .DDR|
00005E70: 45 53 53 20 4F 46 20 52  4F 55 54 49 4E 45 20 54  |ESS OF ROUTINE T|
00005E80: 4F 20 50 52 4F 43 45 53  53 20 54 48 49 53 20 42  |O PROCESS THIS B|
00005E90: 4F 58 2E 0D 20 20 20 20  20 20 20 20 20 20 31 39  |OX..          19|
00005EA0: 20 20 20 D4 48 45 20 20  44 41 54 41 20 20 46 4F  |   .HE  DATA  FO|
00005EB0: 52 20 20 54 48 49 53 20  20 43 4F 4D 4D 41 4E 44  |R  THIS  COMMAND|
00005EC0: 20 20 49 53 20 20 54 48  45 20 20 41 44 44 52 45  |  IS  THE  ADDRE|
00005ED0: 53 53 20 20 4F 46 20 20  41 20 20 55 53 45 52 0D  |SS  OF  A  USER.|
00005EE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |               S|
00005EF0: 55 42 52 4F 55 54 49 4E  45 2E 20 20 D4 48 49 53  |UBROUTINE.  .HIS|
00005F00: 20 43 4F 4D 4D 41 4E 44  20 43 41 4C 4C 53 20 54  | COMMAND CALLS T|
00005F10: 48 45 20 55 53 45 52 27  53 20 53 55 42 52 4F 55  |HE USER'S SUBROU|
00005F20: 54 49 4E 45 2E 0D 0D 0D  0D 0D 0D 0D 0D 0D 0D 20  |TINE........... |
00005F30: 20 20 20 20 20 20 20 20  20 C7 C5 CF D3 20 CB 45  |         .... .E|
00005F40: 52 4E 41 4C 20 D2 4F 55  54 49 4E 45 53 20 20 20  |RNAL .OUTINES   |
00005F50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005F60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005F70: 20 20 20 31 2D 36 32 0D  0D 0D 20 20 20 20 20 20  |   1-62...      |
00005F80: 20 20 20 20 C6 55 4E 43  54 49 4F 4E 20 CE 41 4D  |    .UNCTION .AM|
00005F90: 45 3A 20 D7 D2 31 38 30  0D 20 20 20 20 20 20 20  |E: ..180.       |
00005FA0: 20 20 20 D0 55 52 50 4F  53 45 3A 20 D7 52 49 54  |   .URPOSE: .RIT|
00005FB0: 45 20 54 52 41 43 4B 20  31 38 20 53 45 43 54 4F  |E TRACK 18 SECTO|
00005FC0: 52 20 30 20 42 41 43 4B  20 54 4F 20 44 49 53 4B  |R 0 BACK TO DISK|
00005FD0: 2E 0D 20 20 20 20 20 20  20 20 20 20 C3 41 4C 4C  |..          .ALL|
00005FE0: 20 41 44 44 52 45 53 53  3A 20 24 C3 32 34 C1 0D  | ADDRESS: $.24..|
00005FF0: 20 20 20 20 20 20 20 20  20 20 C9 4E 50 55 54 20  |          .NPUT |
00006000: 52 45 51 55 49 52 45 4D  45 4E 54 53 3A 0D 20 20  |REQUIREMENTS:.  |
00006010: 20 20 20 20 20 20 20 20  20 20 20 20 20 24 38 32  |             $82|
00006020: 30 30 2D 24 38 32 C6 C6  20 C4 41 54 41 20 46 4F  |00-$82.. .ATA FO|
00006030: 52 20 54 52 41 43 4B 20  31 38 20 53 45 43 54 4F  |R TRACK 18 SECTO|
00006040: 52 20 30 2E 0D 20 20 20  20 20 20 20 20 20 20 CF  |R 0..          .|
00006050: 55 54 50 55 54 3A 0D 20  20 20 20 20 20 20 20 20  |UTPUT:.         |
00006060: 20 20 20 20 20 20 24 30  34 20 20 20 20 20 20 20  |      $04       |
00006070: 24 31 32 2C 20 54 52 41  43 4B 20 4E 55 4D 42 45  |$12, TRACK NUMBE|
00006080: 52 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |R..             |
00006090: 20 20 24 30 35 20 20 20  20 20 20 20 24 30 30 2C  |  $05       $00,|
000060A0: 20 53 45 43 54 4F 52 20  4E 55 4D 42 45 52 2E 0D  | SECTOR NUMBER..|
000060B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
000060C0: 30 C1 2D 24 30 C2 20 20  20 24 38 32 30 30 2C 20  |0.-$0.   $8200, |
000060D0: 41 44 44 52 45 53 53 20  4F 46 20 42 55 46 46 45  |ADDRESS OF BUFFE|
000060E0: 52 20 41 52 45 41 2E 0D  20 20 20 20 20 20 20 20  |R AREA..        |
000060F0: 20 20 C5 52 52 4F 52 53  3A 20 D3 45 45 20 C1 50  |  .RRORS: .EE .P|
00006100: 50 45 4E 44 49 58 20 C9  2E 0D 0D 20 20 20 20 20  |PENDIX ....     |
00006110: 20 20 20 20 20 C4 45 53  43 52 49 50 54 49 4F 4E  |     .ESCRIPTION|
00006120: 3A 20 20 D4 48 49 53 20  20 52 4F 55 54 49 4E 45  |:  .HIS  ROUTINE|
00006130: 20 53 45 54 53 20 55 50  20 54 48 45 20 50 4F 49  | SETS UP THE POI|
00006140: 4E 54 45 52 53 20 46 4F  52 20 D7 D2 C9 D4 C5 2C  |NTERS FOR .....,|
00006150: 20 20 54 48 45 4E 0D 20  20 20 20 20 20 20 20 20  |  THEN.         |
00006160: 20 43 41 4C 4C 53 20 20  49 54 20 54 4F 20 57 52  | CALLS  IT TO WR|
00006170: 49 54 45 20 54 48 45 20  53 45 43 54 4F 52 2E 20  |ITE THE SECTOR. |
00006180: 20 D4 48 49 53 20 49 53  20 47 45 4E 45 52 41 4C  | .HIS IS GENERAL|
00006190: 4C 59 20 55 53 45 44 20  54 4F 20 20 55 50 44 41  |LY USED TO  UPDA|
000061A0: 54 45 0D 20 20 20 20 20  20 20 20 20 20 54 48 45  |TE.          THE|
000061B0: 20 C2 C1 CD 20 4F 4E 20  54 48 45 20 44 49 53 4B  | ... ON THE DISK|
000061C0: 2E 0D 0D 0D 20 20 20 20  20 20 20 20 20 20 C6 55  |....          .U|
000061D0: 4E 43 54 49 4F 4E 20 CE  41 4D 45 3A 20 D7 D2 C9  |NCTION .AME: ...|
000061E0: D4 C5 0D 20 20 20 20 20  20 20 20 20 20 D0 55 52  |...          .UR|
000061F0: 50 4F 53 45 3A 20 D7 52  49 54 45 20 41 20 47 49  |POSE: .RITE A GI|
00006200: 56 45 4E 20 54 52 41 43  4B 20 41 4E 44 20 53 45  |VEN TRACK AND SE|
00006210: 43 54 4F 52 2E 0D 20 20  20 20 20 20 20 20 20 20  |CTOR..          |
00006220: C3 41 4C 4C 20 41 44 44  52 45 53 53 3A 20 24 C3  |.ALL ADDRESS: $.|
00006230: 31 C5 37 0D 20 20 20 20  20 20 20 20 20 20 C9 4E  |1.7.          .N|
00006240: 50 55 54 20 52 45 51 55  49 52 45 4D 45 4E 54 53  |PUT REQUIREMENTS|
00006250: 3A 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.              |
00006260: 20 24 30 34 20 20 20 20  20 20 20 D4 52 41 43 4B  | $04       .RACK|
00006270: 20 4F 46 20 53 45 43 54  4F 52 20 54 4F 20 42 45  | OF SECTOR TO BE|
00006280: 20 57 52 49 54 54 45 4E  2E 0D 20 20 20 20 20 20  | WRITTEN..      |
00006290: 20 20 20 20 20 20 20 20  20 24 30 35 20 20 20 20  |         $05    |
000062A0: 20 20 20 D3 45 43 54 4F  52 20 4E 55 4D 42 45 52  |   .ECTOR NUMBER|
000062B0: 20 54 4F 20 42 45 20 57  52 49 54 54 45 4E 2E 0D  | TO BE WRITTEN..|
000062C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
000062D0: 30 C1 2D 24 30 C2 20 20  20 D0 4F 49 4E 54 45 52  |0.-$0.   .OINTER|
000062E0: 20 54 4F 20 42 55 46 46  45 52 2E 0D 20 20 20 20  | TO BUFFER..    |
000062F0: 20 20 20 20 20 20 C5 52  52 4F 52 53 3A 20 D3 45  |      .RRORS: .E|
00006300: 45 20 C1 50 50 45 4E 44  49 58 0D 0D 20 20 20 20  |E .PPENDIX..    |
00006310: 20 20 20 20 20 20 C4 45  53 43 52 49 50 54 49 4F  |      .ESCRIPTIO|
00006320: 4E 3A 20 CC 4F 41 44 53  20 54 55 52 42 4F 44 4F  |N: .OADS TURBODO|
00006330: 53 20 49 46 20 49 54 20  49 53 20 4E 4F 54 20 41  |S IF IT IS NOT A|
00006340: 4C 52 45 41 44 59 20 54  48 45 52 45 20 42 59 20  |LREADY THERE BY |
00006350: 43 41 4C 4C 49 4E 47 0D  20 20 20 20 20 20 20 20  |CALLING.        |
00006360: 20 20 C4 D3 C5 D4 D5 D0  2E 20 20 D4 48 45 20 44  |  .......  .HE D|
00006370: 45 53 49 52 45 44 20 42  4C 4F 43 4B 20 49 53 20  |ESIRED BLOCK IS |
00006380: 54 48 45 4E 20 57 52 49  54 54 45 4E 20 54 4F 20  |THEN WRITTEN TO |
00006390: 54 48 45 20 44 49 53 4B  20 42 59 20 43 41 4C 4C  |THE DISK BY CALL|
000063A0: 49 4E 47 0D 20 20 20 20  20 20 20 20 20 20 D7 D2  |ING.          ..|
000063B0: C9 D4 C5 32 2E 20 20 C6  49 4E 41 4C 4C 59 20 C3  |...2.  .INALLY .|
000063C0: D7 D2 C9 D4 C5 20 49 53  20 43 41 4C 4C 45 44 20  |..... IS CALLED |
000063D0: 54 4F 20 56 45 52 49 46  59 20 54 48 45 20 53 45  |TO VERIFY THE SE|
000063E0: 43 54 4F 52 2E 0D 0D 0D  20 20 20 20 20 20 20 20  |CTOR....        |
000063F0: 20 20 C6 55 4E 43 54 49  4F 4E 20 CE 41 4D 45 3A  |  .UNCTION .AME:|
00006400: 20 D7 D2 C9 D4 C5 32 0D  20 20 20 20 20 20 20 20  | .....2.        |
00006410: 20 20 D0 55 52 50 4F 53  45 3A 20 D7 52 49 54 45  |  .URPOSE: .RITE|
00006420: 20 41 20 53 45 43 54 4F  52 20 54 4F 20 54 48 45  | A SECTOR TO THE|
00006430: 20 44 49 53 4B 2E 0D 20  20 20 20 20 20 20 20 20  | DISK..         |
00006440: 20 C3 41 4C 4C 20 41 44  44 52 45 53 53 3A 20 24  | .ALL ADDRESS: $|
00006450: C3 32 32 30 0D 20 20 20  20 20 20 20 20 20 20 C9  |.220.          .|
00006460: 4E 50 55 54 20 52 45 51  55 49 52 45 4D 45 4E 54  |NPUT REQUIREMENT|
00006470: 53 3A 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |S:.             |
00006480: 20 20 24 30 34 20 20 20  20 20 20 20 D4 52 41 43  |  $04       .RAC|
00006490: 4B 20 4E 55 4D 42 45 52  2E 0D 20 20 20 20 20 20  |K NUMBER..      |
000064A0: 20 20 20 20 20 20 20 20  20 24 30 35 20 20 20 20  |         $05    |
000064B0: 20 20 20 D3 45 43 54 4F  52 20 4E 55 4D 42 45 52  |   .ECTOR NUMBER|
000064C0: 2E 0D 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000064D0: 20 24 30 C1 2D 24 30 C2  20 20 20 D0 4F 49 4E 54  | $0.-$0.   .OINT|
000064E0: 45 52 20 54 4F 20 44 41  54 41 20 42 55 46 46 45  |ER TO DATA BUFFE|
000064F0: 52 2E 0D 20 20 20 20 20  20 20 20 20 20 D0 52 45  |R..          .RE|
00006500: 50 41 52 41 54 4F 52 59  20 52 4F 55 54 49 4E 45  |PARATORY ROUTINE|
00006510: 53 3A 20 C4 D3 C5 D4 D5  D0 0D 20 20 20 20 20 20  |S: .......      |
00006520: 20 20 20 20 C5 52 52 4F  52 53 3A 20 D3 45 45 20  |    .RRORS: .EE |
00006530: C1 50 50 45 4E 44 49 58  20 C9 2E 0D 0D 20 20 20  |.PPENDIX ....   |
00006540: 20 20 20 20 20 20 20 C4  45 53 43 52 49 50 54 49  |       .ESCRIPTI|
00006550: 4F 4E 3A 20 20 D4 48 49  53 20 20 52 4F 55 54 49  |ON:  .HIS  ROUTI|
00006560: 4E 45 20 20 49 53 20 54  4F 20 D7 D2 C9 D4 C5 2C  |NE  IS TO .....,|
00006570: 20 20 41 53 20 D2 C5 C1  C4 32 20 49 53 20 20 54  |  AS ....2 IS  T|
00006580: 4F 20 20 D2 C5 C1 C4 2E  0D 20 20 20 20 20 20 20  |O  ......       |
00006590: 20 20 20 C4 D3 C5 D4 D5  D0 20 4D 55 53 54 20 48  |   ...... MUST H|
000065A0: 41 56 45 20 42 45 45 4E  20 43 41 4C 4C 45 44 20  |AVE BEEN CALLED |
000065B0: 50 52 49 4F 52 20 54 4F  20 55 53 49 4E 47 20 54  |PRIOR TO USING T|
000065C0: 48 49 53 20 52 4F 55 54  49 4E 45 2E 0D 0D 0D 20  |HIS ROUTINE.... |
000065D0: 20 20 20 20 20 20 20 20  20 C6 55 4E 43 54 49 4F  |         .UNCTIO|
000065E0: 4E 20 CE 41 4D 45 3A 20  DA C6 C9 CC CC 0D 20 20  |N .AME: ......  |
000065F0: 20 20 20 20 20 20 20 20  D0 55 52 50 4F 53 45 3A  |        .URPOSE:|
00006600: 20 C6 49 4C 4C 53 20 41  20 4D 45 4D 4F 52 59 20  | .ILLS A MEMORY |
00006610: 52 45 47 49 4F 4E 20 57  49 54 48 20 5A 45 52 4F  |REGION WITH ZERO|
00006620: 45 53 2E 0D 20 20 20 20  20 20 20 20 20 20 C3 41  |ES..          .A|
00006630: 4C 4C 20 41 44 44 52 45  53 53 3A 20 24 C3 31 37  |LL ADDRESS: $.17|
00006640: 38 0D 20 20 20 20 20 20  20 20 20 20 C9 4E 50 55  |8.          .NPU|
00006650: 54 20 52 45 51 55 49 52  45 4D 45 4E 54 53 3A 0D  |T REQUIREMENTS:.|
00006660: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 24  |               $|
00006670: 30 32 2D 24 30 33 20 20  20 D4 48 45 20 4C 45 4E  |02-$03   .HE LEN|
00006680: 47 54 48 20 4F 46 20 54  48 45 20 52 45 47 49 4F  |GTH OF THE REGIO|
00006690: 4E 2E 0D 20 20 20 20 20  20 20 20 20 20 20 20 20  |N..             |
000066A0: 20 20 24 30 34 2D 24 30  35 20 20 20 D4 48 45 20  |  $04-$05   .HE |
000066B0: 41 44 44 52 45 53 53 20  4F 46 20 54 48 45 20 52  |ADDRESS OF THE R|
000066C0: 45 47 49 4F 4E 2E 0D 0D  20 20 20 20 20 20 20 20  |EGION...        |
000066D0: 20 20 C4 45 53 43 52 49  50 54 49 4F 4E 3A 20 20  |  .ESCRIPTION:  |
000066E0: CD 45 4D 4F 52 59 20 20  49 53 20 20 46 49 4C 4C  |.EMORY  IS  FILL|
000066F0: 45 44 20 57 49 54 48 20  5A 45 52 4F 45 53 20 42  |ED WITH ZEROES B|
00006700: 59 20 53 54 4F 52 49 4E  47 20 41 20 24 30 30 20  |Y STORING A $00 |
00006710: 20 41 54 0D 20 20 20 20  20 20 20 20 20 20 4C 4F  | AT.          LO|
00006720: 43 41 54 49 4F 4E 20 24  30 36 20 41 4E 44 20 43  |CATION $06 AND C|
00006730: 41 4C 4C 49 4E 47 20 C2  CC CB C6 C9 CC 2E 0D 0D  |ALLING .........|
00006740: 0D 0D 0D 0D 0D 0D                                 |......          |
...          GEOS KERNAL ROUTINES       
                               1-51...  
        FUNCTION NAME: SAVE.          PU
RPOSE: SAVE MEMORY TO A FILE..          
CALL ADDRESS: $C1ED.          INPUT REQU
IREMENTS:.               $14-$15   POINT
ER TO INFORMATION SECTOR DATA..         
      $16       # DIRECTORY SECTORS TO S
KIP FIRST..          ERRORS: SEE APPENDI
X..          DESCRIPTION: THIS ROUTINE W
ILL SAVE MEMORY TO A FILE; EACH SECTOR. 
         IS VERIFIED AFTER THE WRITE IS 
FINISHED.  THE INFO SECTOR HAS ALL.     
     THE NECESSARY INFORMATION.  IE.  ST
ART AND STOP  ADDRESSES,  FILE.         
 TYPE  AND  STRUCTURE.  IT  MUST ALSO CO
NTAIN THE ADDRESS  OF  THE.          FIL
ENAME  STRING SOMEWHERE IN MEMORY, IN TH
E FIRST TWO BYTES.  IF.          THE FIL
E IS A VLIR FILE, THE MEMORY IS SAVED TO
 CHAIN 0. LOCATION.          $16  SPECIF
IES THE NUMBER OF DIRECTORY SECTORS TO S
KIP FOR DIRDSK.          AND HOLE....   
       FUNCTION NAME: SAVE2.          PU
RPOSE: SAVE MEMORY TO SPECIFIED SECTORS 
ON THE DISK..          CALL ADDRESS: $C1
F9.          INPUT REQUIREMENTS:.       
        $0E-$0F   POINTER TO LIST OF TRA
CKS AND SECTORS TO USE..               $
10-$11   START ADDRESS OF MEMORY TO BE S
AVED..          PREPARATORY ROUTINES: FA
LLOC.          ERRORS: SEE APPENDIX..   
       DESCRIPTION:  THIS ROUTINE IS CAL
LED BY SAVE TO ACTUALLY SAVE THE.       
   MEMORY.  ALL  OF THE SECTORS SHOULD H
AVE ALREADY BEEN  ALLOCATED..          T
HIS  ROUTINE  STOPS SAVING MEMORY WHEN T
RACK 0 IS FOUND  IN  THE.          LIST 
OF TRACKS AND SECTORS....          FUNCT
ION NAME: SD1616.          PURPOSE: SIGN
ED 16 BIT BY 16 BIT DIVISION..          
CALL ADDRESS: $C16C.          INPUT REQU
IREMENTS:.               Y         THE A
DDRESS OF THE 16 BIT DIVISOR..          
     X         THE ADDRESS OF THE 16 BIT
 DIVIDEND..          OUTPUT:.           
    X         THE ADDRESS OF THE 16 BIT 
QUOTIENT..               $12-$13   THE 1
6 BIT REMAINDER...          DESCRIPTION:
 THIS ROUTINE IS ONE OF THE GEOS MATH RO
UTINES. X AND.          Y EACH HAVE THE 
ADDRESS OF A TERM IN THE DIVISION. BOTH 
TERMS ARE.          MADE POSITIVE WITH A
BS16. UD1616 IS THEN CALLED; IF THE RESU
LT OF.          THE DIVISION SHOULD BE N
EGATIVE, NEG16 IS CALLED. THE QUOTIENT I
S.          STORED  IN PLACE OF THE ORIG
INAL DIVIDEND THAT X POINTED TO.  THE.  
        DIVIDEND  IS LEFT UNTOUCHED.  TH
E REMAINDER IS ALWAYS A  POSITIVE.      
    INTEGER...............          GEOS
 KERNAL ROUTINES                        
              1-52...          FUNCTION 
NAME: SELBSW.          PURPOSE: SELECTS 
THE BERKELEY SOFTWORKS FONT..          C
ALL ADDRESS: $C14B.          OUTPUT:.   
            $26       # PIXELS ABOVE LIN
E OF PRINT..               $27-$28   THE
 NUMBER OF BYTES IN THE BIT STREAM..    
           $29       THE POINT SIZE..   
            $2A-$2B   THE POINTER TO THE
 TABLE OF INDICES INTO THE BIT.         
                STREAM..               $
2C-$2D   THE POINTER TO THE BIT STREAM..
.          DESCRIPTION:  THIS ROUTINE SI
MPLY COPIES THE FONT HEADER DATA FOR.   
       THE BSW FONT TO ZERO PAGE FOR USE
 BY DSPCHR AND DSPTXT....          FUNCT
ION NAME: SETPAT.          PURPOSE: SETS
 THE CURRENT FILL PATTERN..          CAL
L ADDRESS: $C139.          INPUT REQUIRE
MENTS:.               A         THE PATT
ERN NUMBER (0-31)...          DESCRIPTIO
N:  THIS  ROUTINE SETS THE FILL PATTERN 
USED BY  PFILL,.          PFILL2, PBOX A
ND PBOX2....          FUNCTION NAME: SPR
OFF.          PURPOSE: TURNS OFF A SPRIT
E..          CALL ADDRESS: $C1D5.       
   INPUT REQUIREMENTS:.               $0
8       SPRITE NUMBER (0-7)..          P
REPARATORY ROUTINES: COPYSP, POSSPR, SPR
ON..          DESCRIPTION:  THIS ROUTINE
 TURNS THE SPRITE OFF, SO THAT IT IS NO.
          LONGER VISIBLE....          FU
NCTION NAME: SPRON.          PURPOSE: TU
RNS ON A SPRITE..          CALL ADDRESS:
 $C1D2.          INPUT REQUIREMENTS:.   
            $08       SPRITE NUMBER (0-7
)..          PREPARATORY ROUTINES: COPYS
P, POSSPR..          DESCRIPTION:  THIS 
 ROUTINE  TURNS THE SPRITE ON,  SO THAT 
IT  IS.          VISIBLE................
....          GEOS KERNAL ROUTINES      
                                1-53... 
         FUNCTION NAME: START.          
PURPOSE: RESTARTS THE TIMER ON A TIMED E
VENT..          CALL ADDRESS: $C115.    
      INPUT REQUIREMENTS:.              
 X         THE INDEX INTO THE COMMAND TA
BLE AT $8719..          PREPARATORY ROUT
INES: CMDTBL..          DESCRIPTION: THI
S ROUTINE RESETS BIT 5 OF A SPECIFIC COM
MAND BYTE.          IN THE TABLE AT $871
9.  THIS ENABLES THE ASSOCIATED COUNTER.
 THIS.          ROUTINE  IS  THE  COMPLE
MENT  TO STOP.  THIS  ROUTINE  IS  NOT  
A.          REPLACEMENT  FOR ENABLE.  TH
IS ROUTINE DOES NOT COPY THE  TIMER'S.  
        INITIAL VALUE AS DOES ENABLE....
          FUNCTION NAME: STOP.          
PURPOSE: STOPS THE TIMER ON A TIMED EVEN
T..          CALL ADDRESS: $C112.       
   INPUT REQUIREMENTS:.               X 
        THE INDEX INTO THE COMMAND TABLE
 AT $8719..          PREPARATORY ROUTINE
S: CMDTBL..          DESCRIPTION:  THIS 
ROUTINE SETS BIT 5 OF A SPECIFIC COMMAND
  BYTE.          IN  THE TABLE AT $8719.
  THIS PREVENTS THE ASSOCIATED TIMER  FR
OM.          RUNNING. THIS ROUTINE IS TH
E COMPLEMENT TO START....          FUNCT
ION NAME: STRCMP.          PURPOSE: COMP
ARE TWO STRINGS FOR EQUALITY..          
CALL ADDRESS: $C26B.          INPUT REQU
IREMENTS:.               X         ADDRE
SS OF A ZERO PAGE POINTER..             
  Y         ADDRESS OF A ZERO PAGE POINT
ER..          OUTPUT:.               Z F
LAG    SET ACCORDINGLY...          DESCR
IPTION:  THE  X AND Y REGISTERS POINT TO
 ZERO PAGE POINTERS..          THE TWO S
TRINGS ARE COMPARED UP TO A ZERO BYTE. T
HE Z FLAG IS SET.          ACCORDINGLY..
..          FUNCTION NAME: STRCPY.      
    PURPOSE: COPY A STRING..          CA
LL ADDRESS: $C265.          INPUT REQUIR
EMENTS:.               X         ADDRESS
 OF ZERO PAGE SOURCE POINTER..          
     Y         ADDRESS OF ZERO PAGE DEST
INATION POINTER...          DESCRIPTION:
  THE  X AND Y REGISTERS POINT TO ZERO P
AGE POINTERS..          DATA IS COPIED U
P TO AND INCLUDING A ZERO BYTE.  THIS RO
UTINE  IS.          USED TO COPY STRINGS
 BY SETTING A TO ZERO AND CALLING BLKMOV
...............          GEOS KERNAL ROU
TINES                                   
   1-54...          FUNCTION NAME: SYSER
R.          PURPOSE: DRAW A SYSTEM ERROR
 WINDOW, AND HALT SYSTEM..          CALL
 ADDRESS: $C2C2..          DESCRIPTION: 
 A  WINDOW  IS DRAWN WITH THE MESSAGE 'S
YSTEM  ERROR.          NEAR  $XXXX',  WH
ERE  XXXX IS THE HEX ADDRESS OF THE  JSR
  SYSERR.          INSTRUCTION.  SINCE  
THE SYSTEM ERROR WINDOW HAS NO WAY OF  B
EING.          CLOSED, GEOS SIMPLY SITS 
IN ITS MAIN LOOP FOREVER. THE BRK VECTOR
.          AT $84AF-$84B0 IS INITIALLY S
ET TO THIS ROUTINE....          FUNCTION
 NAME: TABLE.          PURPOSE: CREATE A
 LIST OF FILENAMES..          CALL ADDRE
SS: $C23B.          INPUT REQUIREMENTS:.
               $0E-$0F   POINTER TO BUFF
ER AREA FOR FILE NAMES..               $
10       GEOS FILE TYPE..               
$11       MAXIMUM NUMBER OF FILE NAMES..
               $16-$17   POINTER TO CLAS
S..          OUTPUT:.               $11 
      NUMBER OF FILES NOT FOUND..       
        THE TABLE IS FILLED WITH FILENAM
ES..          ERRORS: SEE APPENDIX I... 
         DESCRIPTION:  THIS  IS A VERY U
SEFUL ROUTINE.  GIVEN A GEOS  FILE.     
     TYPE,  A  LIST OF FILES WITH THAT T
YPE IS CREATED.  IF THE  CLASS.         
 POINTER  IS NON-ZERO THEN EACH FILE'S I
NFO SECTOR IS CHECKED  FOR.          PRO
PER  CLASS.  THIS IS HOW GEOPAINT AND GE
OWRITE CAN BOTH CREATE.          APPLICA
TION  DATA  FILES  AND NOT  SEE  EACH  O
THERS  FILES.  THE.          FILENAMES A
RE TEXT STRINGS WITH ZERO BYTE TERMINATO
RS. EACH ENTRY.          IS INDEXED WITH
 A MULTIPLE OF 17 (16 BYTE FILENAME MAX.
 PLUS ZERO.          BYTE).  LOCATION  $
11 HAS THE NUMBER OF TABLE ENTRIES NOT F
ILLED..          TO  GET THE NUMBER OF F
ILES ACTUALLY FOUND,  THIS VALUE  MUST  
BE.          SUBTRACTED FROM THE ORIGINA
L MAXIMUM BUFFER LENGTH....          FUN
CTION NAME: TBLJMP.          PURPOSE: JU
MP THROUGH A TABLE..          CALL ADDRE
SS: $C2A4.          INPUT REQUIREMENTS:.
               A         OFFSET INTO TAB
LE..               $3D-$3E   TABLE ADDRE
SS...          DESCRIPTION:  THIS ROUTIN
E IS CALLED BY ALL OF THE ROUTINES  THAT
.          HAVE  INLINE DATA.  THEY ALL 
SET $3D-$3E TO THE RETURN ADDRESS OF.   
       THE  CALLER,  INDEX OFF OF THIS P
OINTER TO GET THEIR  DATA,  THEN.       
   CALL  THE APPROPRIATE ROUTINE.  WHEN 
THE ROUTINE FINISHES,  A  IS.          L
OADED WITH THE DATA TABLE'S LENGTH AND T
HIS ROUTINE IS CALLED TO.          RETUR
N CONTROL TO THE CALLER AFTER THE DATA T
ABLE................          GEOS KERNA
L ROUTINES                              
        1-55...          FUNCTION NAME: 
TEST.          PURPOSE: TESTS THE VALUE 
OF A POINT ON THE HIRES SCREEN..        
  CALL ADDRESS: $C13F.          INPUT RE
QUIREMENTS:.               $08-$09   THE
 COLUMN NUMBER..               $18      
 THE ROW NUMBER..          OUTPUT:.     
          C FLAG IS SET TO THE VALUE OF 
THE PIXEL...          DESCRIPTION: TESTS
 WHETHER OR NOT A GIVEN PIXEL IS ON OR N
OT. THE.          CARRY FLAG IS SET TO T
HE VALUE OF THE PIXEL....          FUNCT
ION NAME: TRACE.          PURPOSE: CREAT
E A TABLE OF TRACKS AND SECTORS..       
   CALL ADDRESS: $C205.          INPUT R
EQUIREMENTS:.               $04       IN
ITIAL TRACK NUMBER..               $05  
     INITIAL SECTOR NUMBER..            
   $08-$09   ADDRESS OF TABLE TO BE CREA
TED..          OUTPUT:.               TA
BLE  POINTED  TO BY $08-$09 IS FILLED WI
TH ALL THE  TRACKS.               AND SE
CTORS LINKED TO THE INITIAL SECTOR..    
      ERRORS: SEE APPENDIX..          DE
SCRIPTION:  GIVEN  AN INITIAL TRACK AND 
 SECTOR,  THIS  ROUTINE.          TRACES
  A CHAIN AND RETURNS A LIST OF ALL THE 
TRACKS AND  SECTORS.          ENCOUNTERE
D.  THIS ROUTINE USES THE BUFFER AT $800
0-$80FF TO READ.          THE SECTORS...
.          FUNCTION NAME: UD1616.       
   PURPOSE: UNSIGNED 16 BIT BY 16 BIT DI
VISION..          CALL ADDRESS: $C169.  
        INPUT REQUIREMENTS:.            
   Y         THE ADDRESS OF THE 16 BIT D
IVISOR..               X         THE ADD
RESS OF THE 16 BIT DIVIDEND..          O
UTPUT:.               X         THE ADDR
ESS OF THE 16 BIT QUOTIENT..            
   $12-$13   THE 16 BIT REMAINDER...    
      DESCRIPTION: THIS ROUTINE IS ONE O
F THE GEOS MATH ROUTINES. X AND.        
  Y  EACH HAVE THE ADDRESS OF A TERM IN 
THE DIVISION.  THE QUOTIENT.          IS
  STORED IN PLACE OF THE ORIGINAL DIVIDE
ND THAT X  POINTED  TO..          THE DI
VIDEND IS LEFT UNTOUCHED................
....          GEOS KERNAL ROUTINES      
                                1-56... 
         FUNCTION NAME: UM1616.         
 PURPOSE: UNSIGNED 16 BIT BY 16 BIT MULT
IPLY..          CALL ADDRESS: $C166.    
      INPUT REQUIREMENTS:.              
 Y         THE ADDRESS OF THE 16 BIT MUL
TIPLIER..               X         THE AD
DRESS OF THE 16 BIT MULTIPLICAND..      
    OUTPUT:.               X         THE
 ADDRESS OF THE 16 BIT RESULT...        
  DESCRIPTION: THIS ROUTINE IS ONE OF TH
E GEOS MATH ROUTINES. X AND.          Y 
EACH HAVE  THE  ADDRESS  OF A TERM IN TH
E  MULTIPLICATION.  THE.          RESULT
 IS  STORED  IN  PLACE OF THE  ORIGINAL 
MULTIPLICAND THAT X.          POINTED TO
.  THE MULTIPLIER POINTED TO BY Y IS UNT
OUCHED....          FUNCTION NAME: UM168
.          PURPOSE: UNSIGNED 8 BIT BY 16
 BIT MULTIPLY..          CALL ADDRESS: $
C163.          INPUT REQUIREMENTS:.     
          Y         THE ADDRESS OF THE 8
 BIT MULTIPLIER..               X       
  THE ADDRESS OF THE 16 BIT MULTIPLICAND
..          OUTPUT:.               X    
     THE ADDRESS OF THE 16 BIT PRODUCT..
.          DESCRIPTION: THIS ROUTINE IS 
ONE OF THE GEOS MATH ROUTINES. X AND.   
       Y  EACH  HAVE THE ADDRESS OF A TE
RM IN  THE  MULTIPLICATION.  THE.       
   RESULT  IS  STORED IN PLACE OF THE OR
IGINAL MULTIPLICAND  THAT  X.          P
OINTED  TO.  THE BYTE FOLLOWING THE MULT
IPLIER IS SET  TO  ZERO,.          THEN 
CONTROL PASSES TO UM1616....          FU
NCTION NAME: UMUL88.          PURPOSE: U
NSIGNED 8 BIT BY 8 BIT MULTIPLY..       
   CALL ADDRESS: $C160.          INPUT R
EQUIREMENTS:.               Y         TH
E ADDRESS OF THE MULTIPLIER..           
    X         THE ADDRESS OF THE MULTIPL
ICAND..          OUTPUT:.               
X         THE ADDRESS OF THE 16 BIT PROD
UCT...          DESCRIPTION: THIS ROUTIN
E IS ONE OF THE GEOS MATH ROUTINES. X AN
D.          Y  EACH  HAVE THE ADDRESS OF
 A TERM IN  THE  MULTIPLICATION.  THE.  
        RESULT  IS  STORED IN PLACE OF T
HE ORIGINAL MULTIPLICAND  THAT  X.      
    POINTED TO.  THE VALUE THAT Y POINTS
 TO IS LEFT UNTOUCHED...................
..          GEOS KERNAL ROUTINES        
                              1-57...   
       FUNCTION NAME: UPDATE.          P
URPOSE: UPDATE A VLIR FILE..          CA
LL ADDRESS: $C295.          OUTPUT:.    
           $8498     CLEARED TO $00..   
       PREPARATORY ROUTINES: VOPEN.     
     ERRORS: SEE APPENDIX I...          
DESCRIPTION: THIS ROUTINE WRITES THE OPE
N VLIR FILE'S VLIR SECTOR.          TO  
DISK  AND UPDATES THE FILE'S DIRECTORY E
NTRY ON  DISK  (TIME,.          DATE AND
 FILE SIZE).  THIS OPERATION IS NOT PERF
ORMED IF LOCATION.          $8498  IS ZE
RO TO START WITH.  THAT LOCATION IS A FL
AG THAT TELLS.          WHETHER THE FILE
 HAS BEEN ALTERED OR NOT.  THIS ROUTINE 
IS CALLED.          BY VCLOSE....       
   FUNCTION NAME: VCLOSE.          PURPO
SE: CLOSE A VLIR FILE..          CALL AD
DRESS: $C277.          OUTPUT:.         
      $8873     CLEARED TO $00..        
  PREPARATORY ROUTINES: VOPEN.          
ERRORS: SEE APPENDIX I...          DESCR
IPTION:  THE  VLIR  SECTOR IS REWRITTEN 
TO THE DISK AND  THE.          DIRECTORY
  IS  UPDATED WITH A NEW TIME,  DATE AND
  FILE  SIZE  BY.          CALLING  UPDA
TE.  LOCATION $8873 IS THE TRACK NUMBER 
OF THE  VLIR.          SECTOR.  BY CLEAR
ING IT,  GEOS SAYS THAT THE FILE IS NO L
ONGER IN.          MEMORY....          F
UNCTION NAME: VLINE.          PURPOSE: D
RAWS A VERTICAL LINE ON THE SCREEN..    
      CALL ADDRESS: $C121.          INPU
T REQUIREMENTS:.               A        
 THE ACTUAL BIT PATTERN FOR THE LINE..  
             $08       THE TOP MARGIN.. 
              $09       THE BOTTOM MARGI
N..               $0A-$0B   THE RIGHT MA
RGIN...          DESCRIPTION:  THIS  ROU
TINE  DRAWS A VERTICAL LINE ON  THE  HIR
ES.          SCREEN IN A GIVEN PATTERN. 
SEE ALSO ROWADR.......................  
        GEOS KERNAL ROUTINES            
                          1-58...       
   FUNCTION NAME: VLOAD.          PURPOS
E: LOAD A VLIR CHAIN..          CALL ADD
RESS: $C28C.          INPUT REQUIREMENTS
:.               $06-$07   MAXIMUM BYTE 
COUNT OF LOAD..               $10-$11   
LOAD ADDRESS..               $8496     C
URRENT CHAIN NUMBER..          OUTPUT:. 
              $8302-$83FF TABLE OF TRACK
S AND SECTORS THAT WERE LOADED..        
  PREPARATORY ROUTINES: VOPEN.          
ERRORS: SEE APPENDIX I...          DESCR
IPTION:  THIS  ROUTINE  LOADS THE CURREN
T CHAIN  BY  CALLING.          LCHAIN...
.          FUNCTION NAME: VOPEN.        
  PURPOSE: OPENS A VLIR FILE..          
CALL ADDRESS: $C274.          INPUT REQU
IREMENTS:.               $02-$03   POINT
ER TO FILE NAME..          OUTPUT:.     
          $04       TRACK OF VLIR SECTOR
..               $05       SECTOR OF VLI
R SECTOR..               $0C-$0D   POINT
ER TO FILE'S DIRECTORY ENTRY..          
     $8100-$81FF FILE'S VLIR SECTOR..   
            $8496     INITIAL CHAIN # (S
HOULD BE 0)..               $8497     NU
MBER OF CHAINS..               $8498    
 CLEARED TO $00. (VLIR FILE MODIFIED).. 
              $8499-$849A FILE SIZE..   
            $886F     TRACK OF FILE'S DI
RECTORY ENTRY..               $8870     
SECTOR OF FILE'S DIRECTORY ENTRY..      
         $8871-$8872 POINTER TO DIRECTOR
Y ENTRY..               $8873     TRACK 
FOR VLIR SECTOR..               $8874   
  SECTOR FOR VLIR SECTOR..          ERRO
RS: SEE APPENDIX I...          DESCRIPTI
ON:  THIS ROUTINE OPENS A VLIR FILE, AND
 SETS UP ALL THE.          VARIABLES ASS
OCIATED WITH IT. ONLY ONE VLIR FILE CAN 
BE OPEN AT A.          TIME DUE TO THE F
ACT THAT THESE VARIABLES ARE GLOBAL.....
....................          GEOS KERNA
L ROUTINES                              
        1-59...          FUNCTION NAME: 
VSAVE.          PURPOSE: SAVE MEMORY TO 
A VLIR CHAIN..          CALL ADDRESS: $C
28F.          INPUT REQUIREMENTS:.      
         $06-$07   LENGTH OF SAVE..     
          $10-$11   ADDRESS OF MEMORY TO
 BE SAVED..               $8496     VLIR
 CHAIN NUMBER..          OUTPUT:.       
        $8300-$83FF TABLE OF TRACKS AND 
SECTORS THAT WERE SAVED TO..          PR
EPARATORY ROUTINES: VOPEN.          ERRO
RS: SEE APPENDIX I...          DESCRIPTI
ON:  THIS  ROUTINE  SAVES A BLOCK OF MEM
ORY  TO  A  VLIR.          CHAIN. IF THE
 CHAIN ALREADY EXISTED, THEN IT IS DELET
ED FIRST. IF.          THE  LENGTH  OF T
HE SAVE IS 0,  THEN NO SAVE IS  PERFORME
D.  THIS.          WOULD ALLOW THIS ROUT
INE TO BE USED AS A DELETE CHAIN FUNCTIO
N....          FUNCTION NAME: WHATIS.   
       PURPOSE: WHO KNOWS?.          CAL
L ADDRESS: $C196.          OUTPUT:.     
          $02-$03   VALUE FROM $9F27-$9F
28 ($3E66)...          DESCRIPTION: THIS
 ROUTINE SEEMS TO HAVE ABSOLUTELY NO PUR
POSE. IT.          COPIES  A VECTOR FROM
 $9F27-$9F28 ($3E66) TO  $02-$03.  LOCAT
IONS.          $9F27  AND $9F28 ARE CHEC
KED BY ANOTHER ROUTINE AT BOOTUP.  IF IT
.          IS ZERO THEN THE FIRST VLIR C
HAIN OF THE KERNAL ($9000-$9FFF)  IS.   
       REWRITTEN  TO  THE  DISK.  THIS  
MAY BE A  REMNANT  OF  THE  GEOS.       
   DEVELOPMENT  ENVIRONMENT OR IT MAY BE
 SOME KIND OF KERNAL VERSION.          N
UMBER. THE CODE LOOKS LIKE THIS:.       
         LDA $9F28.                STA $
03.                LDA $9F27.           
     STA $02.                RTS........
....................          GEOS KERNA
L ROUTINES                              
        1-60...          FUNCTION NAME: 
WINDOW.          PURPOSE: PROCESS A WIND
OW DESCRIPTOR..          CALL ADDRESS: $
C256.          INPUT REQUIREMENTS:.     
          $02-$03   POINTER TO WINDOW DE
SCRIPTOR..          OUTPUT:.            
   $02       WINDOW COMMAND THAT CLOSED 
THE WINDOW..               $851D     WIN
DOW COMMAND THAT CLOSED THE WINDOW...   
       DESCRIPTION:  LIKE  MENU,  THIS I
S ANOTHER VERY POWERFUL ROUTINE..       
   GIVEN  A  DESCRIPTION OF THE WINDOW'S
  COMMANDS, EVERYTHING  GETS.          H
ANDLED.  THE FORMAT OF THE WINDOW DESCRI
PTOR IS AS FOLLOWS:.               .BYTE
 WINDOW TYPE..                         B
IT 7     WINDOW  SIZE  FOLLOWS;   OTHERW
ISE,  USE.                              
     STANDARD  WINDOW  SIZE ROWS 40  TO 
 135,.                                  
 COLUMNS 72 TO 263..                    
     BITS 0-4  FILL PATTERN FOR SHADOW. 
 IF ZERO,  THEN.                        
           NO SHADOW IS DRAWN..         
      THE  FOLLOWING  SIX BYTES ARE ONLY
 PRESENT IF BIT 7  OF  THE.             
  WINDOW TYPE IS SET..               .BY
TE TOP MARGIN..               .BYTE BOTT
OM MARGIN..               .WORD LEFT MAR
GIN..               .WORD RIGHT MARGIN..
.               .BYTE COMMAND BYTES FOLL
OWED BY WHATEVER DATA IS NEEDED...      
    ALL THE CLICK BOX DESCRIPTORS ARE ST
ORED IN A TABLE AT $880C, FOR.          
GEOS TO PROCESS THEM.  THIS LIMITS THE N
UMBER OF CLICK BOXES IN A.          WIND
OW  TO  8.  SEVERAL  MEMORY  LOCATIONS  
ARE  SAVED  PRIOR  TO.          PROCESSI
NG THE WINDOW;  ALSO THE STACK POINTER A
ND RETURN ADDRESS.          ARE  SAVED. 
 AFTER THE WINDOW IS DRAWN,  CONTROL PAS
SES  BACK  TO.          MAIN. CLSWIN MUS
T BE CALLED TO RETURN TO THE CALLER. THE
REFORE IT.          IS  ESSENTIAL  THAT 
 SOME  MEANS  OF  CLOSING  A  WINDOW  EX
ISTS,.          OTHERWISE  A  SITUATION 
 LIKE SYSERR WILL OCCUR (SEE  THE  SYSER
R.          ROUTINE FOR MORE INFO)..    
           THE COMMAND THAT CLOSES THE W
INDOW IS THE VALUE RETURNED  TO.        
  THE USER.  IE.  IF A CLICK BOX CLOSES 
THE WINDOW THEN THE COMMAND.          NU
MBER  THAT  DREW THE CLICK BOX IS RETURN
ED.  HOWEVER IT IS  THE.          USER'S
  ROUTINE'S  RESPONSIBILITY  TO SET THE 
VALUE  OF  LOCATION.          $851D IF A
 USER CLICK BOX IS TO CLOSE THE WINDOW. 
 COMMAND #13 IS.          ANOTHER ONE TH
AT CAN CLOSE THE WINDOW.  USER ROUTINES 
DO NOT HAVE.          TO CLOSE THE WINDO
W BUT THEY MAY IF THEY SO DESIRE..      
         THE  FOLLOWING  IS A LIST OF TH
E MEMORY ADDRESSES STORED  BY.          
THE WINDOW PROCESSOR:.               $22
-$38   $849B-$84C0    $86C0-$87D3    $8F
F8-$8FFF.               $3F-$40   $D000-
$D010    $D01B-$D01D    $D025-$D026.    
           $D015     $D028-$D02E........
........          GEOS KERNAL ROUTINES  
                                    1-61
...                              WINDOW 
PROCESSOR COMMANDS..          0    NO DA
TA. THIS COMMAND ENDS THE WINDOW DESCRIP
TOR..          1    THE DATA FOR THIS CO
MMAND IS THE COLUMN OFFSET IN BYTES  AND
.               THE ROW OFFSET IN PIXELS
.  DRAW AN 'OK' CLICK BOX..          2  
  THE  DATA FOR THIS COMMAND IS THE COLU
MN OFFSET IN BYTES AND.               TH
E ROW OFFSET IN PIXELS.  DRAW A 'CANCEL'
 CLICK BOX..          3    THE DATA FOR 
THIS COMMAND IS THE COLUMN OFFSET IN BYT
ES  AND.               THE ROW OFFSET IN
 PIXELS.  DRAW A 'YES' CLICK BOX..      
    4    THE DATA FOR THIS COMMAND IS TH
E COLUMN OFFSET IN BYTES  AND.          
     THE ROW OFFSET IN PIXELS.  DRAW A '
NO' CLICK BOX..          5    THE  DATA 
FOR THIS COMMAND IS THE COLUMN OFFSET IN
 BYTES AND.               THE ROW OFFSET
 IN PIXELS.  DRAW AN 'OPEN' CLICK BOX.. 
         6    THE DATA FOR THIS COMMAND 
IS THE COLUMN OFFSET IN BYTES  AND.     
          THE ROW OFFSET IN PIXELS.  DRA
W A 'DISK' CLICK BOX..          7-10 ARE
 UNDEFINED COMMANDS..          11   THE 
 DATA  FOR THIS COMMAND IS THE COLUMN OF
FSET IN  PIXELS,.               THE ROW 
OFFSET IN PIXELS,  AND THE ADDRESS OF A 
TEXT STRING..               THIS  COMMAN
D  DISPLAYS  THE TEXT STRING  AT  THE  S
PECIFIED.               OFFSET IN THE WI
NDOW..          12   THE  DATA FOR THIS 
COMMAND IS THE COLUMN OFFSET  IN  PIXELS
,.               THE  ROW  OFFSET  IN  P
IXELS AND ZERO PAGE  ADDRESS  OF  THE.  
             ADDRESS OF A TEXT STRING. T
HIS COMMAND IS SIMILAR TO COMMAND.      
         11, EXCEPT FOR ITS METHOD OF AD
DRESSING THE STRING..          13   THE 
 DATA FOR THIS COMMAND IS THE COLUMN OFF
SET  IN  PIXELS,.               THE  ROW
 OFFSET IN PIXELS,  ZERO PAGE ADDRESS OF
 THE ADDRESS.               OF  THE  TEX
T  BUFFER TO BE USED BY INPUT  AND  THE 
 MAXIMUM.               LENGTH OF THE IN
PUT BUFFER.  SEE INPUT FOR MORE INFORMAT
ION..          14   SET THE VECTOR AT $8
4A9-$84AA TO CLOSE THE WINDOW. GENERALLY
.               USED WITH COMMAND 13..  
        15   THE DATA FOR THIS COMMAND I
S THE ADDRESS OF A GRPHIC COMMAND.      
         TABLE.  SEE GRPHIC FOR FURTHER 
INFORMATION..          16   THE DATA FOR
 THIS COMMAND IS THE COLUMN OFFSET IN PI
XELS AND.               THE  ROW  OFFSET
 IN PIXELS.  THIS COMMAND OPENS A  SCROL
LING.               WINDOW OF FILENAMES.
  LOCATIONS $10 AND $16-$17 MUST BE  SET
.               PRIOR  TO  CALLING WINDO
W (SEE TABLE FOR MORE  INFORMATION)..   
            THE FILENAMES ARE STORED AT 
$8300-$83FF,  TO A MAXIMUM OF 15.       
        FILENAMES.  LOCATION  $885C  WIL
L RETURN THE  INDEX  OF  THE.           
    SELECTED  FILE  NAME.  IF MORE THAN 
6 FILES ARE  FOUND,  THE.               
SUBWINDOW WILL HAVE A CLICK BOX FOR SCRO
LLING THE LIST..          17   THE DATA 
FOR THIS COMMAND IS THE ADDRESS OF THE R
OUTINE  FOR.               BUTTON PRESSE
D.  THIS COMMAND SETS THE VECTOR AT $84A
9-$84AA.               TO A USER SPECIFI
ED ROUTINE..          18   THE DATA FOR 
THIS COMMAND IS THE COLUMN OFFSET IN BYT
ES, THE.               ROW  OFFSET  IN  
PIXELS AND THE ADDRESS OF A USER'S  8  B
YTE.               CLICK BOX DESCRIPTION
, IN THE FOLLOWING FORMAT:.             
            #BYTES    DESCRIPTION.      
                      2      ADDRESS OF 
GRAPHIC DATA..                          
  2      NOT USED..                     
       1      WIDTH OF BOX IN BYTES..   
                         1      HEIGHT O
F BOX IN PIXELS..                       
     2      ADDRESS OF ROUTINE TO PROCES
S THIS BOX..          19   THE  DATA  FO
R  THIS  COMMAND  IS  THE  ADDRESS  OF  
A  USER.               SUBROUTINE.  THIS
 COMMAND CALLS THE USER'S SUBROUTINE....
.......          GEOS KERNAL ROUTINES   
                                   1-62.
..          FUNCTION NAME: WR180.       
   PURPOSE: WRITE TRACK 18 SECTOR 0 BACK
 TO DISK..          CALL ADDRESS: $C24A.
          INPUT REQUIREMENTS:.          
     $8200-$82FF DATA FOR TRACK 18 SECTO
R 0..          OUTPUT:.               $0
4       $12, TRACK NUMBER..             
  $05       $00, SECTOR NUMBER..        
       $0A-$0B   $8200, ADDRESS OF BUFFE
R AREA..          ERRORS: SEE APPENDIX I
...          DESCRIPTION:  THIS  ROUTINE
 SETS UP THE POINTERS FOR WRITE,  THEN. 
         CALLS  IT TO WRITE THE SECTOR. 
 THIS IS GENERALLY USED TO  UPDATE.     
     THE BAM ON THE DISK....          FU
NCTION NAME: WRITE.          PURPOSE: WR
ITE A GIVEN TRACK AND SECTOR..          
CALL ADDRESS: $C1E7.          INPUT REQU
IREMENTS:.               $04       TRACK
 OF SECTOR TO BE WRITTEN..              
 $05       SECTOR NUMBER TO BE WRITTEN..
               $0A-$0B   POINTER TO BUFF
ER..          ERRORS: SEE APPENDIX..    
      DESCRIPTION: LOADS TURBODOS IF IT 
IS NOT ALREADY THERE BY CALLING.        
  DSETUP.  THE DESIRED BLOCK IS THEN WRI
TTEN TO THE DISK BY CALLING.          WR
ITE2.  FINALLY CWRITE IS CALLED TO VERIF
Y THE SECTOR....          FUNCTION NAME:
 WRITE2.          PURPOSE: WRITE A SECTO
R TO THE DISK..          CALL ADDRESS: $
C220.          INPUT REQUIREMENTS:.     
          $04       TRACK NUMBER..      
         $05       SECTOR NUMBER..      
         $0A-$0B   POINTER TO DATA BUFFE
R..          PREPARATORY ROUTINES: DSETU
P.          ERRORS: SEE APPENDIX I...   
       DESCRIPTION:  THIS  ROUTINE  IS T
O WRITE,  AS READ2 IS  TO  READ..       
   DSETUP MUST HAVE BEEN CALLED PRIOR TO
 USING THIS ROUTINE....          FUNCTIO
N NAME: ZFILL.          PURPOSE: FILLS A
 MEMORY REGION WITH ZEROES..          CA
LL ADDRESS: $C178.          INPUT REQUIR
EMENTS:.               $02-$03   THE LEN
GTH OF THE REGION..               $04-$0
5   THE ADDRESS OF THE REGION...        
  DESCRIPTION:  MEMORY  IS  FILLED WITH 
ZEROES BY STORING A $00  AT.          LO
CATION $06 AND CALLING BLKFIL.........
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL