Initialisierung von USART mit Bascom (ATMega1284P)

[Tobi1970]

Die Initialisierung des USB macht normal der PC. Vom AVR wird dieser einfach wie eine UART angesprochen.
Wie so oft nur aus dem Kopf, sollte aber so gehen.

$baud = 19200 'für1.UART
$baud1 = 19200 'für 2. UART
dim b1 as byte
dim b2 as byte
Open "com2:" For Binary As #2 'für die 2. UART diese öffnen
'Beispiel um angekommenes der einen UART auf der anderen auszugeben. z.B. als Baudratenwandler
do
If Ischarwaiting() = 1 Then
   B2 = Inkey() 'Empfang auf UART 1
   Print #2 , chr(b2); ' Ausgabe auf UART 2
end if

If Ischarwaiting(#2) = 1 Then
   B1 = Inkey(#2) 'Empfang auf UART 2
   Print chr(b1); ' Ausgabe auf UART 1
end if
loop
end

Hallo peterfido, und Danke für Deine schnelle Antwort!!
Auch wenn mir dein Beispielcode noch nichts auf mein Terminalprogramm gezaubert hat, lenkt es mich vielleicht
in die richtige Richtung. Und sehr gerne nehme ich natürlich auch weitere Hilfe an!

P.S auf meinem Board sieht es porttechnisch so aus...vielleicht macht es das für die Umsetzung in Bascom etwas leichter für den Erfahrenen...
Die Ports PD.2 (RXD1) und PD.3 (TXD1) sind direkt mit der USB to UART-Bridge verbunden.