@0
MOV UP, DOWN
MOV UP, ACC
MOV ACC, DOWN
MOV UP, RIGHT
H:MOV ACC, RIGHT
JMP H

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

@2
MOV LEFT, RIGHT
L:MOV UP, ACC
MOV ACC, LEFT
SUB RIGHT
MOV ACC, DOWN
JMP L

@3
MOV LEFT, ACC
H:MOV ACC, LEFT
JMP H

@4
MOV UP, ACC
NEG
ADD UP
H:MOV ACC, RIGHT
JMP H

@5
MOV 1, ACC
SAV
MOV ACC, RIGHT
L:MOV UP, ACC
JNZ S
SWP
ADD LEFT
MOV ACC, RIGHT
JMP L
S:SAV
MOV ACC, RIGHT
JMP L

@6
MOV LEFT, ACC
SAV
MOV UP, ACC
JNZ S1
SWP
S1:MOV ACC, DOWN
MOV LEFT, ACC
SAV
MOV UP, ACC
JNZ S2
SWP
S2:MOV ACC, DOWN

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