alias ic d0

define WHEATSS 5
define WHEATDEP 4
define TOMATOSS 20
define TOMATODEP 4
define SOYSS 14
define SOYDEP 4
define PUMPKINSS 21
define PUMPKINDEP 4

move sp 0

push 0 # real count of hydroponics devices poke-d later.

push HASH("hydro b1")
push 0 # hydro station
push WHEATSS # seed station
push WHEATDEP

push HASH("hydro b2")
push 1 # hydro station
push WHEATSS # seed station
push WHEATDEP

push HASH("hydro b3")
push 2 # hydro station
push WHEATSS # seed station
push WHEATDEP

push HASH("hydro b4")
push 3 # hydro station
push WHEATSS # seed station
push WHEATDEP

push HASH("hydro d1")
push 6 # hydro station
push SOYSS # seed station
push SOYDEP

push HASH("hydro d2")
push 7 # hydro station
push SOYSS # seed station
push SOYDEP

push HASH("hydro d3")
push 8 # hydro station
push SOYSS # seed station
push SOYDEP

push HASH("hydro d4")
push 9 # hydro station
push SOYSS # seed station
push SOYDEP

push HASH("hydro e1")
push 10 # hydro station
push TOMATOSS # seed station
push TOMATODEP

push HASH("hydro e2")
push 11 # hydro station
push TOMATOSS # seed station
push TOMATODEP

push HASH("hydro e3")
push 12 # hydro station
push TOMATOSS # seed station
push TOMATODEP

push HASH("hydro e4")
push 13 # hydro station
push TOMATOSS # seed station
push TOMATODEP

push HASH("hydro f1")
push 16 # hydro station
push PUMPKINSS # seed station
push PUMPKINDEP

push HASH("hydro f2")
push 17 # hydro station
push PUMPKINSS # seed station
push PUMPKINDEP

push HASH("hydro f3")
push 18 # hydro station
push PUMPKINSS # seed station
push PUMPKINDEP

push HASH("hydro f4")
push 19 # hydro station
push PUMPKINSS # seed station
push PUMPKINDEP

s db Setting sp
div r0 sp 4
floor r0 r0
poke 0 r0 # set the number of stations based on how much we pushed to the SP
# number of hydroponics configurations
s db Setting r0

start:

# copy stack from this IC to the target
move r1 0
loop:
get r0 db r1
put ic r1 r0

add r1 r1 1
blt r1 sp loop


sleep 2
j start