BASCOM Rxc i Udr

[siekierzyński]

W jaki sposób sprawdzić flagę Rxc i przepisać zawartość Udr do Odbior?
Będę też chciał odczytywać RXB8 (9-bitowa transmisja). Na TEJ stronie jest napisane, że trzeba najpierw odczytać RXB8 a dopiero potem Udr. Czy to prawda?

Kod: Zaznacz cały

$regfile = "m32def.dat"
$crystal = 18432000
$baud = 115200

Dim Flaga As Byte , Odbior As Byte


Do
   Flaga = Rxc
   If Flaga = 1 Then
      Odbior = Udr
       Print Odbior
       Udr = 0
   End If
Loop

End

EDIT:

Znalazłem:

Kod: Zaznacz cały

Dim Flaga As Bit , 9bit As Bit , Odbior As Byte

Dim My_word_var As Word

Do
   Flaga = Ucsra.rxc
   If Flaga = 1 Then
      9bit = UCSRB.RXB8
      Odbior = Udr
      Print Odbior ; 9bit
   End If
Loop

Musze poszukać jakiegoś programu do wysyłki 9 bitowych danych.