-- TrapOps.zMesa Edited by Sandman on June 30, 1980 5:09 PM -- Copyright Xerox Corporation 1979, 1980 DIRECTORY ControlDefs USING [ ATPreg, ControlLink, OTPreg, TrapParameter, TrapStatus, XTPreg, XTSreg], Mopcodes USING [zRR, zWR]; TrapOps: DEFINITIONS = BEGIN OPEN ControlDefs; ReadATP: PROCEDURE RETURNS [ControlLink] = MACHINE CODE BEGIN Mopcodes.zRR, ATPreg END; ReadOTP: PROCEDURE RETURNS [ControlLink] = MACHINE CODE BEGIN Mopcodes.zRR, OTPreg END; ReadXTP: PROCEDURE RETURNS [TrapParameter] = MACHINE CODE BEGIN Mopcodes.zRR, XTPreg END; ReadXTS: PROCEDURE RETURNS [TrapStatus] = MACHINE CODE BEGIN Mopcodes.zRR, XTSreg END; WriteXTS: PROCEDURE [TrapStatus] = MACHINE CODE BEGIN Mopcodes.zWR, XTSreg END; END...