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
Lesezeichen