<> <> <> <<>> DIRECTORY D0InputOutput USING [ControllerType]; ColorDisplayD0: DEFINITIONS ~ BEGIN colorDisplayController: D0InputOutput.ControllerType ~ 257B; ColorCSB: TYPE ~ MACHINE DEPENDENT RECORD[ bitmap: LONG POINTER, -- address must be a multiple of 16 table: LONG POINTER TO ColorTable -- address must be a multiple of 16 ]; ColorTable: TYPE ~ MACHINE DEPENDENT RECORD[ front: ARRAY [0..2) OF WORD _ ALL[0], array: ARRAY [0..16) OF ColorEntry, back: ARRAY [0..10) OF WORD _ ALL[0] ]; ColorEntry: TYPE ~ MACHINE DEPENDENT RECORD[r, g, b: ColorData]; ColorData: TYPE ~ MACHINE DEPENDENT RECORD[ addr: [0..17B], r, g, b: BOOL _ FALSE, unused: BOOL _ FALSE, data: [0..377B] ]; END.