@0
MOV UP, RIGHT

@1
MOV LEFT, ACC
SAV
SUB LEFT
MOV LEFT, DOWN
L: SWP
MOV ACC, DOWN
JMP L

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

@3


@4


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

@6
SUB LEFT
MOV ACC, DOWN
ADD LEFT
MOV ACC, DOWN
MOV UP, ACC
SUB LEFT
MOV ACC, DOWN
MOV UP, ACC

@7


@8


@9


@10
L: MOV UP, ACC
SWP
JNZ A
MOV UP, ACC
JNZ B
MOV UP, ACC
JNZ C
MOV 1, DOWN
JMP L
A: MOV UP, NIL
B: MOV UP, NIL
C: MOV 0, DOWN
