Bitte sehr:
Code:
$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus
$regfile = "m16def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600

Config Pind.5 = Output
Led Alias Portd.5


Config Servos = 1 , Servo1 = Portd.4 , Reload = 10
Config Portd = Output

Enable Interrupts

Wait 2


Dim X As Integer


Do
       'Darauf warten dass irgendwas gesendet wird
      Input X

      If X > 29 Then
         If X < 161 Then
                 Servo(1) = X
                 X = 0
         End If
      End If

      If X = 255 Then
         Led = 0
      End If

      If X = 256 Then
         Led = 1
      End If

      Print  X
Loop
Die nun verwendete Hardware UART liegt auf den Pins RXD und TXD.