Sorry PicNick, das nächste Mal mache ich eine bessere Fehlerbeschreibung.

Vielen vielen Dank Reinhard, das war das Problem.

Doch nun steh ich vor folgenden Problem, mein Variable I steiger ständig ihren Wert und das ganz unregelmäßig, obwohl nix am Port D angeschlossen ist. Die Variable startet bei 131 und steigert sich im nächsten Schritt auf 202 und im dritten Schritt ( print Ausgabe ) auf 432. Und dabei setzte ich doch die Variable am Programmstart auf 0.

seht ihr den Fehler ?

Danke



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                                        'interrupt für high level
Enable Int1
Enable Interrupts

I = 0     ' I auf Null setzen 

Do
       Print "this is a test for high-level interrupts I = " ; I
       'main loop starts here
       Waitms 10
Loop
End

Mycounter:
 Incr I
Return