;assert 1
;name CSEC R2 warrior
;author Miz
step equ 57
ptr equ (scan-8)

        dat   >2731,  19
diff    spl  #-step, #-step
wipe    mov    diff, >ptr
w2      mov   *wipe, >ptr
        djn.a  wipe,  length

loop    sub    diff, @s2
scan    sne.i (step*2) - 1, (step*2) - 7
        sub    diff,  scan
s2      seq.i   *scan, @scan
        slt.a   #20,  scan
timer   djn    loop, #700

length  sub.ba #0,  #-7
tweak   mov.ab @s2, @wipe
t2      jmn    *w2,  timer
        djn.a  <tweak, {t2
for 75
dat $0, $0
rof
decoy    equ    (scan-1196)
start     mov    <decoy+0, {decoy+2     ; make a quick-decoy
          mov    <decoy+3, {decoy+5     ; to foil one-shots
          mov    <decoy+6, {decoy+8     ; and the occasional q-scan
          djn.f  scan  ,<decoy+10
end start