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