next:
INBOX
COPYTO   0
JUMP     out

neg:
BUMPUP   0

out:
OUTBOX

timer:
COPYFROM 0
JUMPN    neg
JUMPZ    next

pos:
BUMPDN   0
JUMP     out