year20-small.hrm

-- HUMAN RESOURCE MACHINE PROGRAM --

-- 20: Multiplication Workshop

-- INSTRUCTIONS: "For each two things in the INBOX, multiply them, and
-- OUTBOX the result. Don't worry about negative numbers for now."

-- AVAILABLE COMMANDS: INBOX, OUTBOX, COPYFROM, COPYTO, ADD, SUB,
-- BUMPUP, BUMPDN, JUMP, JUMPZ, JUMPN, COMMENT

-- SIZE: 15 commands (challenge 15)
-- AVERAGE RUNTIME: 135 steps (challenge 109)


-- Tile 0: First value
-- Tile 1: Partial sum
-- Tile 2: Second value
-- Tile 9: Permanent zero

    JUMP     c
a:
    COPYFROM 1
b:
    OUTBOX

-- Save the value of the first item of a pair, and initialize the
-- partial sum with it.
c:
    INBOX
    COPYTO   0
    COPYTO   1

-- If the second item of a pair has a value of zero, put it in the
-- outbox and move on to the next pair; otherwise, save it. (To minimize
-- program size, the case where the first item is zero is implicitly
-- handled by the repeated addition below, albeit inefficiently.)
    INBOX
    JUMPZ    b
    COPYTO   2

-- Repeatedly add the first value to the partial sum, using the second
-- value as a counter. (If the first value is zero, the partial sum
-- correctly ends up being zero.) After the correct number of additions,
-- put the partial sum in the outbox and move on to the next pair.
d:
    BUMPDN   2
    JUMPZ    a
    COPYFROM 1
    ADD      0
    COPYTO   1
    JUMP     d


DEFINE LABEL 0
eJyTYmBgYE34k8WUmBpVlzQ72DxV0GdDureHeCGHm1t5RGBD5fNouyq1zurqndM21UWs1Wx6vCW5RW37
xa7MnQcn3NtoMSVkVdE0jkUfpjXNBRrFwDxhi3l73w6rNw0H89zKtXoiCwKWG6WbH2YYJKC7dOc0EJ3d
uDf7ff38lvX1P6aC+KnNhabLm75bgthF0+xzf0z+k+Xab50l0M1TfqXzXrNw15bJAt17Z3r0HZ1fNZll
Pkjd4eXnyrmWepfNnH+pKn5uTFPinBVdSnM+T1o4Z+c02XkH51xd4L7QZwnLfNblZlMbV9xrtln1edLm
tUfBehdsOThnwZbnnU83Ta5O2+RcABJL2DK5WmyHe7HgLpZCzr1HC/cf8C77c1Cywe7glsm1B+tmgdRs
vuNezHydIa/9qn2u15WDeUEXvcvCz89uvHlOrfPmudy+6eeNJl28+GOq1xXrGVa39s4E6dl2+73x5zsM
eUZ3IXE0CkYBMgAATsqmEA;

DEFINE LABEL 1
eJyTYGBgONNz0k2gu8nxedMfm6PlBx1k8s96Ps2+F/oiSysuJccsXT5vb/bUQueC6ur+iuSWkJrQztmN
57ozu8/07J0Z0M279FpHxNrYtnsb3zSobf9TlbkzsPjxlrl5t9atyApYzjCEQUG9+0KWipOLQOySqYJy
5VOsbbZN6Sq1mCLbbDGlbpbpVMl1IDnxBVWZM+e7FwPxQhA/ZGGTI4heu35F161tim08e67V8uxhKby+
3Shl0ebXcXnrNySZrP2evmO1d1nl6szurWtKp6xdzzAnYBcH2K6PR3MT3hw/txTE1jtunaV26n1i6IXn
0ecuJYQ7Xb8XOjChMQqGKwAAxz9xqg;

DEFINE LABEL 2
eJyTYGBgiM6XVZfPq7KOy+tyj86fHiBe+CjibIle4p+qwuSXjalRyi33QhNapwfMand2mtX+SGt6h2JE
UJdzgXDXtVqJjp3TYtvaFrxsvLXuS+3jLa3latvv5k1f8yjn0gr1bIY5DKNgFIyCQQ0A8Hgsmw;

DEFINE LABEL 9
eJyTZWBg2Olzrtzax/nMT5/+K0Auwxa/Nb3G/mqdWUHXaueEuxdfi2QpPB3blH8s/mhhZcr0OpM0tc5P
aVsmf0pjmf8jRW/vjpTJ10H6DlXszW4tD6lxrhC9CeK3ln+3BNG2k1hEbSc1zXWYqLTl38RL1xgGEKw/
1lW66Whqx6ajt9Zpn6g6uvxk02mFMxwXZp7jvex+9dK1kjuTr6s8sj8p9ezWOqGX12qvPt+QdOupbKj6
w8m+b+8J+hy7KugTdU7U/96Z2cHzz6hFD6RfRsEooAYAAIuAXok;


-- vim: set autoindent: