RS-232 problem. Programm stürzt abundzu ab. Bitte um Hilfe!

[Accenter]

Ich habe meine Wohnungssteuerung erweitert um von unterwegs über das Iphone (Terminalprogramm und Ethernet/RS-232 Adapter) ein Logfile abrufen zu können.

Seit ich das eingefügt habe, kommt es zu Abstürzen. Ich vermute, dass mir der Input Puffer überläuft und das mit dem Befehl "Input" nicht wirklich gut gelöst ist in meinem Programm. Ich habe alles unwichtige aus dem Code gelöscht und hoffe, dass mir jemand sagen kann woran es liegen könnte.

Eventuell kommt es durch die Interrupts zu einem Problem. Das ist alles noch Neuland für mich. Habe auch einige Timer im Programm die interruptgesteuert beim überlauf Dinge erledigen. Eventuell kommt es hier zu konflikten?

Die Anforderung ist eigentlich ganz einfach. Kommt etwas über RS-232 rein (mit Enter abgeschlossen) soll per Interrupt in eine Subschleife gesprungen werden. Dort wird nachgesehen ob dieser Befehl bekannt ist.

Falls jemand einen Lauffägigen Code aus einer ähnlichen Anwendung hat würde ich mich sehr darüber freuen.

$regfile = "m128def.dat"
$crystal = 14745600
$hwstack = 650
$swstack = 650
$framesize = 650
$baud = 9600

Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 3 , Cd = 5 , Wr = 6 , Rd = 7 , Reset = 2 , Fs = 4 , Mode = 6
Waitms 200
Cursor Off
Cls

Config Debounce = 50                                        'mit 30 gabs nach Kabeländerung auf ungeschirmt Probleme, Selbsttriggerung der Glocken'
Config Watchdog = 2048

Config Porte.3 = Output                                     'ledrot'
Config Portc.1 = Output                                     'ledgrün'
'Config Portd.4 = Output                                     'software uart'
'Config Portd.5 = Output                                     'software uart'
Config Portd.6 = Output                                     'Sprechanlagenrelais'
Config Porte.2 = Output                                     'speaker'
Config Portb.6 = Output                                     'TFT/Cam'
Config Portb.7 = Output                                     'Display Beleuchtung PWM'
Config Portd.7 = Output                                     'Alarm scharf (Bewegungsmelder an)'
Config Porte.4 = Output                                     'Alarmblinklicht'

Config Pind.4 = Input                                       'Rauchmelderempfänger''
Config Ping.0 = Input                                       'Magnetschalter Türe'
Config Ping.1 = Input                                       'Transponder'
Config Ping.2 = Input                                       'Glockentasteroben'
Config Ping.4 = Input                                       'Optokoppler Glocke unten'
Config Pine.6 = Input                                       'Panzerriegel'
Config Pine.7 = Input                                       'Regensensor'
Config Pinb.3 = Input                                       'Fenster Wohnzimmer'
Config Pinb.4 = Input                                       'Fenster Küche'
Config Pinb.0 = Input                                       'Bewegungsmelder'

Ledrot Alias Porte.3                                        'Ausgänge Namenszuweisung'
Alarmblinklicht Alias Porte.4
Ledgruen Alias Portc.1
Sprechanlagenrelais Alias Portd.6
Tft Alias Portb.6
Speaker Alias Porte.2
Displaybeleuchtung Alias Portb.7
Alarmscharf Alias Portd.7

Magnetschalter Alias Ping.0                                 'Eingänge Namenszuweisung'
Transponder Alias Ping.1
Glockentasteroben Alias Ping.2
Glockentasterunten Alias Ping.4
Panzerriegel Alias Pine.6
Regensensor Alias Pine.7
Fensterwohnzimmer Alias Pinb.3
Fensterkueche Alias Pinb.4
Bewegungsmelder Alias Pinb.0
Rauchmelder Alias Pind.4

