**************************************************************************
***                                                                     **
***                              CAN                                    **
***                                                                     **                         
**************************************************************************
**	read A/D from port E : bit 7
**	write PORT B

ADCTL		equ			$30
PORTB		equ			$04	
OPTION	equ			$39
PORTE		equ			$0A
ADR1		equ			$31

        org     $FE00        * start of EEPROM

				ldx			#$1000		   * needed for the brclr command
				ldaa		#%10011000	 * Power up A/D with clock delay
        staa    OPTION,x     * OPTION
        
        ldy #$0014
CENT    dey 								 *Attendre 100µsec
        bne CENT

Main
				ldaa		#%00000000 	 * single scan, multi-mode, pins e0-3
        staa    ADCTL,x      * write starts conversion   ADCTL

Conversion brclr ADCTL,x,#$80 Conversion   *wait end conversion  ADCTL       
        ldaa    ADR1,x     	* get value from pin E0, E1, E2, or E3  ADR1				
        staa    PORTB,x   	* store it to PORTB
        bra     Main      	* boucle
				
				end