<> <> <> <> <> <> <> <> <> DIRECTORY EthernetOneFace; EthernetOneHeadDLion: PROGRAM EXPORTS EthernetOneFace = BEGIN OPEN EthernetOneFace; <> nullDeviceHandle: PUBLIC DeviceHandle _ LOOPHOLE[123456B]; globalStateSize, controlBlockSize: PUBLIC CARDINAL _ 0; hearSelf: PUBLIC BOOLEAN _ FALSE; QueueOutput, QueueInput: PUBLIC PROC [ DeviceHandle, LONG POINTER, CARDINAL, ControlBlock] = {ERROR}; GetStatus, GetRetries, GetPacketLength, GetPacketsMissed: PUBLIC PROC [UNSPECIFIED] RETURNS [UNSPECIFIED] = {ERROR}; TurnOff, StartIO, AddCleanup, RemoveCleanup: PUBLIC PROC [ UNSPECIFIED] = LOOPHOLE[GetStatus]; -- don't worry about return mismatch InputHosts, InputHost: PUBLIC PROC [UNSPECIFIED, UNSPECIFIED] = LOOPHOLE[GetStatus]; -- don't worry about return mismatch MulticastCapabilities: PUBLIC PROC [device: DeviceHandle] RETURNS [ canDo: BOOLEAN, multicastsEnabled: BOOLEAN] = { RETURN [ canDo: FALSE, multicastsEnabled: FALSE]; }; GetNextDevice: PUBLIC PROC [DeviceHandle] RETURNS [DeviceHandle] = {RETURN[nullDeviceHandle]}; TurnOn: PUBLIC PROC [DeviceHandle, HostAddress, WORD, WORD, GlobalStatePtr] = {ERROR}; GetEthernet1Address: PUBLIC PROC [ EthernetOneFace.DeviceHandle] RETURNS [net, host: [0 .. 377B]] = {ERROR}; END....