@0
MOV 8, ACC
I: MOV 0, LEFT
SUB 1
JNZ I
L: MOV UP, ACC
SAV
MOV UP, ACC
MOV ACC, DOWN
SWP
MOV ACC, DOWN
JNZ L
W: MOV UP, DOWN
JMP L

@1


@2


@3
L: JRO RIGHT
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
T: MOV UP, RIGHT
MOV RIGHT, UP
MOV RIGHT, ACC
JEZ L
R: MOV DOWN, UP
SUB 1
JNZ R

@4
L: MOV UP, ACC
SAV
NEG
ADD 8
MOV ACC, LEFT
MOV UP, ACC
JEZ W
MOV LEFT, ACC
MOV ACC, LEFT
MOV ACC, DOWN
JMP C
W: MOV LEFT, NIL
MOV UP, LEFT
C: SWP
MOV ACC, LEFT

@5


@6


@7
MOV UP, DOWN

@8

