-- MiscDefs.Mesa
-- Edited by Sandman on June 30, 1980  4:59 PM
-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  AltoFileDefs USING [CFA, TIME],
  ControlDefs USING [GlobalFrameHandle],
  Mopcodes USING [zKFCB],
  SDDefs USING [sCallDebugger, sWorryCallDebugger],
  SegmentDefs USING [FileSegmentHandle];

MiscDefs: DEFINITIONS =
  BEGIN

  -- data shuffling


  Zero: PROCEDURE [p: POINTER, l: CARDINAL];
  SetBlock: PROCEDURE [p: POINTER, v: UNSPECIFIED, l: CARDINAL];
  ByteBlt: PROCEDURE [to, from: POINTER, toByte, fromByte, nBytes: CARDINAL];

  -- Random Routines


  DAYTIME: PROCEDURE RETURNS [AltoFileDefs.TIME];
  CurrentTime: PROCEDURE RETURNS [LONG CARDINAL];
  GetNetworkNumber: PROCEDURE RETURNS [CARDINAL];
  CommandLineCFA: PROCEDURE RETURNS [POINTER TO AltoFileDefs.CFA];

  CallDebugger: PROCEDURE [STRING] = MACHINE CODE
    BEGIN Mopcodes.zKFCB, SDDefs.sCallDebugger END;

  WorryCallDebugger: PROCEDURE [STRING] = MACHINE CODE
    BEGIN Mopcodes.zKFCB, SDDefs.sWorryCallDebugger END;

  DestroyFakeModule: PUBLIC PROCEDURE [f: ControlDefs.GlobalFrameHandle]
    RETURNS [seg: SegmentDefs.FileSegmentHandle, offset: CARDINAL];

  END...