DIRECTORYBasics USING [BITAND],Endian USING [HWORD],IP USING [Address],NS USING [broadcastHost, Host],Pup USING [allHosts, Host];DriverType: CEDAR DEFINITIONSIMPORTS Basics = {BYTE: TYPE = [0..100H);HWORD: TYPE = Endian.HWORD;Encapsulation: TYPE = MACHINE DEPENDENT RECORD [SELECT OVERLAID * FROMethernet => [ethernetDest: NS.Host,ethernetSource: NS.Host,ethernetType: EthernetPacketType],ethernetOne => [etherSpare1, etherSpare2, etherSpare3, etherSpare4, etherSpare5: HWORD,ethernetOneDest, ethernetOneSource: Pup.Host,ethernetOneType: EthernetOnePacketType],impRelay => [immediate: IP.Address,spare1, spare2, spare3: HWORD,impEthernetOneDest, impEthernetOneSource: Pup.Host,impEthernetOneType: EthernetOnePacketType],spare => [spare1, spare2, spare3, spare4, spare5, spare6, spare7: HWORD],ENDCASE];trap: NAT [7..7] = SIZE[Encapsulation];ethernetOneBroadcastHost: Pup.Host = Pup.allHosts;ethernetOneBootLoaderHost: Pup.Host = [377B];ethernetBroadcastHost: NS.Host = NS.broadcastHost;ethernetMinBytes: NAT = 46;ethernetEncapsulationOffset: NAT = 0;ethernetEncapsulationBytes: NAT = 14;ethernetOneEncapsulationOffset: NAT = 5;ethernetOneEncapsulationBytes: NAT = 4;EthernetPacketType: TYPE = MACHINE DEPENDENT {translationFailed(0B),oldPup(1000B), oldPupTranslation(1001B), -- 0200H, 0201Hns(0600H), -- 3000Bip(0800H), -- 4000Barp(0806H), -- "Address Resolution Protocol"newPup(0A00H), newPupTranslation(0A01H),(LAST[HWORD])};EthernetOnePacketType: TYPE = MACHINE DEPENDENT {translationFailed(0B),peekData(402B), breathOfLife(602B), echoMe(700B), echoed(701B), pup(1000B),ip(1001B), arp(1002B),toImp(1004B), fromImp(1005B), -- For Alto acting as a remote headns(3000B), translation(3001B),(LAST[HWORD])};IsMulticastHost: PROC [host: NS.Host] RETURNS[BOOL] = INLINE {RETURN[Basics.BITAND[host.a, 1] # 0 ];};}.   À  DriverType.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.HGM  January 7, 1981  10:21 PMHal Murray, April 30, 1986 7:18:29 pm PDTAn instance of this record is the last thing in a Buffer before the real data block. The hardware transfers bits to/from it and then keeps going into the body of the packet. Note that the spare words are at the beginning of the record, not the end. That way the driver can easily skip over them by just starting at the right place.bits on the wire start hereBits on the ether start hereBits on the ether start hereEthernetOne magic host numbersEthernet magic host numbersoffsets are in wordsThis is a Hack. It is only used internally to avoid multiword compares and the associated KFCB. It should never appear on the wire.Beware: The IEEE idiots think the packet type field (7th word) is the length. There is a grandfather clause for all "types" 600H or above. This lets NS "coexist", but the Pup world got the short end of the stick. There is a new type assigned for Pups, but converting everybody is going to be a real drag.This is a Hack. It is only used to be parallel with 10MB code.Copied from NSImpl to avoid the overhead of a procedure call.Ê  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ™K™)—K˜ šÏk	˜	Jšœžœžœ˜Jšœžœžœ˜Kšžœžœ˜Kšžœžœ˜Kšœžœ˜K˜ —šœž˜Kšžœ	ž˜K˜ Kšžœžœ˜Kšžœžœ
žœ˜K˜ KšœË™ËK˜ š	œžœžœž	œžœ˜0šžœžœž˜˜Kšœ™Kšœžœ˜Kšœžœ˜K˜"—˜KšœAžœ˜GKšœ™K˜-K˜(—˜Kšœ˜Kšœžœ˜Kšœ™K˜3K˜+—KšœBžœ˜IKšžœ˜	K˜ ——šœžœ
žœ˜'K˜ —Kšœ™K˜2K˜-K˜ Kšœ™Kšœžœžœ˜2K˜ Kšœ™Kšœžœ˜Kšœžœ˜%Kšœžœ˜%Kšœ žœ˜(Kšœžœ˜'K˜ šœžœžœž
œ˜.šœ˜KšœZžœ%™ƒ—šœ)Ïc˜8Kšœžœ…žœ™™°—KšœŸ˜KšœŸ˜KšœŸ ˜,Kšœ(˜(Kšœžœžœ˜K˜ —šœžœžœž
œ˜1šœ˜Kšœ>™>—K˜KKšœ˜KšœŸ#˜AKšœ˜Kšœžœžœ˜—K˜ šÏnœžœžœžœžœžœ˜>K™=Kšžœžœ˜&Kšœ˜K˜ ——šžœ˜K˜ K˜ K˜ —— …—    Z     