TrapSupport.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Taft at 8-Jul-81 10:40:14
Levin, April 21, 1983 11:10 am
Russ Atkinson (RRA) January 29, 1985 1:08:09 am PST
Doug Wyatt, February 22, 1985 3:45:17 pm PST
DIRECTORY
PrincOps USING [BytePC, ControlLink, SD, zLLB],
PrincOpsUtils USING [GetReturnLink];
TrapSupport: DEFINITIONS
IMPORTS PrincOpsUtils
= BEGIN
OpTrapTable:
TYPE =
MACHINE
DEPENDENT
RECORD [
main: ARRAY [0..377B] OF PrincOps.ControlLink,
misc: ARRAY [0..377B] OF PrincOps.ControlLink
];
opTrapTable: POINTER TO POINTER TO OpTrapTable = LOOPHOLE[PrincOps.SD+137B];
BumpPC:
PROC [bytes:
CARDINAL] =
INLINE {
controlLink: PrincOps.ControlLink = PrincOpsUtils.GetReturnLink[];
controlLink.frame.pc ← PrincOps.BytePC[controlLink.frame.pc+bytes];
};
GetTrapParam: SAFE PROC RETURNS [WORD] = TRUSTED MACHINE CODE { PrincOps.zLLB, 3 };
END.