<> <> <> <> <> DiskHeadDoradoPrivate: DEFINITIONS = BEGIN drives: CARDINAL = 16; -- maximum number of drives per controller Drive: TYPE = [0..drives); DoradoDiskErrorStatus: TYPE = RECORD[header, label, data: DoradoDiskHardwareStatus]; doradoDiskErrorStatusTable: ARRAY [0..drives) OF DoradoDiskErrorStatus; DoradoDiskHardwareStatus: TYPE = MACHINE DEPENDENT RECORD [ seekInc (0: 0..0): BOOL, headOvfl (0: 1..1): BOOL, devCheck (0: 2..2): BOOL, notSelected (0: 3..3): BOOL, notOnLine (0: 4..4): BOOL, notReady (0: 5..5): BOOL, sectorOvfl (0: 6..6): BOOL, fifoUnderflow (0: 7..7): BOOL, fifoOverflow (0: 8..8): BOOL, checkErr (0: 9..9): BOOL, readOnly (0: 10..10): BOOL, cylOffset (0: 11..11): BOOL, iobParityErr (0: 12..12): BOOL, fifoParityErr (0: 13..13): BOOL, eccErr (0: 14..14): BOOL, sectorSearchErr (0: 15..15): BOOL ]; nullDiskStatus: DoradoDiskHardwareStatus = LOOPHOLE[0]; END.