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