Podrian ayudarme porfavor con el siguiente programa?:
;PROGRAMA QUE PERMITE ROTAR EL DATO 01H, EN EL PUERTO B A LA IZQUIERDA Y LUEGO A LA DERECHA
;PROGRAMA 11 DEL MANUAL
;ANTONIO CRUZ MAYRA - SANTIAGO TOVAR DAVID
LIST P=16F84
#INCLUDE P16F84.INC
ORG 00H
BSF STATUS,RP0
CLR TRISB
MOVLW 1FH
MOVWF TRISA
BCF STATUS,RP0
BCF STATUS,C
MOVLW 01H
MOVWF PORTB
LOOP RLF PORTB,1
MOVLW .1
CALL DELAY
BTFSS PORTB,7
GOTO LOOP
LOOP1 RRF PORTB,0
MOVLW .1
CALL DELAY
BTFSS PORTB,0
GOTO LOOP1
GOTO LOOP
;INCLUDE RETARDO
END
;PROGRAMA QUE PERMITE ROTAR EL DATO 01H, EN EL PUERTO B A LA IZQUIERDA Y LUEGO A LA DERECHA
;PROGRAMA 11 DEL MANUAL
;ANTONIO CRUZ MAYRA - SANTIAGO TOVAR DAVID
LIST P=16F84
#INCLUDE P16F84.INC
ORG 00H
BSF STATUS,RP0
CLR TRISB
MOVLW 1FH
MOVWF TRISA
BCF STATUS,RP0
BCF STATUS,C
MOVLW 01H
MOVWF PORTB
LOOP RLF PORTB,1
MOVLW .1
CALL DELAY
BTFSS PORTB,7
GOTO LOOP
LOOP1 RRF PORTB,0
MOVLW .1
CALL DELAY
BTFSS PORTB,0
GOTO LOOP1
GOTO LOOP
;INCLUDE RETARDO
END