Witam!
Program pisany w Bascomie, jest to prosty programik ktory pokazuje temperature w aucie, przejechany dystans itd.
Timer0 wykorzystywany jest jako licznik (zlicza impulsy drogi), przy przepelnieniu licznika wywolywane jest przerwanie.
Timer1 wykorzystywany jest jako timer, odmierzam nim 1ms, czyli co 1ms wywolywane jest przerwanie.
Problem polega na tym, ze po przejechaniu kilku km program zaczyna bardzo dziwnie dzialac, do zmiennej zawierajacej liczbe przejechanych kilometrow wpisuje bardzo dziwne rzeczy.
Wczesniejsza wersja programu nie wykorzystywala Timer1, i problem nie wystepowal, program dzialal stabilnie.
Czy mozliwe jest, ze oba przerwania wywolywane sa jakos rownoczesnie, i dlatego cos sie psuje?
Pozdrawiam
'definiowanie procka
$regfile = "m8def.dat"
$crystal = 8000000
'konfiguracja portów
...
Config Timer0 = Counter , Edge = Falling 'Licznik impulsów drogi
Enable Timer0 : On Timer0 Przep 'przepelnienie licznika
Config Timer1 = Timer , Prescale = 64
Enable Timer1 : On Timer1 Co1ms 'przewrwanie co 1ms
Enable Interrupts
'zmienne
...
'poczatkowe napisy
Do : Loop : End
Co1ms:
Timer1 = 65411
Incr Czas_pom
If Czas_pom = 1000 Then
Incr Czas
Czas_pom = 0
End If
If Kropka = 0 Then
Gosub Temperatura
Elseif Kropka = 1 Then
Gosub Droga1
Elseif Kropka = 2 Then
Gosub Predkosc
Elseif Kropka = 3 Then
Gosub Data1
End If
If Zegar_prz = 0 Then 'sprawdzenie, czy zostal wcisniety przycisk
Incr Zegar_pom 'zwiekszanie zmiennej pomocniczej
If Zegar_pom = 40 Then 'jak dojdzie do 4000 to da 40 ms
Incr Zegar 'zwiekszanie zmiennej zegar
End If
Else
Zegar_pom = 0 'zerowanie zmiennej pomocniczej
End If
If Kropka_prz = 0 Then
Incr Kropka_pom 'zwiekszanie zmiennej pomocniczej
If Kropka_pom = 40 Then 'jak dojdzie do 4000 to da 40 ms
Incr Kropka 'zwiekszanie zmiennej kropka
Zegar = 0 'zeby zawsze szedl na pierwszy ekran
End If
Else
Kropka_pom = 0 'zerowanie zmiennej pomocniczej
End If
If Kropka > 3 Then : Kropka = 0 : End If
If Zegar > 2 Then : Zegar = 0 : End If
Return 'koniec petli
Temperatura:
...
Return
Droga1:
...
Return
Predkosc:
...
Return
Data1:
...
Return
Przep:
Impdr = Impdr + 256
Return
pisalem o przerwaniach od Timer1 
..... no nikt nie chce się ze mną po prostu zgodzić, że to wina procesora albo kompilatora - dlaczego? skoro to oczywiste przy takich efektach"