# when a regulator does not provide enough flow, use a cybernetic volume pump

alias on r15

alias oldPressure2 r12
alias oldPressure1 r11
alias oldPressure0 r10
alias rate2 r9
alias rate1 r8
alias rate0 r7

s db Setting -7

start:

alias sensor0 d0
alias sensor1 d1
alias sensor2 d2
alias pump0 d3
alias pump1 d4
alias pump2 d5
yield

alias sensor d0
alias pump d3
alias oldPressure r10
alias rate r7
jal manage

alias sensor d1
alias pump d4
alias oldPressure r11
alias rate r8
jal manage

alias sensor d2
alias pump d5
alias oldPressure r12
alias rate r9
#jal manage

j start

#

manage:

push ra
jal eval
pop ra

s db Setting rate
s pump Setting rate
s pump On on

move oldPressure r0

j ra

#

eval:

l r0 sensor Pressure


bgt r0 200 turnOff
move on 1

bgt r0 150 decrease

bgt r0 oldPressure ra

add rate rate 0.1
j ra

decrease:
mul rate rate 0.95
j ra

turnOff:
move on 0
j ra