DIRECTORY EthernetFace; EthernetHeadDorado: PROGRAM EXPORTS EthernetFace = { OPEN EthernetFace; Device: TYPE = RECORD [WORD]; IOCB: TYPE = LONG POINTER TO IOControlBlock; IOControlBlock: TYPE = RECORD [WORD]; DeviceHandle: PUBLIC TYPE = Device; ControlBlockRecord: PUBLIC TYPE = IOControlBlock; nullDeviceHandle: PUBLIC DeviceHandle _ LOOPHOLE[123456B]; globalStateSize: PUBLIC CARDINAL _ 0; controlBlockSize: PUBLIC CARDINAL _ 0; hearSelf: PUBLIC BOOLEAN _ TRUE; CantGetHere: ERROR = CODE; QueueOutput: PUBLIC PROC [device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] = { ERROR CantGetHere; }; QueueInput: PUBLIC PROC [device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] = { ERROR CantGetHere; }; GetStatus: PUBLIC PROC [cb: IOCB] RETURNS [status: Status] = { ERROR CantGetHere; }; GetRetries: PUBLIC PROC [cb: IOCB] RETURNS [CARDINAL] = { ERROR CantGetHere; }; GetPacketLength: PUBLIC PROC [cb: IOCB] RETURNS [CARDINAL] = { ERROR CantGetHere; }; GetPacketsMissed: PUBLIC PROC [device: Device] RETURNS [CARDINAL] = { ERROR CantGetHere; }; GetNextDevice: PUBLIC PROC [device: Device] RETURNS [Device] = { RETURN[nullDeviceHandle]; }; TurnOn: PUBLIC PROC [ device: Device, host: physical HostNumber, inInterrupt, outInterrupt: WORD, globalState: GlobalStatePtr] = { }; TurnOff: PUBLIC PROC [device: Device] = { }; AddCleanup: PUBLIC PROC [device: Device] = { }; RemoveCleanup: PUBLIC PROC [device: Device] = { }; }. -- EthernetHeadDorado. EthernetHeadDorado.mesa: Ethernet2 head: stub version to satisfy imports Copyright c 1985 by Xerox Corporation. All rights reserved. Taft, December 10, 1980 10:11 AM Andrew Birrell May 6, 1983 1:36 pm Russ Atkinson (RRA) February 19, 1985 2:06:39 pm PST ʘcodešœH™HKšœ Ïmœ1™Kšžœ ˜Kšœ˜K˜—š Ÿ œžœžœžœžœžœ˜9Kšžœ ˜Kšœ˜K˜—š Ÿœžœžœžœžœžœ˜>Kšžœ ˜Kšœ˜K˜—š Ÿœžœžœžœžœ˜EKšžœ ˜Kšœ˜K˜—šŸ œžœžœžœ ˜@Kšžœ˜Kšœ˜K˜—šŸœžœžœ˜K˜K˜Kšœžœ˜ K˜Kšœ˜K˜—šŸœžœžœ˜'Kšœ˜K˜—šŸ œžœžœ˜*Kšœ˜K˜—KšŸ œžœžœ˜2K˜KšœÏc˜K˜K˜K˜—…—Ò Þ