@0
MOV RIGHT,ACC#W
MOV ACC,DOWN
MOV ACC,DOWN

@1
S:MOV UP,ACC
MOV ACC,RIGHT
MOV UP,DOWN
MOV RIGHT,LEFT
SUB RIGHT
JEZ S
L:SUB 30
JLZ E
MOV 30,LEFT
MOV -1,DOWN
JMP L
E:ADD 30
JEZ S
MOV ACC,LEFT
MOV -1,DOWN

@2
S:MOV LEFT,ACC
MOV ACC,RIGHT
SAV
MOV RIGHT,ACC
JLZ F
SWP
F: SWP
MOV ACC,LEFT
MOV ACC,LEFT

@3
MOV 30,ACC
S:SAV
SUB LEFT
JLZ NL
JEZ NL
MOV -1,LEFT
JMP S
NL:SWP
MOV ACC,LEFT
SWP
L:ADD 30
JLZ L
JEZ L
JMP S

@4
S:MOV UP,RIGHT#W
MOV ACC,DOWN #X
ADD UP
SUB 30
JLZ SAME_LINE
MOV 1,DOWN #DY
JMP S
SAME_LINE:
ADD 30
MOV 0,DOWN #DY

@5
S:MOV UP,ACC#C
MOV LEFT,RIGHT#W
JLZ LOLD
SAV
MOV ACC,RIGHT
JMP S
LOLD: SWP
MOV ACC,RIGHT

@6
S:MOV LEFT,RIGHT#W
MOV LEFT,ACC#C
JLZ LOLD
SAV
MOV ACC,DOWN
JMP S
LOLD: SWP
MOV ACC,DOWN
SWP

@7
MOV LEFT,DOWN#W

@8
MOV UP,RIGHT#X
MOV ACC,RIGHT #Y
ADD UP #DY

@9
MOV LEFT,RIGHT #X
MOV LEFT,RIGHT #Y

@10
MOV LEFT,DOWN
MOV LEFT,DOWN
MOV UP,ACC
JMP L
-9:MOV ACC,DOWN
   MOV ACC,DOWN
   MOV ACC,DOWN
   MOV ACC,DOWN
-5:MOV ACC,DOWN
   MOV ACC,DOWN
   MOV ACC,DOWN
-2:MOV ACC,DOWN
-1:MOV ACC,DOWN
L:JRO RIGHT
MOV -1,DOWN

@11
MOV UP,ACC#W
SAV
L:SUB 9
JLZ N
MOV -9, LEFT
JMP L
N:ADD 9
NEG
JEZ E
MOV ACC,LEFT
E:MOV 1,LEFT