<> <> <> <> <> <<>> <> <<>> <> <> DIRECTORY DiskFace USING [Label], SA4000Face USING [Command, Operation, Status]; DDC: DEFINITIONS = BEGIN Base: TYPE = LONG BASE POINTER; <> <<16 word aligned, and MUST NOT CROSS A PAGE!>> IOCB: TYPE = MACHINE DEPENDENT RECORD [ operation(0): SA4000Face.Operation, savedIOCBCmd(13:0..4): SA4000Face.Command, -- for label fixup. savedError(13:5..8): SA4000Face.Status, unused(13:9..11): [0..8) _ NULL, iocbState(13:12..15): ProcessingState, presentCylinder(14): CARDINAL, -- cyl after this stage destCylinder(15): CARDINAL, -- when we're done.... <> transferParm(16): ParameterBlock, nextIOCB(33): Base RELATIVE POINTER TO ChannelCommand, seekCommand(34): SeekBlock, transferCommand(52): TransferBlock, countThisStage(66): CARDINAL, -- # pages for this stage label(67): DiskFace.Label, unusedLabel(77): LONG CARDINAL _ 0 -- must follow label ]; ChannelCommand: TYPE; -- never used, just something to point at IOCBshortPtr: TYPE = Base RELATIVE POINTER TO IOCB; IOCBlongPtr: TYPE = LONG POINTER TO IOCB; <> <> ProcessingState: TYPE = MACHINE DEPENDENT { startRecal, recalSeek, recalStepIn, recalStepOut, startSeek, doSeek, startTransfer, eraseSA1000Track, transfer, transferFinish, labelRead }; <<>> <> <> ParameterBlock: TYPE = MACHINE DEPENDENT RECORD [ sectorCount(0): CARDINAL, -- number of sectors to transfer failCount(1): CARDINAL, -- sectors/fields to skip when <> headerOp(2:0..79): HeaderBlock, -- block of words used to specify <> labelOp(7:0..63): LabelBlock, -- block of words used to specify <> dataOp(11:0..63): DataBlock, -- block of words used to specify <> miscCmds(15:0..31): MiscCommandBlock -- stop the hardware between ]; <> HeaderBlock: TYPE = MACHINE DEPENDENT RECORD [ headerCmd(0): WORD, -- command word specifying header op headerCnt(1): CARDINAL, -- word count for header field headerAddr(2): CARDINAL, -- lo 16 bits of clientHeader if verify <> headerQuitMsk(3): WORD, -- mask used to decide to quit after <

> headerLoopMsk(4): WORD -- mask used to decide to loop looking ]; <> <

