@0
MOV UP,DOWN

@1


@2


@3
I: MOV UP,ACC
SAV
MOV ACC,RIGHT
JEZ I
JMP S
M: MOV DOWN,ACC
MOV ACC,RIGHT
S: MOV DOWN,ACC
MOV ACC,DOWN
MOV ACC,RIGHT
JRO RIGHT
SWP
MOV ACC,DOWN

@4
MOV 0,UP
I: MOV LEFT,ACC
JGZ C
MOV -1,UP
JMP R
M: MOV -5,LEFT
SWP
MOV LEFT,UP
C: SAV
SUB LEFT
JGZ M
MOV 1,LEFT
R: MOV UP,ACC
MOV ACC,DOWN
JNZ R

@5


@6


@7
I: MOV 999,LEFT
JMP R
P: MOV ACC,LEFT
R: MOV UP,ACC
JGZ P
JEZ R
O: MOV LEFT,ACC
SUB 999
JEZ E
ADD 999
MOV ACC,DOWN
JMP O
E: MOV 0,DOWN

@8

