lds #0h00ff        ; Initialisation du programme
	ldx #0h1000
	ldaa #0h7f         ; Bit 8 du port A en output 
	staa 0h1001        ; 0xxxxxxx
	ldaa #0h90
	staa 0h1039
	bset 0h28,x,#0h20  ; configuration du port serie
	clr 0h2C,x         ;
	ldd #0h330C        ; 
	staa 0h2B,x        ;
	stab 0h2D,x        ;
	ldaa #0hFF	   ; mise a l'etat haut des bits
	staa 0h1004	   ; du port B 
attente: ldaa 0h00,x 	   ; carte d'acquisition en attente
	anda #0h80	   ; 	mettre bit 8 du port A sur  		
	beq attente 	   ;	5 Volts
start:  

;        delai: ldy #0hFFFF	  ; sous routine d'attente
;               dey		  ;
;               bne delai	  ;
	
	ldaa #0h21         	  ; conversion A/N sur le
	staa 0h1030	          ; convertisseur 3 (xxxxx0xx)
	bsr ad_read	
	staa 0h1004
	bsr serial
	bra start
ad_read: ldaa 0h1030
	bpl ad_read
	ldaa 0h1034       	  ; charge la valeur de la conv. AN
	rts
serial: brclr 0h2E,x,#0h80,serial ; verifie si le port serie est libre
	staa 0h2F,x               ; envoie la valeur A/N sur le port serie

;        ldaa #0h20			;
;serial2: brclr 0h2E,x,#0h80,serial2	; envoie le caractère " " sur le port
;         staa 0h2F,x			; série
	
	rts