@0


@1
MOV UP, RIGHT

@2
MOV UP, ACC
NEG
MOV ACC, DOWN
MOV LEFT, ACC
MOV ACC, DOWN

@3


@4
L: MOV 0, ACC
C: ADD RIGHT
JLZ END
JMP C
END: ADD 999
MOV ACC, DOWN
JMP L

@5
L: MOV UP, ACC
MOV ACC, RIGHT
SAV
MOV UP, ACC
C: ADD RIGHT
SWP
MOV ACC, RIGHT
SWP
JLZ DONE
MOV 1, LEFT
JMP C
DONE: SUB RIGHT
MOV -999, LEFT
MOV ACC, DOWN
JMP L

@6


@7
MOV UP, DOWN

@8
MOV UP, DOWN
