State Machine

[Loro]

Hallo zusammen, ich bins mal wieder und wieder mit meinem Lieblings Thema, der State Machine.

Ich habe Folgendes Problem, beim Lesen der States werden nicht alle Daten gelesen.
In der Sub "Change_state" wird der letzt READ nicht ausgeführt also "Read Change_allow" Wenn ich die Read-Anweisungen vertausche ist es das gleich, die letzte Anweisung wird nicht gelesen.

Hat jemand eine Idee woran das liegen könnte, im Moment sehe nicht meinen Fehler nicht und das schon seit zwei Tagen :-)
Hier der Code

Main Loop:


Do
'Menüeintrag und Tastencodes finden und ggf. State wechseln
'hier nur Tastendruck auswerten
Gosub Change_state

'Pointer nach Statuswechsel neu setzen
If State_renew = 1 Then Gosub Change_state

'Unterprogramm des aktuellen State anspringen
LDS R31, {State_gosub+1} 'High see Bascom-Doc Mixing ASM and BASIC
LDS R30, {State_gosub} 'Low
LSR R31 'Division durch 2 (Alternativ ADR verwenden)
ROR R30
'Call zum Sub
ICALL


'Pina1-2 werden vom Diplay belegt, Pina6 u PinA7 haben eine schwache Spannung
Debounce Pina.3 , 0 , Up_press , Sub
Debounce Pina.4 , 0 , Down_press , Sub
Debounce Pina.5 , 0 , Plus_press , Sub
Debounce Pina.6 , 0 , Minus_press , Sub
Debounce Pina.7 , 0 , Ok_press , Sub


If Change_allow = 1 Then
If Pina.5 = 0 Then
Gosub Plus_press
'Value_change = 1
Elseif Pina.5 = 1 Then
Gosub Reset_plus
End If

If Pina.6 = 0 Then
Gosub Minus_press
'Value_change = 1
Elseif Pina.6 = 1 Then
Gosub Reset_minus
End If
End If


'LCD refresh wenn Menü verändert
If State_renew = 1 Then
State_renew = 0
Gosub Lcdprint
End If
Loop
End



Die States:


'--------------------------------------------------------------------
'Subroutine: Change_state_
'Call from: main loop
'Status der State Machine feststellen und ggf. Wechseln
'--------------------------------------------------------------------
Change_state:
lds R8, {State}
lds R9, {State + 1}
For Icount = 1 To Key_buttons
Read W
If Key = Keycode(icount) Then
If W <> Loadlabel(null) Then
State_renew = 1
Key = Key_null 'reset key status after get a new state of state
'machine (prevent influence on GOSUBs)
State = W
End If
End If
Next Icount
Read State_gosub 'Adresse des akt. Unterprogramms einlesen
Read Lcd_textbuffer 'read LCD text
Read Options_id
Read Array_id 'Identifier für Array Information
Read Change_allow
Return

P1_1: 'Programm 1
Adr2 P1_2 : Adr2 Null : Adr2 Null : Adr2 P1_1_edit : Adr2 Null : Adr2 Null
Adr2 Over_view 'Subroutine for current State
Data Title1
Data 1% 'Aktulee Zeile (Hervorheben)
Data $10
Data 0% 'Change_allow

P1_1_edit:
Adr2 Null : Adr2 Null : Adr2 Null : Adr2 Null : Adr2 Null : Adr2 Null
Adr2 Change 'Subroutine for current State
Data Title1
Data 1% 'Aktulee Zeile (Hervorheben)
Data $10
Data 1% 'Change_allow

[/b]

[PicNick]

Da der "READ" ein brutalo-Befehl ohne irgendwelche Durchführungsbedingungen ist, lässt er nicht einfach einen aus.

Tücke beim READ : Bascom überprüft NICHT, ob der definierte "DATA"-Datentyp und der Datentyp beim "READ" übereinstimmt (wegen der Länge)
Da müsste man die DIM's sehen.

Btw: Du hast einmal "Data Title1 " und einmal "Data Titel1 "
ist das korrekt ? gibt es beides ?

[Loro]

"Data Title1 " und "Data Titel1 " gibt es beides, eigentlich nur Data Title1 das ist ein Const, damit ich den Wert leicht umändernkann. Hab es mal oben umgeändert.




Dim Lcd_textbuffer As String * 32
Dim Options_id As Integer
Dim Array_id As Byte , Old_array_id As Byte
Dim Change_allow As Integer


Der Code ansich Funktioniert auch, nur das halt Change_allow keine Veränerung erfährt, der Wert ist immer 0.

[-tomas-]

Picknick hat Dir den Tip schon gegeben - aber leider bist Du nicht tiefer eingestiegen.

Du kannst solche Probleme jederzeit als Codeausschnitt (Restore + Read/Read/Read etc) im Simulator debuggen.

das sieht dann so aus:

$regfile = "m48def.dat"
$crystal = 8000000
$baud = 19200

$hwstack = 32
$swstack = 8
$framesize = 24

Dim Lcd_textbuffer As String * 32
Dim Options_id As Integer
Dim Array_id As Byte
Dim Change_allow As Integer

Restore P1_1_edit

Read Lcd_textbuffer 'read LCD text
Read Options_id
Read Array_id 'Identifier für Array Information
Read Change_allow

Print Lcd_textbuffer
Print Options_id
Print Array_id
Print Change_allow

End

Const Title1 = "Hallo"

P1_1: 'Programm 1
Data Title1
Data 1% 'Aktulee Zeile (Hervorheben)
Data $10
Data 0%

P1_1_edit:
Data Title1
Data 1% 'Aktulee Zeile (Hervorheben)
Data $10
Data 1% 'Change_allow


die Simulator Ausgabe ist:
Hallo
1
10
256...und schon sehen wir Data $10 belegt 2 Bytes und ist somit keine Byte!! (Das Low Byte rutschte eine Position zum High Byte herüber)

Übrigens: Ich wusste gar nicht, das Bascom Konstanten mit "dollar sign" frisst. Ich habe dazu nichts im Manual gefunden. Ist das eine undokumentierte Syntax?

[PicNick]

aaarghhh !
Das ist wahr, das ist wohl cut & paste von einem anderen Basic.

[stefan_Z]

Ich glaube bei Konstanten ist es Bascom egal ob du ein Zeichen davor machst. Der passt das dem Inhalt an.
Bei Binär-Variablen kann man übrigens auch Tiefstriche in den Wert einfügen - das erhöht die Lesbarkeit bei manchen Sachen: &B00_10_1111 wird einfach als &B00101111 erkannt.

[PicNick]

Es ist ihm tatsächlich egal.
Nur dass er eben zwei statt des gewünschten einen Bytes verbrät

[-tomas-]

Tiefstriche in den Wert einfügen - das erhöht die Lesbarkeit bei manchen Sachen: &B00_10_1111 wird einfach als &B00101111 erkannt.

!!KEINE TIEFSTRICHE MIT DATA!!

Aufpassen, Bascom ist mit Tiefstrichen sehr eigen!! Als Beispiel ein kurzer Schnipsel:

Dim I As Byte , J As Byte

Const A = &B110_0111

I = A
Print I ; " " ; A

Restore Test

Read I
Read J
Print I ; " " ; J

End

Test:
Data &B1100111
Data &B110_0111
und hier die Ausgabe im Simulator:

103 &B1100111

103 6

Alles klar ;-)
&B110_xxxx wird zu 6.
Und der Hammer ist der entfallene Unterstrich von Print A, hier wird &B110_0111 zu &B1100111

(ich hatte das früher schon mal geschrieben)