1Program "Behemot" (length 100) by "Michal Janeczek" 2 3 ORG START 4 MOV.I { 0, # 0 5 MOV.I $ 2666, < 2 6 MOV.I $ 2663, * 1 7 MOV.I $ 2220, @ -1333 8 ADD.F * 3, $ -1 9 MOV.I > 2660, @ -2 10 JMZ.A $ -5, < 2659 11 JMP.B $ -51, < -67 12 SPL.B $ 1, $ 16 13 SPL.B $ 1, $ 3201 14 MOV.I < -2, < 4 15 MOV.I < -3, < -2 16 MOV.I < 3, { 3 17 MOV.I < 2, { 2 18 MOV.I $ -6, # -2095 19 JMP.B > 3243, $ -7 20 SPL.B # -1331, < -1330 21 MOV.I $ 2, > -17 22 DJN.F $ -1, > -18 23 DAT.F < 2667, $ 21 24 JMP.B $ 2223, { 1 25 MOV.I @ 0, } -1 26 SPL.B # 2, $ -2223 27 DAT.F $ 0, $ 0 28 DAT.F $ 0, $ 0 29 DAT.F $ 0, $ 0 30 DAT.F $ 0, $ 0 31 DAT.F $ 0, $ 0 32 DAT.F $ 0, $ 0 33 DAT.F $ 0, $ 0 34 DAT.F $ 0, $ 0 35 DAT.F $ 0, $ 0 36 DAT.F $ 0, $ 0 37 DAT.F $ 0, $ 0 38 DAT.F $ 0, $ 0 39 DAT.F $ 0, $ 0 40 DAT.F $ 0, $ 0 41 DAT.F $ 0, $ 0 42 DAT.F $ 0, $ 0 43 DAT.F $ 0, $ 0 44 DAT.F $ 0, $ 0 45 DAT.F $ 0, $ 0 46 DAT.F $ 0, $ 0 47 DAT.F $ 0, $ 0 48 DAT.F $ 0, $ 0 49 DAT.F $ 0, $ 0 50 DAT.F $ 0, $ 0 51 DAT.F $ 0, $ 0 52 DAT.F $ 0, $ 0 53 DAT.F $ 0, $ 0 54 DAT.F $ 0, $ 0 55 DAT.F $ 0, $ 0 56 DAT.F $ 0, $ 0 57 DAT.F $ 0, $ 0 58 DAT.F $ 0, $ 0 59 DAT.F $ 0, $ 0 60 DAT.F $ 0, $ 0 61 DAT.F $ 0, $ 0 62START SEQ.I $ 581, $ 259 63 JMP.B $ 33, { 587 64 SEQ.I $ 1689, $ 1367 65 JMP.B $ 30, { 1695 66 SEQ.I $ 1465, $ 1143 67 JMP.B $ 28, < 36 68 SEQ.I $ 1907, $ 1585 69 JMP.B $ 26, > 34 70 SEQ.I $ 2349, $ 2027 71 DJN.B $ 24, { 24 72 SEQ.I $ 2569, $ 2247 73 JMP.B $ 22, { 22 74 SEQ.I $ 1013, $ 691 75 JMP.B > 20, { 1019 76 SEQ.I $ 789, $ 467 77 JMP.B > 18, { 17 78 SEQ.I $ 1231, $ 909 79 JMP.B > 16, } 15 80 SEQ.I $ 3005, $ 2683 81 JMP.B $ 13, { 13 82 SEQ.I $ 3669, $ 3347 83 JMP.B $ 11, < 20 84 SEQ.I $ -3001, $ -3323 85 JMP.B $ 9, > 18 86 SEQ.I $ -2337, $ -2659 87 JMP.B $ 7, } 7 88 SEQ.I $ -1673, $ -1995 89 DJN.B $ 5, { 6 90 SEQ.I $ -1009, $ -1331 91 JMP.B $ 3, { 4 92 SNE.I $ -3675, $ -3997 93 JMZ.F $ -81, $ -3686 94 MUL.AB # 3, $ 5 95 MUL.B $ 8, @ -1 96 SNE.I > 3456, @ 3 97 ADD.AB # 322, $ 2 98 MOV.I $ 5, @ 1 99 MOV.I $ 4, * 222 100 SUB.AB # 7, $ -1 101 DJN.B $ -3, # 11 102 JMP.B $ -90, > 10 103 DAT.F { 67, { 6 104 105