hab hier mal alles übersichtlich dargestellt was nicht ganz geht.

$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32


Dim I As Integer
Dim 1 As Integer
1 = 0 error

Config Portc.2 = Input


Config Timer0 = Timer, Prescale = 1024

On Timer0 Timer_irq

Const Timervorgabe = 100

Enable Timer0
Enable Interrupts


Do
If Portc.2 = 1 Then
If 1 = 0 Then 1 = 1 error
If 1 = 1 Then 1 = 0 error
End If

Waitms 1
Loop

Timer_irq:
Timer0 = Timervorgabe
If I = 30000 Then
1 = 0 error
I = 0
Elseif 1 = 1 Then error
Incr I
End If error

Return