Hard-und Software Uart zwischen zwei ATmega8, Empfang funktioniert nicht: (Bascom)

[Matthias B. (matthias_b14)]

Hallo

Ich ärger mich heut schon den ganzen Tag mit der Software Uart rum. Ich 
möchte mit meinem Programm Daten via RS232 vom PC empfangen sowie 
auswerten und danach kommandos als String über die Software-Uart an den 
zweiten ATMega8 schicken. Das senden klappt dabei problemlos, die 
Zeichen werden via SoftwareUART übertragen. Der Slave scheint auch etwas 
zu empfangen.
Das Problem welches ich nun habe ist jedoch das von der übertragenen 
Zeichenkette scheinbare kein Byte außer <CR> ankommt. Habe mal nen HTerm 
schirm rangehangen zum nachvollziehen. Gesendet wurde immer "#001adr".

Der code des Masters:

 $regfile = "m8def.dat"
 $crystal = 8000000
 $hwstack = 100
 $swstack = 100
 $framesize = 100
 $baud = 9600

 Declare Sub Serial0charmatch()
 Declare Sub Antwortavr()
 Declare Sub Cmdadr()

'########[ Variables ]#####################################################
  Dim New_command As String * 10 , A As String * 3 , Command As String * 3
  Dim Antwort As String * 10

'########[ Constants ]#####################################################
 Const Adresse = "001"

'########[ Hardware Configuration ]########################################
 Config Portd.4 = Output
 Senden Alias Portd.4
 Config Serialin = Buffered , Size = 10 , Bytematch = 13

'########[ Initialisation ]################################################
 Open "comd.6:9600,8,N,1" For Output As #1                  'TXD
 Open "comd.7:9600,8,N,1" For Input As #2                   'RXD
 Enable Interrupts
 Senden = 0

'########[ Main Code ]#####################################################
Do
!nop
Loop
End

'########[ Subroutines ]###################################################
 Sub Serial0charmatch()
   Input New_command Noecho
   Clear Serialin
   If Instr(new_command , "#") = 1 Then    'Suchen nach Startzeichen (#)
      A = Mid(new_command , 2 , 3)         'Abtrennen der Adresse
      Command = Mid(new_command , 5 , 3)   'Abtrennen des Befehls
      Command = Ucase(command)             'Umwandeln in Großbuchstaben

      Select Case A
         Case Adresse
            Select Case Command             'Selektion nach kommando
               Case "ADR"
                    Call Cmdadr
            Case Else
               Print "Unbekanntes Kommando"
               End Select
         Case Else
               Print "Unbekannte Adresse"
      End Select

   A = "" : Command = ""

   Else
   New_command = ""

   End If
 End Sub


 Sub Cmdadr()
 Senden = 1
   Print #1 , A + Command
   Print "gesendet: " ; A + Command
 Senden = 0
   Call Antwortavr
 End Sub


 Sub Antwortavr()
  Input #2 , Antwort
  Print "Antwort von AVR: " ; Antwort   'Antwort von AVR an RS232 übergeben
 End Sub

und hier der Code des Slave:

$regfile = "m8def.dat"
 $crystal = 8000000
 $hwstack = 100
 $swstack = 100
 $framesize = 100
 $baud = 9600

 Declare Sub Serial0charmatch()

'########[ Variables ]#####################################################
 Dim New_command As String * 10

'########[ Hardware Configuration ]########################################
 Config Serialin = Buffered , Size = 10 , Bytematch = 13
 Config Portb.0 = Output
 Enable Interrupts

'########[ Main Code ]#####################################################
Do
!nop
Loop
End

'########[ Subroutines ]###################################################
Sub Serial0charmatch()
Toggle Portb.0                       'anzeigen ob etwas empfangen wurde
   Waitms 100
   Input New_command Noecho          'Einlesen in new_command

   Print "Empfangen: " ; New_command         'Ausgabe zur kontrolle

 End Sub

Der Printbefehl des slave liefert immer nur "Empfangen: " zurück. 
Kommentiere ich die waitms 100 zeile aus, erhalte ich gar keine Antwort.
Warum enthält er nicht auch die entsprechenden Kommendos? Was habe ich 
falsch konfiguriert? Kann mir bitte jemand helfen?

[xfred (Gast)]

wh. sendest du CR+LF, sodass dann nur das LF empfangen wird

[Matthias B. (matthias_b14)]

> wh. sendest du CR+LF, sodass dann nur das LF empfangen wird

Nun wenn das das problem ist weiß ich aber dummerweise nicht wie ich das 
abstellen kann das <CR><LF> gesendet werden. Könnte mir da jemand bitte 
einen Tipp geben. Ich hab jetzt beim Slave auch schon versucht Bytematch 
auf 10 zu setzen, Ergebnis ist exakt das selbe:(.

[weinbauer (Gast)]

<cr><lf> unterdrückst DU indem Du am Ende der Printanweisung ein 
Semikolon ";" setzt.

Prints haben in der ISR aber nicht viel zu suchen, ... ohne CR geht aber 
auch der Input nicht, der braucht das Endzeichen oder nen $timeout, 
sonst hängt die Geschichte im Input bis in alle Ewigkeit

[weinbauer (Gast)]

was ich auch nicht sehe ... wo ist denn das Call Serial0charmatch() ??

[Matthias B. (matthias_b14)]

weinbauer schrieb:
> was ich auch nicht sehe ... wo ist denn das Call Serial0charmatch() ??

Nun das brauche ich in dem Fall nicht weil ich gepuffert einlese. Beim 
Config wurde der Bytematch auf 13 gesetzt. Das bedeutet das das Programm 
sobald chr(13) (bzw. <CR>) empfangen wird zu Serial0charmatch() hüpft 
und dort den zuvor gepufferten String in die Variable new_command 
schreibt. Das klappt beim Master auch wunderbar nur leider habe ich bei 
Slave das problem das der Puffer leer zu sein scheint:(.
Ich vermute mitlerweile das ich aus irgend einen Grund <CR> vor dem 
eigentliche String an den Slave schicke und dieser daraufhin 
unterbricht. Da aber außer dem <CR> nix weiter im Sendepuffer vorhanden 
ist bleibt die variable new_command des slave leer. Alle weiteren 
zeichen die noch rein rauschen würden dann vermutlich übersehen 
werden... Kann das sein? Wenn dem so ist ha einer nen konkreten Tipp wie 
man das verhindert bzw. erstmal prüfen kann (Habe keiin Oszi;))? Danke 
weiterhin:).

[rs232 master (Gast)]

Hallo,

mach das alles nochmal neu und dann auch gleich "richtig" über reine 
Interruptsteuerung.

Wie man es sauber und strukturiert macht erklärt
http://www.rowalt.de/mc/index.htm

im Kapitel "Einführung 6".

Ferner solltetst Du den Empfänger und den Sender erst einmal gegen ein 
Terminalprogramm kommunizieren lassen.
Das hilft sehr beim debuggen und Du kannst schrittweise vorgehen und 
Fehler vermeiden.

Serielle Kommunikation benötigt sauberes Grundlagenwissen und eine 
konzentrierte Herangehensweise mit einem klaren Konzept !


LG