Hallo
Anbei mein Bascom Code wie gewünscht , habe extra für mein Servo eine extra Spannungsversorgung vorgesehen zudem habe ich die GND Leitung
überprüft , aber meine Servos Zittern ohne Ende habe auch versucht andere Ausgaenge zu benutzen , war auch ohne erfolg !!
Bezüglich Fuses auslesen bin ich dran mus erstmal die passenende Software organisieren zum Quarz 16Mhz .
Bin jedoch auf meinen Atmega 16 ausgewichen.

Danke für Eure Hilfe
Gruß Thomas

$regfile "m16def.dat"
$baud = 19200
$crystal = 1000000
$framesize = 64
$swstack = 64
$hwstack = 64
Config Timer1 = Timer , Prescale = 8 'timer f¸r Servos
Enable Timer1
Timer1 = 62535
Config Porta = Output
Porta.0 = 0 'hier haengt servo1
Porta.1 = 0 'hier haengt servo2
Porta.2 = 0 'hier haengt servo3
Porta.3 = 0 'hier haengt servo4

On Timer1 Servoirq 'servo

Enable Interrupts

Dim Kanal As Byte
Dim Servo(4) As Word 'min: 61535, mitte 62535, max 63535 = 2000 schritte

Do
Servo(1) = 61535 'Mitte
Servo(2) = 62535 'Mitte
Servo(3) = 63535 'Mitte
Servo(4) = 62535 'Mitte
Loop

Servoirq:
If Kanal = 0 Then
If Porta.0 = 0 Then 'wenn port low
Timer1 = Servo(1) 'dann timer auf entsprechende verzˆgerung
Porta.0 = 1 'und port anschalten
Else 'das hier passiert erst bei dem darauf folgenden interrupt
Porta.0 = 0 'dann port wieder ausschalten
Incr Kanal 'und den naechsten kanal bearbeiten
End If
End If
If Kanal = 1 Then
If Porta.1 = 0 Then
Timer1 = Servo(2)
Porta.1 = 1
Else
Porta.1 = 0
Incr Kanal
End If
End If
If Kanal = 2 Then
If Porta.2 = 0 Then
Timer1 = Servo(3)
Porta.2 = 1
Else
Porta.2 = 0
Incr Kanal
End If
End If
If Kanal = 3 Then
If Porta.3 = 0 Then
Timer1 = Servo(4)
Porta.3 = 1
Else
Porta.3 = 0
Incr Kanal
End If
End If

If Kanal = 4 Then
Timer1 = 2000 'eine pause von ca. 12ms bis zum nchsten interrupt. Bei guten Servos oder Brushlessreglern kann man hier bis auf 65530 gehen ==> ansteuerfrequenz von ~ 200Hz
Kanal = 0
End If
Return
End