1;redcode-94nop
2;name Willow
3;author John Metcalf
4;strategy .66c scan, decoy
5;assert CORESIZE==8000
6
7ptr: dat   4067,     55
8
9     dat   1,        1
10     dat   1,        1
11     dat   1,        1
12
13     dat   >0,       0
14sb:  spl   #0,       {0
15wipe:mov   *sb,      <ptr
16     mov   >ptr,     >ptr
17     jmn.f wipe,     >ptr
18scan:sub.f #-13,     ptr
19     jmn.f hit,      @ptr
20     jmz.f scan,     *ptr
21     mov.x @scan,    @scan
22hit: slt.b @scan,    #last+4-ptr
23     jmp   wipe,     <ptr
24     djn   scan,     #9
25last:jmp   scan,     {wipe
26
27
28boot:mov   ptr,      -3860+ptr
29bptr:mov   last,     -3860+last
30     for   6
31     mov   {bptr,    <bptr
32     rof
33     spl   @bptr
34     for   6
35     mov   {bptr,    <bptr
36     rof
37     dat   1,        1
38     for   (MAXLENGTH-CURLINE)/3
39     spl   1,        <1
40     spl   #1,       }1
41     spl   #1,       >1
42     rof
43
44     end   boot
45