# 2020-Jan
# arc furnace gas capture room control

alias sensor d0
alias pump d1
alias lever d2
alias furnace d3
alias door d4
alias vent2 d5

alias doorOpen r9
alias leverPulled r8
alias pressure r7

define atmosPressure 150 # Loulan

idle:
yield

jal updateDisplay

l leverPulled lever Setting
bgtz leverPulled startUp

j idle
#

startUp:
l doorOpen door Open
blez doorOpen depressurize

s door Open 0
yield
j startUp

depressurize:

bdns vent2 startUp2

s vent2 Mode 1
s vent2 On 1

checkDepressure:
l leverPulled lever Setting
blez leverPulled powerDown

yield
l r0 sensor Pressure
bgtz r0 checkDepressure

s vent2 On 0

startUp2:

l leverPulled lever Setting
blez leverPulled powerDown

l r0 furnace Activate
bgtz r0 smelting

s furnace On 1
s furnace Activate 1

yield
j startUp2

smelting:

yield

jal updateDisplay
jal pumpGas

l r0 furnace Activate
bgtz r0 smelting

powerDown:

jal updateDisplay
l pressure sensor Pressure
blez pressure equalize
jal pumpGas

yield
j powerDown

equalize:
s pump On 0

bdns vent2 openDoor
s vent2 Mode 0
s vent2 On 1
s vent2 PressureExternal atmosPressure
equalizing:
yield
l r0 sensor Pressure
add r0 1 r0
blt r0 atmosPressure equalizing

s vent2 On 0

openDoor:
s lever Open 0
s door Open 1

j idle

updateDisplay:
#bdns display ra
#l r0 furnace Reagents
#s display Setting r0
j ra

pumpGas:
l pressure sensor Pressure
sgtz r0 pressure
s pump On r0
j ra