Habe jetzt Folgenden Code.
Sender
Code:
$regfile = "m32def.dat"
$crystal = 1000000
$framesize = 32
$swstack = 32
$hwstack = 32

    Dim A As Word
    Config Porta = Output                                   'Ausgänge für die LEDs der Taster
    Config Portd = Input                                    'Taster eingänge
    Portd = &B11111111

Config Debounce = 100
Open "ComB.0:2400,8,N,1,inverted" For Output As #1

Do
Debounce Pind.0 , 0 , Rot , Sub
Debounce Pind.1 , 0 , Gruen , Sub
Debounce Pind.2 , 0 , Blau , Sub
Debounce Pind.3 , 0 , Gelb , Sub
Debounce Pind.4 , 0 , Weiss , Sub

If Pind.5 = 0 Then                                          'Keine LED an Porta nur als Ausgang.
Porta.5 = 1
Else
Porta.5 = 0
End If

If Pind.6 = 0 Then                                          ' nur Ausgang
Porta.6 = 1
Else
Porta.6 = 0
End If

If Pind.7 = 0 Then                                          ' nur Ausgang
Porta.7 = 1
Else
Porta.7 = 0
End If

 Printbin #1 , Porta


 Close #1

Loop

Rot:
Toggle Porta.0
Return

Gruen:
Toggle Porta.1
Return

Blau:
Toggle Porta.2
Return

Gelb:
Toggle Porta.3
Return

Weiss:
Toggle Porta.4
Return

End
Empfänger
Code:
'*******Empfänger*************************************
$regfile = "m32def.dat"
$crystal = 7372800
$framesize = 32
$swstack = 32
$hwstack = 70

Dim A As Word
Ddra = &B11111111


Open "ComB.0:2400,8,N,1,inverted" For Input As #

On URXC Uart_Isr
Enable URXC
Enable Interrupts
End



 Do
  UART_Isr:
PortA = UDR
Return



Loop


Close #1

End

Kannst du mir beim Empfänger Helfen?
Ich bekomme nur Fehlermeldungen beim Kompilieren.

Vielen Dank