Vumetro a Leds con PIC 16FXXX

ByAxel · Nov 12, 2013

gregorysd dijo:
pero no entiendo que es lo que mide la musica el pic?
r y L se enchufa al audio y.y no entiendo me lo podrian decir mas detalladamente
gracias

R y L son canales de audio. El PIC lo que hace es reflejar la amplitud del audio en dos tiras de LEDs, siendo una tira para cada canal. Como es una señal análoga, se utiliza por ejemplo el conversor ADC del PIC para saber el nivel de la señal.
No he leido todo el post pero debes de tener cuidado con los voltajes y supongo que la señal de audio debe de ser como máximo de un preamplificador. Los voltajes (amplitud) deben de estar por debajo del humbral que soporta el PIC (5V), para medir esto necesitas de un osciloscópio o solo prueba con voltaje directo.

Jesuuss · Jun 7, 2014

Hola amigos, yo tengo un programa en el PIC16F877A que hace las funciones de un Vumetro, aqui esta, y si tienen alguna duda, comenten; esta el archivo en .asm, .hex y ademas el circuito en proteus, saludos

nodes · Ene 22, 2015

bydiego dijo:
Aca está el Vumetro Pic16f88
-Schematic
-PCB
-HEX
-ASM
-+ Simulacion

hola sabes que simulo y no me funciona tu ya lo hiciste lo pasaste a la placa?? espero puedan ayudarme saludos

Fogonazo · Ene 22, 2015

nodes dijo:
hola sabes que simulo y no me funciona tu ya lo hiciste lo pasaste a la placa?? espero puedan ayudarme saludos

Te está marcando un error de un archivo de Windows (winmm.dll)

IEmoy · Mar 3, 2015

Hola estoy haciendo este vumetro, no se si me lo puedan pasar con el 16f877 pero por cada salida quiero poner una tira de leds se qUE se ocupa solo un transistor para la etapa de potencia no se si me puedan ayudar

D@rkbytes · Mar 4, 2015

Si te refieres al programa del post #22, lo puedes grabar y usar sin problemas en un PIC16F877.
La programación para ese PIC es la misma, solo cambia el tamaño de las memorias RAM y EEPROM, que en el 16F877 son mayores.
Aparte, son pin por pin compatibles.

brisco · 2015-08-23T20:33:38-0500

Me gustaría poder ayudar con el HEX, sino que también tienen el mismo aspecto ... espero ayudar con el esquema eléctrico y tal vez juntos podemos escribir la hex.

faluncho · 2015-08-25T07:16:57-0500

Nuk;
Buenos días;
El vúmetro que publicaste de 20 led es estupendo, tanto es así que me gustaría montarlo, pero sólo dispongo del código HEX para 16 leds posteado por nodes o el de 40 leds por el autor checo. ¿Tendrías la amabilidad de pasarme el HEX y si dispones de la PCB para los 20 leds?
Agradecido.

CARPER1963 · Oct 11, 2015

Hola nuk, enhorabuena por tu proyecto, te quería pedir un favor, me podrías pasar el esquema para el vumetro de escala de 20 leds, gracias.

luquio · Dic 3, 2015

nuk dijo:
yo por mi parte e realizado con la ayuda de ese code uno con el PIC16F877A y que inicialmente su creador lo puso por...

Hola NUK! como estas?! revivo este post con una consulta, yo también ando con ganas de armar un vumetro como el tuyo, ya tengo mi grabadora de pics y mi PIC16F877A que lo compre pensando en tu diseño! Serias tan amable de mostrarnos tu placa desde abajo? o sea para poder copiar el circuito, o si tenes la imagen que usaste para la impresión genial! Me ayudarías muchísimo con eso! Entre a la pagina q recomendaste pero usan otro pic y menos leds. Gracias de antemano!

crazysound · Jun 5, 2017

nuk dijo:
con lo que respecta a la simulación no se como lo habrán hecho
así que por las dudas subo mi simulación donde pueden ver como funciona
el VU con PIC16F88 (también dejo el proyect del MPLAB en asm)

PSD: el vídeo anterior, el PIC16F877A solo muestra 16 Leds y actualmente lo acabo de
terminar ya subo el vídeo con la escala completa de 20 Leds.
saludos

Hola nuk, por qué no me funciona la simulación?

Saludos...

CARLOS HERNANDEZ · Sep 2, 2020

Fogonazo dijo:
Te está marcando un error de un archivo de Windows (winmm.dll)

estimado amigo puedes explicar un poco de el por que pasa eso en proteus

Fogonazo · Sep 3, 2020

CARLOS HERNANDEZ dijo:
estimado amigo puedes explicar un poco de el por que pasa eso en proteus

No, solo estoy leyendo el informe que dio Proteus

D@rkbytes · Sep 3, 2020

CARLOS HERNANDEZ dijo:
estimado amigo ¿puedes explicar un poco de el por qué pasa eso en proteus?

Eso pasa cuando se usan copias pirata de Proteus.

ojotec · Jun 17, 2022

buenas .estoy queriendo armar este vumetro con componentes que reciclo. y queria saber si puedo utilizar pic 16f84. ya que es lo unico que encontre entre mis coleccion de integrados pic.
gracias

ricbevi · Jun 17, 2022

No, necesitas un PIC que tenga ADC ya que desde la medición de la señal de audio procesada con este ultimo es que se desarrolla este indicador.

switchxxi · Jun 17, 2022

ojotec dijo:
estoy queriendo armar este vumetro con componentes que reciclo. y queria saber si puedo utilizar pic 16f84.

¿ Se puede ? Si, pero no usando los programas y esquemas que se muestran. Deberás crear todo desde cero incluido un DAC externo que puede ser uno diseñado para eso o armado, por ejemplo, usando un comparador.

Lo mejor es conseguir un PIC con ADC interno e intentar adaptar el programa.

nuk · Jun 27, 2026

Hola otra vez por aquí, desde el año pasado he estado migrando viejos proyectos al nuevo MPLAB X con PIC-AS, Les comparto un vúmetro con el 16F628A usando el mismo algoritmo de la web que usa el 16F88 del post, en su momento comente la posibilidad de migrar el código a cualquier PIC con ADC pero también es posible si tiene comparadores el problema es que existirá una diferencia en el tiempo respecto a la captura de la señal A respecto a la señal B, no es muy notoria pero es funcional, eso también implica diferencias de +-1 nivel ente canales a frecuencia altas, pero al menos se ve bien. tuve que corregir problemas de visualización y tiempo a diferencia del original, mejore la retención de barra y punto al tener solo 4 bits de resolución la escala es muy lineal. la selección de modos la moví a un pulsador para mejor comodidad. El vúmetro es mas parecido al LM3914 quiero pensar, se que el 628A es un PIC muy viejo pero como mencione se puede usar cualquier PIC un 12FXXX con un 74H595 posiblemente lo haría mas barato o esos IC que controlar los display de DVD pero es necesario algo de conocimiento de programación para poder adaptarlo, llegue a migrarlo a C en su momento pero solo quedo en una ejemplificación y por azares de la vida no llegue a compartirlo por falta de tiempo y nunca llegue a responder las dudas de algunos aquí.

Saludos.

torres.electronico · Martes a las 3:59 PM

nuk dijo:
Hola otra vez por aquí, desde el año pasado he estado migrando viejos proyectos al nuevo MPLAB X con PIC-AS, Les comparto un vúmetro con el 16F628A usando el mismo algoritmo de la web que usa el 16F88 del post, en su momento comente la posibilidad de migrar el código a cualquier PIC con ADC pero también es posible si tiene comparadores el problema es que existirá una diferencia en el tiempo respecto a la captura de la señal A respecto a la señal B, no es muy notoria pero es funcional, eso también implica diferencias de +-1 nivel ente canales a frecuencia altas, pero al menos se ve bien. tuve que corregir problemas de visualización y tiempo a diferencia del original, mejore la retención de barra y punto al tener solo 4 bits de resolución la escala es muy lineal. la selección de modos la moví a un pulsador para mejor comodidad. El vúmetro es mas parecido al LM3914 quiero pensar, se que el 628A es un PIC muy viejo pero como mencione se puede usar cualquier PIC un 12FXXX con un 74H595 posiblemente lo haría mas barato o esos IC que controlar los display de DVD pero es necesario algo de conocimiento de programación para poder adaptarlo, llegue a migrarlo a C en su momento pero solo quedo en una ejemplificación y por azares de la vida no llegue a compartirlo por falta de tiempo y nunca llegue a responder las dudas de algunos aquí.

