ich mache mal ein paar änderungsvorschläge siehe code

Code:
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 8
$framesize = 24
//Configs
Config Portb.2 = Input
Config Portb.1 = Output
Config Portb.0 = Output
Config Servos = 1 , Servo1 = Portb.0 , Reload = 10
//Variablen
Dim W As Integer
Dim I As Byte
Do


Do

Pulsein W , Pinb , 2 , 1
If W <= 150 Then Portb.1 = 0
elseif W > 150 And W <= 200 Then
Portb.1 = 1
Waitms 1450
Portb.1 = 0
End If
  //Nu warten wenn es auch sinvoll ist, sonst wartet der µC 1,5S und merkt dabei nicht das nächste start signal


Loop Until W > 150               '  Wiederhole do loop, bis Bedingung W>150 wahr ist.



Enable Interrupts               'Servoschleife

For I = 100 To 200
 Servo(1) = I
Next I
For I = 200 To 100 Step -1
  Servo(1) = I
  Waitms 12
Next I
Disable Interrupts


Portb.1 = 1
Waitms 8
Waitms 1700
Portb.1 = 0
Loop

End