hallo ich habe ein kurzes Testprogramm geschrieben um den Hardware- Interrupt zu testen.
Immer wenn ein Interrupt ausgelöst wird soll meine Variable I um 1 incrementiert werden doch das funktioniert leider nciht so recht...
wo liegt mein Fehler ?

Code:
Declare Sub Mycounter()

$regfile = "m32def.dat"

Dim I As Word

$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600


Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

Tccr1b = Tccr1b Or &H02                                     'Prescaler = 8

On Int1 Mycounter

Config Int1 = Rising                           'rising for high level/ falling low level
Enable Int1
Enable Interrupts

I = 0

Do
       Print "this is a test for high-level interrupts I = " ; I
       'main loop starts here
       Sound Portd.7 , 700 , 750                            'BEEP
       Waitms 10
Loop
End

Sub Mycounter()
 'Print "interrupt has occurent"
 I = I + 1
End Sub