bin am verzweifeln mit out of sram space

[graffiti]

letzte Woche lief mit der 1.11.9.3 noch alles 1a, auf einen Schlag kam immer die Fehlermeldung Out of SRAM space [Error 22 Line 11]
Ich habe jetzt schon zig Einstellungen getestet nichts geht.

In der 1.11.9.1 gehts momemtan noch.

hier mal der Code:



$prog &HFC , &HFF , &HD9 , &H00


$regfile = "attiny2313.dat"
$crystal = 4000000

Open "COMD.0:9600,8,n,2" For Input As #1 ' Software UART konfigurieren


' Variablendeklaration
Dim Zeiger As Byte At &HA0
Zeiger = 1
Dim Flag As Byte At &HA1
Dim Adresse As Eram Byte
Dim Hot As Eram Byte 'Scharfschalt-Status im eeProm
Dim Adresse_temp As Byte At &HA2
Dim Tempword As Word At &HA3
Adresse_temp = Adresse
Dim Tempbyte As Byte At &HA5
Dim Tempbyte2 As Byte At &HA6
Dim Init As Byte At &HA7

Dim Protokoll(10) As Byte

'Ausgangsports konfigurieren
Ddrd = &B10111110
Ddrb = &B11111111 'Beispiel: DDRx = &B0000100 'Pin Px2 Ausgang, Rest Eingang

Portb = 0
Portd = &B01000000

' 2-mal Timer konfigurieren
Config Timer0 = Timer , Prescale = 1024
On Timer0 Timer_irq 'Nosave
Stop Timer0

Config Timer1 = Timer , Prescale = 64
On Timer1 Timer_irq2 'Nosave
Disable Timer1
Stop Timer1
Timer1 = 0

Enable Timer0
Enable Interrupts


Waitms 100 ' Initialisieren bereit
If Pind.6 = 0 Then
Waitms 100
If Pind.6 = 0 Then
Portd.5 = 0
Init = 1
Hot = 0
Waitms 100
Timer1 = 20500
Enable Timer1
Start Timer1
End If
End If


If Hot = 1 And Init = 0 Then 'Scharfschalt-Status setzen
Portd.5 = 1
End If






Do ' Mainloop, hier dreht der Controller seine Runden