Ver el archivo adjunto 339188

Saludos.

... Linda selfie

...

quizas sumaria un poco mas si les compartis a los que no entienden, a los que son iniciados (etc), el hex que pegaste como imagen en el pdf

No inventamos la rueda, asi que me tome un rato en escribir algo que se amolda practicamente al tema y hardware mencionado:
En C seria algo así:

CSS:

#include <16F628A.h>

// Configuración de fusibles para cristal externo de 4MHz u oscilador interno
#fuses XT, NOWDT, NOPROTECT, NOLVP, PUT, MCLR
#use delay(clock=4000000)

// ---- ASIGNACIÓN DE PINES (12 LEDs) ----
#define LED1  PIN_B0
#define LED2  PIN_B1
#define LED3  PIN_B2
#define LED4  PIN_B3
#define LED5  PIN_B4
#define LED6  PIN_B5
#define LED7  PIN_B6
#define LED7_BIT 6
#define LED8  PIN_B7

#define LED9  PIN_A0
#define LED10 PIN_A1
#define LED11 PIN_A2
#define LED12 PIN_A3

// ---- CONTROL Y ENTRADA ----
#define BOTON_MODO PIN_A5   // Pin RA5 configurado como entrada para el pulsador
#define ANALOG_IN  PIN_A4   // Pin RA4 (Entrada del Comparador 1)

// Variables globales para la animación del vúmetro
int1 modo_barra = 1;       // 1 = Modo Barra (LM3914), 0 = Modo Punto
int8 pico_actual = 0;      // Guarda el LED más alto alcanzado
int16 retencion_timer = 0; // Contador de tiempo para sostener el pico

// Función para actualizar los 12 LEDs según el nivel y el modo seleccionado
void actualizar_vumetro(int8 nivel) {
   // Actualizar el pico más alto (Peak Hold)
   if (nivel >= pico_actual && nivel > 0) {
      pico_actual = nivel;
      retencion_timer = 30; 
   } else {
      if (retencion_timer > 0) {
         retencion_timer--;
      } else {
         if (pico_actual > 0) pico_actual--; 
      }
   }

   // Renderizado físico en los pines
   if (modo_barra) {
      // --- MODO BARRA ---
      output_bit(LED1,  (nivel >= 1));
      output_bit(LED2,  (nivel >= 2));
      output_bit(LED3,  (nivel >= 3));
      output_bit(LED4,  (nivel >= 4));
      output_bit(LED5,  (nivel >= 5));
      output_bit(LED6,  (nivel >= 6));
      output_bit(LED7,  (nivel >= 7));
      output_bit(LED8,  (nivel >= 8));
      output_bit(LED9,  (nivel >= 9));
      output_bit(LED10, (nivel >= 10));
      output_bit(LED11, (nivel >= 11));
      output_bit(LED12, (nivel >= 12));
   } else {
      // --- MODO PUNTO --- (Enciende el nivel actual o el punto de pico retenido)
      output_bit(LED1,  (nivel == 1  || pico_actual == 1));
      output_bit(LED2,  (nivel == 2  || pico_actual == 2));
      output_bit(LED3,  (nivel == 3  || pico_actual == 3));
      output_bit(LED4,  (nivel == 4  || pico_actual == 4));
      output_bit(LED5,  (nivel == 5  || pico_actual == 5));
      output_bit(LED6,  (nivel == 6  || pico_actual == 6));
      output_bit(LED7,  (nivel == 7  || pico_actual == 7));
      output_bit(LED8,  (nivel == 8  || pico_actual == 8));
      output_bit(LED9,  (nivel == 9  || pico_actual == 9));
      output_bit(LED10, (nivel == 10 || pico_actual == 10));
      output_bit(LED11, (nivel == 11 || pico_actual == 11));
      output_bit(LED12, (nivel == 12 || pico_actual == 12));
   }
}

void main() {
   int8 i = 0;
   int8 lectura_vref = 0;

   // TRIS: Puertos B como salidas completas. Puerto A salidas excepto RA4 y RA5.
   set_tris_b(0x00);
   set_tris_a(0x30); // 00110000 b (Pines RA4 y RA5 como entradas)

   // Configuración del comparador: RA4 es comparado con la referencia interna VREF
   setup_comparators(A4_VR_A4_VR);

   while(TRUE) {
      lectura_vref = 0;

     for(i = 1; i <= 15; i++) {
         setup_vref(VREF_LOW | i); 
         delay_us(15);             
       
         if(C1OUT) {             
            lectura_vref = i;
         }
      }

    int8 nivel_leds = (lectura_vref * 12) / 15;
    actualizar_vumetro(nivel_leds);

   if(!input(BOTON_MODO)) {   
         delay_ms(20);            
         if(!input(BOTON_MODO)) {
            modo_barra = !modo_barra;
            while(!input(BOTON_MODO)); 
         }
      }

      delay_ms(10); 
   }
}

El pulsador multifunción en el pin RA5 cambia en tiempo real el valor de modo_barra.

y en PicBasicPRO sería algo asi:

Código:

' =========================================================================
' VÚMETRO DE 12 LEDS CON PIC16F628A EN PICBASIC PRO (PBP)
' Simulación de ADC mediante barrido VREF y retención de picos (Peak Hold)
' =========================================================================

#CONFIG
 __config _XT_OSC & _WDT_OFF & _PWRTE_ON & _MCLR_ON & _LVP_OFF & _CP_OFF
#ENDCONFIG

Define OSC 4            ' Cristal externo de 4MHz

' ---- DEFINICIÓN DE PINES ----
' LEDs del 1 al 8 en todo el Puerto B
' LEDs del 9 al 12 en Puerto A (RA0, RA1, RA2, RA3)
' Entrada de señal analógica en RA4
' Pulsador de modo en RA5 (Con resistencia Pull-Up externa a 5V)

BotonModo   VAR PORTA.5

' ---- VARIABLES ----
i           VAR BYTE    ' Contador para el bucle VREF
LecturaVref VAR BYTE    ' Guarda el nivel de voltaje detectado (0 a 15)
NivelLeds   VAR BYTE    ' Nivel mapeado a los 12 LEDs (0 a 12)
ModoBarra   VAR BIT     ' 1 = Modo Barra, 0 = Modo Punto
PicoActual  VAR BYTE    ' Almacena el LED del pico más alto
RetencionTmr VAR BYTE   ' Contador de tiempo para sostener el pico

' ---- INICIALIZACIÓN ----
TRISB = %00000000       ' Todo el Puerto B como salidas (LEDs 1-8)
TRISA = %00110000       ' RA4 (Analógico) y RA5 (Botón) como entradas, el resto salidas

' CMCON = %00000100 -> Configura RA4 como entrada del Comparador 1
' (Compara contra el voltaje interno VREF)
CMCON = %00000100      

ModoBarra = 1           ' Iniciar en modo barra por defecto
PicoActual = 0
RetencionTmr = 0

