ORG 0x00
CONT EQU 0x20
CONT1 EQU 0x21
CONTINI EQU 248

INICIO:
    MOVLW TRISB
    MOVWF FSR
    CLRF INDF
    MOVLW TRISC
    MOVWF FSR
    CLRF INDF
    MOVLW 0x0F
    MOVWF PORTC

    CLRF 0x22
CONTA
    MOVFW 0x22
    CALL DIG
    MOVWF PORTB
    INCF 0x22,F
    MOVLW 10
    SUBWF 0x22,W
    BTFSS STATUS,Z
    GOTO CONTA
FIM
    GOTO FIM
LOOP0
    CALL DELAY_100MS
    MOVLW 0x01    ;1
    MOVWF PORTB   ;1


LOOP
    CALL DELAY_100MS
    RLF PORTB,F   ;1
    BTFSC PORTB,7 ;1
    GOTO LOOP0    ;2
    GOTO LOOP




DELAY_MS
    MOVLW CONTINI
    MOVWF CONT
    NOP
    NOP
    NOP
DELAY_LOOP
    NOP
    DECFSZ CONT,F
    GOTO DELAY_LOOP
    RETURN

DELAY_100MS
    MOVLw 100
    MOVWF CONT1
DELAY_100MS_LOOP
    CALL DELAY_MS
    DECFSZ CONT1,F
    GOTO DELAY_100MS_LOOP
    RETURN

DIG ADDWF   PCL,F
DIG0    RETLW 0x3F
DIG1    RETLW 0x06
DIG2    RETLW 0x5b
DIG3    RETLW 0x4F
DIG4    RETLW 0x66
DIG5    RETLW 0x6D
DIG6    RETLW 0x7D
DIG7    RETLW 0x07
DIG8    RETLW 0x7F
DIG9    RETLW 0x6F