<> <> <> <> <> <> 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.