Inicio:
    LecturaVref = 0

    For i = 1 TO 15
        ' VRCON: Habilita VREF (%1), Rango bajo (%1), Salida OFF (%0), Valor i (%xxxx)
        VRCON = %11000000 | i  
        PauseUs 15              ' Tiempo para que el voltaje interno se estabilice
       
        ' CMCON.7 es el bit C1OUT (Resultado del comparador)
        If CMCON.7 = 1 Then     ' Si la señal en RA4 supera al VREF actual
            LecturaVref = i
        EndIf
    Next i

   NivelLeds = (LecturaVref * 12) / 15

   If NivelLeds >= PicoActual AND NivelLeds > 0 Then
        PicoActual = NivelLeds
        RetencionTmr = 30       ' Sostiene el pico por aproximadamente 300ms
    Else
        If RetencionTmr > 0 Then
            RetencionTmr = RetencionTmr - 1
        Else
            If PicoActual > 0 Then PicoActual = PicoActual - 1
        EndIf
    EndIf
    Gosub ActualizarLeds

    If BotonModo = 0 Then
        Pause 20                ' Pausa anti-rebote mecánico
        If BotonModo = 0 Then
            ModoBarra = ~ModoBarra  ' Invierte el estado del modo (Barra / Punto)
            While BotonModo = 0 : Wend ' Espera a que se suelte el pulsador
        EndIf
    EndIf

    Pause 10                    ' Frecuencia de refresco general
Goto Inicio

ActualizarLeds:
    If ModoBarra = 1 Then
        ' --- LÓGICA MODO BARRA ---
        ' Puerto B (LEDs 1 al 8)
        If NivelLeds >= 1 Then PORTB.0 = 1 Else PORTB.0 = 0
        If NivelLeds >= 2 Then PORTB.1 = 1 Else PORTB.1 = 0
        If NivelLeds >= 3 Then PORTB.2 = 1 Else PORTB.2 = 0
        If NivelLeds >= 4 Then PORTB.3 = 1 Else PORTB.3 = 0
        If NivelLeds >= 5 Then PORTB.4 = 1 Else PORTB.4 = 0
        If NivelLeds >= 6 Then PORTB.5 = 1 Else PORTB.5 = 0
        If NivelLeds >= 7 Then PORTB.6 = 1 Else PORTB.6 = 0
        If NivelLeds >= 8 Then PORTB.7 = 1 Else PORTB.7 = 0
        ' Puerto A (LEDs 9 al 12)
        If NivelLeds >= 9 Then PORTA.0 = 1 Else PORTA.0 = 0
        If NivelLeds >= 10 Then PORTA.1 = 1 Else PORTA.1 = 0
        If NivelLeds >= 11 Then PORTA.2 = 1 Else PORTA.2 = 0
        If NivelLeds >= 12 Then PORTA.3 = 1 Else PORTA.3 = 0
    Else
        ' --- LÓGICA MODO PUNTO (Enciende nivel actual O el pico retenido) ---
        ' Puerto B (LEDs 1 al 8)
        If (NivelLeds = 1) OR (PicoActual = 1) Then PORTB.0 = 1 Else PORTB.0 = 0
        If (NivelLeds = 2) OR (PicoActual = 2) Then PORTB.1 = 1 Else PORTB.1 = 0
        If (NivelLeds = 3) OR (PicoActual = 3) Then PORTB.2 = 1 Else PORTB.2 = 0
        If (NivelLeds = 4) OR (PicoActual = 4) Then PORTB.3 = 1 Else PORTB.3 = 0
        If (NivelLeds = 5) OR (PicoActual = 5) Then PORTB.4 = 1 Else PORTB.4 = 0
        If (NivelLeds = 6) OR (PicoActual = 6) Then PORTB.5 = 1 Else PORTB.5 = 0
        If (NivelLeds = 7) OR (PicoActual = 7) Then PORTB.6 = 1 Else PORTB.6 = 0
        If (NivelLeds = 8) OR (PicoActual = 8) Then PORTB.7 = 1 Else PORTB.7 = 0
        ' Puerto A (LEDs 9 al 12)
        If (NivelLeds = 9) OR (PicoActual = 9) Then PORTA.0 = 1 Else PORTA.0 = 0
        If (NivelLeds = 10) OR (PicoActual = 10) Then PORTA.1 = 1 Else PORTA.1 = 0
        If (NivelLeds = 11) OR (PicoActual = 11) Then PORTA.2 = 1 Else PORTA.2 = 0
        If (NivelLeds = 12) OR (PicoActual = 12) Then PORTA.3 = 1 Else PORTA.3 = 0
    EndIf
Return

End

En ASM no me animo :facepalm:

...ya tengo 47 casi entrando a los 48 :silbando:

... tardaría mucho

nuk · Miércoles a las 5:16 PM

El compañero tiene razón, puede que no todos usen el mismo visualizador de pdf o estén en el movil, desde KiCad exporte con trazar para que todo el texto del pdf sea seleccionable. aun así les comparto el hex para que lo tengan a la mano.

no compartí código y simulación porque mi intensión era que no lidien con el compilador o el simulador como en las respuestas anteriores y puedan simplemente armarlo. por las limitaciones del 628A no veo que mas se pueda mejorar a parte de variar el tiempo de peak o barra si es el caso. el 628A espacio tiene, pero pines ya no, a menos sino se quiere usar hardware adicional.

El programa lo desarrolle en MPLAB X actual, no uso CSS u PicPRO asi que estoy perdido en eso y no domino mucho C. mi entención inicial era compartir el codigo completo por eso esta comentado y dedicado al Foro como al autor a modo de agradecimiento por todo lo que aprendi pero asm no es muy común hoy en día, asi que se me ocurrio meter todo en el pdf, en fin.

respecto al uso del comparador y el mux interno tuve que leerme varias veces el manual ya que cada modificación en CMON debe esperar 10uS y seguir una secuencia o las 4 entradas se mezclaran con datos uno del otro, como pueden deducir se tiene 4 canales de ADC de 4 bits ya que la configuración del MUX interno te obliga a usar todas las entradas que ya no podrán ser salidas digitales, por eso esos pines en el PCB esta a gnd es mejor leer 0 a un valor aleatorio si llegase a suceder por error claro esta, asi como otras de cosas varias, como usar Power-up. el autor usa ISR eso ayuda a que el programa siga incrementandose es decir puedes implementar mas cosas y dejar el vumetro trabajar. podria explicar mas cosas pero temo se extienda mas la respuesta que de por si ya lleva codigo abajo.

un ejemplo usando las 4 entradas, el 595 superior son los teclados, el inferior las entrada con señal, cada uno cubre 4bits de los 16bits que suma ambos 595. mejor lo adjunto tambien para que puedan simularlo.

pero bueno... servido esta, comparto el código completo en asm y simulación del VU12LD628AV2. disculpen el espanglish y la falta de mas comentarios en el código eso lo deje a medias.

Código:

;--------------------------------------------------------;
;    VU meter estéreo - 2x12 LED (multiplexado)     ;
;           con el PIC16F628A             ;
;--------------------------------------------------------;
; Datos ajustables:                     ;
; - Seleccionable entre Punto/barra con o sin peak.     ;
; - guarda el modo seleccionado en la EEPROM.         ;
;--------------------------------------------------------;
;    Basado en el algoritmo de s-o.webnode.cz     ;
;        para fines no comerciales.         ;
;        www.Forosdelectronia.com         ;
;--------------------------------------------------------;
;   Versión : 1.1A2                 KSST 07/25     ;
;--------------------------------------------------------;

PROCESSOR 16F628A
#include <xc.inc>

CONFIG  FOSC = INTOSCIO       ; Oscillator Selection bits (INTOSC oscillator: I/O function on RA6/OSC2/CLKOUT pin, I/O function on RA7/OSC1/CLKIN)
CONFIG  WDTE = ON             ; Watchdog Timer Enable bit (WDT enabled)
CONFIG  PWRTE = ON          ; Power-up Timer Enable bit (PWRT enabled)
CONFIG  MCLRE = OFF           ; RA5/MCLR/VPP PinS Function Select bit (RA5/MCLR/VPP pin function is digital input, MCLR internally tied to VDD)
CONFIG  BOREN = OFF           ; Brown-out Detect Enable bit (BOD disabled)
CONFIG  LVP = OFF             ; Low-Voltage Programming Enable bit (RB4/PGM pin has digital I/O function, HV on MCLR must be used for programming)
CONFIG  CPD = OFF             ; Data EE Memory Code Protection bit (Data memory code protection off)
CONFIG  CP = OFF              ; Flash Program Memory Code Protection bit (Code protection off)

