alias vending d0
alias hash r15
alias qty r14
alias index r13
alias accum r12
alias scanslot r11
define LASTSLOT 100
define MAXINDEX 55
define MODULUS 54 # magic
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:


get r0 db 8
sbn DISPHASH HASH("display waspaloy") Setting r0
get r0 db 41
sbn DISPHASH HASH("display stellite") Setting r0
get r0 db 53
sbn DISPHASH HASH("display steel") Setting r0
get r0 db 11
sbn DISPHASH HASH("display solder") Setting r0
get r0 db 30
sbn DISPHASH HASH("display silver") Setting r0
get r0 db 10
sbn DISPHASH HASH("display silicon") Setting r0
get r0 db 40
sbn DISPHASH HASH("display nickel") Setting r0
get r0 db 43
sbn DISPHASH HASH("display lead") Setting r0
get r0 db 35
sbn DISPHASH HASH("display iron") Setting r0
get r0 db 21
sbn DISPHASH HASH("display invar") Setting r0
get r0 db 5
sbn DISPHASH HASH("display inconel") Setting r0
get r0 db 22
sbn DISPHASH HASH("display hastelloy") Setting r0
get r0 db 18
sbn DISPHASH HASH("display gold") Setting r0
get r0 db 44
sbn DISPHASH HASH("display electrum") Setting r0
get r0 db 46
sbn DISPHASH HASH("display copper") Setting r0
get r0 db 47
sbn DISPHASH HASH("display constantan") Setting r0
get r0 db 0
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

mod sp hash MODULUS
add sp sp 1

pop accum
add accum accum qty
push accum

empty:
s db Setting scanslot
add scanslot scanslot 1
ble scanslot LASTSLOT nextslot

j start