Hallo

Code:
$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