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. πTrapSupport.mesa Copyright c 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 ΚC˜codešœ™Kšœ Οmœ1™