@0
MOV UP, RIGHT

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

@2
L: MOV UP, ACC
MOV ACC, DOWN
SUB LEFT
JNZ N
MOV 1, RIGHT
JMP L
N: MOV 0, RIGHT

@3
MOV ACC, DOWN
MOV LEFT, ACC

@5
MOV UP, ACC
MOV UP, DOWN
L: MOV ACC, RIGHT
JMP L

@6
L: MOV UP, ACC
MOV ACC, DOWN
SUB LEFT
JNZ N
MOV RIGHT, DOWN
JMP L
N: MOV 0, DOWN
MOV RIGHT, NIL

@7
L: MOV UP, LEFT

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

@10
L: MOV UP, ACC
SUB LEFT
JNZ N
MOV UP, ACC
SWP
MOV ACC, DOWN
JMP L
N: MOV UP, ACC
SAV
MOV 0, DOWN
