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. lTrapSupport.mesa Last edit: Taft at 8-Jul-81 10:40:14 Last Edited by: Levin, April 21, 1983 11:10 am Ê'˜Jšœ™Jšœ%™%J™.J˜šÏk ˜ Jšœ œœ˜/Jšœœ˜$J˜—šœ ˜Jšœ˜—J˜Jš˜J˜š œ œœ œœ˜.Jšœœ œ˜.Jšœœ œ˜/J˜—Jš œ œœœœœ œ˜LJ˜šÏnœœ œœ˜)J˜BJ˜CJšœ˜J˜—š ž œœœ œœ˜7Jšœ˜J˜—Jšœ˜J˜—…—€