( Pilote de l'entree sortie analogique.
  Version 0.10 du 30 Aout 2009.
  Ecrit par jpb.forth .
)

DECIMAL

( Entree sortie analogique:
  -------------------------
  Si Ecriture CW_ECHANTILLONNAGE = 0
   lecture et ecriture analogique directe
   lecture CW_ECHANTILLONNAGE = 1
  Sinon
   FIFO 2048 echantillons 10 us (1) a 2,55 ms (255)
   lecture CW_ECHANTILLONNAGE = nombre d'echantillons disponibles
  Les valeurs analogiques doivent etre comprises entre -128 et +127
)

274 CONSTANT CW_ECHANTILLONNAGE
275 CONSTANT CW_ANALOGIQUE

0 VARIABLE PRG_ANAG

TACHE: T_ANAG
 CW_ECHANTILLONNAGE CW@ ?DUP
 IF
  >R PRG_ANAG 2@ CW_ANALOGIQUE R> 0 DO
   DUP CW@ 3 PICK EXECUTE OVER CW!
  LOOP
  DROP DROP
 THEN
;

: SYNC_ANALOGIQUE ( adr_prgm,periode_ech(us) --> - )
 OVER 0=
 IF
  DROP DROP PRG_ANAG 2@
  IF
   0 DUP CW_ECHANTILLONNAGE CW! CW_ANALOGIQUE CW!
   T_ANAG T_RETIRE 0 PRG_ANAG 2!
  THEN
 ELSE
  0 MAX 2550 MIN 10 / CW_ECHANTILLONNAGE CW! PRG_ANAG 2!
  20 T_ANAG 49152 OVER T_AJOUTE T_PERIODE
 THEN
;

' SYNC_ANALOGIQUE 4- DUP ' PRG_ANAG 4- DUP 2@ - - SWAP 2! DICO_INIT

( FIN
)