Portg.0 = 1                                                 'Magnetschalter Türe'       'Pullupwiderstände'
Portg.1 = 1                                                 'Transponder'
Portg.2 = 1                                                 'Glockentaster oben'
Portg.4 = 1                                                 'Optokoppler Glocke unten'
Porte.6 = 1                                                 'Panzerriegel magnetschalter'
Porte.7 = 1                                                 'Regensensor'
Portb.3 = 1                                                 'Fenster Wohnzimmer'
Portb.4 = 1                                                 'Fenster Küche'
Portb.0 = 1                                                 'Bewegungsmelder'


Config Adc = Single , Prescaler = Auto , Reference = Internal

Config Timer0 = Timer , Prescale = 256 : Config Timer1 = Timer , Prescale = 256
Config Timer2 = Timer , Prescale = 256 : Config Timer3 = Timer , Prescale = 256
Const Timer0preload = 100                                   'Texteinblendezeit Timer'
Const Timer1preload = 3036                                  'Warteschleifentimer, zum Hauptmenue zurück'
Const Timer3preload = 3036                                  'Kameraeinschaltzeit nach Glocke'

Const True = 1                                              'PWM Konfiguration für Displaybeleuchtung'
Const False = 0
Dim Hi As Byte , Lo As Byte , Phase As Bit
Lo = 150                                                    'Defaultwerte für Beleuchtung 0=hell 255=dunkel'
Phase = True

Const Faktor = 4940                                         '4940 Faktor Batterie Messung. Achtung nur 0-5V Messbereich!!!'
Const Faktor2 = 19960                                       '19460 Faktor für 12V Spannungsmessung über Spannungsteiler 10k und 3,3k (0,1%)'


Config Sda = Portd.1                                        'DS1307 wird konfiguriert'
Config Scl = Portd.0
I2cinit
Waitms 50
Dim Ds1307w As Byte , Ds1307r As Byte : Ds1307w = &B11010000 : Ds1307r = &B11010001

Softwareversion = "16.07.10"

Enable Ovf1 : Enable Ovf2 : Enable Ovf0 : Enable Ovf3
On Timer1 Hauptmenuesprungzeit
On Timer2 Displaybeleuchtungszeit
On Timer0 Texteinblendezeit
On Timer3 Kamerawartezeit
Stop Timer0 : Stop Timer1 : Start Timer2 : Stop Timer3

Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Config Serialin1 = Buffered , Size = 10 , Bytematch = 13
Config Serialout1 = Buffered , Size = 20
Declare Sub Serial1charmatch()
Open "Com2:" For Binary As #2
Empfang1 = "" : Empfang2 = ""
Clear Serialin1

Enable Interrupts
For Lo = 255 To 150 Step -1                                 'Display dimmt hoch'
Waitms 5
Hi = 255 - Lo
Next Lo
Wait 1



Gosub Linienaufbau
Gosub Hauptmenue
'Gosub Touchdisplaytest
Gosub Uhranzeige
Wait 4
Gosub Sendemailneuraufgefahren
Wait 1
'Gosub Logfile
Print #2 , "Bereit fuer Eingaben: " : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
Start Watchdog


'------------------------------------------------------------------------------------------'
'--------------------------   Hauptschleife  ----------------------------------------------'
'------------------------------------------------------------------------------------------'


Do


'Touchdisplayauswertung usw.'
Gosub Uhrzeitlesen
Reset Watchdog
Loop


'------------------------------------------------------------------------------------------'
'--------------------------   Sub Schleifen  ----------------------------------------------'
'------------------------------------------------------------------------------------------'


Sub Serial1charmatch()                                      'Datenempfang Von UART2 Putty Terminal iPhone von Unterwegs'
Pushall
Disable Int1
Reset Watchdog
Input #2 , Empfang2 Noecho                                  'Wenn über den UART was empfangen wird springt das Programm hier her über den Interrupt'
Popall
Waitms 50
Reset Watchdog
Print #2 , "Eingabe durch Benutzer : " ; Empfang2 : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
Gosub Loginauswertung
Clear Serialin1
Enable Int1
Empfang2 = ""
End Sub

