bonjour,
merci d'avoir me répondu a ma question.
en effet je programme en langage assembleur,j'ai déjà fait un programme pour l'acquisition des données numériques vers le port série su PC en utilisant la liaison UART, et ça marché,ensuite j'ai tenté de faire l'acquisition des données analogiques(capteurs températures,tentions analogiques ..)et les envoyées vers le PC mais dans ce stade je me suis bloqués!!!
j'ai réalisé un programme de conversion en utilisant des LEDs comme indicateurs de résultats et ça bien marché,mais si j'ajoute l'initialisation du module UART dans ce programme il se bloque et me donne rien comme résultats!!
de toute façon je vous joindre mon code afin que vous m'aidez a détecté l'erreur.
cordialement
list p=16f876A,r=dec ; Quartz 4MHz
include <p16f876A.inc>
__CONFIG 3F71h
OPTIONVAL EQU B'10001111'
BRGVAL EQU D'25' ; pour un débit de 9615 bauds en mode low-speed
AN1 EQU 0x70
CBLOCK 0x70 ; Début de la zone (0x70 à 0x7F)
w_temp : 1 ; Sauvegarde registre W
status_temp : 1 ; sauvegarde registre STATUS
FSR_temp : 1 ; sauvegarde FSR (si indirect en interrupt)
PCLATH_temp : 1 ; sauvegarde PCLATH (si prog>2K)
endc
org 0x000 ; Adresse de départ après reset
goto init ; Initialiser
org 0x004 ; adresse d'interruption
movwf w_temp ; sauver registre W
swapf STATUS,w ; swap status avec résultat dans w
movwf status_temp ; sauver status swappé
movf FSR,w ; charger FSR
movwf FSR_temp ; sauvegarder FSR
init
bsf STATUS,RP0 ; passer en banque 1
bcf STATUS,RP1 ; passer en banque 1
movlw OPTIONVAL ; charger masque
movwf OPTION_REG ; initialiser registre option
bsf STATUS,RP0 ; passer en banque 1
movlw B'00000110' ; mode asynchrone, émission 8 bits haute vitesse
movwf TXSTA ; dans registre TXSTA
movlw BRGVAL ; valeur calculée de SPBRG
movwf SPBRG ; dans baud rate generator
bcf STATUS,RP0 ; repasser banque 0
movlw B'10000000' ; module en service, réception 9 bits
movwf RCSTA
movlw B'00111111'
movwf TRISA
BCF STATUS, RP0 ; Bank 0 selectonnee
movlw B'11111111'
movwf PORTA
BSF STATUS, RP1 ; Bank 1 selectonnee
MOVLW b'10001110' ; select RA0
MOVWF ADCON1 ; as analog inputs
goto star
star
bcf INTCON, GIE ; Global Interrupts: disabled
movlw b'01000001' ; Select; RC osc, Ch2
movwf ADCON0 ; turn on A/D
movlw D'6'
movwf AN1
decfsz AN1, f
goto $-1
BSF ADCON0, GO ; Start new A/D conversion
loop
BTFSC ADCON0, 2 ; A/D over ?
GOTO loop ; no then loop
MOVF ADRESH, W
addlw D'48'
call envoi
movf ADRESL,w
call envoi
envoi
bcf STATUS,RP0 ; passer banque 0
movwf TXREG ; octet dans registre de transmission
bsf STATUS,RP0 ; repasser banque 1
bsf TXSTA,TXEN ; envoyer l'octet
nop
btfss TXSTA,TRMT ; transmission terminée?
goto $-2 ; non, attendre
bcf TXSTA,TXEN ; oui, fin de transmission
bcf STATUS,RP0 ; repasser banque 0
return
sleep
end