Hallo,
ich bin am verzweifeln - das Programm funktioniert einfach nicht, aber ich finde den Fehler nicht:

Code:
$regfile "m8def.dat"
$crystal = 16000000
$framesize = 24
$swstack = 8
$hwstack = 32

Config Timer1 = Timer , Prescale = 64
Enable Timer1
Timer1 = 65500

On Timer1 Servoirq

Enable Interrupts


Config Portb.1 = Output
Config Portb.2 = Output
Portb.1 = 1
Portb.2 = 0

Waitms 500
Portb.1 = 1                                                 'gruen
Portb.2 = 1                                                 'rot

'Program-Time
Waitms 1000

'###############################################################################
'main

Do

      Portb.2 = 0

Loop


'###############################################################################
'Interupt
Servoirq:
If Portb.1 = 0 Then
   Portb.1 = 1
Else
   Portb.1 = 0
End If
Timer1 = 5

Return
End
Ich kann jeden beliebigen Wert für "Timer1 = x" (im Interupt) schreiben, aber die angeschlossene LED leuchtet immer im gleichen Sekundentakt.

Hoffe ihr könnt mir helfen!

MFG Erik