TrapSupportImpl.mesa
modified September 29, 1982 9:35 am by Taft
Last Edited by: Levin, April 11, 1983 3:12 pm
DIRECTORY
PrincOps USING [SD, StateVector],
TrapSupport USING [OpTrapTable];
TrapSupportImpl:
PROGRAM
EXPORTS TrapSupport =
BEGIN
UnimplementedInstruction: ERROR = CODE;
Unimplemented:
PROC = {
v: MACHINE DEPENDENT RECORD [a, b: UNSPECIFIED, state: PrincOps.StateVector];
v.state ← STATE;
ERROR UnimplementedInstruction;
};
trapTable: TrapSupport.OpTrapTable ←
[ALL[LOOPHOLE[Unimplemented]], ALL[LOOPHOLE[Unimplemented]]];
PrincOps.SD[137B] ← @trapTable;