<> <> <> <> <> <> <> <> <<>> DIRECTORY DiskFace USING [Label]; SA4000Face: DEFINITIONS = BEGIN GetDeviceAttributes: PROC [DeviceHandle] RETURNS [cylinders, movingHeads, fixedHeads, sectorsPerTrack: CARDINAL]; <> GetTrueDeviceAttributes: PROC [SA4000Face.DeviceHandle] RETURNS [cylinders, movingHeads, fixedHeads, sectorsPerTrack: CARDINAL]; <> GetNextDevice: PROC [DeviceHandle] RETURNS [DeviceHandle]; <> Initialize: PROC [t: WORD, globalState: GlobalStatePtr]; <> InitializeCleanup: PROC; <> Initiate: PROC [OperationPtr]; <> Poll: PROC [OperationPtr] RETURNS [Status]; <> Recalibrate: PROC [DeviceHandle]; <> Reset: PROC [DeviceHandle]; <> DiskAddress: TYPE = MACHINE DEPENDENT RECORD [ cylinder (0): CARDINAL, head (1:0..7): [0..256), sector (1:8..15): [0..256) ]; <> DeviceHandle: TYPE[1]; GlobalStatePtr: TYPE = Base RELATIVE POINTER; Base: TYPE = LONG BASE POINTER; Command: TYPE = { <> vv, vvr, vvw, vvv, vw, vww, vr, vrr, vrw, vrv, rv, rvr, rvw, rvv, rw, rww, rr, rrr, rrw, rrv, w, www }; Operation: TYPE = MACHINE DEPENDENT RECORD [ <> <> <> <> clientHeader (0): DiskAddress, <> labelPtr (2): LONG POINTER TO DiskFace.Label --PilotDisk.Label--, <> dataPtr (4): LONG POINTER, <> incrementDataPtr (6:0..0): BOOL, <> unused (6:1..10): [0..1777B] _ 0, command (6:11..15): Command, <> pageCount (7): CARDINAL, <> deviceStatus (10B): RECORD [a, b: WORD] _ NULL, <> diskHeader (12B): DiskAddress _ NULL, <> device (14B): DeviceHandle <> ]; OperationPtr: TYPE = LONG POINTER TO Operation; Status: TYPE = MACHINE DEPENDENT { inProgress(0), goodCompletion, dataError, labelError, labelCheck, seekTimeout, sectorTimeout, notReady, wrongSector, wrongCylinder, wrongHead, hardwareError}; <<>> globalStateSize: READONLY CARDINAL; nullDeviceHandle: READONLY DeviceHandle; operationSize: READONLY CARDINAL; <<>> dataSize: CARDINAL = 256; -- size of data field in words headerSize: CARDINAL = 2; -- size of header field in words labelSize: CARDINAL = 10; -- size of label field in words totalErrors: READONLY CARDINAL; -- number of errors reported by microcode END.