C   equ STATUS_C_POSITION
Z   equ STATUS_Z_POSITION

PSECT udata_bank0
Position:   DS    1   ; Position Multiplex (anodos PORTA)
LLSB:        DS    1   ; LSB 8 LED L
LMSB:        DS    1   ; MSB 4 LED L
RLSB:        DS    1   ; LSB 8 LED R
RMSB:        DS    1   ; MSB 4 LED R
PNT1:        DS    1   ; nivel general de point para L y R
PNT2:        DS    1   ;
BAR1:        DS    1   ; nivel general de bar para L y R
BAR2:        DS    1   ;
LPNT1:        DS    1   ; sobreescribe RAM (descenso artificial de L)
LPNT2:        DS    1   ;
LBAR1:        DS    1   ; dato a mostrar del cátodo L
LBAR2:        DS    1   ;
LRAM1:        DS    1   ; RAM peak L
LRAM2:        DS    1   ;
RPNT1:        DS    1   ; sobreescribe RAM (descenso artificial de R)
RPNT2:        DS    1   ;
RBAR1:        DS    1   ; dato a mostrar del cátodo R
RBAR2:        DS    1   ;
RRAM1:        DS    1   ; RAM peak R
RRAM2:        DS    1   ;
LPRM1:        DS    1   ; RAM point L
LPRM2:        DS    1   ;
RPRM1:        DS    1   ; RAM point R
RPRM2:        DS    1   ;
LBRM1:        DS    1   ; RAM bar L
LBRM2:        DS    1   ;
RBRM1:        DS    1   ; RAM bar R
RBRM2:        DS    1   ;
LPSV1:        DS    1   ; dato a mostrar para punto L
LPSV2:        DS    1   ;
RPSV1:        DS    1   ; dato a mostrar para punto R
RPSV2:        DS    1   ;
LTML:        DS    1   ; timer PAM L (la primera vez con 500ms)
LTMH:        DS    1   ;
RTML:        DS    1   ; timer PAM R (LTMx x2)
RTMH:        DS    1   ;
LPTM:        DS    1   ; point time
RPTM:        DS    1   ;
LBRM:        DS    1   ; bar time
RBRM:        DS    1   ;  
DTMODE:        DS    1   ; Mode dato de 2bits
SWPPCB:        DS    1   ; SWAP de bits (cátodos) para el PCB V12LD628AV2
 
PSECT udata_shr
MemSTATUS:  DS    1   ; Guarda STATUS temporal
MemPCLATH:  DS    1   ; Guarda PCLATH temporal
EEADRp:        DS    1   ; EEPROM Auxiliary address
MemW:        DS    1   ; REG W data memory saved
SVData:        DS    1   ; EEPROM data to be saved
JMPSL:        DS    1   ; Selector de Modo
TEMP:        DS    1   ; Valor de AN1
ANNDRL:        DS    1   ; Valor de AN0
ANNDRR:        DS    1   ; Valor de AN0
CTCOMP:     DS    1   ; contador de VRCON 0-F
TPCM:        DS    1   ; Valor Temporal de CMCON

;*************************************************
;  EEPROM Address = 0x0E | default = bar + peak
; |-------------------------------------------|
; |    bar   |   point  |  peak+pt | peak+bar |
; |----------|----------|----------|----------|
; | xxxxxx00 | xxxxxx01 | xxxxxx10 | xxxxxx11 |
; |-------------------------------------------|
;*************************************************
 
PSECT PM1, class=code,delta=2,abs ; PIC10/12/16
ORG 0x0000
    GOTO    PM1
PSECT ISR, class=code,delta=2,abs,reloc=4
ORG 0x0004
;-------------------------------------------;
;        Guarda PCL            ;
;-------------------------------------------;
     MOVWF    MemW
    SWAPF    STATUS,W
    CLRF    STATUS
    MOVWF    MemSTATUS
    MOVF    PCLATH,W
    MOVWF    MemPCLATH
;-------------------------------------------;
    BTFSC    INTCON,2    ;TMR0=1?
    GOTO    ITMR0        ;si
    GOTO    EINT

ITMR0:    BCF    INTCON,2    ;off TMR0IF
;    SWAPF    LMSB,F        ;intercambia bytes LSB a MSB
                ;(solo aplica para el PCB V12LD628A)
;-------------------------------------------;
;  solo aplica para el orden de cátodos en  ;
;     anodo RA4 para el PCB V12LD628AV2        ;
;-------------------------------------------;
    MOVF    LMSB,W
    MOVWF    SWPPCB
 
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
    RLF    SWPPCB,F
    RRF    LMSB,F
 
    SWAPF    RMSB,F
    MOVF    RMSB,W
    MOVWF    SWPPCB
 
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F
    RLF    SWPPCB,F
    RRF    RMSB,F

;-------------------------------------------;
 
;Memory Peak L
    DECFSZ    LTML,F        ;LTML=0?
    GOTO    NXT1        ;no
    DECFSZ    LTMH,F        ;LTMH=0?
    GOTO    NXT1        ;no
    BSF    STATUS,C
    RRF    LRAM2,F        ;rotar derecha L MSB
    RRF    LRAM1,F        ;rotar derecha L LSB(deciende peak)
    MOVLW    45        ;timeL
    MOVWF    LTML        ;(40ms)
    MOVLW    1        ;timeH
    MOVWF    LTMH        ;(xms)
 
;Memory Peak R
NXT1:    DECFSZ    RTML,F        ;RTML=0?
    GOTO    NXT2        ;no
    DECFSZ    RTMH,F        ;RTMH=0?
    GOTO    NXT2        ;no
    BSF    STATUS,C
    RRF    RRAM2,F        ;rotar derecha R MSB
    RRF    RRAM1,F        ;rotar derecha R LSB(deciende peak)
    MOVLW    45        ;timeL
    MOVWF    RTML        ;(40ms)
    MOVLW    1        ;timeH
    MOVWF    RTMH        ;(xms)
 
;Memory point L
NXT2:    DECFSZ    LPTM,F        ;LPTM=0?
    GOTO    NXT3        ;no
    BSF    STATUS,C
    RRF    LPRM2,F        ;rotar derecha R LSB
    RRF    LPRM1,F        ;rotar derecha R MSB
    MOVLW    40        ;timeL
    MOVWF    LPTM        ;(40ms)
 
;Memory point R
NXT3:    DECFSZ    RPTM,F        ;RPTM=0?
    GOTO    NXT4        ;no
    BSF    STATUS,C
    RRF    RPRM2,F        ;rotar derecha R LSB
    RRF    RPRM1,F        ;rotar derecha R MSB
    MOVLW    40        ;timeL
    MOVWF    RPTM        ;(40ms)
 
;Memory bar L
NXT4:    DECFSZ    LBRM,F        ;LBRM=0?
    GOTO    NXT5        ;no
    BSF    STATUS,C
    RRF    LBRM2,F        ;rotar derecha R LSB
    RRF    LBRM1,F        ;rotar derecha R MSB
    MOVLW    20        ;timeL
    MOVWF    LBRM        ;(40ms)
 
;Memory bar R
NXT5:    DECFSZ    RBRM,F        ;RBRM=0?
    GOTO    NXT6        ;no
    BSF    STATUS,C
    RRF    RBRM2,F        ;rotar derecha R LSB
    RRF    RBRM1,F        ;rotar derecha R MSB
    MOVLW    20        ;timeL
    MOVWF    RBRM        ;(40ms)    
 
