@0


@1
MOV UP, DOWN

@3


@5
L: MOV UP, ACC
MOV ACC, RIGHT
SUB DOWN
JLZ U
MOV 0, ACC
U: MOV ACC, DOWN

@6
MOV LEFT, ACC
MOV ACC, DOWN
MOV ACC, DOWN

@8
I: MOV 999, ACC
L: SAV
MOV ACC, UP
ADD UP
JNZ L
SWP
MOV ACC, DOWN

@9
I: MOV -1, ACC
S: SAV
L: SUB UP
JLZ N
MOV UP, ACC
JEZ E
SWP
JMP S
N: MOV UP, ACC
JNZ S
E: SWP
MOV ACC, DOWN

@10