Loginauswertung:
If Empfang2 = "1234" Then
If Menue = 1 And Empfang2 = "1234" Then
Textauswahl = 32 : Clearstatusfeld = 1 : Gosub Statustextanzeige : Gosub Timer0start
End If
Print #2 , "Administrator angemeldet" : Gosub Waitingtime
Print #2 , "Logfile wird geladen:" : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
Gosub Logfile
Unberechtigterzugrifsszaehler = 0
Else
Incr Unberechtigterzugrifsszaehler
If Unberechtigterzugrifsszaehler < 4 Then
If Menue = 1 Then
Textauswahl = 31 : Clearstatusfeld = 1 : Gosub Statustextanzeige : Gosub Timer0start
End If
Print #2 , "Unberechtigte Zugriffsversuche: " ; Unberechtigterzugrifsszaehler : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
Else
Print #2 , "Alarm Mail nach " ; Unberechtigterzugrifsszaehler : Gosub Waitingtime
Print #2 , "unberechtigten Eingaben geschickt." : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
If Menue = 1 Then
Textauswahl = 33 : Clearstatusfeld = 1 : Gosub Statustextanzeige : Gosub Timer0start
End If
Gosub Unberechtigtezugriffsversuche
Unberechtigterzugrifsszaehler = 0
End If
End If
Return

Logfile:
Gosub Spannungsmessung
Gosub Spannungsmessung2
Print #2 , " Letzter Login......: " ; Letzterlogin : Gosub Waitingtime
Letzterlogin = _wochentag + " " + Day_str + "." + _monat + " " + Hour_str + ":" + Min_str       'erst nach dem print neu berechnen da immer der letzte login angezeigt werden soll und nicht der diesmalige'
Print #2 , " Systemuhrzeit......: " ; Hour_str ; ":" ; Min_str ; ":" ; Sec_str : Gosub Waitingtime
Print #2 , " Datum..............: " ; _wochentag ; " " ; Day_str ; "." ; _monat ; " 20" ; Year_str : Gosub Waitingtime
Print #2 , " Letzter Start......: " ; Hochgefahrenseit : Gosub Waitingtime
Print #2 , " Gesendete Mails....: " ; Mailzaehler : Gosub Waitingtime
Print #2 , " Letzte Mail........: " ; Mailuhrzeitspeicher : Gosub Waitingtime
If Magnetschalter = 0 Then : Temp_str = "geschlossen" : Else : Temp_str = "offen" : End If
Print #2 , " Eingangstuere......: " ; Temp_str : Gosub Waitingtime
If Fensterwohnzimmer = 0 Then : Temp_str = "geschlossen" : Else : Temp_str = "offen" : End If
Print #2 , " Fenster Wohnz......: " ; Temp_str : Gosub Waitingtime
If Fensterkueche = 0 Then : Temp_str = "geschlossen" : Else : Temp_str = "offen" : End If
Print #2 , " Fenster Kueche.....: " ; Temp_str : Gosub Waitingtime
If Regensensor = 0 Then : Temp_str = "nass" : Else : Temp_str = "trocken" : End If
Print #2 , " Regensensor........: " ; Temp_str : Gosub Waitingtime
Print #2 , " Glocke in Abwesenh.: " ; Glockenlogrs232 : Gosub Waitingtime
If Panzerriegel = 0 Then : Temp_str = "verriegelt" : Else : Temp_str = "entriegelt" : End If
Print #2 , " Panzerriegel.......: " ; Temp_str : Gosub Waitingtime
If Alarmdisarmed = 0 Then : Temp_str = "scharf" : Else : Temp_str = "deaktiviert" : End If
Print #2 , " Alarmanlage........: " ; Temp_str : Gosub Waitingtime
Print #2 , " Letzte Alarmausl...: " ; Letztealarmausloesung_str : Gosub Waitingtime
Print #2 , " Batteriespannung...:" ; Spannunggesamt_str ; " V" : Gosub Waitingtime
Print #2 , " Versorgungssp......:" ; Spannunggesamt2_str ; " V" : Gosub Waitingtime
Print #2 , "" : Gosub Waitingtime
Empfang2 = ""
Return

