@0
MOV UP, RIGHT

@1
SEQ:
MOV LEFT, ACC
SAV
VAL:
MOV UP, ACC
MOV ACC, RIGHT
JEZ SEQ
SWP
MOV ACC, RIGHT
MOV ACC, RIGHT
SWP
JMP VAL

@2
MOV UP, DOWN
MOV LEFT, ACC
JEZ ZERO
SAV
SUB LEFT
JGZ POS
MOV LEFT, DOWN
JRO -6
POS:
MOV LEFT, NIL
SWP
MOV ACC, DOWN
JRO -10
ZERO:
MOV ACC, DOWN

@5
SEQ:
MOV UP, ACC
SAV
VAL:
MOV UP, ACC
MOV ACC, DOWN
JEZ SEQ
SWP
MOV ACC, DOWN
MOV ACC, DOWN
SWP
JMP VAL

@8
MOV RIGHT, DOWN

@9
VAL:
MOV UP, ACC
JEZ ZERO
SAV
SUB UP
JGZ POS
MOV UP, NIL
SWP
MOV ACC, LEFT
JMP VAL
ZERO:
MOV ACC, LEFT
JMP VAL
POS:
MOV UP, LEFT
