Hi nochmals vielen Dank für die super Erklärungen!
Also das mit dem extrem hohen Frame hat mich auch sehr verwundert. Ich habe auch meinen Denkfehler dabei gefunden. Wenn man die Lib "stackchek" von Bascom verwendet bekommt man nicht den belegten Frame angezeigt, sondern den Speicher der noch frei ist!!!!!
Ich habe inzwischen die Stack-Werte wieder auf ein normales Level heruntergeschraubt.
Und ich habe endlich die Zeit gefunden und mein Programm nochmal vernünftig auf das wesentliche mit allen Deklarationen zu reduzieren.
Ich hoffe Ihr könnt da jetzt besser was rauslesen?Code:$regfile = "M1284pdef.dat" ' In den Fusebits wurde der externe Oszillator für 18,432MHz ausgewählt $crystal = 18432000 $hwstack = 100 ' Standard 42 $swstack = 100 ' Standard 40 $framesize = 200 ' Standard 40 Const _my_framesize = 200 $lib "stackcheck.lib" $hwcheck ' hw stack check ein $framecheck ' frame check ein $softcheck ' sw stack check ein ' Baudrate für den ersten seriellen Port $baud = 9600 ' Baudrate für den zweitern seriellen Port $baud1 = 9600 ' Analog Comparator ausschalten ACSR.ACD = 1 Stop Ac ' Watchdog ausschalten Stop Watchdog ' Echo aus Echo Off ' Interrupts global zulassen Enable Interrupts ' KONFIGURATION ' Com1 auf 8 Bit Modus konfigurieren Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 ' Com2 auf 8 Bit Modus konfigurieren Config Com2 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 ' Öffnen der ersten Com-Schnittstelle Open "COM1:" For Binary As #1 ' Öffnen der zweiten Com-Schnittstelle Open "COM2:" For Binary As #2 ' Empfangspuffer UART Config Serialin = Buffered , Size = 100 ' Sendepuffer UART Config Serialout = Buffered , Size = 100 ' Empfangspuffer UART1 Config Serialin1 = Buffered , Size = 100 ' Sendepuffer UART1 Config Serialout1 = Buffered , Size = 100 Const Adc_multi = 0.0025 ' = 2,56V / 1024bit Config Adc = Single , Prescaler = Auto , Reference = Internal_2.56 ' Es wird die interne Referenzspannung von 2,56V ausgewählt Start Adc ' TIMER KONFIGURIEREN 'Const Timsk = Timsk0 Config Timer0 = Timer , Prescale = 1024 ' Timer konfigurieren On Timer0 Timerroutine0 ' Timerinterrupt Subroutine zuweisen Enable Timer0 ' Timer aktivieren Stop Timer0 ' Timer stoppen Config Timer1 = Timer , Prescale = 1024 ' Timer konfigurieren On Timer1 Timerroutine1 ' Timerinterrupt Subroutine zuweisen Enable Timer1 ' Timer aktivieren Stop Timer1 ' Timer stoppen Config Timer2 = Timer , Prescale = 1024 ' Timer konfigurieren On Timer2 Timerroutine2 ' Timerinterrupt Subroutine zuweisen Enable Timer2 ' Timer aktivieren Stop Timer2 ' Timer stoppen Config Timer3 = Timer , Prescale = 1024 ' Timer konfigurieren On Timer3 Timerroutine3 ' Timerinterrupt Subroutine zuweisen Enable Timer3 ' Timer aktivieren Stop Timer3 ' Timer stoppen ' SUB'S DEKLARIEREN Declare Sub Zykluszeitmessung Declare Sub R_bus_kommunikation Declare Sub Timerueberlauf0 Declare Sub Timerueberlauf1 Declare Sub Timerueberlauf2 Declare Sub Timerueberlauf3 Declare Sub Stackbelegungmessung ' VARIABLENDEKLARATION ' Schleifenzähler Dim I As Byte Dim I1 As Byte Dim I2 As Byte Dim Kartenadresse As Byte Dim Pruef_kartenadresse As Byte Dim Anzahl_karten As Integer Anzahl_karten = 2 Dim Aktuelle_karte As Integer Aktuelle_karte = 1 ' Teilnehmer/Karten Speicherbereiche Dim R_bus_empfangsarray(5) As Byte Dim R_bus_sendearray(5) As Byte Dim R_bus_empfangene_zieladresse As Byte Dim R_bus_empfangene_quelladresse As Byte Dim R_bus_status As Byte Dim R_bus_schritt As Byte R_bus_schritt = 1 Dim R_bus_fehlertyp As Integer Dim R_bus_diagnosemodus As Bit Dim R_bus_gesperrt As Bit Dim R_bus_kein_teilnehmer As Bit Dim R_bus_fehler As Bit Dim R_bus_karten_fehler As Bit Dim R_bus_konfig_fehler As Bit Dim R_bus_konfig_fehler_position As Integer Dim Err_falscher_teilnehmer As Bit Dim Err_fehlende_antwort As Bit Dim Err_falsche_protokolllaenge As Bit Dim Err_falscher_telegrammkopf As Bit Dim Err_falsche_checksumme As Bit ' Timer Reloadwerte festlegen (für 16Bit Timer1 u. 3 mit Prescaler 1024 bei 18,432MHz) Dim Reload_1s As Word Reload_1s = 47536 Dim Reload_500ms As Word Reload_500ms = 56536 Dim Reload_250ms As Word Reload_250ms = 61036 Dim Reload_150ms As Word Reload_150ms = 62836 ' Zykluszeit Messung 'Const Zeitmessung_divident = 18000 ' 18432000 MHz / 1024 Prescaler 'Dim Zeitmessung_zeit As Single Dim Zeitmessung_timer_ueberlauf As Bit Dim Zeitmessung_reloadwert As Word Dim Zeitmessung_ticks_start As Integer Dim Zeitmessung_ticks_ende As Integer Dim Zeitmessung_letzter_ueberlauf As Bit Dim Zeitmessung_vergangene_ticks As Integer Dim Zeitmessung_aktiv As Bit ' Timerflags Dim Timerflag0 As Bit Dim Timerstatus0 As Bit Dim Timerflag1 As Bit Dim Timerstatus1 As Bit Dim Timerflag2 As Bit Dim Timerstatus2 As Bit Dim Timerflag3 As Bit Dim Timerstatus3 As Bit ' Stackbelegung Messung Dim Hwstack_belegung As Word Dim Swstack_belegung As Word Dim Frame_belegung As Word ' Zu beginn S-Bus / R-Bus Eingangs- / Ausgangspuffer leeren Clear Serialin Clear Serialout Clear Serialin1 Clear Serialout1 ' HAUPTSCHLEIFE Do ' R-BUS KOMMUNIKATION Call R_bus_kommunikation ' ZYKLUSZEIT MESSEN Call Zykluszeitmessung 'STACKBELEGUNG MESSEN Call Stackbelegungmessung ' TIMER0 If Timerflag0 = 1 Then Timerflag0 = 0 ' Call Timerueberlauf0 End If ' TIMER1 If Timerflag1 = 1 Then Timerflag1 = 0 ' Call Timerueberlauf1 End If ' TIMER2 If Timerflag2 = 1 Then Timerflag2 = 0 ' Call Timerueberlauf2 End If ' TIMER3 If Timerflag3 = 1 Then Timerflag3 = 0 ' Call Timerueberlauf3 End If Loop ' R-BUS KOMMUNIKATION Sub R_bus_kommunikation ' RINGABFRAGE DER TEILNEHMER Select Case R_bus_schritt Case 1: ' KARTE ANSPRECHEN ' Eingangs- / Ausgangspuffer löschen Clear Serialin1 Clear Serialout1 ' Timer zurücksetzen bzw. auf neuen Startwert einstellen (1s) Timer1 = Reload_1s Timerflag1 = 0 Timerstatus1 = 1 ' Watchdogtimer starten Start Timer1 ' Sendedaten und Kartenadresse zuordnen Select Case Aktuelle_karte Case 1 : Kartenadresse = 255 R_bus_sendearray(3) = 10 R_bus_sendearray(4) = 20 Case 2 : Kartenadresse = 254 R_bus_sendearray(3) = 11 R_bus_sendearray(4) = 21 End Select R_bus_sendearray(1) = Kartenadresse R_bus_sendearray(2) = 0 R_bus_sendearray(5) = Crc8(r_bus_sendearray(1) , 4) Pruef_kartenadresse = Kartenadresse R_bus_empfangene_zieladresse = 0 R_bus_empfangene_quelladresse = 0 Waitus 500 ' Telegramm an Teilnehmer senden Printbin #2 , R_bus_sendearray(1) , 5 ; ' In Schritt 2 schalten R_bus_schritt = 2 Case 2: ' AUF RÜCKMELDUNG DER KARTE WARTEN ' Daten im Empfangspuffer If _rs_bufcountr1 > 0 Then Err_fehlende_antwort = 0 ' Telegramm vollständig empfangen If _rs_bufcountr1 >= 5 Then Err_falsche_protokolllaenge = 0 ' Telegramm einlesen Inputbin #2 , R_bus_empfangsarray(1) , 5 R_bus_empfangene_zieladresse = R_bus_empfangsarray(1) R_bus_empfangene_quelladresse = R_bus_empfangsarray(2) ' Zieladresse einlesen und mit eigener Adresse vergleichen If R_bus_empfangene_zieladresse = 0 Then Err_falscher_telegrammkopf = 0 ' HIER PASSIERT DER FEHLER!!!!!!!!!!!!!! ' Quelladresse mit erwarteter vergleichen If R_bus_empfangene_quelladresse = Pruef_kartenadresse Then Err_falscher_teilnehmer = 0 ' Empfangene Checksumme mit errechneter vergleichen If R_bus_empfangsarray(5) = Crc8(r_bus_empfangsarray(1) , 4) Then Err_falsche_checksumme = 0 ' Aktuellen Teilnehmer um eins erhöhen Incr Aktuelle_karte ' Alle Teilnehmer durchgelaufen, wieder von vorne beginnen If Aktuelle_karte > Anzahl_karten Then Aktuelle_karte = 1 End If ' WatchdogTimer zurücksetzen bzw. auf neuen Startwert einstellen (1s) Timer1 = Reload_1s Timerflag1 = 0 ' Zurück zu Schritt 1 R_bus_schritt = 1 Else ' R-bus-fehler ' Timer1 stoppen Stop Timer1 Timerflag1 = 0 Timerstatus1 = 0 ' Zur Fehlerüberprüfung springen R_bus_schritt = 3 Err_falsche_checksumme = 1 End If Else ' R-bus-fehler ' Timer1 stoppen Stop Timer1 Timerflag1 = 0 Timerstatus1 = 0 ' Zur Fehlerüberprüfung springen R_bus_schritt = 3 Err_falscher_teilnehmer = 1 End If Else Err_falscher_telegrammkopf = 1 End If Else Err_falsche_protokolllaenge = 1 End If Else Err_fehlende_antwort = 1 End If Case 3: ' WATCHDOG / FEHLERÜBERPRÜFUNG WARTEZEIT End Select End Sub ' ZYKLUSZEITMESSUNG Sub Zykluszeitmessung If Zeitmessung_aktiv = 1 Then ' Timer Ticks ende Zeitmessung_ticks_ende = Timer3 ' Letzten abgeschlossenen Messzyklus auswerten ' gab es seit dem beginn der Zeitmessung einen Timerüberlauf Zeitmessung_letzter_ueberlauf = Zeitmessung_timer_ueberlauf If Zeitmessung_letzter_ueberlauf = 0 Then Zeitmessung_vergangene_ticks = Zeitmessung_ticks_ende - Zeitmessung_ticks_start Else ' Start bis Überlauf Zeitmessung_ticks_start = 65536 - Zeitmessung_ticks_start ' Überlauf bis Ende Zeitmessung_ticks_ende = Zeitmessung_ticks_ende - Zeitmessung_reloadwert ' Summe der Ticks Zeitmessung_vergangene_ticks = Zeitmessung_ticks_start + Zeitmessung_ticks_ende End If ' Zeit berechnen 'Zeitmessung_zeit = Zeitmessung_timerticks / Zeitmessung_divident End If ' Neue Zeitmessung beginnen ' Timer Ticks start Zeitmessung_ticks_start = Timer3 Zeitmessung_timer_ueberlauf = 0 Zeitmessung_aktiv = 1 End Sub ' STACKBELEGUNG MESSUNG Sub Stackbelegungmessung Hwstack_belegung = _hwstackstart - _hw_lowest Swstack_belegung = _hwstack_low - _sw_lowest If _fw_highest > 0 Then Frame_belegung = _frame_high - _fw_highest ' Korrektur bei der Berechnung des belegten Platzes Frame_belegung = _my_framesize - Frame_belegung ' ohne Korrektur wird verbleibender Platz angezeigt... End If End Sub Timerroutine0: Timerflag0 = 1 Return Timerroutine1: Timerflag1 = 1 Return Timerroutine2: Timerflag2 = 1 Return Timerroutine3: Timerflag3 = 1 Return ' UART1 schließen Close #1 ' UART2 schließen Close #2 End
Und bezüglich Overlays, das verwende ich aktuell nicht in meinem Code.
Viele Grüße
Zitieren
Lesezeichen