# mix fuel
# fuel furnace
# ignite furnace
# pressurize hot tank
# pressurize cool tank
# cool gas

alias fuelsensor d0
alias coldtank d1
alias waste2hot d2
alias hottank d3
alias chillervalve d4
alias waste2cold d5
# fuelpump?
define FURNACEHASH 1947944864
define ATMOFILTERHASH -348054045
define MIXERHASH 2104106366
define FUELMIXERMOLES 26.144
define TANKTARGETPRESSURE 20000
define HOTTARGETTEMPERATURE 2000

# pressurize furnace
# depressurize furnace

start:
jal mixfuel
jal activatefurnace
jal pressurizehot
jal waste2burn
jal waste2cold
yield
j start

mixfuel:
alias o2ratio r15
alias volratio r14
alias sumratio r13
alias o2moles r12
alias volmoles r11
alias totalmoles r10
alias fuelmoles r9
alias missingo2moles r8
alias mixerratio r7

l totalmoles fuelsensor TotalMoles
div mixerratio 1 3
blez totalmoles setmixer

l o2ratio fuelsensor RatioOxygen
l volratio fuelsensor RatioVolatiles
add sumratio o2ratio volratio
mul o2moles o2ratio totalmoles
#mul volmoles volratio totalmoles
mul fuelmoles sumratio totalmoles
add fuelmoles fuelmoles FUELMIXERMOLES
div r0 fuelmoles 3
sub missingo2moles r0 o2moles

div mixerratio missingo2moles FUELMIXERMOLES
max mixerratio 0 mixerratio
min mixerratio 1 mixerratio
#s db Setting o2ratio

setmixer:
#s db Setting mixerratio
#sb 2104106366 Ratio mixerratio
mul mixerratio 100 mixerratio
sb 2104106366 Setting mixerratio
j ra

activatefurnace:
l r1 fuelsensor Pressure
sle r0 r1 25000
#and r0 r0 r1
l r1 fuelsensor Temperature
sle r1 r1 2100
and r0 r0 r1
sb MIXERHASH On r0
min r0 o2ratio volratio
sgt r0 r0 0.05 # enough to burn
sb FURNACEHASH Activate r0

j ra

pressurizehot:
l r1 hottank Pressure
slt r0 r1 TANKTARGETPRESSURE
l r1 fuelsensor Temperature
sgt r1 r1 HOTTARGETTEMPERATURE
and r0 r0 r1
sb ATMOFILTERHASH On r0
j ra

waste2burn:
l r1 fuelsensor Pressure
slt r0 r1 20000
l r1 fuelsensor Temperature
sgt r1 r1 HOTTARGETTEMPERATURE
and r0 r0 r1
s db Setting r0
s waste2hot Setting 20
s waste2hot On r0
j ra

waste2cold:
bdns coldtank ra
l r1 coldtank Pressure
slt r0 r1 TANKTARGETPRESSURE
l r2 coldtank Temperature
slt r1 r2 500
and r0 r1 r0
s waste2cold On r0

sgt r1 r2 400
s chillervalve On r1

j ra