hallo

Habe noch folgendes Problem

die Daten kommen so rein es sieht so aus als ob der Atmega nicht
hinterher kommt

GPGGA,235947.000,0000.0000,N,0000.0000,E,017*00
,071000,,*1C
,M,,N,,K*4E
GPGGA,235947.000,0000.0000,N,0000.0000,E,0170
,,,071000,,*1C
,,N,,K*4E
GPGGA,235947.000,0000.0000,N,0000.0000,E,01700
,,071000,,*1C
M,,N,,K*4E
GPGGA,235947.000,0000.0000,N,0000.0000,E,017038,M ,,,,0000*00
000,*4C
C,235947.000,V,0000.0000,N,0000.0000,E,,,017*1C
GPGGA,235947.000,0000.0000,N,0000.0000,E,017038
,071000,,*1C
,M,,N,,K*4E
GPGGA,235947.000,0000.0000,N,0000.0000,E,01703800 0*00
0,,*1C
TG,,T,,M,,N,,K*4E

$regfile = "m128def.dat"
$crystal = 16000000
$baud = 4800
$baud1 = 4800

On Urxc Onrxd 'InterruptRoutine setzen
Enable Urxc 'Interupt URXC einschalten
Enable Interrupts


Dim Buffer As Byte
Dim Str1 As String * 30
Dim Counter As Byte

Open "COM1:" For Binary As #1
Open "COM2:" For Binary As #2

Do
Loop


Onrxd:
Buffer = Udr


Select Case Buffer
Case Asc( "$")
Str1 = ""
Case 13
Counter = 1
Case Else
Str1 = Str1 + Chr(buffer)
End Select

If Counter = 1 Then

Print #2 , Str1
Str1 = ""
Buffer = ""
Counter = 0
End If
Return



sollte aber mit anfang $ und ende line feed das scheint ja zu klappen
aber das $ nicht.

hat jemand eine idee mit Bascom


vielen dank