@0


@1

   MOV -1   ACC
   ADD UP

N: SAV

   MOV -1   ACC
   ADD 1
   JRO DOWN

   SWP
   MOV ACC  DOWN
   JNZ N

@2


@3
#X,0 -> OUT(N)

#0,1 -> OUT(N+1)
#1,1 -> OUT(2N+1)

@4
N: MOV 1    UP

   MOV UP   ACC
G: MOV -1   ANY
E: MOV 2    DOWN
   SUB DOWN
   JGZ G

   ADD 1
   JNZ N
Z: MOV 2    UP
   MOV 2    ANY
   MOV UP   ACC
   JGZ E
   MOV 1    LAST

@5


@6


@7


@8
   ADD 1

J: JRO UP

   MOV 0   ACC

O: MOV ACC ANY

   JNZ J

@9


@10