ATARI® 400/800™
ATARI® HOME COMPUTER SYSTEM
OPERATING SYSTEM
SOURCE LISTING

ATARI®
A Warner Communications Company

COPYRIGHT 1982, ATARI, INC.
ALL RIGHTS RESERVED

TO ALL PERSONS RECEIVING THIS DOCUMENT

Reproduction is forbidden without the specific written permission of ATARI, INC. Sunnyvale, CA 94086. No right to reproduce this document, nor the subject matter thereof, is granted unless by written agreement with, or written permission from the Corporation.


Every effort has been made to ensure that this manual accurately documents this product of the ATARI Home Computer Division. However, due to the ongoing improvement and update of the computer software and hardware, ATARI, INC. cannot guarantee the accuracy of printed material after the date of publication and disclaims liability for changes, errors, or omissions.

ERR LINE  ADDR  B1 B2 B3 B4                       6500 ASSEMBLER VER 1. OMR

       1                             LIST X
       2                            ; THIS IS THE MODIFIED SEPTEMBER ATARI 400/800 COMPUTER OPERATING
       3                            ; SYSTEM LISTING, MODIFIED TO ASSEMBLE ON THE MICROTEC CROSS
       4                            ; ASSEMBLER.
       5                            ; THIS VERSION IS THE ONE WHICH WAS BURNED INTO ROM.
       6                            ; THERE IS A RESIDUAL PIECE OF CODE WHICH IS FOR LNBUG. THIS
       7                            ; IS AT LOCATION $9000 WHICH IS NOT IN ROM.
       8                            ;
       9                            ; THIS IS THE REVISION B EPROM VERSION
      10                                    .PAGE
      11                            ;
      12                            ;
      13                            ;       COLLEEN OPERATING SYSTEM EQUATE FILE
      14                            ;
      15                            ;       NTSC/PAL ASSEMBLY FLAG
      16                            ;
      17  0000                      PALFLG  =       0           ;0 = NTSC   1 = PAL
      18                            ;
      19                            ;
      20                            ;       MODULE ORIGIN TABLE
      21                            ;
      22  E000                      CHRORG  =       $E000       ;CHARACTER SET
      23  E400                      VECTBL  =       $E400       ;VECTOR TABLE
      24  E480                      VCTABL  =       $E480       ;RAM VECTOR INITIAL VALUE TABLE
      25  E4A6                      CIOORG  =       $E4A6       ;CENTRAL I/O HANDLER
      26  E6D5                      INTORG  =       $E6D5       ;INTERRUPT HANDLER
      27  E944                      SIOORG  =       $E944       ;SERIAL I/O DRIVER
      28  EDEA                      DSKORG  =       $EDEA       ;DISK HANDLER
      29  EE78                      PRNORG  =       $EE78       ;PRINTER HANDLER
      30  EF41                      CASORG  =       $EF41       ;CASSETTE HANDLER
      31  F0E3                      MONORG  =       $F0E3       ;MONITOR/POWER UP MODULE
      32  F3E4                      KBDORG  =       $F3E4       ;KEYBOARD/DISPLAY HANDLER
      33                            ;
      34                            ;
      35                            ;
      36                            ;
      37                            ;     VECTOR TABLE
      38                            ;
      39                            ;HANDLER ENTRY POINTS ARE CALLED OUT IN THE FOLLOWING VECTOR
      40                            ;TABLE. THESE ARE THE ADDRESSES MINUS ONE.
      41                            ;
      42                            ;
      43                            ;EXAMPLE FOR EDITOR
      44                            ;
      45                            ;    E400       OPEN
      46                            ;       2       CLOSE
      47                            ;       4       GET
      48                            ;       6       PUT
      49                            ;       8       STATUS
      50                            ;       A       SPECIAL
      51                            ;       C       JUMP TO POWER ON INITIALIZATION ROUTINE
      52                            ;       F       NOT USED
      53                            ;
      54                            ;
      55  E400                      EDITRV  =       $E400       ;EDITOR
      56  E410                      SCRENV  =       $E410       ;TELEVISION SCREEN
      57  E420                      KEYBDV  =       $E420       ;KEYBOARD
      58  E430                      PRINTV  =       $E430       ;PRINTER
      59  E440                      CASETV  =       $E440       ;CASSETTE
      60                            ;
      61                            ;       JUMP VECTOR TABLE
      62                            ;
      63                            ;THE FOLLOWING IS A TABLE OF JUMP INSTRUCTIONS
      64                            ;TO VARIOUS ENTRY POINTS IN THE OPERATING SYSTEM.
      65                            ;
      66  E450                      DISKIV  =       $E450       ;DISK INITIALIZATION
      67  E453                      DSKINV  =       $E453       ;DISK INTERFACE
      68  E456                      CIOV    =       $E456       ;CENTRAL INPUT OUTPUT ROUTINE
      69  E459                      SIOV    =       $E459       ;SERIAL INPUT OUTPUT ROUTINE
      70  E45C                      SETVBV  =       $E45C       ;SET SYSTEM TIMERS ROUTINE
      71  E45F                      SYSVBV  =       $E45F       ;SYSTEM VERTICAL BLANK CALCULATIONS
      72  E462                      XITVBV  =       $E462       ;EXIT VERTICAL BLANK CALCULATIONS
      73  E465                      SIOINV  =       $E465       ;SERIAL INPUT OUTPUT INITIALIZATION
      74  E468                      SENDEV  =       $E468       ;SEND ENABLE ROUTINE
      75  E46B                      INTINV  =       $E46B       ;INTERRUPT HANDLER INITIALIZATION
      76  E46E                      CIOINV  =       $E46E       ;CENTRAL INPUT OUTPUT INITIALIZATION
      77  E471                      BLKBDV  =       $E471       ;BLACKBOARD MODE
      78  E474                      WARMSV  =       $E474       ;WARM START ENTRY POINT
      79  E477                      COLDSV  =       $E477       ;COLD START ENTRY POINT
      80  E47A                      RBLOKV  =       $E47A       ;CASSETTE READ BLOCK ENTRY POINT VECTOR
      81  E47D                      CSOPIV  =       $E47D       ;CASSETTE OPEN FOR INPUT VECTOR
      82                            ;VCTABL = $E480
      83                            ;
      84                            ;
      85                            ; OPERATING SYSTEM EQUATES
      86                            ;
      87                            ; COMMAND CODES FOR IOCB
      88  0003                      OPEN    =       3           ;OPEN FOR INPUT/OUTPUT
      89  0005                      GETREC  =       5           ;GET RECORD (TEXT)
      90  0007                      GETCHR  =       7           ;GET CHARACTER(S)
      91  0009                      PUTREC  =       9           ;PUT RECORD (TEXT)
      92  000B                      PUTCHR  =       $B          ;PUT CHARACTER(S)
      93  000C                      CLOSE   =       $C          ;CLOSE DEVICE
      94  000D                      STATIS  =       $D          ;STATUS REQUEST
      95  000E                      SPECIL  =       $E          ;BEGINNING OF SPECIAL ENTRY COMMANDS
      96                            ;
      97                            ; SPECIAL ENTRY COMMANDS
      98  0011                      DRAWLN  =       $11         ;DRAW LINE
      99  0012                      FILLIN  =       $12         ;DRAW LINE WITH RIGHT FILL
     100  0020                      RENAME  =       $20         ;RENAME DISK FILE
     101  0021                      DELETE  =       $21         ;DELETE DISK FILE
     102  0022                      FORMAT  =       $22         ;FORMAT
     103  0023                      LOCKFL  =       $23         ;LOCK FILE TO READ ONLY
     104  0024                      UNLOCK  =       $24         ;UNLOCK LOCKED FILE
     105  0025                      POINT   =       $25         ;POINT SECTOR
     106  0026                      NOTE    =       $26         ;NOTE SECTOR
     107  00FF                      IOCFRE  =       $FF         ;IOCB "FREE"
     108                            ;
     109                            ; AUX1 EQUATES
     110                            ; () INDICATES WHICH DEVICES USE BIT
     111  0001                      APPEND  =       $1          ;OPEN FOR WRITE APPEND (D), OR SCREEN READ (E)
     112  0002                      DIRECT  =       $2          ;OPEN FOR DIRECTORY ACCESS (D)
     113  0004                      OPNIN   =       $4          ;OPEN FOR INPUT (ALL DEVICES)
     114  0008                      OPNOT   =       $8          ;OPEN FOR OUTPUT (ALL DEVICES)
     115  000C                      OPNINO  =       OPNIN+OPNOT ;OPEN FOR INPUT AND OUTPUT (ALL DEVICES)
     116  0010                      MXDMOD  =       $10         ;OPEN FOR MIXED MODE (E,S)
     117  0020                      INSCLR  =       $20         ;OPEN WITHOUT CLEARING SCREEN (E,S)
     118                            ;
     119                            ; DEVICE NAMES
     120  0045                      SCREDT  =       'E          ;SCREEN EDITOR (R/W)
     121  004B                      KBD     =       'K          ;KEYBOARD (R ONLY)
     122  0053                      DISPLY  =       'S          ;SCREEN DISPLAY (R/W)
     123  0050                      PRINTR  =       'P          ;PRINTER (W ONLY)
     124  0043                      CASSET  =       'C          ;CASSETTE
     125  004D                      MODEM   =       'M          ;MODEM
     126  0044                      DISK    =       'D          ;DISK (R/W)
     127                            ;
     128                            ; SYSTEM EOL (CARRIAGE RETURN)
     129  009B                      CR      =       $9B
     130                            ;
     131                            ;
     132                            ;       OPERATING SYSTEM STATUS CODES
     133                            ;
     134  0001                      SUCCES  =       $01         ;SUCCESSFUL OPERATION
     135                            ;
     136  0080                      BRKABT  =       $80         ;BREAK KEY ABORT
     137  0081                      PRVOPN  =       $81         ;IOCB ALREADY OPEN
     138  0082                      NONDEV  =       $82         ;NON-EXISTANT DEVICE
     139  0083                      WRONLY  =       $83         ;IOCB OPENED FOR WRITE ONLY
     140  0084                      NVALID  =       $84         ;INVALID COMMAND
     141  0085                      NOTOPN  =       $85         ;DEVICE OR FILE NOT OPEN
     142  0086                      BADIOC  =       $86         ;INVALID IOCB NUMBER
     143  0087                      RDONLY  =       $87         ;IOCB OPENED FOR READ ONLY
     144  0088                      EOFERR  =       $88         ;END OF FILE
     145  0089                      TRNRCD  =       $89         ;TRUNCATED RECORD
     146  008A                      TIMOUT  =       $8A         ;PERIPHERAL DEVICE TIME OUT
     147  008B                      DNACK   =       $8B         ;DEVICE DOES NOT ACKNOWLEDGE COMMAND
     148  008C                      FRMERR  =       $8C         ;SERIAL BUS FRAMING ERROR
     149  008D                      CRSROR  =       $8D         ;CURSOR OVERRANGE
     150  008E                      OVRRUN  =       $8E         ;SERIAL BUS DATA OVERRUN
     151  008F                      CHKERR  =       $8F         ;SERIAL BUS CHECKSUM ERROR
     152                            ;
     153  0090                      DERROR  =       $90         ;PERIPHERAL DEVICE ERROR (OPERATION NOT COMPLETED)
     154  0091                      BADMOD  =       $91         ;BAD SCREEN MODE NUMBER
     155  0092                      FNCNOT  =       $92         ;FUNCTION NOT IMPLEMENTED IN HANDLER
     156  0093                      SCRMEM  =       $93         ;INSUFICIENT MEMORY FOR SCREEN MODE
     157                            ;
     158                            ;
     159                            ;
     160                            ;
     161                            ;
     162                            ;
     163                            ;       PAGE ZERO RAM ASSIGNMENTS
     164                            ;
     165                                    *=$0000
     166  0000                      LINZBS: .RES    2           ;LINBUG RAM (WILL BE REPLACED BY MONITOR RAM)
     167                            ;
     168                            ; THESE LOCATIONS ARE NOT CLEARED
     169  0002                      CASINI: .RES    2           ;CASSETTE INIT LOCATION
     170  0004                      RAMLO:  .RES    2           ;RAM POINTER FOR MEMORY TEST
     171  0006                      TRAMSZ: .RES    1           ;TEMPORARY REGISTER FOR RAM SIZE
     172  0007                      TSTDAT: .RES    1           ;RAM TEST DATA REGISTER
     173                            ;
     174                            ; CLEARED ON COLDSTART ONLY
     175  0008                      WARMST: .RES    1           ;WARM START FLAG
     176  0009                      BOOT?:  .RES    1           ;SUCCESSFUL BOOT FLAG
     177  000A                      DOSVEC: .RES    2           ;DISK SOFTWARE START VECTOR
     178  000C                      DOSINI: .RES    2           ;DISK SOFTWARE INIT ADDRESS
     179  000E                      APPMHI: .RES    2           ;APPLICATIONS MEMORY HI LIMIT
     180                            ;
     181                            ; CLEARED ON COLD OR WARM START
     182  0010                      INTZBS  =*                  ;INTERRUPT HANDLER
     183  0010                      POKMSK: .RES    1           ;SYSTEM MASK FOR POKEY IRQ ENABLE
     184  0011                      BRKKEY: .RES    1           ;BREAK KEY FLAG
     185  0012                      RTCLOK: .RES    3           ;REAL TIME CLOCK (IN 16 MSEC UNITS)
     186                            ;
     187  0015                      BUFADR: .RES    2           ;INDIRECT BUFFER ADDRESS REGISTER
     188                            ;
     189  0017                      ICCOMT: .RES    1           ;COMMAND FOR VECTOR
     190                            ;
     191  0018                      DSKFMS: .RES    2           ;DISK FILE MANAGER POINTER
     192  001A                      DSKUTL: .RES    2           ;DISK UTILITIES POINTER
     193                            ;
     194  001C                      PTIMOT: .RES    1           ;PRINTER TIME OUT REGISTER
     195  001D                      PBPNT:  .RES    1           ;PRINT BUFFER POINTER
     196  001E                      PBUFSZ: .RES    1           ;PRINT BUFFER SIZE
     197  001F                      PTEMP:  .RES    1           ;TEMPORARY REGISTER
     198                            ;
     199  0020                      ZIOCB   =*                  ;ZERO PAGE I/O CONTROL BLOCK
     200  0010                      IOCBSZ  =       16          ;NUMBER OF BYTES PER IOCB
     201  0080                      MAXIOC  =       8*IOCBSZ    ;LENGTH OF THE IOCB AREA
     202  0020                      IOCBAS  =*
     203  0020                      ICHIDZ: .RES    1           ;HANDLER INDEX NUMBER (FF = IOCB FREE)
     204  0021                      ICDNOZ: .RES    1           ;DEVICE NUMBER (DRIVE NUMBER)
     205  0022                      ICCOMZ: .RES    1           ;COMMAND CODE
     206  0023                      ICSTAZ: .RES    1           ;STATUS OF LAST IOCB ACTION
     207  0024                      ICBALZ: .RES    1           ;BUFFER ADDRESS LOW BYTE
     208  0025                      ICBAHZ: .RES    1
     209  0026                      ICPTLZ: .RES    1           ;PUT BYTE ROUTINE ADDRESS - 1
     210  0027                      ICPTHZ: .RES    1
     211  0028                      ICBLLZ: .RES    1           ;BUFFER LENGTH LOW BYTE
     212  0029                      ICBLHZ: .RES    1
     213  002A                      ICAX1Z: .RES    1           ;AUXILIARY INFORMATION FIRST BYTE
     214  002B                      ICAX2Z: .RES    1
     215  002C                      ICSPRZ: .RES    4           ;TWO SPARE BYTES (CIO LOCAL USE)
     216  002E                      ICIDNO  =       ICSPRZ+2    ;IOCB NUMBER X 16
     217  002F                      CIOCHR  =       ICSPRZ+3    ;CHARACTER BYTE FOR CURRENT OPERATION
     218                            ;
     219  0030                      STATUS: .RES    1           ;INTERNAL STATUS STORAGE
     220  0031                      CHKSUM: .RES    1           ;CHECKSUM (SINGLE BYTE SUM WITH CARRY)
     221  0032                      BUFRLO: .RES    1           ;POINTER TO DATA BUFFER (LO BYTE)
     222  0033                      BUFRHI: .RES    1           ;POINTER TO DATA BUFFER (HI BYTE)
     223  0034                      BFENLO: .RES    1           ;NEXT BYTE PAST END OF THE DATA BUFFER (LO BYTE)
     224  0035                      BFENHI: .RES    1           ;NEXT BYTE PAST END OF THE DATA BUFFER (HI BYTE)
     225  0036                      CRETRY: .RES    1           ;NUMBER OF COMMAND FRAME RETRIES
     226  0037                      DRETRY: .RES    1           ;NUMBER OF DEVICE RETRIES
     227  0038                      BUFRFL: .RES    1           ;DATA BUFFER FULL FLAG
     228  0039                      RECVDN: .RES    1           ;RECEIVE DONE FLAG
     229  003A                      XMTDON: .RES    1           ;TRANSMISSION DONE FLAG
     230  003B                      CHKSNT: .RES    1           ;CHECKSUM SENT FLAG
     231  003C                      NOCKSM: .RES    1           ;NO CHECKSUM FOLLOWS DATA FLAG
     232                            ;
     233                            ;
     234  003D                      BPTR:   .RES    1
     235  003E                      FTYPE:  .RES    1
     236  003F                      FEOF:   .RES    1
     237  0040                      FREQ:   .RES    1
     238  0041                      SOUNDR: .RES    1           ;NOISY I/O FLAG. (ZERO IS QUIET)
     239  0042                      CRITIC: .RES    1           ;DEFINES CRITICAL SECTION (CRITICAL IF NON-ZERO)
     240                            ;
     241  0043                      FMSZPG: .RES    7           ;DISK FILE MANAGER SYSTEM ZERO PAGE
     242                            ;
     243                            ;
     244  004A                      CKEY:   .RES    1           ;FLAG SET WHEN GAME START PRESSED
     245  004B                      CASSBT: .RES    1           ;CASSETTE BOOT FLAG
     246  004C                      DSTAT:  .RES    1           ;DISPLAY STATUS
     247                            ;
     248  004D                      ATRACT: .RES    1           ;ATRACT FLAG
     249  004E                      DRKMSK: .RES    1           ;DARK ATRACT MASK
     250  004F                      COLRSH: .RES    1           ;ATRACT COLOR SHIFTER (EOR'ED WITH PLAYFIELD COLORS)
     251                            ;
     252  0002                      LEDGE   =       2           ;LMARGN'S VALUE AT COLD START
     253  0027                      REDGE   =       39          ;RMARGN'S VALUE AT COLD START
     254  0050                      TMPCHR: .RES    1
     255  0051                      HOLD1:  .RES    1
     256  0052                      LMARGN: .RES    1           ;LEFT MARGIN (SET TO 1 AT POWER ON)
     257  0053                      RMARGN: .RES    1           ;RIGHT MARGIN (SET TO 38 AT POWER ON)
     258  0054                      ROWCRS: .RES    1           ;CURSOR COUNTERS
     259  0055                      COLCRS: .RES    2
     260  0057                      DINDEX: .RES    1
     261  0058                      SAVMSC: .RES    2
     262  005A                      OLDROW: .RES    1
     263  005B                      OLDCOL: .RES    2
     264  005D                      OLDCHR: .RES    1           ;DATA UNDER CURSOR
     265  005E                      OLDADR: .RES    2
     266  0060                      NEWROW: .RES    1           ;POINT DRAW GOES TO
     267  0061                      NEWCOL: .RES    2
     268  0063                      LOGCOL: .RES    1           ;POINTS AT COLUMN IN LOGICAL LINE
     269  0064                      ADRESS: .RES    2
     270  0066                      MLTTMP: .RES    2
     271  0066                      OPNTMP  =       MLTTMP      ;FIRST BYTE IS USED IN OPEN AS TEMP
     272  0068                      SAVADR: .RES    2
     273  006A                      RAMTOP: .RES    1           ;RAM SIZE DEFINED BY POWER ON LOGIC
     274  006B                      BUFCNT: .RES    1           ;BUFFER COUNT
     275  006C                      BUFSTR: .RES    2           ;EDITOR GETCH POINTER
     276  006E                      BITMSK: .RES    1           ;BIT MASK
     277  006F                      SHFAMT: .RES    1
     278  0070                      ROWAC:  .RES    2
     279  0072                      COLAC:  .RES    2
     280  0074                      ENDPT:  .RES    2
     281  0076                      DELTAR: .RES    1
     282  0077                      DELTAC: .RES    2
     283  0079                      ROWINC: .RES    1
     284  007A                      COLINC: .RES    1
     285  007B                      SWPFLG: .RES    1           ;NON-0 IF TXT AND REGULAR RAM IS SWAPPED
     286  007C                      HOLDCH: .RES    1           ;CH IS MOVED HERE IN KGETCH BEFORE CNTL & SHIFT PROC
     287  007D                      INSDAT: .RES    1
     288  007E                      COUNTR: .RES    2
     289                            ;
     290                            ;
     291                            ;
     292                            ;
     293                            ;       80 - FF ARE RESERVED FOR USER APPLICATIONS
     294                            ;
     295                            ;
     296                            ;
     297                            ;       NOTE : SEE FLOATING POINT SUBROUTINE AREA FOR ZERO PAGE CELLS
     298                            ;
     299                            ;
     300                            ;
     301                            ;
     302                            ;       PAGE 1   -   STACK
     303                            ;
     304                            ;
     305                            ;
     306                            ;
     307                            ;       PAGE TWO RAM ASSIGNMENTS
     308                            ;
     309                                    *=$0200
     310  0200                      INTABS  =*                  ;INTERRUPT RAM
     311  0200                      VDSLST: .RES    2           ;DISPLAY LIST NMI VECTOR
     312  0202                      VPRCED: .RES    2           ;PROCEED LINE IRQ VECTOR
     313  0204                      VINTER: .RES    2           ;INTERRUPT LINE IRQ VECTOR
     314  0206                      VBREAK: .RES    2           ;SOFTWARE BREAK (00) INSTRUCTION IRQ VECTOR
     315  0208                      VKEYBD: .RES    2           ;POKEY KEYBOARD IRQ VECTOR
     316  020A                      VSERIN: .RES    2           ;POKEY SERIAL INPUT READY IRQ
     317  020C                      VSEROR: .RES    2           ;POKEY SERIAL OUTPUT READY IRQ
     318  020E                      VSEROC: .RES    2           ;POKEY SERIAL OUTPUT COMPLETE IRQ
     319  0210                      VTIMR1: .RES    2           ;POKEY TIMER 1 IRQ
     320  0212                      VTIMR2: .RES    2           ;POKEY TIMER 2 IRQ
     321  0214                      VTIMR4: .RES    2           ;POKEY TIMER 4 IRQ
     322  0216                      VIMIRQ: .RES    2           ;IMMEDIATE IRQ VECTOR
     323  0218                      CDTMV1: .RES    2           ;COUNT DOWN TIMER 1
     324  021A                      CDTMV2: .RES    2           ;COUNT DOWN TIMER2
     325  021C                      CDTMV3: .RES    2           ;COUNT DOWN TIMER 3
     326  021E                      CDTMV4: .RES    2           ;COUNT DOWN TIMER 4
     327  0220                      CDTMV5: .RES    2           ;COUNT DOWN TIMER 5
     328  0222                      VVBLKI: .RES    2           ;IMMEDIATE VERTICAL BLANK NMI VECTOR
     329  0224                      VVBLKD: .RES    2           ;DEFERRED VERTICAL BLANK NMI VECTOR
     330  0226                      CDTMA1: .RES    2           ;COUNT DOWN TIMER 1 JSR ADDRESS
     331  0228                      CDTMA2: .RES    2           ;COUNT DOWN TIMER 2 JSR ADDRESS
     332  022A                      CDTMF3: .RES    1           ;COUNT DOWN TIMER 3 FLAG
     333  022B                      SRTIMR: .RES    1           ;SOFTWARE REPEAT TIMER
     334  022C                      CDTMF4: .RES    1           ;COUNT DOWN TIMER 4 FLAG
     335  022D                      INTEMP: .RES    1           ;IAN'S TEMP (RENAMED FROM T1 BY POPULAR DEMAND)
     336  022E                      CDTMF5: .RES    1           ;COUNT DOWN TIMER FLAG 5
     337  022F                      SDMCTL: .RES    1           ;SAVE DMACTL REGISTER
     338  0230                      SDLSTL: .RES    1           ;SAVE DISPLAY LIST LOW BYTE
     339  0231                      SDLSTH: .RES    1           ;SAVE DISPLAY LIST HI BYTE
     340  0232                      SSKCTL: .RES    1           ;SKCTL REGISTER RAM
     341  0233                              .RES    1           ;
     342                            ;
     343  0234                      LPENH:  .RES    1           ;LIGHT PEN HORIZONTAL VALUE
     344  0235                      LPENV:  .RES    1           ;LIGHT PEN VERTICAL VALUE
     345  0236                      BRKKY:  .RES    2           ;BREAK KEY VECTOR
     346                            ;
     347  0238                              .RES    2           ;SPARE
     348                            ;
     349  023A                      CDEVIC: .RES    1           ;COMMAND FRAME BUFFER - DEVICE
     350  023B                      CCOMND: .RES    1           ;COMMAND
     351  023C                      CAUX1:  .RES    1           ;COMMAND AUX BYTE 1
     352  023D                      CAUX2:  .RES    1           ;COMMAND AUX BYTE 2
     353                            ;   NOTE: MAY NOT BE THE LAST WORD ON A PAGE
     354  023E                      TEMP:   .RES    1           ;TEMPORARY RAM CELL
     355                            ;   NOTE: MAY NOT BE THE LAST WORD ON A PAGE
     356  023F                      ERRFLG: .RES    1           ;ERROR FLAG - ANY DEVICE ERROR EXCEPT TIME OUT
     357                            ;
     358  0240                      DFLAGS: .RES    1           ;DISK FLAGS FROM SECTOR ONE
     359  0241                      DBSECT: .RES    1           ;NUMBER OF DISK BOOT SECTORS
     360  0242                      BOOTAD: .RES    2           ;ADDRESS WHERE DISK BOOT LOADER WILL BE PUT
     361  0244                      COLDST: .RES    1           ;COLDSTART FLAG (1=IN MIDDLE OF COLDSTART)
     362                            ;
     363  0245                              .RES    1           ;SPARE
     364                            ;
     365  0246                      DSKTIM: .RES    1           ;DISK TIME OUT REGISTER
     366                            ;
     367  0247                      LINBUF: .RES    40          ;CHAR LINE BUFFER
     368                            ;
     369  026F                      GPRIOR: .RES    1           ;GLOBAL PRIORITY CELL
     370                            ;
     371  0270                      PADDL0: .RES    1           ;POTENTIOMETER 0 RAM CELL
     372  0271                      PADDL1: .RES    1
     373  0272                      PADDL2: .RES    1
     374  0273                      PAODL3: .RES    1
     375  0274                      PADDL4: .RES    1
     376  0275                      PADDL5: .RES    1
     377  0276                      PADDL6: .RES    1
     378  0277                      PADDL7: .RES    1
     379  0278                      STICK0: .RES    1           ;JOYSTICK 0 RAM CELL
     380  0279                      STICK1: .RES    1
     381  027A                      STICK2: .RES    1
     382  027B                      STICK3: .RES    1
     383  027C                      PTRIG0: .RES    1           ;PADDLE TRIGGER 0
     384  027D                      PTRIG1: .RES    1
     385  027E                      PTRIG2: .RES    1
     386  027F                      PTRIG3: .RES    1
     387  0280                      PTRIG4: .RES    1
     388  0281                      PTRIG5: .RES    1
     389  0282                      PTRIG6: .RES    1
     390  0283                      PTRIG7: .RES    1
     391  0284                      STRIG0: .RES    1           ;JOYSTICK TRIGGER 0
     392  0285                      STRIG1: .RES    1
     393  0286                      STRIG2: .RES    1
     394  0287                      STRIG3: .RES    1
     395                            ;
     396  0288                      CSTAT:  .RES    1
     397  0289                      WMODE:  .RES    1
     398  028A                      BLIM:   .RES    1
     399  028B                      IMASK:  .RES    1
     400  028C                      JVECK:  .RES    2
     401                            ;
     402  028E                              .RES    2           ;SPARE
     403                            ;
     404                            ;
     405                            ;
     406                            ;
     407  0290                      TXTROW: .RES    1           ;TEXT ROWCRS
     408  0291                      TXTCOL: .RES    2           ;TEXT COLCRS
     409  0293                      TINDEX: .RES    1           ;TEXT INDEX
     410  0294                      TXTMSC: .RES    2           ;FOOLS CONVRT INTO NEW MSC
     411  0296                      TXTOLD: .RES    6           ;OLDROW & OLDCOL FOR TEXT (AND THEN SOME)
     412  029C                      TMPX1:  .RES    1
     413  029D                      HOLD3:  .RES    1
     414  029E                      SUBTMP: .RES    1
     415  029F                      HOLD2:  .RES    1
     416  02A0                      DMASK:  .RES    1
     417  02A1                      TMPLBT: .RES    1
     418  02A2                      ESCFLG: .RES    1           ;ESCAPE FLAG
     419  02A3                      TABMAP: .RES    15
     420  02B2                      LOGMAP: .RES    4           ;LOGICAL LINE START BIT MAP
     421  02B6                      INVFLG: .RES    1           ;INVERSE VIDEO FLAG (TOGGLED BY ATARI KEY)
     422  02B7                      FILFLG: .RES    1           ;RIGHT FILL FLAG FOR DRAW
     423  02B8                      TMPROW: .RES    1
     424  02B9                      TMPCOL: .RES    2
     425  02BB                      SCRFLG: .RES    1           ;SET IF SCROLL OCCURS
     426  02BC                      HOLD4:  .RES    1           ;TEMP CELL USED IN DRAW ONLY
     427  02BD                      HOLD5:  .RES    1           ;DITTO
     428  02BE                      SHFLOK: .RES    1
     429  02BF                      BOTSCR: .RES    1           ;BOTTOM OF SCREEN : 24 NORM 4 SPLIT
     430                            ;
     431                            ;
     432  02C0                      PCOLR0: .RES    1           ;P0 COLOR
     433  02C1                      PCOLR1: .RES    1           ;P1 COLOR
     434  02C2                      PCOLR2: .RES    1           ;P2 COLOR
     435  02C3                      PCOLR3: .RES    1           ;P3 COLOR
     436  02C4                      COLOR0: .RES    1           ;COLOR 0
     437  02C5                      COLOR1: .RES    1
     438  02C6                      COLOR2: .RES    1
     439  02C7                      COLOR3: .RES    1
     440  02C8                      COLOR4: .RES    1
     441                            ;
     442                            ;
     443  02C9                              .RES    23          ;SPARE
     444                            ;
     445                            ;
     446                            ;
     447  02E0                      GLBABS  =*                  ;GLOBAL VARIABLES
     448                            ;
     449  02E0                              .RES    4           ;SPARE
     450                            ;
     451  02E4                      RAMSIZ: .RES    1           ;RAM SIZE (HI BYTE ONLY)
     452  02E5                      MEMTOP: .RES    2           ;TOP OF AVAILABLE USER MEMORY
     453  02E7                      MEMLO:  .RES    2           ;BOTTOM OF AVAILABLE USER MEMORY
     454  02E9                              .RES    1           ;SPARE
     455  02EA                      DVSTAT: .RES    4           ;STATUS BUFFER
     456  02EE                      CBAUDL: .RES    1           ;CASSETTE BAUD RATE LOW BYTE
     457  02EF                      CBAUDH: .RES    1
     458                            ;
     459  02F0                      CRSINH: .RES    1           ;CURSOR INHIBIT (00 = CURSOR ON)
     460  02F1                      KEYDEL: .RES    1           ;KEY DELAY
     461  02F2                      CH1:    .RES    1
     462                            ;
     463  02F3                      CHACT:  .RES    1           ;CHACTL REGISTER RAM
     464  02F4                      CHBAS:  .RES    1           ;CHBAS REGISTER RAM
     465                            ;
     466  02F5                              .RES    5           ;SPARE BYTES
     467                            ;
     468  02FA                      CHAR:   .RES    1
     469  02FB                      ATACHR: .RES    1           ;ATASCII CHARACTER
     470  02FC                      CH:     .RES    1           ;GLOBAL VARIABLE FOR KEYBOARD
     471  02FD                      FILDAT: .RES    1           ;RIGHT FILL DATA (DRAW)
     472  02FE                      DSPFLG: .RES    1           ;DISPLAY FLAG : DISPLAY CNTLS IF NON-ZERO
     473  02FF                      SSFLAG: .RES    1           ;START/STOP FLAG FOR PAGING (CNTL 1). CLEARED BY BREAK
     474                            ;
     475                            ;
     476                            ;
     477                            ;
     478                            ;
     479                            ;
     480                            ;
     481                            ;       PAGE THREE RAM ASSIGNMENTS
     482                            ;
     483  0300                      DCB     =*                  ;DEVICE CONTROL BLOCK
     484  0300                      DDEVIC: .RES    1           ;PERIPHERAL UNIT 1 BUS I.D. NUMBER
     485  0301                      DUNIT:  .RES    1           ;UNIT NUMBER
     486  0302                      DCOMND: .RES    1           ;BUS COMMAND
     487  0303                      DSTATS: .RES    1           ;COMMAND TYPE/STATUS RETURN
     488  0304                      DBUFLO: .RES    1           ;DATA BUFFER POINTER LOW BYTE
     489  0305                      DBUFHI: .RES    1
     490  0306                      DTIMLO: .RES    1           ;DEVICE TIME OUT IN 1 SECOND UNITS
     491  0307                      DUNUSE: .RES    1           ;UNUSED BYTE
     492  0308                      DBYTLO: .RES    1           ;NUMBER OF BYTES TO BE TRANSFERRED LOW BYTE
     493  0309                      DBYTHI: .RES    1
     494  030A                      DAUX1:  .RES    1           ;COMMAND AUXILIARY BYTE 1
     495  030B                      DAUX2:  .RES    1
     496                            ;
     497  030C                      TIMER1: .RES    2           ;INITIAL TIMER VALUE
     498  030E                      ADDCOR: .RES    1           ;ADDITION CORRECTION
     499  030F                      CASFLG: .RES    1           ;CASSETTE MODE WHEN SET
     500  0310                      TIMER2: .RES    2           ;FINAL TIMER VALUE. THESE TWO TIMER VALUES
     501                            ; ARE USED TO COMPUTE INTERVAL FOR BAUD RATE
     502  0312                      TEMP1:  .RES    2           ;TEMPORARY STORAGE REGISTER
     503  0314                      TEMP2:  .RES    1           ;TEMPORARY STORAGE REGISTER
     504  0315                      TEMP3:  .RES    1           ;TEMPORARY STORAGE REGISTER
     505  0316                      SAVIO:  .RES    1           ;SAVE SERIAL IN DATA PORT
     506  0317                      TIMFLG: .RES    1           ;TIME OUT FLAG FOR BAUD RATE CORRECTION
     507  0318                      STACKP: .RES    1           ;SIO STACK POINTER SAVE CELL
     508  0319                      TSTAT:  .RES    1           ;TEMPORARY STATUS HOLDER
     509                            ;
     510                            ;
     511                            ;
     512  031A                      HATABS: .RES    38          ;HANDLER ADDRESS TABLE
     513  0021                      MAXDEV  =       *-HATABS-5  ;MAXIMUM HANDLER ADDRESS INDEX
     514                            ;
     515                            ;     NOTE : THE ENTIRE IOCB DEFINITIONS HAVE BEEN MODIFIED
     516                            ;
     517  0340                      IOCB:   .ORG    *           ;I/O CONTROL BLOCKS
     518  0340                      ICHID:  .RES    1           ;HANDLER INDEX NUMBER (FF = IOCB FREE)
     519  0341                      ICDNO:  .RES    1           ;DEVICE NUMBER (DRIVE NUMBER)
     520  0342                      ICCOM:  .RES    1           ;COMMAND CODE
     521  0343                      ICSTA:  .RES    1           ;STATUS OF LAST IOCB ACTION
     522  0344                      ICBAL:  .RES    1           ;BUFFER ADDRESS LOW BYTE
     523  0345                      ICBAH:  .RES    1
     524  0346                      ICPTL:  .RES    1           ;PUT BYTE ROUTINE ADDRESS - 1
     525  0347                      ICPTH:  .RES    1
     526  0348                      ICBLL:  .RES    1           ;BUFFER LENGTH LOW BYTE
     527  0349                      ICBLH:  .RES    1
     528  034A                      ICAX1:  .RES    1           ;AUXILIARY INFORMATION FIRST BYTE
     529  034B                      ICAX2:  .RES    1
     530  034C                      ICSPR:  .RES    4           ;FOUR SPARE BYTES
     531  0350                              .RES    MAXIOC-IOCBSZ
     532                            ;
     533  03C0                      PRNBUF: .RES    40          ;PRINTER BUFFER
     534                            ;
     535  03E8                              .RES    21          ;SPARE BYTES
     536                            ;
     537                            ;
     538                            ;
     539                            ;
     540                            ;
     541                            ;
     542                            ;
     543                            ;       PAGE FOUR RAM ASSIGNMENTS
     544                            ;
     545  03FD                      CASBUF: .RES    131         ;CASSETTE BUFFER
     546                            ;
     547                            ; USER AREA STARTS HERE AND GOES TO END OF PAGE FIVE
     548  0480                      USAREA: .RES    128         ;SPARE
     549                            ;
     550                            ;
     551                            ;
     552                            ;
     553                            ;
     554                            ;
     555                            ;
     556                            ;       PAGE FIVE RAM ASSIGNMENTS
     557                            ;
     558                            ;       PAGE FIVE IS RESERVED AS A USER WORK SPACE
     559                            ;
     560                            ;       NOTE: SEE FLOATING POINT SUBROUTINE AREA FOR PAGE FIVE CELLS
     561                            ;
     562                            ;
     563                            ;       PAGE SIX RAM ASSIGNMENTS
     564                            ;
     565                            ; PAGE SIX IS RESERVED AS A USER'S USER WORK SPACE
     566                            ;
     567                            ;
     568                            ;
     569                            ;
     570                            ;       FLOATING POINT SUBROUTINES
     571                            ;
     572  0006                      FPREC   =       6           ;FLOATING PT PRECISION (# OF BYTES)
     573                            ; IF CARRY USED THEN CARRY CLEAR => NO ERROR, CARRY SET => ERROR
     574  D800                      AFP     =       $D800       ;ASCII->FLOATING POINT (FP)
     575                            ;                               INBUFF+CIX -> FR0, CIX, CARRY
     576  D8E6                      FASC    =       $D8E6       ;FP -> ASCII FR0-> LBUFF (INBUFF)
     577  D9AA                      IFP     =       $D9AA       ;INTEGER -> FP
     578                            ;                               0-$FFFF (LSB,MSB) IN FR0,FR0+1->FR0
     579  D9D2                      FPI     =       $D9D2       ;FP -> INTEGER FR0 -> FR0,FR0+1, CARRY
     580  DA60                      FSUB    =       $DA60       ;FR0 <- FR0 - FR1 ,CARRY
     581  DA66                      FADD    =       $DA66       ;FR0 <- FR0 + FR1 ,CARRY
     582  DADB                      FMUL    =       $DADB       ;FR0 <- FR0 * FR1 ,CARRY
     583  DB28                      FDIV    =       $DB28       ;FR0 <- FR0 / FR1 ,CARRY
     584  DD89                      FLD0R   =       $DD89       ;FLOATING LOAD REG0   FR0  <- (X,Y)
     585  DD8D                      FLD0P   =       $DD8D       ;   "      "    "     FR0  <- (FLPTR)
     586  DD98                      FLD1R   =       $DD98       ;   "      "   REG1   FR1  <- (X,Y)
     587  DD9C                      FLD1P   =       $DD9C       ;   "      "    "     FR1  <- (FLPTR)
     588  DDA7                      FST0R   =       $DDA7       ;FLOATING STORE REG0 (X,Y) <- FR0
     589  DDAB                      FST0P   =       $DDAB       ;    "     "    " (FLPTR)  <- FR0
     590  DDB6                      FMOVE   =       $DDB6       ;FR1 <- FR0
     591  DD40                      PLYEVL  =       $DD40       ;FR0 <- P(Z) = SUM(I=N TO 0) (A(I)*Z**I) CARRY
     592                            ;                           INPUT: (X,Y) = A(N),A(N-1)...A(0)  -> PLYARG
     593                            ;                                  ACC   = # OF COEFFICIENTS = DEGREE+1
     594                            ;                                  FR0   = Z
     595  DDC0                      EXP     =       $DDC0       ;FR0 <- E**FR0 = EXP10(FR0 * LOG10(E)) CARRY
     596  DDCC                      EXP10   =       $DDCC       ;FR0 <- 10**FR0 CARRY
     597  DECD                      LOG     =       $DECD       ;FR0 <- LN(FR0) = LOG10(FR0)/LOG10(E) CARRY
     598  DED1                      LOG10   =       $DED1       ;FR0 <- LOG10 (FR0) CARRY
     599                            ; THE FOLLOWING ARE IN BASIC CARTRIDGE:
     600  BD81                      SIN     =       $BD81       ;FR0 <- SIN(FR0) DEGFLG=0 =>RADS, 6=>DEG. CARRY
     601  BD73                      COS     =       $BD73       ;FR0 <- COS(FR0) CARRY
     602  BE43                      ATAN    =       $BE43       ;FR0 <- ATAN(FR0) CARRY
     603  BEB1                      SQR     =       $BEB1       ;FR0 <- SQUAREROOT(FR0) CARRY
     604                            ; FLOATING POINT ROUTINES ZERO PAGE (NEEDED ONLY IF F.P. ROUTINES ARE CALLED)
     605                                    *=$D4
     606  00D4                      FR0:    .RES    FPREC       ;FP REG0
     607  00DA                      FRE:    .RES    FPREC
     608  00E0                      FR1:    .RES    FPREC       ;FP REG1
     609  00E6                      FR2:    .RES    FPREC
     610  00EC                      FRX:    .RES    1           ;FP SPARE
     611  00ED                      EEXP:   .RES    1           ;VALUE OF E
     612  00EE                      NSIGN:  .RES    1           ;SIGN OF #
     613  00EF                      ESIGN:  .RES    1           ;SIGN OF EXPONENT
     614  00F0                      FCHRFLG:.RES    1           ;1ST CHAR FLAG
     615  00F1                      DIGRT:  .RES    1           ;# OF DIGITS RIGHT OF DECIMAL
     616  00F2                      CIX:    .RES    1           ;CURRENT INPUT INDEX
     617  00F3                      INBUFF: .RES    2           ;POINTS TO USER'S LINE INPUT BUFFER
     618  00F5                      ZTEMP1: .RES    2
     619  00F7                      ZIEMP4: .RES    2
     620  00F9                      ZTEMP3: .RES    2
     621                            DEGFLG
     622  00FB                      RADFLG: .RES    1           ;0=RADIANS, 6=DEGREES
     623  0000                      RADON   =       0           ;INDICATES RADIANS
     624  0006                      DEGON   =       6           ;INDICATES DEGREES
     625  00FC                      FLPTR:  .RES    2           ;POINTS TO USER'S FLOATING PT NUMBER
     626  00FE                      FPTR2:  .RES    2
     627                            ; FLOATING PT ROUTINES' NON-ZERO PAGE RAM
     628                            ; (NEEDED ONLY IF F.P. ROUTINES CALLED)
     629                                    *=$57E
     630  057E                      LBPR1:  .RES    1           ;LBUFF PREFIX 1
     631  057F                      LBPR2:  .RES    1           ;LBUFF PREFIX 2
     632  0580                      LBUFF:  .RES    128         ;LINE BUFFER
     633  05E0                      PLYARG  =       LBUFF+$60   ;POLYNOMIAL ARGUMENTS
     634  05E6                      FPSCR   =       PLYARG+FPREC
     635  05EC                      FPSCR1  =       FPSCR+FPREC
     636  05E6                      FSCR    =       FPSCR
     637  05EC                      FSCR1   =       FPSCR1
     638  05FF                      LBFEND  =       *-1         ;END OF LBUFF
     639                            ;
     640                            ;
     641                            ;
     642                            ;
     643                            ;
     644                            ;
     645                            ;
     646                            ;
     647                            ;
     648                            ;       COLLEEN MNEMONICS
     649                            ;
     650  D200                      POKEY   =       $D200       ;VBLANK ACTION:           DESCRIPTION:
     651  D200                      POT0    =       POKEY+0     ;POT0-->PADDL0           0-227 IN RAM CELL
     652  D201                      POT1    =       POKEY+1     ;POT1-->PADDL1           0-227 IN RAM CELL
     653  D202                      POT2    =       POKEY+2     ;POT2-->PADDL2           0-227 IN RAM CELL
     654  D203                      POT3    =       POKEY+3     ;POT3-->PADDL3           0-227 IN RAM CELL
     655  D204                      POT4    =       POKEY+4     ;POT4-->PADDL4           0-227 IN RAM CELL
     656  D205                      POT5    =       POKEY+5     ;POT5-->PADDL5           0-227 IN RAM CELL
     657  D206                      POT6    =       POKEY+6     ;POT6-->PADDL6           0-227 IN RAM CELL
     658  D207                      POT7    =       POKEY+7     ;POT7-->PADDL7           0-227 IN RAM CELL
     659  D208                      ALLPOT  =       POKEY+8     ;???
     660  D209                      KBCODE  =       POKEY+9
     661  D20A                      RANDOM  =       POKEY+10
     662  D20B                      POTGO   =       POKEY+11    ;STROBED
     663  D20D                      SERIN   =       POKEY+13
     664  D20E                      IRQST   =       POKEY+14
     665  D20F                      SKSTAT  =       POKEY+15
     666  D200                      AUDF1   =       POKEY+0
     667  D201                      AUDC1   =       POKEY+1
     668  D202                      AUDF2   =       POKEY+2
     669  D203                      AUDC2   =       POKEY+3
     670  D204                      AUDF3   =       POKEY+4
     671  D205                      AUDC3   =       POKEY+5
     672  D206                      AUDF4   =       POKEY+6
     673  D207                      AUDC4   =       POKEY+7
     674  D208                      AUDCTL  =       POKEY+8     ;NONE                AUDCTL<--[SIO]
     675  D209                      STIMER  =       POKEY+9
     676  D20A                      SKRES   =       POKEY+10    ;NONE                 SKRES<--[SIO]
     677  D20D                      SEROUT  =       POKEY+13    ;NONE                SEROUT<--[SIO]
     678  D20E                      IRQEN   =       POKEY+14    ;POKMSK-->IRQEN (AFFECTED BY OPEN S: OR E:)
     679  D20F                      SKCTL   =       POKEY+15    ;SSKCTL-->SKCTL      SSKCTL<--[SIO]
     680                            ;
     681  D000                      CTIA    =       $D000       ;VBLANK ACTION:       DESCRIPTION:
     682  D000                      HPOSP0  =       CTIA+0
     683  D001                      HPOSP1  =       CTIA+1
     684  D002                      HPOSP2  =       CTIA+2
     685  D003                      HPOSP3  =       CTIA+3
     686  D004                      HPOSM0  =       CTIA+4
     687  D005                      HPOSM1  =       CTIA+5
     688  D006                      HPOSM2  =       CTIA+6
     689  D007                      HPOSM3  =       CTIA+7
     690  D008                      SIZEP0  =       CTIA+8
     691  D009                      SIZEP1  =       CTIA+9
     692  D00A                      SIZEP2  =       CTIA+10
     693  D00B                      SIZEP3  =       CTIA+11
     694  D00C                      SIZEM   =       CTIA+12
     695  D00D                      GRAFP0  =       CTIA+13
     696  D00E                      GRAFP1  =       CTIA+14
     697  D00F                      GRAFP2  =       CTIA+15
     698  D010                      GRAFP3  =       CTIA+16
     699  D011                      GRAFM   =       CTIA+17
     700  D012                      COLPM0  =       CTIA+18     ;PCOLR0-->COLPM0      WITH ATTRACT MODE
     701  D013                      COLPM1  =       CTIA+19     ;PCOLR1-->COLPM1      WITH ATTRACT MODE
     702  D014                      COLPM2  =       CTIA+20     ;PCOLR2-->COLPM2      WITH ATTRACT MODE
     703  D015                      COLPM3  =       CTIA+21     ;PCOLR3-->COLPM3      WITH ATTRACT MODE
     704  D016                      COLPF0  =       CTIA+22     ;COLOR0-->COLPF0      WITH ATTRACT MODE
     705  D017                      COLPF1  =       CTIA+23     ;COLOR1-->COLPF1      WITH ATTRACT MODE
     706  D018                      COLPF2  =       CTIA+24     ;COLOR2-->COLPF2      WITH ATTRACT MODE
     707  D019                      COLPF3  =       CTIA+25     ;COLOR3-->COLPF3      WITH ATTRACT MODE
     708  D01A                      COLBK   =       CTIA+26     ;COLOR4-->COLBK       WITH ATTRACT MODE
     709  D01B                      PRIOR   =       CTIA+27     ;(ON OPEN S: OR E:)   GPRIOR-->PRIOR
     710  D01C                      VDELAY  =       CTIA+28
     711  D01D                      GRACTL  =       CTIA+29
     712  D01E                      HITCLR  =       CTIA+30
     713  D01F                      CONSOL  =       CTIA+31     ;$08-->CONSOL         TURN OFF SPEAKER
     714  D000                      M0PF    =       CTIA+0
     715  D001                      M1PF    =       CTIA+1
     716  D002                      M2PF    =       CTIA+2
     717  D003                      M3PF    =       CTIA+3
     718  D004                      P0PF    =       CTIA+4
     719  D005                      P1PF    =       CTIA+5
     720  D008                      P2PF    =       CTIA+8
     721  D007                      P3PF    =       CTIA+7
     722  D008                      M0PL    =       CTIA+8
     723  D009                      M1PL    =       CTIA+9
     724  D00A                      M2PL    =       CTIA+10
     725  D00B                      M3PL    =       CTIA+11
     726  D00C                      P0PL    =       CTIA+12
     727  D00D                      P1PL    =       CTIA+13
     728  D00E                      P2PL    =       CTIA+14
     729  D00F                      P3PL    =       CTIA+15
     730  D010                      TRIG0   =       CTIA+16     ;TRIG0-->STRIG0
     731  D011                      TRIG1   =       CTIA+17     ;TRIG1-->STRIG1
     732  D012                      TRIG2   =       CTIA+18     ;TRIG2-->STRIG2
     733  D013                      TRIG3   =       CTIA+19     ;TRIG3-->STRIG3
     734                            ;
     735  D400                      ANTIC   =       $D400       ;VBLANK ACTION        DESCRIPTION
     736  D400                      DMACTL  =       ANTIC+0     ;DMACTL<--SDMCTL      ON OPEN S: OR E:
     737  D401                      CHACTL  =       ANTIC+1     ;CHACTL<--CHACT       ON OPEN S: OR E:
     738  D402                      DLISTL  =       ANTIC+2     ;DLISTL<--SDLSTL      ON OPEN S: OR E:
     739  D403                      DLISTH  =       ANTIC+3     ;DLISTH<--SDLSTH      ON OPEN S: OR E:
     740  D404                      HSCROL  =       ANTIC+4
     741  D405                      VSCROL  =       ANTIC+5
     742  D407                      PMBASE  =       ANTIC+7
     743  D409                      CHBASE  =       ANTIC+9     ;CHBASE<--CHBAS       ON OPEN S: OR E:
     744  D40A                      WSYNC   =       ANTIC+10
     745  D40B                      VCOUNT  =       ANTIC+11
     746  D40C                      PENH    =       ANTIC+12
     747  D40D                      PENV    =       ANTIC+13
     748  D40E                      NMIEN   =       ANTIC+14    ;NMIEN<--40 POWER     ON AND [SETVBV]
     749  D40F                      NMIRES  =       ANTIC+15    ;STROBED
     750  D40F                      NMIST   =       ANTIC+15
     751  D300                      PIA     =       $D300       ;VBLANK ACTION        DESCRIPTION
     752  D300                      PORTA   =       PIA+0       ;PORTA-->STICK0,1     X-Y CONTROLLERS
     753  D301                      PORTB   =       PIA+1       ;PORTB-->STICK2,3     X-Y CONTROLLERS
     754  D302                      PACTL   =       PIA+2       ;NONE                 PACTL<--3C [INIT]
     755  D303                      PBCTL   =       PIA+3       ;NONE                 PBCTL<--3C [INIT]
     756                            ;
     757                            ;
     758                            ;
     759                            ; .PAGE
     760                                    .PAGE
     761                                    LIST    S
     762                                    .TITLE  'CENTRAL INPUT/OUTPUT (CIO) 2-7-79'
     763                            ;               UPDATED BY AL MILLER 3-9-79
     764  0030                      ASCZER  =       '0          ;ASCII ZERO
     765  003A                      COLON   =       $3A         ;ASCII COLON
     766  009B                      EOL     =       $9B         ;END OF RECORD
     767                                    .PAGE
     768                            ;
     769                            ; CIO JUMP VECTOR FOR USERS
     770                                    *=CIOV
     771  E456  4C C4 E4                    JMP     CIO         ;GO TO CIO
     772                            ;
     773                            ; CIO INIT JUMP VECTOR FOR POWER UP
     774                                    *=CIOINV
     775  E46E  4C A6 E4                    JMP     CIOINT      ;GO TO INIT
     776                            ;
     777                            ;
     778                            ; ERROR ROUTINE ADDRESS EQUATE
     779                            ; ERRTNH =ERRTN/256         "MOVED TO LINE 788"
     780                            ; ERRTNL =-ERRTNH*256+ERRTN "MOVED TO LINE 789"
     781                            ;
     782                            ;
     783                                    *=CIOORG
     784                            ;
     785                            ; CIO INITIALIZATION (CALLED BY MONITOR AT POWER UP)
     786  E4A6  A2 00               CIOINT: LDX     #0
     787  E4A8  A9 FF               CIOI1:  LDA     #IOCFRE     ;SET ALL IOCB'S TO FREE
     788  E4AA  9D 40 03                    STA     ICHID,X     ;BY SETTING HANDLER ID'S=$FF
     789  E4AD  A9 C0                       LDA     #ERRTNL
     790  E4AF  9D 46 03                    STA     ICPTL,X     ;POINT PUT TO ERROR ROUTINE
     791  E4B2  A9 E4                       LDA     #ERRTNH
     792  E4B4  9D 47 03                    STA     ICPTH,X
     793  E4B7  8A                          TXA
     794  E4B8  18                          CLC
     795  E4B9  69 10                       ADC     #IOCBSZ     ;BUMP INDEX BY SIZE
     796  E4BB  AA                          TAX
     797  E4BC  C9 80                       CMP     #MAXIOC     ;DONE?
     798  E4BE  90 E8                       BCC     CIOI1       ;NO
     799  E4C0  60                          RTS                 ;YES, RETURN
     800                            ;
     801                            ; ERROR ROUTINE FOR ILLEGAL PUT
     802  E4C0                      ERRTN   =*-1
     803  00E4                      ERRTNH  =ERRTN/256
     804  00C0                      ERRTNL  =(-ERRTNH)*256+ERRTN
     805  E4C1  A0 85                       LDY     #NOTOPN     ;IOCB NOT OPEN
     806  E4C3  60                          RTS
     807                                    .PAGE
     808                            ;
     809                            ; CIO LOCAL RAM (USES SPARE BYTES IN ZERO PAGE IOCB)
     810  002C                      ENTVEC  =       ICSPRZ
     811                            ;
     812                            ; CIO MAIN ROUTINE
     813                            ;
     814                            ; CIO INTERFACES BETWEEN USER AND INPUT/OUTPUT DE
     815  E4C4  85 2F               CIO:    STA     CIOCHR      ;SAVE POSSIBLE OUTPUT CHARACTER
     816  E4C6  86 2E                       STX     ICIDNO      ;SAVE IOCB NUMBER * N
     817                            ;
     818                            ; CHECK FOR LEGAL IOCB
     819  E4C8  8A                          TXA
     820  E4C9  29 0F                       AND     #$F         ;IS IOCB MULTIPLE OF 16?
     821  E4CB  D0 04                       BNE     CIERR1      ;NO, ERROR
     822  E4CD  E0 80                       CPX     #MAXIOC     ;IS INDEX TOO LARGE?
     823  E4CF  90 05                       BCC     IOC1        ;NO
     824                            ;
     825                            ; INVALID IOCB NUMBER -- RETURN ERROR
     826  E4D1  A0 86               CIERR1: LDY     #BADIOC     ;ERROR CODE
     827  E4D3  4C 1B E6                    JMP     CIRTN1      ;RETURN
     828                            ;
     829                            ; MOVE USER IOCB TO ZERO PAGE
     830  E4D6  A0 00               IOC1:   LDY     #0
     831  E4D8  BD 40 03            IOC1A:  LDA     IOCB,X      ;USER IOCB
     832  E4DB  99 20 00                    STA     IOCBAS,Y    ;TO ZERO PAGE
     833  E4DE  E8                          INX
     834  E4DF  C8                          INY
     835  E4E0  C0 0C                       CPY     #12         ;12 BYTES
     836  E4E2  90 F4                       BCC     IOC1A
     837                            ;
     838                            ; COMPUTE CIO INTERNAL VECTOR FOR COMMAND
     839  E4E4  A0 84                       LDY     #NVALID     ;ASSUME INVALID CODE
     840  E4E6  A5 22                       LDA     ICCOMZ      ;COMMAND CODE TO INDEX
     841  E4E8  C9 03                       CMP     #OPEN       ;IS COMMAND LEGAL?
     842  E4EA  90 25                       BCC     CIERR4      ;NO
     843  E4EC  A8                          TAY
     844                            ;
     845                            ; MOVE COMMAND TO ZERO BASE FOR INDEX
     846  E4ED  C0 0E                       CPY     #SPECIL     ;IS COMMAND SPECIAL?
     847  E4EF  90 02                       BCC     IOC2        ;NO
     848  E4F1  A0 0E                       LDY     #SPECIL     ;YES, SET SPECIAL OFFSET INDEX
     849  E4F3  84 17               IOC2:   STY     ICCOMT      ;SAVE COMMAND FOR VECTOR
     850  E4F5  B9 C6 E6                    LDA     COMTAB-3,Y  ;GET VECTOR OFFSET FROM TABLE
     851  E4F8  F0 0F                       BEQ     CIOPEN      ;GO IF OPEN COMMAND
     852  E4FA  C9 02                       CMP     #2          ;IS IT CLOSE?
     853  E4FC  F0 35                       BEQ     CICLOS      ;YES
     854  E4FE  C9 08                       CMP     #8          ;IS IT STATUS OR SPECIAL?
     855  E500  B0 4C                       BCS     CISTSP      ;YES
     856  E502  C9 04                       CMP     #4          ;IS IT READ?
     857  E504  F0 63                       BEQ     CIREAD      ;YES
     858  E506  4C C9 E5                    JMP     CIWRIT      ;ELSE, MUST BE WRITE
     859                                    .PAGE
     860                            ;
     861                            ; OPEN COMMAND
     862                            ;
     863                            ; FIND DEVICE HANDLER IN HANDLER ADDRESS TABLE
     864  E509  A5 20               CIOPEN: LDA     ICHIDZ      ;GET HANDLER ID
     865  E50B  C9 FF                       CMP     #IOCFRE     ;IS THIS IOCB CLOSED?
     866  E50D  F0 05                       BEQ     IOC6        ;YES
     867                            ;
     868                            ; ERROR -- IOCB ALREADY OPEN
     869  E50F  A0 81               CIERR3: LDY     #PRVOPN     ;ERROR CODE
     870  E511  4C 1B E6            CIERR4: JMP     CIRTN1      ;RETURN
     871                            ;
     872                            ; GO FIND DEVICE
     873  E514  20 9E E6            IOC6:   JSR     DEVSRC      ;CALL DEVICE SEARCH
     874  E517  B0 F8                       BCS     CIERR4      ;GO IF DEVICE NOT FOUND
     875                            ;
     876                            ; DEVICE FOUND, INITIALIZE IOCB FOR OPEN
     877                            ;
     878                            ; COMPUTE HANDLER ENTRY POINT
     879  E519  20 3D E6            IOC7:   JSR     COMENT
     880  E51C  B0 F3                       BCS     CIERR4      ;GO IF ERROR IN COMPUTE
     881                            ;
     882                            ; GO TO HANDLER FOR INITIALIZATION
     883  E51E  20 89 E6                    JSR     GOHAND      ;USE INDIRECT JUMP
     884                            ;
     885                            ; STORE PUT BYTE ADDRESS-1 INTO IOCB
     886  E521  A9 0B                       LDA     #PUTCHR     ;SIMULATE PUT CHARACTER
     887  E523  85 17                       STA     ICCOMT
     888  E525  20 3D E6                    JSR     COMENT      ;COMPUTE ENTRY POINT
     889  E528  A5 2C                       LDA     ICSPRZ      ;MOVE COMPUTED VALUE
     890  E52A  85 26                       STA     ICPTLZ      ;TO PUT BYTE ADDRESS
     891  E52C  A5 2D                       LDA     ICSPRZ+1
     892  E52E  85 27                       STA     ICPTHZ
     893  E530  4C 1D E6                    JMP     CIRTN2      ;RETURN TO USER
     894                                    .PAGE
     895                            ;
     896                            ;
     897                            ; CLOSE COMMAND
     898  E533  A0 01               CICLOS: LDY     #SUCCES     ;ASSUME GOOD CLOSE
     899  E535  84 23                       STY     ICSTAZ
     900  E537  20 3D E6                    JSR     COMENT      ;COMPUTE HANDLER ENTRY POINT
     901  E53A  B0 03                       BCS     CICLO2      ;GO IF ERROR IN COMPUTE
     902  E53C  20 89 E6                    JSR     GOHAND      ;GO TO HANDLER TO CLOSE DEVICE
     903  E53F  A9 FF               CICLO2: LDA     #IOCFRE     ;GET IOCB "FREE" VALUE
     904  E541  85 20                       STA     ICHIDZ      ;SET HANDLER ID
     905  E543  A9 E4                       LDA     #ERRTNH
     906  E545  85 27                       STA     ICPTHZ      ;SET PUT BYTE TO POINT TO ERROR
     907  E547  A9 C0                       LDA     #ERRTNL
     908  E549  85 26                       STA     ICPTLZ
     909  E54B  4C 1D E6                    JMP     CIRTN2      ;RETURN
     910                            ;
     911                            ;
     912                            ; STATUS AND SPECIAL REQUESTS
     913                            ; DO IMPLIED OPEN IF NECESSARY AND GO TO DEVICE
     914  E54E  A5 20               CISTSP: LDA     ICHIDZ      ;IS THERE A HANDLER ID?
     915  E550  C9 FF                       CMP     #IOCFRE
     916  E552  D0 05                       BNE     CIST1       ;YES
     917                            ;
     918                            ; IOCB IS FREE, DO IMPLIED OPEN
     919  E554  20 9E E6                    JSR     DEVSRC      ;FIND DEVICE IN TABLE
     920  E557  B0 B8                       BCS     CIERR4      ;GO IF ERROR IN COMPUTE
     921                            ;
     922                            ; COMPUTE AND GO TO ENTRY POINT IN HANDLER
     923  E559  20 3D E6            CIST1:  JSR     COMENT      ;COMPUTER HANDLER ENTRY VECTOR
     924  E55C  20 89 E6                    JSR     GOHAND      ;GO TO HANDLER
     925                            ;
     926                            ; RESTORE HANDLER INDEX (DO IMPLIED CLOSE)
     927  E55F  A6 2E                       LDX     ICIDNO      ;IOCB INDEX
     928  E561  BD 40 03                    LDA     ICHID,X     ;GET ORIGINAL HANDLER ID
     929  E564  85 20                       STA     ICHIDZ      ;RESTORE ZERO PAGE
     930  E566  4C 1D E6                    JMP     CIRTN2      ;RETURN
     931                                    .PAGE
     932                            ;
     933                            ; READ -- DO GET COMMANDS
     934  E569  A5 22               CIREAD: LDA     ICCOMZ      ;GET COMMAND BYTE
     935  E56B  25 2A                       AND     ICAX1Z      ;IS THIS READ LEGAL?
     936  E56D  D0 05                       BNE     RCI1A       ;YES
     937                            ;
     938                            ; ILLEGAL READ -- IOCB OPENED FOR WRITE ONLY
     939  E56F  A0 83                       LDY     #WRONLY     ;ERROR CODE
     940  E571  4C 1B E6            RCI1B:  JMP     CIRTN1      ;RETURN
     941                            ;
     942                            ; COMPUTE AND CHECK ENTRY POINT
     943  E574  20 3D E6            RCI1A:  JSR     COMENT      ;COMPUTE ENTRY POINT
     944  E577  B0 F8                       BCS     RCI1B       ;GO IF ERROR IN COMPUTE
     945                            ;
     946                            ; GET RECORD OR CHARACTERS
     947  E579  A5 28                       LDA     ICBLLZ
     948  E57B  05 29                       ORA     ICBLLZ+1    ;IS BUFFER LENGTH ZERO?
     949  E57D  D0 08                       BNE     RCI3        ;NO
     950  E57F  20 89 E6                    JSR     GOHAND
     951  E582  85 2F                       STA     CIOCHR
     952  E584  4C 1D E6                    JMP     CIRTN2
     953                            ;
     954                            ; LOOP TO FILL BUFFER OR END RECORD
     955  E587  20 89 E6            RCI3:   JSR     GOHAND      ;GO TO HANDLER TO GET BYTE
     956  E58A  85 2F                       STA     CIOCHR      ;SAVE BYTE
     957  E58C  30 35                       BMI     RCI4        ;END TRANSFER IF ERROR
     958  E58E  A0 00                       LDY     #0
     959  E590  91 24                       STA     (ICBALZ),Y  ;PUT BYTE IN USER BUFFER
     960  E592  20 70 E6                    JSR     INCBFP      ;INCREMENT BUFFER POINTER
     961  E595  A5 22                       LDA     ICCOMZ      ;GET COMMAND CODE
     962  E597  29 02                       AND     #2          ;IS IT GET RECORD?
     963  E599  D0 0C                       BNE     RCI1        ;NO
     964                            ;
     965                            ; CHECK FOR EOL ON TEXT RECORDS
     966  E59B  A5 2F                       LDA     CIOCHR      ;GET BYTE
     967  E59D  C9 9B                       CMP     #EOL        ;IS IT AN EOL?
     968  E59F  D0 06                       BNE     RCI1        ;NO
     969  E5A1  20 63 E6                    JSR     DECBFL      ;YES, DECREMENT BUFFER LENGTH
     970  E5A4  4C C3 E5                    JMP     RCI4        ;END TRANSFER
     971                            ;
     972                            ; CHECK BUFFER FULL
     973  E5A7  20 63 E6            RCI1:   JSR     DECBFL      ;DECREMENT BUFFER LENGTH
     974  E5AA  D0 DB                       BNE     RCI3        ;CONTINUE IF NON ZERO
     975                                    .PAGE
     976                            ;
     977                            ; BUFFER FULL, RECORD NOT ENDED
     978                            ; DISCARD BYTES UNTIL END OF RECORD
     979  E5AC  A5 22               RCI2:   LDA     ICCOMZ      ;GET COMMAND BYTE
     980  E5AE  29 02                       AND     #2          ;IS IT GET CHARACTER?
     981  E5B0  D0 11                       BNE     RCI4        ;YES, END TRANSFER
     982                            ;
     983                            ; LOOP TO WAIT FOR EOL
     984  E5B2  20 89 E6            RCI6:   JSR     GOHAND      ;GET BYTE FROM HANDLER
     985  E5B5  85 2F                       STA     CIOCHR      ;SAVE CHARACTER
     986  E5B7  30 0A                       BMI     RCI4        ;GO IF ERROR
     987                            ;
     988                            ; TEXT RECORD, WAIT FOR EOL
     989  E5B9  A5 2F                       LDA     CIOCHR      ;GET GOT BYTE
     990  E5BB  C9 9B                       CMP     #EOL        ;IS IT EOL?
     991  E5BD  D0 F3                       BNE     RCI6        ;NO, CONTINUE
     992                            ;
     993                            ; END OF RECORD, BUFFER FULL -- SEND TRUNCATED RECORD MESSAGE
     994  E5BF  A9 89               RCI11:  LDA     #TRNRCD     ;ERROR CODE
     995  E5C1  85 23                       STA     ICSTAZ      ;STORE IN IOCB
     996                            ;
     997                            ; TRANSFER DONE
     998  E5C3  20 77 E6            RCI4:   JSR     SUBBFL      ;SET FINAL BUFFER LENGTH
     999  E5C6  4C 1D E6                    JMP     CIRTN2      ;RETURN
    1000                                    .PAGE
    1001                            ;
    1002                            ; WRITE -- DO PUT COMMANDS
    1003  E5C9  A5 22               CIWRIT: LDA     ICCOMZ      ;GET COMMAND BYTE
    1004  E5CB  25 2A                       AND     ICAX1Z      ;IS THIS WRITE LEGAL?
    1005  E5CD  D0 05                       BNE     WCI1A       ;YES
    1006                            ;
    1007                            ; ILLEGAL WRITE -- DEVICE OPENED FOR READ ONLY
    1008  E5CF  A0 87                       LDY     #RDONLY     ;ERROR CODE
    1009  E5D1  4C 1B E6            WCI1B:  JMP     CIRTN1      ;RETURN
    1010                            ;
    1011                            ;  COMPUTE AND CHECK ENTRY POINT
    1012  E5D4  20 3D E6            WCI1A:  JSR     COMENT      ;COMPUTE HANDLER ENTRY POINT
    1013  E5D7  B0 F8                       BCS     WCI1B       ;GO IF ERROR IN COMPUTE
    1014                            ;
    1015                            ; PUT RECORD OR CHARACTERS
    1016  E5D9  A5 28                       LDA     ICBLLZ
    1017  E5DB  05 29                       ORA     ICBLLZ+1    ;IS BUFFER LENGTH ZERO?
    1018  E5DD  D0 06                       BNE     WCI3        ;NO
    1019  E5DF  A5 2F                       LDA     CIOCHR      ;GET CHARACTER
    1020  E5E1  E6 28                       INC     ICBLLZ      ;SET BUFFER LENGTH=1
    1021  E5E3  D0 06                       BNE     WCI4        ;THEN JUST TRANSFER ONE BYTE
    1022                            ;
    1023                            ; LOOP TO TRANSFER BYTES FROM BUFFER TO HANDLER
    1024  E5E5  A0 00               WCI3:   LDY     #0
    1025  E5E7  B1 24                       LDA     (ICBALZ),Y  ;GET BYTE FROM BUFFER
    1026  E5E9  85 2F                       STA     CIOCHR      ;SAVE
    1027  E5EB  20 89 E6            WCI4:   JSR     GOHAND      ;GO PUT BYTE
    1028  E5EE  30 25                       BMI     WCI5        ;END IF ERROR
    1029  E5F0  20 70 E6                    JSR     INCBFP      ;INCREMENT BUFFER POINTER
    1030                            ;
    1031                            ; CHECK FOR TEXT RECORD
    1032  E5F3  A5 22                       LDA     ICCOMZ      ;GET COMMAND BYTE
    1033  E5F5  29 02                       AND     #2          ;IS IT PUT RECORD?
    1034  E5F7  D0 0C                       BNE     WCI1        ;NO
    1035                            ;
    1036                            ; TEXT RECORD -- CHECK FOR EOL TRANSFER
    1037  E5F9  A5 2F                       LDA     CIOCHR      ;GET LAST CHARACTER
    1038  E5FB  C9 9B                       CMP     #EOL        ;IS IT AN EOL?
    1039  E5FD  D0 06                       BNE     WCI1        ;NO
    1040  E5FF  20 63 E6                    JSR     DECBFL      ;DECREMENT BUFFER LENGTH
    1041  E602  4C 15 E6                    JMP     WCI5        ;END TRANSFER
    1042                            ;
    1043                            ; CHECK FOR BUFFER EMPTY
    1044  E605  20 63 E6            WCI1:   JSR     DECBFL      ;DECREMENT BUFFER LENGTH
    1045  E608  D0 DB                       BNE     WCI3        ;CONTINUE IF NON ZERO
    1046                                    .PAGE
    1047                            ;
    1048                            ; BUFFER EMPTY, RECORD NOT FILLED
    1049                            ; CHECK TYPE OF TRANSFER
    1050  E60A  A5 22               WCI2:   LDA     ICCOMZ      ;GET COMMAND CODE
    1051  E60C  29 02                       AND     #2          ;IS IT PUT CHARACTER?
    1052  E60E  D0 05                       BNE     WCI5        ;YES, END TRANSFER
    1053                            ;
    1054                            ; PUT RECORD (TEXT), BUFFER EMPTY, SEND EOL
    1055  E610  A9 9B                       LDA     #EOL
    1056  E612  20 89 E6                    JSR     GOHAND      ;GO TO HANDLER
    1057                            ;
    1058                            ; END PUT TRANSFER
    1059  E615  20 77 E6            WCI5:   JSR     SUBBFL      ;SET ACTUAL PUT BUFFER LENGTH
    1060  E618  4C 1D E6                    JMP     CIRTN2      ;RETURN
    1061                                    .PAGE
    1062                            ;
    1063                            ; CIO RETURNS
    1064                            ; RETURNS WITH Y=STATUS
    1065  E61B  84 23               CIRTN1: STY     ICSTAZ      ;SAVE STATUS
    1066                            ;
    1067                            ; RETURNS WITH STATUS STORED IN ICSTAZ
    1068                            ; MOVE IOCB IN ZERO PAGE BACK TO USER AREA
    1069  E61D  A4 2E               CIRTN2: LDY     ICIDNO      ;GET IOCB INDEX
    1070  E61F  B9 44 03                    LDA     ICBAL,Y
    1071  E622  85 24                       STA     ICBALZ      ;RESTORE USER BUFFER POINTER
    1072  E624  B9 45 03                    LDA     ICBAH,Y
    1073  E627  85 25                       STA     ICBAHZ
    1074  E629  A2 00                       LDX     #0          ;LOOP COUNT AND INDEX
    1075  E62B  B5 20               CIRT3:  LDA     IOCBAS,X    ;ZERO PAGE
    1076  E62D  99 40 03                    STA     IOCB,Y      ;TO USER AREA
    1077  E630  E8                          INX
    1078  E631  C8                          INY
    1079  E632  E0 0C                       CPX     #12         ;12 BYTES
    1080  E634  90 F5                       BCC     CIRT3
    1081                            ;
    1082                            ; RESTORE A,X, & Y
    1083  E636  A5 2F                       LDA     CIOCHR      ;GET LAST CHARACTER
    1084  E638  A6 2E                       LDX     ICIDNO      ;IOCB INDEX
    1085  E63A  A4 23                       LDY     ICSTAZ      ;GET STATUS AND SET FLAGS
    1086  E63C  60                          RTS                 ;RETURN TO USER
    1087                                    .PAGE
    1088                            ;
    1089                            ;
    1090                            ; CIO SUBROUTINES
    1091                            ;
    1092                            ; COMENT -- CHECK AND COMPUTE HANDLER ENTRY POINT
    1093  E63D  A4 20               COMENT: LDY     ICHIDZ      ;GET HANDLER INDEX
    1094  E63F  C0 22                       CPY     #MAXDEV+1   ;IS IT A LEGAL INDEX?
    1095  E641  90 04                       BCC     COM1        ;YES
    1096                            ;
    1097                            ; ILLEGAL HANDLER INDEX MEANS DEVICE NOT OPEN FOR OPERATION
    1098  E643  A0 85                       LDY     #NOTOPN     ;ERROR CODE
    1099  E645  B0 1B                       BCS     COM2        ;RETURN
    1100                            ;
    1101                            ; USE HANDLER ADDRESS TABLE AND COMMAND TABLE TO GET VECTOR
    1102  E647  B9 1B 03            COM1:   LDA     HATABS+1,Y  ;GET LOW BYTE OF ADDRESS
    1103  E64A  85 2C                       STA     ICSPRZ      ;AND SAVE IN POINTER
    1104  E64C  B9 1C 03                    LDA     HATABS+2,Y  ;GET HI BYTE OF ADDRESS
    1105  E64F  85 2D                       STA     ICSPRZ+1
    1106  E651  A4 17                       LDY     ICCOMT      ;GET COMMAND CODE
    1107  E653  B9 C6 E6                    LDA     COMTAB-3,Y  ;GET COMMAND OFFSET
    1108  E656  A8                          TAY
    1109  E657  B1 2C                       LDA     (ICSPRZ),Y  ;GET LOW BYTE OF VECTOR FROM
    1110  E659  AA                          TAX                 ;HANDLER ITSELF AND SAVE
    1111  E65A  C8                          INY
    1112  E65B  B1 2C                       LDA     (ICSPRZ),Y  ;GET HI BYTE OF VECTOR
    1113  E65D  85 2D                       STA     ICSPRZ+1
    1114  E65F  86 2C                       STX     ICSPRZ      ;SET LO BYTE
    1115  E661  18                          CLC                 ;SHOW NO ERROR
    1116  E662  60                  COM2:   RTS
    1117                            ;
    1118                            ;
    1119                            ; DECBFL -- DECREMENT BUFFER LENGTH DOUBLE BYTE
    1120                            ; Z FLAG = 0 ON RETURN IF LENGTH = 0 AFTER DECREMENT
    1121  E663  C6 28               DECBFL: DEC     ICBLLZ      ;DECREMENT LOW BYTE
    1122  E665  A5 28                       LDA     ICBLLZ      ;CHECK IT
    1123  E667  C9 FF                       CMP     #$FF        ;DID IT GO BELOW?
    1124  E669  D0 02                       BNE     DECBF1      ;NO
    1125  E66B  C6 29                       DEC     ICBLLZ+1    ;DECREMENT HI BYTE
    1126  E66D  05 29               DECBF1: ORA     ICBLLZ+1    ;SET Z IF BOTH ARE ZERO
    1127  E66F  60                          RTS
    1128                            ;
    1129                            ;
    1130                            ; INCBFP -- INCREMENT WORKING BUFFER POINTER
    1131  E670  E6 24               INCBFP: INC     ICBALZ      ;BUMP LOW BYTE
    1132  E672  D0 02                       BNE     INCBF1      ;GO IF NOT ZERO
    1133  E674  E6 25                       INC     ICBALZ+1    ;ELSE, BUMP HI BYTE
    1134  E676  60                  INCBF1: RTS
    1135                            ;
    1136                            ;
    1137                            ; SUBBFL -- SET BUFFER LENGTH = BUFFER LENGTH - WORKING BYTE COUNT
    1138  E677  A6 2E               SUBBFL: LDX     ICIDNO      ;GET IOCB INDEX
    1139  E679  38                          SEC
    1140  E67A  BD 48 03                    LDA     ICBLL,X     ;GET LOW BYTE OF INITIAL LENGTH
    1141  E67D  E5 28                       SBC     ICBLLZ      ;SUBTRACT FINAL LOW BYTE
    1142  E67F  85 28                       STA     ICBLLZ      ;AND SAVE BACK
    1143  E681  BD 49 03                    LDA     ICBLH,X     ;GET HI BYTE
    1144  E684  E5 29                       SBC     ICBLLZ+1
    1145  E686  85 29                       STA     ICBLHZ
    1146  E688  60                          RTS
    1147                            ;
    1148                            ;
    1149                            ; GOHAND -- GO INDIRECT TO A DEVICE HANDLER
    1150                            ; Y= STATUS ON RETURN, N FLAG=1 IF ERROR ON RETURN
    1151  E689  A0 92               GOHAND: LDY     #FNCNOT     ;PREPARE NO FUNCTION STATUS FOR HANDLER RTS
    1152  E68B  20 93 E6                    JSR     CIJUMP      ;USE THE INDIRECT JUMP
    1153  E68E  84 23                       STY     ICSTAZ      ;SAVE STATUS
    1154  E690  C0 00                       CPY     #0          ;AND SET N FLAG
    1155  E692  60                          RTS
    1156                            ;
    1157                            ; INDIRECT JUMP TO HANDLER BY PAUL'S METHOD
    1158  E693  AA                  CIJUMP: TAX                 ;SAVE A
    1159  E694  A5 2D                       LDA     ICSPRZ+1    ;GET JUMP ADDRESS HI BYTE
    1160  E696  48                          PHA                 ;PUT ON STACK
    1161  E697  A5 2C                       LDA     ICSPRZ      ;GET JUMP ADDRESS LO BYTE
    1162  E699  48                          PHA                 ;PUT ON STACK
    1163  E69A  8A                          TXA                 ;RESTORE A
    1164  E69B  A6 2E                       LDX     ICIDNO      ;GET IOCB INDEX
    1165  E69D  60                          RTS                 ;GO TO HANDLER INDIRECTLY
    1166                                    .PAGE
    1167                            ;
    1168                            ; DEVSRC -- DEVICE SEARCH, FIND DEVICE IN HANDLER ADDRESS TABLE
    1169                            ;
    1170                            ; LOOP TO FIND DEVICE
    1171  E69E  A0 00               DEVSRC: LDY     #0
    1172  E6A0  B1 24                       LDA     (ICBALZ),Y  ;GET DEVICE NAME FROM USER
    1173  E6A2  F0 0C                       BEQ     CIERR2
    1174  E6A4  A0 21                       LDY     #MAXDEV     ;INITIAL COMPARE INDEX
    1175  E6A6  D9 1A 03            DEVS1:  CMP     HATABS,Y    ;IS THIS THE DEVICE?
    1176  E6A9  F0 0A                       BEQ     DEVS2       ;YES
    1177  E6AB  88                          DEY
    1178  E6AC  88                          DEY                 ;ELSE, POINT TO NEXT DEVICE NAME
    1179  E6AD  88                          DEY
    1180  E6AE  10 F6                       BPL     DEVS1       ;CONTINUE FOR ALL DEVICES
    1181                            ;
    1182                            ; NO DEVICE FOUND, DECLARE NON-EXISTENT DEVICE ERROR
    1183  E6B0  A0 82               CIERR2: LDY     #NONDEV     ;ERROR CODE
    1184  E6B2  38                          SEC                 ;SHOW ERROR
    1185  E6B3  B0 13                       BCS     DEVS4       ;AND RETURN
    1186                            ;
    1187                            ; FOUND DEVICE, SET ICHID,ICDNO, AND INIT DEVICE
    1188  E6B5  98                  DEVS2:  TYA
    1189  E6B6  85 20                       STA     ICHIDZ      ;SAVE HANDLER INDEX
    1190  E6B8  38                          SEC
    1191  E6B9  A0 01                       LDY     #1
    1192  E6BB  B1 24                       LDA     (ICBALZ),Y  ;GET DEVICE NUMBER (DRIVE NUMBER)
    1193  E6BD  E9 30                       SBC     #ASCZER     ;SUBTRACT ASCII ZERO
    1194  E6BF  C9 0A                       CMP     #$A         ;IS NUMBER IN RANGE?
    1195  E6C1  90 02                       BCC     DEVS3       ;YES
    1196  E6C3  A9 01                       LDA     #1          ;NO, DEFAULT TO ONE
    1197  E6C5  85 21               DEVS3:  STA     ICDNOZ      ;SAVE DEVICE NUMBER
    1198  E6C7  18                          CLC                 ;SHOW NO ERROR
    1199                            ;
    1200                            ; RETURN
    1201  E6C8  60                  DEVS4:  RTS
    1202                                    .PAGE
    1203                            ;
    1204                            ;
    1205                            ; CIO ROM TABLES
    1206                            ;
    1207                            ; COMMAND TABLE
    1208                            ; MAPS EACH COMMAND TO OFFSET FOR APPROPRIATE VECTOR IN HANDLER
    1209  E6C9  00 04 04 04         COMTAB: .BYTE   0,4,4,4,4,6,6,6,6,2,8,10
    1210  E6CD  04 06 06 06
    1211  E6D1  06 02 08 0A
    1212  022F                      LENGTH  =*-CIOINT
    1213  E6D5                      CRNTP1  =*
    1214                                    *=$14
    1215  0014  00                  CIOSPR: .BYTE   INTORG-CRNTP1 ;^GCIOL IS TOO LONG
    1216
    1217                                    .TITLE  'INTERRUPT HANDLER'
    1218                            ;LIVES ON DK1:INTHV.SRC
    1219  0006                      SRTIM2  =       6           ;SECOND REPEAT INTERVAL
    1220                            ;
    1221                            ; THIS IS TO MAKE DOS 2 WORK WHICH USED AN ABSOLUTE ADDRESS
    1222                            ;
    1223                                    *=$E912
    1224  E912  4C ED E8                    JMP     SETVBL
    1225                                    *=SETVBV
    1226  E45C  4C ED E8                    JMP     SETVBL
    1227  E45F  4C AE E7                    JMP     SYSVBL
    1228  E462  4C 05 E9                    JMP     XITVBL
    1229                                    *=INTINV
    1230  E46B  4C D5 E6                    JMP     IHINIT
    1231                            ;
    1232                                    *=VCTABL+INTABS-VDSLST
    1233                            ;
    1234  E480  90 E7                       .WORD   SYRTI       ;VDSLST
    1235  E482  8F E7                       .WORD   SYIRQB      ;VPRCED
    1236  E484  8F E7                       .WORD   SYIRQB      ;VINTER
    1237  E486  8F E7                       .WORD   SYIRQB      ;VBREAK
    1238                            ;
    1239  E488                              .RES    8
    1240  E490  8F E7                       .WORD   SYIRQB      ;VTIMR1
    1241  E492  8F E7                       .WORD   SYIRQB      ;VTIMR2
    1242  E494  8F E7                       .WORD   SYIRQB      ;VTMIR4
    1243  E496  06 E7                       .WORD   SYIRQ       ;VIMIRQ
    1244  E498  00 00 00 00                 .WORD   0,0,0,0,0   ;CDTMV1-4
    1245  E49C  00 00 00 00
    1246  E4A0  00 00
    1247  E4A2  AE E7                       .WORD   SYSVBL      ;VVBLKI
    1248  E4A4  05 E9                       .WORD   XITVBL      ;VVBLKD
    1249                            ;
    1250                                    *=$900C
    1251                            ;
    1252  900C  A9 E6                       LDA     #PIRQH      ;SET UP RAM VECTORS FOR LINBUG VERSION
    1253  900E  8D F9 FF                    STA     $FFF9
    1254  9011  A9 F3                       LDA     #PIRQL
    1255  9013  8D F8 FF                    STA     $FFF8
    1256  9016  A9 E7                       LDA     #PNMIH
    1257  9018  8D FB FF                    STA     $FFFB
    1258  901B  A9 91                       LDA     #PNMIL
    1259  901D  8D FA FF                    STA     $FFFA
    1260  9020  60                          RTS
    1261                                    .PAGE
    1262                            ;
    1263                            ; IRQ HANDLER
    1264                            ;
    1265                            ; JUMP THRU IMMEDIATE IRQ VECTOR, WHICH ORDINARILY POINTS TO
    1266                            ; SYSTEM IRQ: DETERMINE & CLEAR CAUSE, JUMP THRU SOFTWARE VECTOR.
    1267                            ;
    1268                                    *=INTORG
    1269  E6D5  A9 40               IHINIT: LDA     #$40        ;VBL ON BUF DLIST OFF***FOR NOW***
    1270  E6D7  8D 0E D4                    STA     NMIEN       ;ENABLE DISPLAY LIST, VERTICAL BLANK
    1271  E6DA  A9 38                       LDA     #$38        ;LOOK AT DATA DIRECTION REGISTERS IN PIA
    1272  E6DC  8D 02 D3                    STA     PACTL
    1273  E6DF  8D 03 D3                    STA     PBCTL
    1274  E6E2  A9 00                       LDA     #0          ;MAKE ALL INPUTS
    1275  E6E4  8D 00 D3                    STA     PORTA
    1276  E6E7  8D 01 D3                    STA     PORTB
    1277  E6EA  A9 3C                       LDA     #$3C        ;BACK TO PORTS
    1278  E6EC  8D 02 D3                    STA     PACTL
    1279  E6EF  8D 03 D3                    STA     PBCTL
    1280  E6F2  60                          RTS
    1281  E6F3  6C 16 02            PIRQ:   JMP     (VIMIRQ)
    1282  E6F6  80                  CMPTAB: .BYTE   $80         ;BREAK KEY
    1283  E6F7  40                          .BYTE   $40         ;KEY STROKE
    1284  E6F8  04                          .BYTE   $04         ;TIMER 4
    1285  E6F9  02                          .BYTE   $02         ;TIMER 2
    1286  E6FA  01                          .BYTE   $01         ;TIMER 1
    1287  E6FB  08                          .BYTE   $08         ;SERIAL OUT COMPLETE
    1288  E6FC  10                          .BYTE   $10         ;SERIAL OUT READY
    1289  E6FD  20                          .BYTE   $20         ;SERIAL  IN READY
    1290
    1291                            ; THIS IS A TABLE OF OFFSETS INTO PAGE 2.  THEY POINT TO
    1292  E6FE  36                  ADRTAB: .BYTE   BRKKY-INTABS
    1293  E6FF  08                          .BYTE   VKEYBD-INTABS
    1294  E700  14                          .BYTE   VTIMR4-INTABS
    1295  E701  12                          .BYTE   VTIMR2-INTABS
    1296  E702  10                          .BYTE   VTIMR1-INTABS
    1297  E703  0E                          .BYTE   VSEROC-INTABS
    1298  E704  0C                          .BYTE   VSEROR-INTABS
    1299  E705  0A                          .BYTE   VSERIN-INTABS
    1300
    1301  E706  48                  SYIRQ:  PHA                 ;SAVE ACCUMULATOR
    1302  E707  AD 0E D2                    LDA     IRQST       ; CHECK FOR SERIAL IN
    1303  E70A  29 20                       AND     #$20
    1304  E70C  D0 0D                       BNE     SYIRQ2
    1305  E70E  A9 DF                       LDA     #$DF        ; MASK ALL OTHERS
    1306  E710  8D 0E D2                    STA     IRQEN
    1307  E713  A5 10                       LDA     POKMSK
    1308  E715  8D 0E D2                    STA     IRQEN
    1309  E718  6C 0A 02                    JMP     (VSERIN)
    1310  E71B  8A                  SYIRQ2: TXA                 ;PUT X INTO ACC
    1311  E71C  48                          PHA                 ;SAVE X ONTO STACK
    1312  E71D  A2 06                       LDX     #$6         ;START WITH SIX OFFSET
    1313  E71F  BD F6 E6            LOOPM:  LDA     CMPTAB,X    ;LOAD MASK
    1314  E722  E0 05                       CPX     #5          ;CHECK TO SEE IF COMPLETE IS SET
    1315  E724  D0 04                       BNE     LOOPM2
    1316  E726  25 10                       AND     POKMSK      ;IS THIS INTERUPT ENABLED?
    1317  E728  F0 05                       BEQ     LL
    1318  E72A  2C 0E D2            LOOPM2: BIT     IRQST       ; IS IT THE INTERUPT?
    1319  E72D  F0 06                       BEQ     JMPP
    1320  E72F  CA                  LL:     DEX                 ;NO DEC X AND TRY NEXT MASK
    1321  E730  10 ED                       BPL     LOOPM       ;IF NOT NEG GOTO LOOPM
    1322  E732  4C 62 E7                    JMP     SYIRQ8      ;DONE BUT NO INTERUPT
    1323  E735  49 FF               JMPP:   EOR     #$FF        ;COMPLEMENT MASK
    1324  E737  8D 0E D2                    STA     IRQEN       ;ENABLE ALL OTHERS
    1325  E73A  A5 10                       LDA     POKMSK      ; GET POKE MASK
    1326  E73C  8D 0E D2                    STA     IRQEN       ; ENABLE THOSE IN POKE MASK
    1327  E73F  BD FE E6                    LDA     ADRTAB,X
    1328  E742  AA                          TAX
    1329  E743  BD 00 02                    LDA     INTABS,X    ; GET ADDRESS LOW PART
    1330  E746  8D 8C 02                    STA     JVECK       ; PUT IN VECTOR
    1331  E749  BD 01 02                    LDA     INTABS+1,X  ; GET ADDRESS HIGH PART
    1332  E74C  8D 8D 02                    STA     JVECK+1     ; PUT IN VECTOR HIGH PART
    1333  E74F  68                          PLA                 ; PULL X REGISTER FROM STACK
    1334  E750  AA                          TAX                 ; PUT IT INTO X
    1335  E751  6C 8C 02                    JMP     (JVECK)     ; JUMP TO THE PROPER ROUTINE
    1336  E754  A9 00               BRKKY2: LDA     #0          ; BREAK KEY ROUTINE
    1337  E756  85 11                       STA     BRKKEY      ; SET BREAK KEY FLAG
    1338  E758  8D FF 02                    STA     SSFLAG      ; START/STOP FLAG
    1339  E75B  8D F0 02                    STA     CRSINH      ; CURSOR INHIBIT
    1340  E75E  85 4D                       STA     ATRACT      ; TURN OFF ATRACT MODE
    1341  E760  68                          PLA
    1342  E761  40                          RTI                 ;EXIT FROM INT
    1343  E762  68                  SYIRQ8: PLA
    1344  E763  AA                          TAX
    1345  E764  2C 02 D3                    BIT     PACTL       ;PROCEED ***I GUESS***
    1346  E767  10 06                       BPL     SYIRQ9
    1347  E769  AD 00 D3                    LDA     PORTA       CLEAR INT STATUS BIT
    1348  E76C  6C 02 02                    JMP     (VPRCED)
    1349  E76F  2C 03 D3            SYIRQ9: BIT     PBCTL       ;INTERRUPT ***I GUESS***
    1350  E772  10 06                       BPL     SYIRQA
    1351  E774  AD 01 D3                    LDA     PORTB       ;CLEAR INT STATUS
    1352  E777  6C 04 02                    JMP     (VINTER)
    1353  E77A  68                  SYIRQA: PLA
    1354  E77B  8D 8C 02                    STA     JVECK
    1355  E77E  68                          PLA
    1356  E77F  48                          PHA
    1357  E780  29 10                       AND     #$10        ;B BIT OF P REGISTER
    1358  E782  F0 07                       BEQ     SYRTI2
    1359  E784  AD 8C 02                    LDA     JVECK
    1360  E787  48                          PHA
    1361  E788  6C 06 02                    JMP     (VBREAK)
    1362  E78B  AD 8C 02            SYRTI2: LDA     JVECK
    1363  E78E  48                          PHA
    1364  E78F  68                  SYIRQB: PLA
    1365  E790  40                  SYRTI:  RTI                 ;UNIDENTIFIED INTERRUPT, JUST RETURN.
    1366                                    .PAGE
    1367                            ;
    1368                            ; NMI HANDLER
    1369                            ;
    1370                            ; DETERMINE CAUSE AND JUMP THRU VECTOR
    1371                            ;
    1372  E791  2C 0F D4            PNMI:   BIT     NMIST
    1373  E794  10 03                       BPL     PNMI1       ;SEE IF DISPLAY LIST
    1374  E796  6C 00 02                    JMP     (VDSLST)
    1375  E799  48                  PNMI1:  PHA
    1376  E79A  AD 0F D4                    LDA     NMIST
    1377  E79D  29 20                       AND     #$20        ;SEE IF RESET
    1378  E79F  F0 03                       BEQ     *+5
    1379  E7A1  4C 74 E4                    JMP     WARMSV      ;GO THRU WARM START JUMP
    1380  E7A4  8A                          TXA                 ;SAVE REGISTERS
    1381  E7A5  48                          PHA
    1382  E7A6  98                          TYA
    1383  E7A7  48                          PHA
    1384  E7A8  8D 0F D4                    STA     NMIRES      ;RESET INTERRUPT STATUS
    1385  E7AB  6C 22 02                    JMP     (VVBLKI)    ;JUMP THRU VECTOR
    1386                                    .PAGE
    1387                            ;
    1388                            ; SYSTEM VBLANK ROUTINE
    1389                            ;
    1390                            ; INC FRAME COUNTER. PROCESS COUNTDOWN TIMERS. EXIT IF I WAS SET, CLEAR I.
    1391                            ; SET DLISTL, DLISTH, DMACTL FROM RAM CELLS. DO SOFTWARE REPEAT.
    1392                            ;
    1393  E7AE  E6 14               SYSVBL: INC     RTCLOK+2    ;INC FRAME COUNTER
    1394  E7B0  D0 08                       BNE     SYSVB1
    1395  E7B2  E6 4D                       INC     ATRACT      ;INCREMENT ATRACT (CAUSES ATRACT WHEN MINUS)
    1396  E7B4  E6 13                       INC     RTCLOK+1
    1397  E7B6  D0 02                       BNE     SYSVB1
    1398  E7B8  E6 12                       INC     RTCLOK
    1399  E7BA  A9 FE               SYSVB1: LDA     #$FE        ;{ATRACT] SET DARK MASK TO NORMAL
    1400  E7BC  A2 00                       LDX     #0          ;SET COLRSH TO NORMAL
    1401  E7BE  A4 4D                       LDY     ATRACT      ;TEST ATRACT FOR NEGATIVE
    1402  E7C0  10 06                       BPL     VBATRA      ;WHILE POSITIVE, DONT GO INTO ATRACT
    1403  E7C2  85 4D                       STA     ATRACT      ;IN ATRACT, SO STAY BY STA $FE
    1404  E7C4  A6 13                       LDX     RTCLOK+1    ;COLOR SHIFT FOLLOWS RTCLOK+1
    1405  E7C6  A9 F6                       LDA     #$F6        ;SET DARK MASK TO DARK
    1406  E7C8  85 4E               VBATRA: STA     DRKMSK
    1407  E7CA  86 4F                       STX     COLRSH
    1408  E7CC  A2 00                       LDX     #0          ;POINT TO TIMER1
    1409  E7CE  20 D0 E8                    JSR     DCTIMR      ;GO DECREMENT TIMER1
    1410  E7D1  D0 03                       BNE     SYSVB2      ;BRANCH IF STILL COUNTING
    1411  E7D3  20 CA E8                    JSR     JTIMR1      ;GO JUMP TO ROUTINE
    1412  E7D6  A5 42               SYSVB2: LDA     CRITIC
    1413  E7D8  D0 08                       BNE     XXIT        ;GO IF CRITICAL SET
    1414  E7DA  BA                          TSX                 ;SEE IF I WAS SET
    1415  E7DB  BD 04 01                    LDA     $104,X      ;GET STACKED P
    1416  E7DE  29 04                       AND     #$04        ;I BIT
    1417  E7E0  F0 03                       BEQ     SYSVB3      ;BRANCH IF OK
    1418  E7E2  4C 05 E9            XXIT:   JMP     XITVBL      ;I WAS SET, EXIT
    1419  E7E5  AD 0D D4            SYSVB3: LDA     PENV
    1420  E7E8  8D 35 02                    STA     LPENV
    1421  E7EB  AD 0C D4                    LDA     PENH
    1422  E7EE  8D 34 02                    STA     LPENH
    1423  E7F1  AD 31 02                    LDA     SDLSTH
    1424  E7F4  8D 03 D4                    STA     DLISTH
    1425  E7F7  AD 30 02                    LDA     SDLSTL
    1426  E7FA  8D 02 D4                    STA     DLISTL
    1427  E7FD  AD 2F 02                    LDA     SDMCTL
    1428  E800  8D 00 D4                    STA     DMACTL
    1429  E803  AD 6F 02                    LDA     GPRIOR      ;GLOBAL PRIOR
    1430  E806  8D 1B D0                    STA     PRIOR
    1431  E809  A2 08                       LDX     #$08        ;TURN OFF KEYBOARD SPEAKER
    1432  E80B  8E 1F D0                    STX     CONSOL
    1433  E80E  58                  SCOLLP: CLI                 ;DISABLE INTERUPTS
    1434  E80F  BD C0 02                    LDA     PCOLR0,X    ;LOAD COLOR REGISTERS FROM RAM
    1435  E812  45 4F                       EOR     COLRSH      ;DO COLOR SHIFT
    1436  E814  25 4E                       AND     DRKMSK      ;AND DARK ATRACT
    1437  E816  9D 12 D0                    STA     COLPM0,X
    1438  E819  CA                          DEX
    1439  E81A  10 F2                       BPL     SCOLLP
    1440  E81C  AD F4 02                    LDA     CHBAS
    1441  E81F  8D 09 D4                    STA     CHBASE
    1442  E822  AD F3 02                    LDA     CHACT
    1443  E825  8D 01 D4                    STA     CHACTL
    1444  E828  A2 02                       LDX     #2          ;POINT TO TIMER 2
    1445  E82A  20 D0 E8                    JSR     DCTIMR
    1446  E82D  D0 03                       BNE     SYSVB4      ;IF DIDNT GO ZERO
    1447  E82F  20 CD E8                    JSR     JTIMR2      ;GO JUMP TO TIMER2 ROUTINE
    1448  E832  A2 02               SYSVB4: LDX     #2          ;RESTORE X
    1449  E834  E8                  SYSVBB: INX
    1450  E835  E8                          INX
    1451  E836  BD 18 02                    LDA     CDTMV1,X
    1452  E839  1D 19 02                    ORA     CDTMV1+1,X
    1453  E83C  F0 06                       BEQ     SYSVBA
    1454  E83E  20 D0 E8                    JSR     DCTIMR      ;DECREMENT AND SET FLAG IF NONZERO
    1455  E841  9D 26 02                    STA     CDTMF3-4,X
    1456  E844  E0 08               SYSVBA: CPX     #8          ;SEE IF DONE ALL 3
    1457  E846  D0 EC                       BNE     SYSVBB      ;LOOP
    1458                            ; CHECK DEBOUNCE COUNTER
    1459  E848  AD 0F D2                    LDA     SKSTAT
    1460  E84B  29 04                       AND     #$04        ;KEY DOWN BIT
    1461  E84D  F0 08                       BEQ     SYVB6A      ;IF KEY DOWN
    1462                            ; KEY UP SO COUNT IT
    1463  E84F  AD F1 02                    LDA     KEYDEL      ;KEY DELAY COUNTER
    1464  E852  F0 03                       BEQ     SYVB6A      ;IF COUNTED DOWN ALREADY
    1465  E854  CE F1 02                    DEC     KEYDEL      ;COUNT IT
    1466                            ; CHECK SOFTWARE REPEAT TIMER
    1467  E857  AD 2B 02            SYVB6A: LDA     SRTIMR
    1468  E85A  F0 17                       BEQ     SYSVB7      ;DOESN'T COUNT
    1469  E85C  AD 0F D2                    LDA     SKSTAT
    1470  E85F  29 04                       AND     #$04        ;CHECK KEY DOWN BIT
    1471  E861  D0 60                       BNE     SYSVB6      ;BRANCH IF NO LONGER DOWN
    1472  E863  CE 2B 02                    DEC     SRTIMR      ;COUNT FRAME OF KEY DOWN
    1473  E866  D0 0B                       BNE     SYSVB7      ;BRANCH IF NOT RUN OUT
    1474                            ; TIMER RAN OUT - RESET AND SIMULATE KEYBOARD IRQ
    1475  E868  A9 06                       LDA     #SRTIM2     ;TIMER VALUE
    1476  E86A  8D 2B 02                    STA     SRTIMR      ;SET TIMER
    1477  E86D  AD 09 D2                    LDA     KBCODE      ;GET THE KEY
    1478  E870  8D FC 02                    STA     CH          ;PUT INTO CH
    1479                            ; READ GAME CONTROLLERS
    1480  E873  A0 01               SYSVB7: LDY     #1
    1481  E875  A2 03                       LDX     #3
    1482  E877  B9 00 D3            STLOOP: LDA     PORTA,Y
    1483  E87A  4A                          LSR     A
    1484  E87B  4A                          LSR     A
    1485  E87C  4A                          LSR     A
    1486  E87D  4A                          LSR     A
    1487  E87E  9D 78 02                    STA     STICK0,X    ;STORE JOYSTICK
    1488  E881  CA                          DEX
    1489  E882  B9 00 D3                    LDA     PORTA,Y
    1490  E885  29 0F                       AND     #$F
    1491  E887  9D 78 02                    STA     STICK0,X    ;STORE JOYSTICK
    1492  E88A  CA                          DEX
    1493  E88B  88                          DEY
    1494  E88C  10 E9                       BPL     STLOOP
    1495                            ;
    1496  E88E  A2 03                       LDX     #3
    1497  E890  BD 10 D0            STRL:   LDA     TRIG0,X     ;MOVE JOYSTICK TRIGGERS
    1498  E893  9D 84 02                    STA     STRIG0,X
    1499  E896  BD 00 D2                    LDA     POT0,X      ;MOVE POT VALUES
    1500  E899  9D 70 02                    STA     PADDL0,X
    1501  E89C  BD 04 D2                    LDA     POT4,X
    1502  E89F  9D 74 02                    STA     PADDL4,X
    1503  E8A2  CA                          DEX
    1504  E8A3  10 EB                       BPL     STRL
    1505  E8A5  8D 0B D2                    STA     POTGO       ;START POTS FOR NEXT TIME
    1506                            ;
    1507  E8A8  A2 06                       LDX     #6
    1508  E8AA  A0 03                       LDY     #3
    1509  E8AC  B9 78 02            PTRLP:  LDA     STICK0,Y    ;TRANSFER BITS FROM JOYSTICKS
    1510  E8AF  4A                          LSR     A           ;TO PADDLE TRIGGERS
    1511  E8B0  4A                          LSR     A
    1512  E8B1  4A                          LSR     A
    1513  E8B2  9D 7D 02                    STA     PTRIG1,X
    1514  E8B5  A9 00                       LDA     #0
    1515  E8B7  2A                          ROL     A
    1516  E8B8  9D 7C 02                    STA     PTRIG0,X
    1517  E8BB  CA                          DEX
    1518  E8BC  CA                          DEX
    1519  E8BD  88                          DEY
    1520  E8BE  10 EC                       BPL     PTRLP
    1521                            ;
    1522  E8C0  6C 24 02                    JMP     (VVBLKD)    ;GO TO DEFERRED VBLANK ROUTINE
    1523  00E8                      SV7H    =       SYSVB7/256
    1524  0073                      SV7L    =       (-256)*SV7H+SYSVB7
    1525  E8C3  A9 00               SYSVB6: LDA     #0
    1526  E8C5  8D 2B 02                    STA     SRTIMR      ;ZERO TIMER
    1527  E8C8  F0 A9                       BEQ     SYSVB7      ;UNCOND
    1528  E8CA  6C 26 02            JTIMR1: JMP     (CDTMA1)
    1529  E8CD  6C 28 02            JTIMR2: JMP     (CDTMA2)
    1530                            ;
    1531                            ; SUBROUTINE TO DECREMENT A COUNTDOWN TIMER
    1532                            ; ENTRY X=OFFSET FROM TIMER 1
    1533                            ; EXIT A,P=ZERO IF WENT ZERO, FF OTHERWISE
    1534                            ;
    1535  E8D0  BC 18 02            DCTIMR: LDY     CDTMV1,X    ;LO BYTE
    1536  E8D3  D0 08                       BNE     DCTIM1      ;NONZERO, GO DEC IT
    1537  E8D5  BC 19 02                    LDY     CDTMV1+1,X  ;SEE IF BOTH ZERO
    1538  E8D8  F0 10                       BEQ     DCTXF       ;YES, EXIT NONZERO
    1539  E8DA  DE 19 02                    DEC     CDTMV1+1,X  ;DEC HI BYTE
    1540  E8DD  DE 18 02            DCTIM1: DEC     CDTMV1,X    ;DEC LO BYTE
    1541  E8E0  D0 08                       BNE     DCTXF
    1542  E8E2  BC 19 02                    LDY     CDTMV1+1,X
    1543  E8E5  D0 03                       BNE     DCTXF
    1544  E8E7  A9 00                       LDA     #0          ;WENT ZERO, RETURN ZERO
    1545  E8E9  60                          RTS
    1546  E8EA  A9 FF               DCTXF:  LDA     #$FF        ;RETURN NONZERO
    1547  E8EC  60                          RTS
    1548                                    .PAGE
    1549                            ;
    1550                            ; SUBROUTINE TO SET VERTICAL BLANK VECTORS AND TIMERS
    1551                            ; ENTRY X=HI,Y=LO BYTE TO SET
    1552                            ;       A= 1-5 TIMERS 1-5
    1553                            ;          6 IMM VBLANK
    1554                            ;          7 DEF VBLANK
    1555                            ;
    1556  E8ED  0A                  SETVBL: ASL     A           ;MUL BY 2
    1557  E8EE  8D 2D 02                    STA     INTEMP
    1558  E8F1  8A                          TXA
    1559  E8F2  A2 05                       LDX     #5
    1560  E8F4  8D 0A D4                    STA     WSYNC       ;WASTE 20 CPU CYCLES
    1561  E8F7  CA                  SETLOP: DEX                 ;TO ALOWD VBLANK TO HAPPEN
    1562  E8F8  D0 FD                       BNE     SETLOP      ;IF THIS IS LINE "7C"
    1563  E8FA  AE 2D 02                    LDX     INTEMP
    1564  E8FD  9D 17 02                    STA     CDTMV1-1,X
    1565  E900  98                          TYA
    1566  E901  9D 16 02                    STA     CDTMV1-2,X
    1567  E904  60                          RTS
    1568                            ;
    1569                            ; EXIT FROM VERTICAL BLANK
    1570                            ;
    1571  E905  68                  XITVBL: PLA                 ;UNSTACK Y
    1572  E906  A8                          TAY
    1573  E907  68                          PLA                 ;UNSTACK X
    1574  E908  AA                          TAX
    1575  E909  68                          PLA                 ;UNSTACK A
    1576  E90A  40                          RTI                 ;AND GO BACK FROM WHENCE.
    1577  00E6                      PIRQH   =       PIRQ/256
    1578  00F3                      PIRQL   =       (-256)*PIRQH+PIRQ
    1579  00E7                      PNMIH   =       PNMI/256
    1580  0091                      PNMIL   =       (-256)*PNMIH+PNMI
    1581                            ; SPARE BYTE OR MODULE TOO LONG FLAG
    1582  E90B                      CRNTP2  =*
    1583                                    *=$14
    1584  0014  39                  INTSPR: .BYTE   SIOORG-CRNTP2 ;^GINTHV IS TOO LONG
    1585
    1586                                    .TITLE  'SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER )'
    1587                            ;       COLLEEN OPERATING SYSTEM
    1588                            ;
    1589                            ;       SIO  ( SERIAL BUS INPUT/OUTPUT CONTROLLER )
    1590                            ;       WITH SOFTWARE BAUD RATE CORRECTION ON CASSETTE
    1591                            ;
    1592                            ;
    1593                            ;               AL MILLER       3-APR-79
    1594                            ;
    1595                            ;
    1596                            ; THIS MODULE HAS ONE ENTRY POINT.  IT IS CALLED BY THE DEVICE
    1597                            ; HANDLERS.  IT INTERPRETS A PREVIOUSLY ESTABLISHED DEVICE CONTROL
    1598                            ; BLOCK (STORED IN GLOBAL RAM) TO ISSUE COMMANDS
    1599                            ; TO THE SERIAL BUS TO CONTROL TRANSMITTING AND RECEIVING DATA.
    1600                            ;
    1601                            ;
    1602                            ;
    1603                            ;
    1604                                    .PAGE
    1605                            ; EQUATES
    1606                            ;
    1607                            ; DCD DEVICE BUS ID NUMBERS
    1608  0030                      FLOPPY  =       $30
    1609                            ;PRINTR =       $40
    1610                            ;CASSET =       $60         ;!!!!! *****
    1611  0060                      CASET   =       $60         ;!!!!! *****
    1612                            ;
    1613                            ;
    1614                            ;BUS COMMANDS
    1615                            ;
    1616  0052                      READ    =       'R
    1617  0057                      WRITE   =       'W
    1618                            ;STATIS = 'S
    1619                            ;FORMAT = '!
    1620                            ;
    1621                            ;
    1622                            ; COMMAND AUX BYTES
    1623                            ;
    1624  0053                      SIDWAY  =       'S          ;PRINT 16 CHARACTERS SIDEWAYS
    1625  004E                      NORMAL  =       'N          ;PRINT 40 CHARACTERS NORMALLY
    1626  0044                      DOUBLE  =       'D          ;PRINT 20 CHARACTERS DOUBLE WIDE
    1627  0050                      PLOT    =       'P          ;PLOT MODE
    1628                            ;
    1629                            ;
    1630                            ; BUS RESPONSES
    1631                            ;
    1632  0041                      ACK     =       'A          ;DEVICE ACKNOWLEDGES INFORMATION
    1633  004E                      NACK    =       'N          ;DEVICE DID NOT UNDERSTAND
    1634  0043                      COMPLT  =       'C          ;DEVICE SUCCESSFULLY COMPLETED OPERATION
    1635  0045                      ERROR   =       'E          ;DEVICE INCURRED AN ERROR IN AN ATTEMPTED OPERATION
    1636                            ;
    1637                            ;
    1638                            ; MISCELLANEOUS EQUATES
    1639                            ;
    1640  0028                      B192LO  =       $28         ;19200 BAUD RATE POKEY COUNTER VALUES (LO BYTE)
    1641  0000                      B192HI  =       $00         ;(HI BYTE)
    1642  00CC                      B600LO  =       $CC         ;600 BAUD (LO BYTE)
    1643  0005                      B600HI  =       $05         ;(HI BYTE)
    1644  0005                      HITONE  =       $05         ;FSK HI FREQ POKEY COUNTE VALUE (5326 HZ)
    1645  0007                      LOTONE  =       $07         ;FSK LO FREQ POKEY COUNTER VALUE (3995 HZ)
    1646                            ;
    1647                                    .IF     PALFLG
    1648                            WIRGLO  =       150         ;WRITE INTER RECORD GAP (IN 1/60 SEC)
    1649                            RIRGLO  =       100         ;READ INTER RECORD GAP (IN 1/60 SEC)
    1650                            WSIRG   =        13         ;SHORT WRITE INTER RECORD GAP
    1651                            RSIRG   =         8         ;SHORT READ INTER RECORD GAP
    1652                                    .ENDIF
    1653                                    .IF     PALFLG-1
    1654  00B4                      WIRGLO  =       180         ;WRITE INTER RECORD GAP (IN 1/60 SEC)
    1655  0078                      RIRGLO  =       120         ;READ INTER RECORD GAP (IN 1/60 SEC)
    1656  000F                      WSIRG   =       15          ;SHORT WRITE INTER RECORD GAP
    1657  000A                      RSIRG   =       10          ;SHORT READ INTER RECORD GAP
    1658                                    .ENDIF
    1659  0000                      WIRGHI  =       0
    1660  0000                      RIRGHI  =       0
    1661                            ;
    1662  0034                      NCOMLO  =       $34         ;PIA COMMAND TO LOWER NOT COMMAND LINE
    1663  003C                      NCOMHI  =       $3C         ;PIA COMMAND TO RAISE NOT COMMAND LINE
    1664  0034                      MOTRGO  =       $34         ;PIA COMMAND TO TURN ON CASSETTE MOTOR
    1665  003C                      MOTRST  =       $3C         ;PIA COMMAND TO TURN OFF MOTOR
    1666                            ;
    1667  0002                      TEMPHI  =       TEMP/256    ;ADDRESS OF TEMP CELL (HI BYTE)
    1668  003E                      TEMPLO  =       (-256)*TEMPHI+TEMP ;(LO BYTE)
    1669  0002                      CBUFHI  =       CDEVIC/256  ;ADDRESS OF COMMAND BUFFER (HI BYTE)
    1670  003A                      CBUFLO  =       (-256)*CBUFHI+CDEVIC ;(LO BYTE)
    1671                            ;
    1672  000D                      CRETRI  =       13          ;NUMBER OF COMMAND FRAME RETRIES
    1673  0001                      DRETRI  =       1           ;NUMBER OF DEVICE RETRIES
    1674  0002                      CTIMLO  =       2           ;COMMAND FRAME ACK TIME OUT (LO BYTE)
    1675  0000                      CTIMHI  =       0           ;COMMAND FRAME ACK TIME OUT (HI BYTE)
    1676                            ;
    1677                            ;
    1678                            ;JTADRH  =       JTIMER/256   ;HI BYTE OF JUMP TIMER ROUTINE ADDR     "MOVED TO LINE 1427"
    1679                            ;JTADRL  =       (-256)*JTADRH+JTIMER    ;"MOVED TO LINE 1428"
    1680                            ;
    1681                                    .PAGE
    1682                            ;       SIO
    1683                            ;
    1684                            ;
    1685                                    *=SIOV
    1686  E459  4C 59 E9                    JMP     SIO         ;SIO ENTRY POINT
    1687                            ;
    1688                                    *=SIOINV
    1689  E465  4C 44 E9                    JMP     SIOINT      ;SIO INITIALIZATION ENTRY POINT
    1690                            ;
    1691                                    *=SENDEV
    1692  E468  4C F2 EB                    JMP     SENDEN      ;SEND ENABLE ENTRY POINT
    1693                            ;
    1694                                    *=VCTABL-INTABS+VSERIN
    1695                            ;
    1696  E48A  0F EB                       .WORD   ISRSIR      ;VSERIN
    1697  E48C  90 EA                       .WORD   ISRODN      ;VSEROR
    1698  E48E  CF EA                       .WORD   ISRTD       ;VSEROC
    1699                            ;
    1700                            ;
    1701                            ;
    1702                                    *=SIOORG
    1703                            ;
    1704                            ; SIO INITIALIZATION SUBROUTINE
    1705                            ;
    1706  E944  A9 3C               SIOINT: LDA     #MOTRST
    1707  E946  8D 02 D3                    STA     PACTL       ;TURN OFF MOTOR
    1708                            ;
    1709  E949  A9 3C                       LDA     #NCOMHI
    1710  E94B  8D 03 D3                    STA     PBCTL       ;RAISE NOT COMMAND LINE
    1711                            ;
    1712                            ;
    1713  E94E  A9 03                       LDA     #3
    1714  E950  8D 32 02                    STA     SSKCTL      ;GET POKEY OUT OF INITIALIZE MODE
    1715  E953  85 41                       STA     SOUNDR      ;INIT POKE ADDRESS FOR QUIET I/O
    1716  E955  8D 0F D2                    STA     SKCTL
    1717                            ;
    1718                            ;
    1719  E958  60                          RTS                 ;RETURN
    1720                            ;
    1721                            ;
    1722                            ;
    1723                            ;
    1724                            ;
    1725                            ;
    1726  E959  BA                  SIO:    TSX
    1727  E95A  8E 18 03                    STX     STACKP      ;SAVE STACK POINTER
    1728  E95D  A9 01                       LDA     #1
    1729  E95F  85 42                       STA     CRITIC
    1730                            ;
    1731  E961  AD 00 03                    LDA     DDEVIC
    1732  E964  C9 60                       CMP     #CASET
    1733  E966  D0 03                       BNE     NOTCST      ;BRANCH IF NOT CASSETTE
    1734  E968  4C 80 EB                    JMP     CASENT      ;OTHERWISE JUMP TO CASSETTE ENTER
    1735                            ;
    1736                            ; ALL DEVICES EXCEPT CASSETTE ARE INTELLIGENT
    1737                            ;
    1738  E96B  A9 00               NOTCST: LDA     #0
    1739  E96D  8D 0F 03                    STA     CASFLG      ;INIT CASSETTE FLAG TO NO CASSETTE
    1740                            ;
    1741  E970  A9 01                       LDA     #DRETRI     ;SET NUMBER OF DEVICE RETRIES
    1742  E972  85 37                       STA     DRETRY
    1743  E974  A9 0D               COMMND: LDA     #CRETRI     ;SET NUMBER OF COMMAND FRAME RETRIES
    1744  E976  85 36                       STA     CRETRY
    1745                            ;
    1746                            ; SEND A COMMAND FRAME
    1747                            ;
    1748  E978  A9 28               COMFRM: LDA     #B192LO     ;SET BAUD RATE TO 19200
    1749  E97A  8D 04 D2                    STA     AUDF3
    1750  E97D  A9 00                       LDA     #B192HI
    1751  E97F  8D 06 D2                    STA     AUDF4
    1752                            ;
    1753  E982  18                          CLC                 ;SET UP COMMAND BUFFER
    1754  E983  AD 00 03                    LDA     DDEVIC
    1755  E986  6D 01 03                    ADC     DUNIT
    1756  E989  69 FF                       ADC     #$FF        ;SUBTRACT 1
    1757  E98B  8D 3A 02                    STA     CDEVIC      ;SET BUS ID NUMBER
    1758                            ;
    1759  E98E  AD 02 03                    LDA     DCOMND
    1760  E991  8D 3B 02                    STA     CCOMND      ;SET BUS COMMAND
    1761                            ;
    1762  E994  AD 0A 03                    LDA     DAUX1       ;STORE COMMAND FRAME AUX BYTES 1 AND 2
    1763  E997  8D 3C 02                    STA     CAUX1
    1764  E99A  AD 0B 03                    LDA     DAUX2
    1765  E99D  8D 3D 02                    STA     CAUX2       ;DONE SETTING UP COMMAND BUFFER
    1766                            ;
    1767  E9A0  18                          CLC                 ;SET BUFFER POINTER TO COMMAND FRAME BUFFER
    1768  E9A1  A9 3A                       LDA     #CBUFLO
    1769  E9A3  85 32                       STA     BUFRLO      ;AND BUFFER END ADDRESS
    1770  E9A5  69 04                       ADC     #4
    1771  E9A7  85 34                       STA     BFENLO
    1772  E9A9  A9 02                       LDA     #CBUFHI
    1773  E9AB  85 33                       STA     BUFRHI
    1774  E9AD  85 35                       STA     BFENHI      ;DONE SETTING UP BUFFER POINTER
    1775                            ;
    1776  E9AF  A9 34                       LDA     #NCOMLO     ;LOWER NOT COMMAND LINE
    1777  E9B1  8D 03 D3                    STA     PBCTL
    1778                            ;
    1779  E9B4  20 8A EC                    JSR     SENDIN      ;SEND THE COMMAND FRAME TO A SMART DEVICE
    1780                            ;
    1781  E9B7  AD 3F 02                    LDA     ERRFLG
    1782  E9BA  D0 03                       BNE     BADCOM      ;BRANCH IF AN ERROR RECEIVED
    1783                            ;
    1784  E9BC  98                          TYA
    1785  E9BD  D0 07                       BNE     ACKREC      ;BRANCH IF ACK RECEIVED
    1786                            ;
    1787                            ;
    1788  E9BF  C6 36               BADCOM: DEC     CRETRY      ;A NACK OR TIME OUT OCCURED
    1789  E9C1  10 B5                       BPL     COMFRM      ;SO BRANCH IF ANY RETRIES LEFT
    1790                            ;
    1791  E9C3  4C 06 EA                    JMP     DERR1       ;OTHERWISE, JUMP TO RETURN SECTION
    1792                            ;
    1793                            ;
    1794  E9C6  AD 03 03            ACKREC: LDA     DSTATS      ;ACK WAS RECEIVED
    1795  E9C9  10 0C                       BPL     WATCOM      ;BRANCH TO WAIT FOR COMPLETE ,
    1796                            ; IF THERE IS NO DATA TO BE SENT
    1797                            ;
    1798                            ;
    1799                            ;
    1800                            ; SEND A DATA FRAME TO PERIPHERAL
    1801                            ;
    1802  E9CB  A9 0D                       LDA     #CRETRI     ;SET NUMBER OF RETRIES
    1803  E9CD  85 36                       STA     CRETRY
    1804                            ;
    1805  E9CF  20 6A EB                    JSR     LDPNTR      ;LOAD BUFFER POINTER WITH DCB INFORMATION
    1806                            ;
    1807  E9D2  20 8A EC                    JSR     SENDIN      ;GO SEND THE DATA FRAME TO A SMART DEVICE
    1808                            ;
    1809  E9D5  F0 E8                       BEQ     BADCOM      ;BRANCH IF BAD
    1810                            ;
    1811                            ;
    1812                            ;
    1813                            ; WAIT FOR COMPLETE SIGNAL FROM PERIPHERAL
    1814                            ;
    1815  E9D7  20 75 EC            WATCOM: JSR     STTMOT      ;SET DDEVICE TIME OUT VALUES IN Y,X
    1816                            ;
    1817  E9DA  A9 00                       LDA     #$00
    1818  E9DC  8D 3F 02                    STA     ERRFLG      ;CLEAR ERROR FLAG
    1819                            ;
    1820  E9DF  20 9B EC                    JSR     WAITER      ;SET UP TIMER AND WAIT
    1821  E9E2  F0 12                       BEQ     DERR        ;BRANCH IF TIME OUT
    1822                            ;
    1823                            ;
    1824                            ; DEVICE DID NOT TIME OUT
    1825                            ;
    1826  E9E4  2C 03 03                    BIT     DSTATS
    1827  E9E7  70 07                       BVS     MODATA      ;BRANCH IF MORE DATA FOLLOWS
    1828                            ;
    1829  E9E9  AD 3F 02                    LDA     ERRFLG
    1830  E9EC  D0 18                       BNE     DERR1       ;BRANCH IF AN ERROR OCCURRED
    1831  E9EE  F0 1D                       BEQ     RETURN      ;OTHERWISE RETURN
    1832                            ;
    1833                            ;
    1834                            ;
    1835                            ;
    1836                            ; RECEIVE A DATA FRAME FROM PERIPHERAL
    1837                            ;
    1838  E9F0  20 6A EB            MODATA: JSR     LDPNTR      ;LOAD BUFFER POINTER WITH DCB INFORMATION
    1839                            ;
    1840  E9F3  20 E0 EA                    JSR     RECEIV      ;GO RECEIVE A DATA FRAME
    1841                            ;
    1842  E9F6  AD 3F 02            DERR:   LDA     ERRFLG
    1843  E9F9  F0 05                       BEQ     NOTERR      ;BRANCH IF NO ERROR PRECEEDED DATA
    1844                            ;
    1845  E9FB  AD 19 03                    LDA     TSTAT       ;GET TEMP STATUS
    1846  E9FE  85 30                       STA     STATUS      ;STORE IN REAL STATUS
    1847                            ;
    1848                            ;
    1849  EA00  A5 30               NOTERR: LDA     STATUS
    1850  EA02  C9 01                       CMP     #SUCCES
    1851  EA04  F0 07                       BEQ     RETURN      ;BRANCH IF COMPLETELY SUCCESSFUL
    1852                            ;
    1853  EA06  C6 37               DERR1:  DEC     DRETRY
    1854  EA08  30 03                       BMI     RETURN      ;BRANCH IF OUT OF DEVICE RETRIES
    1855                            ;
    1856  EA0A  4C 74 E9                    JMP     COMMND      ;OTHERWISE, ONE MORE TIME
    1857                            ;
    1858                            ;
    1859                            ;
    1860                            ;
    1861  EA0D  20 5F EC            RETURN: JSR     SENDDS      ;DISABLE POKEY INTERRUPTS
    1862  EA10  A9 00                       LDA     #0
    1863  EA12  85 42                       STA     CRITIC
    1864  EA14  A4 30                       LDY     STATUS      ;RETURN STATUS IN Y
    1865  EA16  8C 03 03                    STY     DSTATS      ;AND THE DCB STATUS WORD
    1866  EA19  60                          RTS     RETURN
    1867                            ;
    1868                            ;
    1869                            ;
    1870                            ;
    1871                            ; WAIT SUBROUTINE
    1872                            ;
    1873                            ; WAITS FOR COMPLETE OR ACK
    1874                            ; RETURNS Y=$FF IF SUCCESSFUL, Y=$00 IF NOT
    1875                            ;
    1876  EA1A  A9 00               WAIT:   LDA     #$00
    1877  EA1C  8D 3F 02                    STA     ERRFLG      ;CLEAR ERROR FLAG
    1878                            ;
    1879  EA1F  18                          CLC                 ;LOAD BUFFER POINTER WITH ADDRESS
    1880  EA20  A9 3E                       LDA     #TEMPLO     ;OF TEMPORARY RAM CELL
    1881  EA22  85 32                       STA     BUFRLO
    1882  EA24  69 01                       ADC     #1
    1883  EA26  85 34                       STA     BFENLO      ;ALSO SET BUFFER END +1 ADDRESS
    1884  EA28  A9 02                       LDA     #TEMPHI
    1885  EA2A  85 33                       STA     BUFRHI
    1886  EA2C  85 35                       STA     BFENHI      ;DONE LOADING POINTER
    1887                            ;
    1888  EA2E  A9 FF                       LDA     #$FF
    1889  EA30  85 3C                       STA     NOCKSM      ;SET NO CHECKSUM FOLLOWS DATA FLAG
    1890                            ;
    1891  EA32  20 E0 EA                    JSR     RECEIV      ;GO RECEIVE A BYTE
    1892                            ;
    1893  EA35  A0 FF                       LDY     #$FF        ;ASSUME SUCCESS
    1894  EA37  A5 30                       LDA     STATUS
    1895  EA39  C9 01                       CMP     #SUCCES
    1896  EA3B  D0 19                       BNE     NWOK        ;BRANCH IF IT DID NOT WORK OK
    1897                            ;
    1898                            ;
    1899                            ;
    1900                            ;
    1901  EA3D  AD 3E 02            WOK:    LDA     TEMP        ;MAKE SURE THE BYTE SUCCESSFULLY RECEIVED
    1902  EA40  C9 41                       CMP     #ACK        ;WAS ACTUALLY AN ACK OR COMPLETE
    1903  EA42  F0 21                       BEQ     GOOD
    1904  EA44  C9 43                       CMP     #COMPLT
    1905  EA46  F0 1D                       BEQ     GOOD
    1906                            ;
    1907  EA48  C9 45                       CMP     #ERROR
    1908  EA4A  D0 06                       BNE     NOTDER      ;BRANCH IF DEVICE DID NOT SEND BACK
    1909                            ; A DEVICE ERROR CODE
    1910  EA4C  A9 90                       LDA     #DERROR
    1911  EA4E  85 30                       STA     STATUS      ;SET DEVICE ERROR STATUS
    1912  EA50  D0 04                       BNE     NWOK
    1913                            ;
    1914  EA52  A9 8B               NOTDER: LDA     #DNACK      ;OTHERWISE SET NACK STATUS
    1915  EA54  85 30                       STA     STATUS
    1916                            ;
    1917  EA56  A5 30               NWOK:   LDA     STATUS
    1918  EA58  C9 8A                       CMP     #TIMOUT
    1919  EA5A  F0 07                       BEQ     BAD         ;BRANCH IF TIME OUT
    1920                            ;
    1921  EA5C  A9 FF                       LDA     #$FF
    1922  EA5E  8D 3F 02                    STA     ERRFLG      ;SET SOME ERROR FLAG
    1923  EA61  D0 02                       BNE     GOOD        ;RETURN WITH OUT SETTING Y = 0
    1924                            ;
    1925  EA63  A0 00               BAD:    LDY     #0
    1926                            ;
    1927  EA65  A5 30               GOOD:   LDA     STATUS
    1928  EA67  8D 19 03                    STA     TSTAT
    1929  EA6A  60                          RTS                 ;RETURN
    1930                            ;
    1931                            ;
    1932                            ;
    1933                            ;
    1934                            ;
    1935                            ; SEND SUBROUTINE
    1936                            ;
    1937                            ; SENDS A BUFFER OF BYTES OUT OVER THE SERIAL BUS
    1938                            ;
    1939                            ;
    1940  EA6B  A9 01               SEND:   LDA     #SUCCES     ;ASSUME SUCCESS
    1941  EA6D  85 30                       STA     STATUS
    1942                            ;
    1943  EA6F  20 F2 EB                    JSR     SENDEN      ;ENABLE SENDING
    1944                            ;
    1945  EA72  A0 00                       LDY     #0
    1946  EA74  84 31                       STY     CHKSUM      ;CLEAR CHECK SUM
    1947  EA76  84 3B                       STY     CHKSNT      ;CHECKSUM SENT FLAG
    1948  EA78  84 3A                       STY     XMTDON      ;TRANSMISSION DONE FLAG
    1949                            ;
    1950                            ;
    1951  EA7A  B1 32                       LDA     (BUFRLO),Y  ;PUT FIRST BYTE FROM BUFFER
    1952  EA7C  8D 0D D2                    STA     SEROUT      ;INTO THE SERIAL OUTPUT REGISTER
    1953                            ;
    1954                            ;
    1955  EA7F  85 31                       STA     CHKSUM      ;PUT IT IN CHECKSUM
    1956                            ;
    1957  EA81  A5 11               NOTDON: LDA     BRKKEY
    1958  EA83  D0 03                       BNE     NTBRK0
    1959  EA85  4C A0 ED                    JMP     BROKE       ;JUMP IF BREAK KEY PRESSED
    1960                            ;
    1961  EA88  A5 3A               NTBRK0: LDA     XMTDON      ;LOOP UNTIL TRANSMISSION IS DONE
    1962  EA8A  F0 F5                       BEQ     NOTDON
    1963                            ;
    1964  EA8C  20 5F EC                    JSR     SENDDS      ;DISABLE SENDING
    1965                            ;
    1966  EA8F  60                          RTS                 ;RETURN
    1967                            ;
    1968                            ;
    1969                            ;
    1970                            ;
    1971                            ;
    1972                            ;
    1973                            ; OUTPUT DATA NEEDED INTERRUPT SERVICE ROUTINE
    1974                            ;
    1975  EA90  98                  ISRODN: TYA
    1976  EA91  48                          PHA                 ;SAVE Y REG ON STACK
    1977                            ;
    1978  EA92  E6 32                       INC     BUFRLO      ;INCREMENT BUFFER POINTER
    1979  EA94  D0 02                       BNE     NOWRP0
    1980  EA96  E6 33                       INC     BUFRHI
    1981                            ;
    1982  EA98  A5 32               NOWRP0: LDA     BUFRLO      ;CHECK IF PAST END OF BUFFER
    1983  EA9A  C5 34                       CMP     BFENLO
    1984  EA9C  A5 33                       LDA     BUFRHI      ;HIGH PART
    1985  EA9E  E5 35                       SBC     BFENHI
    1986  EAA0  90 1C                       BCC     NOTEND      ;BRANCH IF NOT PAST END OF BUFFER
    1987                            ;
    1988  EAA2  A5 3B                       LDA     CHKSNT
    1989  EAA4  D0 0B                       BNE     RELONE      ;BRANCH IF CHECKSUM ALREADY SENT
    1990                            ;
    1991  EAA6  A5 31                       LDA     CHKSUM
    1992  EAA8  8D 0D D2                    STA     SEROUT      ;SEND CHECK SUM
    1993  EAAB  A9 FF                       LDA     #$FF
    1994  EAAD  85 3B                       STA     CHKSNT      ;SET CHECKSUM SENT FLAG
    1995  EAAF  D0 09                       BNE     CHKDON
    1996                            ;
    1997  EAB1  A5 10               RELONE: LDA     POKMSK      ;ENABLE TRANSMIT DONE INTERRUPT
    1998  EAB3  09 08                       ORA     #$08
    1999  EAB5  85 10                       STA     POKMSK
    2000  EAB7  8D 0E D2                    STA     IRQEN
    2001                            ;
    2002  EABA  68                  CHKDON: PLA
    2003  EABB  A8                          TAY                 ;RESTORE Y REG
    2004  EABC  68                          PLA                 ;RETURN FROM INTERRUPT
    2005  EABD  40                          RTI
    2006                            ;
    2007                            ;
    2008  EABE  A0 00               NOTEND: LDY     #0
    2009  EAC0  B1 32                       LDA     (BUFRLO),Y  ;PUT NEXT BYTE FROM BUFFER
    2010  EAC2  8D 0D D2                    STA     SEROUT      ;INTO THE SERIAL OUTPUT REGISTER
    2011                            ;
    2012  EAC5  18                          CLC                 ;ADD IT TO CHECKSUM
    2013  EAC6  65 31                       ADC     CHKSUM
    2014  EAC8  69 00                       ADC     #0
    2015  EACA  85 31                       STA     CHKSUM
    2016                            ;
    2017  EACC  4C BA EA                    JMP     CHKDON      ;GO RETURN
    2018                            ;
    2019                            ;
    2020                            ;
    2021                            ;
    2022                            ;
    2023                            ;
    2024                            ; TRANSMIT DONE INTERRUPT SERVICE ROUTINE
    2025                            ;
    2026  EACF  A5 3B               ISRTD:  LDA     CHKSNT
    2027  EAD1  F0 0B                       BEQ     FOOEY       ;BRANCH IF CHECKSUM NOT YET SENT
    2028                            ;
    2029  EAD3  85 3A                       STA     XMTDON      ;OTHERWISE SET TRANSMISSION DONE FLAG
    2030                            ;
    2031  EAD5  A5 10                       LDA     POKMSK      ;DISABLE TRANSMIT DONE INTERRUPT
    2032  EAD7  29 F7                       AND     #$F7
    2033  EAD9  85 10                       STA     POKMSK
    2034  EADB  8D 0E D2                    STA     IRQEN
    2035                            ;
    2036  EADE  68                  FOOEY:  PLA                 ;RETURN FROM INTERRUPT
    2037  EADF  40                          RTI
    2038                            ;
    2039                            ;
    2040                            ;
    2041                            ;
    2042                            ;
    2043                            ;
    2044                            ;
    2045                            ;
    2046                            ; RECEIVE SUBROUTINE
    2047                            ;
    2048  EAE0  A9 00               RECEIV: LDA     #0
    2049                            ;
    2050  EAE2  AC 0F 03                    LDY     CASFLG
    2051  EAE5  D0 02                       BNE     NOCLR       ;BRANCH IF CASSETTE
    2052                            ;
    2053  EAE7  85 31                       STA     CHKSUM      ;CLEAR CHKSUM
    2054  EAE9  85 38               NOCLR:  STA     BUFRFL      ;BUFFER FULL FLAG
    2055  EAEB  85 39                       STA     RECVDN      ;RECEIVE DONE FLAG
    2056                            ;
    2057                            ;
    2058                            ;
    2059  EAED  A9 01                       LDA     #SUCCES
    2060  EAEF  85 30                       STA     STATUS      ;SET GOOD STATUS FOR DEFAULT CASE.
    2061  EAF1  20 1B EC                    JSR     RECVEN      ;DO RECEIVE ENABLE
    2062  EAF4  A9 3C                       LDA     #NCOMHI     ;COMMAND FRAME HI COMMAND
    2063  EAF6  8D 03 D3                    STA     PBCTL       ;STORE IN PIA
    2064  EAF9  A5 11               CHKTIM: LDA     BRKKEY
    2065  EAFB  D0 03                       BNE     NTBRK1
    2066  EAFD  4C A0 ED                    JMP     BROKE       ;JUMP IF BREAK KEY PRESSED
    2067                            ;
    2068  EB00  AD 17 03            NTBRK1: LDA     TIMFLG      ;NO,
    2069  EB03  F0 05                       BEQ     TOUT        ;IF TIMEOUT, GO SET ERROR STATUS
    2070  EB05  A5 39                       LDA     RECVDN
    2071  EB07  F0 F0                       BEQ     CHKTIM      ;DONE ?
    2072  EB09  60                  GOBACK: RTS
    2073  EB0A  A9 8A               TOUT:   LDA     #TIMOUT     ;YES,
    2074  EB0C  85 30                       STA     STATUS      ;SET TIMEOUT STATUS
    2075                            ;
    2076                            ;
    2077                            ;
    2078                            ;
    2079                            ;
    2080                            ;
    2081  EB0E  60                  RRETRN: RTS                 ;RETURN
    2082                            ;
    2083                            ;
    2084                            ;
    2085                            ;
    2086                            ;
    2087                            ;
    2088                            ;
    2089                            ; SERIAL INPUT READY INTERRUPT SERVICE ROUTINE
    2090                            ;
    2091  EB0F  98                  ISRSIR: TYA
    2092  EB10  48                          PHA                 ;SAVE Y REG ON STACK
    2093                            ;
    2094                            ;
    2095                            ;
    2096  EB11  AD 0F D2                    LDA     SKSTAT
    2097  EB14  8D 0A D2                    STA     SKRES       ;RESET STATUS REGISTER
    2098                            ; ********   THIS MAY NOT BE THE PLACE TO DO IT   *********
    2099                            ;
    2100  EB17  30 04                       BMI     NTFRAM      ;BRANCH IF NO FRAMING ERROR
    2101                            ;
    2102  EB19  A0 8C                       LDY     #FRMERR
    2103  EB1B  84 30                       STY     STATUS      ;SET FRAME ERRORR STATUS
    2104                            ;
    2105  EB1D  29 20               NTFRAM: AND     #$20
    2106  EB1F  D0 04                       BNE     NTOVRN      ;BRANCH IF NO OVERRUN ERROR
    2107                            ;
    2108  EB21  A0 8E                       LDY     #OVRRUN
    2109  EB23  84 30                       STY     STATUS      ;SET OVERRUN ERROR STATUS
    2110                            ;
    2111  EB25  A5 38               NTOVRN: LDA     BUFRFL
    2112  EB27  F0 13                       BEQ     NOTYET      ;BRANCH IF BUFFER WAS NOT YET FILLED
    2113                            ;
    2114  EB29  AD 0D D2                    LDA     SERIN       ;THIS INPUT BYTE IS THE CHECKSUM
    2115  EB2C  C5 31                       CMP     CHKSUM
    2116  EB2E  F0 04                       BEQ     SRETRN      ;BRANCH IF CHECKSUMS MATCH
    2117                            ;
    2118  EB30  A0 8F                       LDY     #CHKERR
    2119  EB32  84 30                       STY     STATUS      ;SET CHECKSUM ERROR STATUS
    2120                            ;
    2121  EB34  A9 FF               SRETRN: LDA     #$FF        ;SET RECEIVE DONE FLAG
    2122  EB36  85 39                       STA     RECVDN
    2123                            ;
    2124  EB38  68                  SUSUAL: PLA
    2125  EB39  A8                          TAY                 ;RESTORE Y REG
    2126  EB3A  68                          PLA                 ;RETURN FROM INTERRUPT
    2127  EB3B  40                          RTI
    2128                            ;
    2129                            ;
    2130                            ;
    2131  EB3C  AD 0D D2            NOTYET: LDA     SERIN
    2132  EB3F  A0 00                       LDY     #0
    2133  EB41  91 32                       STA     (BUFRLO),Y  ;STORE INPUT REGISTER INTO BUFFER
    2134                            ;
    2135  EB43  18                          CLC                 ;ADD IT TO CHECKSUM
    2136  EB44  65 31                       ADC     CHKSUM
    2137  EB46  69 00                       ADC     #0
    2138  EB48  85 31                       STA     CHKSUM
    2139                            ;
    2140  EB4A  E6 32                       INC     BUFRLO      ;INCREMENT BUFFER POINTER
    2141  EB4C  D0 02                       BNE     NTWRP1
    2142  EB4E  E6 33                       INC     BUFRHI
    2143                            ;
    2144  EB50  A5 32               NTWRP1: LDA     BUFRLO
    2145  EB52  C5 34                       CMP     BFENLO
    2146  EB54  A5 33                       LDA     BUFRHI
    2147  EB56  E5 35                       SBC     BFENHI
    2148  EB58  90 DE                       BCC     SUSUAL      ;BRANCH IF NEW BUFFER ADDRESS IS IN BUFFER LIMITS
    2149                            ;
    2150  EB5A  A5 3C                       LDA     NOCKSM
    2151  EB5C  F0 06                       BEQ     GOON        ;BRANCH IF A CHECKSUM WILL FOLLOW DATA
    2152                            ;
    2153  EB5E  A9 00                       LDA     #0
    2154  EB60  85 3C                       STA     NOCKSM      ;CLEAR NO CHECKSUM FLAG
    2155                            ;
    2156  EB62  F0 D0                       BEQ     SRETRN      ;GO RETURN AND SET RECEIVE DONE FLAG
    2157                            ;
    2158                            ;
    2159  EB64  A9 FF               GOON:   LDA     #$FF
    2160  EB66  85 38                       STA     BUFRFL      ;SET BUFFER FULL FLAG
    2161                            ;
    2162  EB68  D0 CE                       BNE     SUSUAL      ;GO RETURN
    2163                            ;
    2164                            ;
    2165                            ;
    2166                            ;
    2167                            ;
    2168                            ;
    2169                            ;
    2170                            ;
    2171                            ; LOAD BUFFER POINTER SUBROUTINE
    2172                            ;
    2173                            ; LOAD BUFFER POINTER WITH DCB BUFFER INFORMATION
    2174                            ;
    2175  EB6A  18                  LDPNTR: CLC
    2176  EB6B  AD 04 03                    LDA     DBUFLO
    2177  EB6E  85 32                       STA     BUFRLO
    2178  EB70  6D 08 03                    ADC     DBYTLO
    2179  EB73  85 34                       STA     BFENLO      ;ALSO SET BUFFER END + 1 ADDRESS
    2180                            ;
    2181  EB75  AD 05 03                    LDA     DBUFHI
    2182  EB78  85 33                       STA     BUFRHI
    2183  EB7A  6D 09 03                    ADC     DBYTHI
    2184  EB7D  85 35                       STA     BFENHI
    2185                            ;
    2186  EB7F  60                          RTS                 ;RETURN
    2187                            ;
    2188                            ;
    2189                            ;
    2190                            ;
    2191                            ;
    2192                            ;
    2193                            ;
    2194                            ;
    2195                            ; CASSETTE HANDLING CODE
    2196                            ;
    2197  EB80  AD 03 03            CASENT: LDA     DSTATS
    2198  EB83  10 2E                       BPL     CASRED      ;BRANCH IF INPUT FROM CASSETTE
    2199                            ;
    2200                            ; WRITE A RECORD
    2201                            ;
    2202  EB85  A9 CC                       LDA     #B600LO     ;SET BAUD RATE TO 600
    2203  EB87  8D 04 D2                    STA     AUDF3
    2204  EB8A  A9 05                       LDA     #B600HI
    2205  EB8C  8D 06 D2                    STA     AUDF4
    2206                            ;
    2207  EB8F  20 F2 EB                    JSR     SENDEN      ;TURN ON POKEY MARK TONE
    2208                            ;
    2209  EB92  A0 0F                       LDY     #WSIRG      ;LOAD SHORT WRITE INTER RECORD GAP TIME
    2210  EB94  AD 0B 03                    LDA     DAUX2
    2211  EB97  30 02                       BMI     SRTIR0      ;BRANCH IF SHORT GAP IS DESIRED
    2212                            ;
    2213  EB99  A0 B4                       LDY     #WIRGLO     ;SET WRITE IRG TIME
    2214  EB9B  A2 00               SRTIR0: LDX     #WIRGHI
    2215  EB9D  20 B9 ED                    JSR     SETVBX
    2216                            ;
    2217  EBA0  A9 34                       LDA     #MOTRGO
    2218  EBA2  8D 02 D3                    STA     PACTL       ;TURN ON MOTOR
    2219                            ;
    2220  EBA5  AD 17 03            TIMIT:  LDA     TIMFLG      ;LOOP UNTIL DONE
    2221  EBA8  D0 FB                       BNE     TIMIT
    2222                            ;
    2223  EBAA  20 6A EB                    JSR     LDPNTR      ;LOAD BUFFER POINTER WITH DCB INFORMATION
    2224                            ;
    2225  EBAD  20 6B EA                    JSR     SEND        ;SEND A BUFFER
    2226                            ;
    2227  EBB0  4C DF EB                    JMP     CRETRN      ;GO RETURN
    2228                            ;
    2229                            ;
    2230                            ;
    2231                            ; RECEIVE A RECORD
    2232                            ;
    2233  EBB3  A9 FF               CASRED: LDA     #$FF
    2234  EBB5  8D 0F 03                    STA     CASFLG      ;SET SET CASSETTE FLAG
    2235                            ;
    2236  EBB8  A0 0A                       LDY     #RSIRG      ;LOAD SHORT READ INTER RECORD GAP TIME
    2237  EBBA  AD 0B 03                    LDA     DAUX2
    2238  EBBD  30 02                       BMI     SRTIR1      ;BRANCH IF SHORT GAP IS DESIRED
    2239                            ;
    2240  EBBF  A0 78                       LDY     #RIRGLO     ;SET TIME OUT FOR READ IRG
    2241  EBC1  A2 00               SRTIR1: LDX     #RIRGHI
    2242  EBC3  20 B9 ED                    JSR     SETVBX
    2243                            ;
    2244  EBC6  A9 34                       LDA     #MOTRGO
    2245  EBC8  8D 02 D3                    STA     PACTL       ;TURN ON MOTOR
    2246                            ;
    2247  EBCB  AD 17 03            TIMIT1: LDA     TIMFLG      ;LOOP UNTIL DONE
    2248  EBCE  D0 FB                       BNE     TIMIT1
    2249                            ;
    2250  EBD0  20 6A EB                    JSR     LDPNTR      ;LOAD BUFFER POINTER WITH DCB INFORMATION
    2251                            ;
    2252  EBD3  20 75 EC                    JSR     STTMOT      ;SET DEVICE TIME OUT IN Y,X
    2253  EBD6  20 B9 ED                    JSR     SETVBX
    2254                            ;
    2255  EBD9  20 10 ED                    JSR     BEGIN       ;SET INITIAL BAUD RATE
    2256                            ;
    2257  EBDC  20 E0 EA                    JSR     RECEIV      ;GO RECEIVE A BLOCK
    2258                            ;
    2259  EBDF  AD 0B 03            CRETRN: LDA     DAUX2
    2260  EBE2  30 05                       BMI     SRTIR2      ;BRANCH IF DOING SHORT INTER RECORD GAPS
    2261                            ; DON'T TURN OFF CASSETTE MOTOR
    2262  EBE4  A9 3C                       LDA     #MOTRST
    2263  EBE6  8D 02 D3                    STA     PACTL       ;TURN OFF MOTOR
    2264                            ;
    2265  EBE9  4C 0D EA            SRTIR2: JMP     RETURN      ;GO RETURN
    2266                            ;
    2267                            ;
    2268                            ;
    2269                            ;
    2270                            ;
    2271  EBEC  A9 00               JTIMER: LDA     #$00
    2272  00EB                      JTADRH  =       JTIMER/256  ;HI BYTE OF JUMP TIMER ROUTINE ADDR
    2273  00EC                      JTADRL  =       (-256)*JTADRH+JTIMER
    2274  EBEE  8D 17 03                    STA     TIMFLG      ;SET TIME OUT FLAG
    2275  EBF1  60                          RTS
    2276                            ;
    2277                            ;
    2278                            ;
    2279                            ;
    2280                            ;
    2281                            ;;
    2282                            ; SEND ENABLE SUBROUTINE
    2283                            ;
    2284  EBF2  A9 07               SENDEN: LDA     #$07        ;MASK OFF PREVIOUS SERIAL BUS CONTROL BITS
    2285  EBF4  2D 32 02                    AND     SSKCTL
    2286  EBF7  09 20                       ORA     #$20        ;SET TRANSMIT MODE
    2287                            ;
    2288  EBF9  AC 00 03                    LDY     DDEVIC
    2289  EBFC  C0 60                       CPY     #CASET
    2290  EBFE  D0 0C                       BNE     NOTCAS      ;BRANCH IF NOT CASSETTE
    2291                            ;
    2292  EC00  09 08                       ORA     #$08        ;SET THE FSK OUTPUT BIT
    2293                            ;
    2294  EC02  A0 07                       LDY     #LOTONE     ;SET FSK TONE FREQUENCIES
    2295  EC04  8C 02 D2                    STY     AUDF2
    2296  EC07  A0 05                       LDY     #HITONE
    2297  EC09  8C 00 D2                    STY     AUDF1
    2298                            ;
    2299  EC0C  8D 32 02            NOTCAS: STA     SSKCTL      ;STORE NEW VALUE TO SYSTEM MASK
    2300  EC0F  8D 0F D2                    STA     SKCTL       ;STORE TO ACTUAL REGISTER
    2301                            ;
    2302  EC12  A9 C7                       LDA     #$C7        ;MASK OFF PREVIOUS SERIAL BUS INTERRUPT BITS
    2303  EC14  25 10                       AND     POKMSK
    2304  EC16  09 10                       ORA     #$10        ;ENABLE OUTPUT DATA NEEDED INTERRUPT
    2305                            ;
    2306                            ;
    2307  EC18  4C 31 EC                    JMP     CONTIN      ;GO CONTINUE IN RECEIVE ENABLE SUBROUTINE
    2308                            ;
    2309                            ;
    2310                            ;
    2311                            ;
    2312                            ;
    2313                            ;
    2314                            ;
    2315                            ;
    2316                            ;
    2317                            ;
    2318                            ; RECEIVE ENABLE SUBROUTINE
    2319                            ;
    2320  EC1B  A9 07               RECVEN: LDA     #$07        ;MASK OFF PREVIOUS SERIAL BUS CONTROL BITS
    2321  EC1D  2D 32 02                    AND     SSKCTL
    2322  EC20  09 10                       ORA     #$10        ;SET RECEIVE MODE ASYNCH.
    2323  EC22  8D 32 02                    STA     SSKCTL      ;STORE NEW VALUE TO SYSTEM MASK
    2324  EC25  8D 0F D2                    STA     SKCTL       ;STORE TO ACTUAL REGISTER
    2325                            ;
    2326  EC28  8D 0A D2                    STA     SKRES       ;RESET SERIAL PORT/KEYBOARD STATUS REGISTER
    2327                            ;
    2328  EC2B  A9 C7                       LDA     #$C7        ;MASK OFF PREVIOUS SERIAL BUS INTERRUPT BITS
    2329  EC2D  25 10                       AND     POKMSK
    2330  EC2F  09 20                       ORA     #$20        ;ENABLE RECEIVE INTERRUPT
    2331  EC31  85 10               CONTIN: STA     POKMSK      ;STORE NEW VALUE TO SYSTEM MASK
    2332  EC33  8D 0E D2                    STA     IRQEN       ;STORE TO ACTUAL REGISTER
    2333                            ;
    2334                            ;
    2335  EC36  A9 28                       LDA     #$28        ;CLOCK CH.3 WITH 1.79 MHZ
    2336  EC38  8D 08 D2                    STA     AUDCTL      ;CLOCK CH.4 WITH CH. 3
    2337                            ;
    2338  EC3B  A2 06                       LDX     #6          ;SET PURE TONES, NO VOLUME
    2339  EC3D  A9 A8                       LDA     #$A8
    2340  EC3F  A4 41                       LDY     SOUNDR      ;TEST QUIET I/O FLAG
    2341  EC41  D0 02                       BNE     NOISE1      ;NE IS NORMAL (NOISY)
    2342  EC43  A9 A0                       LDA     #$A0
    2343  EC45  9D 01 D2            NOISE1: STA     AUDC1,X
    2344  EC48  CA                          DEX
    2345  EC49  CA                          DEX
    2346  EC4A  10 F9                       BPL     NOISE1
    2347                            ;
    2348  EC4C  A9 A0                       LDA     #$A0
    2349  EC4E  8D 05 D2                    STA     AUDC3       ;TURN OFF SOUND ON CHANNEL 3
    2350  EC51  AC 00 03                    LDY     DDEVIC
    2351  EC54  C0 60                       CPY     #CASET
    2352  EC56  F0 06                       BEQ     CAS31       ;BRANCH IF CASSETTE IS DESIRED
    2353  EC58  8D 01 D2                    STA     AUDC1       ;OTHERWISE TURN OFF CHANNELS 1 AND 2
    2354  EC5B  8D 03 D2                    STA     AUDC2
    2355                            ;
    2356                            ;
    2357  EC5E  60                  CAS31:  RTS                 ;RETURN
    2358                            ;
    2359                            ;
    2360                            ;
    2361                            ;
    2362                            ;
    2363                            ;
    2364                            ;
    2365                            ;
    2366                            ;
    2367                            ;
    2368                            ; DISABLE SEND AND DISABLE RECEIVE SUBROUTINES
    2369                            ;
    2370  EC5F  EA                  SENDDS: NOP
    2371  EC60  A9 C7               RECVDS: LDA     #$C7        ;MASK OFF SERIAL BUS INTERRUPTS
    2372  EC62  25 10                       AND     POKMSK
    2373  EC64  85 10                       STA     POKMSK      ;STORE NEW VALUE TO SYSTEM MASK
    2374  EC66  8D 0E D2                    STA     IRQEN       ;STORE TO ACTUAL REGISTER
    2375                            ;
    2376  EC69  A2 06                       LDX     #6
    2377  EC6B  A9 00                       LDA     #0
    2378  EC6D  9D 01 D2            ZERIT:  STA     AUDC1,X
    2379  EC70  CA                          DEX
    2380  EC71  CA                          DEX
    2381  EC72  10 F9                       BPL     ZERIT       ;TURN OFF AUDIO VOLUME
    2382                            ;
    2383  EC74  60                          RTS                 ;RETURN
    2384                            ;
    2385                            ;
    2386                            ;
    2387                            ;
    2388                            ;
    2389                            ;
    2390                            ;
    2391                            ;
    2392                            ;
    2393                            ;
    2394                            ; SET DDEVICE TIME OUT VALUES IN Y,X SUBROUTINE
    2395                            ;
    2396  EC75  AD 06 03            STTMOT: LDA     DTIMLO      ;GET DEVICE TIME OUT IN 1 SECOND INCR
    2397  EC78  6A                          ROR     A           ;PUT 6 HI BITS IN X, LO 2 BITS IN Y
    2398  EC79  6A                          ROR     A
    2399  EC7A  A8                          TAY                 ;TEMP SAVE
    2400  EC7B  29 3F                       AND     #$3F        ;MASK OFF 2 HI BITS
    2401  EC7D  AA                          TAX                 ;THIS IS HI BYTE OF TIME OUT
    2402                            ;
    2403  EC7E  98                          TYA                 ;RESTORE
    2404  EC7F  6A                          ROR     A
    2405  EC80  29 C0                       AND     #$C0        ;MASK OFF ALL BUT 2 HI BITS
    2406  EC82  A8                          TAY                 ;THIS IS LO BYTE OF TIME OUT
    2407                            ;
    2408  EC83  60                          RTS
    2409                            ;
    2410                            ;
    2411                            ;
    2412                            ;
    2413                            ;
    2414                            ;
    2415                            ;
    2416                            ;
    2417                            ;
    2418                            ;
    2419  EC84  0F EB               INTTBL: .WORD   ISRSIR      ;SERIAL INPUT READY
    2420  EC86  90 EA                       .WORD   ISRODN      ;OUTPUT DATA NEEDED
    2421  EC88  CF EA                       .WORD   ISRTD       ;TRANSMISSION DONE
    2422                            ;
    2423  00EB                      SIRHI  =       ISRSIR/256   ;SERIAL INPUT READY ISR ADDRESS
    2424  000F                      SIRLO  =       (-256)*SIRHI+ISRSIR
    2425  00EA                      ODNHI  =       ISRODN/256   ;OUTPUT DATA NEEDED ISR ADDRESS
    2426  0090                      ODNLO  =       (-256)*ODNHI+ISRODN
    2427  00EA                      TDHI   =       ISRTD/256    ;TRANSMISSION DONE ISR ADDRESS
    2428  00CF                      TDLO   =       (-256)*TDHI+ISRTD
    2429                            ;
    2430                            ;
    2431                            ;
    2432                            ;
    2433                            ; SEND A DATA FRAME TO AN INTELLIGENT PERIPHERAL SUBROUTINE
    2434                            ;
    2435                            ;
    2436  EC8A  A2 01               SENDIN: LDX     #$01
    2437  EC8C  A0 FF               DELAY0: LDY     #$FF
    2438  EC8E  88                  DELAY1: DEY
    2439  EC8F  D0 FD                       BNE     DELAY1
    2440  EC91  CA                          DEX
    2441  EC92  D0 F8                       BNE     DELAY0
    2442                            ;
    2443  EC94  20 6B EA                    JSR     SEND        ;GO SEND THE DATA FRAME
    2444                            ;
    2445  EC97  A0 02                       LDY     #CTIMLO     ;SET ACK TIME OUT
    2446  EC99  A2 00                       LDX     #CTIMHI
    2447  EC9B  20 B9 ED            WAITER: JSR     SETVBX
    2448                            ;
    2449  EC9E  20 1A EA                    JSR     WAIT        ;WAIT FOR ACK
    2450                            ;
    2451  ECA1  98                          TYA                 ;IF Y=0, A TIME OUT OR NACK OCCURED
    2452                            ;
    2453  ECA2  60                          RTS                 ;RETURN
    2454                            ;
    2455                            ;
    2456                            ;
    2457                            ;
    2458                            ;
    2459                            ;
    2460                            ;
    2461                            ;
    2462                            ;
    2463                            ;
    2464                            ;
    2465                            ; COMPUTE VALUE FOR POKEY FREQ REGS FOR THE BAUD RATE AS
    2466                            ; MEASURED BY AN INTERVAL OF THE 'VCOUNT' TIMER.
    2467                            ;
    2468  ECA3  8D 10 03            COMPUT: STA     TIMER2
    2469  ECA6  8C 11 03                    STY     TIMER2+1    ;SAVE FINAL TIMER VALUE
    2470  ECA9  20 04 ED                    JSR     ADJUST      ;ADJUST VCOUNT VALUE
    2471  ECAC  8D 10 03                    STA     TIMER2      ;SAVE ADJUSTED VALUE
    2472  ECAF  AD 0C 03                    LDA     TIMER1
    2473  ECB2  20 04 ED                    JSR     ADJUST      ;ADJUST
    2474  ECB5  8D 0C 03                    STA     TIMER1      ;SAVE ADJUSTED TIMER1 VALUE
    2475  ECB8  AD 10 03                    LDA     TIMER2
    2476  ECBB  38                          SEC
    2477  ECBC  ED 0C 03                    SBC     TIMER1
    2478  ECBF  8D 12 03                    STA     TEMP1       ;FIND VCOUNT DIFFERENCE
    2479  ECC2  AD 11 03                    LDA     TIMER2+1
    2480  ECC5  38                          SEC
    2481  ECC6  ED 0D 03                    SBC     TIMER1+1
    2482  ECC9  A8                          TAY                 ;FIND VBLANK COUNT DIFFERENCE
    2483                                    .IF     PALFLG
    2484                                    LDA     #-$9C
    2485                            HITIMR: CLC
    2486                                    ADC     #$9C
    2487                                    .ENDIF
    2488                                    .IF     PALFLG-1
    2489  ECCA  A9 7D                       LDA     #-$83
    2490  ECCC  18                  HITIMR: CLC
    2491  ECCD  69 83                       ADC     #$83        ;ACCUMULATE MULTIPLICATION
    2492                                    .ENDIF
    2493  ECCF  88                          DEY
    2494  ECD0  10 FA                       BPL     HITIMR      ;DONE?
    2495  ECD2  18                          CLC
    2496  ECD3  6D 12 03                    ADC     TEMP1       ;TOTAL VCOUNT DIFFERENCE
    2497  ECD6  A8                  FINDX:  TAY                 ;SAVE ACCUM
    2498  ECD7  4A                          LSR     A
    2499  ECD8  4A                          LSR     A
    2500  ECD9  4A                          LSR     A
    2501  ECDA  0A                          ASL     A
    2502  ECDB  38                          SEC
    2503  ECDC  E9 16                       SBC     #22         ;ADJUST TABLE INDEX
    2504  ECDE  AA                          TAX                 ;DIVIDE INTERVAL BY 4 TO GET TABLE INDEX
    2505  ECDF  98                          TYA                 ;RESTORE ACCUM
    2506  ECE0  29 07                       AND     #7
    2507  ECE2  A8                          TAY                 ;PULL OFF 3 LO BITS OF INTERVAL
    2508  ECE3  A9 F5                       LDA     #-11
    2509  ECE5  18                  DOINTP: CLC
    2510  ECE6  69 0B                       ADC     #11         ;ACCUMULATE INTERPOLATION CONSTANT
    2511  ECE8  88                          DEY
    2512  ECE9  10 FA                       BPL     DOINTP      ;INTERPOLATION CONSTANT COMPUTATION DONE?
    2513                            ;
    2514  ECEB  A0 00               ENINTP: LDY     #0
    2515  ECED  8C 0E 03                    STY     ADDCOR      ;CLEAR ADDITION CORRECTION FLAG
    2516  ECF0  38                          SEC
    2517  ECF1  E9 07                       SBC     #7          ;ADJUST INTERPOLATION CONSTANT
    2518  ECF3  10 03                       BPL     PLUS
    2519  ECF5  CE 0E 03                    DEC     ADDCOR
    2520  ECF8  18                  PLUS:   CLC
    2521  ECF9  7D D0 ED                    ADC     POKTAB,X    ;ADD CONSTANT TO LO BYTE TABLE VALUE
    2522  ECFC  A8                          TAY                 ;LO BYTE POKEY FREQ VALUE
    2523  ECFD  AD 0E 03                    LDA     ADDCOR
    2524  ED00  7D D1 ED                    ADC     POKTAB+1,X  ;ADD CARRY TO HI BYTE TABLE VALUE
    2525                            ; HI BYTE POKEY FREQ VALUE
    2526  ED03  60                          RTS
    2527                            ;
    2528                            ;
    2529                            ;
    2530                            ;       ROUTINE TO ADJUST VCOUNT VALUE
    2531                            ;
    2532  ED04  C9 7C               ADJUST: CMP     #$7C
    2533  ED06  30 04                       BMI     ADJ1        ;LARGER THAN '7C' ?
    2534  ED08  38                          SEC                 ;YES,
    2535  ED09  E9 7C                       SBC     #$7C
    2536  ED0B  60                          RTS
    2537  ED0C  18                  ADJ1:   CLC
    2538                                    .IF     PALFLG
    2539                                    ADC     #$20
    2540                                    .ENDIF
    2541                                    .IF     PALFLG-1
    2542  ED0D  69 07                       ADC     #$7
    2543                                    .ENDIF
    2544  ED0F  60                          RTS
    2545                            ;
    2546                            ;
    2547                            ;
    2548                            ;
    2549                            ;
    2550                            ;
    2551                            ;
    2552                            ;       INITIAL BAUD RATE MEASUREMENT -- USED TO SET THE
    2553                            ;               BAUD RATE AT THE START OF A RECORD.
    2554                            ;
    2555                            ;               IT IS ASSUMED THAT THE FIRST TWO BYTES OF EVERY
    2556                            ; RECORD ARE 'AA' HEX.
    2557                            ;
    2558  ED10  A5 11               BEGIN:  LDA     BRKKEY
    2559  ED12  D0 03                       BNE     NTBRK2
    2560  ED14  4C A0 ED                    JMP     BROKE       ;JUMP IF BREAK KEY PRESSED
    2561                            ;
    2562  ED17  78                  NTBRK2: SEI
    2563                            ;
    2564  ED18  AD 17 03                    LDA     TIMFLG
    2565  ED1B  D0 02                       BNE     OKTIM1      ;BRANCH IF NOT TIMED OUT
    2566  ED1D  F0 25                       BEQ     TOUT1       ;BRANCH IF TIME OUT
    2567                            ;
    2568  ED1F  AD 0F D2            OKTIM1: LDA     SKSTAT
    2569  ED22  29 10                       AND     #$10        ;READ SERIAL PORT
    2570  ED24  D0 EA                       BNE     BEGIN       ;START BIT?
    2571  ED26  8D 16 03                    STA     SAVIO       ;SAVE SER. DATA IN
    2572  ED29  AE 0B D4                    LDX     VCOUNT      ;READ VERTICAL LINE COUNTER
    2573  ED2C  A4 14                       LDY     RTCLOK+2    ;READ LO BYTE OF VBLANK CLOCK
    2574  ED2E  8E 0C 03                    STX     TIMER1
    2575  ED31  8C 0D 03                    STY     TIMER1+1    ;SAVE INITIAL TIMER VALUE
    2576                            ;
    2577  ED34  A2 01                       LDX     #1          ;SET MODE FLAG
    2578  ED36  8E 15 03                    STX     TEMP3
    2579  ED39  A0 0A                       LDY     #10         ;SET BIT COUNTER FOR 10 BITS
    2580  ED3B  A5 11               COUNT:  LDA     BRKKEY
    2581  ED3D  F0 61                       BEQ     BROKE       ;BRANCH IF BREAK KEY PRESSED
    2582                            ;
    2583  ED3F  AD 17 03                    LDA     TIMFLG
    2584  ED42  D0 04                       BNE     OKTIMR      ;BRANCH IF NOT TIMED OUT
    2585  ED44  58                  TOUT1:  CLI
    2586  ED45  4C 0A EB                    JMP     TOUT        ;BRANCH IF TIME OUT
    2587                            ;
    2588  ED48  AD 0F D2            OKTIMR: LDA     SKSTAT
    2589  ED4B  29 10                       AND     #$10        ;READ SERIAL PORT
    2590  ED4D  CD 16 03                    CMP     SAVIO       ;DATA IN CHANGED YET?
    2591  ED50  F0 E9                       BEQ     COUNT
    2592  ED52  8D 16 03                    STA     SAVIO       ;YES,SAVE SER. DATA IN
    2593  ED55  88                          DEY                 ;DECR. BIT COUNTER
    2594  ED56  D0 E3                       BNE     COUNT       ;DONE?
    2595                            ;
    2596  ED58  CE 15 03                    DEC     TEMP3       ;YES,
    2597  ED5B  30 12                       BMI     GOREAD      ;DONE WITH BOTH MODES?
    2598  ED5D  AD 0B D4                    LDA     VCOUNT
    2599  ED60  A4 14                       LDY     RTCLOK+2    ;READ TIMER LO & HI BYTES
    2600  ED62  20 A3 EC                    JSR     COMPUT      ;NO, COMPUTE BAUD RATE
    2601  ED65  8C EE 02                    STY     CBAUDL
    2602  ED68  8D EF 02                    STA     CBAUDH      ;SET BAUD RATE INTO RAM CELLS
    2603  ED6B  A0 09                       LDY     #9          ;SET BIT COUNTER FOR 9 BITS
    2604  ED6D  D0 CC                       BNE     COUNT
    2605                            ;
    2606  ED6F  AD EE 02            GOREAD: LDA     CBAUDL
    2607  ED72  8D 04 D2                    STA     AUDF3
    2608  ED75  AD EF 02                    LDA     CBAUDH
    2609  ED78  8D 06 D2                    STA     AUDF4       ;SET POKEY FREQ REGS FOR BAUD RATE
    2610  ED7B  A9 00                       LDA     #0
    2611  ED7D  8D 0F D2                    STA     SKSTAT
    2612  ED80  AD 32 02                    LDA     SSKCTL
    2613  ED83  8D 0F D2                    STA     SKSTAT      ;INIT. POKEY SERIAL PORT
    2614  ED86  A9 55                       LDA     #$55
    2615  ED88  91 32                       STA     (BUFRLO),Y  ;STORE '$55' AS FIRST RCV. BUFFER
    2616  ED8A  C8                          INY
    2617  ED8B  91 32                       STA     (BUFRLO),Y
    2618  ED8D  A9 AA                       LDA     #$AA
    2619  ED8F  85 31                       STA     CHKSUM      ;STORE CHECKSUM FOR 2 BYTES OF '$AA'
    2620  ED91  18                          CLC
    2621  ED92  A5 32                       LDA     BUFRLO
    2622  ED94  69 02                       ADC     #2
    2623  ED96  85 32                       STA     BUFRLO
    2624  ED98  A5 33                       LDA     BUFRHI
    2625  ED9A  69 00                       ADC     #0
    2626  ED9C  85 33                       STA     BUFRHI      ;INCR. BUFFER POINTER BY 1
    2627  ED9E  58                          CLI
    2628  ED9F  60                          RTS
    2629                            ;
    2630                            ;
    2631                            ;
    2632  EDA0  20 5F EC            BROKE:  JSR     SENDDS      ;BREAK KEY WAS PRESSED, SO PREPARE
    2633  EDA3  A9 3C                       LDA     #MOTRST     ;TO RETURN
    2634  EDA5  8D 02 D3                    STA     PACTL       ;TURN OFF MOTOR
    2635  EDA8  8D 03 D3                    STA     PBCTL       ;RAISE NOT COMMAND LINE
    2636                            ;
    2637  EDAB  A9 80                       LDA     #BRKABT
    2638  EDAD  85 30                       STA     STATUS      ;STORE BREAK ABORT STATUS CODE
    2639                            ;
    2640  EDAF  AE 18 03                    LDX     STACKP
    2641  EDB2  9A                          TXS                 ;RESTORE STACK POINTER
    2642                            ;
    2643  EDB3  C6 11                       DEC     BRKKEY      ;SET BREAK KEY FLAG TO NONZERO
    2644  EDB5  58                          CLI                 ;ALLOW IRQ'S
    2645                            ;
    2646  EDB6  4C 0D EA                    JMP     RETURN      ;GO RETURN
    2647                            ;
    2648                            ;
    2649                            ;
    2650                            ;
    2651                            ;
    2652  EDB9  A9 EC               SETVBX: LDA     #JTADRL     ;STORE TIME OUT ROUTINE ADDRESS
    2653  EDBB  8D 26 02                    STA     CDTMA1
    2654  EDBE  A9 EB                       LDA     #JTADRH
    2655  EDC0  8D 27 02                    STA     CDTMA1+1
    2656                            ;
    2657  EDC3  A9 01                       LDA     #1          ;SET FOR TIMER 1
    2658                            ;
    2659  EDC5  78                          SEI                 ;THE SETVBL ROUTINE NEEDS THIS TO CUT SHORT
    2660  EDC6  20 5C E4                    JSR     SETVBV      ;ANY VBLANKS THAT OCCUR
    2661  EDC9  A9 01                       LDA     #1          ;SET FOR TIMER 1
    2662  EDCB  8D 17 03                    STA     TIMFLG      ;SET FLAG TO NOT TIMED OUT
    2663  EDCE  58                          CLI
    2664  EDCF  60                          RTS
    2665                            ;
    2666                            ;
    2667                            ;
    2668                            ;
    2669                            ;
    2670                            ;
    2671                            ;
    2672                            ; 'VCOUNT' INTERVAL TIMER MEASUREMENT -- TO -- POKEY FREQ REG VALUE
    2673                            ;               CONVERSION TABLE
    2674                            ;
    2675                            ;
    2676                            ; THE VALUES STORED IN THE TABLE ARE 'AUDF+7'.
    2677                            ;
    2678                            ;       THE FOLLOWING FORMULAS WERE USED TO DETERMINE THE TABLE VALUES:
    2679                            ;
    2680                            ;               F OUT= F IN/(2*(AUDF+M)) , WHERE F IN=1.78979 MHZ. & M=7
    2681                            ;
    2682                            ;        FROM THIS WAS DERIVED THE FORMULA USED TO COMPUTE THE
    2683                            ;        TABLE VALUES BASED ON A MEASUREMENT OF THE PERIOD BY
    2684                            ;        AN INTERVAL OF THE 'VCOUNT' TIMER.
    2685                            ;
    2686                            ;               AUDF+7=(11.365167)*T OUT, WHERE T OUT=# OF COUNTS
    2687                            ;               (127 USEC.RESOLUTION) OF 'VCOUNT' FOR 1
    2688                            ;               CHARACTER TIME (10 BIT TIMES).
    2689                            ;
    2690                            ;
    2691                            ;
    2692                            ;
    2693                            ;               AUDF+7          BAUD RATE       VCOUNT INTERVAL
    2694                            ;               ------          -----------     ----------------
    2695                            ;       .WORD   $27C            ;1407                   56
    2696                            ;       .WORD   $2D7            ;1231                   64
    2697                            ;       .WORD   $332            ;1094                   72
    2698                            ;       .WORD   $38D            ;985                    80
    2699  EDD0  E8 03               POKTAB: .WORD   $3E8            ;895                    88
    2700  EDD2  43 04                       .WORD   $443            ;820                    96
    2701  EDD4  9E 04                       .WORD   $49E            ;757                    104
    2702  EDD6  F9 04                       .WORD   $4F9            ;703                    112
    2703  EDD8  54 05                       .WORD   $554            ;656                    120
    2704  EDDA  AF 05                       .WORD   $5AF            ;615                    128
    2705  EDDC  0A 06                       .WORD   $60A            ;579                    136
    2706  EDDE  65 06                       .WORD   $665            ;547                    144
    2707  EDE0  C0 06                       .WORD   $6C0            ;518                    152
    2708  EDE2  1A 07                       .WORD   $71A            ;492                    160
    2709  EDE4  75 07                       .WORD   $775            ;469                    168
    2710  EDE6  D0 07                       .WORD   $7D0            ;447                    176
    2711                            ;       .WORD   $82B            ;428                    184
    2712                            ;       .WORD   $886            ;410                    192
    2713                            ;       .WORD   $8E1            ;394                    200
    2714                            ;       .WORD   $93C            ;379                    208
    2715                            ;       .WORD   $997            ;365                    216
    2716                            ;       .WORD   $9F2            ;352                    224
    2717                            ;       .WORD   $A4D            ;339                    232
    2718                            ;       .WORD   $AA8            ;328                    240
    2719                            ;       .WORD   $B03            ;318                    248
    2720                            ;
    2721                            ;
    2722                            ;
    2723                            ;
    2724                            ;************************************************************************
    2725  EDE8                      CRNTP3  =*
    2726                                    *=$14
    2727  0014  02                  SIOSPR: .BYTE   DSKORG-CRNTP3 ;^GSIOL IS TOO LONG
    2728
    2729                                    .TITLE  'DISK  ***** DISKP.SRC ***** 3/9/79 *****  4:00:00 P.M.'
    2730                            ;
    2731                            ;
    2732                            ;
    2733                            ;
    2734                            ;
    2735                            ;
    2736  0002                      STATVH  =       DVSTAT/256
    2737  00EA                      STATVL  =       (-256)*STATVH+DVSTAT ;STATUS POINTER
    2738                            ;
    2739                            ;
    2740                            ;
    2741                            ;
    2742                            ;       CONSTANT EQUATES
    2743                            ;
    2744  0031                      DISKID  =       $31         ;SERIAL BUS DISK I.D.
    2745  0050                      PUTSEC  =       $50         ;DISK PUT SECTOR DCB COMMAND
    2746                            ; READ  =       $52         ;DISK GET SECTOR DCB COMMAND
    2747                            ; WRITE =       $57         ;DISK PUT SECTOR WITH READ CHECK DCB COMMAND
    2748  0053                      STATC   =       $53         ;DISK STATUS DCB COMMAND
    2749  0021                      FOMAT   =       $21         ;DISK FORMAT DCB COMMAND !!!!! *****
    2750  0000                      NODAT   =       0           ;SIO COMMAND FOR "NO DATA" OPERATION
    2751  0040                      GETDAT  =       $40         ;SIO COMMAND FOR "DATA FROM DEVICE"
    2752  0080                      PUTDAT  =       $80         ;SIO COMMAND FOR "DATA TO DEVICE"
    2753                            ;
    2754                            ;
    2755                            ;       VECTORS
    2756                            ;
    2757                                    *=$E450
    2758                            ;
    2759  E450  4C EA ED                    JMP     DINIT       ;DISK INIT. VECTOR
    2760  E453  4C F0 ED                    JMP     DSKIF       ;DISK INTERFACE ENTRY POINT
    2761                            ;
    2762                            ;
    2763                            ;
    2764                            ;
    2765                            ;
    2766                            ;
    2767                            ;       CONSTANTS
    2768                            ;
    2769                                    *=DSKORG
    2770                            ;
    2771                            ;
    2772                            ;
    2773                            ;
    2774                            ;
    2775                            ;
    2776                            ;
    2777                            ;
    2778                            ;
    2779                            ;***********************************************************************
    2780                            ;       DISK INTERFACE ROUTINE STARTS HERE
    2781                            ;***********************************************************************
    2782                            ;
    2783                            ;
    2784                            ;
    2785                            ;
    2786                            ;       DISK INTERFACE INITIALIZATION ROUTINE
    2787                            ;
    2788  EDEA  A9 A0               DINIT:  LDA     #160
    2789  EDEC  8D 46 02                    STA     DSKTIM      ;SET INITIAL DISK TIMEOUT TO 160 SEC
    2790  EDEF  60                          RTS
    2791                            ;
    2792                            ;
    2793                            ;
    2794                            ;       DISK INTERFACE ENTRY POINT
    2795                            ;
    2796  EDF0  A9 31               DSKIF:  LDA     #DISKID
    2797  EDF2  8D 00 03                    STA     DDEVIC      ;SET SERIAL BUS I.D IN DCB
    2798  EDF5  AD 46 02                    LDA     DSKTIM
    2799  EDF8  AE 02 03                    LDX     DCOMND
    2800  EDFB  E0 21                       CPX     #FOMAT      ;IS COMMAND A FORMAT COMMAND?
    2801  EDFD  F0 02                       BEQ     PUTDTO
    2802  EDFF  A9 07                       LDA     #7          ;NO, SET TIMEOUT TO 7 SECS.
    2803  EE01  8D 06 03            PUTDTO: STA     DTIMLO      ;PUT DISK TIMEOUT IN DCB
    2804  EE04  A2 40                       LDX     #GETDAT     ;SET "GET DATA" COMMAND FOR SIO
    2805  EE06  A0 80                       LDY     #$80        ;SET BYTE COUNT TO 128
    2806  EE08  AD 02 03                    LDA     DCOMND      ;READ COMMAND IN DCB
    2807  EE0B  C9 57                       CMP     #WRITE      ;IS COMMAND A "PUT SECTOR" COMMAND?
    2808  EE0D  D0 02                       BNE     CKSTC
    2809  EE0F  A2 80                       LDX     #PUTDAT     ;YES, SET "PUT DATA" COMMAND FOR SIO
    2810  EE11  C9 53               CKSTC:  CMP     #STATC      ;IS COMMAND A STATUS COMMAND?
    2811  EE13  D0 0C                       BNE     PUTCNT
    2812  EE15  A9 EA                       LDA     #STATVL
    2813  EE17  8D 04 03                    STA     DBUFLO
    2814  EE1A  A9 02                       LDA     #STATVH
    2815  EE1C  8D 05 03                    STA     DBUFHI      ;SET BUFFER ADDR TO GLOBAL STATUS BUFFER
    2816  EE1F  A0 04                       LDY     #4          ;YES, SET BYTE COUNT TO 4
    2817  EE21  8E 03 03            PUTCNT: STX     DSTATS      ;PUT STATUS COMMAND FOR SIO IN DCB
    2818  EE24  8C 08 03                    STY     DBYTLO
    2819  EE27  A9 00                       LDA     #0
    2820  EE29  8D 09 03                    STA     DBYTHI      ;PUT BYTE COUNT IN DCB
    2821  EE2C  20 59 E4                    JSR     SIOV        ;CALL SERIAL I/O.
    2822  EE2F  10 01                       BPL     GOODST      ;NO ERROR
    2823  EE31  60                          RTS                 ;NO, GO BACK
    2824  EE32  AD 02 03            GOODST: LDA     DCOMND      ;READ THE COMMAND
    2825  EE35  C9 53                       CMP     #STATC      ;WAS IT A STATUS COMMAND?
    2826  EE37  D0 0A                       BNE     PUTBC
    2827  EE39  20 6D EE                    JSR     PUTADR      ;PUT BUFFER ADDR IN TEMP REG.
    2828  EE3C  A0 02                       LDY     #2
    2829  EE3E  B1 15                       LDA     (BUFADR),Y  ;READ DISK TIMEOUT VALUE BYTE OF STATUS
    2830  EE40  8D 46 02                    STA     DSKTIM      ;PUT IT IN DISK TIMEOUT REG.
    2831  EE43  AD 02 03            PUTBC:  LDA     DCOMND
    2832  EE46  C9 21                       CMP     #FOMAT      ;WAS COMMAND A FORMAT COMMAND?
    2833  EE48  D0 1F                       BNE     ENDDIF
    2834  EE4A  20 6D EE            FMTD:   JSR     PUTADR      ;YES, PUT BUFFER ADDR INTO TEMP REG
    2835  EE4D  A0 FE                       LDY     #$FE        ;SET BUFFER POINTER
    2836  EE4F  C8                  TWICE:  INY
    2837  EE50  C8                          INY                 ;INCR BUFFER POINTER BY 2
    2838  EE51  B1 15               RDBAD:  LDA     (BUFADR),Y  ;READ LO BYTE BAD SECTOR DATA
    2839  EE53  C9 FF                       CMP     #$FF
    2840  EE55  D0 F8                       BNE     TWICE       ;IS IT "FF" ?
    2841  EE57  C8                          INY                 ;YES,
    2842  EE58  B1 15                       LDA     (BUFADR),Y  ;READ HI BYTE BAD SECTOR DATA
    2843  EE5A  C8                          INY
    2844  EE5B  C9 FF                       CMP     #$FF
    2845  EE5D  D0 F2                       BNE     RDBAD       ;IS IT "FF" ?
    2846  EE5F  88                          DEY
    2847  EE60  88                          DEY                 ;YES,
    2848  EE61  8C 08 03                    STY     DBYTLO      ;PUT BAD SECTOR BYTE COUNT INTO DCB
    2849  EE64  A9 00                       LDA     #0
    2850  EE66  8D 09 03                    STA     DBYTHI
    2851  EE69  AC 03 03            ENDDIF: LDY     DSTATS
    2852  EE6C  60                          RTS
    2853                            ;
    2854                            ;
    2855                            ;
    2856                            ;
    2857                            ;       S U B R O U T I N E S
    2858                            ;
    2859                            ;
    2860                            ;       PUT BUFFER ADDR FROM DCB INTO TEMP REG
    2861                            ;
    2862  EE6D  AD 04 03            PUTADR: LDA     DBUFLO
    2863  EE70  85 15                       STA     BUFADR
    2864  EE72  AD 05 03                    LDA     DBUFHI
    2865  EE75  85 16                       STA     BUFADR+1    ;PUT BUFFER ADDR IN TEMP REG
    2866  EE77  60                          RTS
    2867                            ;****************************************************************
    2868                            ;
    2869                            ;
    2870                            ;       SPARE BYTE OR MODULE TOO LONG FLAG
    2871                            ;
    2872  EE78                      CRNTP4  =       *
    2873                            ;
    2874                                    *=$14
    2875  0014  00                  DSKSPR: .BYTE   PRNORG-CRNTP4 ;^CDISKP TOO LONG
    2876                            ;
    2877                                    .PAGE
    2878                                    .TITLE  'PRINTER  ***** PRINTP.SRC ***** 3/9/79 *****  4:00:00 P.M.'
    2879                            ;
    2880                            ;
    2881                            ;
    2882                            ;
    2883                            ;
    2884                            ;
    2885                            ;
    2886                            ;
    2887                            ;
    2888                            ;
    2889                            ;
    2890                            ;       DEVICE NUMBER OR CODE EQUATES
    2891                            ;
    2892  0002                      OPNOUT  =       $2          ;IOCB OPEN FOR OUTPUT COMMAND
    2893  0028                      NBUFSZ  =       40          ;PRINT NORMAL BUFFER SIZE
    2894  0014                      DBUFSZ  =       20          ;PRINT DOUBLE BUFFFER SIZE
    2895  001D                      SBUFSZ  =       29          ;PRINT SIDEWAYS BUFFER SIZE
    2896  0040                      PDEVN   =       $40         ;PRINTER DEVICE NUMBER
    2897                            ; STATC =       $53         ;DCB STATUS COMMAND CODE
    2898  0057                      WRITEC  =       $57         ;DCB WRITE COMMAND
    2899  0020                      SPACE   =       $20         ;ASCII SPACE CHAR.
    2900  004E                      N       =       $4E         ;ASCII "N" CHAR.
    2901  0044                      D       =       $44         ;ASCII "D" CHAR.
    2902  0053                      S       =       $53         ;ASCII "S" CHAR.
    2903                            ;
    2904                            ;
    2905                            ;       PRINTER HANDLER ENTRY POINTS
    2906                            ;
    2907                            ;
    2908                            ;
    2909                            ;
    2910                                    *=$E430
    2911                            ;
    2912  E430  9E EE                       .WORD   PHOPEN-1    ;PRINTER HANDLER OPEN
    2913  E432  DB EE                       .WORD   PHCLOS-1    ;PH CLOSE
    2914  E434  9D EE                       .WORD   BADST-1     ;PH READ
    2915  E436  A6 EE                       .WORD   PHWRIT-1    ;PH WRITE
    2916  E438  80 EE                       .WORD   PHSTAT-1    ;PH STATUS
    2917  E43A  9D EE                       .WORD   BADST-1     ;PH SPECIAL
    2918  E43C  4C 78 EE                    JMP     PHINIT      ;PH INIT.
    2919  E43F  00                          .BYTE   0           ;ROM FILLER
    2920                            ;
    2921                            ;
    2922                            ;
    2923                            ;
    2924                            ;
    2925                                    *=PRNORG
    2926                            ;
    2927                            ;
    2928                            ;
    2929                            ;
    2930                            ;       PRINTER HANDLER INITIALIZATION ROUTINE
    2931                            ;
    2932  EE78  A9 1E               PHINIT: LDA     #30
    2933  EE7A  85 1C                       STA     PTIMOT      ;SET UP INITIAL PRINTER TIMEOUT OF 30 SEC.
    2934  EE7C  60                          RTS
    2935                            ;
    2936                            ;
    2937                            ;       PRINTER HANDLER CONSTANTS
    2938                            ;
    2939  EE7D  EA 02               PHSTLO: .WORD   DVSTAT      ;STATUS BUFFER POINTER
    2940  EE7F  C0 03               PHCHLO: .WORD   PRNBUF      ;CHAR. BUFFER POINTER
    2941                            ;
    2942                            ;
    2943                            ;
    2944                            ;       ************************
    2945                            ;       PRINTER HANDLER ROUTINES
    2946                            ;       ************************
    2947                            ;
    2948                            ;
    2949                            ;
    2950                            ;
    2951                            ;
    2952                            ;       PRINTER HANDLER STATUS ROUTINE
    2953                            ;
    2954  EE81  A9 04               PHSTAT: LDA     #4
    2955  EE83  85 1E                       STA     PBUFSZ      ;SET BUFFER SIZE TO 4 BYTES
    2956  EE85  AE 7D EE                    LDX     PHSTLO
    2957  EE88  AC 7E EE                    LDY     PHSTLO+1    ;SET POINTER TO STATUS BUFFER
    2958  EE8B  A9 53                       LDA     #STATC      ;SET COMMAND TO "STATUS"
    2959  EE8D  8D 02 03                    STA     DCOMND      ;SET STATUS COMMAND
    2960  EE90  8D 0A 03                    STA     DAUX1
    2961  EE93  20 E6 EE                    JSR     SETDCB      ;GO SETUP DCB
    2962  EE96  20 59 E4                    JSR     SIOV        ;SEND STATUS COMMAND
    2963  EE99  30 03                       BMI     BADST       ;GO IF ERROR
    2964  EE9B  20 14 EF                    JSR     PHPUT       ;YES,PUT STATUS INTO GLOBAL BUFFER.
    2965  EE9E  60                  BADST:  RTS
    2966                            ;
    2967                            ;
    2968                            ;
    2969                            ;
    2970                            ;       PRINTER HANDLER OPEN ROUTINE
    2971                            ;
    2972  EE9F  20 81 EE            PHOPEN: JSR     PHSTAT      ;DO STATUS COMMAND TO SIO
    2973  EEA2  A9 00                       LDA     #0
    2974  EEA4  85 1D                       STA     PBPNT       ;CLEAR PRINT BUFFER POINTER
    2975  EEA6  60                          RTS
    2976                            ;
    2977                            ;
    2978                            ;
    2979                            ;
    2980                            ;       PRINTER HANDLER WRITE ROUTINE
    2981                            ;
    2982  EEA7  85 1F               PHWRIT: STA     PTEMP       ;SAVE ACCUM
    2983  EEA9  20 1A EF                    JSR     PRMODE      ;GO DETERMINE PRINT MODE
    2984  EEAC  A6 1D                       LDX     PBPNT
    2985  EEAE  A5 1F                       LDA     PTEMP       ;GET CHAR. SENT BY CIO
    2986  EEB0  9D C0 03                    STA     PRNBUF,X    ;PUT CHAR. IN PRINT BUFFER
    2987  EEB3  E8                          INX                 ;INCR. BUFFER POINTER
    2988  EEB4  E4 1E                       CPX     PBUFSZ      ;BUFFER POINTER=BUFFER SIZE?
    2989  EEB6  F0 13                       BEQ     BUFFUL
    2990  EEB8  86 1D                       STX     PBPNT       ;SAVE BUFFER POINTER
    2991  EEBA  C9 9B                       CMP     #CR         ;IS CHAR. = EOL ?
    2992  EEBC  F0 03                       BEQ     BLFILL      ;IF YES, GO DO BLANK FILL.
    2993  EEBE  A0 01                       LDY     #SUCCES     ;PUT GOOD STATUS IN Y REG FOR CIO.
    2994  EEC0  60                          RTS
    2995  EEC1  A9 20               BLFILL: LDA     #SPACE      ;PUT BLANK IN ACCUM.
    2996  EEC3  9D C0 03            FILLBF: STA     PRNBUF,X    ;STORE IT IN PRINT BUFFER.
    2997  EEC6  E8                          INX
    2998  EEC7  E4 1E                       CPX     PBUFSZ
    2999  EEC9  D0 F8                       BNE     FILLBF      ;BUFFER BLANK FILLED?
    3000  EECB  A9 00               BUFFUL: LDA     #0
    3001  EECD  85 1D                       STA     PBPNT       ;CLEAR PRINT BUFFER POINTER
    3002  EECF  AE 7F EE                    LDX     PHCHLO
    3003  EED2  AC 80 EE                    LDY     PHCHLO+1    ;SET POINTER TO PRINT BUFFER
    3004  EED5  20 E6 EE                    JSR     SETDCB      ;GO SETUP DCB
    3005  EED8  20 59 E4                    JSR     SIOV        ;SEND PRINT COMMAND
    3006  EEDB  60                          RTS                 ;YES.
    3007                            ;
    3008                            ;
    3009                            ;
    3010                            ;
    3011                            ;       PRINTER HANDLER CLOSE ROUTINE
    3012                            ;
    3013  EEDC  20 1A EF            PHCLOS: JSR     PRMODE      ;GO DETERMINE PRINT MODE
    3014  EEDF  A6 1D                       LDX     PBPNT
    3015  EEE1  D0 DE                       BNE     BLFILL
    3016  EEE3  A0 01                       LDY     #SUCCES
    3017  EEE5  60                          RTS
    3018                            ;
    3019                            ;
    3020                            ;
    3021                            ;
    3022                            ;
    3023                            ;
    3024                            ;
    3025                            ;
    3026                            ;       S U B R O U T I N E S
    3027                            ;
    3028                            ;
    3029                            ;
    3030                            ;
    3031                            ;
    3032                            ;       SET UP DCB TO CALL SIO
    3033                            ;
    3034  EEE6  8E 04 03            SETDCB: STX     DBUFLO
    3035  EEE9  8C 05 03                    STY     DBUFHI      ;SET BUFFER POINTER
    3036  EEEC  A9 40                       LDA     #PDEVN
    3037  EEEE  8D 00 03                    STA     DDEVIC      ;SET PRINTER BUS I.D. FOR DCB
    3038  EEF1  A9 01                       LDA     #1
    3039  EEF3  8D 01 03                    STA     DUNIT       ;SET UNIT NUMBER TO 1
    3040  EEF6  A9 80                       LDA     #$80        ;DEVICE WILL EXPECT DATA
    3041  EEF8  AE 02 03                    LDX     DCOMND
    3042  EEFB  E0 53                       CPX     #STATC      ;STATUS COMMAND?
    3043  EEFD  D0 02                       BNE     PSIOC
    3044  EEFF  A9 40                       LDA     #$40        ;EXPECT DATA FROM DEVICE
    3045  EF01  8D 03 03            PSIOC:  STA     DSTATS      ;SET SIO MODE COMMAND.
    3046  EF04  A5 1E                       LDA     PBUFSZ
    3047  EF06  8D 08 03                    STA     DBYTLO      ;SET LO BYTE COUNT
    3048  EF09  A9 00                       LDA     #0
    3049  EF0B  8D 09 03                    STA     DBYTHI      ;SET HI BYTE COUNT
    3050  EF0E  A5 1C                       LDA     PTIMOT
    3051  EF10  8D 06 03                    STA     DTIMLO      ;SET DEVICE TIMEOUT COUNT
    3052  EF13  60                          RTS
    3053                            ;
    3054                            ;
    3055                            ;
    3056                            ;
    3057                            ; GET DEVICE TIMEOUT FROM STATUS & SAVE IT
    3058                            ;
    3059  EF14  AD EC 02            PHPUT:  LDA     DVSTAT+2
    3060  EF17  85 1C                       STA     PTIMOT      ;SAVE DEVICE TIMEOUT
    3061  EF19  60                          RTS
    3062                            ;
    3063                            ;
    3064                            ;
    3065                            ;
    3066                            ; DETERMINE PRINT MODE & SETUP PRINT BUFFER SIZE, DCB PRINT
    3067                            ; COMMAND, & DCB AUX1 FOR PRINT MODE
    3068                            ;
    3069  EF1A  A0 57               PRMODE: LDY     #WRITEC     ;PUT WRITE COMMAND IN Y REG
    3070  EF1C  A5 2B                       LDA     ICAX2Z      ;READ PRINT MODE
    3071  EF1E  C9 4E               CMODE:  CMP     #N
    3072  EF20  D0 04                       BNE     CDUBL       ;PRINT NORMAL ?
    3073  EF22  A2 28                       LDX     #NBUFSZ     ;YES, SET NORMAL CHAR. BUFFER SIZE
    3074  EF24  D0 0E                       BNE     SETBSZ
    3075  EF26  C9 44               CDUBL:  CMP     #D
    3076  EF28  D0 04                       BNE     CSIDE       ;PRINT DOUBLE?
    3077  EF2A  A2 14                       LDX     #DBUFSZ     ;YES, SET DOUBLE CHAR. BUFFER SIZE
    3078  EF2C  D0 06                       BNE     SETBSZ
    3079  EF2E  C9 53               CSIDE:  CMP     #S          ;PRINT SIDEWAYS ?
    3080  EF30  D0 0B                       BNE     GOERR       ;IF NOT, GO TO ERROR ROUTINE
    3081  EF32  A2 1D                       LDX     #SBUFSZ     ;YES, SET SIDEWAYS BUFFER SIZE
    3082  EF34  86 1E               SETBSZ: STX     PBUFSZ      ;STORE PRINT BUFFER SIZE
    3083  EF36  8C 02 03                    STY     DCOMND      ;STORE DCB COMMAND
    3084  EF39  8D 0A 03                    STA     DAUX1       ;STORE DCB AUX1 PRINT MODE
    3085  EF3C  60                          RTS
    3086  EF3D  A9 4E               GOERR:  LDA     #N          ;SET DEFAULT PRINT MODE TO NORMAL
    3087  EF3F  D0 DD                       BNE     CMODE
    3088                            ;*************************************************************
    3089                            ;
    3090                            ;
    3091                            ; SPARE BYTE OR MODULE TOO LONG FLAG
    3092                            ;
    3093  EF41                      CRNTP5  =       *
    3094                            ;
    3095                                    *=$14
    3096                            ;
    3097  0014  00                  PRNSPR: .BYTE   CASORG-CRNTP5 ;^GPRINTP TOO LONG
    3098                            ;
    3099                                    .PAGE
    3100                                    .TITLE  'CASSET HANDLER 3/12 (DK1:CASCV)'
    3101  0003                      CBUFH   =       CASBUF/256
    3102  00FD                      CBUFL   =       (-256)*CBUFH+CASBUF
    3103  0040                      SRSTA   =       $40         ;SIO READ STATUS
    3104  0080                      SWSTA   =       $80         ;SIO WRITE STATUS
    3105                            ;MOTRGO =       $34
    3106                            ;MOTRST =       $3C
    3107                            ;
    3108                            ;
    3109  00FC                      DTA     =       $FC         ;DATA RECORD TYPE BYTE
    3110  00FA                      DT1     =       $FA         ;LAST DATA RECORD
    3111  00FE                      EOT     =       $FE         ;END OF TAPE
    3112  00FB                      HDR     =       $FB         ;HEADER
    3113  0002                      TONE1   =       2           ;CHANGE TO RECORD MODE TONE
    3114  0001                      TONE2   =       1           ;PRESS PLAY TONE
    3115                            ;
    3116                            ;
    3117                            ;
    3118                                    *=CASETV
    3119  E440  4B EF 2A F0                 .WORD   OPENC-1,CLOSEC-1,GBYTE-1,PBYTE-1,STATU-1,SPECIAL-1
    3120  E444  D5 EF 0F F0
    3121  E448  27 F0 4A EF
    3122  E44C  4C 41 EF                    JMP     INIT
    3123  E44F  00                          .BYTE   0           ;ROM FILLER BYTE
    3124                            ;
    3125                            ;
    3126                            ;
    3127                            ; USED IN MONITP FOR CASSETTE BOOT
    3128                            ;
    3129                                    *=RBLOKV
    3130  E47A  4C E9 EF                    JMP     RBLOK
    3131                            ;
    3132                                    *=CSOPIV
    3133  E47D  4C 5D EF                    JMP     OPINP
    3134                            ;
    3135                            ;
    3136                                    *=CASORG
    3137                            ;
    3138                            ;
    3139                            ; INIT ROUTINE
    3140                            ;
    3141  EF41  A9 CC               INIT:   LDA     #$CC
    3142  EF43  8D EE 02                    STA     CBAUDL
    3143  EF46  A9 05                       LDA     #$05
    3144  EF48  8D EF 02                    STA     CBAUDH      ;SET CASSET BAUD RATE TO 600
    3145  EF4B                      SPECIAL:                    ;THATS ALL FOLKS
    3146  EF4B  60                          RTS
    3147                                    .PAGE
    3148                            ;
    3149                            ; OPEN FUNCTION - WITH NO TIMING ADJUST
    3150                            ;
    3151  EF4C  A5 2B               OPENC:  LDA     ICAX2Z      ;GET AX2
    3152  EF4E  85 3E                       STA     FTYPE       ;SAVE IT FOR FUTURE REFERENCE
    3153  EF50  A5 2A                       LDA     ICAX1Z
    3154  EF52  29 0C                       AND     #$0C        ;IN AND OUT BITS
    3155  EF54  C9 04                       CMP     #$04
    3156  EF56  F0 05                       BEQ     OPINP
    3157  EF58  C9 08                       CMP     #$08        ;SEE IF OPEN FOR OUTPUT
    3158  EF5A  F0 39                       BEQ     OPOUT
    3159  EF5C  60                          RTS                 ;IF ALREADY OPEN, RETURN LEAVING STATUS=$84
    3160  EF5D  A9 00               OPINP:  LDA     #0
    3161  EF5F  8D 89 02                    STA     WMODE       ;SET READ MODE
    3162  EF62  85 3F                       STA     FEOF        ;NO EOF YET
    3163  EF64  A9 01               SFH:    LDA     #TONE2      ;TONE FOR PRESS PLAY
    3164  EF66  20 58 F0                    JSR     BEEP        ;GO BEEP
    3165  EF69  30 24                       BMI     OPNRTN      ;IF ERROR DURING BEEP
    3166  EF6B  A9 34                       LDA     #MOTRGO
    3167  EF6D  8D 02 D3                    STA     PACTL       ;TURN MOTOR ON
    3168                                    .IF     PALFLG
    3169                                    LDY     #$E0
    3170                                    LDX     #1
    3171                                    .ENDIF
    3172                                    .IF     PALFLG-1
    3173  EF70  A0 40                       LDY     #$40        ;5-31-79 9 SEC READ LEADER
    3174  EF72  A2 02                       LDX     #2
    3175                                    .ENDIF
    3176  EF74  A9 03                       LDA     #3
    3177  EF76  8D 2A 02                    STA     CDTMF3
    3178  EF79  20 5C E4                    JSR     SETVBV      ;SET UP VBLANK TIMER
    3179  EF7C  AD 2A 02            WAITTM: LDA     CDTMF3
    3180  EF7F  D0 FB                       BNE     WAITTM      ;WAIT FOR MOTOR TO COME UP TO SPEED
    3181  EF81  A9 80                       LDA     #$80        ;NEXT BYTE=NO BYTES IN BUFFER
    3182  EF83  85 3D                       STA     BPTR
    3183  EF85  8D 8A 02                    STA     BLIM
    3184  EF88  4C D3 EF                    JMP     OPOK        ;OPEN OK
    3185                            ;
    3186                            ; OPEN FOR OUTPUT
    3187                            ;
    3188  EF8B  A0 80               PBRK:   LDY     #BRKABT     ;BREAK KEY ABORT STATUS
    3189  EF8D  C6 11                       DEC     BRKKEY      ;RESET BREAK KEY
    3190  EF8F  A9 00               OPNRTN: LDA     #0          ;CLEAR WRITE MODE FLAG
    3191  EF91  8D 89 02                    STA     WMODE
    3192  EF94  60                          RTS                 ;AND EXIT.
    3193                            ;
    3194  EF95  A9 80               OPOUT:  LDA     #$80
    3195  EF97  8D 89 02                    STA     WMODE       ;SET WRITE MODE
    3196  EF9A  A9 02                       LDA     #TONE1      ;TELL USER TO TURN ON RECORD MODE
    3197  EF9C  20 58 F0                    JSR     BEEP
    3198  EF9F  30 EE                       BMI     OPNRTN      ;IF ERROR DURING BEEP
    3199  EFA1  A9 CC                       LDA     #$CC        ;SET BAUD RATE
    3200  EFA3  8D 04 D2                    STA     AUDF3       ;WHICH SEEMS TO BE NESSECARY
    3201  EFA6  A9 05                       LDA     #$05        ;FOR SOME OBSCURE REASON
    3202  EFA8  8D 06 D2                    STA     AUDF4
    3203  EFAB  A9 60                       LDA     #$60
    3204  EFAD  8D 00 03                    STA     DDEVIC
    3205  EFB0  20 68 E4                    JSR     SENDEV      ;TELL POKEY TO WRITE MARKS
    3206  EFB3  A9 34                       LDA     #MOTRGO     ;WRITE 5 SEC BLANK TAPE
    3207  EFB5  8D 02 D3                    STA     PACTL
    3208  EFB8  A9 03                       LDA     #3
    3209                                    .IF     PALFLG
    3210                                    LDX     #$3
    3211                                    LDY     #$C0
    3212                                    .ENDIF
    3213                                    .IF     PALFLG-1
    3214  EFBA  A2 04                       LDX     #4          ;5/30/79 20 SEC LEADER
    3215  EFBC  A0 80                       LDY     #$80
    3216                                    .ENDIF
    3217  EFBE  20 5C E4                    JSR     SETVBV
    3218  EFC1  A9 FF                       LDA     #$FF
    3219  EFC3  8D 2A 02                    STA     CDTMF3
    3220  EFC6  A5 11               WDLR:   LDA     BRKKEY
    3221  EFC8  F0 C1                       BEQ     PBRK        ;IF BREAK DURING WRITE LEADER
    3222  EFCA  AD 2A 02                    LDA     CDTMF3
    3223  EFCD  D0 F7                       BNE     WDLR
    3224  EFCF  A9 00                       LDA     #0          ;INIT BUFFER POINTER
    3225  EFD1  85 3D                       STA     BPTR
    3226  EFD3  A0 01               OPOK:   LDY     #SUCCES
    3227  EFD5  60                          RTS
    3228                                    .PAGE
    3229                            ;
    3230                            ; GET BYTE
    3231                            ;
    3232  EFD6  A5 3F               GBYTE:  LDA     FEOF        ;IF AT EOF ALREADY
    3233  EFD8  30 33                       BMI     ISEOF       ;RETURN EOF STATUS
    3234  EFDA  A6 3D                       LDX     BPTR        ;BUFFER POINTER
    3235  EFDC  EC 8A 02                    CPX     BLIM        ;IF END OF BUFFER
    3236  EFDF  F0 08                       BEQ     RBLOK       ;READ ANOTHER BLOCK
    3237  EFE1  BD 00 04                    LDA     CASBUF+3,X  ;GET NEXT BYTE
    3238  EFE4  E6 3D                       INC     BPTR        ;BUMP POINTER
    3239  EFE6  A0 01                       LDY     #SUCCES     ;OK STATUS
    3240  EFE8  60                  GBX:    RTS
    3241  EFE9  A9 52               RBLOK:  LDA     #'R         ;READ OPCODE
    3242  EFEB  20 95 F0                    JSR     SIOSB       ;SIO ON SYS BUF
    3243  EFEE  98                          TYA
    3244  EFEF  30 F7                       BMI     GBX         ;IF SIO ERRORS, RETURN
    3245  EFF1  A9 00                       LDA     #0
    3246  EFF3  85 3D                       STA     BPTR        ;RESET POINTER
    3247  EFF5  A2 80                       LDX     #$80        ;DEFAULT # BYTES
    3248  EFF7  AD FF 03                    LDA     CASBUF+2
    3249  EFFA  C9 FE                       CMP     #EOT
    3250  EFFC  F0 0D                       BEQ     ATEOF       ;IF HEADER, GO READ AGAIN
    3251  EFFE  C9 FA                       CMP     #DT1        ;IF LAST DATA REC
    3252  F000  D0 03                       BNE     NLR
    3253  F002  AE 7F 04                    LDX     CASBUF+130  ;LAST DATA RECORD, GET # BYTES
    3254  F005  8E 8A 02            NLR:    STX     BLIM
    3255  F008  4C D6 EF                    JMP     GBYTE       ;GET NEXT BYTE
    3256  F00B  C6 3F               ATEOF:  DEC     FEOF        ;SET FEOF
    3257  F00D  A0 88               ISEOF:  LDY     #EOFERR     ;ENDFILE STATUS
    3258  F00F  60                          RTS
    3259                                    .PAGE
    3260                            ;
    3261                            ; PUT BYTE TO BUFFER
    3262                            ;
    3263  F010  A6 3D               PBYTE:  LDX     BPTR        ;BUFFER POINTER
    3264  F012  9D 00 04                    STA     CASBUF+3,X  ;STORE CHAR AWAY
    3265  F015  E6 3D                       INC     BPTR        ;BUMP POINTER
    3266  F017  A0 01                       LDY     #SUCCES     ;OK STATUS
    3267  F019  E0 7F                       CPX     #127        ;IF BUFFER FULL
    3268  F01B  F0 01                       BEQ     *+3
    3269  F01D  60                          RTS
    3270                            ; WRITE OUT THE BUFFER
    3271  F01E  A9 FC                       LDA     #DTA        ;RECORD TYPE = DATA
    3272  F020  20 D2 F0                    JSR     WSIOSB      ;DO WRITE ON SYSTEM BUFFER
    3273  F023  A9 00                       LDA     #0
    3274  F025  85 3D                       STA     BPTR        ;RESET BUFFER POINTER
    3275  F027  60                          RTS                 ;EXIT.
    3276                                    .PAGE
    3277                            ;
    3278                            ; STATUS - RETURN STATUS INFO THRU DVSTAT
    3279                            ;
    3280  F028  A0 01               STATU:  LDY     #SUCCES
    3281  F02A  60                          RTS
    3282                                    .PAGE
    3283                            ;
    3284                            ; CLOSE
    3285                            ;
    3286  F02B  AD 89 02            CLOSEC: LDA     WMODE       ;SEE IF WRITING
    3287  F02E  30 08                       BMI     CLWRT       ;GO CLOSE FOR WRITE
    3288                            ; CLOSE FOR READ - FLAG CLOSED
    3289  F030  A0 01                       LDY     #SUCCES     ;SUCCESSFULL
    3290  F032  A9 3C               FCAX:   LDA     #MOTRST     ;STOP THE MOTOR IN CASE WAS SHORT IRG MODE
    3291  F034  8D 02 D3                    STA     PACTL
    3292  F037  60                          RTS
    3293  F038  A6 3D               CLWRT:  LDX     BPTR        ;BUFFER POINTER
    3294  F03A  F0 0A                       BEQ     WTLR        ;IF NO DATA BYTES IN BUFFER, NO DT1 REC
    3295  F03C  8E 7F 04                    STX     CASBUF+130  ;WRITE TO LAST RECORD
    3296  F03F  A9 FA                       LDA     #DT1        ;REC TYPE
    3297  F041  20 D2 F0                    JSR     WSIOSB      ;WRITE OUT USER BUFFER
    3298  F044  30 EC                       BMI     FCAX        ;GO IF ERROR
    3299  F046  A2 7F               WTLR:   LDX     #127        ;ZERO BUFFER
    3300  F048  A9 00                       LDA     #0
    3301  F04A  9D 00 04            ZTBUF:  STA     CASBUF+3,X
    3302  F04D  CA                          DEX
    3303  F04E  10 FA                       BPL     ZTBUF
    3304  F050  A9 FE                       LDA     #EOT        ;WRITE EOT RECORD
    3305  F052  20 D2 F0                    JSR     WSIOSB
    3306  F055  4C 32 F0                    JMP     FCAX        ;FLAG CLOSED AND EXIT
    3307                                    .PAGE
    3308                            ;
    3309                            ; SUBROUTINES
    3310                            ;
    3311                            ; BEEP - GENERATE TONE ON KEYBOARD SPEAKER
    3312                            ; ON ENTRY A= FREQ
    3313                            ;
    3314  F058  85 40               BEEP:   STA     FREQ
    3315  F05A  A5 14               BEEP1:  LDA     RTCLOK+2    ;CURRENT CLOCK
    3316  F05C  18                          CLC
    3317                                    .IF     PALFLG
    3318                                    ADC     #25
    3319                                    .ENDIF
    3320                                    .IF     PALFLG-1
    3321  F05D  69 1E                       ADC     #30         ;1 SEC TONE
    3322                                    .ENDIF
    3323  F05F  AA                          TAX
    3324  F060  A9 FF               WFL:    LDA     #$FF
    3325  F062  8D 1F D0                    STA     CONSOL      ;TURN ON SPEAKER
    3326  F065  A9 00                       LDA     #0
    3327  F067  A0 F0                       LDY     #$F0
    3328  F069  88                          DEY
    3329  F06A  D0 FD                       BNE     *-1
    3330  F06C  8D 1F D0                    STA     CONSOL      ;TURN OFF SPEAKER
    3331  F06F  A0 F0                       LDY     #$F0
    3332  F071  88                          DEY
    3333  F072  D0 FD                       BNE     *-1
    3334  F074  E4 14                       CPX     RTCLOK+2    ;SEE IF 1 SEC IS UP YET
    3335  F076  D0 E8                       BNE     WFL
    3336  F078  C6 40                       DEC     FREQ        ;COUNT BEEPS
    3337  F07A  F0 0B                       BEQ     WFAK        ;IF ALL DONE GO WAIT FOR KEY
    3338  F07C  8A                          TXA
    3339  F07D  18                          CLC
    3340                                    .IF     PALFLG
    3341                                    ADC     #8
    3342                                    .ENDIF
    3343                                    .IF     PALFLG-1
    3344  F07E  69 0A                       ADC     #10
    3345                                    .ENDIF
    3346  F080  AA                          TAX
    3347  F081  E4 14                       CPX     RTCLOK+2
    3348  F083  D0 FC                       BNE     *-2
    3349  F085  F0 D3                       BEQ     BEEP1       ;UNCOND GO BEEP AGIN
    3350  F087  20 8C F0            WFAK:   JSR     WFAK1       ;USE SIMULATED "JMP (KGETCH)"
    3351  F08A  98                          TYA
    3352  F08B  60                          RTS
    3353  F08C  AD 25 E4            WFAK1:  LDA     KEYBDV+5
    3354  F08F  48                          PHA
    3355  F090  AD 24 E4                    LDA     KEYBDV+4    ;SIMULATE "JMP (KGETCH)"
    3356  F093  48                          PHA
    3357  F094  60                          RTS
    3358                            ;
    3359                            ; SIOSB - CALL SIO ON SYSTEM BUFFER
    3360                            ;
    3361  F095  8D 02 03            SIOSB:  STA     DCOMND      ;SAVE COMMAND
    3362  F098  A9 00                       LDA     #0
    3363  F09A  8D 09 03                    STA     DBYTHI      ;SET BUFFER LENGTH
    3364  F09D  A9 83                       LDA     #131
    3365  F09F  8D 08 03                    STA     DBYTLO
    3366  F0A2  A9 03                       LDA     #CBUFH
    3367  F0A4  8D 05 03                    STA     DBUFHI      ;SET BUFFER ADDRESS
    3368  F0A7  A9 FD                       LDA     #CBUFL
    3369  F0A9  8D 04 03                    STA     DBUFLO
    3370  F0AC  A9 60               CSIO:   LDA     #$60        ;CASSET PSEUDO DEVICE
    3371  F0AE  8D 00 03                    STA     DDEVIC
    3372  F0B1  A9 00                       LDA     #0
    3373  F0B3  8D 01 03                    STA     DUNIT
    3374  F0B6  A9 23                       LDA     #35         ;DEVICE TIMEOUT (5/30/79)
    3375  F0B8  8D 06 03                    STA     DTIMLO
    3376  F0BB  AD 02 03                    LDA     DCOMND      ;GET COMMAND BACK
    3377  F0BE  A0 40                       LDY     #SRSTA      ;SIO READ STATUS COMMAND
    3378  F0C0  C9 52                       CMP     #'R
    3379  F0C2  F0 02                       BEQ     *+4
    3380  F0C4  A0 80                       LDY     #SWSTA      ;SIO WRITE STATUS COMMAND
    3381  F0C6  8C 03 03                    STY     DSTATS      ;SET STATUS FOR SIO
    3382  F0C9  A5 3E                       LDA     FTYPE
    3383  F0CB  8D 0B 03                    STA     DAUX2       ;INDICATE IF SHORT IRG MODE
    3384  F0CE  20 59 E4                    JSR     SIOV        ;GO CALL SIO
    3385  F0D1  60                          RTS
    3386                            ;
    3387                            ; WSIOSB - WRITE SIO SYSTEM BUFFER
    3388                            ;
    3389  F0D2  8D FF 03            WSIOSB: STA     CASBUF+2    ;STORE TYPE BYTE
    3390  F0D5  A9 55                       LDA     #$55
    3391  F0D7  8D FD 03                    STA     CASBUF+0
    3392  F0DA  8D FE 03                    STA     CASBUF+1
    3393  F0DD  A9 57                       LDA     #'W ;WRITE
    3394  F0DF  20 95 F0                    JSR     SIOSB       ;CALL SIO ON SYSTEM BUFFER
    3395  F0E2  60                          RTS     AND         ;RETURN
    3396  F0E3                      CRNTP6  =*
    3397                                    *=$14
    3398  0014  00                  CASSPR: .BYTE   MONORG-CRNTP6 ;^GCASCV IS TOO LONG
    3399
    3400                                    .TITLE  'MONITOR  ***** MONITP.SRC ***** 3/9/79 *****  4:00:00 P.M.'
    3401                            ;
    3402                            ;
    3403                            ;
    3404                            ;       CONSTANT EQUATES
    3405                            ;
    3406  0009                      PUTTXT  =       $9          ;"PUT TEXT RECORD" CIO COMMAND CODE
    3407  0007                      GETCAR  =       $7          ;"GET CHARACTER" CIO COMMAND CODE
    3408  000B                      PUTCAR  =       $B          ;"PUT CHARACTER" CIO COMMAND CODE
    3409  0000                      INIMLL  =       $00         ;INITIAL MEM LO LOW BYTE
    3410  0007                      INIMLH  =       $07         ;INITIAL MEM LO HIGH BYTE
    3411                            ; GOOD  =       $1          ;GOOD STATUS CODE
    3412                            ; WRITE =       $57         ;WRITE COMMAND
    3413                            ; READ  =       $52         ;READ COMMAND
    3414                            ; STATC =       $53         ;STATUS COMMAND
    3415  0000                      SEX     =       $0          ;SCREEN EDITOR IOCB INDEX
    3416  007D                      CLS     =       $7D         ;CLEAR SCREEN CODE
    3417  0092                      CTRLC   =       $92         ;KEYBOARD CODE FOR 'CONTROL C'
    3418  0088                      EOF     =       $88         ;CASSETTE END OF FILE CODE
    3419  0000                      LIRG    =       $0          ;LONG IRG TYPE CODE
    3420                            ;
    3421  0004                      BUFFH   =       (CASBUF+3)/256
    3422  0000                      BUFFL   =       (-256)*BUFFH+CASBUF+3 ;BUFFER POINTER
    3423                            ;
    3424                            ;
    3425                            ;
    3426                            ; THE FOLLOWING EQUATES ARE IN THE CARTRIDGE ADDRESS SPACE.
    3427                            ;
    3428                            ;
    3429                            ; "B" CARTRIDGE ADDR'S ARE 8000-9FFF (36K CONFIG. ONLY)
    3430                            ; "A" CART. ADDR'S ARE A000-BFFF (36K CONFIG. ONLY)
    3431                            ;
    3432                            ; "A" CART. ADDR'S ARE B000-BFFF (48K CONFIG. ONLY)
    3433                            ;
    3434                                    *=$BFFA
    3435  BFFA                      CARTCS: .RES    2           ;CARTRIDGE COLD START ADDRESS.
    3436  BFFC                      CART:   .RES    1           ;CARTRIDGE AVAILABLE FLAG BYTE.
    3437  BFFD                      CARTFG: .RES    1           ;CARTRIDGE FLAG BYTE. BIT 0=FLAG1,
    3438  BFFE                      CARTAD: .RES    2           ;2-BYTE CARTRIDGE START VECTOR
    3439                            ;
    3440                            ;
    3441                            ;       CARTRIDGE FLAG ACTION DEFINITIONS
    3442                            ;
    3443                            ;
    3444                            ;       BIT             ACTION IF SET
    3445                            ;
    3446                            ;       7               SPECIAL -- DON'T POWER-UP, JUST RUN CARTRIDGE
    3447                            ;       6-3             NONE
    3448                            ;       2               RUN CARTRIDGE
    3449                            ;       1               NONE
    3450                            ;       0               BOOT DOS
    3451                            ;
    3452                            ;
    3453                            ;       *****
    3454                            ;       NOTE
    3455                            ;       *****
    3456                            ;
    3457                            ;       1.IF BIT2 IS 0, GOTO BLACKBOARD MODE.
    3458                            ;       2.IF BIT0 SET, THE DISK WILL BE BOOTED BEFORE ANY
    3459                            ;         OTHER ACTION.
    3460                            ;
    3461                            ;
    3462                            ;
    3463                            ;
    3464                            ;
    3465                            ;
    3466                            ;
    3467                            ;
    3468                            ;
    3469                            ;       POWER-UP VECTOR
    3470                            ;
    3471                            ;****************************
    3472                            ;       *=$FFFC
    3473                            ;
    3474                            ; PVECT .WORD   PWRUP           POWER-UP VECTOR
    3475                            ;*************************
    3476                            ;
    3477                            ;
    3478                            ;
    3479                            ;
    3480                            ;
    3481                            ;       ENTRY POINT VECTOR
    3482                            ;
    3483                                    *=BLKBDV
    3484                            ;
    3485  E471  4C 23 F2                    JMP     SIGNON      ;BLACK BOARD VECTOR
    3486                            ;
    3487                                    *=WARMSV
    3488                            ;
    3489  E474  4C 1B F1                    JMP     RESET       ;WARM START VECTOR
    3490                            ;
    3491                                    *=COLDSV
    3492                            ;
    3493  E477  4C 25 F1                    JMP     PWRUP       ;COLD START VECTOR (9000 FOR RAM VECTOR WRITING)
    3494                            ;
    3495                                    *=$9000
    3496  9000  20 0C 90                    JSR     $900C
    3497  9003  4C 25 F1                    JMP     PWRUP       ;(TO HANDLE RAM VECTOR WRITING)
    3498  9006  20 0C 90                    JSR     $900C
    3499  9009  4C 1B F1                    JMP     RESET
    3500                            ;
    3501                            ;
    3502                            ;
    3503                                    *=MONORG
    3504                            ;
    3505                            ;
    3506                            ;
    3507                            ;
    3508                            ;       HANDLER TABLE ENTRIES
    3509                            ;
    3510  F0E3  50                  TBLENT: .BYTE   'P'
    3511  F0E4  30 E4                       .WORD   PRINTV
    3512  F0E6  43                          .BYTE   'C'
    3513  F0E7  40 E4                       .WORD   CASETV
    3514  F0E9  45                          .BYTE   'E'
    3515  F0EA  00 E4                       .WORD   EDITRV
    3516  F0EC  53                          .BYTE   'S'
    3517  F0ED  10 E4                       .WORD   SCRENV
    3518  F0EF  4B                          .BYTE   'K'
    3519  F0F0  20 E4                       .WORD   KEYBDV
    3520                            ;
    3521                            ;
    3522                            ;TBLLEN  =       IDENT-TBLENT-1  HANDLER TABLE LENGTH.  "MOVED TO LINE 8
    3523                            ;
    3524                            ;       ***** PRINT MESSAGES *****
    3525                            ;
    3526                            ;
    3527  F0F2  7D 41 54 41         IDENT:  .BYTE   CLS,'ATARI COMPUTER - MEMO PAD',CR
    3528  F0F6  52 49 20 43
    3529  F0FA  4F 4D 50 55
    3530  F0FE  54 45 52 20
    3531  F102  2D 20 4D 45
    3532  F106  4D 4F 20 50
    3533  F10A  41 44 9B
    3534                            ;
    3535  00F0                      IDENTH  =       IDENT/256
    3536  00F2                      IDENTL  =       (-256)*IDENTH+IDENT ;SYSTEM I.D. MSG POINTER
    3537                            ;
    3538  000E                      TBLLEN  =       IDENT-TBLENT-1 ;HANDLER TABLE LENGTH
    3539  F10D  42 4F 4F 54         DERR5:  .BYTE   'BOOT ERROR',CR
    3540  F111  20 45 52 52
    3541  F115  4F 52 9B
    3542                            ;
    3543  00F1                      DERRH   =       DERR5/256
    3544  000D                      DERRL   =       (-256)*DERRH+DERR5 ;DISK ERROR MSG POINTER
    3545                            ;
    3546                            ;
    3547                            ;
    3548                            ;
    3549                            ;       DEVICE/FILENAME SPECIFICATIONS
    3550                            ;
    3551  F118  45 3A 9B            OPNEDT: .BYTE   'E:',CR ;"OPEN SCREEN EDITOR" DEVICE SPEC.
    3552                            ;
    3553  00F1                      OPNH    =       OPNEDT/256
    3554  0018                      OPNL    =(-256)*OPNH+OPNEDT ;SCREEN EDITOR OPEN POINTER
    3555
    3556                            ;
    3557                            ;
    3558                            ;
    3559                            ;
    3560                            ;*****************************************************************
    3561                            ;       RESET BUTTON ROUTINE STARTS HERE
    3562                            ;*****************************************************************
    3563                            ;
    3564  F11B  78                  RESET:  SEI                 ;DISABLE IRQ INTERRUPTS
    3565  F11C  AD 44 02                    LDA     COLDST      ;WERE WE IN MIDDLE OF COLDSTART?
    3566  F11F  D0 04                       BNE     PWRUP       ;YES, GO TRY IT AGAIN
    3567  F121  A9 FF                       LDA     #$FF
    3568  F123  D0 03                       BNE     PWRUP1      ;SET WARM START FLAG
    3569                            ;
    3570                            ;
    3571                            ;
    3572                            ;***************************************************************
    3573                            ;       POWER UP ROUTINES START HERE
    3574                            ;***************************************************************
    3575                            ;
    3576  F125  78                  PWRUP:  SEI                 ;DISABLE IRQ INTERRUPTS
    3577  F126  A9 00                       LDA     #0          ;CLEAR WARMSTART FLAG
    3578  F128  85 08               PWRUP1: STA     WARMST
    3579  F12A  D8                          CLD                 ;CLEAR DECIMAL FLAG.
    3580  F12B  A2 FF                       LDX     #$FF
    3581  F12D  9A                          TXS                 ;SET STACK POINTER
    3582  F12E  20 3F F2                    JSR     SPECL       ;CARTRIDGE SPECIAL CASE?
    3583  F131  20 77 F2                    JSR     HARDI       ;DO HARDWARE INITIALIZATION
    3584  F134  A5 08                       LDA     WARMST      ;IS IT WARMSTART?
    3585  F136  D0 28                       BNE     ZOSRAM      ;YES, ONLY ZERO OS RAM
    3586                            ;
    3587  F138  A9 00               ZERORM: LDA     #0
    3588  F13A  A0 08                       LDY     #WARMST
    3589  F13C  85 04                       STA     RAMLO
    3590  F13E  85 05                       STA     RAMLO+1     ;INITIALIZE RAM POINTER
    3591  F140  91 04               CLRRAM: STA     (RAMLO),Y   ;CLEAR MEMORY LOC.
    3592  F142  C8                          INY
    3593  F143  C0 00                       CPY     #0          ;AT END OF PAGE?
    3594  F145  D0 F9                       BNE     CLRRAM
    3595  F147  E6 05                       INC     RAMLO+1     ;YES, INCR PAGE POINTER
    3596  F149  A6 05                       LDX     RAMLO+1
    3597  F14B  E4 06                       CPX     TRAMSZ      ;AT END OF MEM?
    3598  F14D  D0 F1                       BNE     CLRRAM      ;NO.
    3599                            ;
    3600                            ; INITIALIZE DOSVEC TO POINT TO SIGNON (BLACKBOARD)
    3601  F14F  AD 72 E4                    LDA     BLKBDV+1
    3602  F152  85 0A                       STA     DOSVEC      ;USE BLACKBOARD VECTOR
    3603  F154  AD 73 E4                    LDA     BLKBDV+2    ;FOR DOSVEC
    3604  F157  85 0B                       STA     DOSVEC+1
    3605  F159  A9 FF                       LDA     #$FF
    3606  F15B  8D 44 02                    STA     COLDST      ;SET TO SHOW IN MIDDLE OF COLDSTART
    3607  F15E  D0 13                       BNE     ESTSCM      ;GO AROUND ZOSRAM
    3608                            ;
    3609                            ; CLEAR OS RAM (FOR WARMSTART)
    3610  F160  A2 00               ZOSRAM: LDX     #0
    3611  F162  8A                          TXA
    3612  F163  9D 00 02            ZOSRM2: STA     $200,X      ;CLEAR PAGES 2 AND 3
    3613  F166  9D 00 03                    STA     $300,X
    3614  F169  CA                          DEX
    3615  F16A  D0 F7                       BNE     ZOSRM2
    3616  F16C  A2 10                       LDX     #INTZBS
    3617  F16E  95 00               ZOSRM3: STA     0,X         ;CLEAR ZERO PAGE LOCATIONS INTZBS-7F
    3618  F170  E8                          INX
    3619  F171  10 FB                       BPL     ZOSRM3
    3620                            ;
    3621                            ; ESTABLISH SCREEN MARGINS
    3622  F173  A9 02               ESTSCM: LDA     #LEDGE
    3623  F175  85 52                       STA     LMARGN
    3624  F177  A9 27                       LDA     #REDGE
    3625  F179  85 53                       STA     RMARGN
    3626                            ;
    3627                            ;
    3628                            ; MOVE VECTOR TABLE FROM ROM TO RAM
    3629  F17B  A2 25               OPSYS:  LDX     #$25
    3630  F17D  BD 80 E4            MOVVEC: LDA     VCTABL,X    ;ROM TABLE
    3631  F180  9D 00 02                    STA     INTABS,X    ;TO RAM
    3632  F183  CA                          DEX
    3633  F184  10 F7                       BPL     MOVVEC
    3634  F186  20 8A F2                    JSR     OSRAM       ;DO O.S. RAM SETUP
    3635  F189  58                          CLI                 ;ENABLE IRQ INTERRUPTS
    3636                            ;
    3637                            ;
    3638                            ;       LINK HANDLERS
    3639                            ;
    3640  F18A  A2 0E                       LDX     #TBLLEN
    3641  F18C  BD E3 F0            NXTENT: LDA     TBLENT,X    ;READ HANDLER TABLE ENTRY
    3642  F18F  9D 1A 03                    STA     HATABS,X    ;PUT IN TABLE
    3643  F192  CA                          DEX
    3644  F193  10 F7                       BPL     NXTENT      ;DONE WITH ALL ENTRIES?
    3645                            ;
    3646                            ;
    3647                            ;
    3648                            ;
    3649                            ;
    3650                            ; INTERROGATE CARTRIDGE ADDR. SPACE TO SEE WHICH CARTRIDGES THERE ARE
    3651                            ;
    3652  F195  A2 00                       LDX     #0
    3653  F197  86 07                       STX     TSTDAT      ;CLEAR "B" CART. FLAG
    3654  F199  86 06                       STX     TRAMSZ      ;CLEAR "A" CART. FLAG
    3655  F19B  AE E4 02                    LDX     RAMSIZ
    3656  F19E  E0 90                       CPX     #$90        ;RAM IN "B" CART. SLOT?
    3657  F1A0  B0 0A                       BCS     ENDBCK
    3658  F1A2  AD FC 9F                    LDA     CART-$2000  ;NO,
    3659  F1A5  D0 05                       BNE     ENDBCK      ;CART. PLUGGED INTO "B" SLOT?
    3660  F1A7  E6 07                       INC     TSTDAT      ;YES, SET "B" CART. FLAG
    3661  F1A9  20 3C F2                    JSR     CBINI       ;INITIALIZE CARTRIDGE "B"
    3662                            ;
    3663  F1AC  AE E4 02            ENDBCK: LDX     RAMSIZ
    3664  F1AF  E0 B0                       CPX     #$B0        ;RAM IN "A" CART. SLOT?
    3665  F1B1  B0 0A                       BCS     ENDACK
    3666  F1B3  AE FC BF                    LDX     CART        ;NO,
    3667  F1B6  D0 05                       BNE     ENDACK      ;CART. PLUGGED INTO "A" SLOT?
    3668  F1B8  E6 06                       INC     TRAMSZ      ;YES, SET "A" CART. FLAG
    3669  F1BA  20 39 F2                    JSR     CAINI       ;INITIALIZE CARTRIDGE "A"
    3670                            ;
    3671                            ;
    3672                            ; OPEN SCREEN EDITOR
    3673                            ;
    3674  F1BD  A9 03               ENDACK: LDA     #3
    3675  F1BF  A2 00                       LDX     #SEX
    3676  F1C1  9D 42 03                    STA     ICCOM,X     ;OPEN I/O COMMAND
    3677  F1C4  A9 18                       LDA     #OPNL
    3678  F1C6  9D 44 03                    STA     ICBAL,X
    3679  F1C9  A9 F1                       LDA     #OPNH
    3680  F1CB  9D 45 03                    STA     ICBAH,X     ;SET BUFFER POINTER TO OPEN SCREEN EDITOR
    3681  F1CE  A9 0C                       LDA     #$C
    3682  F1D0  9D 4A 03                    STA     ICAX1,X     ;SET UP OPEN FOR INPUT/OUTPUT
    3683  F1D3  20 56 E4                    JSR     CIOV        ;GO TO CIO
    3684                            ;
    3685  F1D6  10 03                       BPL     SCRNOK      ;BR IF NO ERROR
    3686  F1D8  4C 25 F1                    JMP     PWRUP       ;RETRY PWRUP IF ERROR (SHOULD NEVER HAPPEN!)
    3687  F1DB  E8                  SCRNOK: INX                 ;SCREEN OK, SO WAIT FOR VBLANK TO
    3688  F1DC  D0 FD                       BNE     SCRNOK      ;BRING UP THE DISPLAY
    3689  F1DE  C8                          INY
    3690  F1DF  10 FA                       BPL     SCRNOK
    3691                            ;
    3692                            ;
    3693                            ; DO CASSETTE BOOT
    3694  F1E1  20 B2 F3                    JSR     CSBOOT      ;CHECK, BOOT, AND INIT
    3695                            ;
    3696                            ; CHECK TO SEE IF EITHER CARTRIDGE WANTS DISK BOOT
    3697  F1E4  A5 06                       LDA     TRAMSZ      ;CHECK BOTH CARTRIDGES
    3698  F1E6  05 07                       ORA     TSTDAT      ;
    3699  F1E8  F0 12                       BEQ     NOCART      ;NEITHER CARTRIDGE LIVES
    3700  F1EA  A5 06                       LDA     TRAMSZ      ;"A" CART?
    3701  F1EC  F0 03                       BEQ     NOA1        ;NO
    3702  F1EE  AD FD BF                    LDA     CARTFG      ;GET CARTRIDGE MODE FLAG
    3703  F1F1  A6 07               NOA1:   LDX     TSTDAT      ;"B" CART?
    3704  F1F3  F0 03                       BEQ     NOB1        ;NO
    3705  F1F5  0D FD 9F                    ORA     CARTFG-$2000 ;ADD OTHER FLAG
    3706  F1F8  29 01               NOB1:   AND     #1          ;DOES EITHER CART WANT BOOT?
    3707  F1FA  F0 03                       BEQ     NOBOOT      ;NO
    3708                            ;
    3709                            ; DO DISK BOOT
    3710  F1FC  20 CF F2            NOCART: JSR     BOOT        ;CHECK, BOOT, AND INIT
    3711                            ;
    3712                            ; GO TO ONE OF THE CARTRIDGES IF THEY SO DESIRE
    3713  F1FF  A9 00               NOBOOT: LDA     #0
    3714  F201  8D 44 02                    STA     COLDST      ;RESET TO SHOW DONE WITH COLDSTART
    3715  F204  A5 06                       LDA     TRAMSZ      ;"A" CART?
    3716  F206  F0 0A                       BEQ     NOA2        ;NO
    3717  F208  AD FD BF                    LDA     CARTFG      ;GET CARTRIDGE MODE FLAG
    3718  F20B  29 04                       AND     #4          ;DOES IT WANT TO RUN?
    3719  F20D  F0 03                       BEQ     NOA2        ;NO
    3720  F20F  6C FA BF                    JMP     (CARTCS)    ;RUN "A" CARTRIDGE
    3721  F212  A5 07               NOA2:   LDA     TSTDAT      ;"B" CART?
    3722  F214  F0 0A                       BEQ     NOCAR2      ;NO
    3723  F216  AD FD 9F                    LDA     CARTFG-$2000 ;GET "B" MODE FLAG
    3724  F219  29 04                       AND     #4          ;DOES IT WANT TO RUN?
    3725  F21B  F0 DF                       BEQ     NOCART      ;NO
    3726  F21D  6C FA 9F                    JMP     (CARTCS-$2000) ;RUN "B" CARTRIDGE
    3727                            ;
    3728                            ; NO CARTRIDGES, OR NEITHER WANTS TO RUN,
    3729                            ; SO GO TO DOSVEC (DOS, CASSETTE, OR BLACKBOARD)
    3730  F220  6C 0A 00            NOCAR2: JMP     (DOSVEC)
    3731                            ;
    3732                            ; PRINT SIGN-ON MESSAGE
    3733  F223  A2 F2               SIGNON: LDX     #IDENTL
    3734  F225  A0 F0                       LDY     #IDENTH
    3735  F227  20 85 F3                    JSR     PUTLIN      ;GO PUT SIGN-ON MSG ON SCREEN
    3736                            ;
    3737                            ;
    3738                            ;
    3739                            ;       BLACKBOARD ROUTINE
    3740  F22A  20 30 F2            BLACKB: JSR     BLKB2       ;"JSR EGETCH"
    3741  F22D  4C 2A F2                    JMP     BLACKB      ;FOREVER
    3742  F230  AD 05 E4            BLKB2:  LDA     EDITRV+5    ;HIGH BYTE
    3743  F233  48                          PHA
    3744  F234  AD 04 E4                    LDA     EDITRV+4    ;LOW BYTE
    3745  F237  48                          PHA
    3746  F238  60                          RTS                 ;SIMULATES "JMP (EDITRV)"
    3747                            ;
    3748                            ;
    3749                            ; CARTRIDGE INITIALIZATION INDIRECT JUMPS
    3750  F239  6C FE BF            CAINI:  JMP     (CARTAD)
    3751  F23C  6C FE 9F            CBINI:  JMP     (CARTAD-$2000)
    3752                                    .PAGE
    3753                            ;
    3754                            ;
    3755                            ;
    3756                            ;
    3757                            ;
    3758                            ;
    3759                            ;               S U B R O U T I N E S
    3760                            ;
    3761                            ;
    3762                            ;
    3763                            ;
    3764                            ;
    3765                            ;
    3766                            ;
    3767                            ;
    3768                            ;
    3769                            ;
    3770                            ;
    3771                            ;
    3772                            ;
    3773                            ;
    3774                            ;
    3775                            ;
    3776                            ;
    3777                            ;
    3778                            ; CHECK FOR HOW MUCH RAM & SPECIAL CARTRIDGE CASE.
    3779                            ; IF SPECIAL CARTRIDGE CASE, DON'T GO BACK -- GO TO CART.
    3780                            ;
    3781  F23F  AD FC BF            SPECL:  LDA     CART        ;CHECK FOR RAM OR CART
    3782  F242  D0 13                       BNE     ENSPE2      ;GO IF NOTHING OR MAYBE RAM
    3783  F244  EE FC BF                    INC     CART        ;NOW DO RAM CHECK
    3784  F247  AD FC BF                    LDA     CART        ;IS IT ROM?
    3785  F24A  D0 08                       BNE     ENSPEC      ;NO
    3786  F24C  AD FD BF                    LDA     CARTFG      ;YES,
    3787  F24F  10 03                       BPL     ENSPEC      ;BIT SET?
    3788  F251  6C FE BF                    JMP     (CARTAD)    ;YES, GO RUN CARTRIDGE
    3789                            ;
    3790                            ; CHECK FOR AMOUNT OF RAM
    3791                            ;
    3792                            ;
    3793  F254  CE FC BF            ENSPEC: DEC     CART        ;RESTORE RAM IF NEEDED
    3794  F257  A0 00               ENSPE2: LDY     #0
    3795  F259  84 05                       STY     RAMLO+1
    3796  F25B  A9 10                       LDA     #$10
    3797  F25D  85 06                       STA     TRAMSZ      ;SET RAM POINTER TO 4K.
    3798  F25F  B1 05               HOWMCH: LDA     (RAMLO+1),Y ;READ RAM LOCATION
    3799  F261  49 FF                       EOR     #$FF        ;INVERT IT.
    3800  F263  91 05                       STA     (RAMLO+1),Y ;WRITE INVERTED DATA.
    3801  F265  D1 05                       CMP     (RAMLO+1),Y ;READ RAM AGAIN
    3802  F267  D0 0D                       BNE     ENDRAM
    3803  F269  49 FF                       EOR     #$FF        ;CONVERT IT BACK
    3804  F26B  91 05                       STA     (RAMLO+1),Y ;RESTORE ORIGINAL RAM DATA
    3805  F26D  A5 06                       LDA     TRAMSZ
    3806  F26F  18                          CLC
    3807  F270  69 10                       ADC     #$10
    3808  F272  85 06                       STA     TRAMSZ      ;INCR. RAM POINTER BY 4K.
    3809  F274  D0 E9                       BNE     HOWMCH      ;GO FIND HOW MUCH RAM.
    3810  F276  60                  ENDRAM: RTS
    3811                            ;
    3812                            ;
    3813                            ;
    3814                            ;
    3815                            ;       HARDWARE INITIALIZATION
    3816                            ;
    3817                            ;
    3818  F277  A9 00               HARDI:  LDA     #0
    3819  F279  AA                          TAX
    3820  F27A  9D 00 D0            CLRCHP: STA     $D000,X
    3821  F27D  9D 00 D4                    STA     $D400,X
    3822  F280  9D 00 D2                    STA     $D200,X
    3823  F283  9D 00 D3                    STA     $D300,X
    3824  F286  E8                          INX
    3825  F287  D0 F1                       BNE     CLRCHP
    3826  F289  60                          RTS
    3827                            ;
    3828                            ;
    3829                            ;       O.S. RAM SETUP
    3830                            ;
    3831  F28A  C6 11               OSRAM:  DEC     BRKKEY      ;TURN OFF BREAK KEY FLAG
    3832  F28C  A9 54                       LDA     #.LOW.BRKKY2
    3833  F28E  8D 36 02                    STA     BRKKY
    3834  F291  A9 E7                       LDA     #.HIGH.BRKKY2
    3835  F293  8D 37 02                    STA     BRKKY+1
    3836  F296  A5 06                       LDA     TRAMSZ      ;READ RAM SIZE IN TEMP. REG.
    3837  F298  8D E4 02                    STA     RAMSIZ      ;SAVE IT IN RAM SIZE.
    3838  F29B  8D E6 02                    STA     MEMTOP+1    ; INIT. MEMTOP ADDR HI BYTE
    3839  F29E  A9 00                       LDA     #0
    3840  F2A0  8D E5 02                    STA     MEMTOP      ;INIT. MEMTOP ADDR LO BYTE
    3841  F2A3  A9 00                       LDA     #INIMLL
    3842  F2A5  8D E7 02                    STA     MEMLO
    3843  F2A8  A9 07                       LDA     #INIMLH
    3844  F2AA  8D E8 02                    STA     MEMLO+1     ;INITIALIZE MEMLO ADDR VECTOR
    3845  F2AD  20 0C E4                    JSR     EDITRV+$C   ;EDITOR INIT.
    3846  F2B0  20 1C E4                    JSR     SCRENV+$C   ;SCREEN INIT.
    3847  F2B3  20 2C E4                    JSR     KEYBDV+$C   ;KEYBOARD INIT.
    3848  F2B6  20 3C E4                    JSR     PRINTV+$C   ;PRINTER HANDLER INIT
    3849  F2B9  20 4C E4                    JSR     CASETV+$C   ;CASSETTE HANDLER INIT
    3850  F2BC  20 6E E4                    JSR     CIOINV      ;CIO INIT.
    3851  F2BF  20 65 E4                    JSR     SIOINV      ;SIO INIT.
    3852  F2C2  20 6B E4                    JSR     INTINV      ;INTERRUPT HANDLER INIT.
    3853  F2C5  AD 1F D0                    LDA     CONSOL
    3854  F2C8  29 01                       AND     #$1
    3855  F2CA  D0 02                       BNE     NOKEY       ;GAME START KEY DEPRESSED?
    3856  F2CC  E6 4A                       INC     CKEY        ;YES, SET KEY FLAG.
    3857  F2CE  60                  NOKEY:  RTS
    3858                            ;
    3859                            ;
    3860                            ; DO BOOT OF DISK
    3861                            ;
    3862  F2CF  A5 08               BOOT:   LDA     WARMST
    3863  F2D1  F0 0A                       BEQ     NOWARM      ;WARM START?
    3864  F2D3  A5 09                       LDA     BOOT?       ;YES,
    3865  F2D5  29 01                       AND     #1
    3866  F2D7  F0 03                       BEQ     NOINIT      ;VALID BOOT?
    3867  F2D9  20 7E F3                    JSR     DINI        ;YES, RE-INIT. DOS SOFTWARE
    3868  F2DC  60                  NOINIT: RTS
    3869  F2DD  A9 01               NOWARM: LDA     #1
    3870  F2DF  8D 01 03                    STA     DUNIT       ;ASSIGN DISK DRIVE NO.
    3871  F2E2  A9 53                       LDA     #STATC
    3872  F2E4  8D 02 03                    STA     DCOMND      ;SET UP STATUS COMMAND
    3873  F2E7  20 53 E4                    JSR     DSKINV      ;GO DO DISK STATUS
    3874  F2EA  10 01                       BPL     DOBOOT      ;IS STATUS FROM SIO GOOD?
    3875  F2EC  60                          RTS                 ;NO, GO BACK WITH BAD BOOT STATUS
    3876                            ;
    3877  F2ED  A9 00               DOBOOT: LDA     #0
    3878  F2EF  8D 0B 03                    STA     DAUX2
    3879  F2F2  A9 01                       LDA     #1
    3880  F2F4  8D 0A 03                    STA     DAUX1       ;SET SECTOR # TO 1.
    3881  F2F7  A9 00                       LDA     #BUFFL
    3882  F2F9  8D 04 03                    STA     DBUFLO
    3883  F2FC  A9 04                       LDA     #BUFFH
    3884  F2FE  8D 05 03                    STA     DBUFHI      ;SET UP BUFFER ADDR
    3885  F301  20 9D F3            SECT1:  JSR     GETSEC      ;GET SECTOR
    3886  F304  10 08                       BPL     ALLSEC      ;STATUS O.K. ?
    3887  F306  20 81 F3            BADDSK: JSR     DSKRDE      ;NO, GO PRINT DISK READ ERROR
    3888  F309  A5 4B                       LDA     CASSBT
    3889  F30B  F0 E0                       BEQ     DOBOOT      ;CASSETTE BOOT?
    3890  F30D  60                          RTS                 ;YES, QUIT
    3891  F30E  A2 03               ALLSEC: LDX     #3
    3892  F310  BD 00 04            RDBYTE: LDA     CASBUF+3,X  ;READ A BUFFER BYTE
    3893  F313  9D 40 02                    STA     DFLAGS,X    ;STORE IT
    3894  F316  CA                          DEX
    3895  F317  10 F7                       BPL     RDBYTE      ;DONE WITH 4 BYTE TRANSFER ?
    3896  F319  AD 42 02                    LDA     BOOTAD      ;YES,
    3897  F31C  85 04                       STA     RAMLO
    3898  F31E  AD 43 02                    LDA     BOOTAD+1
    3899  F321  85 05                       STA     RAMLO+1     ;PUT BOOT ADDR INTO Z. PAGE RAM
    3900  F323  AD 04 04                    LDA     CASBUF+7
    3901  F326  85 0C                       STA     DOSINI      ;ESTABLISH DOS INIT ADDRESS
    3902  F328  AD 05 04                    LDA     CASBUF+8
    3903  F32B  85 0D                       STA     DOSINI+1
    3904  F32D  A0 7F               MVBUFF: LDY     #$7F        ;YES, SET BYTE COUNT
    3905  F32F  B9 00 04            MVNXB:  LDA     CASBUF+3,Y
    3906  F332  91 04                       STA     (RAMLO),Y   ;MOVE A BYTE FROM SECTOR BUFFER TO BOOT ADDR.
    3907  F334  88                          DEY
    3908  F335  10 F8                       BPL     MVNXB       ;DONE ?
    3909  F337  18                          CLC                 ;YES,
    3910  F338  A5 04                       LDA     RAMLO
    3911  F33A  69 80                       ADC     #$80
    3912  F33C  85 04                       STA     RAMLO
    3913  F33E  A5 05                       LDA     RAMLO+1
    3914  F340  69 00                       ADC     #0
    3915  F342  85 05                       STA     RAMLO+1     ;INCR BOOT LOADER BUFFER POINTER.
    3916  F344  CE 41 02                    DEC     DBSECT      ;DECR # OF SECTORS.
    3917  F347  F0 11                       BEQ     ENBOOT      ;MORE SECTORS ?
    3918  F349  EE 0A 03                    INC     DAUX1       ;YES, INCR SECTOR #
    3919  F34C  20 9D F3            SECTX:  JSR     GETSEC      ;GO GET SECTOR.
    3920  F34F  10 DC                       BPL     MVBUFF      ;STATUS O.K. ?
    3921  F351  20 81 F3                    JSR     DSKRDE      ;NO, GO PRINT DISK READ ERROR
    3922  F354  A5 4B                       LDA     CASSBT
    3923  F356  D0 AE                       BNE     BADDSK      ;IF CASSETTE, QUIT.
    3924  F358  F0 F2                       BEQ     SECTX       ;IF DISK, TRY SECTOR AGAIN.
    3925  F35A  A5 4B               ENBOOT: LDA     CASSBT
    3926  F35C  F0 03                       BEQ     XBOOT       ;CASSETTE BOOT ?
    3927  F35E  20 9D F3                    JSR     GETSEC      ;YES, GET EOF RECORD, BUT DON'T USE IT.
    3928  F361  20 6C F3            XBOOT:  JSR     BLOAD       ;GO EXECUTE BOOT LOADER
    3929  F364  B0 A0                       BCS     BADDSK      ;IF BAD BOOT, DO IT OVER AGAIN
    3930  F366  20 7E F3                    JSR     DINI        ;GO INIT. SOFTWARE
    3931  F369  E6 09                       INC     BOOT?       ;SHOW BOOT SUCCESS
    3932  F36B  60                          RTS
    3933  F36C  18                  BLOAD:  CLC
    3934  F36D  AD 42 02                    LDA     BOOTAD
    3935  F370  69 06                       ADC     #6
    3936  F372  85 04                       STA     RAMLO
    3937  F374  AD 43 02                    LDA     BOOTAD+1
    3938  F377  69 00                       ADC     #0
    3939  F379  85 05                       STA     RAMLO+1     ;PUT START ADDR OF BOOTLOADER INTO RAM
    3940  F37B  6C 04 00                    JMP     (RAMLO)
    3941  F37E  6C 0C 00            DINI:   JMP     (DOSINI)
    3942                            ;
    3943                            ;
    3944                            ;
    3945                            ;
    3946                            ; DISPLAY DISK READ ERROR MSG
    3947                            ;
    3948  F381  A2 0D               DSKRDE: LDX     #DERRL
    3949  F383  A0 F1                       LDY     #DERRH
    3950                            ;
    3951                            ;
    3952                            ;
    3953                            ; PUT LINE ON SCREEN AT PRESENT CURSOR POSITION
    3954                            ;
    3955                            ;   X-REG -- LO BYTE, BEGIN ADDR OF LINE
    3956                            ;   Y-REG -- HI BYTE, BEGIN ADDR OF LINE
    3957                            ;
    3958  F385  8A                  PUTLIN: TXA
    3959  F386  A2 00                       LDX     #SEX
    3960  F388  9D 44 03                    STA     ICBAL,X
    3961  F38B  98                          TYA
    3962  F38C  9D 45 03                    STA     ICBAH,X     ;SET UP ADDR OF BEGIN OF LINE
    3963  F38F  A9 09                       LDA     #PUTTXT
    3964  F391  9D 42 03                    STA     ICCOM,X     ;"PUT TEXT RECORD" COMMAND
    3965  F394  A9 FF                       LDA     #$FF
    3966  F396  9D 48 03                    STA     ICBLL,X     ;SET BUFFER LENGTH
    3967  F399  20 56 E4                    JSR     CIOV        ;PUT LINE ON SCREEN
    3968  F39C  60                          RTS
    3969                            ;
    3970                            ;
    3971                            ;
    3972                            ;
    3973                            ; GET SECTOR FROM DISK 0
    3974                            ;
    3975  F39D  A5 4B               GETSEC: LDA     CASSBT
    3976  F39F  F0 03                       BEQ     DISKM       ;CASSETTE BOOT ?
    3977  F3A1  4C 7A E4                    JMP     RBLOKV      ;YES, GO TO READ BLOCK ROUTINE
    3978  F3A4  A9 52               DISKM:  LDA     #READ
    3979  F3A6  8D 02 03                    STA     DCOMND      ;SET READ SECTOR COMMAND
    3980  F3A9  A9 01                       LDA     #1
    3981  F3AB  8D 01 03                    STA     DUNIT       ;SET DRIVE NO. TO DRIVE 0
    3982  F3AE  20 53 E4                    JSR     DSKINV      ;GET SECTOR
    3983  F3B1  60                          RTS
    3984                            ;
    3985                            ;
    3986                            ;
    3987                            ; DO CHECK FOR CASSETTE BOOT & IF SO, DO BOOT
    3988                            ;
    3989  F3B2  A5 08               CSBOOT: LDA     WARMST      ;WARMSTART?
    3990  F3B4  F0 0A                       BEQ     CSBOT2      ;NO
    3991  F3B6  A5 09                       LDA     BOOT?       ;GET BOOT FLAG
    3992  F3B8  29 02                       AND     #2          ;WAS CASSETTE BOOT SUCCESFULL?
    3993  F3BA  F0 03                       BEQ     NOCSB2      ;NO
    3994  F3BC  20 E1 F3                    JSR     CINI        ;YES, INIT CASSETTE SOFTWARE
    3995  F3BF  60                  NOCSB2: RTS
    3996                            ;
    3997  F3C0  A5 4A               CSBOT2: LDA     CKEY
    3998  F3C2  F0 1C                       BEQ     NOCSBT      ;"C" KEY FLAG SET ?
    3999  F3C4  A9 80                       LDA     #$80        ;YES,
    4000  F3C6  85 3E                       STA     FTYPE       ;SET LONG IRG TYPE
    4001  F3C8  E6 4B                       INC     CASSBT      ;SET CASSETTE BOOT FLAG
    4002  F3CA  20 7D E4                    JSR     CSOPIV      ;OPEN CASSETTE FOR INPUT
    4003  F3CD  20 01 F3                    JSR     SECT1       ;DO BOOT & INIT.
    4004  F3D0  A9 00                       LDA     #0
    4005  F3D2  85 4B                       STA     CASSBT      ;RESET CASSETTE BOOT FLAG
    4006  F3D4  85 4A                       STA     CKEY        ;CLEAR KEY FLAG
    4007  F3D6  06 09                       ASL     BOOT?       ;SHIFT BOOT FLAG (NOW=2 IF SUCCESS)
    4008  F3D8  A5 0C                       LDA     DOSINI
    4009  F3DA  85 02                       STA     CASINI      ;MOVE INIT ADDRESS FOR CASSETTE
    4010  F3DC  A5 0D                       LDA     DOSINI+1
    4011  F3DE  85 03                       STA     CASINI+1
    4012  F3E0  60                  NOCSBT: RTS
    4013                            ;
    4014  F3E1  6C 02 00            CINI:   JMP     (CASINI)    ;INIT CASSETTE
    4015                            ;***********************************************************************
    4016                            ;
    4017                            ;
    4018                            ; SPARE BYTE OR MODULE TOO LONG FLAG
    4019                            ;
    4020  F3E4                      CRNTP7  =*
    4021                            ;
    4022                                    *=$14
    4023  0014  00                  MONSPR: .BYTE   KBDORG-CRNTP7 ;^GMONITP TOO LONG
    4024                            ;
    4025                                    .PAGE
    4026                                    .TITLE  'DISPLAY HANDLER  -- 10-30-78 --  DISPLC'
    4027                            ;
    4028                            ; HANDLER DEPENDENT EQUATES
    4029                            ;
    4030  007D                      CLRCOD  =       $7D         ;CLEAR SCREEN ATASCI CODE
    4031  009F                      CNTL1   =       $9F         ;POKEY KEY CODE FOR ^1
    4032                            ;
    4033  0068                      FRMADR  =       SAVADR
    4034  0066                      TOADR   =       MLTTMP
    4035                            ;
    4036                                    .PAGE
    4037                            ;
    4038                            ;
    4039                                    *=EDITRV
    4040                            ;
    4041                            ; SCREEN EDITOR HANDLER ENTRY POINT
    4042                            ;
    4043  E400  FB F3               EDITOR: .WORD   EOPEN-1
    4044  E402  33 F6                       .WORD   RETUR1-1    ;(CLOSE)
    4045  E404  3D F6                       .WORD   EGETCH-1
    4046  E406  A3 F6                       .WORD   EOUTCH-1
    4047  E408  33 F6                       .WORD   RETUR1-1    ;(STATUS)
    4048  E40A  3C F6                       .WORD   NOFUNC-1    ;(SPECIAL)
    4049  E40C  4C E4 F3                    JMP     PWRONA
    4050  E40F  00                          .BYTE   0           ;ROM FILLER BYTE
    4051                            ;
    4052                                    *=SCRENV
    4053                            ;
    4054                            ; DISPLAY HANDLER ENTRY POINT
    4055                            ;
    4056  E410  F5 F3               DISPLA: .WORD   DOPEN-1
    4057  E412  33 F6                       .WORD   RETUR1-1    ;(CLOSE)
    4058  E414  92 F5                       .WORD   GETCH-1
    4059  E416  B6 F5                       .WORD   OUTCH-1
    4060  E418  33 F6                       .WORD   RETUR1-1    ;(STATUS)
    4061  E41A  FB FC                       .WORD   DRAW-1      ;(SPECIAL)
    4062  E41C  4C E4 F3                    JMP     PWRONA
    4063  E41F  00                          .BYTE   0           ;ROM FILLER BYTE
    4064                            ;
    4065                                    *=KEYBDV
    4066                            ;
    4067                            ;
    4068                            ; KEYBOARD HANDLER ENTRY POINT
    4069                            ;
    4070  E420  33 F6               KBDHND: .WORD   RETUR1-1
    4071  E422  33 F6                       .WORD   RETUR1-1    ;(CLOSE)
    4072  E424  E1 F6                       .WORD   KGETCH-1
    4073  E426  3C F6                       .WORD   NOFUNC-1    ;(OUTCH)
    4074  E428  33 F6                       .WORD   RETUR1-1    ;(STATUS)
    4075  E42A  3C F6                       .WORD   NOFUNC-1    ;(SPECIAL)
    4076  E42C  4C E4 F3                    JMP     PWRONA
    4077  E42F  00                          .BYTE   0           ;ROM FILLER BYTE
    4078                            ;
    4079                            ;
    4080                            ; INTERRUPT VECTOR TABLE ENTRY
    4081                                    *=VCTABL-INTABS+VKEYBD
    4082  E488  BE FF                       .WORD   PIRQ5       ;KEYBOARD IRQ INTERRUPT VECTOR
    4083
    4084                                    *=KBDORG
    4085                            ;
    4086  F3E4  A9 FF               PWRONA: LDA     #$FF
    4087  F3E6  8D FC 02                    STA     CH
    4088  F3E9  AD E6 02                    LDA     MEMTOP+1
    4089  F3EC  29 F0                       AND     #$F0        ;INSURE 4K PAGE BOUNDARY
    4090  F3EE  85 6A                       STA     RAMTOP
    4091  F3F0  A9 40                       LDA     #$40        ;DEFAULT TO UPPER CASE ALPHA AT PWRON
    4092  F3F2  8D BE 02                    STA     SHFLOK
    4093  F3F5  60                          RTS                 ;POWER ON COMPLETED
    4094                                    .PAGE
    4095                            ;
    4096                            ;
    4097                            ; BEGIN DISPLAY HANDLER OPEN PROCESSING
    4098                            ;
    4099  F3F6  A5 2B               DOPEN:  LDA     ICAX2Z      ;GET AUX 2 BYTE
    4100  F3F8  29 0F                       AND     #$F
    4101  F3FA  D0 08                       BNE     OPNCOM      ;IF MODE ZERO, CLEAR ICAX1Z
    4102  F3FC  A5 2A               EOPEN:  LDA     ICAX1Z      ;CLEAR "CLR INHIBIT" AND "MXD MODE" BITS
    4103  F3FE  29 0F                       AND     #$F
    4104  F400  85 2A                       STA     ICAX1Z
    4105  F402  A9 00                       LDA     #0
    4106  F404  85 57               OPNCOM: STA     DINDEX
    4107  F406  A9 E0                       LDA     #$E0        ;INITIALIZE GLOBAL VBLANK RAM
    4108  F408  8D F4 02                    STA     CHBAS
    4109  F40B  A9 02                       LDA     #2
    4110  F40D  8D F3 02                    STA     CHACT
    4111  F410  8D 2F 02                    STA     SDMCTL      ;TURN OFF DMA NEXT VBLANK
    4112  F413  A9 01                       LDA     #SUCCES
    4113  F415  85 4C                       STA     DSTAT       ;CLEAR STATUS
    4114  F417  A9 C0                       LDA     #$C0        ;DO IRQEN
    4115  F419  05 10                       ORA     POKMSK
    4116  F41B  85 10                       STA     POKMSK
    4117  F41D  8D 0E D2                    STA     IRQEN
    4118  F420  A9 00                       LDA     #0
    4119  F422  8D 93 02                    STA     TINDEX      ;TEXT INDEX MUST ALWAYS BE 0
    4120  F425  85 64                       STA     ADRESS
    4121  F427  85 7B                       STA     SWPFLG
    4122  F429  8D F0 02                    STA     CRSINH      ;TURN CURSOR ON AT OPEN
    4123  F42C  A0 0E                       LDY     #14         ;CLEAR TAB STOPS
    4124  F42E  A9 01                       LDA     #1          ;INIT TAB STOPS TO EVERY 8 CHARACTERS
    4125  F430  99 A3 02            CLRTBS: STA     TABMAP,Y
    4126  F433  88                          DEY
    4127  F434  10 FA                       BPL     CLRTBS
    4128  F436  A2 04                       LDX     #4          ;LOAD COLOR REGISTERS
    4129  F438  BD C1 FE            DOPEN8: LDA     COLRTB,X
    4130  F43B  9D C4 02                    STA     COLOR0,X
    4131  F43E  CA                          DEX
    4132  F43F  10 F7                       BPL     DOPEN8
    4133  F441  A4 6A                       LDY     RAMTOP      ;DO TXTMSC=$2C40 (IF MEMTOP=3000)
    4134  F443  88                          DEY
    4135  F444  8C 95 02                    STY     TXTMSC+1
    4136  F447  A9 60                       LDA     #$60
    4137  F449  8D 94 02                    STA     TXTMSC
    4138  F44C  A6 57                       LDX     DINDEX
    4139  F44E  BD 69 FE                    LDA     ANCONV,X    ;CONVERT IT TO ANTIC CODE
    4140  F451  D0 04                       BNE     DOPENA      ;IF ZERO, IT IS ILLEGAL
    4141  F453  A9 91               OPNERR: LDA     #BADMOD     ;SET ERROR STATUS
    4142  F455  85 4C                       STA     DSTAT
    4143  F457  85 51               DOPENA: STA     HOLD1
    4144  F459  A5 6A                       LDA     RAMTOP      ;SET UP AN INDIRECT POINTER
    4145  F45B  85 65                       STA     ADRESS+1
    4146  F45D  BC 45 FE                    LDY     ALOCAT,X    ;ALLOCATE N BLOCKS OF 40 BYTES
    4147  F460  A9 28               DOPEN1: LDA     #40
    4148  F462  20 21 F9                    JSR     DBSUB
    4149  F465  88                          DEY
    4150  F466  D0 F8                       BNE     DOPEN1
    4151  F468  AD 6F 02                    LDA     GPRIOR      ;CLEAR GTIA MODES
    4152  F46B  29 3F                       AND     #$3F
    4153  F46D  85 67                       STA     OPNTMP+1
    4154  F46F  A8                          TAY
    4155  F470  E0 08                       CPX     #8          ;TEST IF 320X1
    4156  F472  90 17                       BCC     NOT8
    4157  F474  8A                          TXA                 ;GET 2 LOW BITS
    4158  F475  6A                          ROR     A
    4159  F476  6A                          ROR     A
    4160  F477  6A                          ROR     A
    4161  F478  29 C0                       AND     #$C0        ;NOW 2 TOP BITS
    4162  F47A  05 67                       ORA     OPNTMP+1
    4163  F47C  A8                          TAY
    4164  F47D  A9 10                       LDA     #16         ;SUBTRACT 16 MORE FOR PAGE BOUNDARY
    4165  F47F  20 21 F9                    JSR     DBSUB
    4166  F482  E0 0B                       CPX     #11         ;TEST MODE 11
    4167  F484  D0 05                       BNE     NOT8        ;IF MODE = 11
    4168  F486  A9 06                       LDA     #6          ;PUT GTIA LUM VALUE INTO BACKGROUND REGISTER
    4169  F488  8D C8 02                    STA     COLOR4
    4170  F48B  8C 6F 02            NOT8:   STY     GPRIOR      ;STORE NEW PRIORITY
    4171  F48E  A5 64                       LDA     ADRESS      ;SAVE MEMORY SCAN COUNTER ADDRESS
    4172  F490  85 58                       STA     SAVMSC
    4173  F492  A5 65                       LDA     ADRESS+1
    4174  F494  85 59                       STA     SAVMSC+1
    4175  F496  AD 0B D4            VBWAIT: LDA     VCOUNT      ;WAIT FOR NEXT VBLANK BEFORE MESSING
    4176  F499  C9 7A                       CMP     #$7A        ;WITH THE DISPLAY LIST
    4177  F49B  D0 F9                       BNE     VBWAIT
    4178  F49D  20 1F F9                    JSR     DBDEC       ;START PUTTING DISPLAY LIST RIGHT UNDER RAM
    4179  F4A0  BD 75 FE                    LDA     PAGETB,X    ;TEST IF DISPLAY LIST WILL BE IN TROUBLE
    4180  F4A3  F0 06                       BEQ     NOMOD       ;OF CROSSING A 256 BYTE PAGE BOUNDARY
    4181  F4A5  A9 FF                       LDA     #$FF        ;IF SO, DROP DOWN A PAGE
    4182  F4A7  85 64                       STA     ADRESS
    4183  F4A9  C6 65                       DEC     ADRESS+1
    4184  F4AB  A5 64               NOMOD:  LDA     ADRESS      ;SAVE END OF DISPLAY LIST FOR LATER
    4185  F4AD  85 68                       STA     SAVADR
    4186  F4AF  A5 65                       LDA     ADRESS+1
    4187  F4B1  85 69                       STA     SAVADR+1
    4188  F4B3  20 13 F9                    JSR     DBDDEC      ;(DOUBLE BYTE DOUBLE DECREMENT)
    4189  F4B6  A9 41                       LDA     #$41        ;(ANTIC) WAIT FOR VBLANK AND JMP TO TOP
    4190  F4B8  20 17 F9                    JSR     STORE
    4191  F4BB  86 66                       STX     OPNTMP
    4192  F4BD  A9 18                       LDA     #24         ;INITIALIZE BOTSCR
    4193  F4BF  8D BF 02                    STA     BOTSCR
    4194  F4C2  A5 57                       LDA     DINDEX      ;DISALLOW MIXED MODE IF MODE.GE.9
    4195  F4C4  C9 09                       CMP     #9
    4196  F4C6  B0 2D                       BCS     NOTMXD
    4197  F4C8  A5 2A                       LDA     ICAX1Z      ;TEST MIXED MODE
    4198  F4CA  29 10                       AND     #$10
    4199  F4CC  F0 27                       BEQ     NOTMXD
    4200  F4CE  A9 04                       LDA     #4
    4201  F4D0  8D BF 02                    STA     BOTSCR
    4202  F4D3  A2 02                       LDX     #2          ;ADD 4 LINES OF TEXT AT BOTTOM OF SCREEN
    4203  F4D5  A9 02               DOPEN2: LDA     #2
    4204  F4D7  20 17 F9                    JSR     STORE
    4205  F4DA  CA                          DEX
    4206  F4DB  10 F8                       BPL     DOPEN2
    4207  F4DD  A4 6A                       LDY     RAMTOP      ;RELOAD MSC FOR TEXT
    4208  F4DF  88                          DEY
    4209  F4E0  98                          TYA
    4210  F4E1  20 17 F9                    JSR     STORE
    4211  F4E4  A9 60                       LDA     #$60
    4212  F4E6  20 17 F9                    JSR     STORE
    4213  F4E9  A9 42                       LDA     #$42
    4214  F4EB  20 17 F9                    JSR     STORE
    4215  F4EE  18                          CLC
    4216  F4EF  A9 0C                       LDA     #MXDMDE-NUMDLE ;POINT X AT MIXED MODE TABLE
    4217  F4F1  65 66                       ADC     OPNTMP
    4218  F4F3  85 66                       STA     OPNTMP
    4219  F4F5  A4 66               NOTMXD: LDY     OPNTMP
    4220  F4F7  BE 51 FE                    LDX     NUMDLE,Y    ;GET NUMBER OF DISPLAY LIST ENTRIES
    4221  F4FA  A5 51               DOPEN3: LDA     HOLD1       ;STORE N DLE'S
    4222  F4FC  20 17 F9                    JSR     STORE
    4223  F4FF  CA                          DEX
    4224  F500  D0 F8                       BNE     DOPEN3
    4225  F502  A5 57                       LDA     DINDEX      ;DO THE MESSY 320X1 PROBLEM
    4226  F504  C9 08                       CMP     #8
    4227  F506  90 1C                       BCC     DOPEN5
    4228  F508  A2 5D                       LDX     #93         ;GET REMAINING NUMBER OF DLE'S
    4229  F50A  A5 6A                       LDA     RAMTOP      ;RELOAD MEMORY SCAN COUNTER
    4230  F50C  38                          SEC
    4231  F50D  E9 10                       SBC     #$10
    4232  F50F  20 17 F9                    JSR     STORE
    4233  F512  A9 00                       LDA     #0
    4234  F514  20 17 F9                    JSR     STORE
    4235  F517  A9 4F                       LDA     #$4F        ;(ANTIC) RELOAD MSC CODE
    4236  F519  20 17 F9                    JSR     STORE
    4237  F51C  A5 51               DOPEN4: LDA     HOLD1       ;DO REMAINING DLE'S
    4238  F51E  20 17 F9                    JSR     STORE
    4239  F521  CA                          DEX
    4240  F522  D0 F8                       BNE     DOPEN4
    4241  F524  A5 59               DOPEN5: LDA     SAVMSC+1    ;POLISH OFF DISPLAY LIST
    4242  F526  20 17 F9                    JSR     STORE
    4243  F529  A5 58                       LDA     SAVMSC
    4244  F52B  20 17 F9                    JSR     STORE
    4245  F52E  A5 51                       LDA     HOLD1
    4246  F530  09 40                       ORA     #$40
    4247  F532  20 17 F9                    JSR     STORE
    4248  F535  A9 70                       LDA     #$70        ;24 BLANK LINES
    4249  F537  20 17 F9                    JSR     STORE
    4250  F53A  A9 70                       LDA     #$70
    4251  F53C  20 17 F9                    JSR     STORE
    4252  F53F  A5 64                       LDA     ADRESS      ;SAVE DISPLAY LIST ADDRESS
    4253  F541  8D 30 02                    STA     SDLSTL
    4254  F544  A5 65                       LDA     ADRESS+1
    4255  F546  8D 31 02                    STA     SDLSTL+1
    4256  F549  A9 70                       LDA     #$70        ;ADD LAST BLANK LINE ENTRY
    4257  F54B  20 17 F9                    JSR     STORE       ;POSITION ADRESS=SDLSTL-1
    4258  F54E  A5 64                       LDA     ADRESS      ;STORE NEW MEMTOP
    4259  F550  8D E5 02                    STA     MEMTOP
    4260  F553  A5 65                       LDA     ADRESS+1
    4261  F555  8D E6 02                    STA     MEMTOP+1
    4262  F558  A5 68                       LDA     SAVADR
    4263  F55A  85 64                       STA     ADRESS
    4264  F55C  A5 69                       LDA     SAVADR+1
    4265  F55E  85 65                       STA     ADRESS+1
    4266  F560  AD 31 02                    LDA     SDLSTL+1
    4267  F563  20 17 F9                    JSR     STORE
    4268  F566  AD 30 02                    LDA     SDLSTL
    4269  F569  20 17 F9                    JSR     STORE
    4270  F56C  A5 4C                       LDA     DSTAT       ;IF ERROR OCURRED ON ALLOCATION, OPEN THE EDITOR
    4271  F56E  10 07                       BPL     DOPEN9
    4272  F570  48                          PHA                 ;SAVE STATUS
    4273  F571  20 FC F3                    JSR     EOPEN       ;OPEN THE EDITOR
    4274  F574  68                          PLA                 ;RESTORE STATUS
    4275  F575  A8                          TAY                 ;AND RETURN IT TO CIO
    4276  F576  60                          RTS
    4277  F577  A5 2A               DOPEN9: LDA     ICAX1Z      ;TEST CLEAR INHIBIT BIT
    4278  F579  29 20                       AND     #$20
    4279  F57B  D0 0B                       BNE     DOPEN7
    4280  F57D  20 B9 F7                    JSR     CLRSCR      ;CLEAR SCREEN
    4281  F580  8D 90 02                    STA     TXTROW      ;AND HOME TEXT CURSOR (AC IS ZERO)
    4282  F583  A5 52                       LDA     LMARGN
    4283  F585  8D 91 02                    STA     TXTCOL
    4284  F588  A9 22               DOPEN7: LDA     #$22        ;EVERYTHING ELSE IS SET UP
    4285  F58A  0D 2F 02                    ORA     SDMCTL      ;SO TURN ON DMACTL
    4286  F58D  8D 2F 02                    STA     SDMCTL
    4287  F590  4C 21 F6                    JMP     RETUR2
    4288                            ;
    4289                            ;
    4290  F593  20 96 FA            GETCH:  JSR     RANGE       ;GETCH DOES INCRSR, GETPLT DOESN'T
    4291  F596  20 A2 F5                    JSR     GETPLT
    4292  F599  20 32 FB                    JSR     INATAC      ;CONVERT INTERNAL CODE TO ATASCII
    4293  F59C  20 D4 F9                    JSR     INCRSB
    4294  F59F  4C 34 F6                    JMP     RETUR1
    4295  F5A2  20 47 F9            GETPLT: JSR     CONVRT      ;CONVERT ROW/COLUMN TO ADRESS
    4296  F5A5  B1 64                       LDA     (ADRESS),Y
    4297  F5A7  2D A0 02                    AND     DMASK
    4298  F5AA  46 6F               SHIFTD: LSR     SHFAMT      ;SHIFT DATA DOWN TO LOW BITS
    4299  F5AC  B0 03                       BCS     SHIFT1
    4300  F5AE  4A                          LSR     A
    4301  F5AF  10 F9                       BPL     SHIFTD      ;(UNCONDITIONAL)
    4302  F5B1  8D FA 02            SHIFT1: STA     CHAR
    4303  F5B4  C9 00                       CMP     #0          ;RESTORE FLAGS ALSO
    4304  F5B6  60                          RTS
    4305                            ;
    4306                            ;
    4307                            ;
    4308  F5B7  8D FB 02            OUTCH:  STA     ATACHR
    4309  F5BA  20 96 FA                    JSR     RANGE
    4310                            ;       JSR     OFFCRS
    4311  F5BD  AD FB 02            OUTCHA: LDA     ATACHR      ;TEST FOR CLEAR SCREEN
    4312  F5C0  C9 7D                       CMP     #CLRCOD
    4313  F5C2  D0 06                       BNE     OUTCHE
    4314  F5C4  20 B9 F7                    JSR     CLRSCR
    4315  F5C7  4C 21 F6                    JMP     RETUR2
    4316  F5CA  AD FB 02            OUTCHE: LDA     ATACHR      ;TEST FOR CARRIAGE RETURN
    4317  F5CD  C9 9B                       CMP     #CR
    4318  F5CF  D0 06                       BNE     OUTCHB
    4319  F5D1  20 30 FA                    JSR     DOCRWS      ;DO CR
    4320  F5D4  4C 21 F6                    JMP     RETUR2
    4321  F5D7  20 E0 F5            OUTCHB: JSR     OUTPLT
    4322  F5DA  20 D8 F9                    JSR     INCRSR
    4323  F5DD  4C 21 F6                    JMP     RETUR2
    4324                            ;
    4325                            ;
    4326  F5E0  AD FF 02            OUTPLT: LDA     SSFLAG      ;*****LOOP HERE IF START/STOP FLAG IS NON-0
    4327  F5E3  D0 FB                       BNE     OUTPLT
    4328  F5E5  A2 02                       LDX     #2
    4329  F5E7  B5 54               CRLOOP: LDA     ROWCRS,X    ;SAVE CURSOR LOCATION FOR DRAW LINE TO DRAW FROM
    4330  F5E9  95 5A                       STA     OLDROW,X
    4331  F5EB  CA                          DEX
    4332  F5EC  10 F9                       BPL     CRLOOP
    4333  F5EE  AD FB 02                    LDA     ATACHR      ;CONVERT ATASCII(ATACHR) TO INTERNAL(CHAR)
    4334  F5F1  A8                          TAY                 ;SAVE ATACHR
    4335  F5F2  2A                          ROL     A
    4336  F5F3  2A                          ROL     A
    4337  F5F4  2A                          ROL     A
    4338  F5F5  2A                          ROL     A
    4339  F5F6  29 03                       AND     #3
    4340  F5F8  AA                          TAX                 ;X HAS INDEX INTO ATAINT
    4341  F5F9  98                          TYA                 ;RESTORE ATACHR
    4342  F5FA  29 9F                       AND     #$9F        ;STRIP OFF COLUMN ADDRESS
    4343  F5FC  1D F6 FE                    ORA     ATAINT,X    ;OR IN NEW COLUMN ADDRESS
    4344  F5FF  8D FA 02            OUTCH2: STA     CHAR
    4345  F602  20 47 F9                    JSR     CONVRT
    4346  F605  AD FA 02                    LDA     CHAR
    4347  F608  46 6F               SHIFTU: LSR     SHFAMT      ;SHIFT UP TO PROPER POSITION
    4348  F60A  B0 04                       BCS     SHIFT2
    4349  F60C  0A                          ASL     A
    4350  F60D  4C 08 F6                    JMP     SHIFTU
    4351  F610  2D A0 02            SHIFT2: AND     DMASK
    4352  F613  85 50                       STA     TMPCHR      ;SAVE SHIFTED DATA
    4353  F615  AD A0 02                    LDA     DMASK       ;INVERT MASK
    4354  F618  49 FF                       EOR     #$FF
    4355  F61A  31 64                       AND     (ADRESS),Y  ;MASK OFF OLD DATA
    4356  F61C  05 50                       ORA     TMPCHR      ;OR IN NEW DATA
    4357  F61E  91 64                       STA     (ADRESS),Y
    4358  F620  60                          RTS
    4359                            ;
    4360                            ;
    4361  F621  20 A2 F5            RETUR2: JSR     GETPLT      ;DO CURSOR ON THE WAY OUT
    4362  F624  85 5D                       STA     OLDCHR
    4363  F626  A6 57                       LDX     DINDEX      ;GRAPHICS HAVE INVISIBLE CURSOR
    4364  F628  D0 0A                       BNE     RETUR1
    4365  F62A  AE F0 02                    LDX     CRSINH      ;TEST CURSOR INHIBIT
    4366  F62D  D0 05                       BNE     RETUR1
    4367  F62F  49 80                       EOR     #$80        ;TOGGLE MSB
    4368  F631  20 FF F5                    JSR     OUTCH2      ;DISPLAY IT
    4369  F634  A4 4C               RETUR1: LDY     DSTAT       ;RETURN TO CIO WITH STATUS IN Y
    4370  F636  A9 01                       LDA     #SUCCES
    4371  F638  85 4C                       STA     DSTAT       ;SET STATUS= SUCCESSFUL COMPLETION
    4372  F63A  AD FB 02                    LDA     ATACHR      ;PUT ATACHR IN AC FOR RETURN TO CIO
    4373  F63D  60                  NOFUNC: RTS                 ;(NON-EXISTENT FUNCTION RETURN POINT)
    4374                            ;
    4375                            ;
    4376                            ;
    4377                            ; END OF DISPLAY HANDLER
    4378                            ;
    4379                                    .PAGE
    4380                            ;
    4381                            ;
    4382                            ;
    4383                            ;
    4384  F63E  20 B3 FC            EGETCH: JSR     SWAP
    4385  F641  20 88 FA                    JSR     ERANGE
    4386  F644  A5 6B                       LDA     BUFCNT      ;ANYTHING IN THE BUFFER?
    4387  F646  D0 34                       BNE     EGETC3      ;YES
    4388  F648  A5 54                       LDA     ROWCRS      ;NO, SO SAVE BUFFER START ADDRESS
    4389  F64A  85 6C                       STA     BUFSTR
    4390  F64C  A5 55                       LDA     COLCRS
    4391  F64E  85 6D                       STA     BUFSTR+1
    4392  F650  20 E2 F6            EGETC1: JSR     KGETCH ;LET'S FILL OUR BUFFER
    4393  F653  84 4C                       STY     DSTAT       ;SAVE KEYBOARD STATUS
    4394  F655  AD FB 02                    LDA     ATACHR      ;TEST FOR CR
    4395  F658  C9 9B                       CMP     #CR
    4396  F65A  F0 12                       BEQ     EGETC2
    4397  F65C  20 AD F6                    JSR     DOSS        ;NO, SO PRINT IT
    4398  F65F  20 B3 FC                    JSR     SWAP        ;JSR DOSS DID SWAP SO SWAP BACK
    4399  F662  A5 63                       LDA     LOGCOL      ;BEEP IF NEARING LOGICAL COL 120
    4400  F664  C9 71                       CMP     #113
    4401  F666  D0 03                       BNE     EGETC6
    4402  F668  20 0A F9                    JSR     BELL
    4403  F66B  4C 50 F6            EGETC6: JMP     EGETC1
    4404  F66E  20 E4 FA            EGETC2: JSR     OFFCRS      ;GET BUFFER COUNT
    4405  F671  20 00 FC                    JSR     DOBUFC
    4406  F674  A5 6C                       LDA     BUFSTR      ;RETURN A CHARACTER
    4407  F676  85 54                       STA     ROWCRS
    4408  F678  A5 6D                       LDA     BUFSTR+1
    4409  F67A  85 55                       STA     COLCRS
    4410  F67C  A5 6B               EGETC3: LDA     BUFCNT
    4411  F67E  F0 11                       BEQ     EGETC5
    4412  F680  C6 6B               EGETC7: DEC     BUFCNT      ;AND RETURN TILL BUFCNT=0
    4413  F682  F0 0D                       BEQ     EGETC5
    4414  F684  A5 4C                       LDA     DSTAT       ;IF ERR, LOOP ON EGETC7 UNTIL BUFR IS EMPTIED
    4415  F686  30 F8                       BMI     EGETC7
    4416  F688  20 93 F5                    JSR     GETCH
    4417  F68B  8D FB 02                    STA     ATACHR
    4418  F68E  4C B3 FC                    JMP     SWAP        ;AND RETURN WITHOUT TURNING CURSOR BACK ON
    4419  F691  20 30 FA            EGETC5: JSR     DOCRWS      ;DO REAL CARRIAGE RETURN
    4420  F694  A9 9B                       LDA     #CR         ;AND RETURN EOL
    4421  F696  8D FB 02                    STA     ATACHR
    4422  F699  20 21 F6                    JSR     RETUR2      ;TURN ON CURSOR THEN SWAP
    4423  F69C  84 4C                       STY     DSTAT       ;SAVE KEYBOARD STATUS
    4424  F69E  4C B3 FC                    JMP     SWAP        ;AND RETURN THROUGH RETUR1
    4425                            ;
    4426  F6A1  6C 64 00            JSRIND: JMP     (ADRESS)    ;JSR TO THIS CAUSES JSR INDIRECT
    4427                            ;
    4428  F6A4  8D FB 02            EOUTCH: STA     ATACHR      ;SAVE ATASCII VALUE
    4429  F6A7  20 B3 FC                    JSR     SWAP
    4430  F6AA  20 88 FA                    JSR     ERANGE
    4431  F6AD  20 E4 FA            DOSS:   JSR     OFFCRS      ;TURN OFF CURSOR
    4432  F6B0  20 8D FC                    JSR     TSTCTL      ;TEST FOR CONTROL CHARACTERS (Z=1 IF CTL)
    4433  F6B3  F0 09                       BEQ     EOUTC5
    4434  F6B5  0E A2 02            EOUTC6: ASL     ESCFLG      ;ESCFLG ONLY WORKS ONCE
    4435  F6B8  20 CA F5                    JSR     OUTCHE
    4436  F6BB  4C B3 FC            ERETN:  JMP     SWAP        ;AND RETURN THROUGH RETUR1
    4437  F6BE  AD FE 02            EOUTC5: LDA     DSPFLG      ;DO DSPFLG AND ESCFLG
    4438  F6C1  0D A2 02                    ORA     ESCFLG
    4439  F6C4  D0 EF                       BNE     EOUTC6      ;IF NON-0 DISPLAY RATHER THAN EXECUTE IT
    4440  F6C6  0E A2 02                    ASL     ESCFLG
    4441  F6C9  E8                          INX                 ;PROCESS CONTROL CHARACTERS
    4442  F6CA  BD C6 FE                    LDA     CNTRLS,X    ;GET DISPLACEMENT INTO ROUTINE
    4443  F6CD  85 64                       STA     ADRESS
    4444  F6CF  BD C7 FE                    LDA     CNTRLS+1,X  ;GET HIGH BYTE
    4445  F6D2  85 65                       STA     ADRESS+1
    4446  F6D4  20 A1 F6                    JSR     JSRIND      ;DO COMPUTED JSR
    4447  F6D7  20 21 F6                    JSR     RETUR2      ;DO CURSOR
    4448  F6DA  4C B3 FC                    JMP     SWAP        ;ALL DONE SO RETURN THROUGH RETUR1
    4449                            ;
    4450                            ;
    4451                            ;
    4452                            ;
    4453                            ; END SCREEN EDITOR.
    4454                            ;
    4455                            ;
    4456                            ; BEGIN KEYBOARD HANDLER
    4457                            ;
    4458                            ;
    4459                            ;
    4460                            ;
    4461  F6DD  A9 FF               KGETC2: LDA     #$FF
    4462  F6DF  8D FC 02                    STA     CH
    4463  F6E2  A5 2A               KGETCH: LDA     ICAX1Z      ;TEST LSB OF AUX1 FOR SPECIAL EDITOR READ MODE
    4464  F6E4  4A                          LSR     A
    4465  F6E5  B0 62                       BCS     GETOUT
    4466  F6E7  A9 80                       LDA     #BRKABT
    4467  F6E9  A6 11                       LDX     BRKKEY      ;TEST BREAK
    4468  F6EB  F0 58                       BEQ     K7          ;IF BREAK, PUT BRKABT IN DSTAT AND CR IN ATACHR
    4469  F6ED  AD FC 02                    LDA     CH
    4470  F6F0  C9 FF                       CMP     #$FF
    4471  F6F2  F0 EE                       BEQ     KGETCH
    4472  F6F4  85 7C                       STA     HOLDCH      ;SAVE CH FOR SHIFT LOCK PROC
    4473  F6F6  A2 FF                       LDX     #$FF        ;"CLEAR" CH
    4474  F6F8  8E FC 02                    STX     CH
    4475  F6FB  20 D8 FC                    JSR     CLICK       ;DO KEYBOARD AUDIO FEEDBACK (A IS OK)
    4476  F6FE  AA                  KGETC3: TAX                 ;DO ASCCON
    4477  F6FF  E0 C0                       CPX     #$C0        ;TEST FOR CTL & SHIFT TOGETHER
    4478  F701  90 02                       BCC     ASCCO1
    4479  F703  A2 03                       LDX     #3          ;BAD CODE
    4480  F705  BD FE FE            ASCCO1: LDA     ATASCI,X
    4481  F708  8D FB 02                    STA     ATACHR      ;DONE
    4482  F70B  C9 80                       CMP     #$80        ;DO NULLS
    4483  F70D  F0 CE                       BEQ     KGETC2
    4484  F70F  C9 81                       CMP     #$81        ;CHECK ATARI KEY
    4485  F711  D0 0B                       BNE     KGETC1
    4486  F713  AD B6 02                    LDA     INVFLG
    4487  F716  49 80                       EOR     #$80
    4488  F718  8D B6 02                    STA     INVFLG
    4489  F71B  4C DD F6                    JMP     KGETC2      ;DONT RETURN A VALUE
    4490  F71E  C9 82               KGETC1: CMP     #$82        ;CAPS/LOWER
    4491  F720  D0 07                       BNE     K1
    4492  F722  A9 00                       LDA     #0          ;CLEAR SHFLOK
    4493  F724  8D BE 02                    STA     SHFLOK
    4494  F727  F0 B4                       BEQ     KGETC2
    4495  F729  C9 83               K1:     CMP     #$83        ;SHIFT CAPS/LOWER
    4496  F72B  D0 07                       BNE     K2
    4497  F72D  A9 40                       LDA     #$40
    4498  F72F  8D BE 02                    STA     SHFLOK      ;SHIFT BIT
    4499  F732  D0 A9                       BNE     KGETC2
    4500  F734  C9 84               K2:     CMP     #$84        ;CNTL CAPS/LOWER
    4501  F736  D0 07                       BNE     K3
    4502  F738  A9 80                       LDA     #$80        ;CNTL BIT
    4503  F73A  8D BE 02                    STA     SHFLOK
    4504  F73D  D0 9E                       BNE     KGETC2
    4505  F73F  C9 85               K3:     CMP     #$85        ;DO EOF
    4506  F741  D0 0A                       BNE     K6
    4507  F743  A9 88                       LDA     #EOFERR
    4508  F745  85 4C               K7:     STA     DSTAT
    4509  F747  85 11                       STA     BRKKEY      ;RESTORE BREAK
    4510  F749  A9 9B               GETOUT: LDA     #CR         ;PUT CR IN ATACHR
    4511  F74B  D0 26                       BNE     K8          ;(UNCONDITIONAL)
    4512  F74D  A5 7C               K6:     LDA     HOLDCH      ;PROCESS SHIFT LOCKS
    4513  F74F  C9 40                       CMP     #$40        ;REGULAR SHIFT AND CONTROL TAKE PRECEDENCE
    4514  F751  B0 15                       BCS     K5          ;OVER LOCK
    4515  F753  AD FB 02                    LDA     ATACHR      ;TEST FOR ALPHA
    4516  F756  C9 61                       CMP     #$61        ;LOWER CASE A
    4517  F758  90 0E                       BCC     K5          ;NOT ALPHA IF LT
    4518  F75A  C9 7B                       CMP     #$7B        ;LOWER CASE Z+1
    4519  F75C  B0 0A                       BCS     K5          ;NOT ALPHA IF GE
    4520  F75E  AD BE 02                    LDA     SHFLOK      ;DO SHIFT/CONTROL LOCK
    4521  F761  F0 05                       BEQ     K5          ;IF NO LOCK, DONT RE-DO IT
    4522  F763  05 7C                       ORA     HOLDCH
    4523  F765  4C FE F6                    JMP     KGETC3      ;DO RETRY
    4524  F768  20 8D FC            K5:     JSR     TSTCTL      ;DONT INVERT MSB OF CONTROL CHARACTERS
    4525  F76B  F0 09                       BEQ     K4
    4526  F76D  AD FB 02                    LDA     ATACHR
    4527  F770  4D B6 02                    EOR     INVFLG
    4528  F773  8D FB 02            K8:     STA     ATACHR
    4529  F776  4C 34 F6            K4:     JMP     RETUR1      ;ALL DONE
    4530                            ;
    4531                            ;
    4532                                    .PAGE
    4533                            ;
    4534                            ;
    4535                            ; CONTROL CHARACTER PROCESSORS
    4536                            ;
    4537  F779  A9 80               ESCAPE: LDA     #$80        ;SET ESCAPE FLAG
    4538  F77B  8D A2 02                    STA     ESCFLG
    4539  F77E  60                          RTS
    4540  F77F  C6 54               CRSRUP: DEC     ROWCRS
    4541  F781  10 06                       BPL     COMRET
    4542  F783  AE BF 02                    LDX     BOTSCR      ;WRAPAROUND
    4543  F786  CA                          DEX
    4544  F787  86 54               UPDNCM: STX     ROWCRS
    4545  F789  4C 5C FC            COMRET: JMP     STRBEG      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4546  F78C  E6 54               CRSRDN: INC     ROWCRS
    4547  F78E  A5 54                       LDA     ROWCRS
    4548  F790  CD BF 02                    CMP     BOTSCR
    4549  F793  90 F4                       BCC     COMRET
    4550  F795  A2 00                       LDX     #0
    4551  F797  F0 EE                       BEQ     UPDNCM      ;(UNCONDITIONAL)
    4552  F799  C6 55               CRSRLF: DEC     COLCRS
    4553  F79B  A5 55                       LDA     COLCRS
    4554  F79D  30 04                       BMI     CRSRL1      ;(IF LMARGN=0, THIS ELIMINATES PROBLEM CASE)
    4555  F79F  C5 52                       CMP     LMARGN
    4556  F7A1  B0 04                       BCS     COMRE1
    4557  F7A3  A5 53               CRSRL1: LDA     RMARGN
    4558  F7A5  85 55               LFRTCM: STA     COLCRS
    4559  F7A7  4C DD FB            COMRE1: JMP     DOLCOL      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4560  F7AA  E6 55               CRSRRT: INC     COLCRS
    4561  F7AC  A5 55                       LDA     COLCRS
    4562  F7AE  C5 53                       CMP     RMARGN
    4563  F7B0  90 F5                       BCC     COMRE1
    4564  F7B2  F0 F3                       BEQ     COMRE1      ;(CAUSE BLE)
    4565  F7B4  A5 52                       LDA     LMARGN
    4566  F7B6  4C A5 F7                    JMP     LFRTCM      ;UNCONDITIONAL TO COMMON STORE
    4567  F7B9  20 F3 FC            CLRSCR: JSR     PUTMSC
    4568  F7BC  A0 00                       LDY     #0
    4569  F7BE  98                          TYA                 ;PUT 0 IN THE AC
    4570  F7BF  91 64               CLRSC2: STA     (ADRESS),Y  ;(AC IS ZERO)
    4571  F7C1  C8                          INY
    4572  F7C2  D0 FB                       BNE     CLRSC2
    4573  F7C4  E6 65                       INC     ADRESS+1
    4574  F7C6  A6 65                       LDX     ADRESS+1
    4575  F7C8  E4 6A                       CPX     RAMTOP
    4576  F7CA  90 F3                       BCC     CLRSC2
    4577  F7CC  A9 FF                       LDA     #$FF        ;CLEAN UP LOGICAL LINE BIT MAP
    4578  F7CE  99 B2 02            CLRSC3: STA     LOGMAP,Y    ;(Y IS ZERO AFTER CLRSC2 LOOP)
    4579  F7D1  C8                          INY
    4580  F7D2  C0 04                       CPY     #4
    4581  F7D4  90 F8                       BCC     CLRSC3
    4582  F7D6  20 E4 FC            HOME:   JSR     COLCR       ;PLACE COLCRS AT LEFT EDGE
    4583  F7D9  85 63                       STA     LOGCOL
    4584  F7DB  85 6D                       STA     BUFSTR+1
    4585  F7DD  A9 00                       LDA     #0
    4586  F7DF  85 54                       STA     ROWCRS
    4587  F7E1  85 56                       STA     COLCRS+1
    4588  F7E3  85 6C                       STA     BUFSTR
    4589  F7E5  60                          RTS
    4590                            ;
    4591  F7E6  A5 63               BS:     LDA     LOGCOL      ;BACKSPACE
    4592  F7E8  C5 52                       CMP     LMARGN
    4593  F7EA  F0 21                       BEQ     BS1
    4594  F7EC  A5 55               BSA:    LDA     COLCRS      ;LEFT EDGE?
    4595  F7EE  C5 52                       CMP     LMARGN
    4596  F7F0  D0 03                       BNE     BS3         ;NO
    4597  F7F2  20 73 FC                    JSR     DELTIM      ;YES, SEE IF LINE SHOULD BE DELETED
    4598  F7F5  20 99 F7            BS3:    JSR     CRSRLF
    4599  F7F8  A5 55                       LDA     COLCRS
    4600  F7FA  C5 53                       CMP     RMARGN
    4601  F7FC  D0 07                       BNE     BS2
    4602  F7FE  A5 54                       LDA     ROWCRS
    4603  F800  F0 03                       BEQ     BS2
    4604  F802  20 7F F7                    JSR     CRSRUP
    4605  F805  A9 20               BS2:    LDA     #$20        ;MAKE BACKSPACE DESTRUCTIVE
    4606  F807  8D FB 02                    STA     ATACHR
    4607  F80A  20 E0 F5                    JSR     OUTPLT
    4608  F80D  4C DD FB            BS1:    JMP     DOLCOL      ;AND RETURN
    4609  F810  20 AA F7            TAB:    JSR     CRSRRT      ;BEGIN SEARCH
    4610  F813  A5 55                       LDA     COLCRS      ;TEST FOR NEW LINE
    4611  F815  C5 52                       CMP     LMARGN
    4612  F817  D0 0A                       BNE     TAB1        ;NO
    4613  F819  20 34 FA                    JSR     DOCR        ;DO CARRIAGE RETURN
    4614  F81C  20 20 FB                    JSR     LOGGET      ;CHECK IF END OF LOGICAL LINE
    4615  F81F  90 02                       BCC     TAB1        ;NO, CONTINUE
    4616  F821  B0 07                       BCS     TAB2        ;(UNCONDITIONAL)
    4617  F823  A5 63               TAB1:   LDA     LOGCOL      ;CHECK FOR TAB STOP
    4618  F825  20 25 FB                    JSR     BITGET
    4619  F828  90 E6                       BCC     TAB         ;NO, SO KEEP LOOKING
    4620  F82A  4C DD FB            TAB2:   JMP     DOLCOL      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4621  F82D  A5 63               SETTAB: LDA     LOGCOL
    4622  F82F  4C 06 FB                    JMP     BITSET      ;SET BIT IN MAP AND RETURN
    4623  F832  A5 63               CLRTAB: LDA     LOGCOL
    4624  F834  4C 12 FB                    JMP     BITCLR      ;CLEAR " " " " "
    4625  F837  20 9D FC            INSCHR: JSR     PHACRS
    4626  F83A  20 A2 F5                    JSR     GETPLT      ;GET CHARACTER UNDER CURSOR
    4627  F83D  85 7D                       STA     INSDAT
    4628  F83F  A9 00                       LDA     #0
    4629  F841  8D BB 02                    STA     SCRFLG
    4630  F844  20 FF F5            INSCH4: JSR     OUTCH2      ;STORE DATA
    4631  F847  A5 63                       LDA     LOGCOL      ;SAVE LOGCOL: IF AFTER INCRSA LOGCOL IS
    4632  F849  48                          PHA                 ;< THAN IT IS NOW, END LOOP
    4633  F84A  20 DC F9                    JSR     INCRSA      ;SPECIAL INCRSR ENTRY POINT
    4634  F84D  68                          PLA
    4635  F84E  C5 63                       CMP     LOGCOL
    4636  F850  B0 0C                       BCS     INSCH3      ;QUIT
    4637  F852  A5 7D               INSCH1: LDA     INSDAT      ;KEEP GOING
    4638  F854  48                          PHA
    4639  F855  20 A2 F5                    JSR     GETPLT
    4640  F858  85 7D                       STA     INSDAT
    4641  F85A  68                          PLA
    4642  F85B  4C 44 F8                    JMP     INSCH4
    4643  F85E  20 A8 FC            INSCH3: JSR     PLACRS
    4644  F861  CE BB 02            INSCH6: DEC     SCRFLG
    4645  F864  30 04                       BMI     INSCH5      ;IF SCROLL OCCURRED
    4646  F866  C6 54                       DEC     ROWCRS      ;MOVE CURSOR UP
    4647  F868  D0 F7                       BNE     INSCH6      ;(UNCOND) CONTINUE UNTIL SCRFLG IS MINUS
    4648  F86A  4C DD FB            INSCH5: JMP     DOLCOL      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4649                            ;
    4650                            ;
    4651  F86D  20 9D FC            DELCHR: JSR     PHACRS
    4652  F870  20 47 F9            DELCH1: JSR     CONVRT      ;GET DATA TO THE RIGHT OF THE CURSOR
    4653  F873  A5 64                       LDA     ADRESS
    4654  F875  85 68                       STA     SAVADR      ;SAVE ADRESS TO KNOW WHERE TO PUT DATA
    4655  F877  A5 65                       LDA     ADRESS+1
    4656  F879  85 69                       STA     SAVADR+1
    4657  F87B  A5 63                       LDA     LOGCOL
    4658  F87D  48                          PHA
    4659  F87E  20 D4 F9                    JSR     INCRSB      ;PUT CURSOR OVER NEXT CHARACTER
    4660  F881  68                          PLA
    4661  F882  C5 63                       CMP     LOGCOL      ;TEST NEW LOGCOL AGAINST OLD LOGCOL
    4662  F884  B0 10                       BCS     DELCH2      ;IF OLD.GE.NEW THEN QUIT
    4663  F886  A5 54                       LDA     ROWCRS      ;IS ROW OFF SCREEN?
    4664  F888  CD BF 02                    CMP     BOTSCR
    4665  F88B  B0 09                       BCS     DELCH2      ;YES, SO QUIT
    4666  F88D  20 A2 F5                    JSR     GETPLT      ;GET DATA UNDER CURSOR
    4667  F890  A0 00                       LDY     #0
    4668  F892  91 68                       STA     (SAVADR),Y  ;PUT IT IN PREVIOUS POSITION
    4669  F894  F0 DA                       BEQ     DELCH1      ;AND LOOP (UNCONDITIONAL)
    4670  F896  A0 00               DELCH2: LDY     #0
    4671  F898  98                          TYA
    4672  F899  91 68                       STA     (SAVADR),Y  ;CLEAR THE LAST POSITION
    4673  F89B  20 68 FC                    JSR     DELTIA      ;TRY TO DELETE A LINE
    4674  F89E  20 A8 FC                    JSR     PLACRS
    4675  F8A1  4C DD FB                    JMP     DOLCOL      ;AND RETURN
    4676  F8A4  38                  INSLIN: SEC                 ;NORMAL INSLIN PUTS "1" INTO BIT MAP
    4677  F8A5  20 7B FB            INSLIA: JSR     EXTEND      ;ENTRY POINT FOR C=0
    4678  F8A8  A5 52                       LDA     LMARGN      ;DO CARRIAGE RETURN (NO LF)
    4679  F8AA  85 55                       STA     COLCRS
    4680  F8AC  20 47 F9                    JSR     CONVRT      ;GET ADDRESS
    4681  F8AF  A5 64                       LDA     ADRESS      ;SET UP T0=40+FROM (FROM = CURSOR)
    4682  F8B1  85 68                       STA     FRMADR
    4683  F8B3  18                          CLC
    4684  F8B4  69 28                       ADC     #40
    4685  F8B6  85 66                       STA     TOADR
    4686  F8B8  A5 65                       LDA     ADRESS+1
    4687  F8BA  85 69                       STA     FRMADR+1
    4688  F8BC  69 00                       ADC     #0
    4689  F8BE  85 67                       STA     TOADR+1
    4690  F8C0  A6 54                       LDX     ROWCRS      ;SET UP LOOP COUNTER
    4691  F8C2  E0 17                       CPX     #23
    4692  F8C4  F0 08                       BEQ     INSLI2
    4693  F8C6  20 4E FB            INSLI1: JSR     MOVLIN
    4694  F8C9  E8                          INX
    4695  F8CA  E0 17                       CPX     #23
    4696  F8CC  D0 F8                       BNE     INSLI1
    4697  F8CE  20 9B FB            INSLI2: JSR     CLRLIN      ;CLEAR CURRENT LINE
    4698  F8D1  4C DD FB                    JMP     DOLCOL      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4699  F8D4  20 DD FB            DELLIN: JSR     DOLCOL      ;GET BEGINNING OF LOG LINE (HOLD1)
    4700  F8D7  A4 51               DELLIA: LDY     HOLD1       ;SQUEEZE BIT MAP
    4701  F8D9  84 54                       STY     ROWCRS      ;PUT CURSOR THERE
    4702  F8DB  A4 54               DELLIB: LDY     ROWCRS
    4703  F8DD  98                  DELLI1: TYA
    4704  F8DE  38                          SEC
    4705  F8DF  20 23 FB                    JSR     LO2GET      ;GET NEXT BIT
    4706  F8E2  08                          PHP
    4707  F8E3  98                          TYA
    4708  F8E4  18                          CLC
    4709  F8E5  69 78                       ADC     #120
    4710  F8E7  28                          PLP
    4711  F8E8  20 04 FB                    JSR     BITPUT      ;WRITE IT OVER PRESENT BIT
    4712  F8EB  C8                          INY
    4713  F8EC  C0 18                       CPY     #24
    4714  F8EE  D0 ED                       BNE     DELLI1      ;LOOP
    4715  F8F0  AD B4 02                    LDA     LOGMAP+2    ;SET LSB
    4716  F8F3  09 01                       ORA     #1
    4717  F8F5  8D B4 02                    STA     LOGMAP+2
    4718  F8F8  A5 52               DELLI2: LDA     LMARGN      ;DELETE LINE OF DATA USING PART OF SCROLL
    4719  F8FA  85 55                       STA     COLCRS      ;CR NO LF
    4720  F8FC  20 47 F9                    JSR     CONVRT
    4721  F8FF  20 B7 FB                    JSR     SCROL1
    4722  F902  20 20 FB                    JSR     LOGGET      ;TEST NEXT LINE FOR CONTINUATION
    4723                            ; IS IT A NEW LOG LINE?
    4724  F905  90 D4                       BCC     DELLIB      ;NO SO DELETE ANOTHER
    4725  F907  4C DD FB                    JMP     DOLCOL      ;YES SO DOLCOL AND RETURN
    4726  F90A  A0 20               BELL:   LDY     #$20
    4727  F90C  20 D8 FC            BELL1:  JSR     CLICK
    4728  F90F  88                          DEY
    4729  F910  10 FA                       BPL     BELL1
    4730  F912  60                          RTS
    4731                                    .PAGE
    4732                            ;
    4733                            ;
    4734                            ; ROUTINES
    4735                            ;
    4736                            ;
    4737                            ; DOUBLE BYTE DECREMENT OF INDIRECT POINTER
    4738                            ; INCLUDING DB SUBTRACT AND DB DOUBLE DECREMENT
    4739                            ;
    4740  F913  A9 02               DBDDEC: LDA     #2
    4741  F915  D0 0A                       BNE     DBSUB       ;(UNCONDITIONAL)
    4742                            ;
    4743                            ; STORE DATA INDIRECT AND DECREMENT POINTER
    4744                            ; (PLACED HERE TO SAVE JMP DBDEC AFTER STORE)
    4745  F917  A4 4C               STORE:  LDY     DSTAT       ;RETURN ON ERROR
    4746  F919  30 2B                       BMI     STROK
    4747  F91B  A0 00                       LDY     #0
    4748  F91D  91 64               STORE1: STA     (ADRESS),Y
    4749                            ;       JMP     DBDEC       DECREMENT AND RETURN
    4750                            ;
    4751  F91F  A9 01               DBDEC:  LDA     #1
    4752  F921  8D 9E 02            DBSUB:  STA     SUBTMP
    4753  F924  A5 4C                       LDA     DSTAT       ;RETURN ON ERROR
    4754  F926  30 1E                       BMI     STROK
    4755  F928  A5 64                       LDA     ADRESS
    4756  F92A  38                          SEC
    4757  F92B  ED 9E 02                    SBC     SUBTMP
    4758  F92E  85 64                       STA     ADRESS
    4759  F930  B0 02                       BCS     DBSUB1
    4760  F932  C6 65                       DEC     ADRESS+1
    4761  F934  A5 0F               DBSUB1: LDA     APPMHI+1    ;MAKE SURE NOTHING EVER OVERWRITES APPMHI
    4762  F936  C5 65                       CMP     ADRESS+1
    4763  F938  90 0C                       BCC     STROK       ;OK
    4764  F93A  D0 06                       BNE     STRERR      ;ERROR
    4765  F93C  A5 0E                       LDA     APPMHI
    4766  F93E  C5 64                       CMP     ADRESS
    4767  F940  90 04                       BCC     STROK
    4768  F942  A9 93               STRERR: LDA     #SCRMEM     ;SHOW MEM TOO SMALL FOR SCREEN ERROR
    4769  F944  85 4C                       STA     DSTAT
    4770  F946  60                  STROK:  RTS
    4771                            ;
    4772                            ;
    4773                            ;
    4774                            ; CONVERT ROW/COLUMN CURSOR INTO REAL ADDRESS (FROM SAVMSC ON UP)
    4775                            ;
    4776  F947  A5 54               CONVRT: LDA     ROWCRS      ;SAVE CURSOR
    4777  F949  48                          PHA
    4778  F94A  A5 55                       LDA     COLCRS
    4779  F94C  48                          PHA
    4780  F94D  A5 56                       LDA     COLCRS+1
    4781  F94F  48                          PHA
    4782  F950  20 F3 FC                    JSR     PUTMSC
    4783  F953  A5 54                       LDA     ROWCRS      ;PUT 10*ROWCRS INTO MLTTMP
    4784  F955  85 66                       STA     MLTTMP
    4785  F957  A9 00                       LDA     #0
    4786  F959  85 67                       STA     MLTTMP+1
    4787  F95B  A5 66                       LDA     MLTTMP      ;QUICK X8
    4788  F95D  0A                          ASL     A
    4789  F95E  26 67                       ROL     MLTTMP+1
    4790  F960  85 51                       STA     HOLD1       ;(SAVE 2X VALUE)
    4791  F962  A4 67                       LDY     MLTTMP+1    ;""
    4792  F964  8C 9F 02                    STY     HOLD2       ;""
    4793  F967  0A                          ASL     A
    4794  F968  26 67                       ROL     MLTTMP+1
    4795  F96A  0A                          ASL     A
    4796  F96B  26 67                       ROL     MLTTMP+1
    4797  F96D  18                          CLC                 ;ADD IN 2X
    4798  F96E  65 51                       ADC     HOLD1
    4799  F970  85 66                       STA     MLTTMP
    4800  F972  A5 67                       LDA     MLTTMP+1
    4801  F974  6D 9F 02                    ADC     HOLD2
    4802  F977  85 67                       STA     MLTTMP+1
    4803  F979  A6 57                       LDX     DINDEX      ;NOW SHIFT MLTTMP LEFT DHLINE TIMES TO FINISH
    4804  F97B  BC 81 FE                    LDY     DHLINE,X    ;MULTIPLY
    4805  F97E  88                  CONVR1: DEY                 ;LOOP N TIMES
    4806  F97F  30 07                       BMI     CONVR2
    4807  F981  06 66                       ASL     MLTTMP
    4808  F983  26 67                       ROL     MLTTMP+1
    4809  F985  4C 7E F9                    JMP     CONVR1
    4810  F988  BC A5 FE            CONVR2: LDY     DIV2TB,X    ;NOW DIVIDE HCRSR TO ACCOUNT FOR PARTIAL BYTES
    4811  F98B  A5 55                       LDA     COLCRS
    4812  F98D  A2 07                       LDX     #7          ;* TRICKY *
    4813  F98F  88                  CONVR3: DEY
    4814  F990  30 0A                       BMI     CONVR4
    4815  F992  CA                          DEX
    4816  F993  46 56                       LSR     COLCRS+1
    4817  F995  6A                          ROR     A
    4818  F996  6E A1 02                    ROR     TMPLBT      ;SAVE LOW BITS FOR MASK
    4819  F999  4C 8F F9                    JMP     CONVR3
    4820  F99C  C8                  CONVR4: INY                 ;SO Y IS ZERO UPON RETURN FROM THIS ROUTINE
    4821  F99D  18                          CLC
    4822  F99E  65 66                       ADC     MLTTMP      ;ADD SHIFTED COLCRS TO MLTTMP
    4823  F9A0  85 66                       STA     MLTTMP
    4824  F9A2  90 02                       BCC     CONVR5
    4825  F9A4  E6 67                       INC     MLTTMP+1
    4826  F9A6  38                  CONVR5: SEC                 ;* TRICKY *
    4827  F9A7  6E A1 02            CONVR6: ROR     TMPLBT      ;SLIDE A "1" UP AGAINST LOW BITS (CONTINUE TILL X=-1)
    4828  F9AA  18                          CLC
    4829  F9AB  CA                          DEX                 ;AND FINISH SHIFT SO LOW BITS ARE
    4830  F9AC  10 F9                       BPL     CONVR6      ;RIGHT JUSTIFIED.
    4831  F9AE  AE A1 02                    LDX     TMPLBT      ;TMPLBT IS NOW THE INDEX INTO DMASKTB
    4832  F9B1  A5 66                       LDA     MLTTMP      ;PREPARE FOR RETURN
    4833  F9B3  18                          CLC
    4834  F9B4  65 64                       ADC     ADRESS
    4835  F9B6  85 64                       STA     ADRESS
    4836  F9B8  85 5E                       STA     OLDADR      ;REMEMBER THIS ADDRESS FOR CURSOR
    4837  F9BA  A5 67                       LDA     MLTTMP+1
    4838  F9BC  65 65                       ADC     ADRESS+1
    4839  F9BE  85 65                       STA     ADRESS+1
    4840  F9C0  85 5F                       STA     OLDADR+1
    4841  F9C2  BD B1 FE                    LDA     DMASKT,X
    4842  F9C5  8D A0 02                    STA     DMASK
    4843  F9C8  85 6F                       STA     SHFAMT
    4844  F9CA  68                          PLA
    4845  F9CB  85 56                       STA     COLCRS+1
    4846  F9CD  68                          PLA
    4847  F9CE  85 55                       STA     COLCRS
    4848  F9D0  68                          PLA
    4849  F9D1  85 54                       STA     ROWCRS
    4850  F9D3  60                          RTS
    4851                            ;
    4852                            ;
    4853                            ; INCREMENT CURSOR AND DETECT BOTH END OF LINE AND END OF SCREEN
    4854                            ;
    4855  F9D4  A9 00               INCRSB: LDA     #0          ;NON-EXTEND ENTRY POINT
    4856  F9D6  F0 02                       BEQ     INCRSC
    4857  F9D8  A9 9B               INCRSR: LDA     #$9B        ;SPECIAL CASE ELIMINATOR
    4858  F9DA  85 7D               INCRSC: STA     INSDAT
    4859  F9DC  E6 63               INCRSA: INC     LOGCOL      ;(INSCHR ENTRY POINT)
    4860  F9DE  E6 55                       INC     COLCRS
    4861  F9E0  D0 02                       BNE     INCRS2      ;DO HIGH BYTE
    4862  F9E2  E6 56                       INC     COLCRS+1
    4863  F9E4  A5 55               INCRS2: LDA     COLCRS      ;TEST END OF LINE
    4864  F9E6  A6 57                       LDX     DINDEX
    4865  F9E8  DD 8D FE                    CMP     COLUMN,X    ;TEST TABLED VALUE FOR ALL SCREEN MODES
    4866  F9EB  F0 0B                       BEQ     INC2A       ;DO CR IF EQUAL
    4867  F9ED  E0 00                       CPX     #0          ;MODE 0?
    4868  F9EF  D0 06                       BNE     INCRS3      ;IF NOT, JUST RETURN
    4869  F9F1  C5 53                       CMP     RMARGN      ;TEST AGAINST RMARGN
    4870  F9F3  F0 02                       BEQ     INCRS3      ;EQUAL IS OK
    4871  F9F5  B0 01                       BCS     INC2A       ;IF GREATER THAN, DO CR
    4872  F9F7  60                  INCRS3: RTS
    4873  F9F8  E0 08               INC2A:  CPX     #8          ;CHECK MODE
    4874  F9FA  90 04                       BCC     DOCR1       ;NOT 320X1 SO DO IT
    4875  F9FC  A5 56                       LDA     COLCRS+1    ;TEST MSD
    4876  F9FE  F0 F7                       BEQ     INCRS3      ;ONLY AT 64 SO DON'T DO IT
    4877  FA00  A5 57               DOCR1:  LDA     DINDEX      ;DON'T MESS WITH LOGMAP IF NO MODE ZERO
    4878  FA02  D0 30                       BNE     DOCR
    4879  FA04  A5 63                       LDA     LOGCOL      ;TEST LINE OVERRUN
    4880  FA06  C9 51                       CMP     #81
    4881  FA08  90 0A                       BCC     DOCR1B      ;IF LESS THAN 81 IT IS DEFINITELY NOT LINE 3
    4882  FA0A  A5 7D                       LDA     INSDAT
    4883  FA0C  F0 26                       BEQ     DOCR        ;ONLY DO LOG LINE OVERFLOW IF INSDAT <>0
    4884  FA0E  20 30 FA                    JSR     DOCRWS      ;LOG LINE OVERFLOW IS SPECIAL CASE
    4885  FA11  4C 77 FA                    JMP     INCRS1      ;RETURN
    4886  FA14  20 34 FA            DOCR1B: JSR     DOCR        ;GET IT OVER WITH
    4887  FA17  A5 54                       LDA     ROWCRS
    4888  FA19  18                          CLC                 ;TEST LOGICAL LINE BIT MAP
    4889  FA1A  69 78                       ADC     #120
    4890  FA1C  20 25 FB                    JSR     BITGET
    4891  FA1F  90 08                       BCC     DOCR1A      ;DON'T EXTEND IF OVERRUN IS INTO MIDDLE OF LOG LINE
    4892  FA21  A5 7D                       LDA     INSDAT      ;DON'T EXTEND IF INSDAT IS ZERO
    4893  FA23  F0 04                       BEQ     DOCR1A      ;(INSCHR SPECIAL CASE)
    4894  FA25  18                          CLC                 ;INSERT "0" INTO BIT MAP
    4895  FA26  20 A5 F8                    JSR     INSLIA
    4896  FA29  4C DD FB            DOCR1A: JMP     DOLCOL      ;CONVERT ROW AND COL TO LOGCOL AND RETURN
    4897  FA2C  A9 00               NOSCRL: LDA     #0          ;DOCR WITHOUT SCROLL
    4898  FA2E  F0 02                       BEQ     NOSCR1      ;(UNCONDITIONAL)
    4899  FA30  A9 9B               DOCRWS: LDA     #$9B        ;DOCR WITH SCROLLING (NORMAL MODE)
    4900  FA32  85 7D               NOSCR1: STA     INSDAT
    4901  FA34  20 E4 FC            DOCR:   JSR     COLCR       ;PLACE COLCRS AT LEFT EDGE
    4902  FA37  A9 00                       LDA     #0
    4903  FA39  85 56                       STA     COLCRS+1
    4904  FA3B  E6 54                       INC     ROWCRS
    4905  FA3D  A6 57               DOCR2:  LDX     DINDEX
    4906  FA3F  A0 18                       LDY     #24         ;SET UP SCROLL LOOP COUNTER
    4907  FA41  24 7B                       BIT     SWPFLG
    4908  FA43  10 05                       BPL     DOCR2A      ;BRANCH IF NORMAL
    4909  FA45  A0 04                       LDY     #4
    4910  FA47  98                          TYA
    4911  FA48  D0 03                       BNE     DOCR2B      ;(UNCONDITIONAL)
    4912  FA4A  BD 99 FE            DOCR2A: LDA     NOROWS,X    ;GET NO OF ROWS
    4913  FA4D  C5 54               DOCR2B: CMP     ROWCRS
    4914  FA4F  D0 26                       BNE     INCRS1
    4915  FA51  8C 9D 02                    STY     HOLD3
    4916  FA54  8A                          TXA                 ;DON'T SCROLL IF MODE <> 0
    4917  FA55  D0 20                       BNE     INCRS1
    4918  FA57  A5 7D                       LDA     INSDAT      ;OR IF INSDAT = 0
    4919  FA59  F0 1C                       BEQ     INCRS1
    4920                            ;       LDA     INSDAT      IF INSDAT <> $9B THEN ROLL IN A 0
    4921  FA5B  C9 9B                       CMP     #$9B        ;TO EXTEND BOTTOM LOGICAL LINE
    4922  FA5D  38                          SEC
    4923  FA5E  F0 01                       BEQ     DOCR4B
    4924  FA60  18                          CLC
    4925  FA61  20 AC FB            DOCR4B: JSR     SCROLL      ;LOOP BACK TO HERE IF >1 SCROLLS
    4926  FA64  EE BB 02                    INC     SCRFLG
    4927  FA67  C6 6C                       DEC     BUFSTR      ;ROWS MOVE UP SO BUFSTR SHOULD TOO
    4928  FA69  CE 9D 02                    DEC     HOLD3
    4929  FA6C  AD B2 02                    LDA     LOGMAP
    4930  FA6F  38                          SEC                 ;FOR PARTIAL LINES, ROLL IN A "1"
    4931  FA70  10 EF                       BPL     DOCR4B      ;AGAIN IF PARTIAL LOGICAL LINE
    4932  FA72  AD 9D 02                    LDA     HOLD3       ;PLACE CURSOR AT NEW LINE NEAR THE BOTTOM
    4933  FA75  85 54                       STA     ROWCRS
    4934  FA77  4C DD FB            INCRS1: JMP     DOLCOL      ;COLVERT ROW AND COL TO LOGCOL AND RETURN
    4935                            ;
    4936                            ;
    4937                            ; SUBEND: SUBTRACT ENDPT FROM ROWAC OR COLAC. (X=0 OR 2)
    4938                            ;
    4939  FA7A  38                  SUBEND: SEC
    4940  FA7B  B5 70                       LDA     ROWAC,X
    4941  FA7D  E5 74                       SBC     ENDPT
    4942  FA7F  95 70                       STA     ROWAC,X
    4943  FA81  B5 71                       LDA     ROWAC+1,X
    4944  FA83  E5 75                       SBC     ENDPT+1
    4945  FA85  95 71                       STA     ROWAC+1,X
    4946  FA87  60                          RTS
    4947                            ;
    4948                            ;
    4949                            ; RANGE: DO CURSOR RANGE TEST. IF ERROR, POP STACK TWICE AND JMP RETURN
    4950                            ;        (ERANGE IS EDITOR ENTRY POINT AND TEST IF EDITOR IS OPEN.
    4951                            ;         IF IT ISNT IT OPENS THE EDITOR AND CONTINUES)
    4952                            ;
    4953  FA88  AD BF 02            ERANGE: LDA     BOTSCR      ;IF BOTSCR=4
    4954  FA8B  C9 04                       CMP     #4
    4955  FA8D  F0 07                       BEQ     RANGE       ;THEN IT IS IN MIXED MODE AND OK
    4956  FA8F  A5 57                       LDA     DINDEX      ;IF MODE = 0
    4957  FA91  F0 03                       BEQ     RANGE       ;THEN IT IS IN EDITOR MODE AND OK
    4958  FA93  20 FC F3                    JSR     EOPEN       ;IF NOT, OPEN EDITOR
    4959  FA96  A9 27               RANGE:  LDA     #39         ;***** RANGE CHECK RMARGN ***** SET UP AC
    4960  FA98  C5 53                       CMP     RMARGN      ;***** RANGE CHECK RMARGN ***** COMPARE
    4961  FA9A  B0 02                       BCS     RANGE3      ;***** RANGE CHECK RMARGN ***** BRANCH GE
    4962  FA9C  85 53                       STA     RMARGN      ;***** RANGE CHECK RMARGN ***** BAD SO STORE 39
    4963  FA9E  A6 57               RANGE3: LDX     DINDEX
    4964  FAA0  BD 99 FE                    LDA     NOROWS,X    ;CHECK ROWS
    4965  FAA3  C5 54                       CMP     ROWCRS
    4966  FAA5  90 2A                       BCC     RNGERR      ;(ERROR IF TABLE.GE.ROWCRS)
    4967  FAA7  F0 28                       BEQ     RNGERR
    4968  FAA9  E0 08                       CPX     #8          ;CHECK FOR 320X1
    4969  FAAB  D0 0A                       BNE     RANGE1      ;SPECIAL CASE IT
    4970  FAAD  A5 56                       LDA     COLCRS+1
    4971  FAAF  F0 13                       BEQ     RNGOK       ;IF HIGH BYTE IS 0, COL IS OK
    4972  FAB1  C9 01                       CMP     #1
    4973  FAB3  D0 1C                       BNE     RNGERR      ;IF >1, BAD
    4974  FAB5  F0 04                       BEQ     RANGE2      ;IF 1, GO CHECK LOW BYTE
    4975  FAB7  A5 56               RANGE1: LDA     COLCRS+1    ;FOR OTHERS, NON-ZERO HIGH BYTE IS BAD
    4976  FAB9  D0 16                       BNE     RNGERR
    4977  FABB  BD 8D FE            RANGE2: LDA     COLUMN,X    ;CHECK LOW BYTE
    4978  FABE  C5 55                       CMP     COLCRS
    4979  FAC0  90 0F                       BCC     RNGERR
    4980  FAC2  F0 0D                       BEQ     RNGERR
    4981  FAC4  A9 01               RNGOK:  LDA     #SUCCES     ;SET STATUS OK
    4982  FAC6  85 4C                       STA     DSTAT
    4983  FAC8  A9 80                       LDA     #BRKABT     ;PREPARE BREAK ABORT STATUS
    4984  FACA  A6 11                       LDX     BRKKEY      ;CHECK BREAK KEY FLAG
    4985  FACC  85 11                       STA     BRKKEY      ;'CLEAR' BREAK
    4986  FACE  F0 06                       BEQ     RNGER2      ;IF BREAK, QUIT IMMEDIATELY AND RETURN TO CIO
    4987  FAD0  60                          RTS
    4988  FAD1  20 D6 F7            RNGERR: JSR     HOME        ;ON RANGE ERROR, BRING CURSOR BACK
    4989  FAD4  A9 8D                       LDA     #CRSROR     ;SHOW CURSOR OVERRANGE ERROR
    4990  FAD6  85 4C               RNGER2: STA     DSTAT
    4991  FAD8  68                  RNGER1: PLA                 ;RESTORE STACK (THIS ROUTINE IS ALWAYS 1 LEVEL
    4992  FAD9  68                          PLA                 ;AWAY FROM RETURN TO CIO)
    4993  FADA  A5 7B                       LDA     SWPFLG      ;IF SWAPPED, SWAP BACK
    4994  FADC  10 03                       BPL     RETUR3
    4995  FADE  20 B9 FC                    JSR     SWAPA       ;AND DONT DO RETUR1
    4996  FAE1  4C 34 F6            RETUR3: JMP     RETUR1      ;RETURN TO CIO
    4997                            ;
    4998                            ;
    4999                            ;
    5000                            ; OFFCRS: RESTORE OLD DATA UNDER CURSOR SO IT CAN BE MOVED
    5001                            ;
    5002  FAE4  A0 00               OFFCRS: LDY     #0
    5003  FAE6  A5 5D                       LDA     OLDCHR
    5004  FAE8  91 5E                       STA     (OLDADR),Y
    5005  FAEA  60                          RTS
    5006                            ;
    5007                            ;
    5008                            ;
    5009                            ; BITMAP ROUTINES:
    5010                            ;
    5011                            ; BITCON: PUT MASK IN BITMSK AND INDEX IN X
    5012                            ; BITPUT: PUT CARRY INTO BITMAP
    5013                            ; BITROL: ROL CARRY INTO BOTTOM OF BITMAP (SCROLL)
    5014                            ; BITSET: SET PROPER BIT
    5015                            ; BITCLR: CLEAR PROPER BIT
    5016                            ; BITGET: RETURN CARRY SET IF BIT IS THERE
    5017                            ; LOGGET: DO BITGET FOR LOGMAP INSTEAD OF TABMAP
    5018                            ;
    5019  FAEB  48                  BITCON: PHA
    5020  FAEC  29 07                       AND     #7
    5021  FAEE  AA                          TAX                 ;GET MASK
    5022  FAEF  BD B9 FE                    LDA     MASKTB,X
    5023  FAF2  85 6E                       STA     BITMSK
    5024  FAF4  68                          PLA                 ;PROCESS INDEX
    5025  FAF5  4A                          LSR     A
    5026  FAF6  4A                          LSR     A
    5027  FAF7  4A                          LSR     A
    5028  FAF8  AA                          TAX
    5029  FAF9  60                          RTS
    5030                            ;
    5031                            ;
    5032  FAFA  2E B4 02            BITROL: ROL     LOGMAP+2
    5033  FAFD  2E B3 02                    ROL     LOGMAP+1
    5034  FB00  2E B2 02                    ROL     LOGMAP
    5035  FB03  60                          RTS
    5036                            ;
    5037                            ;
    5038  FB04  90 0C               BITPUT: BCC     BITCLR      ;AND RETURN
    5039                            ; OTHERWISE FALL THROUGH TO BITSET AND RETURN
    5040  FB06  20 EB FA            BITSET: JSR     BITCON
    5041  FB09  BD A3 02                    LDA     TABMAP,X
    5042  FB0C  05 6E                       ORA     BITMSK
    5043  FB0E  9D A3 02                    STA     TABMAP,X
    5044  FB11  60                          RTS
    5045                            ;
    5046  FB12  20 EB FA            BITCLR: JSR     BITCON
    5047  FB15  A5 6E                       LDA     BITMSK
    5048  FB17  49 FF                       EOR     #$FF
    5049  FB19  3D A3 02                    AND     TABMAP,X
    5050  FB1C  9D A3 02                    STA     TABMAP,X
    5051  FB1F  60                          RTS
    5052                            ;
    5053  FB20  A5 54               LOGGET: LDA     ROWCRS
    5054  FB22  18                  LO1GET: CLC
    5055  FB23  69 78               LO2GET: ADC     #120
    5056  FB25  20 EB FA            BITGET: JSR     BITCON
    5057  FB28  18                          CLC
    5058  FB29  BD A3 02                    LDA     TABMAP,X
    5059  FB2C  25 6E                       AND     BITMSK
    5060  FB2E  F0 01                       BEQ     BITGE1
    5061  FB30  38                          SEC
    5062  FB31  60                  BITGE1: RTS
    5063                            ;
    5064                            ;
    5065                            ;
    5066                            ;
    5067                            ; INATAC: INTERNAL(CHAR) TO ATASCII(ATACHR) CONVERSION
    5068                            ;
    5069  FB32  AD FA 02            INATAC: LDA     CHAR
    5070  FB35  A4 57                       LDY     DINDEX      ;IF GRAPHICS MODES
    5071  FB37  C0 03                       CPY     #3
    5072  FB39  B0 0F                       BCS     INATA1      ;THEN DON'T CHANGE CHAR
    5073  FB3B  2A                          ROL     A
    5074  FB3C  2A                          ROL     A
    5075  FB3D  2A                          ROL     A
    5076  FB3E  2A                          ROL     A
    5077  FB3F  29 03                       AND     #3
    5078  FB41  AA                          TAX
    5079  FB42  AD FA 02                    LDA     CHAR
    5080  FB45  29 9F                       AND     #$9F
    5081  FB47  1D FA FE                    ORA     INTATA,X
    5082  FB4A  8D FB 02            INATA1: STA     ATACHR
    5083  FB4D  60                          RTS
    5084                            ;
    5085                            ;
    5086                            ;
    5087                            ; MOVLIN: MOVE 40 BYTES AT FRMADR TO TOADR SAVING OLD TOADR
    5088                            ;       DATA IN THE LINBUF. THEN MAKE NEXT FRMADR
    5089                            ;       BE AT LINBUF FOR NEXT TRANSFER & TOADR=TOADR+40
    5090                            ;
    5091  FB4E  A9 02               MOVLIN: LDA     #LINBUF/256 ;SET UP ADRESS=LINBUF=$247
    5092  FB50  85 65                       STA     ADRESS+1
    5093  FB52  A9 47                       LDA     #LINBUF.AND.$FF
    5094  FB54  85 64                       STA     ADRESS
    5095  FB56  A0 27                       LDY     #39
    5096  FB58  B1 66               MOVLI1: LDA     (TOADR),Y   ;SAVE TO DATA
    5097  FB5A  85 50                       STA     TMPCHR
    5098  FB5C  B1 68                       LDA     (FRMADR),Y  ;STORE DATA
    5099  FB5E  91 66                       STA     (TOADR),Y
    5100  FB60  A5 50                       LDA     TMPCHR
    5101  FB62  91 64                       STA     (ADRESS),Y
    5102  FB64  88                          DEY
    5103  FB65  10 F1                       BPL     MOVLI1
    5104  FB67  A5 65                       LDA     ADRESS+1    ;SET UP FRMADR=LAST LINE
    5105  FB69  85 69                       STA     FRMADR+1
    5106  FB6B  A5 64                       LDA     ADRESS
    5107  FB6D  85 68                       STA     FRMADR
    5108  FB6F  18                          CLC                 ;ADD 40 TO TOADR
    5109  FB70  A5 66                       LDA     TOADR
    5110  FB72  69 28                       ADC     #40
    5111  FB74  85 66                       STA     TOADR
    5112  FB76  90 02                       BCC     MOVLI2
    5113  FB78  E6 67                       INC     TOADR+1
    5114  FB7A  60                  MOVLI2: RTS
    5115                            ;
    5116                            ;
    5117                            ;
    5118                            ; EXTEND: EXTEND BIT MAP FROM ROWCRS (EXTEND LOGICAL LINE
    5119                            ;
    5120  FB7B  08                  EXTEND: PHP                 ;SAVE CARRY
    5121  FB7C  A0 17                       LDY     #23
    5122  FB7E  98                  EXTEN1: TYA
    5123  FB7F  20 22 FB                    JSR     LO1GET
    5124  FB82  08                          PHP
    5125  FB83  98                          TYA
    5126  FB84  18                          CLC
    5127  FB85  69 79                       ADC     #121
    5128  FB87  28                          PLP
    5129  FB88  20 04 FB                    JSR     BITPUT
    5130  FB8B  88                  EXTEN3: DEY
    5131  FB8C  30 04                       BMI     EXTEN4
    5132  FB8E  C4 54                       CPY     ROWCRS
    5133  FB90  B0 EC                       BCS     EXTEN1
    5134  FB92  A5 54               EXTEN4: LDA     ROWCRS
    5135  FB94  18                          CLC
    5136  FB95  69 78                       ADC     #120
    5137  FB97  28                          PLP
    5138  FB98  4C 04 FB                    JMP     BITPUT      ;STORE NEW LINE'S BIT AND RETURN
    5139                            ;
    5140                            ;
    5141                            ;
    5142                            ; CLRLIN: CLEAR LINE CURSOR IS ON
    5143                            ;
    5144  FB9B  A5 52               CLRLIN: LDA     LMARGN
    5145  FB9D  85 55                       STA     COLCRS
    5146  FB9F  20 47 F9                    JSR     CONVRT
    5147  FBA2  A0 27                       LDY     #39
    5148  FBA4  A9 00                       LDA     #0
    5149  FBA6  91 64               CLRLI1: STA     (ADRESS),Y
    5150  FBA8  88                          DEY
    5151  FBA9  10 FB                       BPL     CLRLI1
    5152  FBAB  60                          RTS
    5153                            ;
    5154                            ;
    5155                            ;
    5156                            ;
    5157                            ; SCROLL: SCROLL SCREEN
    5158                            ;
    5159  FBAC  20 FA FA            SCROLL: JSR     BITROL      ;ROLL IN CARRY
    5160  FBAF  A5 58                       LDA     SAVMSC      ;SET UP WORKING REGISTERS
    5161  FBB1  85 64                       STA     ADRESS
    5162  FBB3  A5 59                       LDA     SAVMSC+1
    5163  FBB5  85 65                       STA     ADRESS+1
    5164  FBB7  A0 28               SCROL1: LDY     #40         ;LOOP
    5165  FBB9  B1 64                       LDA     (ADRESS),Y
    5166  FBBB  A6 6A                       LDX     RAMTOP      ;TEST FOR LAST LINE
    5167  FBBD  CA                          DEX
    5168  FBBE  E4 65                       CPX     ADRESS+1
    5169  FBC0  D0 08                       BNE     SCROL2
    5170  FBC2  A2 D7                       LDX     #$D7
    5171  FBC4  E4 64                       CPX     ADRESS
    5172  FBC6  B0 02                       BCS     SCROL2
    5173  FBC8  A9 00                       LDA     #0          ;YES SO STORE ZERO DATA FOR THIS ENTIRE LINE
    5174  FBCA  A0 00               SCROL2: LDY     #0
    5175  FBCC  91 64                       STA     (ADRESS),Y
    5176  FBCE  E6 64                       INC     ADRESS
    5177  FBD0  D0 E5                       BNE     SCROL1
    5178  FBD2  E6 65                       INC     ADRESS+1
    5179  FBD4  A5 65                       LDA     ADRESS+1
    5180  FBD6  C5 6A                       CMP     RAMTOP
    5181  FBD8  D0 DD                       BNE     SCROL1
    5182  FBDA  4C DD FB                    JMP     DOLCOL      ;AND RETURN
    5183                            ;
    5184                            ;
    5185                            ; DOLCOL: DO LOGICAL COLUMN FROM BITMAP AND COLCRS
    5186                            ;
    5187  FBDD  A9 00               DOLCOL: LDA     #0          ;START WITH ZERO
    5188  FBDF  85 63                       STA     LOGCOL
    5189  FBE1  A5 54                       LDA     ROWCRS
    5190  FBE3  85 51                       STA     HOLD1
    5191  FBE5  A5 51               DOLCO1: LDA     HOLD1       ;ADD IN ROW COMPONENT
    5192  FBE7  20 22 FB                    JSR     LO1GET
    5193  FBEA  B0 0C                       BCS     DOLCO2      ;FOUND BEGINNING OF LINE
    5194  FBEC  A5 63                       LDA     LOGCOL      ;ADD 40 AND LOOK BACK ONE
    5195  FBEE  18                          CLC
    5196  FBEF  69 28                       ADC     #40
    5197  FBF1  85 63                       STA     LOGCOL
    5198  FBF3  C6 51                       DEC     HOLD1       ;UP ONE LINE
    5199  FBF5  4C E5 FB                    JMP     DOLCO1
    5200  FBF8  18                  DOLCO2: CLC                 ;ADD IN COLCRS
    5201  FBF9  A5 63                       LDA     LOGCOL
    5202  FBFB  65 55                       ADC     COLCRS
    5203  FBFD  85 63                       STA     LOGCOL
    5204  FBFF  60                          RTS
    5205                            ;
    5206                            ;
    5207                            ;
    5208                            ; DOBUFC: COMPUTE BUFFER COUNT AS THE NUMBER OF BYTES FROM
    5209                            ;         BUFSTR TO END OF LOGICAL LINE WITH TRAILING SPACES REMOVED
    5210                            ;
    5211  FC00  20 9D FC            DOBUFC: JSR     PHACRS
    5212  FC03  A5 63                       LDA     LOGCOL
    5213  FC05  48                          PHA
    5214  FC06  A5 6C                       LDA     BUFSTR      ;START
    5215  FC08  85 54                       STA     ROWCRS
    5216  FC0A  A5 6D                       LDA     BUFSTR+1
    5217  FC0C  85 55                       STA     COLCRS
    5218  FC0E  A9 01                       LDA     #1
    5219  FC10  85 6B                       STA     BUFCNT
    5220  FC12  A2 17               DOBUF1: LDX     #23         ;NORMAL
    5221  FC14  A5 7B                       LDA     SWPFLG      ;IF SWAPPED, ROW 3 IS THE LAST LINE ON SCREEN
    5222  FC16  10 02                       BPL     DOB1
    5223  FC18  A2 03                       LDX     #3
    5224  FC1A  E4 54               DOB1:   CPX     ROWCRS      ;TEST IF CRSR IS AT LAST SCREEN POSITION
    5225  FC1C  D0 0B                       BNE     DOBU1A
    5226  FC1E  A5 55                       LDA     COLCRS
    5227  FC20  C5 53                       CMP     RMARGN
    5228  FC22  D0 05                       BNE     DOBU1A
    5229  FC24  E6 6B                       INC     BUFCNT      ;YES, SO FAKE INCRSR TO AVOID SCROLLING
    5230  FC26  4C 39 FC                    JMP     DOBUF2
    5231  FC29  20 D4 F9            DOBU1A: JSR     INCRSB
    5232  FC2C  E6 6B                       INC     BUFCNT
    5233  FC2E  A5 63                       LDA     LOGCOL
    5234  FC30  C5 52                       CMP     LMARGN
    5235  FC32  D0 DE                       BNE     DOBUF1      ;NOT YET EOL
    5236  FC34  C6 54                       DEC     ROWCRS      ;BACK UP ONE INCRSR
    5237  FC36  20 99 F7                    JSR     CRSRLF
    5238  FC39  20 A2 F5            DOBUF2: JSR     GETPLT      ;TEST CURRENT COLUMN FOR NON-ZERO DATA
    5239  FC3C  D0 17                       BNE     DOBUF4      ;QUIT IF NON-ZERO
    5240  FC3E  C6 6B                       DEC     BUFCNT      ;DECREMENT COUNTER
    5241  FC40  A5 63                       LDA     LOGCOL      ;BEGINNING OF LOGICAL LINE YET?
    5242  FC42  C5 52                       CMP     LMARGN
    5243  FC44  F0 0F                       BEQ     DOBUF4      ;YES, SO QUIT
    5244  FC46  20 99 F7                    JSR     CRSRLF      ;BACK UP CURSOR
    5245  FC49  A5 55                       LDA     COLCRS      ;IF LOGCOL=RMARGN, GO UP 1 ROW
    5246  FC4B  C5 53                       CMP     RMARGN
    5247  FC4D  D0 02                       BNE     DOBUF3
    5248  FC4F  C6 54                       DEC     ROWCRS
    5249  FC51  A5 6B               DOBUF3: LDA     BUFCNT
    5250  FC53  D0 E4                       BNE     DOBUF2      ;LOOP UNLESS BUFCNT JUST WENT TO ZERO
    5251  FC55  68                  DOBUF4: PLA
    5252  FC56  85 63                       STA     LOGCOL
    5253  FC58  20 A8 FC                    JSR     PLACRS
    5254  FC5B  60                          RTS
    5255                            ;
    5256                            ;
    5257                            ;
    5258                            ;
    5259                            ; STRBEG: MOVE BUFSTR TO BEGINNING OF LOGICAL LINE.
    5260                            ;
    5261  FC5C  20 DD FB            STRBEG: JSR     DOLCOL      ;USE DOLCOL TO POINT HOLD1 AT BOL
    5262  FC5F  A5 51                       LDA     HOLD1
    5263  FC61  85 6C                       STA     BUFSTR
    5264  FC63  A5 52                       LDA     LMARGN
    5265  FC65  85 6D                       STA     BUFSTR+1
    5266  FC67  60                          RTS
    5267                            ;
    5268                            ;
    5269                            ;
    5270                            ;
    5271                            ;
    5272                            ; DELTIM: TIME TO DELETE A LINE IF IT IS EMPTY AND AN EXTENSION
    5273                            ;
    5274  FC68  A5 63               DELTIA: LDA     LOGCOL      ;IF LOGCOL<>LMARGN
    5275  FC6A  C5 52                       CMP     LMARGN      ;THEN DONT MOVE UP ONE
    5276  FC6C  D0 02                       BNE     DELTIB      ;LINE BEFORE TESTING DELTIM
    5277  FC6E  C6 54                       DEC     ROWCRS
    5278  FC70  20 DD FB            DELTIB: JSR     DOLCOL
    5279  FC73  A5 63               DELTIM: LDA     LOGCOL      ;TEST FOR EXTENSION
    5280  FC75  C5 52                       CMP     LMARGN
    5281  FC77  F0 13                       BEQ     DELTI3      ;NO
    5282  FC79  20 47 F9                    JSR     CONVRT
    5283  FC7C  A5 53                       LDA     RMARGN      ;SET UP COUNT
    5284  FC7E  38                          SEC
    5285  FC7F  E5 52                       SBC     LMARGN
    5286  FC81  A8                          TAY
    5287  FC82  B1 64               DELTI1: LDA     (ADRESS),Y
    5288  FC84  D0 06                       BNE     DELTI3      ;FOUND A NON-0 SO QUIT AND RETURN
    5289  FC86  88                          DEY
    5290  FC87  10 F9                       BPL     DELTI1
    5291  FC89  4C DB F8            DELTI2: JMP     DELLIB      ;DELETE A LINE AND RETURN
    5292  FC8C  60                  DELTI3: RTS
    5293                            ;
    5294                            ;
    5295                            ;
    5296                            ; TSTCTL: SEARCH CNTRLS TABLE TO SEE IF ATACHR IS A CNTL CHAR
    5297                            ;
    5298  FC8D  A2 2D               TSTCTL: LDX     #45         ;PREPARE TO SEARCH TABLE
    5299  FC8F  BD C6 FE            TSTCT1: LDA     CNTRLS,X
    5300  FC92  CD FB 02                    CMP     ATACHR
    5301  FC95  F0 05                       BEQ     TSTCT2
    5302  FC97  CA                          DEX
    5303  FC98  CA                          DEX
    5304  FC99  CA                          DEX
    5305  FC9A  10 F3                       BPL     TSTCT1
    5306  FC9C  60                  TSTCT2: RTS
    5307                            ;
    5308                            ;
    5309                            ;
    5310                            ; PUSH ROWCRS,COLCRS AND COLCRS+1
    5311                            ;
    5312  FC9D  A2 02               PHACRS: LDX     #2
    5313  FC9F  B5 54               PHACR1: LDA     ROWCRS,X
    5314  FCA1  9D B8 02                    STA     TMPROW,X
    5315  FCA4  CA                          DEX
    5316  FCA5  10 F8                       BPL     PHACR1
    5317  FCA7  60                          RTS
    5318                            ;
    5319                            ;
    5320                            ; PULL COLCRS+1,COLCRS AND ROWCRS
    5321                            ;
    5322  FCA8  A2 02               PLACRS: LDX     #2
    5323  FCAA  BD B8 02            PLACR1: LDA     TMPROW,X
    5324  FCAD  95 54                       STA     ROWCRS,X
    5325  FCAF  CA                          DEX
    5326  FCB0  10 F8                       BPL     PLACR1
    5327  FCB2  60                          RTS
    5328                            ;
    5329                            ;
    5330                            ;
    5331                            ; SWAP: IF MIXED MODE, SWAP TEXT CURSORS WITH REGULAR CURSORS
    5332                            ;
    5333  FCB3  20 B9 FC            SWAP:   JSR     SWAPA       ;THIS ENTRY POINT DOES RETUR1
    5334  FCB6  4C 34 F6                    JMP     RETUR1
    5335  FCB9  AD BF 02            SWAPA:  LDA     BOTSCR
    5336  FCBC  C9 18                       CMP     #24
    5337  FCBE  F0 17                       BEQ     SWAP3
    5338  FCC0  A2 0B                       LDX     #11
    5339  FCC2  B5 54               SWAP1:  LDA     ROWCRS,X
    5340  FCC4  48                          PHA
    5341  FCC5  BD 90 02                    LDA     TXTROW,X
    5342  FCC8  95 54                       STA     ROWCRS,X
    5343  FCCA  68                          PLA
    5344  FCCB  9D 90 02                    STA     TXTROW,X
    5345  FCCE  CA                          DEX
    5346  FCCF  10 F1                       BPL     SWAP1
    5347  FCD1  A5 7B                       LDA     SWPFLG
    5348  FCD3  49 FF                       EOR     #$FF
    5349  FCD5  85 7B                       STA     SWPFLG
    5350  FCD7  60                  SWAP3:  RTS
    5351                            ;
    5352                            ;
    5353                            ; CLICK: MAKE CLICK THROUGH KEYBOARD SPEAKER
    5354                            ;
    5355  FCD8  A2 7F               CLICK:  LDX     #$7F
    5356  FCDA  8E 1F D0            CLICK1: STX     CONSOL
    5357  FCDD  8E 0A D4                    STX     WSYNC
    5358  FCE0  CA                          DEX
    5359  FCE1  10 F7                       BPL     CLICK1
    5360  FCE3  60                          RTS
    5361                            ;
    5362                            ;
    5363                            ; COLCR: PUTS EITHER 0 OR LMARGN INTO COLCRS BASED ON MODE AND SWPFLG
    5364                            ;
    5365  FCE4  A9 00               COLCR:  LDA     #0
    5366  FCE6  A6 7B                       LDX     SWPFLG
    5367  FCE8  D0 04                       BNE     COLCR1
    5368  FCEA  A6 57                       LDX     DINDEX
    5369  FCEC  D0 02                       BNE     COLCR2
    5370  FCEE  A5 52               COLCR1: LDA     LMARGN
    5371  FCF0  85 55               COLCR2: STA     COLCRS
    5372  FCF2  60                          RTS
    5373                            ;
    5374                            ;
    5375                            ; PUTMSC: PUT SAVMSC INTO ADRESS
    5376                            ;
    5377  FCF3  A5 58               PUTMSC: LDA     SAVMSC      ;SET UP ADDRESS
    5378  FCF5  85 64                       STA     ADRESS
    5379  FCF7  A5 59                       LDA     SAVMSC+1
    5380  FCF9  85 65                       STA     ADRESS+1
    5381  FCFB  60                          RTS
    5382                            ;
    5383                                    .PAGE
    5384                            ;
    5385                            ;
    5386                            ; DRAW -- DRAW A LINE FROM OLDROW,OLDCOL TO NEWROW,NEWCOL
    5387                            ; (THE AL MILLER METHOD FROM BASKETBALL)
    5388  FCFC  A2 00               DRAW:   LDX     #0
    5389  FCFE  A5 22                       LDA     ICCOMZ      ;TEST COMMAND: $11=DRAW $12=FILL
    5390  FD00  C9 11                       CMP     #$11
    5391  FD02  F0 08                       BEQ     DRAWA
    5392  FD04  C9 12                       CMP     #$12        ;TEST FILL
    5393  FD06  F0 03                       BEQ     DRAWB       ;YES
    5394  FD08  A0 84                       LDY     #NVALID     ;NO, SO RETURN INVALID COMMAND
    5395  FD0A  60                          RTS
    5396  FD0B  E8                  DRAWB:  INX
    5397  FD0C  8E B7 02            DRAWA:  STX     FILFLG
    5398  FD0F  A5 54                       LDA     ROWCRS      ;PUT CURSOR INTO NEWROW,NEWCOL
    5399  FD11  85 60                       STA     NEWROW
    5400  FD13  A5 55                       LDA     COLCRS
    5401  FD15  85 61                       STA     NEWCOL
    5402  FD17  A5 56                       LDA     COLCRS+1
    5403  FD19  85 62                       STA     NEWCOL+1
    5404  FD1B  A9 01                       LDA     #1
    5405  FD1D  85 79                       STA     ROWINC      ;SET UP INITIAL DIRECTIONS
    5406  FD1F  85 7A                       STA     COLINC
    5407  FD21  38                          SEC
    5408  FD22  A5 60                       LDA     NEWROW      ;DETERMINE DELTA ROW
    5409  FD24  E5 5A                       SBC     OLDROW
    5410  FD26  85 76                       STA     DELTAR
    5411  FD28  B0 0D                       BCS     DRAW1       ;DO DIRECTION AND ABSOLUTE VALUE
    5412  FD2A  A9 FF                       LDA     #$FF        ;BORROW WAS ATTEMPTED
    5413  FD2C  85 79                       STA     ROWINC      ;SET DIRECTION=DOWN
    5414  FD2E  A5 76                       LDA     DELTAR
    5415  FD30  49 FF                       EOR     #$FF        ;DELTAR = |DELTAR|
    5416  FD32  18                          CLC
    5417  FD33  69 01                       ADC     #1
    5418  FD35  85 76                       STA     DELTAR
    5419  FD37  38                  DRAW1:  SEC
    5420  FD38  A5 61                       LDA     NEWCOL      ;NOW DELTA COLUMN
    5421  FD3A  E5 5B                       SBC     OLDCOL
    5422  FD3C  85 77                       STA     DELTAC
    5423  FD3E  A5 62                       LDA     NEWCOL+1    ;TWO-BYTE QUANTITY
    5424  FD40  E5 5C                       SBC     OLDCOL+1
    5425  FD42  85 78                       STA     DELTAC+1
    5426  FD44  B0 16                       BCS     DRAW2       ;DIRECTION AND ABSOLUTE VALUE
    5427  FD46  A9 FF                       LDA     #$FF        ;BORROW WAS ATTEMPTED
    5428  FD48  85 7A                       STA     COLINC      ;SET DIRECTION = LEFT
    5429  FD4A  A5 77                       LDA     DELTAC
    5430  FD4C  49 FF                       EOR     #$FF        ;DELTAC = |DELTAC|
    5431  FD4E  85 77                       STA     DELTAC
    5432  FD50  A5 78                       LDA     DELTAC+1
    5433  FD52  49 FF                       EOR     #$FF
    5434  FD54  85 78                       STA     DELTAC+1
    5435  FD56  E6 77                       INC     DELTAC      ;ADD ONE FOR TWOS COMPLEMENT
    5436  FD58  D0 02                       BNE     DRAW2
    5437  FD5A  E6 78                       INC     DELTAC+1
    5438  FD5C  A2 02               DRAW2:  LDX     #2          ;ZERO RAM FOR DRAW LOOP
    5439  FD5E  A0 00                       LDY     #0
    5440  FD60  84 73                       STY     COLAC+1
    5441  FD62  98                  DRAW3A: TYA
    5442  FD63  95 70                       STA     ROWAC,X
    5443  FD65  B5 5A                       LDA     OLDROW,X
    5444  FD67  95 54                       STA     ROWCRS,X
    5445  FD69  CA                          DEX
    5446  FD6A  10 F6                       BPL     DRAW3A
    5447  FD6C  A5 77                       LDA     DELTAC      ;FIND LARGER ONE (ROW OR COL)
    5448                            ;       STA     COUNTR      (PREPARE COUNTR AND ENDPT)
    5449                            ;       STA     ENDPT
    5450  FD6E  E8                          INX                 ;MAKE X 0
    5451  FD6F  A8                          TAY
    5452  FD70  A5 78                       LDA     DELTAC+1
    5453  FD72  85 7F                       STA     COUNTR+1
    5454  FD74  85 75                       STA     ENDPT+1
    5455  FD76  D0 0B                       BNE     DRAW3       ;AUTOMATICALLY LARGER IF MSD>0
    5456  FD78  A5 77                       LDA     DELTAC
    5457  FD7A  C5 76                       CMP     DELTAR      ;LOW COL >LOW ROW?
    5458  FD7C  B0 05                       BCS     DRAW3       ;YES
    5459  FD7E  A5 76                       LDA     DELTAR
    5460  FD80  A2 02                       LDX     #2
    5461  FD82  A8                          TAY
    5462  FD83  98                  DRAW3:  TYA                 ;PUT IN INITIAL CONDITIONS
    5463  FD84  85 7E                       STA     COUNTR
    5464  FD86  85 74                       STA     ENDPT
    5465  FD88  48                          PHA                 ;SAVE AC
    5466  FD89  A5 75                       LDA     ENDPT+1     ;PUT LSB OF HIGH BYTE
    5467  FD8B  4A                          LSR     A           ;INTO CARRY
    5468  FD8C  68                          PLA                 ;RESTORE AC
    5469  FD8D  6A                          ROR     A           ;ROR THE 9 BIT ACUMULATOR
    5470  FD8E  95 70                       STA     ROWAC,X
    5471  FD90  A5 7E               DRAW4A: LDA     COUNTR      ;TEST ZERO
    5472  FD92  05 7F                       ORA     COUNTR+1
    5473  FD94  D0 03                       BNE     DRAW11      ;IF COUNTER IS ZERO, LEAVE DRAW
    5474  FD96  4C 42 FE                    JMP     DRAW10
    5475  FD99  18                  DRAW11: CLC                 ;ADD ROW TO ROWAC (PLOT LOOP)
    5476  FD9A  A5 70                       LDA     ROWAC
    5477  FD9C  65 76                       ADC     DELTAR
    5478  FD9E  85 70                       STA     ROWAC
    5479  FDA0  90 02                       BCC     DRAW5
    5480  FDA2  E6 71                       INC     ROWAC+1
    5481  FDA4  A5 71               DRAW5:  LDA     ROWAC+1     ;COMPARE ROW TO ENDPOINT
    5482  FDA6  C5 75                       CMP     ENDPT+1     ;IF HIGH BYTE OF ROW IS .LT. HIGH
    5483  FDA8  90 14                       BCC     DRAW6       ;BYTE OF ENDPT, BLT TO COLUMN
    5484  FDAA  D0 06                       BNE     DRAW5A
    5485  FDAC  A5 70                       LDA     ROWAC
    5486  FDAE  C5 74                       CMP     ENDPT       ;LOW BYTE
    5487  FDB0  90 0C                       BCC     DRAW6       ;ALSO BLT
    5488  FDB2  18                  DRAW5A: CLC                 ;GE SO MOVE POINT
    5489  FDB3  A5 54                       LDA     ROWCRS
    5490  FDB5  65 79                       ADC     ROWINC
    5491  FDB7  85 54                       STA     ROWCRS
    5492  FDB9  A2 00                       LDX     #0          ;AND SUBTRACT ENDPT FROM ROWAC
    5493  FDBB  20 7A FA                    JSR     SUBEND
    5494  FDBE  18                  DRAW6:  CLC                 ;DO SAME FOR COLUMN (DOUBLE BYTE ADD)
    5495  FDBF  A5 72                       LDA     COLAC       ;ADD
    5496  FDC1  65 77                       ADC     DELTAC
    5497  FDC3  85 72                       STA     COLAC
    5498  FDC5  A5 73                       LDA     COLAC+1
    5499  FDC7  65 78                       ADC     DELTAC+1
    5500  FDC9  85 73                       STA     COLAC+1
    5501  FDCB  C5 75                       CMP     ENDPT+1     ;COMPARE HIGH BYTE
    5502  FDCD  90 27                       BCC     DRAW8
    5503  FDCF  D0 06                       BNE     DRAW6A
    5504  FDD1  A5 72                       LDA     COLAC       ;COMPARE LOW BYTE
    5505  FDD3  C5 74                       CMP     ENDPT
    5506  FDD5  90 1F                       BCC     DRAW8
    5507  FDD7  24 7A               DRAW6A: BIT     COLINC      ;+ OR - ?
    5508  FDD9  10 10                       BPL     DRAW6B
    5509  FDDB  C6 55                       DEC     COLCRS      ;DO DOUBLE BYTE DECREMENT
    5510  FDDD  A5 55                       LDA     COLCRS
    5511  FDDF  C9 FF                       CMP     #$FF
    5512  FDE1  D0 0E                       BNE     DRAW7
    5513  FDE3  A5 56                       LDA     COLCRS+1
    5514  FDE5  F0 0A                       BEQ     DRAW7       ;DON'T DEC IF ZERO
    5515  FDE7  C6 56                       DEC     COLCRS+1
    5516  FDE9  10 06                       BPL     DRAW7       ;(UNCONDITIONAL)
    5517  FDEB  E6 55               DRAW6B: INC     COLCRS      ;DO DOUBLE BYTE INCREMENT
    5518  FDED  D0 02                       BNE     DRAW7
    5519  FDEF  E6 56                       INC     COLCRS+1
    5520  FDF1  A2 02               DRAW7:  LDX     #2          ;AND SUBTRACT ENDPT FROM COLAC
    5521  FDF3  20 7A FA                    JSR     SUBEND
    5522  FDF6  20 96 FA            DRAW8:  JSR     RANGE
    5523  FDF9  20 E0 F5                    JSR     OUTPLT      ;PLOT POINT
    5524  FDFC  AD B7 02                    LDA     FILFLG      ;TEST RIGHT FILL
    5525  FDFF  F0 2F                       BEQ     DRAW9
    5526  FE01  20 9D FC                    JSR     PHACRS
    5527  FE04  AD FB 02                    LDA     ATACHR
    5528  FE07  8D BC 02                    STA     HOLD4
    5529  FE0A  A5 54               DRAW8A: LDA     ROWCRS      ;SAVE ROW IN CASE OF CR
    5530  FE0C  48                          PHA
    5531  FE0D  20 DC F9                    JSR     INCRSA      ;POSITION CURSOR ONE PAST DOT
    5532  FE10  68                          PLA                 ;RESTORE ROWCRS
    5533  FE11  85 54                       STA     ROWCRS
    5534  FE13  20 96 FA            DRAW8C: JSR     RANGE
    5535  FE16  20 A2 F5                    JSR     GETPLT      ;GET DATA
    5536  FE19  D0 0C                       BNE     DRAW8B      ;STOP IF NON-ZERO DATA IS ENCOUNTERED
    5537  FE1B  AD FD 02                    LDA     FILDAT      ;FILL DATA
    5538  FE1E  8D FB 02                    STA     ATACHR
    5539  FE21  20 E0 F5                    JSR     OUTPLT      ;DRAW IT
    5540  FE24  4C 0A FE                    JMP     DRAW8A      ;LOOP
    5541  FE27  AD BC 02            DRAW8B: LDA     HOLD4
    5542  FE2A  8D FB 02                    STA     ATACHR
    5543  FE2D  20 A8 FC                    JSR     PLACRS
    5544  FE30  38                  DRAW9:  SEC                 ;DO DOUBLE BYTE SUBTRACT
    5545  FE31  A5 7E                       LDA     COUNTR
    5546  FE33  E9 01                       SBC     #1
    5547  FE35  85 7E                       STA     COUNTR
    5548  FE37  A5 7F                       LDA     COUNTR+1
    5549  FE39  E9 00                       SBC     #0
    5550  FE3B  85 7F                       STA     COUNTR+1
    5551  FE3D  30 03                       BMI     DRAW10
    5552  FE3F  4C 90 FD                    JMP     DRAW4A
    5553  FE42  4C 34 F6            DRAW10: JMP     RETUR1
    5554                                    .PAGE
    5555                            ;
    5556                            ;
    5557                            ; TABLES
    5558                            ;
    5559                            ;
    5560                            ; MEMORY ALLOCATION
    5561                            ;
    5562  FE45  18 10 0A 0A         ALOCAT: .BYTE   24,16,10,10,16,28,52,100,196,196,196,196
    5563  FE49  10 1C 34 64
    5564  FE4D  C4 C4 C4 C4
    5565                            ;
    5566                            ;
    5567                            ; NUMBER OF DISPLAY LIST ENTRIES
    5568                            ;
    5569  FE51  17 17 0B 17         NUMDLE: .BYTE   23,23,11,23,47,47,95,95,97,97,97,97
    5570  FE55  2F 2F 5F 5F
    5571  FE59  61 61 61 61
    5572  FE5D  13 13 09 13         MXDMDE: .BYTE   19,19,9,19,39,39,79,79,65,65,65,65 ;(EXT OF NUMDLE)
    5573  FE61  27 27 4F 4F
    5574  FE65  41 41 41 41
    5575                            ;
    5576                            ;
    5577                            ; ANTIC CODE FROM INTERNAL MODE CONVERSION TABLE
    5578                            ;
    5579                            ;   INTERNAL         ANTIC CODE             DESCRIPTION
    5580                            ;       0               2               40X2X8  CHARACTERS
    5581                            ;       1               6               20X5X8      ""
    5582                            ;       2               7               20X5X16     ""
    5583                            ;       3               8               40X4X8  GRAPHICS
    5584                            ;       4               9               80X2X4     ""
    5585                            ;       5               A               80X4X4     ""
    5586                            ;       6               B               160X2X2    ""
    5587                            ;       7               D               160X4X2    ""
    5588                            ;       8               F               320X2X1    ""
    5589                            ;       9               SAME AS 8 BUT GTIA 'LUM' MODE
    5590                            ;       10              SAME AS 8 BUT GTIA 'COL/LUM REGISTER' MODE
    5591                            ;       11              SAME AS 8 BUT GTIA 'COLOR' MODE
    5592                            ;
    5593  FE69  02 06 07 08         ANCONV: .BYTE   2,6,7,8,9,$A,$B,$D,$F,$F,$F,$F ;ZEROS FOR RANGE TEST IN PAGETB
    5594  FE6D  09 0A 0B 0D
    5595  FE71  0F 0F 0F 0F
    5596                            ;
    5597                            ;
    5598                            ; PAGE TABLE TELLS WHICH DISPLAY LISTS ARE IN DANGER OF
    5599                            ; CROSSING A 256 BYTE PAGE BOUNDARY
    5600                            ;
    5601  FE75  00 00 00 00         PAGETB: .BYTE   0,0,0,0,0,0,0,1,1,1,1,1
    5602  FE79  00 00 00 01
    5603  FE7D  01 01 01 01
    5604                            ;
    5605                            ;
    5606                            ; THIS IS THE NUMBER OF LEFT SHIFTS NEEDED TO MULTIPLY
    5607                            ; COLCRS BY 10,20, OR 40.  (ROWCRS*10)/(2**DHLINE)
    5608                            ;
    5609  FE81  02 01 01 00         DHLINE: .BYTE   2,1,1,0,0,1,1,2,2,2,2,2
    5610  FE85  00 01 01 02
    5611  FE89  02 02 02 02
    5612                            ;
    5613                            ;
    5614                            ; COLUMN: NUMBER OF COLUMNS
    5615                            ;
    5616  FE8D  28 14 14 28         COLUMN: .BYTE   40,20,20,40,80,80,160,160,64,80,80,80 ;MODE 8 IS SPECIAL CASE
    5617  FE91  50 50 A0 A0
    5618  FE95  40 50 50 50
    5619                            ;
    5620                            ;
    5621                            ;
    5622                            ; NOROWS: NUMBER OF ROWS
    5623                            ;
    5624  FE99  18 18 0C 18         NOROWS: .BYTE   24,24,12,24,48,48,96,96,192,192,192,192
    5625  FE9D  30 30 60 60
    5626  FEA1  C0 C0 C0 C0
    5627                            ;
    5628                            ;
    5629                            ;
    5630                            ;
    5631                            ; DIV2TB: HOW MANY RIGHT SHIFTS FOR HCRSR FOR PARTIAL BYTE MODES
    5632                            ;
    5633  FEA5  00 00 00 02         DIV2TB: .BYTE   0,0,0,2,3,2,3,2,3,1,1,1
    5634  FEA9  03 02 03 02
    5635  FEAD  03 01 01 01
    5636                            ;
    5637                            ;
    5638                            ; DMASKT: DISPLAY MASK TABLE
    5639                            ;
    5640  FEB1  00 FF F0 0F         DMASKT: .BYTE   $00,$FF,$F0,$0F
    5641  FEB5  C0 30 0C 03                 .BYTE   $C0,$30,$0C,$03
    5642                            ;
    5643                            ; MASKTB: BIT MASK.   (ALSO PART OF DMASKTB! DO NOT SEPARATE)
    5644                            ;
    5645  FEB9  80 40 20 10         MASKTB: .BYTE   $80,$40,$20,$10,$08,$04,$02,$01
    5646  FEBD  08 04 02 01
    5647                            ;
    5648                            ;
    5649                            ;
    5650                            ;
    5651  FEC1  28 CA 94 46         COLRTB: .BYTE   $28,$CA,$94,$46,$00
    5652  FEC5  00
    5653                            ;
    5654                            ;
    5655                            ;
    5656                            ;
    5657                            ; CNTRLS: CONTROL CODES AND THEIR DISPLACEMENTS INTO THE
    5658                            ;         CONTROL CHARACTER PROCESSORS
    5659                            ;
    5660  FEC6  1B                  CNTRLS: .BYTE   $1B
    5661  FEC7  79 F7                       .WORD   ESCAPE
    5662  FEC9  1C                          .BYTE   $1C
    5663  FECA  7F F7                       .WORD   CRSRUP
    5664  FECC  1D                          .BYTE   $1D
    5665  FECD  8C F7                       .WORD   CRSRDN
    5666  FECF  1E                          .BYTE   $1E
    5667  FED0  99 F7                       .WORD   CRSRLF
    5668  FED2  1F                          .BYTE   $1F
    5669  FED3  AA F7                       .WORD   CRSRRT
    5670  FED5  7D                          .BYTE   $7D
    5671  FED6  B9 F7                       .WORD   CLRSCR
    5672  FED8  7E                          .BYTE   $7E
    5673  FED9  E6 F7                       .WORD   BS
    5674  FEDB  7F                          .BYTE   $7F
    5675  FEDC  10 F8                       .WORD   TAB
    5676  FEDE  9B                          .BYTE   $9B
    5677  FEDF  30 FA                       .WORD   DOCRWS
    5678  FEE1  9C                          .BYTE   $9C
    5679  FEE2  D4 F8                       .WORD   DELLIN
    5680  FEE4  9D                          .BYTE   $9D
    5681  FEE5  A4 F8                       .WORD   INSLIN
    5682  FEE7  9E                          .BYTE   $9E
    5683  FEE8  32 F8                       .WORD   CLRTAB
    5684  FEEA  9F                          .BYTE   $9F
    5685  FEEB  2D F8                       .WORD   SETTAB
    5686  FEED  FD                          .BYTE   $FD
    5687  FEEE  0A F9                       .WORD   BELL
    5688  FEF0  FE                          .BYTE   $FE
    5689  FEF1  6D F8                       .WORD   DELCHR
    5690  FEF3  FF                          .BYTE   $FF
    5691  FEF4  37 F8                       .WORD   INSCHR
    5692                            ;
    5693                            ;
    5694                            ;
    5695                            ;
    5696                            ;
    5697                            ; ATAINT: ATASCI TO INTERNAL TABLE
    5698                            ;
    5699  FEF6  40 00 20 60         ATAINT: .BYTE   $40,$00,$20,$60
    5700                            ;
    5701                            ;
    5702                            ; INTATA: INTERNAL TO ATASCI TABLE
    5703                            ;
    5704  FEFA  20 40 00 60         INTATA: .BYTE   $20,$40,$00,$60
    5705                            ;
    5706                            ;
    5707                            ; ATASCI: ATASCII CONVERSION TABLE
    5708                            ;
    5709  FEFE  6C 6A 3B 80         ATASCI: .BYTE   $6C,$6A,$3B,$80,$80,$6B,$2B,$2A ;LOWER CASE
    5710  FF02  80 6B 2B 2A
    5711  FF06  6F 80 70 75                 .BYTE   $6F,$80,$70,$75,$9B,$69,$2D,$3D
    5712  FF0A  9B 69 2D 3D
    5713  FF0E
    5714  FF0E  76 80 63 80                 .BYTE   $76,$80,$63,$80,$80,$62,$78,$7A
    5715  FF12  80 62 78 7A
    5716  FF16  34 80 33 36                 .BYTE   $34,$80,$33,$36,$1B,$35,$32,$31
    5717  FF1A  1B 35 32 31
    5718  FF1E
    5719  FF1E  2C 20 2E 6E                 .BYTE   $2C,$20,$2E,$6E,$80,$6D,$2F,$81
    5720  FF22  80 6D 2F 81
    5721  FF26  72 80 65 79                 .BYTE   $72,$80,$65,$79,$7F,$74,$77,$71
    5722  FF2A  7F 74 77 71
    5723  FF2E
    5724  FF2E  39 80 30 37                 .BYTE   $39,$80,$30,$37,$7E,$38,$3C,$3E
    5725  FF32  7E 38 3C 3E
    5726  FF36  66 68 64 80                 .BYTE   $66,$68,$64,$80,$82,$67,$73,$61
    5727  FF3A  82 67 73 61
    5728  FF3E
    5729  FF3E
    5730  FF3E  4C 4A 3A 80                 .BYTE   $4C,$4A,$3A,$80,$80,$4B,$5C,$5E ;UPPER CASE
    5731  FF42  80 4B 5C 5E
    5732  FF46  4F 80 50 55                 .BYTE   $4F,$80,$50,$55,$9B,$49,$5F,$7C
    5733  FF4A  9B 49 5F 7C
    5734  FF4E
    5735  FF4E  56 80 43 80                 .BYTE   $56,$80,$43,$80,$80,$42,$58,$5A
    5736  FF52  80 42 58 5A
    5737  FF56  24 80 23 26                 .BYTE   $24,$80,$23,$26,$1B,$25,$22,$21
    5738  FF5A  1B 25 22 21
    5739  FF5E
    5740  FF5E  5B 20 5D 4E                 .BYTE   $5B,$20,$5D,$4E,$80,$4D,$3F,$81
    5741  FF62  80 4D 3F 81
    5742  FF66  52 80 45 59                 .BYTE   $52,$80,$45,$59,$9F,$54,$57,$51
    5743  FF6A  9F 54 57 51
    5744  FF6E
    5745  FF6E  28 80 29 27                 .BYTE   $28,$80,$29,$27,$9C,$40,$7D,$9D
    5746  FF72  9C 40 7D 9D
    5747  FF76  46 48 44 80                 .BYTE   $46,$48,$44,$80,$83,$47,$53,$41
    5748  FF7A  83 47 53 41
    5749  FF7E
    5750  FF7E
    5751  FF7E  0C 0A 7B 80                 .BYTE   $0C,$0A,$7B,$80,$80,$0B,$1E,$1F ;CONTROL
    5752  FF82  80 0B 1E 1F
    5753  FF86  0F 80 10 15                 .BYTE   $0F,$80,$10,$15,$9B,$09,$1C,$1D
    5754  FF8A  9B 09 1C 1D
    5755  FF8E
    5756  FF8E  16 80 03 80                 .BYTE   $16,$80,$03,$80,$80,$02,$18,$1A
    5757  FF92  80 02 18 1A
    5758  FF96  80 80 85 80                 .BYTE   $80,$80,$85,$80,$1B,$80,$FD,$80
    5759  FF9A  1B 80 FD 80
    5760  FF9E
    5761  FF9E  00 20 60 0E                 .BYTE   $00,$20,$60,$0E,$80,$0D,$80,$81
    5762  FFA2  80 0D 80 81
    5763  FFA6  12 80 05 19                 .BYTE   $12,$80,$05,$19,$9E,$14,$17,$11
    5764  FFAA  9E 14 17 11
    5765  FFAE
    5766  FFAE  80 80 80 80                 .BYTE   $80,$80,$80,$80,$FE,$80,$7D,$FF
    5767  FFB2  FE 80 7D FF
    5768  FFB6  06 08 04 80                 .BYTE   $06,$08,$04,$80,$84,$07,$13,$01
    5769  FFBA  84 07 13 01
    5770                            ;
    5771                            ;
    5772                            ;
    5773                            ;
    5774                            ;
    5775  FFBE  AD 09 D2            PIRQ5:  LDA     KBCODE
    5776  FFC1  CD F2 02                    CMP     CH1         ;TEST AGAINST LAST KEY PRESSED
    5777  FFC4  D0 05                       BNE     PIRQ3       ;IF NOT, GO PROCESS KEY
    5778  FFC6  AD F1 02                    LDA     KEYDEL      ;IF KEY DELAY BYTE > 0
    5779  FFC9  D0 20                       BNE     PIRQ4       ;IGNORE KEY AS BOUNCE
    5780  FFCB  AD 09 D2            PIRQ3:  LDA     KBCODE      ;RESTORE AC
    5781  FFCE  C9 9F                       CMP     #CNTL1      ;TEST CONTROL 1 (SSFLAG)
    5782  FFD0  D0 0A                       BNE     PIRQ1
    5783  FFD2  AD FF 02                    LDA     SSFLAG
    5784  FFD5  49 FF                       EOR     #$FF
    5785  FFD7  8D FF 02                    STA     SSFLAG
    5786  FFDA  B0 0F                       BCS     PIRQ4       ;(UNCONDITIONAL) MAKE ^1 INVISIBLE
    5787  FFDC  8D FC 02            PIRQ1:  STA     CH
    5788  FFDF  8D F2 02                    STA     CH1
    5789  FFE2  A9 03                       LDA     #3
    5790  FFE4  8D F1 02                    STA     KEYDEL      ;INITIALIZE KEY DELAY FOR DEBOUNCE
    5791  FFE7  A9 00                       LDA     #0          ;CLEAR COLOR SHIFT BYTE
    5792  FFE9  85 4D                       STA     ATRACT
    5793  FFEB  A9 30               PIRQ4:  LDA     #$30
    5794  FFED  8D 2B 02                    STA     SRTIMR
    5795  FFF0  68                  PIRQ2:  PLA
    5796  FFF1  40                          RTI
    5797                            ;
    5798                            ;
    5799  FFF2  FF FF FF FF                 .BYTE   $FF,$FF,$FF,$FF,$FF,$FF
    5800  FFF6  FF FF
    5801                            ;
    5802  FFF8                      CRNTPC  =*
    5803                                    *=$14
    5804  0014  00                  KBDSPR: .BYTE   $FFF8-CRNTPC ;^GDISPLC IS TOO LONG
    5805                                    .END


 ASSEMBLY ERRORS =      0

                              CROSS REFERENCE

LABEL     VALUE         REFERENCE

ACK       0041          -1632  1902
ACKREC    E9C6           1785 -1794
ADDCOR    030E           -498  2515  2519  2523
ADJ1      ED0C           2533 -2537
ADJUST    ED04           2470  2473 -2532
ADRESS    0064           -269  4120  4145  4171  4173  4182  4183  4184
                         4186  4252  4254  4258  4260  4263  4265  4296
                         4355  4357  4426  4443  4445  4570  4573  4574
                         4653  4655  4681  4686  4748  4755  4758  4760
                         4762  4766  4834  4835  4838  4839  5092  5094
                         5101  5104  5106  5149  5161  5163  5165  5168
                         5171  5175  5176  5178  5179  5287  5378  5380
ADRTAB    E6FE          -1292  1327
AFP       D800           -574
ALLPOT    D208           -659
ALLSEC    F30E           3886 -3891
ALOCAT    FE45           4146 -5562
ANCONV    FE69           4139 -5593
ANTIC     D400           -735   736   737   738   739   740   741   742
                          743   744   745   746   747   748   749   750
APPEND    0001           -111
APPMHI    000E           -179  4761  4765
ASCCO1    F705           4478 -4480
ASCZER    0030           -764  1193
ATACHR    02FB           -469  4308  4311  4316  4333  4372  4394  4417
                         4421  4428  4481  4515  4526  4528  4606  5082
                         5300  5527  5538  5542
ATAINT    FEF6           4343 -5699
ATAN      BE43           -602
ATASCI    FEFE           4480 -5709
ATEOF     F00B           3250 -3256
ATRACT    004D           -248  1340  1395  1401  1403  5792
AUDC1     D201           -667  2343  2353  2378
AUDC2     D203           -669  2354
AUDC3     D205           -671  2349
AUDC4     D207           -673
AUDCTL    D208           -674  2336
AUDF1     D200           -666  2297
AUDF2     D202           -668  2295
AUDF3     D204           -670  1749  2203  2607  3200
AUDF4     D206           -672  1751  2205  2609  3202
B192HI    0000          -1641  1750
B192LO    0028          -1640  1748
B600HI    0005          -1643  2204
B600LO    00CC          -1642  2202
BAD       EA63           1919 -1925
BADCOM    E9BF           1782 -1788  1809
BADDSK    F306          -3887  3923  3929
BADIOC    0086           -142   826
BADMOD    0091           -154  4141
BADST     EE9E           2914  2917  2963 -2965
BEEP      F058           3164  3197 -3314
BEEP1     F05A          -3315  3349
BEGIN     ED10           2255 -2558  2570
BELL      F90A           4402 -4726  5687
BELL1     F90C          -4727  4729
BFENHI    0035           -224  1774  1886  1985  2147  2184
BFENLO    0034           -223  1771  1883  1983  2145  2179
BITCLR    FB12           4624  5038 -5046
BITCON    FAEB          -5019  5040  5046  5056
BITGE1    FB31           5060 -5062
BITGET    FB25           4618  4890 -5056
BITMSK    006E           -276  5023  5042  5047  5059
BITPUT    FB04           4711 -5038  5129  5138
BITROL    FAFA          -5032  5159
BITSET    FB06           4622 -5040
BLACKB    F22A          -3740  3741
BLFILL    EEC1           2992 -2995  3015
BLIM      028A           -398  3183  3235  3254
BLKB2     F230           3740 -3742
BLKBDV    E471            -77  3483  3601  3603
BLOAD     F36C           3928 -3933
BOOT      F2CF           3710 -3862
BOOTAD    0242           -360  3896  3898  3934  3937
BOOT?     0009           -176  3864  3931  3991  4007
BOTSCR    02BF           -429  4193  4201  4542  4548  4664  4953  5335
BPTR      003D           -234  3182  3225  3234  3238  3246  3263  3265
                         3274  3293
BRKABT    0080           -136  2637  3188  4466  4983
BRKKEY    0011           -184  1337  1957  2064  2558  2580  2643  3189
                         3220  3831  4467  4509  4984  4985
BRKKY     0236           -345  1292  3833  3835
BRKKY2    E754          -1336  3832  3834
BROKE     EDA0           1959  2066  2560  2581 -2632
BS        F7E6          -4591  5673
BS1       F80D           4593 -4608
BS2       F805           4601  4603 -4605
BS3       F7F5           4596 -4598
BSA       F7EC          -4594
BUFADR    0015           -187  2829  2838  2842  2863  2865
BUFCNT    006B           -274  4386  4410  4412  5219  5229  5232  5240
                         5249
BUFFH     0004          -3421  3422  3883
BUFFL     0000          -3422  3881
BUFFUL    EECB           2989 -3000
BUFRFL    0038           -227  2054  2111  2160
BUFRHI    0033           -222  1773  1885  1980  1984  2142  2146  2182
BUFRLO    0032           2624  2626
                         -221  1769  1881  1951  1978  1982  2009  2133
BUFSTR    006C           2140  2144  2177  2615  2617  2621  2623
                         -275  4389  4391  4406  4408  4584  4588  4927
                         5214  5216  5263  5265
CAINI     F239           3669 -3750
CART      BFFC          -3436  3658  3666  3781  3783  3784  3793
CARTAD    BFFE          -3438  3750  3751  3788
CARTCS    BFFA          -3435  3720  3726
CARTFG    BFFD          -3437  3702  3705  3717  3723  3786
CAS31     EC5E           2352 -2357
CASBUF    03FD           -545  3101  3102  3237  3248  3253  3264  3295
                         3301  3389  3391  3392  3421  3422  3892  3900
                         3902  3905
CASENT    EB80           1734 -2197
CASET     0060          -1611  1732  2289  2351
CASETV    E440            -59  3118  3513  3849
CASFLG    030F           -499  1739  2050  2234
CASINI    0002           -169  4009  4011  4014
CASORG    EF41            -30  3097  3136
CASRED    EBB3           2198 -2233
CASSBT    004B           -245  3888  3922  3925  3975  4001  4005
CASSET    0043           -124
CASSPR    0014          -3398
CAUX1     023C           -351  1763
CAUX2     023D           -352  1765
CBAUDH    02EF           -457  2602  2608  3144
CBAUDL    02EE           -456  2601  2606  3142
CBINI     F23C           3661 -3751
CBUFH     0003          -3101  3102  3366
CBUFHI    0002          -1669  1670  1772
CBUFL     00FD          -3102  3368
CBUFLO    003A          -1670  1768
CCOMND    023B           -350  1760
CDEVIC    023A           -349  1669  1670  1757
CDTMA1    0226           -330  1528  2653  2655
CDTMA2    0228           -331  1529
CDTMF3    022A           -332  1455  3177  3179  3219  3222
CDTMF4    022C           -334
CDTMF5    022E           -336
CDTMV1    0218           -323  1451  1452  1535  1537  1539  1540  1542
                         1564  1566
CDTMV2    021A           -324
CDTMV3    021C           -325
CDTMV4    021E           -326
CDTMV5    0220           -327
CDUBL     EF26           3072 -3075
CH        02FC           -470  1478  4087  4462  4469  4474  5787
CHI       02F2           -461  5776  5788
CHACT     02F3           -463  1442  4110
CHACTL    D401           -737  1443
CHAR      02FA           -468  4302  4344  4346  5069  5079
CHBAS     02F4           -464  1440  4108
CHBASE    D409           -743  1441
CHKDON    EABA           1995 -2002  2017
CHKERR    008F           -151  2118
CHKSNT    003B           -230  1947  1988  1994  2026
CHKSUM    0031           -220  1946  1955  1991  2013  2015  2053  2115
                         2136  2138  2619
CHKTIM    EAF9          -2064  2071
CHRORG    E000            -22
CICLO2    E53F            901  -903
CICLOS    E533            853  -898
CIERR1    E4D1            821  -826
CIERR2    E6B0           1173 -1183
CIERR3    E50F           -869
CIERR4    E511            842  -870   874   880   920
CIJUMP    E693           1152 -1158
CINI      F3E1           3994 -4014
CIO       E4C4            771  -815
CIOCHR    002F           -217   815   951   956   966   985   989  1019
                         1026  1037  1083
CIOI1     E4A8           -787   798
CIOINT    E4A6            775  -786  1212
CIOINV    E46E            -76   774  3850
CIOORG    E4A6            -25   783
CIOPEN    E509            851  -864
CIOSPR    0014          -1215
CIOV      E456            -68   770  3683  3967
CIREAD    E569            857  -934
CIRT3     E62B          -1075  1080
CIRTN1    E61B            827   870   940  1009 -1065
CIRTN2    E61D            893   909   930   952   999  1060 -1069
CIST1     E559            916  -923
CISTSP    E54E            855  -914
CIWRIT    E5C9            858 -1003
CIX       00F2           -616
CKEY      004A           -244  3856  3997  4006
CKSTC     EE11           2808 -2810
CLICK     FCD8           4475  4727 -5355
CLICK1    FCDA          -5356  5359
CLOSE     000C            -93
CLOSEC    F02B           3119 -3286
CLRCHP    F27A          -3820  3825
CLRCOD    007D          -4030  4312
CLRLI1    FBA6          -5149  5151
CLRLIN    FB9B           4697 -5144
CLRRAM    F140          -3591  3594  3598
CLRSC2    F7BF          -4570  4572  4576
CLRSC3    F7CE          -4578  4581
CLRSCR    F7B9           4280  4314 -4567  5671
CLRTAB    F832          -4623  5683
CLRTBS    F430          -4125  4127
CLS       007D          -3416  3527
CLWRT     F038           3287 -3293
CMODE     EF1E          -3071  3087
CMPTAB    E6F6          -1282  1313
CNTL1     009F          -4031  5781
CNTRLS    FEC6           4442  4444  5299 -5660
COLAC     0072           -279  5440  5495  5497  5498  5500  5504
COLBK     D01A           -708
COLCR     FCE4           4582  4901 -5365
COLCR1    FCEE           5367 -5370
COLCR2    FCF0           5369 -5371
COLCRS    0055           -259  4390  4409  4552  4553  4558  4560  4561
                         4587  4594  4599  4610  4679  4719  4778  4780
                         4811  4816  4845  4847  4860  4862  4863  4875
                         4903  4970  4975  4978  5145  5202  5217  5226
                         5245  5371  5400  5402  5509  5510  5513  5515
                         5517  5519
COLDST    0244           -361  3565  3606  3714
COLDSV    E477            -79  3491
COLINC    007A           -284  5406  5428  5507
COLON     003A           -765
COLOR0    02C4           -436  4130
COLOR1    02C5           -437
COLOR2    02C6           -438
COLOR3    02C7           -439
COLOR4    02C8           -440  4169
COLPF0    D016           -704
COLPF1    D017           -705
COLPF2    D018           -706
COLPF3    D019           -707
COLPM0    D012           -700  1437
COLPM1    D013           -701
COLPM2    D014           -702
COLPM3    D015           -703
COLRSH    004F           -250  1407  1435
COLRTB    FEC1           4129 -5651
COLUMN    FE8D           4865  4977 -5616
COM1      E647           1095 -1102
COM2      E662           1099 -1116
COMENT    E63D            879   888   900   923   943  1012 -1093
COMFRM    E978          -1748  1789
COMMND    E974          -1743  1856
COMPLT    0043          -1634  1904
COMPUT    ECA3           2468  2600
COMRE1    F7A7           4556 -4559  4563  4564
COMRET    F789           4541 -4545  4549
COMTAB    E6C9            850  1107 -1209
CONSOL    D01F           -713  1432  3325  3330  3853  5356
CONTIN    EC31           2307 -2331
CONVR1    F97E           4805  4809
CONVR2    F988           4806 -4810
CONVR3    F98F           4813  4819
CONVR4    F99C           4814 -4820
CONVR5    F9A6           4824 -4826
CONVR6    F9A7           4827  4830
CONVRT    F947           4295  4345  4652  4680  4720 -4776  5146  5282
COS       BD73           -601
COUNT     ED3B          -2580  2591  2594 2604
COUNTR    007E           -288  5453  5463  5471  5472  5545  5547  5548
                         5550
CR        009B           -129  2991  3527  3539  3551  4317  4395  4420
                         4510
CRETRI    000D          -1672  1743  1802
CRETRN    EBDF           2227 -2259
CRETRY    0036           -225  1744  1788  1803
CRITIC    0042           -239  1412  1729  1863
CRLOOP    F5E7          -4329  4332
CRNTP1    E6D5          -1213  1215
CRNTP2    E90B          -1582  1584
CRNTP3    EDE8          -2725  2727
CRNTP4    EE78          -2872  2875
CRNTP5    EF41          -3093  3097
CRNTP6    F0E3          -3396  3398
CRNTP7    F3E4          -4020  4023
CRNTPC    FFF8          -5802  5804
CRSINH    02F0           -459  1339  4122  4365
CRSRDN    F78C          -4546  5665
CRSRL1    F7A3           4554 -4557
CRSRLF    F799          -4552  4598  5237  5244  5667
CRSROR    008D           -149  4989
CRSRRT    F7AA          -4560  4609  5669
CRSRUP    F77F          -4540  4604  5663
CSBOOT    F3B2           3694 -3989
CSBOT2    F3C0           3990 -3997
CSIDE     EF2E           3076 -3079
CSIO      F0AC          -3370
CSOPIV    E47D            -81  3132  4002
CSTAT     0288           -396
CTIA      D000           -681   682   683   684   685   686   687   688
                          689   690   691   692   693   694   695   696
                          697   698   699   700   701   702   703   704
                          705   706   707   708   709   710   711   712
                          713   714   715   716   717   718   719   720
                          721   722   723   724   725   726   727   728
                          729   730   731   732   733
CTIMHI    0000          -1675  2446
CTIMLO    0002          -1674  2445
CTRLC     0092          -3417
D         0044          -2901  3075
DAUX1     030A           -494  1762  2960  3084  3880  3918
DAUX2     030B           -495  1764  2210  2237  2259  3383  3878
DBDDEC    F913           4188 -4740
DBDEC     F91F           4178 -4751
DBSECT    0241           -359  3916
DBSUB     F921           4148  4165  4741 -4752
DBSUB1    F934           4759 -4761
DBUFHI    0305           -489  2181  2815  2864  3035  3367  3884
DBUFLO    0304           -488  2176  2813  2862  3034  3369  3882
DBUFSZ    0014          -2894  3077
DBYTHI    0309           -493  2183  2820  2850  3049  3363
DBYTLO    0308           -492  2178  2818  2848  3047  3365
DCB       0300           -483
DCOMND    0302           -486  1759  2799  2806  2824  2831  2959  3041
                         3083  3361  3376  3872  3979
DCTIM1    E8DD           1536 -1540
DCTIMR    E8D0           1409  1445  1454 -1535
DCTXF     E8EA           1538  1541  1543 -1546
DDEVIC    0300           -484  3371  1731  1754  2288  2350  2797  3037  3204
                         3371
DECBF1    E66D           1124 -1126
DECBFL    E663            969   973  1040  1044 -1121
DEGFLG    00FB           -621
DEGON     0006           -624
DELAY0    EC8C          -2437  2441
DELAY1    EC8E          -2438  2439
DELCH1    F870          -4652  4669
DELCH2    F896           4662  4665 -4670
DELCHR    F86D          -4651  5689
DELETE    0021           -101
DELLI1    F8DD          -4703  4714
DELLI2    F8F8          -4718
DELLIA    F8D7          -4700
DELLIB    F8DB          -4702  4724  5291
DELLIN    F8D4          -4699  5679
DELTAC    0077           -282  5422  5425  5429  5431  5432  5434  5435
                         5437  5447  5452  5456  5496  5499
DELTAR    0076           -281  5410  5414  5418  5457  5459  5477
DELTI1    FC82          -5287  5290
DELTI2    FC89          -5291
DELTI3    FC8C           5281  5288 -5292
DELTIA    FC68           4673 -5274
DELTIB    FC70           5276 -5278
DELTIM    FC73           4597 -5279
DERR      E9F6           1821 -1842
DERR1     EA06           1791  1830 -1853
DERR5     F10D          -3539  3543  3544
DERRH     00F1          -3543  3544  3949
DERRL     000D          -3544  3948
DERROR    0090           -153  1910
DEVS1     E6A6          -1175  1180
DEVS2     E6B5           1176 -1188
DEVS3     E6C5           1195 -1197
DEVS4     E6C8           1185 -1201
DEVSRC    E69E            873   919 -1171
DFLAGS    0240           -358  3893
DHLINE    FE81           4804 -5609
DIGRT     00F1           -615
DINDEX    0057           -260  4106  4138  4194  4225  4363  4803  4864
                         4877  4905  4956  4963  5070  5368
DINI      F37E           3867  3930 -3941
DINIT     EDEA           2759 -2788
DIRECT    0002           -112
DISK      0044           -126
DISKID    0031          -2744  2796
DISKIV    E450            -66
DISKM     F3A4           3976 -3978
DISPLA    E410          -4056
DISPLY    0053           -122
DIV2TB    FEA5           4810 -5633
DLISTH    D403           -739  1424
DLISTL    D402           -738  1426
DMACTL    D400           -736  1428
DMASK     02A0           -416  4297  4351  4353  4842
DMASKT    FEB1           4841 -5640
DNACK     008B           -147  1914
DOB1      FC1A           5222 -5224
DOBOOT    F2ED           3874 -3877  3889
DOBUFA    FC29           5225  5228 -5231
DOBUF1    FC12          -5220  5235
DOBUF2    FC39           5230 -5238  5250
DOBUF3    FC51           5247 -5249
DOBUF4    FC55           5239  5243 -5251
DOBUFC    FC00           4405 -5211
DOCR      FA34           4613  4878  4883  4886 -4901
DOCR1     FA00           4874 -4877
DOCR1A    FA29           4891  4893 -4896
DOCR1B    FA14           4881 -4886
DOCR2     FA3D          -4905
DOCR2A    FA4A           4908 -4912
DOCR2B    FA4D           4911 -4913
DOCR4B    FA61           4923 -4925  4931
DOCRWS    FA30           4319  4419  4884 -4899  5677
DOINTP    ECE5          -2509  2512
DOLCO1    FBE5          -5191  5199
DOLCO2    FBF8           5193 -5200
DOLCOL    FBDD           4559  4608  4620  4648  4675  4698  4699  4725
                         4896  4934  5182 -5187  5261  5278
DOPEN     F3F6           4056 -4099
DOPEN1    F460          -4147  4150
DOPEN2    F4D5          -4203  4206
DOPEN3    F4FA          -4221  4224
DOPEN4    F51C          -4237  4240
DOPEN5    F524           4227 -4241
DOPEN7    F588           4279 -4284
DOPEN8    F438          -4129  4132
DOPEN7    F577           4271 -4277
DOPENA    F457           4140 -4143
DOSINI    000C           -178  3901  3903  3941  4008  4010
DOSS      F6AD           4397 -4431
DOSVEC    000A           -177  3602  3604  3730
DOUBLE    0044          -1626
DRAW      FCFC           4061 -5388
DRAW1     FD37           5411 -5419
DRAW10    FE42           5474  5551 -5553
DRAW11    FD99           5473 -5475
DRAW2     FD5C           5426  5436 -5438
DRAW3     FD83           5455  5458 -5462
DRAW3A    FDA2           5441  5446
DRAW4A    FD90           5471  5552
DRAWS     FDA4           5479 -5481
DRAW5A    FDB2           5484 -5488
DRAW6     FDBE           5483  5487 -5494
DRAW6A    FDD7           5503 -5507
DRAW6B    FDEB           5508 -5517
DRAW7     FDF1           5512  5514  5516  5518 -5520
DRAW8     FDF6           5502  5506 -5522
DRAW8A    FE0A          -5529  5540
DRAW8B    FE27           5536 -5541
DRAW8C    FE13          -5534
DRAW9     FE30           5525 -5544
DRAWA     FD0C           5391 -5397
DRAWB     FD0B           5393 -5396
DRAWLN    0011            -98
DRETRI    0001          -1673  1741
DRETRY    0037           -226  1742  1853
DRKMSK    004E           -249  1406  1436
DSKFMS    0018           -191
DSKIF     EDF0           2760 -2796  3982
DSKINV    E453            -67  3873  2769
DSKORG    EDEA            -28  2727  -3948
DSKRDE    F381           3887  3921
DSKSPR    0014          -2875
DSKTIM    0246           -365  2789  2798  2830
DSKUTL    001A           -192
DSPFLG    02FE           -472  4437
DSTAT     004C           -246  4113  4142  4270  4369  4371  4393  4414
                         4423  4508  4745  4753  4769  4982  4990
DSTATS    0303           -487  1794  1826  1865  2197  2817  2851  3045
                         3381
DTI       00FA          -3110  3251  3296
DTA       00FC          -3109  3271
DTIMLO    0306           -490  2396  2803  3051  3375
DUNIT     0301           -485  1755  3039  3373  3870  3981
DUNUSE    0307           -491
DVSTAT    02EA           -455  2736  2737  2939  3059
EDITOR    E400          -4043
EDITRV    E400            -55  3515  3742  3744  3845  4039
EEXP      00ED           -611
EGETC1    F650          -4392  4403
EGETG2    F66E           4396 -4404
EGETC3    F67C           4387 -4410
EGETC5    F691           4411  4413 -4419
EGETC6    F66B           4401 -4403
EGETC7    F680          -4412  4415
EGETCH    F63E           4045 -4384
ENBOOT    F35A           3917 -3925
ENDACK    F1BD           3665  3667 -3674
ENDBCK    F1AC           3657  3659 -3663
ENDDIF    EE69           2833 -2851
ENDPT     0074           -280  4941  4944  5454  5464  5466  5482  5486
                         5501  5505
ENDRAM    F276           3802 -3810
ENINTP    ECEB          -2514
ENSPE2    F257           3782 -3794
ENSPEC    F254           3785  3787 -3793
ENTVEC    002C           -810
EOF       0088          -3418
EOFERR    0088           -144  3257  4507
EOL       009B           -766   967   990  1038  1055
EOPEN     F3FC           4043 -4102  4273  4958
EOT       00FE          -3111  3249  3304
EOUTC5    F6BE           4433 -4437
EOUTC6    F6B5          -4434  4439
EOUTCH    F6A4           4046 -4428
ERANGE    FA88           4385  4430 -4953
ERETN     F6BB          -4436
ERRFLG    023F           -356  1781  1818  1829  1842  1877  1922
ERROR     0045          -1635  1907
ERRTN     E4C0           -802   803   804
ERRTNH    00E4            791  -803   804   905
ERRTNL    00C0            789  -804   907
ESCAPE    F779          -4537  5661
ESCFLG    02A2           -418  4434  4438  4440  4538
ESIGN     00EF           -613
ESTSCM    F173           3607 -3622
EXP       DDC0           -595
EXP10     DDCC           -596
EXTEN1    FB7E          -5122  5133
EXTEN3    FB8B          -5130
EXTEN4    FB92           5131 -5134
EXTEND    FB7B           4677 -5120
FADD      DA66           -581
FASC      D8E6           -576
FCAX      F032          -3290  3298  3306
FCHRFL    00F0           -614
FDIV      DB28           -583
FEOF      003F           -236  3162  3232  3256
FILDAT    02FD           -471  5537
FILFLG    02B7           -422  5397  5524
FILLBF    EEC3          -2996  2999
FILLIN    0012            -99
FINDX     ECD6          -2497
FLD0P     DD8D           -585
FLD0R     DD89           -584
FLD1P     DD9C           -587
FLD1R     DD98           -586
FLOPPY    0030          -1608
FLPTR     00FC           -625
FMOVE     DDB6           -590
FMSZPG    0043           -241
FMTD      EE4A          -2834
FMUL      DADB           -582
FNCNOT    0092           -155  1151
FOMAT     0021          -2749  2800  2832
FOOEY     EADE           2027 -2036
FORMAT    0022           -102
FPI       D9D2           -579
FPREC     0006           -572   634   635
FPSCR     05E6           -634   635   636
FPSCR1    05EC           -635   637
FPTR2     00FE           -626
FR0       00D4           -606
FR1       00E0           -608
FR2       00E6           -609
FRE       00DA           -607
FREQ      0040           -237  3314  3336
FRMADR    0068          -4033  4682  4687  5098  5105  5107
FRMERR    008C           -148  2102
FRX       00EC           -610
FSCR      05E6           -636
FSCR1     05EC           -637
FST0P     DDAB           -589
FST0R     DDA7           -588
FSUB      DA60           -580
FTYPE     003E           -235  3152  3382  4000
GBX       EFE8          -3240  3244
GBYTE     EFD6           3119 -3232  3255
GETCAR    0007          -3407
GETCH     F593           4058 -4290  4416
GETCHR    0007            -90
GETDAT    0040          -2751  2804
GETOUT    F749           4465 -4510
GETPLT    F5A2           4291 -4295  4361  4626  4639  4666  5238  5535
GETREC    0005            -89
GETSEC    F39D           3885  3919  3927 -3975
GLBABS    02E0           -447
GOBACK    EB09          -2072
GOERR     EF3D           3080 -3086
GOHAND    E689            883 -1151   902   924   950   955   984  1027  1056
GOOD      EA65           1903  1905  1923 -1927
GOODST    EE32           2822 -2824
GOON      EB64           2151 -2159
GOREAD    ED6F           2597 -2606
GPRIOR    026F           -369  1429  4151  4170
GRACTL    D01D           -711
GRAFM     D011           -699
GRAFP0    D00D           -695
GRAFP1    D00E           -696
GRAFP2    D00F           -697
GRAFP3    D010           -698
HARDI     F277           3583 -3818
HATABS    031A           -512   513  1102  1104  1175  3642
HDR       00FB          -3112
HITCLR    D01E           -712
HITIMR    ECCC          -2490  2494
HITONE    0005          -1644  2296
HOLD1     0051           -255  4143  4221  4237  4245  4700  4790  4798
                         5190  5191  5198  5262
HOLD2     029F           -415  4792  4801
HOLD3     029D           -413  4915  4928  4932
HOLD4     02BC           -426  5528  5541
HOLD5     02BD           -427
HOLDCH    007C           -286  4472  4512  4522
HOME      F7D6          -4582  4988
HOWMCH    F25F          -3798  3809
HPOSM0    D004           -686
HPOSM1    D005           -687
HPOSM2    D006           -688
HPOSM3    D007           -689
HPOSP0    D000           -682
HPOSP1    D001           -683
HPOSP2    D002           -684
HPOSP3    D003           -685
HSCROL    D404           -740
ICAX1     034A           -528  3682
ICAX1Z    002A           -213   935  1004  3153  4102  4104  4197  4277
                         4463
ICAX2     034B           -529
ICAX2Z    002B           -214  3070  3151  4099
ICBAH     0345           -523  1072  3680  3962
ICBAHZ    0025           -208  1073
ICBAL     0344           -522  1070  3678  3960
ICBALZ    0024           -207   959  1025  1071  1131  1133  1172  1192
ICBLH     0349           -527  1143
ICBLHZ    0029           -212  1145
ICBLL     0348           -526  1140  3966
ICBLLZ    0028           -211   947   948  1016  1017  1020  1121  1122
                         1125  1126  1141  1142  1144
ICCOM     0342           -520  3676  3964
ICCOMT    0017           -189   849   887  1106
ICCOMZ    0022           -205   840   934   961   979  1003  1032  1050
                         5389
ICDNO     0341           -519
ICDNOZ    0021           -204  1197
ICHID     0340           -518   788   928
ICHIDZ    0020           -203   864   904   914   929  1093  1189
ICIDNO    002E           -216   816   927  1069  1084  1138  1164
ICPTH     0347           -525   792
ICPTHZ    0027           -210   892   906
ICPTL     0346           -524   790
ICPTLZ    0026           -209   890   908
ICSPR     034C           -530
ICSPRZ    002C           -215   216   217   810   889   891  1103  1105
                         1109  1112  1113  1114  1159  1161
ICSTA     0343           -521
ICSTAZ    0023           -206   899   995  1065  1085  1153
IDENT     F0F2          -3527  3535  3536  3538
IDENTH    00F0          -3535  3536  3734
IDENTL    00F2          -3536  3733
IFP       D9AA           -577
IHINIT    E6D5           1230 -1269
IMASK     028B           -399
INATA1    FB4A           5072 -5082
INATAC    FB32           4292 -5069
INBUFF    00F3           -617
INC2A     F9F8           4866  4871 -4873
INCEF1    E676           1132 -1134
INCBFP    E670            960  1029 -1131
INCRS1    FA77           4885  4914  4917  4919 -4934
INCRS2    F9E4           4861 -4863
INCRS3    F9F7           4868  4870 -4872  4876
INCRSA    F9DC           4633 -4859  5531
INCRSB    F9D4           4293  4659 -4855 5231
INCRSC    F9DA           4856 -4858
INCRSR    F9D8           4322 -4857
INIMLH    0007          -3410  3843
INIMLL    0000          -3409  3841
INIT      EF41           3122 -3141
INSCH1    F852          -4637
INSCH3    F85E           4636 -4643
INSCH4    F844          -4630  4642
INSCH5    F86A           4645 -4648
INSCH6    F861          -4644  4647
INSCHR    F837          -4625  5691
INSCLR    0020           -117
INSDAT    007D           -287  4627  4637  4640  4858  4882  4892  4900
                         4918
INSLI1    F8C6          -4693  4696
INSLI2    F8CE           4692 -4697
INSLIA    F8A5          -4677  4895
INSLIN    F8A4          -4676  5681
INTABS    0200           -310  1232  1292  1293  1294  1295  1296  1297
                         1298  1299  1329  1331  1694  3631  4081
INTATA    FEFA           5081 -5704
INTEMP    022D           -335  1557  1563
INTINV    E46B            -75  1229  3852
INTORG    E6D5            -26  1215  1268
INTSPR    0014          -1584
INTTBL    EC84          -2419
INTZBS    0010           -182  3616
INVFLG    02B6           -421  4486  4488  4527
IOC1      E4D6            823  -830
IOC1A     E4D8           -831   836
IOC2      E4F3            847  -849
IOC6      E514            866  -873
IOC7      E519           -879
IOCB      0340           -517   831  1076
IOCBAS    0020           -202   832  1075
IOCBSZ    0010           -200   201   795
IOCFRE    00FF           -107   787   865   903   915
IRQEN     D20E           -678  1306  1308  1324  1326  2000  2034  2332
                         2374  4117
IRQST     D20E           -664  1302  1318
ISEOF     F00D           3233 -3257
ISRODN    EA90           1697 -1975  2420  2425  2426
ISRSIR    EB0F           1696 -2091  2419  2423  2424
ISRTD     EACF           1698 -2026  2421  2427  2428
JMPP      E735           1319 -1323
JSRIND    F6A1          -4426  4446
JTADRH    00EB          -2272  2273  2654
JTADRL    00EC          -2273  2652
JTIMER    EBEC          -2271  2272  2273
JTIMR1    E8CA           1411 -1528
JTIMR2    E8CD           1447 -1529
JVECK     028C           -400  1330  1332  1335  1354  1359  1362
K1        F729           4491 -4495
K2        F734           4496 -4500
K3        F73F           4501 -4505
K4        F776           4525 -4529
K5        F768           4514  4517  4519  4521 -4524
K6        F74D           4506 -4512
K7        F745           4468 -4508
K8        F773           4511 -4528
KBCODE    D209           -660  1477  5775  5780
KBD       004B           -121
KBDHND    E420          -4070
KBDORG    F3E4            -32  4023  4084
KBDSPR    0014          -5804
KEYBDV    E420            -57  3353  3355  3519  3847  4065
KEYDEL    02F1           -460  1463  1465  5778  5790
KGETC1    F71E           4485 -4490
KGETC2    F6DD          -4461  4483  4489  4494  4499  4504
KGETC3    F6FE          -4476  4523
KGETCH    F6E2           4072  4392 -4463 4471
LBFEND    05FF           -638
LBPR1     057E           -630
LBPR2     057F           -631
LBUFF     0580           -632   633
LDPNTR    EB6A           1805  1838 -2175 2223 2250
LEDGE     0002           -252  3622
LENGTH    022F          -1212
LFRTCM    F7A5          -4558  4566
LINBUF    0247           -367  5091  5093
LINZBS    0000           -166
LIRG      0000          -3419
LL        E72F           1317 -1320
LMARGN    0052           -256  3623  4282  4555  4565  4592  4595  4611
                         4678  4718  5144  5234  5242  5264  5275  5280
                         5285  5370
LO1GET    FB22          -5054  5123  5192
LO2GET    FB23           4705 -5055
LOCKFL    0023           -103
LOG       DECD           -597
LOG10     DED1           -598
LOGCOL    0063           -268  4399  4583  4591  4617  4621  4623  4631
                         4635  4657  4661  4859  4879  5188  5194  5197
                         5201  5203  5212  5233  5241  5252  5274  5279
LOGGET    FB20           4614  4722 -5053
LOGMAP    02B2           -420  4578  4715  4717  4929  5032  5033  5034
LOOPM     E71F          -1313  1321
LOOPM2    E72A           1315 -1318
LOTONE    0007          -1645  2294
LPENH     0234           -343  1422
LPENV     0235           -344  1420
M0PF      D000           -714
M0PL      D008           -722
M1PF      D001           -715
M1PL      D009           -723
M2PF      D002           -716
M2PL      D00A           -724
M3PF      D003           -717
M3PL      D00B           -725
MASKTB    FEB9           5022 -5645
MAXDEV    0021           -513  1094  1174
MAXIOC    0080           -201   797   822
MEMLO     02E7           -453  3842  3844
MEMORY  M 0000              0
MEMTOP    02E5           -452  3838  3840  4088  4259  4261
MLTTMP    0066           -270   271  4034  4784  4786  4787  4789  4791
                         4794  4796  4799  4800  4802  4807  4808  4822
                         4823  4825  4832  4837
MODATA    E9F0           1827 -1838
MODEM     004D           -125
MONORG    F0E3            -31  3398  3503
MONSPR    0014          -4023
MOTRGO    0034          -1664  2217  2244  3166  3206
MOTRST    003C          -1665  1706  2262  2633  3290
MOVLI1    FB58          -5096  5103
MOVLI2    FB7A           5112 -5114
MOVLIN    FB4E           4693 -5091
MOVVEC    F17D          -3630  3633
MVBUFF    F32D          -3904  3920
MVNXB     F32F          -3905  3908
MXDMDE    FE5D           4216 -5572
MXDMOD    0010           -116
N         004E          -2900  3071  3086
NACK      004E          -1633
NARG      0000              0
NBUFSZ    0028          -2893  3073
NCOMHI    003C          -1663  1709  2062
NCOMLO    0034          -1662  1776
NEWCOL    0061           -267  5401  5403  5420  5423
NEMROW    0060           -266  5399  5408
NLR       F005           3252 -3254
NMIEN     D40E           -748  1270
NMIRES    D40F           -749  1384
NMIST     D40F           -750  1372  1376
NOA1      F1F1           3701 -3703
NOA2      F212           3716  3719 -3721
NOB1      F1F8           3704 -3706
NOBOOT    F1FF           3707 -3713
NOCAR2    F220           3722 -3730
NOCART    F1FC           3699 -3710  3725
NOCKSM    003C           -231  1889  2150  2154
NOCLR     EAE9           2051 -2054
NOCSB2    F3BF           3993 -3995
NOCSBT    F3E0           3998 -4012
NODAT     0000          -2750
NOFUNC    F63D           4048  4073  4075  -4373
NOINIT    F2DC           3866 -3868
NOISE1    EC45           2341 -2343  2346
NOKEY     F2CE           3855 -3857
NOMOD     F4AB           4180 -4184
NONDEV    0082           -138  1183
NORMAL    004E          -1625
NOROWS    FE99           4912  4964 -5624
NOSCR1    FA32           4898 -4900
NOSCRL    FA2C          -4897
NOT8      F48B           4156  4167 -4170
NOTCAS    EC0C           2290 -2299
NOTCST    E96B           1733 -1738
NOTDER    EA52           1908 -1914
NOTDON    EA81          -1957  1962
NOTE      0026           -106
NOTEND    EABE           1986 -2008
NOTERR    EA00           1843 -1849
NOTMXD    F4F5           4196  4199 -4219
NOTOPN    0085           -141   805  1098
NOTYET    EB3C           2112 -2131
NOWARM    F2DD           3863 -3869
NOWRP0    EA98           1979 -1982
NSIGN     00EE           -612
NTBRK0    EA88           1958 -1961
NTBRK1    EB00           2065 -2068
NTBRK2    ED17           2559 -2562
NTFRAM    EB1D           2100 -2105
NTOVRN    EB25           2106 -2111
NTWRP1    EB50           2141 -2144
NUMDLE    FE51           4216  4220 -5569
NVALID    0084           -140   839  5394
NWOK      EA56           1896  1912 -1917
NXTENT    F18C          -3641  3644
ODNHI     00EA          -2425  2426
ODNLO     0090          -2426
OFFCRS    FAE4           4404  4431 -5002
OKTIM1    ED1F           2565 -2568
OKTIMR    ED48           2584 -2588
OLDADR    005E           -265  4836  4840  5004
OLDCHR    005D           -264  4362  5003
OLDCOL    005B           -263  5421  5424
OLDROW    005A           -262  4330  5409  5443
OPEN      0003            -88   841
OPENC     EF4C           3119 -3151
OPINP     EF5D           3133  3156 -3160
OPNCOM    F404           4101 -4106
OPNEDT    F118          -3551  3553  3554
OPNERR    F453          -4141
OPNH      00F1          -3553  3554  3679
OPNIN     0004           -113   115
OPNINO    000C           -115
OPNL      0018          -3554  3677
OPNOT     0008           -114   115
OPNOUT    0002          -2892
OPNRTN    EF8F           3165 -3190  3198
OPNTMP    0066           -271  4153  4162  4191  4217  4218  4219
OPOK      EFD3           3184 -3226
OPOUT     EF95           3158 -3194
OPSYS     F17B          -3629
OSRAM     F28A           3634 -3831
OUTCH     F5B7           4059 -4308
OUTCH2    F5FF          -4344  4368  4630
OUTCHA    F5BD          -4311
OUTCHB    F5D7           4318 -4321
OUTCHE    F5CA           4313 -4316  4435
OUTPLT    F5E0           4321 -4326  4327  4607  5523  5539
OVRRUN    008E           -150  2108
P0PF      D004           -718
P0PL      D00C           -726
P1PF      D005           -719
P1PL      D00D           -727
P2PF      D006           -720
P2PL      D00E           -728
P3PF      D007           -721
P3PL      D00F           -729
PACTL     D302           -754  1272  1278  1345  1707  2218  2245  2263
                         2634  3167  3207  3291
PADDL0    0270           -371  1500
PADDL1    0271           -372
PADDL2    0272           -373
PADDL3    0273           -374
PADDL4    0274           -375  1502
PADDL5    0275           -376
PADDL6    0276           -377
PADDL7    0277           -378
PAGETB    FE75           4179 -5601
PALFLG    0000            -17  1647  1653  2483  2488  2538  2541  3168
                         3172  3209  3213  3317  3320  3340  3343
PBCTL     D303           -755  1273  1279  1349  1710  1777  2063  2635
PBPNT     001D           -195  2974  2984  2990  3001  3014
PBRK      EF8B          -3188  3221
PBUFSZ    001E           -196  2955  2988  2998  3046  3082
PBYTE     F010           3119 -3263
PCOLR0    02C0           -432  1434
PCOLR1    02C1           -433
PCOLR2    02C2           -434
PCOLR3    02C3           -435
PDEVN     0040          -2896  3036
PENH      D40C           -746  1421
PENV      D40D           -747  1419
PHACR1    FC9F          -5313  5316
PHACRS    FC9D           4625  4651  5211 -5312  5526
PHCHLO    EE7F          -2940  3002  3003
PHCLOS    EEDC           2913 -3013
PHINIT    EE78           2918 -2932
PHOPEN    EE9F           2912 -2972
PHPUT     EF14           2964 -3059
PHSTAT    EE81           2916 -2954  2972
PHSTLO    EE7D          -2939  2956  2957
PHWRIT    EEA7           2915 -2982
PIA       D300           -751   752   753   754   755
PIRQ      E6F3          -1281  1577  1578
PIRQ1     FFDC           5782 -5787
PIRQ2     FFF0          -5795
PIRQ3     FFCB           5777 -5780
PIRQ4     FFEB           5779  5786 -5793
PIRQ5     FFBE           4082 -5775
PIRQH     00E6           1252 -1577  1578
PIRQL     00F3           1254 -1578
PLACR1    FCAA          -5323  5326
PLACRS    FCA8           4643  4674  5253 -5322  5543
PLOT      0050          -1627
PLUS      ECF8           2518 -2520
PLYARG    05E0           -633   634
PLYEVL    DD40           -591
PMBASE    D407           -742
PNMI      E791          -1372  1579  1580
PNMI1     E799           1373 -1375
PNMIH     00E7           1256 -1579  1580
PNMIL     0091           1258 -1580
POINT     0025           -105
POKEY     D200           -650   651   652   653   654   655   656   657
                          658   659   660   661   662   663   664   665
                          666   667   668   669   670   671   672   673
                          674   675   676   677   678   679
POKMSK    0010           -183  1307  1316  1325  1997  1999  2031  2033
                         2303  2329  2331  2372  2373  4115  4116
POKTAB    EDD0           2521  2524 -2699
PORTA     D300           -752  1275  1347  1482  1489
PORTB     D301           -753  1276  1351
POT0      D200           -651  1499
POT1      D201           -652
POT2      D202           -653
POT3      D203           -654
POT4      D204           -655  1501
POT5      D205           -656
POT6      D206           -657
POT7      D207           -658
POTGO     D20B           -662  1505
PRINTR    0050           -123
PRINTV    E430            -58  3511  3848
PRIOR     D01B           -709  1430
PRMODE    EF1A           2983  3013 -3069
PRNBUF    03C0           -533  2940  2986  2996
PRNORG    EE78            -29  2875  2925
PRNSPR    0014          -3097
PRVOPN    0081           -137   869
PSIOC     EF01           3043 -3045
PTEMP     001F           -197  2982  2985
PTIMOT    001C           -194  2933  3050  3060
PTRIG0    027C           -383  1516
PTRIG1    027D           -384  1513
PTRIG2    027E           -385
PTRIG3    027F           -386
PTRIG4    0280           -387
PTRIG5    0281           -388
PTRIG6    0282           -389
PTRIG7    0283           -390
PTRLP     E8AC          -1509  1520
PUTADR    EE6D           2827  2834 -2862
PUTBC     EE43           2826 -2831
PUTCAR    000B          -3408
PUTCHR    000B            -92   886
PUTCNT    EE21           2811 -2817
PUTDAT    0080          -2752  2809
PUTDTO    EE01           2801 -2803
PUTLIN    F385           3735 -3958
PUTMSC    FCF3           4567  4782 -5377
PUTREC    0009            -91
PUTSEC    0050          -2745
PUTTXT    0009          -3406  3963
PWRONA    F3E4           4049  4062  4076  -4086
PWRUP     F125           3493  3497  3566  -3576  3686
PWRUP1    F128           3568 -3578
RADFLG    00FB           -622
RADON     0000           -623
RAMLO     0004           -170  3589  3590  3591  3595  3596  3795  3798
                         3800  3801  3804  3897  3899  3906  3910  3912
                         3913  3915  3936  3939  3940
RAMSIZ    02E4           -451  3655  3663  3837
RAMTOP    006A           -273  4090  4133  4144  4207  4229 4575  5166
                         5180
RANDOM    D20A           -661
RANGE     FA96           4290  4309  4955  4957 -4959  5522  5534
RANGE1    FAB7           4969 -4975
RANGE2    FABB           4974 -4977
RANGE3    FA9E           4961 -4963
RBLOK     EFE9           3130  3236 -3241
RBLOKV    E47A            -80  3129  3977
RCI1      E5A7            963   968  -973
RCI11     E5BF           -994
RCI1A     E574            936  -943
RCI1B     E571           -940   944
RCI2      E5AC           -979
RCI3      E587            949  -955   974
RCI4      E5C3            957   970   981   986  -998
RCI6      E5B2           -984   991
RDBAD     EE51          -2838  2845
RDBYTE    F310          -3892  3895
RDONLY    0087           -143  1008
READ      0052          -1616  3978
RECEIV    EAE0           1840  1891 -2048  2257
RECVDN    0039           -228  2055  2070  2122
RECVDS    EC60          -2371
RECVEN    EC1B           2061 -2320
REDGE     0027           -253  3624
RELONE    EAB1           1989 -1997
RENAME    0020           -100
RESET     F11B           3489  3499 -3564
RETUR1    F634           4044  4047  4057  4060  4070  4071  4074  4294
                         4364  4366 -4369  4529  4996  5334  5553
RETUR2    F621           4287  4315  4320  4323 -4361  4422  4447
RETUR3    FAE1           4994 -4996
RETURN    EA0D           1831  1851  1854 -1861  2265  2646
RIRGHI    0000          -1660  2241
RIRGLO    0078          -1655  2240
RMARGN    0053           -257  3625  4557  4562  4600  4869  4960  4962
                         5227  5246  5283
RNGER1    FAD8          -4991
RNGER2    FAD6           4986 -4990
RNGERR    FAD1           4966  4967  4973  4976  4979  4980 -4988
RNGOK     FAC4           4971 -4981
ROWAC     0070           -278  4940  4942  4943  4945  5442  5470  5476
                         5478  5480  5481  5485
ROWCRS    0054           -258  4329  4388  4407  4540  4544  4546  4547
                         4586  4602  4646  4663  4690  4701  4702  4776
                         4783  4849  4887  4904  4913  4933  4965  5053
                         5132  5134  5189  5215  5224  5236  5248  5277
                         5313  5324  5339  5342  5398  5444  5489  5491
                         5529  5533
ROWING    0079           -283  5405  5413  5490
RRETRN    EB0E          -2081
RSIRG     000A          -1657  2236
RTCLOK    0012           -185  1393  1396  1398  1404  2573  2599  3315
                         3334  3347
S         0053          -2902  3079
SAVADR    0068           -272  4033  4185  4187  4262  4264  4654  4656
                         4668  4672
SAVIO     0316           -505  2571  2590  2592
SAVMSC    0058           -261  4172  4174  4241  4243  5160  5162  5377
                         5379
SBUFSZ    001D          -2895  3081
SCOLLP    E80E          -1433  1439
SCREDT    0045           -120
SCRENV    E410            -56  3517  3846  4052
SCRFLG    02BB           -425  4629  4644  4926
SCRMEM    0093           -156  4768
SCRNOK    F1DB           3685 -3687  3688  3690
SCROL1    FBB7           4721 -5164  5177  5181
SCROL2    FBCA           5169  5172 -5174
SCROLL    FBAC           4925 -5159
SDLSTH    0231           -339  1423
SDLSTL    0230           -338  1425  4253  4255  4266  4268
SDMCTL    022F           -337  1427  4111  4285  4286
SECT1     F301          -3885  4003
SECTX     F34C          -3919  3924
SEND      EA6B          -1940  2225  2443
SENDDS    EC5F           1861  1964 -2370  2632
SENDEN    EBF2           1692  1943  2207 -2284
SENDEV    E468            -74  1691  3205
SENDIN    EC8A           1779  1807 -2436
SERIN     D20D           -663  2114  2131
SEROUT    D20D           -677  1952  1992  2010
SETBSZ    EF34           3074  3078 -3082
SETDCB    EEE6           2961  3004 -3034
SETLOP    E8F7          -1561  1562
SETTAB    F82D          -4621  5685
SETVBL    E8ED           1224  1226 -1556
SETVBV    E45C            -70  1225  2660  3178  3217
SETVBX    EDB9           2215  2242  2253  2447 -2652
SEX       0000          -3415  3675  3959
SFH       EF64          -3163
SHFAMT    006F           -277  4298  4347  4843
SHFLOK    02BE           -428  4092  4493  4498  4503  4520
SHIFT1    F5B1           4299 -4302
SHIFT2    F610           4348 -4351
SHIFTD    F5AA          -4298  4301
SHIFTU    F608           4347  4350
SIDWAY    0053          -1624
SIGNON    F223           3485 -3733
SIN       BD81           -600
SIO       E959           1686 -1726
SIOINT    E944           1689 -1706
SIOINV    E465            -73  1688  3851
SIOORG    E944            -27  1584  1702
SIOSB     F095           3242 -3361  3394
SIOSPR    0014          -2727
SIOV      E459            -69  1685  2821  2962  3005  3384
SIRHI     00EB           2423  2424
SIRLO     000F          -2424
SIZEM     D00C           -694
SIZEP0    D008           -690
SIZEP1    D009           -691
SIZEP2    D00A           -692
SIZEP3    D00B           -693
SKCTL     D20F           -679  1716  2300  2324
SKRES     D20A           -676  2097  2326
SKSTAT    D20F           -665  1459  1469  2096  2568  2588  2611  2613
SOUNDR    0041           -238  1715  2340
SPACE     0020          -2899  2995
SPECIA    EF4B           3119 -3145
SPECIL    000E            -95   846   848
SPECL     F23F           3582 -3781
SQR       BEB1           -603
SRETRN    EB34           2116 -2121  2156
SRSTA     0040          -3103  3377
SRTIM2    0006          -1219  1475
SRTIMR    022B           -333  1467  1472  1476  1526  5794
SRTIR0    EB9B           2211 -2214
SRTIR1    EBC1           2238 -2241
SRTIR2    EBE9           2260 -2265
SSFLAG    02FF           -473  1338  4326  5783  5785
SSKCTL    0232           -340  1714  2285  2299  2321  2323  2612
STACK   S 0000              0
STACKP    0318           -507  1727  2640
STATC     0053          -2748  2810  2825  2958  3042  3871
STATIS    000D            -94
STATU     F028           3119 -3280
STATUS    0030           -219  1846  1849  1864  1894  1911  1915  1917
                         1927  1941  2060  2074  2103  2109  2119  2638
STATVH    0002          -2736  2737  2814
STATVL    00EA          -2737  2812
STICK0    0278           -379  1487  1491  1509
STICK1    0279           -380
STICK2    027A           -381
STICK3    027B           -382
STIMER    D209           -675
STLOOP    E877          -1482  1494
STORE     F917           4190  4204  4210  4212  4214  4222  4232  4234
                         4236  4238  4242  4244  4247  4249  4251  4257
                         4267  4269 -4745
STORE1    F91D          -4748
STRBEG    FC5C           4545 -5261
STRERR    F942           4764 -4768
STRIG0    0284           -391  1498
STRIG1    0285           -392
STRIG2    0286           -393
STRI03    0287           -394
STRL      E890          -1497  1504
STROK     F946           4746  4754  4763  4767 -4770
STTHOT    EC75           1815  2252 -2396
SUBBFL    E677            998  1059 -1138
SUBEND    FA7A          -4939  5493  5521
SUBTMP    029E           -414  4752  4757
SUCCES    0001           -134   898  1850  1895  1940  2059  2993  3016
                         3226  3239  3266  3280  3289  4112  4370  4981
SUSUAL    EB38          -2124  2148  2162
SV7H      00E8          -1523  1524
SV7L      0073          -1524
SWAP      FCB3           4384  4398  4418  4424  4429  4436  4448 -5333
SWAP1     FCC2          -5339  5346
SWAP3     FCD7           5337 -5350
SWAPA     FCB9           4995  5333 -5335
SWPFLG    007B           -285  4121  4907  4993  5221  5347  5349  5366
SWSTA     0080          -3104  3380
SYIRQ     E706           1243 -1301
SYIRQ2    E71B           1304 -1310
SYIRQ8    E762           1322 -1343
SYIRQ9    E76F           1346 -1349
SYIRQA    E77A           1350 -1353
SYIRQB    E78F           1235  1236  1237  1240  1241  1242 -1364
SYRTI     E790           1234 -1365
SYRTI2    E78B           1358 -1362
SYSVB1    E7BA           1394  1397 -1399
SYSVB2    E7D6           1410 -1412
SYSVB3    E7E5           1417 -1419
SYSVB4    E832           1446 -1448
SYSVB6    E8C3           1471 -1525
SYSVB7    E873           1468  1473 -1480 1523 1524 1527
SYSVBA    E844           1453 -1456
SYSVBB    E834          -1449  1457
SYSVBL    E7AE           1227  1247 -1393
SYSVBV    E45F            -71
SYVB6A    E857           1461  1464 -1467
TAB       F810          -4609  4619  5675
TAB1      F823           4612  4615 -4617
TAB2      F82A           4616 -4620
TABMAP    02A3           -419  4125  5041  5043  5049  5050  5058
TBLENT    F0E3          -3510  3538  3641
TBLLEN    000E          -3538  3640
TDHI      00EA          -2427  2428
TDLO      00CF          -2428
TEMP      023E           -354  1667  1668  1901
TEMP1     0312           -502  2478  2496
TEMP2     0314           -503
TEMP3     0315           -504  2578  2596
TEMPHI    0002          -1667  1668  1884
TEMPLO    003E          -1668  1880
TIMER1    030C           -497  2472  2474  2477  2481  2574  2575
TIMER2    0310           -500  2468  2469  2471  2475  2479
TIMFLG    0317           -506  2068  2220  2247  2274  2564  2583  2662
TIMIT     EBA5          -2220  2221
TIMIT1    EBCB          -2247  2248
TIMOUT    008A           -146  1918  2073
TINDEX    0293           -409  4119
TMPCHR    0050           -254  4352  4356  5097  5100
TMPCOL    02B9           -424
TMPLBT    02A1           -417  4818  4827  4831
TMPROW    02B8           -423  5314  5323
TMPX1     029C           -412
TOADR     0066          -4034  4685  4689  5096  5099  5109  5111  5113
TONE1     0002          -3113  3196
TONE2     0001          -3114  3163
TOUT      EB0A           2069 -2073  2586
TOUT1     ED44           2566 -2585
TRAMSZ    0006           -171  3597  3654  3668  3697  3700  3715  3797
                         3805  3808  3836
TRIG0     D010           -730  1497
TRIG1     D011           -731
TRIG2     D012           -732
TRIG3     D013           -733
TRNRCD    0089           -145   994
TSTAT     0319           -508  1845  1928
TSTCT1    FC8F          -5299  5305
TSTCT2    FC9C           5301 -5306
TSTCTL    FC8D           4432  4524 -5298
TSTDAT    0007           -172  3653  3660  3698  3703  3721
TWICE     EE4F          -2836  2840
TXTCOL    0291           -408  4283
TXTMSC    0294           -410  4135  4137
TXTOLD    0296           -411
TXTROW    0290           -407  4281  5341  5344
UNLOCK    0024           -104
UPDNCM    F787          -4544  4551
USAREA    0480           -548
VBATRA    E7C8           1402 -1406
VBREAK    0206           -314  1361
VBWAIT    F496          -4175  4177
VCOUNT    D40B           -745  2572  2598  4175
VCTABL    E480            -24  1232  1694  3630  4081
VDELAY    D01C           -710
VDSLST    0200           -311  1232  1374
VECTBL    E400            -23
VIMIRQ    0216           -322  1281
VINTER    0204           -313  1352
VKEYBD    0208           -315  1293  4081
VPRCED    0202           -312  1348
VSCROL    D405           -741
VSERIN    020A           -316  1299  1309  1694
VSEROC    020E           -318  1297
VSEROR    020C           -317  1298
VTIMR1    0210           -319  1296
VTIMR2    0212           -320  1295
VTIMR4    0214           -321  1294
VVBLKD    0224           -329  1522
VVBLKI    0222           -328  1385
WAIT      EA1A          -1876 2449
WAITER    EC9B           1820 -2447
WAITTM    EF7C           3179 3180
WARMST    0008           -175  3578  3584  3588  3862  3989
WARMSV    E474            -78  1379  3487
WATCOM    E9D7           1795 -1815
WCI1      E605           1034  1039 -1044
WCI1A     E5D4           1005 -1012
WCI1B     E5D1          -1009  1013
WCI2      E60A          -1050
WCI3      E5E5           1018 -1024  1045
WCI4      E5EB           1021 -1027
WCI5      E615           1028  1041  1052 -1059
WDLR      EFC6          -3220  3223
WFAK      F087           3337 -3350
WFAK1     F08C           3350 -3353
WFL       F060          -3324  3335
WIRGHI    0000          -1659  2214
WIRGLO    00B4          -1654  2213
WMODE     0289           -397  3161  3191  3195  3286
WOK       EA3D          -1901
WRITE     0057          -1617  2807
WRITEC    0057          -2898  3069
WRONLY    0083           -139   939
WSIOSB    F0D2           3272  3297  3305  -3389
WSIRG     000F          -1656  2209
WSYNC     D40A           -744  1560  5357
WTLR      F046           3294 -3299
XBOOT     F361           3926 -3928
XITVBL    E905           1228  1248  1418 -1571
XITVBV    E462            -72  1961  2029
XMTDON    003A           -229  1948
XXIT      E7E2           1413 -1418
ZERIT     EC6D          -2378  2381
ZERORM    F138          -3587
ZIOCB     0020           -199
ZOSRAM    F160           3585 -3610
ZOSRM2    F163          -3612  3615
ZOSRM3    F16E          -3617  3619
ZTBUF     F04A          -3301  3303
ZTEMP1    00F5           -618
ZTEMP3    00F9           -620
ZTEMP4    00F7           -619