******************************************
*                                        *
* RUNPAC UTILITY ROUTINE DEFINITIONS     *
* RUNDEF.ASM Dennis E. Baker  8/2/82     *
*                                        *
******************************************

ACC      EQU   0B6A3H     ;FIXED POINT ACCUMULATOR
ADDONE   EQU   0B0DEH     ;ACC=ACC+1
CDATE1   EQU   0B28BH     ;LONG DATE CONVERSION
CDATE2   EQU   0B2C5H     ;DATE CONVERSION
CDATE3   EQU   0B322H     ;HYPHENATED DATE CONVERSION
CHAIN    EQU   0B5A4H     ;ROUTINE TO CHAIN PROGRAMS
CHAN1    EQU   0          ;DISK CHAN ONE
CHAN2    EQU   1          ;DISK CHAN TWO
CHAN3    EQU   2          ;THREE
CHAN4    EQU   3          ;FOUR
CHKZAC   EQU   0B0A8H     ;CHECK ZERO ACCUMULATOR
CH1FCB   EQU   0B8C0H     ;CHAN 1 FILE CONTROL BLOCK
CH2FCB   EQU   0B8E8H     ;CHAN 2 FILE CONTROL BLOCK
CH3FCB   EQU   0B910H     ;3 FCB
CH4FCB   EQU   0B938H     ;4 FCB
CLOSE    EQU   0B614H     ;CLOSE A FILE
CLRACC   EQU   0B09BH     ;CLEAR ACCUMULATOR
CLR131   EQU   0B567H     ;CLEAR PRINT BUFF
CLR79    EQU   0B56CH     ;CLEAR 79 CHARS
CLSCRN   EQU   0B527H     ;CLEAR DISPLAY SCREEN
COMPOF   EQU   0B695H     ;COMPRESS PRINT OFF
COMPON   EQU   0B68FH     ;COMPRESS PRINT
CONIN    EQU   1          ;CP/M CONSOLE INPUT
CPMENT   EQU   5          ;CP/M ENTRY POINT
CRLF     EQU   0B58CH     ;CARRIAGE RETURN SUBROUTINE
CURSOR   EQU   0B26AH     ;CURSOR SET ROUTINE
DAYS     EQU   0B490H     ;NAMES OF DAYS
DBCRLF   EQU   0B589H     ;DOUBLE CRLF
DEVOUT   EQU   0B593H     ;OUTPUT CHAR TO DEVICE
DIVTEN   EQU   0B025H     ;ACC/10
ERCUE    EQU   0B253H     ;CURSOR TO LINE 23
EVALUE   EQU   0B19DH     ;CONVERT STRING TO NUMBER
FFEED    EQU   0B583H     ;PRINTER FORM FEED
FIND     EQU   0B27CH     ;ROUTINE TO FIND STRING
FLBUFR   EQU   0BA00H     ;FILE BUFFER AREA
FORMAT   EQU   0B115H     ;PLACE FORMATTED ACC TO MEM
GETREC   EQU   0B619H     ;GET 512 BYTE RECORD
HIACC    EQU   0B6A7H     ;HIGH ACCUM
HIZCHK   EQU   0B0BBH     ;CHEK FOR <256
INDEX    EQU   0B22CH     ;COMPARE STRINGS
INPUT    EQU   0B4B8H     ;KEYBOARD INPUT ROUTINE
INTACL   EQU   0B0C9H     ;LOAD ACCUMULATOR
INTADD   EQU   0B0EEH     ;INTEGER ADD
INTDIV   EQU   0B031H     ;DIVIDE
INTMPY   EQU   0B003H     ;MULTIPLY
INTOPL   EQU   0B0CFH     ;LOAD OPERAND
INTSTR   EQU   0B0C0H     ;STORE ACCUMULATOR
INTSUB   EQU   0B0EBH     ;INTEGER SUBTRACT
IOADDR   EQU   0B6BCH     ;I/O ADDRESS POINTER
IOCNTR   EQU   0B6BEH     ;COUNTER LOC
KSTAT    EQU   0BH        ;CP/M READ KEYBOARD STATUS
MOVE     EQU   0B0D5H     ;MOVE ROUTINE
MVPRNT   EQU   0B55BH     ;MOVE & PRINT BUFFER
NEGACC   EQU   0B104H     ;NEGATE ACCUMULATOR
OPEN     EQU   0B5F2H     ;OPEN A FILE
OPERAND  EQU   0B69FH     ;ARITH OPERAND
OUTROW   EQU   0B52AH     ;OUTPUT ROUTINE
PBUFER   EQU   0B6BFH     ;PRINTER BUFFER
PBUFF    EQU   0B6ABH     ;FORMAT BUFFER
PRNTBF   EQU   0B55EH     ;OUTPUT PRINT BUFFER
PUTREC   EQU   0B628H     ;PUT 512 BYTE RECORD
QLOOP    EQU   0B157H     ;REPEAT PLACE CHAR
RESET    EQU   0DH        ;CP/M DISK RESET COMMAND
RETMES   EQU   0B782H     ;RETURN MESSAGE
SETACC   EQU   0B08BH     ;SET ACC = A REG
SETCON   EQU   0B59EH     ;SET CONSOLE OUTPUT
SETOP    EQU   0B093H     ;SET OPERAND=A
SETPRN   EQU   0B599H     ;SET PRINTER OUTPUT
SUBONE   EQU   0B0E6H     ;INTEGER SUBTRACT ONE
T        EQU   0FFH       ;STRING TERMINATOR
TODATE   EQU   0B383H     ;ACC DAYS TO DATE
TODAYS   EQU   0B336H     ;ACC DATE TO DAYS

         ORG   0100H

         END