-- EthernetHeadDorado.mesa (last edited by: Taft on: December 10, 1980  10:11 AM)
-- Stub version to satisfy imports

DIRECTORY
  HeadStartChain USING [Start],
  SpecialSystem USING [ProcessorID],
  EthernetFace;

EthernetHeadDorado: PROGRAM
  IMPORTS RemainingStartChain: HeadStartChain
  EXPORTS EthernetFace, HeadStartChain =
BEGIN OPEN EthernetFace;

Device: TYPE = RECORD [WORD];
IOCB: TYPE = LONG POINTER TO IOControlBlock;
IOControlBlock: TYPE = RECORD [WORD];

-- EXPORTed TYPEs
DeviceHandle: PUBLIC TYPE = Device;
ControlBlockRecord: PUBLIC TYPE = IOControlBlock;

-- EXPORTed variables

nullDeviceHandle: PUBLIC DeviceHandle _ LOOPHOLE[123456B];
globalStateSize: PUBLIC CARDINAL _ 0;
controlBlockSize: PUBLIC CARDINAL _ 0;
hearSelf: PUBLIC BOOLEAN _ TRUE;

CantGetHere: ERROR = CODE;

QueueOutput: PUBLIC PROCEDURE [
  device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] =
  BEGIN
  ERROR CantGetHere;
  END;

QueueInput: PUBLIC PROCEDURE [
    device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] =
  BEGIN
  ERROR CantGetHere;
  END;

GetStatus: PUBLIC PROCEDURE [cb: IOCB] RETURNS [status: Status] =
  BEGIN
  ERROR CantGetHere;
  END;

GetRetries: PUBLIC PROCEDURE [cb: IOCB] RETURNS [CARDINAL] =
  BEGIN
  ERROR CantGetHere;
  END;

GetPacketLength: PUBLIC PROCEDURE [cb: IOCB] RETURNS [CARDINAL] =
  BEGIN
  ERROR CantGetHere;
  END;

GetPacketsMissed: PUBLIC PROCEDURE [device: Device] RETURNS [CARDINAL] =
  BEGIN
  ERROR CantGetHere;
  END;

GetNextDevice: PUBLIC PROCEDURE [device: Device] RETURNS [Device] =
  BEGIN
  RETURN[nullDeviceHandle];
  END;

TurnOn: PUBLIC PROCEDURE [
    device: Device,
    host: SpecialSystem.ProcessorID,
    inInterrupt, outInterrupt: WORD,
    globalState: GlobalStatePtr] =
  BEGIN END;

TurnOff: PUBLIC PROCEDURE [device: Device] =
  BEGIN END;

AddCleanup: PUBLIC PROCEDURE [device: Device] =
  BEGIN END;

RemoveCleanup: PUBLIC PROCEDURE [device: Device] = BEGIN END;

Start: PUBLIC PROCEDURE =
  BEGIN  -- Start this module (and rest of chain)
  RemainingStartChain.Start[]
  END;

END.  -- EthernetHeadDorado.

(1792)\795b11B128b10B130b9B94b10B88b15B88b16B94b13B99b6B164b7B52b10B52b13B50b5B33i37I