$hwstack $swstack $framesize falsch dimensioniert??

[Martin R. (maschde)]

Hallo!

Der ein oder andere hat vielleicht meinen Thread 
Beitrag "Bascom ATmega8a - Problem aus Powerdown aufwecken"
verfolgt.

Hier geht es um das selbe Programm.

Ich habe das Problem, dass der Programmablauf nicht so funktioniert. Der 
Code springt nach dem Setzen von Status = 3 an eine undefinierte Stelle 
und macht dort weiter.
Ich denke das hat mit dem $hwstack zu tun. Habe dazu auch schon etliche 
Beiträge gelesen, werde aber nicht ganz schlau daraus.
Ich habe auch alle drei Werte schon weiter nach oben gesetzt, dann 
springt der Code an eine andere undefinierte Stelle.

Bitte könnt ihr mir helfen?
Ggf. anhand meines Codes erklären wie ich die drei Werte feststellen 
kann?
Kann man mit der Simulation in der Hinsicht was anfangen?

$regfile = "m8adef.dat"
$crystal = 1000000
$hwstack = 300
$swstack = 8
$framesize = 24




Ddrb = &B00000100
Portb = &B11111011
Ddrc = &B00111111
Portc = &B11000000
Ddrd = &B10000000
Portd = &B01111111

Config Pinb.0 = Input
Portb.0 = 1
Config Pinb.1 = Input
Portb.1 = 1
Config Pinb.2 = Output
Config Pind.7 = Output
Config Pind.2 = Input
Portd.2 = 1

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portc.5 , Db6 = Portc.4 , Db5 = Portc.3 , Db4 = Portc.2 , E = Portc.1 , Rs = Portc.0

Config Int0 = Low Level

Config Timer1 = Timer , Prescale = 8
Enable Timer1
On Timer1 Isr_timer

Enable Interrupts


Taster1 Alias Pinb.1
Taster2 Alias Pind.2
Beleuchtung Alias Portd.7
Cursor Off Noblink

Beleuchtung = 1


'---------------------------------------------
'Deklarationen

Dim Frage As String * 16
Frage = ""

Dim Antwort As String * 16
Antwort = ""

Dim Frageout As String * 16
Frageout = ""

Dim Abschaltzeit As Word
Abschaltzeit = 0

Dim Status As Byte

Dim Wert_timer As Word
Wert_timer = 0

Dim X As Byte
X = 0

Cls

'Beginn Main



Do
   Select Case Status
   Case 0:
      Beleuchtung = 1
      Disable Int0
      Lcd "Hallo!"
      Wait 3
      Cls
      Status = 1
   Case 1:
      Locate 1 , 1
      Lcd "Druecke 1 um zu"
      Locate 2 , 1
      Lcd "beginnen!"
         If Taster2 = 0 Then
            Abschaltzeit = 0
            Goto Anweisung
         End If
   Case 2:
      Goto Aufforderung_eingabe
   Case 3:
      Locate 1 , 1
      Lcd "Deine Eingabe:"
      Debounce Taster1 , 0 , Schreibe_0 , Sub
      Debounce Taster2 , 0 , Schreibe_1 , Sub
      If Len(antwort) = 16 Then
         If Frage = Antwort Then
            Gosub Antwort_richtig
         Else
            Cls
            Lcd "Leider falsch..."
            Locate 2 , 1
            Lcd "2 min. warten ;)"
            Wait 30
            Cls
            Antwort = ""
            Frage = ""
            Frageout = ""
            Status = 1
         End If
      End If
   End Select

   If Abschaltzeit > 150 Then
      Cls
      Beleuchtung = 0
      Status = 0
      Enable Int0
      Config Powermode = Powerdown
   End If
Loop



Anweisung:

Wert_timer = Timer1
Frage = Bin(wert_timer)
Cls

Lcd "Merke dir diese"
Locate 2 , 1
Lcd "Zahlenfolge:"
Wait 3
Cls

Lcd "Die Zahlenfolge:"
Wait 2

For X = 1 To 16
   Locate 2 , 1
   Lcd Space(16)
   Frageout = Frageout + Mid(frage , X , 1)
   Locate 2 , 1
   Lcd Frageout
   Waitms 500
Next X

Wait 3

Cls

Status = 2

Return



Aufforderung_eingabe:
Locate 1 , 1
Lcd "Nun bist du"
Locate 2 , 1
Lcd "an der Reihe!"
Wait 3
Cls
Status = 3
Return



Schreibe_0:
Locate 2 , 1
Antwort = Antwort + "0"
Lcd Antwort
Abschaltzeit = 0
Return


Schreibe_1:
Locate 2 , 1
Antwort = Antwort + "1"
Lcd Antwort
Abschaltzeit = 0
Return


Isr_timer:
Abschaltzeit = Abschaltzeit + 1
Return


Antwort_richtig:
Cls
Lcd "Herzlichen"
Locate 2 , 1
Lcd "Glueckwunsch!"
Wait 2
Portb.2 = 1
Wait 3
Portb.2 = 0
Wait 10
Cls
Beleuchtung = 0
Status = 0
Enable Int0
Config Powermode = Powerdown
Return

[mue_c (Gast)]

Das hat eher was damit zu tun, dass du die Gotos aus der Hauptschleife 
zu einem Label springen, wo am Ende ein Return steht. Da dann keine 
Rücksprüngadresse auf dem Stack liegt, geht's ins Nirwana.
Ich habe mir nicht den ganzen Code angesehen, aber kannst du anstelle 
der Gotos nicht Gosubs nehmen?

[Martin R. (maschde)]

Oh mein Gott....
Da bin ich ja mal so richtig auf der Leitung gestanden...

Danke!