***************************************
* Sous-routine utilitaire pour le     *
* convertiseur analogique a digital du*
* 68HC11                              *
***************************************

***************************************
* INIAD
*
* Sous-routine qui initialise la pompe
* a charge pour que le A/D fonctionne
*
* Reg Aff: A,CCR
***************************************

INIAD:    LDX       #REGS
          BSET      OPT,X %10000000
          BCLR      OPT,X %01000000
          RTS

***************************************
* ADREAD
*
* Sous-routine qui lit la valeur de la
* conversion sur le PEx
*
* Acc A contient le numero de l'entree
*
* Retourne la valeur de la conversion
* dans Acc A
*
* Reg Aff: A,CCR
***************************************

ADREAD:   PSHX
          LDX       #REGS
          ANDA      #%00001111
          STAA      ADCTL,X
ADREAD1:  LDAA      ADCTL,X
          BMI       ADREAD1
          LDAA      ADR1,X
          PULX
          RTS