edit:

Hallo zusammen,

nach dem Ansatz von for_ro habe ich noch ein wenig weiter gesucht und eine Funktion gefunden.
Ich stelle die hier allen zur Verfügung die ein ähnliches Problem haben wie ich:


Code:
 $regfile = "m8def.dat"
 $crystal = 7372800
 $baud = 9600


 Dim S As String * 10
 Dim B(11) As Byte At S Overlay
 Dim N As Byte

 On Urxc Onrxd
 Enable Urxc
 Enable Interrupts



Main:

   If N > 9 Then
         Print S
         N = 0
         End If

   Goto Main




Onrxd:
Incr N
 B(n) = Udr
Return
\/ \/