1;redcode-94nop
2;name Piltdown (2003)
3;author Philip Thorne
4;strategy 20020824 First hill appreance [with QB]
5;strategy 20030706 Piltdown 1-Shot Bomber + QS
6;strategy          Cleaned-up for publiction.
7;bench jun03=127.17#1000 w=151#100
8;optimax stn
9;assert ((STEP%(MSIZ)) == 0)
10;assert ((CURLINE%MSIZ) == 0)
11;assert ((CURLINE%MSIZ) == 0)
12;assert ((CURLINE%MSIZ) == 0)
13;assert ((CURLINE%MSIZ) == 0)
14;Basic clear is per Geist [nice S/D switch] with tweakings.
15;Previous clear was Quiz-based. No real diff in results.
16;assert ((CURLINE%MSIZ) == 0)
17;assert ((CURLINE%MSIZ) == 0)
18;--
19;--
20       ORG      START
21       MOV.B  #  2512, * -1256
22       DJN.F  $    -8, <     6
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       MOV.I  @     1, }    -9
31       MOV.I  $    -9, >   -10
32       ADD.F  $    38, @    -1
33       JMZ.B  $    -3, $  2732
34       SPL.B  $    36, $  2731
35       SUB.B  @    -1, $    28
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  $  3333, $  1213
64       DAT.F  $     0, $     0
65       DAT.F  $     0, $     0
66       DAT.F  $     0, $     0
67       DAT.F  $     1, $    13
68       SPL.B  #    65, $    13
69       DAT.F  $     0, $     0
70       SPL.B  #  1255, } -1257
71       MOV.I  *    -4, >    -8
72       MOV.I  *    -5, >    -9
73       DJN.F  $    -2, }    -5
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  $     0, $     0
82       DAT.F  $     0, $     0
83       DAT.F  $     0, $     0
84       DAT.F  $     0, $     0
85       DAT.F  $     1, $  3762
86       DAT.F  $     1, $  2253
87       DAT.F  $     0, $     0
88       DAT.F  $     0, $     0
89       MOV.A  #  1488, $  1188
90       MOV.I  <  3333, $    -1
91       JMP.B  $   -61, {     0
92       DAT.F  {    32, $  1199
93START  SNE.I  $ -2415, $ -3468
94       SEQ.I  <    26, $ -2082
95       JMP.B  $    15, }    17
96       SNE.I  $  -194, $   262
97       SEQ.I  <    -5, $  1649
98       JMP.B  $    12, }    12
99       SNE.I  $  2359, $  2815
100       SEQ.I  <   -15, $ -3798
101       DJN.A  $     9, {     9
102       SNE.I  $   848, $  1304
103       SEQ.I  <   -17, $  2691
104       DJN.A  $     6, *     0
105       SNE.I  $   589, $  2554
106       SEQ.I  <    12, $  3940
107       JMP.B  $     3, {     5
108       SNE.I  $  -922, $  -466
109       JMZ.F  $   -20, <    10
110       MUL.B  *     2, $     4
111       SNE.I  <   -25, @     3
112       ADD.B  $     7, $     2
113       MOV.I  $   -21, @     1
114       MOV.I  $   -22, } -1388
115       SUB.AB #     7, @    -4
116       DJN.B  $    -3, #    16
117       DJN.F  $   -28, #     0
118       SPL.B  $     1, $  1965
119       SPL.B  $     1, $   456
120       SPL.B  $     1, $ -1053
121
122