Hallo,

hier mal der Code, also ich meine der sollte laufen.
in der do loop wird einfach nur was hochgezählt und dan eine led an und aus, geht auch wunderbar. Nur die Interruptroutine will einfach nicht.

Code:
$regfile = "m16def.dat"                                     'ATMEGA8
$crystal = 3686400                                          'Quarz: 3.6864 MHz



Dim A As Word
Dim B As Word


Ddrd = &B11100000



On Timer0 Interrupt                                         'Ziel bei Überlauf
Config Timer0 = Timer , Prescale = 1024 , Edge = Falling    ' Definition




Enable Interrupts
Enable Timer0
Start Timer0


Do

Incr B
If B = 20000 Then
   Portd.6 = Not Portd.6
   B = 0
   End If

Loop




Interrupt:

Incr A

If A = 50 Then
   Portd.5 = Not Portd.5                                    '= Not Portd.5                                    ' Led An / Aus
   A = 0
End If



Return


End
habe ich einfach nur was vergessen und übersehe meinen Fehler?


Gruss Frank