System.mesa (last edited by Plass on August 31, 1984 1:24:59 pm PDT)
Cedar PilotBridge version
Copyright (C) Xerox Corporation 1982. All rights reserved.
System: DEFINITIONS =
BEGIN
Interval timing
Microseconds: TYPE = LONG CARDINAL;
Pulses: TYPE = RECORD [pulses: LONG CARDINAL];
GetClockPulses: PROCEDURE RETURNS [p: Pulses];
PulsesToMicroseconds: PROCEDURE [p: Pulses] RETURNS [m: Microseconds];
MicrosecondsToPulses: PROCEDURE [m: Microseconds] RETURNS [p: Pulses];
Overflow: ERROR;
System boot switches
Switches: TYPE = PACKED ARRAY CHARACTER OF UpDown;
UpDown: TYPE = MACHINE DEPENDENT {up (0), down (1)};
switches: READONLY Switches;
defaultSwitches: Switches = ALL[up];
isUtilityPilot: READONLY BOOLEAN;
IsUtilityPilot: PROCEDURE RETURNS [BOOLEAN] = INLINE {RETURN[isUtilityPilot]};
END.
August 31, 1984 1:24:59 pm PDT by Plass: Created Cedar PilotBridge version, considerably stripped down from the XDE version.