hm habe mal den Header auf meinen 32er angepasst allerdings kommt nix an
'0011.BAS: Einfacher String-Empfang
$regfile = "m32def.dat"
$crystal = 160000
$Baud = 9600
Dim S As String * 1
On URXC On RxD
Enable URXC
Enable Interrupts
Main:
If Len(s) > 1 Then
Print s
s = ""
End If
Goto Main
On RxD:
s = s + Chr(UDR)
Return
Lesezeichen