> LabelBlock: TYPE = MACHINE DEPENDENT RECORD [ labelCmd(0): WORD, -- control word specifying operation <> labelCnt(1): CARDINAL, -- word count for label field labelAddr(2): CARDINAL, -- lo 16 physical addr of IOCB's <> labelMsk(3): WORD -- mask used to decide whether to ]; <> DataBlock: TYPE = MACHINE DEPENDENT RECORD [ dataCmd(0): WORD, -- control word specifying operation <> dataCnt(1): CARDINAL, -- word count for data field dataPgNum(2): CARDINAL, -- virtual page number of data <> dataMsk(3): WORD -- mask used to decide to quit ]; <> MiscCommandBlock: TYPE = MACHINE DEPENDENT RECORD [ freezeCmd(0): WORD, -- reset hardware after each <> findSectMkCmd(1): WORD -- find the next sector mark, if any ]; <<>> <> <> <> <> SeekBlock: TYPE = MACHINE DEPENDENT RECORD [ negDistance(0): INTEGER, -- negative number step pulses <> sendWaitCmd(1): WORD, -- tells disk uCode to send command <> <> waitCmd(2): WORD, -- this the control word sent sendCtl1(3): WORD, -- tells disk uCode to sent next word controlWd1(4): WORD, -- raises the step line, direction bit <> <> sendCtl2(5): WORD, -- tells disk uCode to sent next word <> controlWd2(6): WORD, -- lowers the step line (may also be <> <> <> <> inrNegDistance(7): WORD, -- have disk uCode increment neg <> negDistanceAddr(8): WORD, -- the next two words if it is zero jumpToStep(9): WORD, -- if count is zero, jump back to the <> <> <> sendCtlAddr(10): WORD, -- physical address of proper send <> initRegsCmd(11): WORD, -- test the controller status against <> <> <> <> initRegsParm(12): WORD, -- dummy parameter containing zero finishSeek(13): FinishBlock -- end of seek command or contains ]; <> <> FinishBlock: TYPE = MACHINE DEPENDENT RECORD [ finishCmd(0): WORD, -- tells uCode to finish up CSB nextIOCB(1): Base RELATIVE POINTER TO ChannelCommand, <> <> <> transferMask(2): WORD, -- word used to set mesa interrupt flags <> stopCmd(3): WORD, -- command word used to turn off <> <> statusAddr(4): WORD -- lo 16 bits of deviceStatus physical ]; <> TransferBlock: TYPE = MACHINE DEPENDENT RECORD [ loadParmsCmd(0): WORD, -- tells disk uCode to load the <> parmBlockAddr(1): WORD, -- lo 16 bits of parameter block <> <> transferCmd(2): WORD, -- tells disk uCode to do the transfer jumpFinishCmd(3): WORD, -- tells disk uCode to jump to <> <> finishAddr(4): WORD, -- physical address of finish command <> sendStepCmd1(5): WORD, -- used to send post-step pulse <> stepCmdWd1(6): WORD, sendStepCmd2(7): WORD, -- lowers step line to complete <> stepCmdWd2(8): WORD, finishTransfer(9): FinishBlock -- end the transfer command ]; DDCHardwareBits: TYPE = MACHINE DEPENDENT RECORD [ nHeadSelected(0:0..4): [0..32), -- inverted version of head selected seekComplete (0:5..5): BOOLEAN, track00 (0:6..6): BOOLEAN, firmwareBusy (0:7..7): BOOLEAN, indexFound (0:8..8): BOOLEAN, sectorFoundOrLabelDataTag (0:9..9): BOOLEAN, driveIsSA1000(0:10..10): BOOLEAN, driveNotReady(0:11..11): BOOLEAN, writeFault (0:12..12): BOOLEAN, overrun (0:13..13): BOOLEAN, CRCError (0:14..14): BOOLEAN, verifyError (0:15..15): BOOLEAN ]; <> <<| head |seek|track00|firmware|index|sector|SA1000|not |write|over|CRC|verify|>> <<| select |done| | busy |found|found | |ready|fault| run| |error |>> <<| 8421|8 4 2 1 | 8 4 2 1 | 8 4 2 1 |>> <<| 1|421|4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 |>> <<| head |seek|track00|firmware|index|sector|SA1000|not |write|over|CRC|verify|>> <<| select |done| | busy |found|found | |ready|fault| run| |error |>> DDCStatusBits: TYPE = MACHINE DEPENDENT RECORD [ lastField (0:0..1): [0..4), -- = number of last field processed unused2To4 (0:2..4), seekComplete (0:5..5): BOOLEAN, track00 (0:6..6): BOOLEAN, firmwareBusy (0:7..7): BOOLEAN, indexFound (0:8..8): BOOLEAN, sectorFoundOrLabelDataTag (0:9..9): BOOLEAN, memoryFault (0:10..10): BOOLEAN, driveNotReady(0:11..11): BOOLEAN, writeFault (0:12..12): BOOLEAN, overrun (0:13..13): BOOLEAN, CRCError (0:14..14): BOOLEAN, verifyError (0:15..15): BOOLEAN ]; <> <<| last |----|seek|track00|firmware|index|sector|memory|not |write|over|CRC|verify|>> <<| field| |done| | busy |found|found | fault|ready|fault| run| |error |>> <<| 84 21|8 4 2 1 | 8 4 2 1 | 8 4 2 1 |>> <<| 1|4 21|4 2 1 | 4 2 1 | 4 2 1 | 4 2 1 |>> <<| last |----|seek|track00|firmware|index|sector|memory|not |write|over|CRC|verify|>> <<| field| |done| | busy |found|found | fault|ready|fault| run| |error |>> FieldOperation: TYPE = MACHINE DEPENDENT {noop, read, write, verify}; <> <<>> SeekType: TYPE = { dummyIOCB, seek, step, findSA4000Sector0, findSA1000Sector0, plainTransfer }; <> <> <> <> TransferType: TYPE = {noStep, doStep}; <> END.