Stationeers Precision Furnace build 4 Tweeking

One last got at the new furnace to finish of some things that I didn't get around to and add some things that were suggested. I think a lot of my math is wrong in this one but it works so it is close enough for me.

alias furnace d0
alias fillerpump d1
alias mixer d2
alias boxsensor d3
alias dial d4
alias tank d5
alias combustion r8
alias combustionO2 r9
alias combustionN2O r10
alias heatcapacity r11
alias totalenergy r12
alias totalmoles r13
alias maxpressure r4
alias minpressure r5
alias maxtemp r6
alias mintemp r7
alias recipe r14
alias furnaceon r15
start:
yield
l sp dial Setting #Check dial
add sp sp 1
mul sp sp 9
sub sp sp 4
pop maxpressure
pop minpressure
pop maxtemp
pop mintemp
pop recipe
s db Setting recipe
ls r1 furnace 0 Quantity #Check furnace empty
l r2 furnace Reagents
or furnaceon r1 r2
l r0 furnace Pressure #Check over pressure/temp
sgt r0 r0 maxpressure
l r1 furnace Temperature
sgt r1 r1 maxtemp
or r0 r0 r1
mul r0 r0 100
s furnace SettingOutput r0
l r0 furnace Temperature #check ignition
slt r0 r0 400
s furnace Activate r0
l r0 furnace RecipeHash #check eject ingot
seq r0 r0 recipe
s furnace Open r0
l r0 furnace Pressure #set filler pump
l r1 furnace Temperature
max r1 r1 1
div r0 r0 r1
mul r0 r0 mintemp
slt r0 r0 minpressure
and r0 r0 furnaceon
s fillerpump On r0
sub r1 mintemp r1
div r1 r1 mintemp
sub r1 1 r1
l r2 tank Pressure
div r2 50000 r2
mul r1 r1 r2
s fillerpump Setting r1
calcheat:
l r0 furnace RatioCarbonDioxide
mul r0 r0 28.2
move heatcapacity r0
l r0 furnace RatioOxygen
mul r0 r0 21.1
add heatcapacity heatcapacity r0
l r0 furnace RatioNitrogen
mul r0 r0 20.6
add heatcapacity heatcapacity r0
l r0 furnace RatioPollutant
mul r0 r0 24.8
add heatcapacity heatcapacity r0
l r0 furnace RatioVolatiles
mul r0 r0 20.4
add heatcapacity heatcapacity r0
l r0 furnace RatioNitrousOxide
mul r0 r0 23.0
add heatcapacity heatcapacity r0
l totalmoles furnace TotalMoles
mul heatcapacity heatcapacity totalmoles
l r0 furnace Temperature
mul totalenergy heatcapacity r0
Add combustion
l r0 furnace RatioVolatiles
max r0 r0 0.00000001
l r1 furnace RatioNitrousOxide
max r1 r1 0.00000001
l r2 furnace RatioOxygen
max r2 r2 0.00000001
mul r2 r2 2
add r3 r2 r1
min combustion r3 r0
mul combustionN2O combustion r1 # Nitrous combustion
div combustionN2O combustionN2O r3
mul combustionN2O combustionN2O totalmoles
mul r0 combustionN2O 572000
add totalenergy totalenergy r0
mul r0 combustionN2O 54.2
add heatcapacity heatcapacity r0
mul combustionO2 combustion r2 # Oxygen combustion
div combustionO2 combustionO2 r3
mul combustionO2 combustionO2 totalmoles
mul r0 combustionO2 286000
add totalenergy totalenergy r0
mul r0 combustionO2 90.85
add heatcapacity heatcapacity r0
div r0 totalenergy heatcapacity #Set fuel pump
mul r1 mintemp 1.1
slt r0 r0 r1
and r0 r0 furnaceon
s mixer On r0
l r0 furnace RatioOxygen
l r1 furnace RatioNitrousOxide
l r2 furnace RatioVolatiles
mul r3 r0 2
add r3 r3 r1
div r3 r2 r3
#sub r3 1 r3 # remove this if H2 is input 1
mul r3 r3 100
s mixer Setting r3
j start