$hwstack $swstack $framesize falsch dimensioniert??

Martin R. (maschde) OP 28.06.2015 17:02 #4181189

Lesenswert?

•

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
'Beginn Main
   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
            Lcd "Leider falsch..."
            Locate 2 , 1
            Lcd "2 min. warten ;)"
            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
Anweisung:
Wert_timer = Timer1
Frage = Bin(wert_timer)
Lcd "Merke dir diese"
Locate 2 , 1
Lcd "Zahlenfolge:"
Lcd "Die Zahlenfolge:"
For X = 1 To 16
   Locate 2 , 1
   Lcd Space(16)
   Frageout = Frageout + Mid(frage , X , 1)
   Locate 2 , 1
   Lcd Frageout
   Waitms 500
Status = 2
Aufforderung_eingabe:
Locate 1 , 1
Lcd "Nun bist du"
Locate 2 , 1
Lcd "an der Reihe!"
Status = 3
Schreibe_0:
Locate 2 , 1
Antwort = Antwort + "0"
Lcd Antwort
Abschaltzeit = 0
Schreibe_1:
Locate 2 , 1
Antwort = Antwort + "1"
Lcd Antwort
Abschaltzeit = 0
Isr_timer:
Abschaltzeit = Abschaltzeit + 1
Antwort_richtig:
Lcd "Herzlichen"
Locate 2 , 1
Lcd "Glueckwunsch!"
Portb.2 = 1
Portb.2 = 0
Wait 10
Beleuchtung = 0
Status = 0
Enable Int0
Config Powermode = Powerdown

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

$hwstack $swstack $framesize falsch dimensioniert??

Antwort schreiben