Der Code ist wie folgt:
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$framesize = 24
$swstack = 8
Config Portd.2 = Input
Dim Begin as Long
Config Int0 = Change
On Int0 Interupt
Enable Int0
Enable Interrupts
Do
Print Begin
Print
Waitms 200
Loop
Interupt:
Incr Begin
Return
Wenn ich Portd.2 auf High ziehe bleibt Begin gleich, auf GND macht er nichts anderes als den Interrupt abzuarbeiten, sieht man daran, dass wenn man den Port wieder auf High setzt, die Zahl größer geworden ist. Was tun?
Lesezeichen