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.... °EthernetOneHeadDLion.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Swinehart on September 23, 1982 1:43 pm; dummy multicast functions BLyon on March 13, 1981 9:48 AM Gobbel on January 23, 1981 3:49 PM Johnsson/Forrest on January 12, 1981 2:13 PM Forrest on December 7, 1980 11:42 AM Johnsson/Murray on November 14, 1980 4:51 PM Russ Atkinson (RRA) February 19, 1985 3:34:49 pm PST EXPORTed variables Κ ˜codešœ™Kšœ Οmœ1™K˜—šœ(Ÿœžœžœž œžœž œžœ˜tK˜—š œŸ œžœžœž œžœΟc$˜„K˜—šœ Ÿ œžœžœž œž œž œ $˜zK˜—š Ÿœžœžœžœ žœžœ˜sKšžœ žœžœ˜4K˜—š Ÿ œžœžœžœžœžœ˜^K˜—š Ÿœžœžœžœžœžœ˜VK˜—š Ÿœžœžœ!žœžœ˜lK˜—Kšžœ˜K˜—…—Β|