-- File: EthernetOneDriverTypes.mesa - last edit:
-- AOF                  3-Feb-88 13:03:56

-- Copyright (C) 1988 by Xerox Corporation. All rights reserved.

DIRECTORY
  Buffer USING [DeviceType],
  Environment USING [Byte],
  SpecialSystem USING [HostNumber, ProcessorID];

EthernetOneDriverTypes: DEFINITIONS =
  BEGIN

  Byte: TYPE = Environment.Byte;

  DeviceType: TYPE = Buffer.DeviceType;

  HostNumber: TYPE = SpecialSystem.HostNumber;
  ProcessorID: TYPE = SpecialSystem.ProcessorID;


  <<
  ENCAPSULATION
  Encapsulation preceeds the network data unit. For EthernetOne it starts at
    b.linkLayer.blockPointer and is 32-bits long.
  >>

  Encapsulation: TYPE = MACHINE DEPENDENT RECORD [
    SELECT OVERLAID DeviceType FROM
      ethernetOne => [
	ethernetOneDest, ethernetOneSource: Byte,
	ethernetOneType: EthernetOnePacketType],
      ENDCASE];


  --EthernetOne magic host numbers
  ethernetOneBroadcastHost: Byte = 0;
  ethernetOnePeekHost: Byte = 376B; --DMT error info
  ethernetOneBootLoaderHost: Byte = 377B;

  EthernetOnePacketType: TYPE = MACHINE DEPENDENT{
    peekData(402B), breathOfLife(602B), echoMe(700B), echoed(701B), pup(1000B),
    arpa(1001B), arp(1002B), ns(3000B), translation(3001B), (LAST[WORD])};

  ArpanetLink: TYPE = MACHINE DEPENDENT{pup(152), (LAST[Byte])};

  END.....

LOG
 3-Feb-88 12:57:56  AOF  Recreated and trimmed for PupGateway 14.0