;redcode
;name scantest
;author brx
;strategy scan away.. the stupid way
;assert 1

bd      equ (CORESIZE/8)
len     equ 15
gate    equ 15

start   equ 0
ss      equ 20
sd      equ 60
bn2     equ (sd/3)
runs    equ 2

        org boot

for 10
    spl @21, $61
    mov #0, $6
    dat #0, @-1
rof

boot    mov     loop,       bd
        nop     }-1,        >-1
        djn.b   boot,       #len
        jmp.a   (boot+bd),  <-2667

loop    add.f sb,           1
        sne.f start,        (start+sd)
        jmp.a loop,         <(loop-gate)

        mov.f   (loop+1),   db
attack  mov     sb,         }db
        mov     sb,         <db     ;we are not hitting the scanned
position :/
        djn.b   attack,     #bn2
        mov.ab  #bn2,       -1
        djn.b   loop,       #runs

cc      spl.a   #4, #0
        sne.a   #0, cc
        add.a   #4, cc
        mov     db, }cc

db      dat 0,      0
sb      spl #ss,    #ss