( Logiciel de base pour gestion du lien I2C.
  Version 1.50 du 18 Septembre 2011.
  Ecrit par jpb.forth .
)

TELECHARGEMENT 

( Test du bus avec PCF8574.
  L'instruction TEST_I2C_ON lance une tache qui se contente de lire le peripherique,
  incrementer la valeur lue et l'ecrire. On peut donc verifier le fonctionnement
  du lien I2C en observant des signaux rectangulaires sur chacun des ports
  du PCF8574 (periode de 20 ms pour le bit de poids faible).
  Les lignes A0, A1 et A2 du PCF8574 sont connectees a la masse.
  On peut remplacer le PCF8574 par un PCF8574A a condition de remplacer aussi les
  instructions correspondantes dans le programme.
)

DECIMAL FORGET VAR_DONNEE_I2C

0 VARIABLE VAR_DONNEE_I2C
0 VARIABLE NUMERO_PCF

TACHE: T_TEST_I2C
 VAR_DONNEE_I2C @ NUMERO_PCF @ DUP 0=
 IF
  >R ?DUP
  IF
   2* DUP -8 LSH 1 AND OR
  ELSE
   1
  THEN
  DUP VAR_DONNEE_I2C ! R>
 THEN
 DUP >R LSH DUP -8 LSH OR DUP R@ I2C_PCF8574_C! COM R@ I2C_PCF8574A_C!
 R> 1+ 7 AND NUMERO_PCF !
;

: TEST_I2C_ON
 49152 T_TEST_I2C T_AJOUTE 12 T_TEST_I2C T_PERIODE
;

: TEST_I2C_OFF
 T_TEST_I2C T_RETIRE
;

( FIN
)