-- File: MachineIDDefs.Mesa,  Last Edit: HGM  February 17, 1979  8:52 PM

MachineIDDefs: DEFINITIONS =
BEGIN

-- COPIED FROM <Pilot>SystemInternal to avoid recompilation problems

GetMyMachineID: PROCEDURE RETURNS [MachineID];

MachineID, ProcessorID: TYPE = PRIVATE MACHINE DEPENDENT RECORD[
  element: ElementType,
  series: CARDINAL];
SeriesType: TYPE = {altoFP, ethernet, ois};
ElementType: TYPE = RECORD[SELECT COMPUTED SeriesType FROM
  ethernet => [net: [0..256), host: [0..256)],  -- series = ethernetSeries
  ois => [CARDINAL],  -- series IN OISProcessorSeries
  ENDCASE];
OISProcessorSeries: TYPE = [0..177775B];
ethernetSeries: CARDINAL = 177776B;
altoFPSeries: CARDINAL = 177777B;

END.