@0
MOV UP, RIGHT

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

@2
D: MOV UP, ACC
MOV 0, DOWN
B: SWP
SUB LEFT
JNZ K
SWP
SAV
SUB LEFT
JNZ D
A: MOV UP, ACC
MOV ACC, DOWN
JMP B
K: MOV LEFT, NIL

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

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

@10
MOV UP, DOWN
