Mega128 UART geht nicht

[bertl100]

Hallo AVR Fan´s !

Ich hab schon diverse Beiträge zum 2. UART des Mega128 gelesen.
Blöderweise klappt das bei mir nicht mit den 2. UART
Komischerweise gehts im Simulator mit dem standard UART, aber der 2. gibt nie was aus.
Es kommt auch immer nur folgendes Zeichen aus dem UART.
IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIII





könnt ihr mir helfen?




$regfile = "m128def.dat"
$crystal = 40000000
$baud=9699
$baud1=9600


Dim Var As Byte
Dim Var2 As Byte
Var = 1
Var2 = 2


Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0

Schleife:
Open "Com2:" For Binary As #2
Printbin #2 , Var
Close #2

Open "Com1:" For Binary As #1
Printbin #1 , Var2
Close #1

Goto Schleife

End

[pebisoft]

schau mal in der bascomhilfe.
du brauchst glaube ich nur schreiben:
open "comd2:" for binary as #2
d2 ist dann der pin am avr.
mfg pebisoft

[bertl100]

"comd.2:" kann ich nur bei Software UART verwenden.
Bei den Hardware UARD´s muß es irgendwie mir "com1:" bzw "com2:"
funktionieren.
Wenn jemand einen funktionierenden Beispielcode hätte, wäre ich zu Dank verpflichtet.

[bertl100]

Hat keiner eine Idee?
Ich bräuchte die UART zur kommunikation zum PC, sonst komm ich nicht weiter

[Marco78]

Ein Beispiel dafür liefert BASCOM sogar mit ;)
m128.bas

Sind die 9699 Bauds gewollt? Evtl ist das ja schon der Fehler?