@0


@1
Q:MOV RIGHT,ACC
SAV
MOV 13,ACC
L:SWP
MOV ACC,DOWN
MOV ACC,DOWN
SWP
SUB 1
JNZ L

@2
I:MOV RIGHT,ACC
MOV ACC,DOWN
JNZ I
Q:MOV RIGHT,LEFT
JMP Q

@3
A:MOV UP,ACC
MOV ACC,LEFT
JNZ A
B:MOV UP,ACC
JEZ C
MOV ACC,LEFT
JMP B
C:MOV UP,ACC
NEG
MOV ACC,LEFT
JMP C

@4
I:MOV 13,ACC
R:MOV RIGHT,LEFT
SUB 1
JNZ R
S:MOV LEFT,ACC
SUB UP
JEZ M
ADD UP
W:MOV ACC,RIGHT
JNZ S
JMP I
M:ADD UP
NEG
MOV ACC,DOWN
JMP W

@5
MOV 0,DOWN
I:MOV UP,ACC
JEZ R
MOV ACC,DOWN
JMP I
R:MOV 0,LEFT
T:MOV DOWN,ACC
JEZ H
MOV ACC,LEFT
JMP T
H:MOV 0,DOWN
S:MOV LEFT,ACC
JEZ R
MOV ACC,DOWN
JMP S

@6


@7
F:MOV UP,ACC
JLZ F
MOV ACC,DOWN

@8

