@0
MOV UP, RIGHT

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

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

@5
MOV UP, ACC
NEG
ADD UP
SAV
MOV UP, ACC
NEG
ADD UP
MOV ACC, RIGHT
SWP
H:MOV ACC, RIGHT
JMP H

@6
MOV 1, ACC
SAV
MOV LEFT, DOWN
L:MOV UP, ACC
MOV ACC, DOWN
MOV ACC, DOWN
JNZ Z1
SWP
ADD LEFT
JNZ Z
MOV 1, DOWN
JMP L
Z1:SAV
Z:MOV 0, DOWN
JMP L

@10
MOV UP, ACC
L:SUB UP
JNZ Z
ADD UP
SWP
MOV ACC, DOWN
JMP N
Z:ADD UP
MOV 0, DOWN
SWP
N:MOV UP, ACC
SWP
JMP L
