PROG: ;RUTINA PARA DETECTAR VISUALMENTE LA INTERRUPCIÓN
HIGH L_verde
pause 500
low l_verde
PAUSE 500
GOTO progEn PBP, si ocurre una interrupción durante pause n no la atiende hasta que termina. La "solución" propuesta por sus autores es descomponerla en intervalos mas cortos, por ejemplo:for k=1 to 1000 : pauseus 500 : NEXT k se pierde exactitud pero por lo menos bloquea durante menos tiempo. LCDOUT $FE, $C4, "CONTEO: ", DEC CONTador ;VISUALIZAR EL CONTEO DE INTERRUPCIONES EN UN LCDLCDOUT no es rápido, demora mas de 20ms la primer vez y casi 3ms después. Usarla dentro de una interrupción que ocurre cada 10ms es mala idea. Más teniendo en cuenta que refrescar un display mas de 5 veces por segundo no tiene sentido porque no se alcanza a distinguir el último dígito (si está cambiando obviamente)
IF CONTADOR = 100 THEN ;SI SUMAN 100 INTERRUPCIONES DE 10 mS (1 SEGUNDO)
GOTO UN_SEGUNDO
ENDIF
INTCON.2 = 0 ;REHABILITAR INTERRUPCIÓN TMR0
RESUME ;REGRESA AL PROGRAMA PRINCIPAL
ENABLE ;HABILITAR INTERRUPCIONES
UN_SEGUNDO:
HIGH L_ROJO
PAUSE 200
LOW L_ROJO
CONTADOR = 0
RETURN
UN_SEGUNDO:
if L_ROJO = 0 THEN
HIGH L_ROJO
ELSE
LOW L_ROJO
ENDIF
CONTADOR = 0
RETURN
...Si sacás "PROG" el programa ejecuta lo que sigue (la interrupción) y retorna a cualquier parte.
Tengo el siguiente comentario: creí que podía eliminar la rutina "PROG", que se encarga de hacer destellar un led de color verde, lo puse para verificar que efectivamente el PIC "dejaba de hacer lo que estaba haciendo" para atender la interrupción. Pero al eliminarla, aparentemente, ya no se producen interrupciones, el led rojo, que se encarga de notificar cuando se ha cumplido un segundo, deja de destellar. ¿Entonces es necesario que el PIC "esté haciendo algo" para que se produzcan las interrupciones? Yo hubiera pensado que simplemente con que el PIC estuviera alimentado, sin estar haciendo una tarea específica habrían interrupciones. :oops: :oops: :oops:
Ahora mi pregunta es, si estoy haciendo destellar el led rojo, que me notifica que se ha cumplido un segundo, con una pausa de 200 mS y, como bien comentó Eduardo2, "Menos que menos usar un PAUSE 200 dentro de una interrupción de período 10ms...", ¿qué valor sería recomendable para la pausa en lugar de 200?Dentro de la interrupción es mala palabra usar PAUSE, hasta un PAUSEUS de pocos us se puede aceptar, pero nunca de milisegundos.
Hola a todos. Este es el avance que llevo, ya funciona bastante bien. Modifiqué la configuración del preescalador a 1:128 y el valor del TMR0 a 4, con lo que se producen interrupciones cada 32,256 mS, ésto multiplicado por 31 da 999,936 uS, ya bastante más cercano a un segundo.
Tengo el siguiente comentario: creí que podía eliminar la rutina "PROG", que se encarga de hacer destellar un led de color verde, lo puse para verificar que efectivamente el PIC "dejaba de hacer lo que estaba haciendo" para atender la interrupción. Pero al eliminarla, aparentemente, ya no se producen interrupciones, el led rojo, que se encarga de notificar cuando se ha cumplido un segundo, deja de destellar. ¿Entonces es necesario que el PIC "esté haciendo algo" para que se produzcan las interrupciones? Yo hubiera pensado que simplemente con que el PIC estuviera alimentado, sin estar haciendo una tarea específica habrían interrupciones. :oops: :oops: :oops:
Ahora mi pregunta es, si estoy haciendo destellar el led rojo, que me notifica que se ha cumplido un segundo, con una pausa de 200 mS y, como bien comentó Eduardo2, "Menos que menos usar un PAUSE 200 dentro de una interrupción de período 10ms...", ¿qué valor sería recomendable para la pausa en lugar de 200?
Aún tengo pendiente investigar lo que comentó DominusDRR acerca de la instrucción DISABLE, que aparece justo antes de ejecutar la RAI y de la instrucción RESUME, casi al final de la RAI, pero que está una línea antes de la instrucción ENABLE. Aparentemente el RESUME dejaría sin ejecutar el ENABLE. Dejo imagen de donde tomé las instrucciones así.
Gracias a todos por adelantado. Saludos.Código: QBasic/QuickBASIC
Hola Eduardo2 y DominusDRR, nuevamente, mil gracias por contestar. Voy a poner en práctica lo que comentan... aunque eso de "retardo asincrónico" me suena a "no le voy a entender" :shock: :shock: :shock:
A seguir experimentando para aprender. Gracias a todos. ((:-))
Hola dejo la función MILLIS, lo mismo la puedes adaptar a tu lenguaje.
En este caso usa el timer1 y cuenta cada 1mSeg.Código: Visual Basic