@0
MOV UP, RIGHT

@1
MOV LEFT, ACC
MOV ACC, RIGHT
MOV ACC, DOWN
MOV LEFT, DOWN
MOV LEFT, DOWN
L: MOV ACC, RIGHT
JMP L

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

@3


@4


@5
MOV UP, ACC
SAV
SUB UP
SWP
SUB UP
MOV ACC, DOWN
SWP
L: MOV ACC, RIGHT
JMP L

@6
P: MOV UP, ACC
MOV 0, DOWN
JNZ P
R: MOV UP, ACC
MOV 0, DOWN
JMP D
Q: MOV UP, ACC
ADD 500
MOV ACC, DOWN
SUB 500
JNZ P
D: ADD LEFT
JEZ Q
SUB LEFT
JEZ R

@7


@8


@9
MOV UP, ACC
SUB 500
L: MOV ACC, RIGHT
JMP L

@10
L: MOV UP, ACC
JEZ Z
ADD LEFT
JNZ Z
MOV 1, DOWN
JMP L
Z: MOV 0, DOWN
