Blur is a clear-directing scanner which entered the Pizza 94 hill on 8th May 1996 and survived 463 challenges before being pushed off in June. Blur was published in Core Warrior issue 36.

;name Blur
;author Anton Marsden
;assert CORESIZE==8000
;strategy 0.5c scan, 0.25c carpet -> SPL/DAT core clear
;strategy Mirage 2 with a better step and some other changes.
;strategy This product is PSpace Free :-)

ORG scan
step EQU 70; mod-10

ptr:  dat.f  $0,$step+5
      dat.f  $0,$0
      dat.f  $0,$0
      dat.f  >0,#btm-ptr+3
cc:   spl.i  #0,#btm-ptr+3     ; DJN stream protection
top:  mov.i  $cc,>ptr          ; Putting this line here enhances protection
scan: seq.i  $2*step,}2*step+5 ; A-indirect ensures B field is attacked with
      mov.b  $scan,$ptr        ; no delay. Also leaves decoy for scanners
a:    add.f  $inc,$scan
      jmn.a  $top,$scan        ; Falls through when all locations scanned
inc:  spl.a  #step,>step
      mov.i  @1,>ptr
btm:  djn.b  $inc+1,{cc