alias furnace d0
alias furnacevolume d1
alias hotpump d2
alias coldvolume d3
alias hotvolume d4
alias coldpump d5

alias furnacetemp r15

start:
yield

l r0 furnace On
bgtz r0  operate
s coldpump On 0
s hotpump On 0
s furnace SettingInput 0
s furnace SettingOutput 0
j start

operate:

ls r0 furnace 0 Quantity # unmelted
#s db Setting r0
beqz r0 ready
l furnacetemp furnace Temperature
sle r0 furnacetemp 400 # not all the inputs have melted.
bgt r0 1500 purge
trick:
s coldpump On 0
s hotpump On r0
s hotpump Setting 10
s furnace SettingInput 100
s furnace SettingOutput 0
j start

purge:
s furnace SettingOutput 100
s furnace SettingInput 0
s coldpump Setting 0
s hotpump Setting 0
yield
l r0 furnace Pressure
bgt r0 10 purge
j start

ready:

l r0 hotvolume Setting
l r1 coldvolume Setting
l r2 furnacevolume Setting

bgtz r2 depressurize

min r0 r0 80
min r1 r1 80
mul r2 r0 2
sub r1 r1 r2
max r1 r1 0

s hotpump Setting r0
s hotpump On 1
s coldpump Setting r1
s coldpump On 1

s furnace SettingInput 100
s furnace SettingOutput 0

j start

depressurize:

mul r0 r2 1.0
min r0 r0 100
max r0 r0 2

s coldpump Setting 0
s coldpump On 0
s hotpump Setting 0
s hotpump On 0
s furnace SettingInput 100
s furnace SettingOutput r0

j start