@0
MOV UP, RIGHT

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

@2
MOV UP, DOWN

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

@5
SEQ:
MOV UP, ACC
SAV
VAL:
MOV LEFT, 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
