Programmation UART pic16f84 assembleur

bonjour,

j'ai créer ce programme en m'inspirant d'autre programme, le but étant de lire les 8 bits des portB0-7 et de les envoyer par le portA1 suivant le protocole 9600bds, pas de bit de parité 1 bit d'arret .
soit 1 bit tous les 104µs.
j'utilise un quartz 4Mhz soit 1cycle/1µs.
j'envoi un signal sur le portA,0 pour demander le traitement.

je vous présente mon prog, il ya surement un erreur.( je sais beaucoup de nop mais bon...)

************************************************
; 9600 bauds/s 8 bits de données Pas de bit de parité
; 1 bit de STOP Pas de contrôle de flux

List p=16F84A ; processeur utilisé
#include <p16F84A.inc>

__config _CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC
;bits de configuration :
;code protect OFF
;watchdog timer OFF
;power up timer ON
;oscillateur HS (quartz 4 MHz)

;xxxxxx
; macro
;xxxxxx

bank1 macro ; passage en banque 1
bsf STATUS,RP0
endm

bank0 macro ; passage en banque 0
bcf STATUS,RP0
endm

;xxxxxxxxxxxxxxxxxxxxxxxxx
; déclaration de variables
;xxxxxxxxxxxxxxxxxxxxxxxxx

CBLOCK 0x000C ; début de la zone des registres d'usage général du 16F84A

compteur_tempo104 : 1

ENDC

;xxxxxxxxxxxxxxxxxxxx
; démarrage sur reset
;xxxxxxxxxxxxxxxxxxxx

org 0x0000
goto initialisation

;xxxxxxxxxxxxxxx
; initialisation
;xxxxxxxxxxxxxxx

initialisation

bank0
clrf PORTA ; mise à 0 des sorties du port A
clrf PORTB ; mise à 0 des sorties du port B

bank1
movlw B'00000001'
movwf TRISA
; bit 0 du port A (RA0) = 1 : configuration en entrée (RX)
; bits 1 à 4 du port A (RA1 à RA4) = 1 : configuration en sortie

movlw B'11111111'
movwf TRISB
; bit 0 du port B (RB0) = 0 : configuration en entrée
; bit 1 du port B (RB1) = 0 : configuration en entrée
; bit 2 du port B (RB2) = 0 : configuration en entrée
; bit 3 du port B (RB3) = 0 : configuration en entrée
; bit 4 du port B (RB4) = 0 : configuration en entrée
; bit 5 du port B (RB5) = 0 : configuration en entrée
; bit 6 du port B (RB6) = 0 : configuration en entrée
; bit 7 du port B (RB7) = 0 : configuration en entrée

bank0
movlw B'00011110'
movwf PORTA

movlw D'17'
movwf compteur_tempo104
goto debut_programme

;xxxxxxxxxxxxxxxxxxxxx
; programme principal
;xxxxxxxxxxxxxxxxxxxxx

debut_programme

; on attend un front montant sur A0
btfss PORTA , 0
goto debut_programme ; RX = 1

bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
nop
nop
btfsc PORTB,0
bsf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,1
bsf PORTA,1
btfss PORTB,1
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,2
bsf PORTA,1
btfss PORTB,2
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,3
bsf PORTA,1
btfss PORTB,3
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,4
bsf PORTA,1
btfss PORTB,4
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,5
bsf PORTA,1
btfss PORTB,5
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,6
bsf PORTA,1
btfss PORTB,6
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
btfsc PORTB,7
bsf PORTA,1
btfss PORTB,7
bcf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
nop
nop
nop
bsf PORTA,1
call tempo104
nop
nop
nop
nop
nop
nop
nop
nop
nop

goto debut_programme

; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; routine de temporisation de 104 µs (104 cycles avec un quartz 4 MHz)
tempo104

decf compteur_tempo104 , f
movf compteur_tempo104 , f
btfss STATUS , Z
goto tempo104 ; compteur_tempo104 <> 0
movlw D'17'
movwf compteur_tempo104
nop
nop
nop
nop
return

END


kix