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+}

{$L AD12-8.OBJ} 
function AD_NAME : word; external;
function MAXCH : word; external;
function MAXIRQ : word; external;
function VALIDIRQ : word; external;
procedure STARTCONVERSION(BASE : word); external;
function RETRIEVEANALOGCONVERSION(BASE : word) : word; external;
function RETRIEVEANALOGDATA(BASE : word) : word; external;
function CHECKFOREOC(BASE : word) : word; external;
procedure SETCHANNEL(BASE, CH : word); external;
procedure SETGAIN(BASE, GAIN, MASK : word); external;
function WAITFOREOC(base : word) : word; external;
function CARDEXISTS(base : word) : word; external;
function TESTCARD(base : word) : word; external;
function PROGRAMCOUNTER(base, counter, mode, loadvalue : word) : integer; external;
function COUNTERMODE(base, counter, mode : word) : integer; external;

{$L SSH0XDRV.OBJ}
function GetData(FirstChannel, LastChannel : word; Buffer : pword) : integer; external;
procedure EnableHold; external;
procedure Hold; external;
procedure Sample; external;
function SetBaseAddress(what : word) : integer; external;
function PerformSSHDataAcquisition(FCH, LCH, Scans, Trig,
         D0, Period, IRQ, Mode : word; Buffer : pword) : integer; external;
function ReadTriggerStatus : integer; external;

{$F-}