Sprunghafte Fehler in Timerwerten

[radbruch]

Hallo

$regfile "m8def.dat"
$crystal = 10000000
$hwstack = 100
$swstack = 100
$framesize = 100
$baud = 9600

Dim Flag As Byte
Dim Timer0_temp As Byte
Dim Timer1_temp As Word
Flag = 0

Config Timer0 = Timer , Prescale = 1
Config Timer1 = Timer , Prescale = 256
Config Int0 = Rising
'6 Takte für Timer

Enable Interrupts

Enable Int0                                                 'enable the interrupt

On Int0 Send Nosave


Stop Timer0
Stop Timer1
Timer0 = 0
Timer1 = 0

Start Timer0
Start Timer1

Do
   If Flag = 1 Then
      Print "Timer1= " ; Str(timer1_temp) ; " " ; "Timer0= " ; Str(timer0_temp)
      Flag = 0
   End If
Loop

Send:
   Timer0_temp = Timer0
   Timer1_temp = Timer1
   Timer0 = 0
   Timer1 = 0
   Flag = 1
Return

(ungetestet)


Funktioniert es so besser?

Gruß

mic

[Thomas$]

ich bin verblüfft

ja so funktioniert es besser

nun die frage warum geht es denn besser

der µC hatte doch ewig zeit zum senden oder UART in einer isr nicht so gut?

So und noch ein Danke ich such die ganze zeit die fehler in der Hardware UART aus der isr raus und es geht

Thx

[radbruch]

Ich vermute, Bascom sendet die Daten über einen Sendepuffer der irgendwann mal voll wird. Ab diesem Zeitpunkt wird dann in der ISR gewartet und der impulsgebende µC ist nicht mehr synchron. Das könnte man etwa so überprüfen:

Print "Timer1= " ; Str(timer1) ; "Timer0= " ; Str(timer0) ; "dummytext"

Mehr Text bedeutet Puffer ist schneller voll.

Wie sieht denn die Ausgabe der verbesserten Variante aus?

[Thomas$]

Temp= 9956365 Timer1= 38892 Timer0= 13
Temp= 9956365 Timer1= 38892 Timer0= 13
Temp= 9956365 Timer1= 38892 Timer0= 13
Temp= 9956365 Timer1= 38892 Timer0= 13
Temp= 9956620 Timer1= 38893 Timer0= 12
Temp= 9956363 Timer1= 38892 Timer0= 11
Temp= 9956361 Timer1= 38892 Timer0= 9
Temp= 9956360 Timer1= 38892 Timer0= 8


Temp=timer1*256+timer0