@0
MOV UP, DOWN

@1
MOV RIGHT, DOWN
L: MOV UP, ACC
MOV ACC, DOWN
MOV ACC, DOWN
JNZ L

@2
MOV UP, LEFT

@3
MOV UP, DOWN

@4
S: MOV UP, ACC
L: SAV
SUB UP
JLZ LOW
MOV UP, ACC
T: MOV ACC, DOWN
MOV ACC, DOWN
JEZ S
SWP
JMP L
LOW: MOV UP, NIL
SWP
MOV ACC, DOWN
MOV ACC, DOWN
JMP L

@7
MOV UP, RIGHT

@8
S: MOV LEFT, ACC
L: SAV
SUB UP
JGZ LOW
MOV UP, ACC
T: MOV ACC, DOWN
JEZ S
SWP
JMP L
LOW: MOV UP, ACC
JEZ T
SWP
MOV ACC, DOWN
JMP L
