@0


@1
N: MOV UP  ACC
A: SUB RIGHT
   JLZ L
   MOV  -2 RIGHT
   JMP A

L: MOV   1 RIGHT
   MOV ACC RIGHT

S: MOV   1 ACC
   SUB RIGHT
   JNZ N
Z: MOV   4 RIGHT
   MOV UP  RIGHT
   JMP S

@2
MOV UP   ACC
MOV ACC  LAST
SAV
ADD ACC
ADD ACC
ADD ACC

MOV ACC  ANY
MOV   1  ANY
JRO ANY

MOV   3  DOWN
SWP
MOV ACC  DOWN
MOV LEFT DOWN

@3


@4


@5
J: JRO ANY
   ADD 8
   JMP J

   MOV ACC DOWN
   MOV UP  DOWN
   MOV UP  DOWN
   MOV -1  ACC
   JMP J

   MOV UP  NIL
   MOV UP  DOWN
   MOV   0 DOWN
   MOV   0 DOWN

@6


@7
   ADD RIGHT
   SAV
   MOV RIGHT ACC
   JMP E

   SWP
   MOV ACC RIGHT
E: SWP
   SUB 1
   JRO RIGHT

   MOV ACC DOWN
   MOV 1   ACC

@8
S: MOV UP  LEFT
   MOV UP  ACC
   MOV ACC LEFT
   ADD UP
   JLZ L
   JMP E

L: MOV  -4 LEFT
   ADD LEFT
   JLZ L
E: MOV   1 LEFT
   MOV ACC DOWN