Type
  aword = array[0..32766] of word;
  pword = ^aword;

Const
  AD128CARD  = 1;
  AD1216CARD = 2;
  AD128GCARD = 4;
  AIO8CARD   = 8;

  ONE_BIT    = 1;
  TWO_BIT    = 3;
  THREE_BIT  = 7;
  FOUR_BIT   = 15;

  VALUE      = 0;

  ERR_INVALID_ADDRESS      = -1;
  ERR_CHANNEL_RANGE        = -2;
  ERR_AD_TIMEOUT           = -3;
  ERR_NULL_POINTER         = -4;
  ERR_NO_POINTS            = -5;
  ERR_IRQ_RANGE            = -6;
  ERR_BUFFER_OVERFLOW      = -7;
  ERR_BAD_MODE             = -8;
  ERR_BAD_PARAMETER_LIST   = -9;
  ERR_PARAMETER1           = -10;
  ERR_PARAMETER2           = -11;
  ERR_PARAMETER3           = -12;
  ERR_PARAMETER4           = -13;
  ERR_PARAMETER5           = -14;
  ERR_PARAMETER6           = -15;
  ERR_PARAMETER7           = -16;
  ERR_PARAMETER8           = -17;
  ERR_PARAMETER9           = -18;
  ERR_PARAMETER10          = -19;
  ERR_USER_ABORT           = -20;
  ERR_BAD_COUNTER          = -21;
  ERR_BAD_CORNER_FREQUENCY = -22;

  WARN_CAL_OUT_OF_RANGE    = 1;
  WARN_CAL_ABOVE_SCALE     = 2;
  WARN_CAL_BELOW_SCALE     = 3;
  WARN_RATE_TOO_FAST       = 4;
  WARN_RATE_TOO_SLOW       = 5;

Var
  BADDR : word;
  CURCH : word;

{$F+}