Waitingtime:                                                'aufblinken der roten LED bei Empfang'
Reset Watchdog
Ledgruen = 0 : Ledrot = 1 : Waitms 20 : Ledrot = 0
Return

Rs232portbefehl:                                            'UART 3 Senden zum Empfaengerbaord'
Disable Int1
Open "comd.4:9600,8,n,1" For Output As #5                   'Port d.4 Software UART'
Print #5 , Portbefehl
Portbefehl = ""
Close #5
Enable Int1
Return

Rs232mailsenden:                                            'UART 4 Mailtext zum Crumb644'
Gosub Mailuhrzeit
Disable Int1                                                'disable interrupt nötig! sonst fehlerhafte zeichen in der mail'
Open "comd.5:115200,8,n,1" For Output As #7                 'UART 4 Port d.5 Software UART'     '115200 Baudarte nötig für Crumb644 Modul'
Print #7 , "M" ; ";" ; Mailbetreff ; ";" ; " Datum und Zeit des Ereignis: " ; Mailuhrzeitspeicher ; " " ; Mailtext
Close #7
Enable Int1
Return

Uhrzeitschreiben:                                           'Schreibe zeit und Datum in den DS1307'
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour) : _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cwbyte _sec : I2cwbyte _min : I2cwbyte _hour : I2cstop : I2cstart : I2cwbyte Ds1307w
I2cwbyte 3 : I2cwbyte _weekday : I2cwbyte _day : I2cwbyte _month : I2cwbyte _year : I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) : _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

Uhrzeitlesen:                                               'Lese Zeit und Datum aus dem DS1307'
I2cstart
I2cwbyte Ds1307w : I2cwbyte 0 : I2cstop : I2cstart : I2cwbyte Ds1307r : I2crbyte _sec , Ack : I2crbyte _min , Ack : I2crbyte _hour , Ack       'zusätzliches stop eingebaut 0710'
I2crbyte _weekday , Ack : I2crbyte _day , Ack : I2crbyte _month , Ack : I2crbyte _year , Nack : I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) : _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return



Displaybeleuchtungszeit:                                    'Displaybeleuchtung'
If Phase = True Then
Displaybeleuchtung = 1
Timer2 = Lo
Phase = False
Else
Displaybeleuchtung = 0
Timer2 = Hi
Phase = True
End If
Return

Hauptmenuesprungzeit:                                       'wartezeit in Sekunden um zum Hauptmenue zurückzukehren'
Incr Timecount
If Timecount > Menue1sprungzeit Then
Cleardisplay = 1 : Menue = 1
Stop Timer1 : Timecount = 0
Gosub Hauptmenue
Else
Timer1 = Timer1preload
End If
Return

Resettimer:
Stop Timer1 : Timer1 = Timer1preload : Timecount = 0
Return

Resettimer0:
Stop Timer0 : Timer0 = Timer0preload : Timecount0 = 0 : Clearstatusfeld = 0
Return

Timer0start:                                                'Texteinlbendezeit-Timer'
Start Timer0 : Timer0 = Timer0preload : Timecount0 = 0
Return

Texteinblendezeit:                                          'Texteinblendezeit'
Incr Timecount0
If Timecount0 > 1100 Then
Stop Timer0 : Timecount0 = 0 : Clearstatusfeld = 0
Else
Timer0 = Timer0preload : Clearstatusfeld = 1
End If
Return

