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