<> <> DIRECTORY Basics USING [DIVMOD], D0InputOutput USING [ CSB, IOPage, ethernet1In, ethernet1Out, ControllerNumber, GetNextController, nullControllerNumber], DeviceCleanup USING [Item, Await], EthernetOneFace, MPCodes USING [Code, ethernetHostChanged], PrincOps USING [zMISC, zSTARTIO], PrincOpsUtils USING [LowHalf], ProcessorFace USING [SetMP]; EthernetOneHeadD0: PROGRAM IMPORTS Basics, D0InputOutput, DeviceCleanup, PrincOpsUtils, ProcessorFace EXPORTS EthernetOneFace = BEGIN OPEN EthernetOneFace; <> OCSB: TYPE = LONG POINTER TO OutputControllerStatusBlock; OutputControllerStatusBlock: TYPE = MACHINE DEPENDENT RECORD [ reserved: WORD, next: ShortIOCB, unused1: WORD, unused2: WORD, interruptBit: WORD, -- words after here are unused by microcode last: IOCB ]; -- last IOCB on output queue, valid if next#noIOCB ICSB: TYPE = LONG POINTER TO InputControllerStatusBlock; InputControllerStatusBlock: TYPE = MACHINE DEPENDENT RECORD [ reserved: WORD, next: ShortIOCB, host: LONG CARDINAL, interruptBit: WORD, missed: WORD, -- for debugging only spare1: WORD, spare2: WORD, buffer: ARRAY [0..4) OF CARDINAL, -- words after here are unused by microcode last: IOCB ]; -- last IOCB on input queue, valid if next#noIOCB IOCB: TYPE = LONG POINTER TO IOControlBlock; <> ShortIOCB: TYPE = POINTER TO IOControlBlock; IOControlBlock: TYPE = MACHINE DEPENDENT RECORD [ next: ShortIOCB, mask: WORD, spare: WORD, completion: WORD, used: CARDINAL, -- input only length: CARDINAL, buffer: LONG POINTER ]; -- NB: Must be QuadWord Aligned StartIO: PROCEDURE [SioParameter] = MACHINE CODE BEGIN PrincOps.zSTARTIO END; SioParameter: TYPE = RECORD [WORD]; firstFixupOutput: SioParameter = [1B]; firstFixupInput: SioParameter = [2B]; firstReset: SioParameter = [3B]; secondFixupOutput: SioParameter = [4B]; secondFixupInput: SioParameter = [10B]; secondReset: SioParameter = [14B]; <> <> <> <> Output: PROCEDURE [Command, Register] = MACHINE CODE BEGIN PrincOps.zMISC, 6; END; Input: PROCEDURE [Register] RETURNS [WORD] = MACHINE CODE BEGIN PrincOps.zMISC, 5; END; Command: TYPE = RECORD [WORD]; enableInput: Command = [220B]; enableOutput: Command = [103B]; Register: TYPE = MACHINE DEPENDENT RECORD [ zero: [0..377B] _ 0, controller: D0InputOutput.ControllerNumber, register: [0..17B]]; <> processed: WORD = 040000B; error: WORD = 020000B; hardwareError: WORD = 010000B; fragment, tooLong: WORD = 004000B; loadOverflow: WORD = 002000B; nothingYet: WORD = 0; <<001000 and 000400 are unused so far>> <> <<001: Bad Alignment>> <<002: Bad Parity (between mem and shifter)>> <<004: Memory Data Fault>> <<010: CRC>> <<020: Collision>> <<040: Input Overrun>> <<100: Output Overrun>> <<200: Jam>> noIOCB: ShortIOCB = LOOPHOLE[0];  Device: TYPE = RECORD [ board: Board, in, out: D0InputOutput.ControllerNumber]; Board: TYPE = [0..2); ICSBFronDevice: PROCEDURE [device: Device] RETURNS [ICSB] = INLINE BEGIN RETURN[LOOPHOLE[@D0InputOutput.IOPage[device.in]]]; END; OCSBFronDevice: PROCEDURE [device: Device] RETURNS [OCSB] = INLINE BEGIN RETURN[LOOPHOLE[@D0InputOutput.IOPage[device.out]]]; END; ControlRegister: PROCEDURE [c: D0InputOutput.ControllerNumber] RETURNS [Register] = INLINE BEGIN RETURN[[0,c,0]]; -- Register 0 is the control register END; Shorten: PROCEDURE [iocb: IOCB] RETURNS [ShortIOCB] = INLINE BEGIN <> RETURN[PrincOpsUtils.LowHalf[iocb]]; END; <> DeviceHandle: PUBLIC TYPE = Device; ControlBlockRecord: PUBLIC TYPE = IOControlBlock; <> nullDeviceHandle: PUBLIC DeviceHandle _ LOOPHOLE[123456B]; globalStateSize: PUBLIC CARDINAL _ 0; controlBlockSize: PUBLIC CARDINAL _ SIZE[IOControlBlock]; hearSelf: PUBLIC BOOLEAN _ TRUE; <> fixupInputBits: ARRAY Board OF SioParameter = [firstFixupInput, secondFixupInput]; fixupOutputBits: ARRAY Board OF SioParameter = [firstFixupOutput, secondFixupOutput]; resetBits: ARRAY Board OF SioParameter = [firstReset, secondReset];  QueueOutput: PUBLIC PROCEDURE [ device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] = BEGIN out: OCSB = OCSBFronDevice[device]; cb^ _ [ next: noIOCB, mask: 0, spare: 0, completion: 0, used: 0, length: length, buffer: buffer ]; IF out.next=noIOCB THEN BEGIN -- new iocb, hardware idle out.next _ Shorten[cb]; Output[enableOutput,ControlRegister[device.out]]; -- poke hardware END ELSE BEGIN -- output active, add to end of chain out.last.next _ Shorten[cb]; IF out.next=noIOCB AND cb.completion=0 THEN BEGIN -- oops, hardware went idle out.next _ Shorten[cb]; Output[enableOutput,ControlRegister[device.out]]; -- poke hardware END; END; out.last _ cb; END; QueueInput: PUBLIC PROCEDURE [ device: Device, buffer: LONG POINTER, length: CARDINAL, cb: IOCB] = BEGIN in: ICSB = ICSBFronDevice[device]; cb^ _ [ next: noIOCB, mask: 0, spare: 0, completion: 0, used: 0, length: length, buffer: buffer ]; IF in.next#noIOCB THEN in.last.next _ Shorten[cb]; IF in.next=noIOCB AND cb.completion=0 THEN BEGIN in.next _ Shorten[cb]; <> StartIO[fixupInputBits[device.board]]; Output[enableInput,ControlRegister[device.in]]; END; in.last _ cb; END; GetStatus: PUBLIC PROCEDURE [cb: IOCB] RETURNS [status: Status] = BEGIN RETURN [ SELECT cb.completion FROM 0 => pending, 40000B => ok, 62000B => tooManyCollisions, 61000B => packetTooLong, 70001B => badAlignmentButOkCrc, 70010B => crc, 70011B => crcAndBadAlignment, 70040B, 70041B, 70050B, 70051B => overrun, 70100B, 70120B => underrun, ENDCASE => otherError ]; END; GetRetries: PUBLIC PROCEDURE [cb: IOCB] RETURNS [CARDINAL] = BEGIN RETURN [ SELECT cb.mask FROM 1 => 0, 3 => 1, 7 => 2, 17B => 3, 37B => 4, 77B => 5, 177B => 6, 377B => 7, 777B => 8, 1777B => 9, 3777B => 10, 7777B => 11, 17777B => 12, 37777B => 13, 77777B => 14, 177777B => 15, ENDCASE => 16 ]; END; GetPacketLength: PUBLIC PROCEDURE [cb: IOCB] RETURNS [CARDINAL] = BEGIN RETURN [cb.used]; END; GetPacketsMissed: PUBLIC PROCEDURE [device: Device] RETURNS [CARDINAL] = BEGIN RETURN [ICSBFronDevice[device].missed]; END;  GetNextDevice: PUBLIC PROCEDURE [device: Device] RETURNS [Device] = BEGIN OPEN D0InputOutput; IF device=nullDeviceHandle THEN device _ [0,nullControllerNumber,nullControllerNumber] ELSE device.board _ device.board + 1; device.in _ GetNextController[ethernet1In,device.in]; device.out _ GetNextController[ethernet1Out,device.out]; IF device.in=nullControllerNumber OR device.out=nullControllerNumber THEN RETURN[nullDeviceHandle]; RETURN[device]; END; GetEthernet1Address: PUBLIC PROCEDURE [device: Device] RETURNS [net: [0..256), host: HostAddress] = BEGIN reg: Register = [controller: device.in, register: 1]; [net,host] _ Basics.DIVMOD[Input[reg],400B]; END; TurnOn: PUBLIC PROCEDURE [ device: Device, host: HostAddress, inInterrupt, outInterrupt: WORD, globalState: GlobalStatePtr] = BEGIN board: Board = device.board; out: OCSB = OCSBFronDevice[device]; in: ICSB = ICSBFronDevice[device]; StartIO[resetBits[board]]; out^ _ [ reserved: 0, next: noIOCB, unused1: 0, unused2: 0, interruptBit: outInterrupt, last: NIL ]; in^ _ [ reserved: 0, next: noIOCB, host: host, interruptBit: inInterrupt, missed: 0, spare1: 0, spare2: 0, buffer: [0,0,0,0], last: NIL ]; StartIO[fixupInputBits[board]]; StartIO[fixupOutputBits[board]]; Output[enableInput,ControlRegister[device.in]]; END; TurnOff: PUBLIC PROCEDURE [device: Device] = BEGIN StartIO[resetBits[device.board]]; END; <> <> InputHosts: PUBLIC PROCEDURE [device: DeviceHandle, inputHosts: LONG POINTER TO HostArray] = { ERROR }; InputHost: PUBLIC PROCEDURE[device: DeviceHandle, host: HostAddress] = { ERROR; }; MulticastCapabilities: PUBLIC PROCEDURE[device: DeviceHandle] RETURNS [ canDo: BOOLEAN, multicastsEnabled: BOOLEAN] = { RETURN [ canDo: FALSE, multicastsEnabled: FALSE]; };  <> alreadyInitializedCleanup: ARRAY Board OF BOOLEAN _ ALL[FALSE]; savedICSB: InputControllerStatusBlock; savedOCSB: OutputControllerStatusBlock; AddCleanup: PUBLIC PROCEDURE [device: Device] = BEGIN OPEN DeviceCleanup; item: Item; board: Board = device.board; out: OCSB = OCSBFronDevice[device]; in: ICSB = ICSBFronDevice[device]; oldHost: LONG CARDINAL; originalHost: HostAddress; IF alreadyInitializedCleanup[device.board] THEN RETURN; alreadyInitializedCleanup[device.board] _ TRUE; originalHost _ GetEthernet1Address[device].host; DO SELECT Await[@item] FROM kill => BEGIN StartIO[resetBits[board]]; END; turnOff => BEGIN StartIO[resetBits[board]]; savedICSB _ in^; savedOCSB _ out^; oldHost _ in.host; END; turnOn => BEGIN <> StartIO[resetBits[board]]; IF GetEthernet1Address[device].host#originalHost THEN ErrorHalt[MPCodes.ethernetHostChanged]; -- perhaps InLoaded on another machine out^ _ [ reserved: 0, next: noIOCB, unused1: 0, unused2: 0, interruptBit: 0, last: NIL ]; in^ _ [ reserved: 0, next: noIOCB, host: oldHost, -- Ugh, it would be nice if we could do something better interruptBit: 0, missed: 0, spare1: 0, spare2: 0, buffer: [0,0,0,0], last: NIL ]; StartIO[fixupInputBits[board]]; StartIO[fixupOutputBits[board]]; Output[enableInput,ControlRegister[device.in]]; END; ENDCASE; ENDLOOP; END; RemoveCleanup: PUBLIC PROCEDURE [device: Device] = BEGIN END; ErrorHalt: PROC [code: MPCodes.Code] = INLINE { ProcessorFace.SetMP[code]; DO ENDLOOP }; END. -- EthernetOneHeadD0. LOG Time: August 20, 1980 2:01 PM By: BLyon, Action: renamed EthernetFace and EthernetHeadD0 to EthernetOneFace and EthernetOneHeadD0, resp. Time: August 25, 1980 5:36 PM By: BLyon, Action: added [ ELSE h.board _ h.board + 1] clause to GetNextDevice. Time: September 4, 1980 11:02 PM By: HGM, Action: add hearSelf, use exported types. Time: September 14, 1980 6:36 AM By: HGM, Action: bug in bufferOverflow. 8-Jul-82 14:50:19 Taft Cleanup routine checks for Ethernet address changing at turnOn time. Time: September 23, 1982 1:42 pm By: Swinehart, Action: Add Dummy multicast functions.