Kamerawartezeit:
Incr Kamerawartezeitcount
If Kamerawartezeitcount > 59 Then                           'Cam nach einer Minute aus'
Stop Timer3 : Kamerawartezeitcount = 0 : Cam = 0
If Menue = 1 Then
Gosub Camknopfausspezial
Else
Timer3 = Timer3preload
End If
End If
Return



Statustextanzeige:
If Clearstatusfeld = 1 Then
Select Case Textauswahl
Case 0
Locate 15 , 1 : Lcd "                                             "
Case 1
If Cam = 1 Then
Locate 15 , 1 : Lcd "    Kamera wurde manuell aktiviert           "
End If
If Cam = 0 Then
Locate 15 , 1 : Lcd "    Kamera wurde manuell deaktiviert         "
End If
Case 3
Locate 15 , 1 : Lcd "              Setup Menue                    "
Case 5
Locate 15 , 1 : Lcd "          Glocke dauerhaft Ein               "
Case 6
Locate 15 , 1 : Lcd "          Glocke dauerhaft Aus               "
Case 9
Locate 15 , 1 : Lcd "   Uhrzeit wurde erfolgreich gestellt        "
Case 12
Locate 15 , 1 : Lcd "             Glocke unten                    "
Case 15
Locate 15 , 1 : Lcd "          Transponder erkannt                "
Case 19
Locate 15 , 1 : Lcd "      Triggere Videoserver Bildmail          "
Case 25
Locate 15 , 1 : Lcd "         Sende Intertechno Code              "
Case 26
Locate 15 , 1 : Lcd "         Sende Mail Glocke unten             "
Case 31
Locate 15 , 1 : Lcd " Unberechtigter Zugriffsversuch RS-232       "
Case 32
Locate 15 , 1 : Lcd "  Administrator ueber RS-232 erkannt         "
Case 33
Locate 15 , 1 : Lcd " Mail geschickt nach 3 Zugr. versuchen       "
Case 34
Locate 15 , 1 : Lcd "           Empfang an UART 1                 "
Case 35
Locate 15 , 1 : Lcd "           Empfang an UART 2                 "
End Select
End If
Clearstatusfeld = 0
Return

Uhranzeige:                                                 'Blendet Uhr und Datum oben am Display ein'
Gosub Uhrzeitlesen                                          'hole zeit aus DS1307'
Gosub Uhrumrechnung
If _sec > 60 Or _hour > 23 Or _min > 60 Then
Locate 1 , 2 : Lcd "Bitte Uhrzeit stellen im Menue Setup"
Return
End If
Locate 1 , 1 : Lcd "  " ; _wochentag ; " " ; Day_str ; "." ; _monat ; " 20" ; Year_str ; "             " ; Hour_str ; ":" ; Min_str ; ":" ; Sec_str ; "   "
Return


Readtouch:
Config Pinf.0 = Output
Config Pinf.2 = Output
Set Portf.0
Reset Portf.2
Ddrf.1 = 0
Ddrf.3 = 0
Waitms 2
Y = Getadc(3)
Y = 1024 - Y
Config Pinf.1 = Output
Config Pinf.3 = Output
Reset Portf.3
Set Portf.1
Ddrf.0 = 0
Ddrf.2 = 0
Waitms 2
X = Getadc(2)
X = 1024 - X
If Y > 305 Then
Displayberuehrt = 1
Y3 = Y - 346
Y2 = Y3 / 2.95
Y4 = Y2
Else
Y4 = 0
End If
If X > 155 Then
Displayberuehrt = 1
X3 = X - 149
X2 = X3 / 2.78
X4 = X2
Else
X4 = 0
Displayberuehrt = 0
End If
If Menue = 8 Then                                           'Im Touchfeldtest Menue wird ein Punkt gezeichnet und die koordinaten ausgegeben'
Locate 4 , 22
Lcd "Y-errechnet: " ; Y4 ; "  "
Locate 5 , 22
Lcd "X-errechnet: " ; X4 ; "  "
Locate 4 , 4
Lcd "Y-analog: " ; Y
Locate 5 , 4
Lcd "X-analog: " ; X
Pset X4 , Y4 , 255
End If
Return

