@0


@1
MOV UP, DOWN

@2


@3


@4


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

@6


@7


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

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

@10

