Interrupts

Hi,

hier ein kurzer Auszug aus der Deklaration von Interrupts. Hier kann man sehen was zum Auslösen des Ereignisses benutzt werden darf und was nicht.
Bei der anderen Frage kann ich dir leider nciht helfen.

mfg
Lubi

GLOBAL INTERRUPT DECL Priorität WHEN Ereignis DO Unterprogramm

Ereignis BOOL Logischer Ausdruck, der das Unterbrechungsereignis definiert. Zugelassen sind:
• eine boolsche Konstante
• eine boolsche Variable
• ein Signalname
• ein Vergleich
• eine einfache logische Verknüpfung: NOT, OR, AND, oder EXOR
Unzulässig sind
• Strukturkomponenten
Unterprogramm Name (und Parameter) des Interruptprogramms, das bei Auftreten des Ereignisses abgearbeitet werden soll

Hallo,

der erste Teil lässt sich mit $cycflag lösen. Einmal am Programmanfang die Zuweisung:
$cycflag[1]=$Workspace[1].state OR .. $Workspace[n].State
Die Zuweisung wird dann zyklisch ausgeführt.

Zum Abbrechen gibt es nur den RESUME Befehl. Der bricht eine Bewegung ab und setzt de Satzzeiger in die Ebene mit der Interrupt Deklaration zurück, einen Satz weiter wie den letzen Absprung. Soweit ich mich erinnere kann der RESUME aber keine Interruptbewegungen unterbrechen, so das deine Ausweichstrategien in den normalen Hautlauf müssen. Dein Programm könnte könnte dann in etwa aussehen:

Interrupt DECL 10 WHEN $CYCFLAG[1] DO ResumeUP()
Interrupt ON 10

NormaleBewegung()
Ausweich()
Ausweich()
Ausweich()
Ausweich()
Ausweich()
Ausweich()

DEF ResumeUP()
BRAKE
RESUME
END

Unterwegs solltest du dir noch merken, in welcher Strategie du zuletzt warst, bzw. wenn eine Stratetegie zum Ende geführt hat.

Gruss DiDi