LIST P=16F877A
#INCLUDE<P16F877A.INC>
;DECLARACION DE VARIABLES
PORTA EQU 05
PORTB EQU 06
STATUS EQU 03
PDel0 EQU 20
PDel1 EQU 21
REG3 EQU 22
UNIDADES EQU 23
DECENAS EQU 24
ORG 00
GOTO INICIO1
TABLA1 ADDWF PCL,1 ;TABLA ANODO COMUN
RETLW B'01000000'
RETLW B'01111001'
RETLW B'00100100'
RETLW B'00110000'
RETLW B'00011001'
RETLW B'00010010'
RETLW B'00000010'
RETLW B'01111000'
RETLW B'00000000'
RETLW B'10011000'
TABLA ADDWF PCL,1
RETLW B'00111111' ;0
RETLW B'00000110' ;1
RETLW B'01011011' ;2
RETLW B'01001111' ;3
RETLW B'01100110' ;4
RETLW B'01101101' ;5
RETLW B'01111101' ;6
RETLW B'00000111' ;7
RETLW B'01111111' ;8
RETLW B'11100111' ;9
RETLW B'10111111' ;10
RETARDO
;Waits 5000 cycles
PDelay movlw .6
movwf PDel0
PLoop1 movlw .207
movwf PDel1
PLoop2 clrwdt
decfsz PDel1, 1
goto PLoop2
decfsz PDel0, 1
goto PLoop1
PDelL1 goto PDelL2
PDelL2 clrwdt
return
;CONFIGURACION DE PUERTOS
INICIO1 BSF STATUS,5
BCF STATUS,6
MOVLW B'111100'
MOVWF PORTA
MOVLW B'10000000'
MOVWF PORTB
MOVLW 07
MOVWF ADCON1
BCF STATUS,5
CLRF PORTA
CLRF PORTB
CLRF UNIDADES
CLRF DECENAS
BTFSS PORTA,2
GOTO DESCENDENTE
GOTO ASCENDENTE
ASCENDENTE
INICIO2 BTFSS PORTA,3
GOTO GG
BTFSS PORTA,2
GOTO DESCENDENTE
CALL VISUALIZACION
GOTO INICIO2
GG INCF UNIDADES,1
BTFSS PORTA,2
GOTO DESCENDENTE
FF MOVF UNIDADES,0
XORLW .10
BTFSS STATUS,2
GOTO INICIO3
BTFSS PORTA,2
GOTO DESCENDENTE
CLRF UNIDADES
INCF DECENAS,1
BTFSS PORTA,2
GOTO DESCENDENTE
MOVF DECENAS,0
XORLW .10
BTFSS STATUS,2
GOTO INICIO3
CLRF DECENAS
GOTO INICIO3
INICIO3 CALL VISUALIZACION
BTFSS PORTA,3
GOTO INICIO3
GOTO INICIO2
DESCENDENTE
MOVF UNIDADES,0
XORLW .10
BTFSS STATUS,2
GOTO YY
CLRF UNIDADES
YY MOVF DECENAS,0
XORLW .10
BTFSS STATUS,2
GOTO INICIO5
CLRF DECENAS
INICIO5 BTFSS PORTB,7
GOTO MA
BTFSC PORTA,2
GOTO ASCENDENTE
CALL VISUALIZACION
GOTO INICIO5
MA DECF UNIDADES,1
BTFSC PORTA,2
GOTO ASCENDENTE
BTFSS UNIDADES,7
GOTO INICIO4
MOVLW .9
MOVWF UNIDADES
DECF DECENAS,1
BTFSC PORTA,2
GOTO ASCENDENTE
BTFSS DECENAS,7
GOTO INICIO4
MOVLW .9
MOVWF DECENAS
MOVWF UNIDADES
GOTO INICIO4
INICIO4 CALL VISUALIZACION
BTFSS PORTB,7
GOTO INICIO4
GOTO INICIO5
VISUALIZACION
MOVF UNIDADES,W
CALL TABLA
CLRF PORTA
MOVWF PORTB
BSF PORTA,1
CALL RETARDO
CALL RETARDO
MOVF DECENAS,W
CALL TABLA
CLRF PORTA
MOVWF PORTB
BSF PORTA,0
CALL RETARDO
CLRF PORTA
RETURN
END