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

@2
MOV LEFT, RIGHT
MOV RIGHT, ACC
SAV
MOV LEFT, ACC
SUB 1
R: SWP
MOV ACC, DOWN
SWP
SUB 1
JGZ R
MOV 0, DOWN

@3
S: MOV LEFT, ACC
SUB 90
JEZ N
SUB 180
JEZ P
MOV 0, LEFT
JMP S
N: MOV -1, LEFT
JMP S
P: MOV 1, LEFT

@4
S: MOV RIGHT, ACC
JEZ P
SUB 180
JEZ M
MOV 0, RIGHT
JMP S
P: MOV 1, RIGHT
JMP S
M: MOV -1, RIGHT

@5
MOV UP, LEFT
MOV LEFT, ACC
SAV
MOV UP, ACC
SUB 1
R: SWP
MOV ACC, DOWN
SWP
SUB 1
JGZ R
MOV 0, DOWN

@6
MOV ACC, DOWN
ADD UP

@8
MOV ACC, RIGHT
ADD UP

@9
MOV LEFT, DOWN
MOV UP, DOWN
MOV 3, DOWN
MOV -1, DOWN
