@0
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT

@1
L0:
MOV UP, ACC
SAV
SUB LEFT
JLZ AB
SWP
MOV ACC, DOWN
MOV LEFT, DOWN
JMP L0
AB:
MOV LEFT, DOWN
SWP
MOV ACC, DOWN

@2
L0:
MOV UP, ACC
SAV
SUB RIGHT
JLZ AB
SWP
MOV ACC, DOWN
MOV RIGHT, DOWN
JMP L0
AB:
MOV RIGHT, DOWN
SWP
MOV ACC, DOWN

@3
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT

@5
L0:
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV UP, ACC
SAV
SUB RIGHT
JGZ NB
MOV RIGHT, DOWN
JMP L0
NB:
MOV RIGHT, NIL
SWP
MOV ACC, DOWN

@6
MOV UP, ACC
SAV
SUB LEFT
JGZ B
MOV LEFT, NIL
JMP T
B:
MOV LEFT, ACC
SWP
T:
MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT
SWP
MOV ACC, DOWN

@8
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT

@9
L0:
MOV UP, ACC
SAV
SUB LEFT
JLZ YB
MOV LEFT, NIL
SWP
MOV ACC, DOWN
JMP L0
YB:
MOV LEFT, DOWN
