forked from MirrorRepos/RomWBW
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
116 lines
2.6 KiB
116 lines
2.6 KiB
;LIBRARY OF COMMONLY USED DEFINITIONS
|
|
;Use of this library will make assembly language
|
|
;programs easier to read and maintain.
|
|
;
|
|
;The following definitions were collected by
|
|
;simply extracting them from ZCPR3 utilities.
|
|
;Please feel free to add to this list and to
|
|
;comment on the preferred definition where
|
|
;there are several equivalent ones. Bump the
|
|
;revision # and send it back for coordination.
|
|
;
|
|
;Version 1.0 - 31 Jan 1986
|
|
;Al Hawley, Z-Node #2, (213) 670-9465
|
|
|
|
;----------------------------------------------
|
|
;Logic Definitions
|
|
|
|
FALSE EQU 0 ;these all seem to be
|
|
TRUE EQU NOT FALSE ;..appropriate in
|
|
YES EQU TRUE ;..different contexts.
|
|
NO EQU FALSE
|
|
|
|
;----------------------------------------------
|
|
; System Functions
|
|
;
|
|
RDCONF EQU 1
|
|
WRCONF EQU 2
|
|
RDRF EQU 3
|
|
PUNCHF EQU 4
|
|
LISTF EQU 5
|
|
DIRCONF EQU 6
|
|
PRBUFF EQU 9
|
|
RDBUFF EQU 10
|
|
CONSTF EQU 11
|
|
VERNOF EQU 12
|
|
RESETDKF EQU 13
|
|
LOGINF EQU 14
|
|
OPENF EQU 15
|
|
CLOSEF EQU 16
|
|
SRCHFF EQU 17
|
|
SRCHNF EQU 18
|
|
ERASEF EQU 19
|
|
READF EQU 20
|
|
WRITEF EQU 21
|
|
MAKEF EQU 22
|
|
RENF EQU 23
|
|
INQDISKF EQU 25
|
|
SETDMAF EQU 26
|
|
INQALCF EQU 27
|
|
ATTRF EQU 30
|
|
GETPARMF EQU 31
|
|
SGUSERF EQU 32
|
|
GETF EQU 0FFH ;get user area e-reg value
|
|
COMPSZF EQU 35
|
|
SETRRF EQU 36
|
|
|
|
|
|
;----------------------------------------------
|
|
; System Addresses
|
|
;
|
|
OS$BASE EQU 000H ;system base..
|
|
CCPLEN EQU 800H ;..and 'CCP' length in bytes.
|
|
WBOOT EQU OS$BASE+0
|
|
IOBYTE EQU OS$BASE+03H
|
|
UDFLAG EQU OS$BASE+04H
|
|
BDOS EQU OS$BASE+05H
|
|
|
|
FCB EQU OS$BASE+5CH
|
|
TFCB EQU OS$BASE+5CH
|
|
FCB1 EQU OS$BASE+5CH ;preferred (AEH)
|
|
|
|
FCB2 EQU OS$BASE+6CH
|
|
|
|
FCBEXT EQU FCB+12
|
|
FCBRNO EQU FCB+32
|
|
|
|
TBUF EQU OS$BASE+80H
|
|
TBUFF EQU OS$BASE+80H
|
|
|
|
TPA EQU OS$BASE+100H
|
|
|
|
;----------------------------------------------
|
|
; ASCII Definitions
|
|
;
|
|
CTRLA EQU 'A'-'@'
|
|
CTRLC EQU 'C'-'@' ;..control-C..
|
|
CTRLD EQU 'D'-'@'
|
|
CTRLE EQU 'E'-'@'
|
|
CTRLF EQU 'F'-'@'
|
|
CTRLK EQU 'K'-'@'
|
|
CTRLR EQU 'R'-'@'
|
|
CTRLS EQU 'S'-'@' ;..XOFF..
|
|
CTRLX EQU 'X'-'@'
|
|
CTRLZ EQU 'Z'-'@'
|
|
BS EQU 08H ;..backspace..
|
|
TAB EQU 09H ;..tab..
|
|
LF EQU 0AH ;..linefeed..
|
|
FF EQU 0CH ;..formfeed..
|
|
CR EQU 0DH ;..carriage return..
|
|
CAN EQU 18H ;..cancel..
|
|
EOF EQU 1Ah ;..End-of-file
|
|
EOFCHAR EQU 1AH ;..end-of-file..
|
|
ESC EQU 1BH ;..escape character.
|
|
SPC EQU 20H ;..space
|
|
|
|
;----------------------------------------------
|
|
;for TCAP screen functions
|
|
;
|
|
DIM EQU 1 ;for highlighting use
|
|
BRIGHT EQU 2 ;opposite of dim
|
|
CL EQU CTRLZ ;clear screen, home cursor
|
|
CRUP EQU CTRLE ;cursor up
|
|
CRDN EQU CTRLX ;cursor down
|
|
CURSL EQU CTRLS ;cursor left
|
|
CURSR EQU CTRLD ;cursor right
|
|
|