; Este programa controla ocho leds  RB como lo hacia KIT
; Creado y dise¤ado por Vicente M.



TRISA           EQU     05h
TRISB           EQU     06h
PORTA           EQU     05h
PORTB           EQU     06h
STATUS          EQU     03h
cuenta          EQU     15h
cuenta2         EQU     16h
LUZ             EQU     17h

               
list          p=16f84

              ORG   00h     ; vector de reset
              goto  INICIO
                

INICIO        movlw  00
              bsf    STATUS,5        ;registro de configuracion
              movwf  TRISB          ; puerto b como salidas
              bcf    STATUS,5        ;puerto
comienza      movlw  01h
              movwf  LUZ
aqui          rlf    LUZ,0
              movwf  PORTB
              movwf  LUZ
              call   retardo
              btfss  LUZ,7
              goto   aqui
ahi           rrf    LUZ,0
              movwf  PORTB
              movwf  LUZ
              call   retardo
              btfss  LUZ,0
              goto   ahi
              goto   comienza
                   



retardo       movlw  99h            ;modificando este dato aumenta o
              movwf  cuenta         ;disminuye la velocidad...
retar1        decfsz cuenta,1
              goto   retar1
              movlw  99h            ;o modificando este otro
              movwf  cuenta2
retard        decfsz cuenta2,1
              goto   retard   
              return         




                 END