NXT6:      MOVLW    0b00001111
    MOVWF    PORTA        ;turn off all Anode
    MOVLW    LLSB        ;Dirección de FSR (LLSB es 0x23 FSR).
      MOVWF    FSR        ;FSR apunta a valor inicial de Position.
    MOVF    Position,W  ;guarda valor incial.
      ADDWF    FSR,F        ;actualiza Position.
    MOVF    INDF,W        ;Lee FSR.
    MOVWF    PORTB        ;carga el valor de 8bit o 4bit del VU (cátodos).
    CALL    Anode        ;Carga el nuevo valor de Anode
    MOVWF    PORTA        ;al PORTA (anodos).
    INCF    Position,F  ;incremeta Position.
      MOVLW    0x03        ;limitador de 2 bits (0-3)
    ANDWF    Position,F  ;recorta bits 4-7 en Position.
 
;-------------------------------------------;
;        Restauración de PCL            ;
;-------------------------------------------;
EINT:    MOVF    MemPCLATH,W
    MOVWF    PCLATH
    SWAPF    MemSTATUS,W
    MOVWF    STATUS
    SWAPF    MemW,F
    SWAPF    MemW,W
    RETFIE
;-------------------------------------------;

;-------------------------------------------;
; //////////////   Rutinas    /////////////
;-------------------------------------------;
;position tabla (Anodos)
Anode:    MOVF    Position,W
      ANDLW    0x03
      ADDWF    PCL,F
      RETLW    0b10000000  ;Anode0 = L LSB
      RETLW    0b00010000  ;Anode1 = L MSB
      RETLW    0b01000000  ;Anode2 = R LSB
      RETLW    0b00010000  ;Anode3 = R MSB
;    PORTx     76543210
;-------------------------------------------;
;Leer EEPROM
ERead:    CLRWDT
    BANKSEL EEADR
    MOVF    EEADRp,W
    MOVWF    EEADR
    BANKSEL EECON1
    BSF    EECON1,0
    BTFSC    EECON1,0
    GOTO    $-1
    BANKSEL    EEDATA
    MOVF    EEDATA,W
    BANKSEL EEADRp
    RETURN
 
;-------------------------------------------;
;Escribir EEPROM
EWrite:    CLRWDT
    BANKSEL EEADR
    MOVLW    0x0E
    MOVWF    EEADR
    BANKSEL    SVData
    MOVF    SVData,W
    BANKSEL    EEDATA
    MOVWF    EEDATA
    BANKSEL    EECON1
    BSF    EECON1,2
    MOVLW    0x55
    MOVWF    EECON2
    MOVLW    0xAA
    MOVWF    EECON2
    BSF    EECON1,1
    BTFSC    EECON1,1
    GOTO    $-1
    BCF    EECON1,2
    BCF    EECON1,7
    BANKSEL    EEADRp
    RETURN
 
;------------------------------------
;Logaritmo conversor de adc a nivel
LOG:    CLRWDT
    MOVLW    0xFF        ;todo en OFF
    MOVWF    PNT1        ;
    MOVWF    PNT2        ;
    CLRF    BAR1        ;00000000, Todo en ON
    MOVLW    0xF0        ;mascara de 1111 al MSB (4 bit)
    MOVWF    BAR2        ;11110000, solo se usan 12bits
 
    MOVLW    0x0E        ;
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,3        ;ON
    RETURN

    BSF    BAR2,3        ;OFF
    MOVLW    0x0D
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,3        ;ON
    RETURN

    BSF    BAR2,3        ;OFF
    MOVLW    0x0C
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,2        ;ON
    RETURN

    BSF    BAR2,2        ;OFF
    MOVLW    0x0B
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,2        ;ON
    RETURN

    BSF    BAR2,2        ;OFF
    MOVLW    0x0A
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,1        ;ON
    RETURN

    BSF    BAR2,1        ;OFF
    MOVLW    0x09
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT2,0        ;ON
    RETURN
 
    BSF    BAR2,0        ;OFF
    MOVLW    0x08
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,7        ;ON
    RETURN
 
    BSF    BAR1,7        ;OFF
    MOVLW    0x07
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,6        ;ON
    RETURN

    BSF    BAR1,6        ;OFF
    MOVLW    0x06
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,5        ;ON
    RETURN
 
    BSF    BAR1,5        ;OFF
    MOVLW    0x05
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positive?
    GOTO    $+3        ;no carry
    BCF    PNT1,4        ;ON
    RETURN
 
    BSF    BAR1,4        ;OFF
    MOVLW    0x04
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,3        ;ON
    RETURN

    BSF    BAR1,3        ;OFF
    MOVLW    0x03
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carrys
    BCF    PNT1,2        ;ON
    RETURN

    BSF    BAR1,2        ;OFF
    MOVLW    0x02
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,1        ;ON
    RETURN
 
    BSF    BAR1,1        ;OFF
    MOVLW    0x02
    SUBWF    TEMP,W        ;TEMP - constante
    BTFSS    STATUS,C    ;positivo?
    GOTO    $+3        ;no carry
    BCF    PNT1,0        ;ON
    RETURN
 
    BSF    BAR1,0        ;OFF
    RETURN
;-------------------------------------------;
; //////////  Fin de Rutinas   /////////////
;-------------------------------------------;

;-------------------------------------------;
; Configuraciones de Puertos y Flags        ;
;-------------------------------------------;
PM1:    BANKSEL TRISA
    CLRF    INTCON
    MOVLW    0b00001011  ; Configuración de OSC
    MOVWF    PCON        ; Interno 4MHz
    BSF    TRISA,0        ; AN0/RA0=Input L
    BSF    TRISA,1        ; AN1/RA1=Input R
    BSF    TRISA,2        ; sin uso
    BSF    TRISA,3        ; sin uso
    BCF    TRISA,4        ; Anodo 2,3 compartido (MSB de L y R 4bits)
    BSF    TRISA,5        ; Selector de modo -> Peak/bar/Point (pulsador)
    BCF    TRISA,6        ; Anodo 0 (LSB=L 8bts)
    BCF    TRISA,7        ; Anodo 1 (LSB=R 8bts)
    MOVLW    0b00000000  ; 0=Output/1=Input
    MOVWF    TRISB        ; PORTB=Output 8bits
    MOVLW    0b10000001  ; prescaler 1:4 TMR0 / pull-ups off
    MOVWF    OPTION_REG  ; (1ms) TMR0 @ 4Mhz internal OSC
    MOVLW    0b00000000  ; (EEW,CCP1,USART,TMR1,TMR2...)
    MOVWF    PIE1        ; interrupciones de PIE1=off
 
    BANKSEL PORTA
    BCF    PORTA,4        ;
    BCF    PORTA,6        ; Apagamos anodos
    BCF    PORTA,7        ;
    MOVLW    0b00000101  ; prescaler 1:1 (TMR1 sin uso)
    MOVWF    T1CON
    MOVLW    0b10100000  ; Enable INT TMR0
    MOVWF    INTCON
    MOVLW    0xFF        ; Apagamos cátodos (logica inversa)
    MOVWF    LRAM1
    MOVWF    LRAM2
    MOVWF    RRAM1
    MOVWF    RRAM2
    MOVWF    LPRM1
    MOVWF    LPRM2
    MOVWF    RPRM1
    MOVWF    RPRM2
    MOVWF    LBRM1
    MOVWF    LBRM2
    MOVWF    RBRM1
    MOVWF    RBRM2
    MOVWF    PORTB
    CLRF    Position
 
    MOVLW    0x0E        ; Dirección de EEPROM donde guarda el modo
    MOVWF    EEADRp        ; por defecto lee 0xFF (memoria vacia).
    CALL    ERead        ; rutina que Lee EEPROM.
    MOVWF    DTMODE        ; valor fijo del modo.
    MOVWF    JMPSL        ; valor variable del modo a usar.
    BSF    JMPSL,2        ; bit de enclavamiento.
 
;-------------------------------------------;
;    Programa Principal - Loop        ;
;(ISR interrumpe el loop cada 1ms y regresa);
;-------------------------------------------;
 
