@0
MOV DOWN, ACC
SWP
MOV ACC, DOWN
MOV DOWN, ACC
SAV

@1
MOV UP, RIGHT

@2
MOV UP, DOWN
MOV LEFT, DOWN

@4
MOV RIGHT, ACC
SUB 1
JNZ N
MOV ACC, UP
MOV UP, ACC
SWP
MOV ACC, RIGHT
SWP
JMP B
N: MOV ACC, UP
MOV UP, ACC
MOV ACC, RIGHT
B: MOV RIGHT, ACC
SWP
MOV ACC, UP

@5
MOV DOWN, ACC
SUB 1
JNZ N
MOV ACC, LEFT
MOV LEFT, ACC
SWP
MOV ACC, DOWN
SWP
JMP B
N: MOV ACC, LEFT
MOV LEFT, ACC
MOV ACC, DOWN
B: MOV DOWN, ACC
SWP
MOV ACC, LEFT

@6
MOV UP, DOWN
MOV UP, DOWN

@8
MOV RIGHT, ACC
SUB 1
JNZ N
MOV ACC, UP
MOV UP, ACC
SWP
MOV ACC, RIGHT
SWP
JMP B
N: MOV ACC, UP
MOV UP, ACC
MOV ACC, RIGHT
B: MOV RIGHT, ACC
SWP
MOV ACC, UP

@9
S: MOV UP, ACC
SAV
MOV UP, ACC
NEG
MOV ACC, LEFT
JEZ Z
MOV LEFT, ACC
MOV ACC, DOWN
SWP
JMP E
Z: MOV LEFT, ACC
SWP
MOV ACC, DOWN
E: MOV ACC, LEFT