Welchetastegross:                                           'wertet die grossen tasten aus'
Select Case X4
Case 20 To 80 : Zeile = 10
Case 90 To 150 : Zeile = 20
Case 160 To 220 : Zeile = 30
Case Else : Zeile = 0
End Select
Select Case Y4
Case 1 To 50 : Spalte = 1
Case 51 To 90 : Spalte = 2
Case 91 To 128 : Spalte = 3
Case Else : Spalte = 0
End Select
Gosub Keyarray
Return

Welchetasteklein:                                           'wertet die kleinen tasten aus'
Select Case X4
Case 15 To 44 : Zeile = 10
Case 45 To 74 : Zeile = 20
Case 75 To 104 : Zeile = 30
Case 105 To 134 : Zeile = 40
Case 135 To 164 : Zeile = 50
Case 165 To 193 : Zeile = 60
Case 195 To 224 : Zeile = 70
Case Else : Zeile = 0
End Select
Select Case Y4
Case 1 To 50 : Spalte = 4
Case 51 To 90 : Spalte = 5
Case 91 To 128 : Spalte = 6
Case Else : Spalte = 0
End Select
Gosub Keyarray
Return

Keyarray:
Key = Zeile + Spalte
If Key > 0 Then
Keyarray(keylus) = Key
Incr Keylus
If Keylus > 7 Then
Keylus = 0
If Keyarray(1) = Keyarray(2) Then
If Keyarray(2) = Keyarray(3) Then
If Keyarray(3) = Keyarray(4) Then
If Keyarray(4) = Keyarray(5) Then
If Keyarray(5) = Keyarray(6) Then
If Keyarray(6) = Keyarray(7) Then
Keypressed = Key
End If
End If
End If
End If
End If
End If
End If
End If
Return

Spannungsmessung:                                           'Batteriespannungsmessung'
Spannungsmesser = Getadc(6) : Gesamtsumme = Spannungsmesser * Faktor : Gesamtsumme = Gesamtsumme / 10000
Vorkomma = Gesamtsumme / 100 : Nachkomma = Gesamtsumme Mod 100
Vorkomma_str = Str(vorkomma) : Nachkomma_str = Str(nachkomma)
If Nachkomma <= 9 Then
Spannunggesamt_str = " " + Vorkomma_str + ",0" + Nachkomma_str
Else
Spannunggesamt_str = " " + Vorkomma_str + "," + Nachkomma_str
End If
Return

[for_ro]

Hallo Accenter,
dein Code ist nur sehr schwer zu lesen, weil keine Einrückungen drin sind.
Warum hast du die abgeschaltet? Dein Code wird auch leichter lesbar, wenn du bestimmte Blöcke wie Config, Dims, Konstanten und Alias usw. zusammenhältst. Versetze dich mal in unsere Situation. Wir kennen den Code nicht und so ist es zeitraubend, ihn richtig zu verstehen. Ich war schon kurz davor, einfach rauszugehen und nicht zu antworten.

In deiner Serial1CharMatch Routine machst du gleich zu Anfang ein Pushall und dann mittendrin ein Popall. Wieso steht das nicht am Ende der Sub?
Da diese Routine kein Interrupt ist, kann sie jederzeit von Interrupts unterbrochen werden. Den Int1 hast du ja disabled, aber die Timer Ints unterbrechen trotzdem. Speziell, wo du so lange Wartezeiten drin hast.

[Accenter]

Wie schalte ich das einrücken ein? Habe nichts bewusst abgeschalten, sorry.

