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