@1
MOV UP, RIGHT

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

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

@7
S: MOV UP, ACC
JLZ CM
MOV ACC, DOWN
MOV RIGHT, NIL
JMP S
CM: MOV UP, ACC
SAV
SUB RIGHT
JGZ Z
SWP
MOV ACC, DOWN
JMP S
Z: MOV 0, DOWN

@8
MOV ACC, LEFT
ADD 8
