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

@1
MOV UP,DOWN

@2
MOV UP,RIGHT

@3
MOV LEFT,DOWN
MOV LEFT,RIGHT
R: MOV UP,ACC
MOV ACC,DOWN
JNZ R
Q: MOV RIGHT,ACC
L: MOV DOWN,UP
SUB 1
JGZ L
A: MOV DOWN,UP
MOV DOWN,ACC
MOV ACC,RIGHT
MOV ACC,DOWN
JMP R

@4
MOV LEFT,ACC
SAV
Q: MOV UP,ACC
JEZ Z
MOV ACC,LEFT
MOV LEFT,DOWN
JMP Q
Z: SWP
MOV ACC,DOWN
SWP
JMP Q

@5


@6


@7
MOV UP,DOWN

@8

