1;redcode-94nop
2;name Lord of the imp-rings II
3;author Neogryzor
4;assert CORESIZE==8000
5;strategy MiniQ^3->paper/imp
6;strategy Improved and optimized version of the Lord, (not at all...)
7;optimax pwi
8;   cut and pasted Qscan:
9;    -+)>] 0/1 cycles [(<+-
10;    -+>)] 2 cycles [(<+-
11       ORG      START
12       SPL.B  $     1, {     0
13       SPL.B  $     1, }     0
14       SPL.B  $     1, $     0
15       SPL.B  $     6, $     0
16       SPL.B  $     3, $     0
17       MOV.I  <     1, {     1
18       JMP.B  $ -1696, $    12
19       MOV.I  <     1, {     1
20       JMP.B  $   969, $    10
21       MOV.I  <     1, {     1
22       JMP.B  $  3633, $     8
23       SPL.B  @     0, $  1071
24       MOV.I  }    -1, >    -1
25       SPL.B  $  2575, $     0
26       MOV.I  >    -1, }    -1
27       MOV.I  <    -2, <     1
28       SPL.B  @     0, $  1180
29       MOV.I  #     0, $  2667
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
62       DAT.F  $     0, $     0
63       DAT.F  $     0, $     0
64       DAT.F  $     0, $     0
65       DAT.F  $     0, $     0
66       DAT.F  $     0, $     0
67       DAT.F  $     0, $     0
68       DAT.F  $     0, $     0
69       DAT.F  $     0, $     0
70START  SEQ.I  $   358, $   251
71       JMP.B  $    33, {   364
72       SEQ.I  $  1426, $  1319
73       JMP.B  $    30, {  1432
74       SEQ.I  $  1210, $  1103
75       JMP.B  $    28, <    36
76       SEQ.I  $  1636, $  1529
77       JMP.B  $    26, >    34
78       SEQ.I  $  2062, $  1955
79       DJN.B  $    24, {    24
80       SEQ.I  $  2274, $  2167
81       JMP.B  $    22, {    22
82       SEQ.I  $   774, $   667
83       JMP.B  >    20, {   780
84       SEQ.I  $   558, $   451
85       JMP.B  >    18, {    17
86       SEQ.I  $   984, $   877
87       JMP.B  >    16, }    15
88       SEQ.I  $  2694, $  2587
89       JMP.B  $    13, {    13
90       SEQ.I  $  3334, $  3227
91       JMP.B  $    11, <    20
92       SEQ.I  $ -3384, $ -3491
93       JMP.B  $     9, >    18
94       SEQ.I  $ -2744, $ -2851
95       JMP.B  $     7, }     7
96       SEQ.I  $ -2104, $ -2211
97       DJN.B  $     5, {     6
98       SEQ.I  $ -1464, $ -1571
99       JMP.B  $     3, {     4
100       SNE.I  $  3966, $  3859
101       JMZ.F  $   -89, $  3955
102       MUL.AB #     3, $     5
103       MUL.B  $     8, @    -1
104       SNE.I  >  3456, @     3
105       ADD.AB #   107, $     2
106       MOV.I  $     5, @     1
107       MOV.I  $     4, *   214
108       SUB.AB #     7, $    -1
109       DJN.B  $    -3, #    11
110       JMP.B  $   -98, >    10
111       DAT.F  {    67, {     6
112
113