Liebes Doktor Sommer Team ,
ich bin vor kurzen von Pic (Assembler) auf Atmel (Bascom) umgestiegen, nach einigen Tests mit dem Hardware UART wollte ich mit dem Software UART spielen. Habe ein Program geschrieben mit dem ich jede Sekunde "Start" auf die Serielle Schnittstelle schreibe. Dann wollte ich die Empfangsleitung testen indem ich inkey prüfe und eine LED aufleuchten lasse wenn Daten da sind, aber das funktioniert nicht.
Mein Programm sieht so aus.
Code:
$regfile = "m8def.dat"
$crystal = 8000000
Baud = 19200

$hwstack = 32                                         
$swstack = 10                                       
$framesize = 40                       

Config Portd.5 = Output
Config Portd.6 = Output

Open "comc.1:19200,8,N,1" For Output As #1
Open "comc.0:19200,8,N,1" For Input As #2

Led Alias Portd.5

Dim B As Byte
Dim W As Byte

Enable Interrupts
Do
Print #1 , W
W = W + 1

B = Inkey(#2)
If B > 0 Then
   Led = 1
End If
Wait 1
Led = 0
Loop

end
Code Tags eingefügt (Dr.Sommer)

Das senden funktioniert ohne Probleme nur ich bekomme die LED nicht zum blinken bringen. Wenn ich inkey mit waitkey austausche klappt es, aber das hilft mir nicht weiter.
Währe nett wenn jemand eine idee hätte was es sein kann.

Grüße Denis