Servo mit Bascom AVR

'Hardware: Rote LED (mit Vorwiderstand) und Servo (direkt) an Pin PD7
'Servo und µC an 5V

$regfile = "m8def.dat"
$crystal = 8000000
Config Servos = 1 , Servo1 = Portd.7 , Reload = 10
Declare Sub Main
Enable Interrupts

'LED und Servo an PD7
Ddrd = &B10000000

Call Main()
End

Sub Main
    Local Neue_position As Byte
    
    Const Startwert = 50
    Const Endwert = 150
    
    'Startposition einnehmen
    Servo(1) = Startwert
    Waitms 300
    
    'In der Schleife vor und zurück
    Do
        For Neue_position = Startwert To Endwert Step 20
            Servo(1) = Neue_position
            Waitms 300
        Next Position
        For Neue_position = Endwert To Startwert Step -20
            Servo(1) = Neue_position
            Waitms 300
        Next I
    Loop
End Sub