Hi!

Vieeelen vieeelen Dank!! \ Bild  /
Jetzt funzt alles!
Hier der Code für Interessenten:
Code:
$regfile "m32def.dat"
$crystal = 16000000
$baud = 9600

Config Pinc.0 = Output
Config Pinc.1 = Output

Dim A As Byte
Dim B As String * 4
Dim C As String * 1
Dim D As String * 3
Dim E As Byte
On Urxc Onrxd
Enable Urxc
Enable Interrupts

Config Servos = 2 , Servo1 = Portc.0 , Servo2 = Portc.1 , Reload = 8

A = 128

Servo(1) = A
Servo(2) = A

' ---------------------------------------------
Do
  If Len(b) = 4 Then
    C = Left(b , 1)
    D = Right(b , 3)
    E = Val(d)

     Select Case C
      Case "l"
       Servo(1) = E
       Print E

      Case "r"
       Servo(2) = E
      Case Else
      Print "Unbekannter Befehl!"

     End Select

    B = ""

  End If

Loop
End

' ---------------------------------------------
Onrxd:
  B = B + Chr(udr)
Return
Gruß
Charly