Código – conteo 2 display PIC16f84A El profe García

list p=16F84A
#include P16F84A.inc
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
;**** Definicion de variables ****
Unidad equ 0x0C 
Decena equ 0x0D 
Centena equ 0x0E 
Contador1 equ 0x0F 
Contador2 equ 0x10 
Contador equ 0x11 

MuestroU equ 2 
MuestroD equ 1 
MuestroC equ 0 

;**** Inicio del Micro ****
Reset 
org 0x00 
goto Inicio




;**** Tabla de conversion BCD a 7 Segmentos ****

org 0x05 
BCD7SEG addwf PCL,1 
DT 0x3F, 0x06, 0x5B, 0x4F, 0x66, 0x6D, 0x7D, 0x07, 0xFF, 0x6F 


;**** Configuracion de puertos ****
Inicio
bsf STATUS,RP0 
clrf TRISA 
clrf TRISB 
bcf STATUS,RP0 
clrf PORTA 
clrf Unidad 
clrf Decena
clrf Centena
goto Actualizo_Display 
;**** Testeo de Pulsador ****
Bucle
incf Unidad,1 
movlw d'10' 
subwf Unidad,0 
btfss STATUS,Z 
goto Actualizo_Display 
clrf Unidad 
incf Decena,1 
movlw d'10' 
subwf Decena,0 
btfss STATUS,Z 
goto Actualizo_Display 
clrf Decena 
incf Centena,1 
movlw d'10' 
subwf Centena,0
btfss STATUS,Z
goto Actualizo_Display 
clrf Centena 
;**** Se multiplexan los Display **** 
Actualizo_Display
movlw d'20' movwf Contador




Refresco
movfw Unidad call BCD7SEG 
bcf PORTA,MuestroC 
movwf PORTB bsf PORTA,MuestroU 
call Demora_5ms 
movfw Decena call BCD7SEG
bcf PORTA,MuestroU 
movwf PORTB bsf PORTA,MuestroD 
call Demora_5ms
movfw Centena 
call BCD7SEG
bcf PORTA,MuestroD 
movwf PORTB bsf PORTA,MuestroC 
call Demora_5ms
decfsz Contador,1 
goto Refresco 
goto Bucle 
;**** Demora ****
Demora_5ms
movlw 0xFF movwf Contador1 
Repeticion1
movlw 0x05 movwf Contador2 
Repeticion2
decfsz Contador2,1 goto Repeticion2 
decfsz Contador1,1 
goto Repeticion1 
return end