( Logiciel de base pour interface parallele I2C PCF8574A.
  Version 1.00 du 1er Octobre 2000.
  Ecrit par jpb.forth .
)

TELECHARGEMENT 

( Ces routines utilisent la meme syntaxe que les instructions C! et C@ 
  sauf que l'adresse correspond a l'adresse materielle I2C du boitier.
  Cette adresse doit etre comprise entre 0 et 7.
)

DECIMAL FORGET I2C_PCF8574A_C!

: I2C_PCF8574A_C! ( octet,adresse --> - )
 7 AND 2* 112+ 2* 1+ 8 LSH >R 255 AND R> + 2* 1+ 18
 I2C_START I2C_ECHANGE_BITS I2C_STOP
 DROP
;

: I2C_PCF8574A_C@ ( adresse --> octet )
 7 AND 2* 113+ 2* 1+ 9 LSH 511+ 18
 I2C_START I2C_ECHANGE_BITS I2C_STOP
 23 LSH -24 ASH
;

( FIN
)