-- File: AltoEthernetDefs.mesa,  Last Edit: HGM  January 5, 1980  11:15 AM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  Mopcodes: FROM "Mopcodes" USING [zSTARTIO, zPOP],
  BcplDefs: FROM "BcplDefs" USING [BcplLongInteger];

AltoEthernetDefs: DEFINITIONS =
BEGIN

Byte: TYPE = [0..377B];

-- ETHERNET MICROCODE INTERFACE
EthernetPost: TYPE = MACHINE DEPENDENT RECORD [
  microcodeStatus: EthernetMicrocodeStatus,
  hardwareStatus: EthernetHardwareStatus ];
EthernetMicrocodeStatus: TYPE = RECORD [Byte];
EthernetHardwareStatus: TYPE = RECORD [Byte];

EthernetDeviceBlockHandle: TYPE = POINTER TO EthernetDeviceBlock;
EthernetDeviceBlock: TYPE = MACHINE DEPENDENT RECORD [
  postData: EthernetPost,
  interruptBit: WORD,
  wordsLeft: CARDINAL,
  retransmissionMask: WORD,
  inputBuffer: WordBlockDescriptor,
  outputBuffer: WordBlockDescriptor,
  hostNumber: WORD,
  inputControlBlock: EthernetDeviceBlockHandle ];  -- Only used by Special MicroCode

WordBlockDescriptor: TYPE =
  MACHINE DEPENDENT RECORD [count: CARDINAL, pointer: POINTER];

NIL0: POINTER = LOOPHOLE[0];  -- hardware end tests


EthernetNotPosted: EthernetPost = [[0],[0]];
  inputDone: EthernetMicrocodeStatus = [0];
  outputDone: EthernetMicrocodeStatus = [1];
  inputBufferOverflow: EthernetMicrocodeStatus = [2];
  outputLoadOverflow: EthernetMicrocodeStatus = [3];
  zeroLengthBuffer: EthernetMicrocodeStatus = [4];
  hardwareReset: EthernetMicrocodeStatus = [5];
  interfaceBroken: EthernetMicrocodeStatus = [6];

  hardwareAOK: EthernetHardwareStatus = [377B];
  -- from bit 200 [unused,unused,inputDataLate,Collision
  -- ,CRCbad,InputIssued,OutputIssued,packetNoEndOnWord]

StartIO: PROCEDURE [SioParameter] =
    MACHINE CODE BEGIN Mopcodes.zSTARTIO END;
SioParameter: TYPE = RECORD [WORD];

-- Standard Ethernet board
standardEthernet: EthernetDeviceBlockHandle = LOOPHOLE[600B];
standardReset: SioParameter = [standardInput+standardOutput];
standardInput: SioParameter = [2];
standardOutput: SioParameter = [1];

-- Second Ethernet board
secondEthernet: EthernetDeviceBlockHandle = LOOPHOLE[630B];
secondReset: SioParameter = [secondInput+secondOutput];
secondInput: SioParameter = [2*4];
secondOutput: SioParameter = [1*4];

-- Third Ethernet board
thirdEthernet: EthernetDeviceBlockHandle = LOOPHOLE[642B];
thirdReset: SioParameter = [thirdInput+thirdOutput];
thirdInput: SioParameter = [2*4*4];
thirdOutput: SioParameter = [1*4*4];

ShortenIocb: PROCEDURE [LONG POINTER] RETURNS [EthernetDeviceBlockHandle] =
  MACHINE CODE BEGIN
  Mopcodes.zPOP;
  END;

ShortenData: PROCEDURE [LONG POINTER] RETURNS [POINTER] =
  MACHINE CODE BEGIN
  Mopcodes.zPOP;
  END;


-- Stats info for GateControl
ethernetStatsReply: WORD = 1;
EtherStatsEntry: TYPE = RECORD [
  version: WORD,
  packetsSent: BcplDefs.BcplLongInteger,
  badSendSatus: BcplDefs.BcplLongInteger,
  overruns: BcplDefs.BcplLongInteger,
  packetsRecv: BcplDefs.BcplLongInteger,
  badRecvStatus: BcplDefs.BcplLongInteger,
  inputOff: BcplDefs.BcplLongInteger,
  loadTable: ARRAY [0..16] OF BcplDefs.BcplLongInteger ];
etherVersion: WORD = 1;

-- This is the way it is stored internally
EtherStatsInfo: TYPE = RECORD [
  packetsSent: LONG CARDINAL,
  wordsSent: LONG CARDINAL,
  badSendSatus: LONG CARDINAL,
  overruns: LONG CARDINAL,
  packetsRecv: LONG CARDINAL,
  wordsRecv: LONG CARDINAL,
  badRecvStatus: LONG CARDINAL,
  inputOff: LONG CARDINAL,
  loadTable: ARRAY [0..16] OF LONG CARDINAL];
(635)\2383b11B111b11B
END.(2048)

(635)