Atmega8 und Servo ansteuern

[Wombatz]

Ich habe es mit mehrere Programmen versucht... Hier ist meine aktuelle Version

$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600


Config Timer1 = Timer , Prescale = 8                        'timer für Servos
Enable Timer1

Config Servos = 1 , Servo1 = Portb.1 , Reload = 10

Config Portb = Output


Dim A As Word

On Timer1 Pwm

Enable Interrupts

Timer1 = A

'***************** Hauptschleife / Servobewegung ********
Do

A = 63535

Wait 2

A = 61535

Loop
'****************** Label **********************
Pwm:

   Toggle Portb.1

Return