Mittels goto an Programmanfang springen

[Searcher]

@oberallgeier: Ich habe ja auch gar nichts gegen die Nutzung von Goto. Mir ging es darum, daß man auf den Stackpointer achten sollte und bei Sprung aus einer ISR heraus auch noch auf das Global Interrupt Enable Bit. Das könnte kompliziert werden und kann man vermeiden, wenn man Goto vermeidet oder es nur innerhalb des Hauptprogramms verwendet bzw. nur innerhalb von Subroutinen springt.

zB bei sowas wird der Stackpointer immer weiter nach unten gesetzt und es muß irgendwann zum crash kommen.

dim x as byte
dim y as byte

init:
x = 1
y = 2

gosub check

do
loop

check:
  if x = 1 goto init
return

end

Steht anstelle von "goto init" ein "goto 0" wird auch der Stackpointer neu initialisiert.
Ist halt eine Frage der Konstellation und wie Demmy es einsetzt.

Gruß
Searcher

[demmy]

Also ich habe es in etwa so gelöst:

'Hardwarekonfiguration
....

'Variablendeklaration
....

'Anlaufbedingungen / Startberechnungen
....

Resetpunkt:

' Variablen richten
....

' Notwendige Berechnungen
...

' Hauptschleife
Do

if .... then
 goto Resetpunkt
end if

Loop

Also bis jetzt funktioniert es einwandfrei.

[Searcher]

Also ich habe es in etwa so gelöst:

Da finde ich jetzt kein Haar in der Suppe ; ist in Ordnung!

Gruß
Searcher

[peterfido]

Ja, geht auch.

Ist in etwa das gleiche wie meine Vorgehensweise.

'Hardwarekonfiguration 
....  
'Variablendeklaration 
....  
'Anlaufbedingungen / Startberechnungen 
....
gosub Resetpunkt  
' Hauptschleife 
Do  
   if .... then  
      gosub Resetpunkt 
   end if  
Loop
end

Resetpunkt:
    ' Variablen richten 
   ....  
   ' Notwendige Berechnungen 
   ...
return