Bascom -- Input mit Buffer

[Daniel (Gast)]

Hallo zusammen,

ich versuche Bytes über die serielle Schnittstelle einzulesen. Diese
Daten kommen regelmäßig aus derm Empfänger einer Wetterstation.
Der folgende Test-Code läuft, die Zeichen werden auf dem LCD
dargestellt.
$crystal = 1000000
$regfile = "m8def.dat"
$baud = 1200
On Urxc Rx
Enable Urxc
Enable Interrupts
Dim Temp_byte As Byte
Dim I As Integer
'----------------------------------------------------------
' Hauptprogramm
'----------------------------------------------------------
Cls
Lcd "Test"
Wait 1
Do
  I = I + 1
  Cls
  Lcd Temp_byte
  Lowerline
  Lcd I
  Waitms 300
Loop
End
'----------------------------------------------------------
' ISR
'----------------------------------------------------------
Rx:
Temp_byte = Udr
Return

Ich würde jedoch gerne mit Buffer arbeiten.
Bei diesem Codebeispiel kommt immer die "0" zurück, was bedeuten
soll, dass der Buffer leer ist.

$crystal = 1000000
$regfile = "m8def.dat"
$baud = 1200
Dim Temp_byte As Byte
Dim I As Integer

Config Serialin = Buffered , Size = 20

'----------------------------------------------------------
' Hauptprogramm
'----------------------------------------------------------
Cls
Lcd "Test"
Wait 1
Do
  I = I + 1
  Cls
  Temp_byte = Inkey()
  Lcd Temp_byte
  Lowerline
  Lcd I
  Waitms 300
Loop
End

Hat jemand eine Idee, wo der Fehler liegen könnte ??
Vielen Dank !!!

Daniel