; para CMCOM=0x02 se tiene del manual:        ;
; 0 = C2INV: VREF menor que AN1 (VIN-) **
; 0 = C1INV: VREF menor que AN0 (VIN-) **
; 0 = C2: Output not inverted
; 0 = C1: Output not inverted
; 0 = CIS: Comparator Input Switch bit
;    C1: VIN- connects to RA0
;    C2: VIN- connects to RA1
; 010 = CM<2:0>
;    Four Inputs Multiplexed
;    to Two Comparators.
;
; (**) para menor sensibilidad CMCOM = 0xC2
;-------------------------------------------;
 
START:    CLRWDT
    BTFSS    JMPSL,0        ; selector de modo bar/point
    GOTO    Point
 
;Carga datos del modo Bar de L y R.
Barh:    MOVF    LBAR1,W    ; cátodo L LSB 8bits
    MOVWF    LLSB       ;
    MOVF    LBAR2,W    ; cátodo L MSB 4bits
    MOVWF    LMSB       ;
    MOVF    RBAR1,W    ; cátodo R LSB 8bits
    MOVWF    RLSB
    MOVF    RBAR2,W    ; cátodo R MSB 4bits
    MOVWF    RMSB
    GOTO    Mode
 
;Carga datos del modo punto de L y R.
Point:    MOVF    LPSV1,W   ; cátodo L LSB 8bits
    MOVWF    LLSB      ;
    MOVF    LPSV2,W   ; cátodo L MSB 4bits
    MOVWF    LMSB      ;
    MOVF    RPSV1,W   ; cátodo R LSB 8bits
    MOVWF    RLSB
    MOVF    RPSV2,W   ; cátodo R MSB 4bits
    MOVWF    RMSB

;Lee RA5 Selector de modos.
Mode:    BTFSS    JMPSL,2        ; JMPSL,2= 0? -> JMPSL,2 inicia en 1.
    GOTO    SAFE        ; ;bit de enclavamiento.
    BTFSC    PORTA,5        ; selector de modo.
    GOTO    NXT0        ; continua por defecto.
    DECF    DTMODE,F    ; si se presiona RA5 continua aqui.
    MOVLW    0x03        ; selecciona filtrando de 0xFF de DTMODE
    ANDWF    DTMODE,F    ; mascara entre 3 - 0 y lo carga en JMPSL.
    MOVF    DTMODE,W    ;
    MOVWF    JMPSL        ;
    MOVWF    SVData        ; Guarda el valor de modo en EEPROM.
    CALL    EWrite        ; rutina escribir EEPROM 6ms aprox.
    BCF    JMPSL,2        ; activa el bit de enclavamiento.
SAFE:    BTFSS    PORTA,5        ; logica invertida si se sigue presionado RA5.
    GOTO    NXT0        ; sigue.
    BSF    JMPSL,2        ; desactiva el bit de enclavamiento.
 
NXT0:    NOP            ; Tiempo de compensación al
        NOP            ; guardar en la EEPROM dentro de Mode.
        NOP            ; (no incluye CALL EWrite)
        NOP
        NOP
    NOP
    NOP
    NOP
    NOP
    NOP
 
;--------------------------------
;Lectura del Comparador AN0
COMRead:
    MOVLW    0x02        ; Comparador modo Mux interno (Vref=0x02).
    MOVWF    TPCM        ;
    MOVWF    CMCON        ; carga el modo Mux en CMCON.
    BANKSEL    VRCON        ;
    MOVLW    0xA0        ; (VREN=ON,VROE=OFF,VRR=ON,U-0=Unimplemented bit)
    MOVWF    VRCON        ; Configura VRCON (ver figura 11-1 del manual).
    BANKSEL    CMCON
 
    MOVLW    0x0F        ; 0 to F -> 4bits (resolución del comparador).
    MOVWF    CTCOMP        ;
 
LOOP2:    MOVF    TPCM,W        ;
    MOVWF    CMCON        ; Configuración de CMCOM
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    BTFSC    CMCON,6        ; C1OUT=1? AN0
    GOTO    AN0        ; yup
    BANKSEL    VRCON        ; nop
    INCF    VRCON,F     ; ADC 4bits
    BANKSEL    CMCON
    CLRF    CMCON        ; Limpia C1 y C2.
    DECFSZ    CTCOMP,F    ; limitador a 4bits.
    GOTO    LOOP2
 
AN0:    BANKSEL    VRCON
    MOVF    VRCON,W        ; se obtiene lectura
    ANDLW    0x0F        ;
    MOVWF    ANNDRL        ; 4bits ADC de VRCON
    BANKSEL    CMCON
 
LOUT:    MOVF    ANNDRL,W
    MOVWF    TEMP
    CALL    LOG
;--------------------------------

    MOVF    BAR1,W        ; nuevo nivel de Bar LSB
    MOVWF    LBAR1        ;
    MOVF    BAR2,W        ; nuevo nivel de Bar MSB
    MOVWF    LBAR2        ;
    MOVF    PNT1,W        ; nuevo nivel de Punto LSB
    MOVWF    LPNT1        ;
    MOVWF    LPSV1        ;
    MOVF    PNT2,W        ; nuevo nivel de Punto MSB
    MOVWF    LPNT2        ;
    MOVWF    LPSV2

;------------------------------------
; logica de tiempo para peak  
;------------------------------------
    MOVF    LRAM2,W        ; nivel MSB guardada (peak)
    SUBWF    LPNT2,W        ; nivel MSB actual
    BTFSS    STATUS,C    ; positivo? C=1 LPNT2-LRAM2
    GOTO    LCHANGEDT   ; nivel actual es menor que nivel guardado en MSB
    BTFSS    STATUS,Z    ; igual? Z=1 salta uno instrucción.
    GOTO    LJOINDT        ; nivel actual es mayor que nivel guardado
    MOVF    LPNT1,W        ; nivel LSB actual
    SUBWF    LRAM1,W        ; nivel LSB guardada LRAM1-LPNT1
    BTFSC    STATUS,C    ; negativo? C=0 salta uno instrucción.
    GOTO    LCHANGEDT   ; nivel actual es menor que nivel guardado en LSB
 
LJOINDT:
    BTFSS    JMPSL,1        ; L peak on/off
    GOTO    LPTTM
 
; mantiene el valor de peak
    MOVF    LRAM1,W        ; actualiza LSB de peak guardado
    MOVWF    LPNT1
    MOVF    LRAM2,W        ; actualiza MSB de peak guardado
    MOVWF    LPNT2
    GOTO    LPTTM
 
; actualiza nivel guardado (nivel guardado es menor que señal actual)
LCHANGEDT:
    MOVF    LPNT1,W        ; actualiza LSB de peak guardado
    MOVWF    LRAM1
    MOVF    LPNT2,W        ; actualiza MSB de peak guardado
    MOVWF    LRAM2
    MOVLW    244        ; inicia la primera vez con (500ms)
    MOVWF    LTML        ; memory timer L
    MOVLW    2
    MOVWF    LTMH        ; memory timer H
 
;------------------------------------
; logica de tiempo para punto
;------------------------------------
LPTTM:    MOVF    LPRM2,W
    SUBWF    LPSV2,W    ;LPSV2-LPRM2
    BTFSS    STATUS,C    ;positivo? C=1
    GOTO    LPTSWP
    BTFSS    STATUS,Z    ;igual? Z=1
    GOTO    LJNPT
    MOVF    LPSV1,W
    SUBWF    LPRM1,W        ;LPRM1-LPSV1
    BTFSC    STATUS,C    ;negativo? C=0
    GOTO    LPTSWP
 
LJNPT:    MOVF    LPRM1,W
    MOVWF    LPSV1
    MOVF    LPRM2,W
    MOVWF    LPSV2
    GOTO    NXTPL

LPTSWP:    MOVF    LPSV1,W
    MOVWF    LPRM1
    MOVF    LPSV2,W
    MOVWF    LPRM2
    MOVLW    40
    MOVWF    LPTM        ;memory time
 
NXTPL:    BTFSS    JMPSL,1        ;L peak on/off
    GOTO    LBRTM    
    MOVF    LRAM2,W
    ANDWF    LPSV2,F
    MOVF    LRAM1,W
    ANDWF    LPSV1,F

