Time diference in microseconds

[leonel]

Thank´s a lot...
I suppose your code works but I don´t think these week I´ll have time to test it, because I´m working with the hardware...
But when I have news I´ll tell you.
Regards
Leonel Monteiro

[leonel]

Can anybody explain me what´s wrong in these code...
I want to turn led on and off in each 5 seconds, but it didn´t wait 5 seconds. It is much less, about 50ms
Sorry but variables and comments are in portuguese

'este ficheiro é apenas para testar algumas funcionalidades da placa

DEFINE OSC 4 'o programa irá correr a 4MHz

ADCON1 = $06 'indica que todas as entradas são digitais
TRISA = $3F 'estou a colocar RA.0, RA.1, RA.2, RA.3, RA.4 e RA.5 como entradas e o resto como saídas
TRISB = $FF 'estou a colocar tudo como entradas
TRISC = $00 'estou a colocar tudo como saídas
variavel var word
start:
portc.3 = 1
gosub tempo_ligado
portc.3 = 0
portc.2 = 1
gosub tempo_ligado
portc.2 = 0
portc.1 = 1
gosub tempo_ligado
portc.1 = 0
goto start

tempo_ligado:
T1CON.0 = 1 'inicio o timer
while variavel < 80
if pir1.0 = 1 then
variavel = variavel + 1 'a variavel incrementa a cada 0.06seg.
'colocando a 80 esperamos 5seg
endif
wend
pir1.0 = 0
T1CON.0 = 0 'paro o timer
variavel = 0
TMR1L = 0
TMR1H = 0
return

[Ingvar]

Try ....

tempo_ligado:
T1CON.0 = 0 'paro o timer
pir1.0 = 0
variavel = 0
TMR1L = 0
TMR1H = 0
T1CON.0 = 1 'inicio o timer
while variavel < 77
if pir1.0 = 1 then
variavel = variavel + 1 'a variavel incrementa a cada 0.06seg.
'colocando a 80 esperamos 5seg
pir1.0 = 0
endif
wend
T1CON.0 = 0 'paro o timer
return

[leonel]

Thank´s...
Your code works.