@0
MOV UP, DOWN

@3
S: SUB RIGHT
JGZ P
JEZ D
N: MOV UP, DOWN
ADD 1
JLZ N
JMP D
P: MOV DOWN, UP
SUB 1
JGZ P
D: MOV RIGHT, ACC
MOV UP, RIGHT
MOV RIGHT, UP

@4
L: MOV UP, ACC
SAV
MOV UP, ACC
SUB 8
MOV ACC, LEFT
MOV ACC, LEFT
SWP
JNZ R
MOV UP, ACC
MOV LEFT, NIL
MOV ACC, LEFT
JMP L
R: MOV LEFT, ACC
MOV ACC, DOWN
MOV ACC, LEFT

@7
SUB 8
I: MOV 0, LEFT
ADD 1
JLZ I
L: MOV UP, DOWN
JMP L