Ich hab mit pushall und popall viel experimentiert. hatte das schon überall stehen. Daran lag es scheinbar nicht. irgendwo hab ich glesen, dass zwischen pushall und popall in keine Subroutinen gesprungen werden sollte, drum hab ich das dann so geändert. daran lags aber auch nicht.

[Richard]

Pop und push gehören immer als erster und letzter Befehl in einen
IRQ und auch nur in einer IRQ. Basic verwendet selber etliche
Register für seine Befehle man sollte daran denken...

Ich (glaube(?)) so etwas wie " ON com " ähnliches gelesen zu
haben, also einen IRQ durch die Serielle Schnittstelle auslösen.
Finde das aber nicht wieder. Input ist sehr schlecht weil das
ganze Programm Blockiert wird bin ein CR kommt besser
währe z.B. WAITKEY , ISCHARWAITING, INKEY.....

Gruß Richard

[Richard]

Alarmschleifen sollten immer mit einen Endwiderstand am Ende
der Alarmschleife versehen werden, so kann geprüft werden ob die
Linie Überbrückt (Kurzschluss) worden ist. Im der "Zentrale" kommt dann
ein 2. R der mit den Endwiderstand einen Spannungsteiler bildet.
Die Linie wird dann mittels ADC Eingang überwacht, am besten als
Komparator Eingang (geht aber auch softwaremäßig). Etwas "Spiel"
sollte eingeplant werden, ebenso eine kleine Verzögerung sonst
nervt das Teil dauernd.

Gruß Richard

[Accenter]

In meinem Fall springt das Programm nach dem CR sofort zu Serial1CharMatch und wertet aus was im Puffer ist. Zumindest verstehe ich das so. Das Programm wird also nicht wirklich angehalten dadurch.

Ich hatte jetzt mal alle Timmer aus dem Programm genommen, um zu sehen ob es daran lag. Leider besteht das Problem immer noch. Der Watchdog löst aus und ich hab nen Neustart.

Ich hatte gehofft, dass meine RS232 Auswertung eigentlich nichts besonderes ist und mir jemand mit einem Code helfen könnte.

Das ganze mit dem Input Befehl zu realisieren ist für mich deshalb wichtig, da ich mehrstellige Eingaben auswerten möchte.

[Accenter]

Die Alarmschleifen kann ich als Fehlerquelle ausschliessen (Die Alarmroutine ist deaktiviert bei meinen Tests) aber danke für den Tipp.

[Accenter]

Ich denke es hat was mit dem Puffer zu tun. Wenn ich eine zu lange Zeichenkette schicke hab ich sofort eine Watchdogauslösung. Sende ich nichts kommt es unvorhersehbar in unterschiedlichen zeitabständen zu Abstürzen.

[for_ro]

Wie schalte ich das einrücken ein? Habe nichts bewusst abgeschalten, sorry.

Kannst du unter Options -> Environment -> Editor und dort Autoindent einschalten.

Ich hab mit pushall und popall viel experimentiert. hatte das schon überall stehen. Daran lag es scheinbar nicht. irgendwo hab ich glesen, dass zwischen pushall und popall in keine Subroutinen gesprungen werden sollte, drum hab ich das dann so geändert. daran lags aber auch nicht.

Dann nimm doch mal die ganzen Auswertebefehle aus der Sub raus.

'------------------------------------------------------------------------------------------'
'--------------------------   Hauptschleife  ----------------------------------------------'
'------------------------------------------------------------------------------------------'


Do
'Touchdisplayauswertung usw.'
   Gosub Uhrzeitlesen
   Reset Watchdog
   If Received_flag = 1 Then
      Received_flag = 0
      Waitms 50
      Reset Watchdog
      Print #2 , "Eingabe durch Benutzer : " ; Empfang2 : Gosub Waitingtime
      Print #2 , "" : Gosub Waitingtime
      Gosub Loginauswertung
      Clear Serialin1
      Enable Int1
      Empfang2 = ""
   End If
Loop


