so hab das ganze nochmal überarbeitet

der inc irq0 is aus der abfrage geflogen, weil irq0 ja sowieso immer ausgelöst wird wenn was anliegt! (denk ich halt mal so war das vorher gemeint)

also eigene "routine" für irq0

Code:
$regfile = "m8def.dat"
$baud = 9600
$crystal = 8000000

Config Pinb.1 = Input
Config Pinb.2 = Output
Dim Irq0 As Word



Irq0:
Incr Irq0
Return




Do

Abfrage:                         'hier wird abgefragt ob eine taste gedrückt ist
If Pinb.1 = 1 Then           ' wenn pinb.1 gedrückt dann in die Rauf routine
Goto Rauf
Else
Reset Pinb.2
Goto Abfrage
End If

Rauf:
Set Pinb.2                                                  'motor fährt rauf
If Irq0 > 800 Then
Reset Pinb.2                'wenn 800 impulse ereicht sind dann stop TIMER0
Else
Goto Rauf
End  IF

Loop
mfg
piri