ein servo fährt 120 einheiten nach links und 120 ein heiten nach rechts, 3x.
probier mal aus. must dein prozessor angeben ,den crystal und dein port.
musst mit den werten in der forschleife den anschlag evtl noch ausmachen.

Code:
$regfile = "m32def.dat"
$crystal = 8000000

Dim Sw As Byte
Dim Z As Byte

Config Servos = 1 , Servo1 = Portd.6 , Reload = 10

Config Portd = Output
Enable Interrupts

Wait 1

For Z = 0 To 3
For Sw = 48 To 168
Servo(1) = Sw
Waitms 10
Next Sw

Waitms 100

For Sw = 168 To 48 Step -1
Servo(1) = Sw
Waitms 10
Next Sw

Next

End