@1
MOV UP, ACC
MOV ACC, DOWN
MOV ACC, RIGHT
MOV ACC, DOWN

@4
MOV 999, ACC
L: SUB UP
JGZ N
ADD UP
JMP L
N: MOV UP, ACC
JLZ E
SAV
JMP L
E: SWP
MOV ACC, RIGHT
MOV RIGHT, NIL

@5
MOV -1, UP
S: MOV LEFT, DOWN
MOV UP, RIGHT
T: MOV UP, ACC
JLZ D
MOV ACC, RIGHT
JMP T
D: MOV ACC, LEFT
MOV ACC, UP
P: MOV RIGHT, ACC
MOV ACC, DOWN
JLZ S
MOV ACC, DOWN
JMP P

@7
MOV UP, ACC
NEG
L: ADD UP
JLZ E
MOV ACC, DOWN
SUB UP
JMP L
E: MOV -1, DOWN
