alias printer d0
alias sorter d1
alias vend d2
alias button d3

alias ingothash r9

define INGOTCLASS 19

setup:

s sorter Mode 2
s printer ClearMemory 1
move ingothash -1
j scan

start:
yield
s db Setting ingothash
ls r0 sorter 0 OccupantHash
bne r0 0 good
s sorter On 0
j over
good:
seq r0 r0 ingothash
s sorter Output r0
s sorter On 1
#select ingothash r0 -1 ingothash
over:
l r0 printer ImportCount
select ingothash r0 -1 ingothash
l r0 button Setting
select ingothash r0 -1 ingothash
yield

bne ingothash -1 start
scan:
l r0 printer Open
bgtz r0 start

lr r0 printer Required HASH("Astroloy")
select ingothash r0 412924554 ingothash
lr r0 printer Required HASH("Constantan")
select ingothash r0 1058547521 ingothash
lr r0 printer Required HASH("Copper")
select ingothash r0 -404336834 ingothash
lr r0 printer Required HASH("Gold")
select ingothash r0 226410516 ingothash
lr r0 printer Required HASH("Inconel")
select ingothash r0 -787796599 ingothash
lr r0 printer Required HASH("Iron")
select ingothash r0 -1301215609 ingothash
lr r0 printer Required HASH("Nickel")
select ingothash r0 -1406385572 ingothash
lr r0 printer Required HASH("Silicon")
select ingothash r0 -290196476 ingothash
lr r0 printer Required HASH("Silver")
select ingothash r0 -929742000 ingothash
lr r0 printer Required HASH("Steel")
select ingothash r0 -654790771 ingothash
lr r0 printer Required HASH("Solder")
select ingothash r0 -82508479 ingothash
lr r0 printer Required HASH("Electrum")
select ingothash r0 502280180 ingothash
lr r0 printer Required HASH("Invar")
select ingothash r0 -297990285 ingothash
lr r0 printer Required HASH("Stellite")
select ingothash r0 -1897868623 ingothash
lr r0 printer Required HASH("Hastelloy")
select ingothash r0 1579842814 ingothash

beq ingothash -1 start
s printer ClearMemory 1
s vend RequestHash ingothash
yield
j start