alias MINPRESSURE r15

define MEMORYHASH HASH("StructureLogicMemory")

start:
alias sensor1 d0
alias sensor2 d1
alias sensor3 d2
alias power1 d3
alias power2 d4
alias power3 d5

lbn r0 MEMORYHASH HASH("Min Pressure") Setting Maximum
slez r1 r0
select MINPRESSURE r1 2000 r0

s db Setting MINPRESSURE

alias sensor d0
alias power d3
jal control

alias sensor d1
alias power d4
jal control

alias sensor d2
alias power d5
jal control

j start

control:

bdns sensor ra
l r0 sensor Pressure
bgt r0 MINPRESSURE ra

# cut power if pressure is too low.
s power On 0

j ra