Danke für die Antwort.

Die Werte von Compare1a habe ich wie folgt geändert.
Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 6547200
$baud = 9600

Dim I As Integer

Config Portd.5 = Output

Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 64


For I = 946 To 980
  Compare1a = I
  Sound Portd.7 , 400 , 450
  Wait 1
Next

End
Der Servo steuert eine Position an und verharrt dort. Komischer Weise ist, wenn man versucht ihn per Hand zu drehen, nur in eine Richtung ein Widerstand festzustellen!?