;redcode-94x
;name Kenshin X 164
;author Steve Gunnell
;strategy Mirage style scanner clearing from the scan loop.
;strategy Booting away from a decoy.
;assert 1

STEP  equ  44873
START equ  19664
LEAP  equ  (head+17112)
bptr  equ  (head-2)
IMPNUM equ 27113
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #0      ,#0
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      spl    #1      ,#1
      dat.f  0        ,0
      dat.f  0        ,0

bgo   mov.i  >boot    ,}boot
boot  spl    LEAP     ,head
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      mov.i  >boot    ,}boot
      sub.f  boot     ,boot
      dat.f  0        ,0


head  slt    #START   ,#tail-bptr+5
      mov.a  head     ,bptr
trash mov    *tail    ,}bptr
      add.a  #STEP    ,@hptr
      jmz.f  trash    ,*head
hptr  jmn.a  @hptr   ,head
      jmp    @hptr   ,}tail
tail  spl    #0       ,}0
      div.x <0, >0
      dat }IMPNUM+IMPNUM+1, >IMPNUM+IMPNUM+1
      mod.x <0, >0
      jmp  0, {0

      end    bgo