;------------------------------------
; logica de tiempo para barra
;------------------------------------
LBRTM:    MOVF    LBRM2,W
    SUBWF    LBAR2,W    ;LBAR2-LBRM2
    BTFSS    STATUS,C    ;positivo? C=1
    GOTO    LBRSWP
    BTFSS    STATUS,Z    ;igual? Z=1
    GOTO    LJNBR
    MOVF    LBAR1,W
    SUBWF    LBRM1,W        ;LBRM1-LBAR1
    BTFSC    STATUS,C    ;negativo? C=0
    GOTO    LBRSWP
 
LJNBR:    MOVF    LBRM1,W
    MOVWF    LBAR1
    MOVF    LBRM2,W
    MOVWF    LBAR2
    GOTO    NXTBL

LBRSWP:    MOVF    LBAR1,W
    MOVWF    LBRM1
    MOVF    LBAR2,W
    MOVWF    LBRM2
    MOVLW    20
    MOVWF    LBRM
 
NXTBL:    BTFSS    JMPSL,1        ;L peak on/off
    GOTO    ROUT
    MOVF    LRAM1,W
    ANDWF    LBAR1,F
    MOVF    LRAM2,W
    ANDWF    LBAR2,F

;------------------------------------
;Lectura del Comparador AN1
ROUT:    MOVLW    0x02        ; Comparador modo Mux interno (Vref=0x02).
    MOVWF    TPCM        ;
    MOVWF    CMCON        ; carga el modo Mux en CMCON.
    BANKSEL    VRCON        ;
    MOVLW    0xA0        ; (VREN=ON,VROE=OFF,VRR=ON,U-0=Unimplemented bit)
    MOVWF    VRCON        ; Configura VRCON (ver figura 11-1 del manual).
    BANKSEL    CMCON
 
    MOVLW    0x0F        ; 0 to F -> 4bits (resolución del comparador).
    MOVWF    CTCOMP        ;
 
LOOP1:    MOVF    TPCM,W        ;
    MOVWF    CMCON        ; Configuración de CMCOM
    NOP            ; 10uS según el manual (Example 11-1 pag. 70)
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    NOP
    BTFSC    CMCON,7        ; C2OUT AN1
    GOTO    AN1        ; termina si VREF es menor que AN1 (CMCON=0x02)
    BANKSEL    VRCON
    INCF    VRCON,F     ; ADC 4bits incrementa de 0000 a 1111 en VR3-VR0.
    BANKSEL    CMCON
    CLRF    CMCON        ; Limpia C1 y C2.
    DECFSZ    CTCOMP,F    ; limitador a 4bits.
    GOTO    LOOP1
 
AN1:    BANKSEL    VRCON
    MOVF    VRCON,W        ; se extrae y filtra solo VR3-VR0.
    ANDLW    0x0F        ;
    MOVWF    ANNDRR        ; 4bits ADC del Comparador AN1
    BANKSEL    CMCON
    MOVF    ANNDRR,W
    MOVWF    TEMP
    CALL    LOG
;------------------------------------
    MOVF    BAR1,W        ;new BAR
    MOVWF    RBAR1        ;
    MOVF    BAR2,W        ;
    MOVWF    RBAR2        ;
    MOVF    PNT1,W        ;new POINT
    MOVWF    RPNT1        ;
    MOVWF    RPSV1        ;
    MOVF    PNT2,W        ;
    MOVWF    RPNT2        ;
    MOVWF    RPSV2        ;

;------------------------------------
; logica de tiempo para peak
;------------------------------------    
    MOVF    RRAM2,W
    SUBWF    RPNT2,W        ;RPNT2-RRAM2
    BTFSS    STATUS,C    ;positivo?
    GOTO    RCHANGEDT
    BTFSS    STATUS,Z    ;igual? Z=1
    GOTO    RJOINDT
    MOVF    RPNT1,W
    SUBWF    RRAM1,W        ;RRAM1-RPNT1
    BTFSC    STATUS,C    ;negativo?
    GOTO    RCHANGEDT
 
RJOINDT:
    BTFSS    JMPSL,1        ;L peak on/off
    GOTO    RPTTM
 
    MOVF    RRAM1,W        ;sobreescribe RAM
    MOVWF    RPNT1        ;
    MOVF    RRAM2,W        ;
    MOVWF    RPNT2        ;
    GOTO    RPTTM

RCHANGEDT:
    MOVF    RPNT1,W        ;sobreescribe RAM
    MOVWF    RRAM1        ;
    MOVF    RPNT2,W        ;
    MOVWF    RRAM2        ;
    MOVLW    244        ;inicia con (500ms) la primera vez
    MOVWF    RTML        ; tiempo de retensión time L y H
    MOVLW    2
    MOVWF    RTMH
    GOTO    RPTTM

;------------------------------------
; logica de tiempo para punto
;------------------------------------
RPTTM:    MOVF    RPRM2,W
    SUBWF    RPSV2,W    ;RPSV2-RPRM2
    BTFSS    STATUS,C    ;positivo? C=1
    GOTO    RPTSWP
    BTFSS    STATUS,Z    ;igual? Z=1
    GOTO    RJNPT
    MOVF    RPSV1,W
    SUBWF    RPRM1,W        ;RPRM1-RPSV1
    BTFSC    STATUS,C    ;negativo? C=0
    GOTO    RPTSWP
 
RJNPT:    MOVF    RPRM1,W
    MOVWF    RPSV1
    MOVF    RPRM2,W
    MOVWF    RPSV2
    GOTO    NXTPR

RPTSWP:    MOVF    RPSV1,W
    MOVWF    RPRM1
    MOVF    RPSV2,W
    MOVWF    RPRM2
    MOVLW    40
    MOVWF    RPTM        ;memory time
 
NXTPR:    BTFSS    JMPSL,1        ;L peak on/off
    GOTO    RBRTM
    MOVF    RRAM1,W
    ANDWF    RPSV1,F
    MOVF    RRAM2,W
    ANDWF    RPSV2,F

;------------------------------------
; logica de tiempo para barra
;------------------------------------
RBRTM:    MOVF    RBRM2,W
    SUBWF    RBAR2,W    ;RBAR2-RBRM2
    BTFSS    STATUS,C    ;positivo? C=1
    GOTO    RBRSWP
    BTFSS    STATUS,Z    ;igual? Z=1
    GOTO    RJNBR
    MOVF    RBAR1,W
    SUBWF    RBRM1,W        ;RBRM1-RBAR1
    BTFSC    STATUS,C    ;negativo? C=0
    GOTO    RBRSWP
 
RJNBR:    MOVF    RBRM1,W
    MOVWF    RBAR1
    MOVF    RBRM2,W
    MOVWF    RBAR2
    GOTO    NXTBR

RBRSWP:    MOVF    RBAR1,W
    MOVWF    RBRM1
    MOVF    RBAR2,W
    MOVWF    RBRM2
    MOVLW    20
    MOVWF    RBRM        ;memory time
 
NXTBR:    BTFSS    JMPSL,1        ;L peak on/off
    GOTO    START
    MOVF    RRAM1,W
    ANDWF    RBAR1,F
    MOVF    RRAM2,W
    ANDWF    RBAR2,F
    GOTO    START
     END

lo que si me olvide era compartir la traducción a C del código original en asm que hice, que me parece necesario para que cualquiera pueda implementarlo donde desee. mi traducción trata de respetar el orden y logica que tiene el codigo asm original, para no tener problemas de la obtensión de datos en el tiempo asi como la multiplexión. los expertos lo sabran mejorar. temo aclarar que el autor envia tanto punto como barra directamente a la multiplexión eso genera mas de un punto o barras erraticas que en lo personal no me gusta, y el codigo del 628A lo corregía. pero bueno eso es a gusto de cada uno.

como me parecio un desperdicio usar un PIC DIP-40 como el 877A solo para un vumetro lo deje como ejemplo y no tiene implementado la opción guardar en la EEPROM el modo seleccionado y tiene pocos comentarios, sepan disculpar.

