TrapSupport.mesa
Last edit: Taft at 8-Jul-81 10:40:14
Last Edited by: Levin, April 21, 1983 11:10 am
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:
PROC
RETURNS [
UNSPECIFIED] =
MACHINE
CODE
{PrincOps.zLLB, 3};
END.