Schleuse bedienen

Ein Hebel in der Kammer reicht für den Anfang. Aber wer draußen steht, kommt nicht an ihn heran, und wer in der Basis wartet, sieht nicht, ob die Schleuse gerade arbeitet. Eine gute Schleuse hat Tasten auf beiden Seiten, eine Anzeige und eine Ansage.

Tasten innen und außen#

Jede Taste holt die Schleuse auf ihre Seite:

Wer raus will, ruft die Schleuse mit „Innen“, tritt ein und drückt in der Kammer „Aussen“. Gleichnamige Tasten liest ein Batch mit Average gemeinsam: Ist eine gedrückt, ist der Wert größer als 0.

Eine Taste meldet Activate 1, solange sie gedrückt ist. Für die Richtung zählt nur der neue Druck, die Flanke von 0 nach oben:

lbn innen TASTE HASH("Innen") Activate Average
slt tmp altInnen innen       # 1 = gerade gedrueckt
select richtung tmp 0 richtung
move altInnen innen          # fuer den naechsten Takt

Ohne Flanke gewinnt, wer länger drückt: Hält draußen jemand „Aussen“ fest, käme „Innen“ nie durch. Mit Flanke gewinnt der letzte neue Druck.

Die Richtung schreibt das Bedienpult in einen Logikspeicher „Richtung“. Den liest der Chip, der Türen und Lüftung steuert, wie vorher den Hebel – im define steht dann StructureLogicMemory statt StructureLogicSwitch. So verteilst du die Arbeit auf zwei Chips, und keiner stößt an die 4096 Zeichen.

Statuslampen#

Wandleuchten und Blinklichter kennen nur On, keine Farbe und kein Dimmen. Farbe gibt es an der LED-Anzeige über Color:

select farbe bereit Color.Green Color.Yellow
select farbe ok farbe Color.Red
sbn ANZEIGE HASH("Status") Color farbe

Grün: Die Schleuse steht auf der gewählten Seite bereit. Gelb: Sie wechselt gerade, bitte warten. Rot: Der Sensor fehlt. Das Blinklicht „Warnlicht“ läuft, solange nicht Grün ist.

Ansagen mit Sound#

Der Lautsprecher (StructureKlaxon) wählt seinen Ton über SoundAlert – das ist dieselbe Zahl wie Mode. On 1 spielt, On 0 schweigt. Für Schleusen hat das Spiel eigene Ansagen:

select ton richtung Sound.Depressurising Sound.Pressurising
lbn tmp HUPE HASH("Ansage") SoundAlert Average
beq tmp ton ton_gleich
sbn HUPE HASH("Ansage") SoundAlert ton
ton_gleich:
sbn HUPE HASH("Ansage") On warn

Den Ton schreibt der Chip nur, wenn er sich ändert: Jedes Schreiben von SoundAlert stößt den Ton neu an, auch mit demselben Wert.

An einer Zahlenstelle braucht ein Name seinen Namensraum: Sound.Depressurising, Color.Green. Der nackte Name allein ist dort keine Zahl.