okay...

bin bei nem Kollegen und versuchen nun das ganze mit einem
atmel 0801 - attiny 2313 20PU zu basteln.

Folgendes:

Der Attiny bekommt auf PinD.1 und PinD.2 Strom, darauf hin soll er ein langames PWM oder ein schnelles auf den Ausgang &B10000000 schicken.

leider funktioniert es nicht.
Weiß jemand wo in folgendem Quelltext der / die fehler liegen ?

Grüße

Code:
$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output

Dim Wartenl As Byte
Dim Wartenr As Byte

Menu:

If Portb.1 = 1 Then
Gosub Links
 End If

If Portb.2 = 1 Then
Gosub Rechts
End If

Links:

    Wartenl = 0.4
Do
   Portb = &B10000000
   Waitms Wartenl
   Portb = &B00000000
   Waitms Wartenl
      Loop Until Portb.1 = 0

      Gosub Menu

Rechts:

Wartenr = 0.51

Do
   Portb = &B10000000
   Waitms Wartenr
   Portb = &B00000000
   Waitms Wartenr
      Loop Until Portb.2 = 0

      Gosub Menu