@1
MOV UP, DOWN

@2
MOV UP, RIGHT
MOV ACC, DOWN
ADD 8

@3
MOV LEFT, DOWN

@4
MOV UP, RIGHT

@5
S: MOV LEFT, ACC
SAV
SUB UP
JGZ SN
MOV -1, DOWN
JMP S
SN: SWP
MOV ACC, DOWN

@6
MOV UP, DOWN
MOV ACC, DOWN
ADD 8

@7
S: MOV UP, ACC
JLZ USE_M
MOV RIGHT, NIL
MOV ACC, DOWN
JMP S
USE_M:
MOV RIGHT, DOWN

@8
S: MOV UP, ACC
SAV
SUB UP
JGZ Z
SWP
MOV ACC, LEFT
JMP S
Z: MOV 0, LEFT
