@0


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

@2
MOV RIGHT,LEFT

@3
A:MOV UP,ACC
MOV ACC,DOWN
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
R:MOV 0,LEFT
MOV 12,ACC
T:MOV DOWN,LEFT
SUB 1
JNZ T
H:MOV 12,ACC
S:MOV LEFT,DOWN
SUB 1
JNZ S
MOV LEFT,NIL
JMP R

@6
MOV UP,DOWN

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

@8
MOV 12,ACC
I:MOV UP,LEFT
SUB 1
JNZ I
MOV UP,NIL
