alias dial d0
alias calcic d1
alias console d3

alias ingothash r15
alias pressure r14
alias temperature r13
alias RECIPECOUNT r12
alias max_pressure r11


move sp 0
push HASH("ItemAstroloyIngot")
push 1100
push 30100
push 35000 # really 40M
push HASH("ItemConstantanIngot")
push 1100
push 20100
push 25000 # really 100M
push HASH("ItemCopperIngot")
push 700
push 110
push 1000 # really 100M
push HASH("ItemElectrumIngot")
push 700
push 900
push 2400
push HASH("ItemGoldIngot")
push 700
push 200
push 2000 # really 100M
push HASH("ItemHastelloyIngot")
push 1000
push 25500
push 30000
push HASH("ItemInconelIngot")
push 700
push 23550
push 24000
push HASH("ItemInvarIngot")
push 1300
push 18100
push 20000
push HASH("ItemIronIngot")
push 900
push 110
push 2000 # really 100M
#Nickel
#Lead
push HASH("ItemSiliconIngot")
push 1000
push 110
push 1000 # really 100M
push HASH("ItemSilverIngot")
push 700
push 110
push 1000 # really 100M
push HASH("ItemSolderIngot")
push 360
push 1100
push 2000 # really 100M
push HASH("ItemSteelIngot")
push 1000
push 1100
push 2000 # really 100M
push HASH("ItemStelliteIngot")
push 1900
push 10100
push 20000
push HASH("ItemWaspaloyIngot")
push 410
push 51000
push 70000 # really 100M

div RECIPECOUNT sp 4

start:
yield

l r0 dial Setting

bgtz r0 nonzero

s dial Setting RECIPECOUNT
j start

nonzero:

ble r0 RECIPECOUNT good
s dial Setting 1
j start

good:

mul sp r0 4

pop max_pressure
pop pressure
pop temperature
pop ingothash

#bdns console noconsole
s db Setting ingothash

noconsole:

put calcic 0 temperature
put calcic 1 pressure
put calcic 2 max_pressure

j start