;
;	PROGRAM HEADER EQUATES
;
;	DANIEL FLICKINGER
;	18 FEB 1981 10:25
;
BDOS    EQU     0005H                   ;BDOS ENTRY POINT
CONIN   EQU     01H                     ;CONSOLE INPUT
CONOUT  EQU     02H                     ;CONSOLE OUTPUT
READIN	EQU	03H			;READER IN (EIA #1 DEFAULT)
PUNOUT	EQU	04H			;PUNCH OUTPUT (EIA #1 DEFAULT)
LISTOUT	EQU	05H			;LIST OUTPUT
CONDIR	EQU	06H			;DIRECT CONSOLE I/O
READIO	EQU	07H			;READ I/O BYTE
SETIO	EQU	08H			;SET I/O BYTE
PRSTR	EQU	09H			;PRINT STRING
CONBUF	EQU	0AH			;READ CONSOLE BUFFER
CONST	EQU	0BH			;CONSOLE STATUS
DSKRST	EQU	0DH			;RESET DISK SYSTEM (R/W)
SELDSK	EQU	0EH			;SELECT DISK
OPEN    EQU     0FH                     ;OPEN DISK FILE
CLOSE   EQU     10H                     ;CLOSE DISK FILE
SRCH1	EQU	11H			;SEARCH FIRST
SRCHL	EQU	12H			;SEARCH LAST
DELETE  EQU     13H                     ;DELETE FILE
READ	EQU	14H			;READ SEQUENTIAL FILE
WRITE   EQU     15H                     ;WRITE SEQUENTIAL FILE
CREATE  EQU     16H                     ;CREATE DISK FILE
RENAME	EQU	17H			;RENAME FILE
LOGIN	EQU	18H			;RETURN LOGIN VECTOR
CURDSK	EQU	19H			;RETURN CURRENT DISK
SETDMA  EQU     1AH                     ;SET DMA BUFFER ADDRESS
RALLOC	EQU	1BH			;GET ALLOCATION ADDRESS
WRPROT	EQU	1CH			;WRITE PROTECT DISK
ROVECT	EQU	1DH			;GET R/O VECTOR
ATTRIB	EQU	1EH			;FILE ATTRIBUTES
GETADD	EQU	1FH			;GET ADDRESS OF DISK PARAMETERS
USER	EQU	20H			;USER CODE MODIFICATIONS
RDRAN	EQU	21H			;READ RANDOM FILES
WRRAN	EQU	22H			;WRITE RANDOM FILES
FILSIZ	EQU	23H			;COMPUTE FILE SIZE
SETRAN	EQU	24H			;SET RANDOM RECORD
RSTDRV	EQU	25H			;RESET DRIVES (SPECIFIC)
RANFIL	EQU	28H			;WRITE RANDOM WITH ZERO FILL
;
TRUE    EQU     0FFH
FALSE   EQU     NOT TRUE
ASCII	EQU	7FH			;MASK
;
CRTBAS	EQU	0F0H			;CRT CTL PORT FOR DMA BASE ADDRESS
CCTL0   EQU     0F2H                    ;CRT CTL PORT 0 (CURSOR ADDRESSES)
CCTL1   EQU     0F3H                    ;CRT CTL PORT 1 (ENABLE CURSOR) 
CRT     EQU     0F800H                  ;BASE OF CRT PAGE
VROW    EQU     23			;23 CRT ROWS AVAILABLE
VCOL    EQU     79			;80 CRT COLUMNS AVAILABLE
SCROW	EQU	23			;TOTAL CRT SPACE
;
KSTX	EQU	02H			;^B (STX)
KETX	EQU	03H			;^C (ETX)
KENQ	EQU	05H			;^E (ENQ)
KACK	EQU	06H			;^F (ENQ)
KXON	EQU	11H			;^Q (X-ON)
KXOFF	EQU	13H			;^S (X-OFF)
KNAK	EQU	15H			;^U (NAK)
KEOF    EQU     1AH                     ;^Z (END OF FILE
;
KCTLB	EQU	02H			;^B
KCTLC   EQU     03H                     ;^C (SYSTEM RESET)
KCTLI	EQU	09H			;^I
KCTLL	EQU	0CH			;^L
KCTLM	EQU	0DH			;^M
KCTLO	EQU	0FH			;^O
KCTLP	EQU	10H			;^P
KCTLQ	EQU	11H			;^Q
KCTLR	EQU	12H			;^R
KCTLS	EQU	13H			;^S
KCTLT	EQU	14H			;^T
KCTLZ	EQU	1AH			;^Z
KCTLX	EQU	18H			;^X (CANCEL LINE)
;
KCR     EQU     0DH                     ;^M (CARRAIGE RETURN)
KLF     EQU     0AH                     ;^J (LINE FEED)
KFF	EQU	0CH			;^L (FORM FEED)
KBS     EQU     08H                     ;^H (BACKSPACE)
KTAB	EQU	09H			;^I (HORIZONTAL TAB)
KEXP	EQU	5EH			;'^' SYMBOL FOR CONTROL CHARACTER
KESC	EQU	1BH			;ESCAPE
KSP     EQU     20H                     ;SPACE
KPER    EQU     2EH                     ;PERIOD
KCOL	EQU	3AH			;COLON
KBAR	EQU	1FH			;LOGO BAR (FUDA)
KEQ	EQU	3DH			;= 
KSTAR	EQU	2AH			;*
KAT	EQU	40H			;@ 
KBSL	EQU	5CH			;\
KVBAR	EQU	7CH			;|
KACC	EQU	7EH			;~
KBAPT	EQU	60H			;`
KALT	EQU	7DH			;ALTERNATE MODE KEY
KRUB	EQU	7FH			;RUBOUT
;
EDATA	EQU	0C0H			;EIA #1 DATA PORT
ESTAT	EQU	0C1H			;EIA #1 STATUS PORT
EMODE	EQU	0C2H			;EIA #1 MODE PORT
ECMD 	EQU	0C3H			;EIA #1 COMMAND PORT
EEMASK	EQU	00111000B		;FRAMING,OVERRUN,PARITY ERROR
ERMASK	EQU	00000010B		;CHARACTER WAITING MASK
ETMASK	EQU	00000001B		;TRANSMIT REGISTERS EMPTY
EIMASK	EQU	00010000B		;EIA #1 INTERRUPT MASK ENABLE
;
KBDATA	EQU	0F0H			;KEYBOARD DATA PORT (READ)
KBSTAT	EQU	0F1H			;KEYBOARD STATUS PORT (READ)
KBRST	EQU	0F2H			;KEYBOARD FLAG RESET (READ)
BRKRST	EQU	0F3H			;RESET BREAK LATCH (READ)
KBMASK	EQU	00000001B		;KEYBOARD CHARACTER STATUS MASK
BRMASK	EQU	00000010B		;BREAK ENABLE MASK (WRITE 0F1H)
;
MSTAT	EQU	0CCH			;CPU BOARD STATUS PORT 
PRINT	EQU	0CDH			;PRINTER DATA/STATUS PORT
;
CIMASK	EQU	01000000B		;REAL TIME CLOCK INTERRUPT MASK
CLKDT	EQU	0CAH			;LOAD/READ REAL TIME CLOCK
;					     COUNTER LSB
;					     COUNTER MSB
CLKCTL	EQU	0CBH			;REAL TIME CLOCK CONTROL PORT
;					     B0 => 1=BCD 0=HEX
;					     B1-B3 => COUNTER MODE
;					     B4-B5 => 00 FOR LATCHING
;					              11 FOR R/W LSB,MSB
;					     B6-B7 => 10 FOR RTC
CLKTRG	EQU	0CEH			;TRIGGER REAL TIME CLOCK
;
$EJECT