-- Internal.mesa edited by Bruce; July 24, 1980  5:00 PM

DIRECTORY
  MachineDefs USING [FHandle, SwapReason],
  PrincOps USING [SVPointer];

Internal: DEFINITIONS =
  BEGIN
  
  SVPointer: TYPE = PrincOps.SVPointer;
  FHandle: TYPE = MachineDefs.FHandle;

  BackStop: PROCEDURE [root: FHandle];
  Catcher: PROCEDURE [msg, signal: UNSPECIFIED, f: FHandle];
  CoreSwap: PROCEDURE [why: MachineDefs.SwapReason, sp: SVPointer];
  DebugCommand: PROCEDURE;
  GetDebuggerNub: PROCEDURE [STRING];
  CallIDebug: PROCEDURE;
  Interrupt: PROCEDURE;
  PauseAtDebuggerNub: PROCEDURE [STRING];
  ProcessBreakpoint: PROCEDURE [s: SVPointer];
  ShowBreak: PROCEDURE [s: SVPointer];
  ShowInterrupt: PROCEDURE;
  ShowSignal: PROCEDURE [msg, signal: UNSPECIFIED, f: FHandle];
  SwatBreak: PROCEDURE [s: SVPointer];

  END.