C:

// PIC16F877A Configuration Bit Settings

// CONFIG
#pragma config FOSC = HS        // Oscillator Selection bits (HS oscillator)
#pragma config WDTE = OFF       // Watchdog Timer Enable bit (WDT disabled)
#pragma config PWRTE = OFF      // Power-up Timer Enable bit (PWRT disabled)
#pragma config BOREN = ON       // Brown-out Reset Enable bit (BOR enabled)
#pragma config LVP = ON         // Low-Voltage (Single-Supply) In-Circuit Serial Programming Enable bit (RB3/PGM pin has PGM function; low-voltage programming enabled)
#pragma config CPD = OFF        // Data EEPROM Memory Code Protection bit (Data EEPROM code protection off)
#pragma config WRT = OFF        // Flash Program Memory Write Enable bits (Write protection off; all program memory may be written to by EECON control)
#pragma config CP = OFF         // Flash Program Memory Code Protection bit (Code protection off)

#include <xc.h>
#include <stdint.h>
#define _XTAL_FREQ 8000000

uint8_t registro[4];
#define LLSB registro[0]
#define LMSB registro[1]
#define RLSB registro[2]
#define RMSB registro[3]

uint16_t PeakR = 0xFFFF;
uint16_t PeakL = 0xFFFF;
uint8_t tiempoR = 244; // 500ms @ 8Mhz
uint8_t tiempoL = 244;
uint8_t pocision = 0;
uint8_t lectura_AN0;
uint8_t lectura_AN1;
uint8_t valor_adc;
uint16_t mezcla;
uint16_t punto;
uint16_t barra;
uint8_t Temp01,Temp02,Temp03,Temp04;

uint8_t JMPSL = 0b00000100; // bit Enclavamiento bit2 = 1
uint8_t DTMODE = 0;         // registro temporal

const uint8_t Tabla_Log[16] = {
    0x02, 0x08, 0x0E, 0x13, 0x19, 0x1F, 0x26, 0x2D,
    0x36, 0x3E, 0x4A, 0x58, 0x6B, 0x89, 0xB4, 0xF8};

const uint8_t Anodos[4] = {0x01, 0x02, 0x04, 0x08};

void Logaritmo(uint8_t valor_adc) {
    punto = 0xFFFF;
    barra = 0x0000;

    for (int i = 15; i >= 0; i--) {
        if (valor_adc >= Tabla_Log[i]){
            punto &= ~(1U << i);
            break;        
        } else {
            barra |= (1U << i);
        }
    }
}

void __interrupt() ISR(void) {
    if (TMR0IF) {
        TMR0IF = 0;    
        PORTE = 0x00; // anodos en 0
     
        if (tiempoL > 0){        
            tiempoL--;
        }
        if (tiempoL == 0) {
            if (PeakL < 0xFFFF) {
                PeakL = (uint16_t)((PeakL >> 1) | 0x8000);
            }
            tiempoL = 20;
        }
     
        if (tiempoR > 0){        
            tiempoR--;
        }
        if (tiempoR == 0) {
            if (PeakR < 0xFFFF) {
                PeakR = (uint16_t)((PeakR >> 1) | 0x8000);
            }
            tiempoR = 20;
        }
     

        PORTD = registro[pocision]; // nuevo cátodo
        PORTE = Anodos[pocision];   // nuevo anodo
        pocision++;
        pocision &= 0x03;
 
        PORTB = Temp03;
        PORTC = Temp04;
    }
}

void main(void) {
 
    OPTION_REG = 0b01000011;
    ADCON0 = 0b01000011;
// | ADCS1 = 0| ADCS0 = 1 | CHS2-CHS1-CHS0 | GO/DONE = 1 | ? | ADON = 1 |
    ADCON1 = 0b01100101;
// | ADFM = 0 | ADCS2 = 1 |-U-|-U-| PCFG3-0 = xxDD-ADAA |
    TRISA  = 0b00001111; // 1=in 0=out
//  PORTX  = --76543210
    TRISB = 0x00;
    TRISC = 0x00;
    TRISD = 0x00;
    TRISE = 0x00;
    PORTB = 0x00;
    PORTC = 0x00;
    PORTD = 0x00;
    PORTE = 0x00;
 
    T1CON = 0b00000101;
    INTCON = 0b10100000;
 
    DTMODE = 0xFF;  // EEPROM por default lee 0xFF
    JMPSL = DTMODE;
    JMPSL |= 0x04;  // iniciamos con 1 el bit de enclavamiento
    PORTA = (PORTA & ~0x30)|(uint8_t)(JMPSL << 4); // arreglo de prueba
 
    while(1)
    {

        LLSB = Temp01;
        LMSB = Temp02;
        RLSB = Temp03;
        RMSB = Temp04;
     
     
        if ((JMPSL & 0x04) != 0) {      // bit de enclavamiento (inicia con 1)
            if ((PORTA & 0x04) == 0) {  // RA2 ( pueden aprovechar los PICs
                DTMODE--;               // con RA5/MCLR que son solo entrada)
                DTMODE &= 0x03;         // Mascara 0bxxxx-xx11
                JMPSL = DTMODE;         // intercambio de dato (sin uso)
                JMPSL &= ~0x04;         // bit de enclavamiento en 0
                PORTA = (PORTA & ~0x30)|(uint8_t)(JMPSL << 4);
            }                           // arreglo de prueba RA4,RA5
        }
        else {
            if ((PORTA & 0x04) != 0) {  // RA2 liberado? (dejo de presionar)
                JMPSL |= 0x04;          // restaura en 1 el bit
            }
        }
     
     
        ADCON0bits.CHS0 = 0;
        __delay_us(20);
        GO_nDONE = 1;
        while(GO_nDONE);
        lectura_AN0 = ADRESH;
     
        ADCON0bits.CHS0 = 1;
        __delay_us(20);
        GO_nDONE = 1;
        while(GO_nDONE);
        lectura_AN1 = ADRESH;
     
        Logaritmo(lectura_AN0);
        if (punto <= PeakL){
            PeakL = punto;
            tiempoL = 244;
        }
     
        switch(JMPSL&0x03)
        {
            case 0x00:
            mezcla = punto;
            break;
            case 0x01:
            mezcla = barra;
            break;
            case 0x02:
            mezcla = punto & PeakL;
            break;
            case 0x03:
            mezcla = barra & PeakL;
            break;
        }
     
        Temp01 = (uint8_t)(mezcla & 0xFF);
        Temp02 = (uint8_t)((mezcla >> 8) & 0xFF);

     
        Logaritmo(lectura_AN1);
        if (punto <= PeakR){
            PeakR = punto;
            tiempoR = 244;
        }
     
        switch(JMPSL&0x03)
        {
            case 0x00:
            mezcla = punto;
            break;
            case 0x01:
            mezcla = barra;
            break;
            case 0x02:
            mezcla = punto & PeakR;
            break;
            case 0x03:
            mezcla = barra & PeakR;
            break;
        }
     
        Temp03 = (uint8_t)(mezcla & 0xFF);
        Temp04 = (uint8_t)((mezcla >> 8) & 0xFF);
    }
}

psd: soy consiente que tarde o temprano esto llegue o termine como producto comercial o parte de uno como todo en internet, así como sucedió con el proyecto del autor. solo para aclarar.

Saludos.

Vumetro a Leds con PIC 16FXXX

ByAxel

Jesuuss

Adjuntos

nodes

Adjuntos

Fogonazo

"Qualified exorcist approved by the Vatican"

IEmoy

D@rkbytes

Moderador general

brisco

Adjuntos

faluncho

CARPER1963

luquio

crazysound

CARLOS HERNANDEZ

Fogonazo

"Qualified exorcist approved by the Vatican"

D@rkbytes

Moderador general

ojotec

ricbevi

switchxxi

nuk

Adjuntos

torres.electronico

Well-known-Alfil

nuk

Adjuntos

Temas similares