@0
L: MOV UP, ACC
MOV ACC, DOWN
SAV
MOV UP, ACC
MOV ACC, DOWN
NEG
ADD 8
MOV ACC, DOWN
SWP
JEZ W
JMP L
W: MOV UP, DOWN

@3
MOV RIGHT, ACC
JEZ H
P: MOV DOWN, UP
SUB 1
JNZ P
H: MOV DOWN, RIGHT
MOV RIGHT, UP
MOV RIGHT, ACC
T: MOV DOWN, UP
SUB 1
JNZ T
MOV 9, ACC
U: MOV UP, DOWN
SUB 1
JNZ U

@4
L: MOV UP, ACC
SAV
MOV UP, LEFT
MOV UP, ACC
SWP
JEZ W
MOV LEFT, ACC
MOV ACC, DOWN
MOV ACC, LEFT
JMP T
W: MOV UP, ACC
MOV LEFT, NIL
MOV ACC, LEFT
T: SWP
MOV ACC, LEFT

@7
MOV 9, ACC
I: MOV 0, LEFT
SUB 1
JNZ I
M: MOV UP, DOWN
JMP M
