Also, ich habe nun folgendes gemacht. Erst mal gerfagt ob etwas kommt, und dann das 8te bit abgefragt, ob es gesetzt ist. Danach die nächsten 2 bytes geholt. Aber irgendwie klappt es nicht richtig..........??????????



$regfile = "m16def.dat"
$crystal = 12000000
$baud = 31250

Dim I(3) As Byte

Cls

Do
If Usr.rxc = 1 Then
I(1) = Udr
If I(1).8 = 1 Then
I(2) = Udr
I(3) = Udr

Locate 1 , 1
Lcd Bin(i(1))
Locate 2 , 1
Lcd I(2)
Locate 3 , 1
Lcd I(3)
End If
End If
Loop
End