1;redcode-94nop
2;name Purifier
3;author Lukasz Grabun
4;strategy Mini Q^4 -> Stone/Paper
5;strategy credits for J. Metcalf
6;version from the hill, qscan made by John Metcalf.
7;assert 1
8       ORG      START
9       SPL.B  $     1, } -2553
10       SPL.B  $     1, } -3462
11       SPL.B  $     1, }  3629
12       SPL.B  @     0, {  3009
13       MOV.I  }    -1, >    -1
14       SPL.B  @     0, <  2794
15       MOV.I  }    -1, >    -1
16       MOV.I  $     3, >  -765
17       MOV.I  {    -3, <     1
18       JMP.B  @     0, >  2930
19       DAT.F  > -2666, >  2667
20       DAT.F  $     0, $     0
21       DAT.F  $     0, $     0
22       DAT.F  $     0, $     0
23       DAT.F  $     0, $     0
24       DAT.F  $     0, $     0
25       DAT.F  $     0, $     0
26       DAT.F  $     0, $     0
27       DAT.F  $     0, $     0
28       DAT.F  $     0, $     0
29       DAT.F  $     0, $     0
30       SPL.B  #     0, #     0
31       MOV.I  $     3, @     2
32       ADD.AB #   598, $     1
33       DJN.F  $    -2, {   595
34       DAT.F  >     4, >     1
35       MOV.I  $    -5, $  -262
36       SPL.B  $     2, $     0
37       SPL.B  $     2, $  -258
38       SPL.B  $     1, $    -3
39       MOV.I  <    -1, <    -2
40       DJN.B  @    -5, #     5
41       JMP.B  $   -32, $     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
70       DAT.F  $     0, $     0
71       DAT.F  $     0, $     0
72       DAT.F  $     0, $     0
73       DAT.F  $     0, $     0
74       DAT.F  $     0, $     0
75       DAT.F  $     0, $     0
76       DAT.F  $     0, $     0
77       DAT.F  $     0, $     0
78       DAT.F  $     0, $     0
79       DAT.F  $     0, $     0
80       DAT.F  $     0, $     0
81       DAT.F  {    87, $  3999
82       DAT.F  $  1000, $  3090
83       DAT.F  $  1000, $  2181
84START  SNE.I  $  1569, $ -2802
85       SEQ.I  <   -74, $  -816
86       JMP.B  $    15, }    17
87       SNE.I  $  2006, $ -1456
88       SEQ.I  <    -7, $   531
89       JMP.B  $    12, }    12
90       SNE.I  $  1095, $ -2367
91       SEQ.I  <    -9, $  -380
92       DJN.A  $     9, {     9
93       SNE.I  $   184, $ -3278
94       SEQ.I  <   -11, $ -1291
95       DJN.A  $     6, *     0
96       SNE.I  $  3373, $   820
97       SEQ.I  <   -88, $  2806
98       JMP.B  $     3, {     5
99       SNE.I  $  2462, $ -1000
100       JMZ.F  $   -65, <   -90
101       MUL.B  *     2, $     4
102       SNE.I  *   -19, @     3
103       ADD.B  $   -93, $     2
104       MOV.I  $   -23, @     1
105       MOV.I  $   -24, } -1988
106       SUB.AB #     7, @    -4
107       DJN.B  $    -3, #    16
108       DJN.F  $   -73, #     0
109
110