1Program "Evolver    80 x   500" (length 19) by "Martin Ankerl <martinankerl@web.de>"
2
3       ORG      START
4START  SPL.I  #  -370, <    -4
5       MOV.I  #    -4, {     4
6       MOV.I  {     3, {     3
7       DJN.X  $    -1, {     3
8       JMZ.AB }   -11, $  -385
9       MOV.A  *   191, $  -389
10       SPL.AB }    -2, <   391
11       SPL.AB }   383, }   279
12       MUL.AB }   383, >   279
13       SNE.I  *    11, #    -4
14       SUB.AB *   186, >  -383
15       SNE.BA #   -17, >    -2
16       SPL.AB }   248, *    -7
17       DIV.A  #   272, {    15
18       NOP.F  #   381, <    -1
19       JMN.AB #    -8, >     5
20       SPL.A  @  -384, {   187
21       SPL.A  *   189, {   248
22       MOV.AB $   250, *    15
23
24