'------------------------------------------------------------------------------------------'
'--------------------------   Sub Schleifen  ----------------------------------------------'
'------------------------------------------------------------------------------------------'


Serial1charmatch:                                     'Datenempfang Von UART2 Putty Terminal iPhone von Unterwegs'
   Pushall
   Disable Int1
   Reset Watchdog
   Input #2 , Empfang2 Noecho                                  'Wenn über den UART was empfangen wird springt das Programm hier her über den Interrupt'
   Received_flag = 1
   Popall
Return

Declare Sub Serial1charmatch()
kannst du dann übrigens weglassen und dann die Sub so schreiben wie oben.
Brauchst du eigentlich die ganzen Wartezeiten?
Warum benutzt du so viele :? Musst du Zeilen sparen?

Uhrzeitschreiben: 'Schreibe zeit und Datum in den DS1307'
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour) : _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart : I2cwbyte Ds1307w : I2cwbyte 0 : I2cwbyte _sec : I2cwbyte _min : I2cwbyte _hour : I2cstop : I2cstart : I2cwbyte Ds1307w
I2cwbyte 3 : I2cwbyte _weekday : I2cwbyte _day : I2cwbyte _month : I2cwbyte _year : I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) : _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return

ich finde dies viel leichter zu lesen

Uhrzeitschreiben:                                           'Schreibe zeit und Datum in den DS1307'
   _sec = Makebcd(_sec)
   _min = Makebcd(_min)
   _hour = Makebcd(_hour)
   _day = Makebcd(_day)
   _month = Makebcd(_month)
   _year = Makebcd(_year)

   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 0
   I2cwbyte _sec
   I2cwbyte _min
   I2cwbyte _hour
   I2cstop
   I2cstart
   I2cwbyte Ds1307w
   I2cwbyte 3
   I2cwbyte _weekday
   I2cwbyte _day
   I2cwbyte _month
   I2cwbyte _year
   I2cstop

   _sec = Makedec(_sec)
   _min = Makedec(_min)
   _hour = Makedec(_hour)
   _day = Makedec(_day)
   _month = Makedec(_month)
   _year = Makedec(_year)
Return

Wenn ich eine zu lange Zeichenkette schicke hab ich sofort eine Watchdogauslösung. Sende ich nichts kommt es unvorhersehbar in unterschiedlichen zeitabständen zu Abstürzen.

Ein Watchdog ist ja kein Absturz, sondern eine vorgegebene Aktion im Falle einer Zeitüberschreitung.
Dein Watchdog steht auf 2048. D.h. wenn 2000ms kein Reset Watchdog kommt, resettet der µC. Schau dir mal die Länge deiner Auswertung, speziell die Lofile Routine. Die braucht doch bestimmt länger als 2s zur Ausführung.
Wo sind eigentlich die ganzen Dims und die fehlenden Deklarationen wie Spannungsmessung2?

Pop und push gehören immer als erster und letzter Befehl in einen
IRQ und auch nur in einer IRQ. Basic verwendet selber etliche
Register für seine Befehle man sollte daran denken...

Serial1CharMatch ist keine IRQ, aber er hat schon recht, so steht es in der Hilfe zu Config Serialin.

[Richard]

In meinem Fall springt das Programm nach dem CR sofort zu Serial1CharMatch und wertet aus was im Puffer ist. Zumindest verstehe ich das so. Das Programm wird also nicht wirklich angehalten dadurch.

Das Programm wartet nach dem Input Befehl aber sooooo lange bis
auch ein CR ankommt. INKEY z.B. braucht kein CR. Wenn dein Programm
input ausführt und es kommt kein CR weil Du halt nichts sedest..wird
Deine Alarmanlage und auch der rest vom Prog stillgelegt.

Einfach ein Reset auslösen halte ich für Overkill...

Der Hinweis auf die Alarmschleifen war nur allgemein, deshalb auch
als extra Post.

Gruß Richard