@0
S: MOV UP, ACC
MOV ACC, RIGHT
SWP
ADD 1
SWP
JNZ S
SWP
MOV ACC, DOWN

@1
MOV UP, DOWN

@2
MOV UP, RIGHT

@3
I: MOV LEFT, ACC
NEG
R: MOV UP, DOWN
ADD 1
JNZ R
T: MOV DOWN, ACC
MOV ACC, RIGHT
MOV ACC, DOWN
Q: MOV RIGHT, ACC
JEZ T
JLZ R
L: MOV DOWN, UP
SUB 1
JNZ L
JMP T

@4
MOV LEFT, NIL
MOV UP, ACC
Q: SAV
SUB DOWN
MOV ACC, LEFT
SWP
MOV ACC, DOWN
MOV LEFT, DOWN
MOV UP, ACC
JMP Q

@5


@6


@7
MOV ACC, UP
L: MOV UP, ACC
MOV UP, DOWN
MOV ACC, UP
JMP L

@8

