@0


@1
S: MOV UP, ACC
ADD 1
MOV ACC, DOWN
NEG
MOV ACC, DOWN
JEZ S
MOV ACC, RIGHT

@2


@3


@4
MOV ACC, RIGHT
MOV -999, ACC
L: SAV
B: ADD UP
JLZ NEW
ADD UP
JMP B
NEW: MOV UP, ACC
JLZ L
SWP
MOV ACC, RIGHT

@5
MOV 0, UP
MOV LEFT, NIL
MOV LEFT, ACC
MOV -1, RIGHT
L1: SAV
SUB UP
JLZ L2
MOV ACC, RIGHT
SWP
JMP L1
L2: MOV RIGHT, ACC
MOV ACC, DOWN
JGZ L2
JEZ L2

@6


@7
MOV UP, DOWN

@8

