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

@2
MOV UP, LEFT
MOV LEFT, ACC
TOP: SAV
MOV LEFT, ACC
MOV ACC, DOWN
JEZ DONE
L: SWP
MOV ACC, DOWN
SWP
SUB 1
JNZ L
MOV DOWN, ACC
JMP TOP
DONE: SWP
MOV ACC, DOWN

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

@7
MOV UP, DOWN
