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