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

@1
MOV LEFT, DOWN
MOV LEFT, DOWN
JMP C
Z: MOV -1, DOWN
C: MOV RIGHT, ACC
SUB LEFT
JNZ Z
MOV 1, DOWN
JMP C

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

@5
MOV UP, ACC
MOV UP, RIGHT
Z: MOV 0, RIGHT
L: JRO UP
MOV ACC, RIGHT
JMP L

@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
JMP Z
Z0: MOV 0, DOWN
Z: MOV UP, ACC
JEZ Z0
SWP
SAV
SUB UP
JNZ Z0
MOV 1, DOWN
JMP Z
