@1
MOV UP, ACC
SAV
A: MOV RIGHT, ACC
JNZ SEND
MOV UP, ACC
SAV
JMP A
SEND: SWP
MOV ACC, RIGHT
SWP
JMP A

@2
B: MOV UP, ACC
MOV ACC, DOWN
JEZ Z
L: MOV 1, LEFT
MOV LEFT, DOWN
SUB 1
JNZ L
Z: MOV ACC, LEFT

@5
MOV UP, DOWN

@7
MOV UP, ACC
SAV
MOV 0, ACC
SWP
JEZ DONE
L: SWP
ADD UP
SWP
SUB 1
JNZ L
DONE: SWP
MOV ACC, DOWN
