ok stimmt return ist das fehl am platz
war da glaub ich zu schnell

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

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



Irq0 = 0
On Int0 Irq0
Enable Int0
Config Int0 = Rising
Enable Interrupts



Do

Irq0:
Incr Irq0


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
jetzt müsst der interrupt aber funktionieren?!

noch ne frage die ich vorher vergessen hab
wo simulierst du das ganze

gibts da ein eigenes programm oder geht das auch mit Bascom
wo ich dann taster und zb leds für die ausgänger hab?!

großes dank an euch!!!

mfg