home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / VIDEOTEXT.LZX / VTsrc / include / i2c.lib next >
Encoding:
Text File  |  1996-02-28  |  1.2 KB  |  50 lines
  1. {$if not def I2C_LIB_H} CONST I2C_LIB_H=0;
  2.  
  3. { **********************************************
  4.   ** KickPascal-Include-Datei "i2c.lib" V39.2 **
  5.   ********************************************** }
  6.  
  7. VAR I2CBase : Ptr;
  8.  
  9. LIBRARY I2CBase :
  10.  -30 : FUNCTION AllocI2C(D0: Byte; A1: Str): Byte;
  11.  -36 : PROCEDURE FreeI2C;
  12.  -42 : FUNCTION SetI2CDelay(D0: Long): Long;
  13.  -48 : PROCEDURE InitI2C;
  14.  -54 : FUNCTION SendI2C(D0: Byte; D1: Word; A1: Ptr): Long;
  15.  -60 : FUNCTION ReceiveI2C(D0: Byte; D1: Word; A1: Ptr): Long;
  16.  { V38+: }
  17.  -66 : FUNCTION GetI2COpponent: Str;
  18.  { V39+: }
  19.  -72 : FUNCTION I2CErrText(D0: Long): Str;
  20.  -78 : PROCEDURE ShutDownI2C;
  21.  -84 : FUNCTION BringBackI2C: Byte;
  22. END;
  23.  
  24. CONST
  25.  { types of delay on SCL: }
  26.  DELAY_TIMER    = 1;
  27.  DELAY_LOOP     = 2;
  28.  { magic delay value: }
  29.  I2CDELAY_READONLY = -1;
  30.  { allocation errors: }
  31.  I2C_OK         = 0;
  32.  I2C_PORT_BUSY  = 1;
  33.  I2C_BITS_BUSY  = 2;
  34.  I2C_NO_MISC_RESOURCE = 3;
  35.  I2C_ERROR_PORT = 4;
  36.  I2C_ACTIVE     = 5;
  37.  I2C_NO_TIMER   = 6;
  38.  { I/O errors: }
  39.  {I2C_OK        = 0;}
  40.  I2C_REJECT     = 1;
  41.  I2C_NO_REPLY   = 2;
  42.  SDA_TRASHED    = 3;
  43.  SDA_LO         = 4;
  44.  SDA_HI         = 5;
  45.  SCL_TIMEOUT    = 6;
  46.  SCL_HI         = 7;
  47.  I2C_HARDW_BUSY = 8;
  48.  
  49. {$endif}
  50.