;*********************************************************************
; PROGRAMME PRINCIPAL *
;*********************************************************************
start
bcf STATUS,C ; Met le bit Carry du registre STATUS à 0
bsf PORTB,0 ; Met le bit 0 du port B à 1
etiquette1
call tempo ; Appeler la tempo de 0.5s
bsf STATUS,C ; Met le bit Carry du registre STATUS à 1
rlf PORTB,f ; Décaler les bits du PORTB de 1 rang vers la gauche
BTFSS STATUS,C ; Tester si le bit C du registre STATUS est à 1
goto etiquette1
etiquette2
call tempo ; Appeler la tempo de 0.5s
bcf STATUS,C ; Met le bit Carry du registre STATUS à 0
rrf PORTB,f ; Décaler les bits du PORTB de 1 rang vers la gauche
BTFSS STATUS,C ; Tester si le bit C du registre STATUS est à 1
goto etiquette1
goto etiquette2
END ; Directive fin de programme

Ne contient pas d'erreurs.






![[Valid RSS]](/design/valid-rss.png)