;redcode-cwset2005
;name Gungnir
;author John Metcalf
;strategy decoy-maker + oneshot
;assert CORESIZE==3800

     gap   equ 6
     step  equ 210
     first equ ptr+step
     dec   equ ptr-1499

gate:dat   0,        0

     dat   0,        0

bptr:dat   1,        9
clr: spl   #1500,    11
loop:mov   *bptr,    >gate
     mov   *bptr,    >gate
     djn.f loop,     }clr

     dat   0,        0
     dat   0,        0

inc: spl   #step,    <step
scan:add   inc,      ptr
ptr: sne   first,    first+gap
     djn.f scan,     *ptr
     mov.b ptr,      gate
     jmp   clr,      <1900

     for   17
     dat   0,0
     rof

less:mov   >dec+6,   }dec
     mov   {dec+1,   {dec+13
     mov   {dec+14,  <dec+8
     mov   <dec+2,   <dec+11
     djn.f ptr,      <dec+4
     end   less