ProcessDefs.mesa_Oct77.pdf | | processdefs.mESA 24-0CT-77 18:38:25 Page 1
-- File ProcessDefs.Mesa
-- Last edited by Johnsson: May 18, 1977 11:36 AM
DIRECTORY
ControlDefs: FROM "controldefs",
Mopcodes: FROM "mopcodes":
DEFINITIONS FROM ControlDefs;
ProcessDefs: DEFINITIONS =
BEGIN
-- Special op codes
BLOCK: MACHINE CODE = INLINE [Mopcodes.zBLOCK];
ProcessHandle: TYPE = POINTER TO ProcessObject;
ProcessNIL: ProcessHandle = LOOPHOLE[O]:
ProcessObject: TYPE = PRIVATE RECORD [
state: StateVector,
pn: ProcessPriority
];
ProcessRegister: PRIVATE TYPE = WORD;
AP: PRIVATE POINTER TO ProcessRegister = LOOPHOLE[20B];
RP: PRIVATE POINTER TO ProcessRegister = LOOPHOLE[21B];
CPN: PRIVATE POINTER TO ProcessPriority = LOOPHOLE[22B]:
WakeupsWaiting: PRIVATE POINTER TO WORD = LOOPHOLE[452B];
Act iveWord: PRIVATE POINTER TO WORD = LOOPllOLE[ 453B];
ProcessVector: PRIVATE TYPE = ARRAY ProcessPriority OF Proces |