alias vending d0
alias hash r15
alias qty r14
alias index r13
alias accum r12
alias scanslot r11
define LASTSLOT 100
define MAXINDEX 20
define MEMORYHASH HASH("StructureLogicMemory")
define DISPHASH HASH("StructureConsoleLED5")
define ASTROLOYHASH 412924554
define CONSTANTANHASH 1058547521
define COPPERHASH -404336834
define ELECTRUMHASH 502280180
define GOLDHASH 226410516
define HASTELLOYHASH 1579842814
define INCONELHASH -787796599
define INVARHASH -297990285
define IRONHASH -1301215609
define LEADHASH 2134647745
define NICKELHASH -1406385572
define SILICONHASH -290196476
define SILVERHASH -929742000
define SOLDERHASH -82508479
define STEELHASH -654790771
define STELLITEHASH -1897868623
define WASPALOYHASH 156348098
start:

move sp 17
pop r0
sbn DISPHASH HASH("display waspaloy") Setting r0
pop r0
sbn DISPHASH HASH("display stellite") Setting r0
pop r0
sbn DISPHASH HASH("display steel") Setting r0
pop r0
sbn DISPHASH HASH("display solder") Setting r0
pop r0
sbn DISPHASH HASH("display silver") Setting r0
pop r0
sbn DISPHASH HASH("display silicon") Setting r0
pop r0
sbn DISPHASH HASH("display nickel") Setting r0
pop r0
sbn DISPHASH HASH("display lead") Setting r0
pop r0
sbn DISPHASH HASH("display iron") Setting r0
pop r0
sbn DISPHASH HASH("display invar") Setting r0
pop r0
sbn DISPHASH HASH("display inconel") Setting r0
pop r0
sbn DISPHASH HASH("display hastelloy") Setting r0
pop r0
sbn DISPHASH HASH("display gold") Setting r0
pop r0
sbn DISPHASH HASH("display electrum") Setting r0
pop r0
sbn DISPHASH HASH("display copper") Setting r0
pop r0
sbn DISPHASH HASH("display constantan") Setting r0
pop r0
sbn DISPHASH HASH("display astroloy") Setting r0

yield

move sp 0
clear:
push 0
blt sp MAXINDEX clear

move scanslot 0
nextslot:

ls hash vending scanslot PrefabHash
ls qty vending scanslot Quantity
move sp 50

seq r0 hash ASTROLOYHASH
select sp r0 1 sp
seq r0 hash CONSTANTANHASH
select sp r0 2 sp
seq r0 hash COPPERHASH
select sp r0 3 sp
seq r0 hash ELECTRUMHASH
select sp r0 4 sp
seq r0 hash GOLDHASH
select sp r0 5 sp
seq r0 hash HASTELLOYHASH
select sp r0 6 sp
seq r0 hash INCONELHASH
select sp r0 7 sp
seq r0 hash INVARHASH
select sp r0 8 sp
seq r0 hash IRONHASH
select sp r0 9 sp
seq r0 hash LEADHASH
select sp r0 10 sp
seq r0 hash NICKELHASH
select sp r0 11 sp
seq r0 hash SILICONHASH
select sp r0 12 sp
seq r0 hash SILVERHASH
select sp r0 13 sp
seq r0 hash SOLDERHASH
select sp r0 14 sp
seq r0 hash STEELHASH
select sp r0 15 sp
seq r0 hash STELLITEHASH
select sp r0 16 sp
seq r0 hash WASPALOYHASH
select sp r0 17 sp

bgt sp 20 empty

pop accum
add accum accum qty
push accum

empty:
s db Setting scanslot

add scanslot scanslot 1
ble scanslot LASTSLOT nextslot

j start