Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

58 lines
1.8 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

true equ 0ffffh ; value of TRUE
false equ 0 ; value of FALSE
unknown equ 0 ; value to be filled in
dskrecl equ 128 ; log. disk record len
fcblen equ 32 ; size of file control block
pnamsiz equ 8 ; size of process name
qnamsiz equ pnamsiz ; size of queue name
fnamsiz equ pnamsiz ; size of file name
ftypsiz equ 3 ; size of file type
ccpmint equ 224 ; int vec for ccpm ent.
debugint equ ccpmint+1 ; int vec for debuggers
ulen equ 0100h ; size of uda
pdlen equ 030h ; size of Process Descriptor
todlen equ 5 ; size of Time of Day struct
flag_tick equ 1 ; flag 0 = tick flag
flag_sec equ 2 ; flag 1 = second flag
flag_min equ 3 ; flag 2 = minute flag
ldtabsiz equ 0aah ; ldtablen=11, 10 entries
npcons equ 2 ; total # physical consoles
nvcons equ 8 ; total # virtual consoles
;**********************
;* SUP/RTM EQUATES
;**********************
tracebit equ 0100H
P_DISPATCH equ 142
f_dispatch equ 142 ; CCP/M dispatch func #
f_terminate equ 143 ; CCP/M terminate func #
f_polldev equ 131 ; CCP/M polldevice func #
f_flagwait equ 132 ; CCP/M flagwait func #
f_flagset equ 133 ; CCP/M flagset func #
p_flag equ word ptr 06H ; PD flag field
p_name equ byte ptr 08H ; PD Name field
p_uda equ word ptr 010H ; PD UDA Segment Addr
p_cns equ byte ptr 020H ; PD console field
pf_keep equ 02H ; KEEP bit in p_flag
DELAY_F EQU 08DH
DELAY_16_MS EQU 1 ; number of ticks to wait
ERROR EQU 0FFFFH
flag_ignore equ 02ah ; error code returned on flag ignore