PIC16f84 Programmation

[Ttchalagoo]

Bonjour, pouvez-vous s'il vous plaît me corriger ou m'aider, je suis bloqué ici.

Bonjour, pouvez-vous s'il vous plaît me corriger ou m'aider, je suis bloqué ici.

; PIC Utilisé / PIC16F84
; on réalise la clinotage de 8 leds séquentiellement sure les branches RB0 a RB7
;Chaque Portb pilote une led
;*******************************************************************************************
;DÉFINITION DES REGISTRES
TMR0		EQU		1
STATUS		EQU		3
PORTA		EQU		5
PORTB		EQU 	6
TRISA		EQU		85H
TRISB		EQU		86H
OPTION_R	EQU		81H
ZERO_BIT	EQU		2
MEMO		EQU			0EH
;****************************************
	List	P = 16F84
	ORG		0
	GOTO	START
;*********************************************
;Sous Programme Temporisation
;Retard1
retard1		CLRF		TMR0
BOUCLEA		MOVF		TMR0,W
			SUBLW		.32
			BTFSS		STATUS,ZERO_BIT
			GOTO		BOUCLEA
			RETLW		0

;Retard2
retard2		CLRF		TMR0
BOUCLEB		MOVF		TMR0,W
			SUBLW		.16
			BTFSS		STATUS,ZERO_BIT					
			GOTO		BOUCLEB
			RETLW		0
;********************************************

;CONFIGURATION SECTION

START		BSF 		STATUS,5
			MOVLW		B'00000000'
			MOVWF		TRISB
;*******************************************************
;Mon programme		
			bcf			STATUS,C
			movlw		B'00000000'
			MOVWF		MEMO
			rlf			MEMO,f

-----

[paulfjujo]

bonsoir,

;Mon programme		
			bcf			STATUS,C
			movlw		B'00000000'
			MOVWF		MEMO
			rlf			MEMO,f

il faudrait verifier si la rotation passe par le bit carry ou pas ?
si il y a rotation via carry
bsf STATUS,C

sinon je mettrais bien deja au moins un bit à 1 ..histoire de le voir se décaler

movlw B'00000001'

et attendre , tester quand il tombe dans le Carry apres 8 shift

[umfred]

il reste les 2 lignes pour mettre MEMO sur le port B à ajouter (movf et movwf) et boucler sans oublier de tester l'entrée Inter0 (on ne sait pas où elle est reliée) avec btfss ou btfsc sur cette entrée