Contador con display de siete segmentos 16F630

Este proyecto utiliza todos los pines del micro 16F630 y su objetivo es desarrollar un contador de minutos/segundos utilizando un display cuadruple de 7 segmentos.

Como podemos ver en la figura no utilizamos resistencias para los segmentos , las utilizamos para los pines de selección de cada dígito, con lo que la luminosidad será diferente dependiendo del número mostrado.
El boton de reset permite iniciar el contador a 00:00
Tomando en cuenta que se utiliza el oscilador interno, la precisión no es muy buena (se adelanta un segundo cada 10 minutos con el micro utilizado).
El programa se muestra a continuación:

'**************************************************************** '* Name : clock00.BAS * '* Author : JLG * '* Notice : Copyright (c) 2015 * '* Device : 16F630 * '* Date : 06/03/2015 * '* Version : 1.0 * '* Notes : * '**************************************************************** @ __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF vars: ticks Var byte ' Define pieces of seconds variable update Var byte ' Define variable to indicate update i Var byte j Var byte sec var byte minute var byte digit var byte A var byte D var byte init: TRISA = 1000 ' PORTA output except pin 3 ( MCLR ) TRISC = 0000 ' PORTC output CMCON = 7 ' No comparator Define OSCCAL_1K 1 ' Set OSCCAL for 1K flash DEFINE OSC 4 ' 4 MHz OSC PORTA=0 PORTC=0 OPTION_REG = %11010101 ' $D5 Set TMR0 configuration ' 101 prescaler 1:64 every 16.384 ms INTCON = %10100000 ' $A0 Enable TMR0 interrupts On Interrupt Goto tickint ticks = 0 update = 1 sec = 0 minute = 0 mainloop: If update = 1 Then INTCON = %10000000 ' $80 No interrupts sec = sec + 1 if sec = 60 then sec = 0 minute = minute +1 if minute=60 then minute=0 endif update = 0 ' Screen updated INTCON = %10100000 ' $A0 Enable TMR0 interrupts Endif gosub display_n goto mainloop Disable ' Disable interrupts during interrupt handler tickint: ticks = ticks + 1 ' Count pieces of seconds If ticks = 61 Then update=1 ticks = 0 endif INTCON.2 = 0 ' Reset timer interrupt flag Resume enable End display_n: D = 01 : DIGIT = minute dig 1 : gosub LOOk D = 10 : DIGIT = minute dig 0 : gosub LOOk D = %0100 : DIGIT = sec dig 1 : gosub LOOk D = %1000 : DIGIT = sec dig 0 : gosub LOOk PORTA.5 = 0 Return LOOK : PORTC.4 = 0 PORTC.5 = 0 PORTA.4 = 0 PORTA.5 = 0 Lookup DIGIT,[%1000000,%1111001,%0100100,%0110000,11001,10010,00011,%1111000,00000,11000],A PORTA.0 = A PORTA.1 = A >> 1 PORTA.2 = A >> 2 PORTC.0 = A >> 3 PORTC.1 = A >> 4 PORTC.2 = A >> 5 PORTC.3 = A >> 6 PORTC.4 = D PORTC.5 = D >> 1 PORTA.4 = D >> 2 PORTA.5 = D >> 3 pause 5 RETURN
El proyecto utiliza interrupciones generadas por el reloj interno TMR0 .
Es interesante mencionar la línea al principio del programa :

  @  __config _INTRC_OSC_NOCLKOUT & _WDT_ON & _MCLRE_ON & _CP_OFF 

Esta línea establece los parámetros del micro (fuses), ya que en el archivo 16F630.INI se comentó la misma línea para poder incorporarla en todos los programas y seleccionar los  valores de interés.