Contador-display-pic16f887

;VISUALIZAR EN EL PUERTO D LOS DIGITOS CON EL PULSADOR
PROCESSOR 16F887

INCLUDE P16F887.INC
;Palabra de configuracion
__CONFIG _CONFIG1, _LVP_OFF & _FCMEN_OFF & _IESO_OFF &_BOR_OFF &_CPD_OFF & _CP_OFF & _MCLRE_OFF & _PWRTE_ON & _WDT_ON & _INTOSCIO ; _INTRC_OSC_NOCLKOUT ;_XT_OSC ;
__CONFIG _CONFIG2, _WRT_OFF & _BOR40V

DATO1 EQU 20 ;Estos 3 registros los utilizaré
DATO2 EQU 21 ; para hacer el retardo
DATO3 EQU 22
UNIDAD EQU 23
DECENA EQU 24

ORG 00
GOTO MAIN

CONFIG_PORT BSF STATUS,5 ;AQUICAMBIO DE BANCO
BSF STATUS,6 ;BANCO3
CLRF ANSEL ;CONFIGURO LOS PUERTOS
CLRF ANSELH ;A DIGITALES
BSF STATUS,5 ;CAMBIO A
BCF STATUS,6 ;BANCO 1
MOVLW B'00000000'
MOVWFTRISD
MOVLW B'11111100'
MOVWF TRISE
MOVLW B'00010000'
MOVWF TRISA
BCF STATUS,5 ;BANCO
BCF STATUS,6 ;CERO

RETURN

RETARDO MOVLW .1 ;FORMATO DECIMAL
MOVWFDATO1
DEC3 MOVLW .10
MOVWF DATO2
DEC2 MOVLW .20
MOVWF DATO3
DEC1 DECFSZ DATO3,F
GOTO DEC1
DECFSZ DATO2,F
GOTO DEC2
DECFSZ DATO1,F
GOTO DEC3
RETURNTABLA ADDWF PCL, F
RETLW B'00111111'; 0
RETLW B'00000110'; 1
RETLW B'01011011'; 2
RETLW B'01001111'; 3
RETLW B'01100110'; 4
RETLW B'01101101'; 5
RETLWB'01111101'; 6
RETLW B'00000111'; 7
RETLW B'01111111'; 8
RETLW B'01101111'; 9
RETURN

VISUAL MOVF UNIDAD,W
CALL TABLA
MOVWF PORTD
BSF PORTE,0
BCFPORTE,1
CALL RETARDO
CLRF PORTD
MOVF DECENA,W
CALL TABLA
MOVWF PORTD
BSF PORTE,0
BCF PORTE,1
CALL RETARDO
CLRF PORTD
RETURN

MAIN CALLCONFIG_PORT
CLRF UNIDAD
CLRF DECENA
PULSE CALL VISUAL
BTFSC PORTA,4
GOTO PULSE
INCF UNIDAD
LOOP CALL VISUAL
BTFSS PORTA,4
CALL LOOP
MOVLW .10...