-- MMSDEntries.Mesa  Edited by Forrest on July 15, 1980  8:13 PM

DIRECTORY
  ControlDefs USING [ControlModule, FrameHandle, GlobalFrameHandle],
  InlineDefs USING [LongNumber];

MMSDEntries: DEFINITIONS =
  BEGIN OPEN ControlDefs;

  Number: TYPE = InlineDefs.LongNumber;

  Signal: PROCEDURE [signal: SIGNAL, message: UNSPECIFIED];
  SignalList: PROCEDURE [signal: SIGNAL, message: POINTER TO UNSPECIFIED];
  Error: PROCEDURE [signal: SIGNAL, message: UNSPECIFIED];
  ErrorList: PROCEDURE [signal: SIGNAL, message: POINTER TO UNSPECIFIED];
  ReturnError: PROCEDURE [signal: SIGNAL, message: UNSPECIFIED];
  ReturnErrorList: PROCEDURE [
    signal: SIGNAL, message: POINTER TO UNSPECIFIED];
  UnnamedError: PROCEDURE;

  AllocTrap: PROCEDURE [
    otherframe: FrameHandle] RETURNS [myframe: FrameHandle];
  UnboundProcedureTrap: PROCEDURE;
  CodeTrap: PROCEDURE;
  Break: PROCEDURE;
  StackErrorTrap: PROCEDURE;
  ControlFaultTrap: PROCEDURE;
  Start: PUBLIC PROCEDURE [cm: ControlModule];
  Restart: PUBLIC PROCEDURE [dest: GlobalFrameHandle];
  BlockEqual: PROCEDURE [
    p1: POINTER, n: CARDINAL, p2: POINTER] RETURNS [BOOLEAN];
  ByteBlockEqual: PROCEDURE [
    p1: POINTER, n: CARDINAL, p2: POINTER] RETURNS [BOOLEAN];
  BlockEqualCode: PROCEDURE [
    p1: POINTER, n: CARDINAL, offset: CARDINAL] RETURNS [BOOLEAN];
  ByteBlockEqualCode: PROCEDURE [
    p1: POINTER, n: CARDINAL, offset: CARDINAL] RETURNS [BOOLEAN];
  StringInit: PROCEDURE [coffset, n: CARDINAL, reloc, dest: POINTER];
  SignDivide: PROCEDURE;
  DDivMod: PROCEDURE [
    num, den: Number] RETURNS [quotient, remainder: Number];
  DDiv: PROCEDURE [a,b: Number] RETURNS [Number];
  DMod: PROCEDURE [a,b: Number] RETURNS [r: Number];
  DMultiply: PROCEDURE [a,b: Number] RETURNS [product: Number];
  DUnsignedDiv: PROCEDURE [a,b: Number] RETURNS [Number];
  DUnsignedMod: PROCEDURE [a,b: Number] RETURNS [r: Number];
  DUnsignedDivMod: PROCEDURE [
    num, den: Number] RETURNS [quotient, remainder: Number];

  Copy: PROCEDURE [old: GlobalFrameHandle] RETURNS [new: GlobalFrameHandle];
  UnNew: PUBLIC PROCEDURE [frame: GlobalFrameHandle];

  END..