(* $M- *)
DEFINITION MODULE ConUnit;

FROM SYSTEM IMPORT
 ADDRESS;
FROM Console IMPORT
 mLnm;
FROM Exec IMPORT
 MsgPort,UByte;
FROM Graphics IMPORT
 DrawModes,TextFontPtr;
FROM InputEvent IMPORT
 classMax;
FROM Intuition IMPORT
 WindowPtr;
FROM KeyMap IMPORT
 KeyMap;

CONST
 pmbAsm=mLnm+1;
 pmbAwm=pmbAsm+1;
 maxTabs=80;

TYPE
 ConUnit=RECORD
  mp:MsgPort;
  window:WindowPtr;
  xCP:INTEGER;
  yCP:INTEGER;
  xMax:INTEGER;
  yMax:INTEGER;
  xRSize:INTEGER;
  yRSize:INTEGER;
  xROrigin:INTEGER;
  yROrigin:INTEGER;
  xRExtant:INTEGER;
  yRExtant:INTEGER;
  xMinShrink:INTEGER;
  yMinShrink:INTEGER;
  xcCP:INTEGER;
  ycCP:INTEGER;
  keyMapStruct:KeyMap;
  tabStops:ARRAY [0..maxTabs-1] OF CARDINAL;
  mask:UByte;
  fgPen:UByte;
  bgPen:UByte;
  aolPen:UByte;
  drawMode:DrawModes;
  areaPtSz:UByte;
  areaPtrn:ADDRESS;
  minTerms:ARRAY [0..7] OF UByte;
  font:TextFontPtr;
  algoStyle:UByte;
  txFlags:UByte;
  txHeight:CARDINAL;
  txWidth:CARDINAL;
  txBaseLine:CARDINAL;
  txSpacing:CARDINAL;
  modes:ARRAY [0..(pmbAwm+7) DIV 8-1] OF UByte;
  rawEvents:ARRAY [0..(classMax+7) DIV 8-1] OF UByte;
 END;
 ConUnitPtr=POINTER TO ConUnit;

END ConUnit.
