Files
Digital-Research-Source-Code/CPM OPERATING SYSTEMS/CPM 86/CONCURRENT/CCPM-86 3.1 SOURCE/D5/SYSTEM.LIB
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

58 lines
1.8 KiB
Plaintext
Raw 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