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

@1
MOV LEFT, ACC
SAV
MOV LEFT, DOWN
Z: MOV 0, DOWN
C: MOV RIGHT, ACC
SUB LEFT
JNZ Z
SWP
SAV
MOV ACC, DOWN
JMP C

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

@5
MOV UP, RIGHT

@6
MOV LEFT, DOWN
Z: MOV UP, ACC
MOV 0, DOWN
C: SUB LEFT
JNZ Z
MOV UP, ACC
MOV ACC, DOWN
MOV ACC, DOWN
JMP C

@10
MOV UP, ACC
SAV
Z: MOV UP, ACC
JNZ M
Z0: MOV 0, DOWN
JMP Z
M: SWP
SAV
SUB UP
JNZ Z0
MOV 1, DOWN
JMP Z
