1;redcode-94 quiet
2;name Uninvited
3;author John Metcalf
4;strategy Mini-Q^3 -> Stone / Delayed Imp
5;assert CORESIZE==8000
6;    -+)>] 0/1 cycles [(<+-
7;    -+>)] 2 cycles [(<+-
8       ORG      START
9       SPL.B  $     2, >  -200
10       SPL.B  $     1, >  -350
11       SPL.B  $     1, {  -500
12       MOV.I  <     9, {     3
13       MOV.I  {     9, {     1
14       DJN.B  $  2104, #     6
15       JMP.B  $  2806, >  -650
16       SPL.B  #     0, #     0
17       MOV.I  $     4, @     2
18       SUB.X  #  1406, @    -1
19       MOV.I  {  3582, }  -703
20       DJN.F  @    -2, }    -1
21       DAT.F  <   703, >     7
22       DJN.B  #     0, #     5
23       SPL.B  #     4, >   -20
24       SUB.F  # -2668, $     2
25       MOV.I  $     2, }    -2
26       JMP.B  $  2665, > -2666
27       MOV.I  #  1333, $  2667
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
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
67START  SEQ.I  $   581, $   259
68       DJN.F  $    33, {   587
69       SEQ.I  $  1689, $  1367
70       DJN.F  $    30, {  1695
71       SEQ.I  $  1465, $  1143
72       JMP.B  $    28, <    36
73       SEQ.I  $  1907, $  1585
74       JMP.B  $    26, >    34
75       SEQ.I  $  2349, $  2027
76       DJN.B  $    24, {    24
77       SEQ.I  $  2569, $  2247
78       JMP.B  $    22, {    22
79       SEQ.I  $  1013, $   691
80       DJN.F  >    20, {  1019
81       SEQ.I  $   789, $   467
82       JMP.B  >    18, {    17
83       SEQ.I  $  1231, $   909
84       JMP.B  >    16, }    15
85       SEQ.I  $  3005, $  2683
86       JMP.B  $    13, {    13
87       SEQ.I  $  3669, $  3347
88       JMP.B  $    11, <    20
89       SEQ.I  $ -3001, $ -3323
90       JMP.B  $     9, >    18
91       SEQ.I  $ -2337, $ -2659
92       JMP.B  $     7, }     7
93       SEQ.I  $ -1673, $ -1995
94       DJN.B  $     5, {     6
95       SEQ.I  $ -1009, $ -1331
96       JMP.B  $     3, {     4
97       SNE.I  $ -3675, $ -3997
98       JMZ.F  $   -89, $ -3686
99       MUL.AB #     3, $     5
100       MUL.B  $     8, @    -1
101       SNE.I  > -2891, >     3
102       ADD.AB #   322, $     2
103       MOV.I  *     1, <     1
104       MOV.I  $     4, }   222
105       SUB.AB #     6, @    -2
106       DJN.B  $    -3, #    11
107       DJN.F  $   -98, #    10
108       DAT.F  {    67, {     6
109
110