@1
MOV UP, ACC
SAV
MOV RIGHT, ACC
L: SWP
MOV ACC, DOWN
SWP
SUB 1
JNZ L
MOV 0, DOWN

@2
MOV UP, LEFT

@4
MOV UP, ACC
TOP: SAV
MOV UP, ACC
MOV ACC, RIGHT
JEZ DONE
L: SWP
MOV ACC, RIGHT
SWP
SUB 1
JNZ L
MOV RIGHT, ACC
JMP TOP
DONE: SWP
MOV ACC, RIGHT

@5
L0: MOV LEFT, ACC
JEZ O
L: SWP
ADD LEFT
SWP
SUB 1
JNZ L
SWP
MOV ACC, LEFT
JMP L0
O: MOV LEFT, DOWN

@7
MOV UP, DOWN