Tempbyte = Waitkey(#1) ' ware auf Zeichenempfang über Soft-UART
Gosub Zeichenempfang ' gehe zu Zeichenverarbeitung

If Flag = 1 Then ' Protokoll ist komplett ?
Gosub Proto
Flag = 0 ' Protokollflag wieder rücksetzen
Zeiger = 1
Elseif Flag = 2 Then ' Protokoll ist komplett ?
Gosub Scharfschalten ' Protokoll abarbeiten
Flag = 0 ' Protokollflag wieder rücksetzen
Zeiger = 1 ' zeiger für Speicherung des nächsten eingehenden Zeichens rücksetzen
End If

Loop



Zeichenempfang:

'Tempbyte = Udr
Protokoll(zeiger) = Tempbyte ' empfangenes Byte in Protokoll ablegen

If Tempbyte = 0 Then ' Protokollende erreicht
Zeiger = 1 ' Protokollzeiger zurücksetzen
End If

If Protokoll(1) = 27 Then ' Wenn Protokollbeginn erkannt
If Tempbyte = 0 Then ' und aktuell empfangenes Byte ist Protokollende
Flag = 1 ' Protokollabarbeitung veranlassen
End If

Incr Zeiger ' sonst nächste Speicherstelle für Protokoll auswählen

Elseif Protokoll(1) = 35 Then ' Wenn Protokollbeginn erkannt
If Tempbyte = 0 Then ' und aktuell empfangenes Byte ist Protokollende
Flag = 2 ' Protokollabarbeitung veranlassen
End If

Incr Zeiger ' sonst nächste Speicherstelle für Protokoll auswählen

Else
Zeiger = 1 ' Protokoll wieder von vorne beginnen
Timer0 = 0 ' Timer 0 resetten
Start Timer0 ' timer 0 starten
Enable Timer0 ' und Interrupt aktivieren
End If

Return
End



Timer_irq:
Stop Timer0
Disable Timer0
Zeiger = 1
Return
End



Timer_irq2:
If Init = 1 Then
Timer1 = 60500
Toggle Portb.0
Else
Portb = 0 ' Ports rücksetzen
Timer1 = 0 ' Timer zurücksetzen
Disable Timer1 ' Timer interrupt deaktivieren
Stop Timer1 ' Timer stoppen
Protokoll(1) = 0
Protokoll(2) = 0
Protokoll(3) = 0
Protokoll(4) = 0
End If

Return
End



Proto:

If Protokoll(2) = Adresse_temp Then ' prüfen ob diese Platine angesprochen ist
Flag = 3
End If

If Protokoll(2) = 255 Then ' prüfen ob alle angesprochen sind
Flag = 3
End If

If Flag = 3 Then ' Ausführung wenn Adresse stimmt oder alle angesprochen sind
Flag = Protokoll(3)

If Flag = 64 And Init = 0 Then ' Programm verzweigen nach Steuerbyte des Protokolls
Portb = Protokoll(4) ' Port setzen

Timer1 = 53036
Enable Timer1
Start Timer1
End If


' INITIALISIEREN

If Flag = 72 And Init = 1 Then
Init = 0
Flag = Protokoll(4)
Adresse = Flag ' Adresse in EEPROM speichern, wird bei nächstem Reset verwendet
Adresse_temp = Protokoll(4) ' neue Adresse ab sofort verwenden, auch ohne Reset
Portb = 0
End If

End If


Protokoll(1) = 0 ' gespeichertes Protokoll löschen
Protokoll(2) = 0
Protokoll(3) = 0
Protokoll(4) = 0



Return
End

Scharfschalten: ' Programmteil scharf schalten

If Init = 0 Then

Portb = 0

If Protokoll(2) = 255 Then
Flag = 4

If Flag = 4 Then
Flag = Protokoll(3)
End If

If Flag = 64 Then
Flag = Protokoll(4)
End If

If Flag = 0 Then
Portd.5 = 0 'Module unscharf
Hot = 0 'Status ins eeProm
End If

If Flag = 1 Then
Portd.5 = 1 'Module scharf
Hot = 1 'Status ins eeProm
End If

End If



Protokoll(1) = 0 ' gespeichertes Protokoll löschen
Protokoll(2) = 0
Protokoll(3) = 0
Protokoll(4) = 0


Timer1 = 53036
Enable Timer1
Start Timer1

End If

Return
End


Ich danke euch schon mal im vorraus, für die Hilfe

[PicNick]

Warum definierst du alles mit "------ AT &Hxx" ????
Was ist mit dem Bereich &H60 - &HA0 ?

[graffiti]

gerade mal getestet

wenn ich alle Definitionen weg lasse, ist der Fehler auch weg

mit den Definitionen kenne ich mich eigentlich nicht aus,
der Code wurde im Ursprung von einem Bekannten geschrieben
und ich habe die Def. nur weitergeführt.

wie muß ich das ungefär anwenden ?
Brauche ich das überhaupt?

habs mal geändert auf:


Dim Zeiger As Byte At &H60
Zeiger = 1
Dim Flag As Byte At &H62
Dim Adresse As Eram Byte
Dim Hot As Eram Byte 'Scharfschalt-Status im eeProm
Dim Adresse_temp As Byte At &H68
Dim Tempword As Word At &H73
Adresse_temp = Adresse
Dim Tempbyte As Byte At &H80
Dim Tempbyte2 As Byte At &H85
Dim Init As Byte At &H90
das geht wieder

[for_ro]

Wie PicNick schon sagte: Lass all die AT &H.. Zusätze weg.
Absolut unsinnig und unnötig. also so:

Dim Zeiger As Byte
Dim Flag As Byte
Dim Adresse As Eram Byte
Dim Hot As Eram Byte 'Scharfschalt-Status im eeProm
Dim Adresse_temp As Byte
Dim Tempword As Word
Dim Tempbyte As Byte
Dim Tempbyte2 As Byte
Dim Init As Byte

Zeiger = 1
Adresse_temp = Adresse

Einzige Ausnahme und genau das hast du es nicht:

Dim Adresse As Eram Byte at &H01
Dim Hot As Eram Byte at &H02

Damit lässt du die Position 0 im EEPROM frei, die beim Resetten überschrieben werden kann.

Lass auch das $PROG am Anfang weg. Damit schreibst du die Fuse bits immer wieder neu.

Gruß

Rolf

[graffiti]

Vielen Dank für eure Hilfe, ihr habt meinen Tag um einiges verbessert
ich tüftle schon seit gestern dran rum, was ich aber nicht verstehe
die letzten 4 Wochen ist kein Fehler gekommen

habe die Definitonen jetzt weggelassen und bei den Erams dazugefügt

die Fusebits ist für mich praktischer dann kann ich gleich ein paar Stück nacheinander beschreiben ohne die Fuses neu zu setzen

gruß Gerhard

[PicNick]

Fehler abhängig von der Bascom-Version:
Ich nehme an (sollte man aber anhand der reports beweisen), daß die neue Version andere Defaultwerte für Stack und Frame verwendet.
(das sind die Bereiche, die von oben am SRAM knabbern).
Wenn deine Definitionen (von unten) sich mit diesen in der Mitte des SRAM treffen, schnackelt es.

[for_ro]

Ich hatte auch schon mal festgestellt, dass in 1.11.9.3 nach dem Neukompilieren 2 Byte weniger im SRAM frei waren, als in der Version 1.11.9.0. Nur kann ich nicht sagen, ob das generell so ist oder nur unter bestimmten Bedingungen.
Da kann man dann schon einmal Pech haben.

Gruß

Rolf