Also, ich hab jetzt mal ein Testprogramm gebaut. Eine Led soll über den Compare-Interrupt blinken.
Hier ist mal der Code:

$regfile = "m8def.dat"
$crystal = 1000000
Ddrd.7 = 1
Portd.7 = 0
Config Timer1 = Timer , Prescale = 8
Enable Interrupts
On Compare1a An

Dim X As Long

X = 1500

Compare1a = X

Enable Timer1
Do
Loop

An:
Disable Interrupts
X = X + 1500
Compare1a = X

Toggle Portd.7
Enable Interrupts
Return

End

Doch: die Led bleibt dunkel!
Was ist falsch?
Könnt ihr mir da weiterhelfen?

Herzlichen Gruss
Mario