@1
MOV UP, RIGHT

@2
S: MOV LEFT, ACC
SAV
MOV UP, ACC
L: SWP
MOV ACC, DOWN
SWP
SUB 1
JNZ L
MOV 0, DOWN

@5
S: MOV UP, ACC
JEZ X
MOV ACC, DOWN
L: SUB 1
SWP
ADD DOWN
SWP
JNZ L
SWP
X: MOV ACC, DOWN

@7
MOV 1, ACC
SAV
S: MOV UP, ACC
JEZ O
L: SWP
MOV ACC, UP
SWP
SUB 1
JNZ L
MOV UP, ACC
SAV
JMP S
O: SWP
MOV ACC, DOWN
