alias ringmaster d0
alias hash r15
alias qty r14
alias address r13
define MODULUS 55

mul sp 1 MODULUS
add sp 5 sp

start:

move address 0
zeroram:
put db address 0
add address 1 address
blt address MODULUS zeroram

move hash HASH("ItemKitWall")
move qty 30
jal configure

move hash HASH("ItemKitWallIron")
move qty 30
jal configure

move hash HASH("ItemSteelSheets")
move qty 50
jal configure

move hash HASH("ItemPlasticSheets")
move qty 50
jal configure

move hash HASH("ItemGlassSheets")
move qty 50
jal configure

move hash HASH("ItemCableCoil")
move qty 50
jal configure

move hash HASH("ItemCableCoilHeavy")
move qty 50
jal configure

move hash HASH("ItemSteelFrames")
move qty 30
jal configure

move hash HASH("ItemKitPipe")
move qty 20
jal configure

move hash HASH("ItemKitInsulatedPipe")
move qty 20
jal configure

move hash HASH("ItemKitInsulatedLiquidPipe")
move qty 20
jal configure

move hash HASH("ItemKitLogicCircuit")
move qty 5
jal configure

# transfer results to the ringmaster IC
move address 0
copy:
get qty db address
add r1 address MODULUS
put ringmaster r1 qty
add address 1 address
ble address MODULUS copy

sleep 5
j start

configure:
mod address hash MODULUS
put db address qty
j ra