;redcode
;name Spoor
;author brx
;strategy drop out
;assert 1

sstep equ 823
stime equ 3360
sdjn  equ 1532
soff  equ 5
sdist equ 1271

istep equ 1267
itime equ 501
idjn  equ 3400
ioff  equ sdist+398-idist
idist equ (sdist+2+sstep*(itime-stime))

boot:   mov    sbomb,       sboot+sdist+soff
        spl    2,           <1000
        spl    2,           <2000
        spl    1,           <3000
        mov    {boot,       {sboot
        mov    {boot,       {iboot
sboot:  djn    sdist,       #5
iboot:  djn.f  sboot+idist, #0

        spl    #ipump+ioff,       <-10
        sub.f  #-(istep+1),       ijump
ipump:  mov    imp,               }-2
ijump:  djn.f  ioff-2*(istep+1),  {idjn
imp:    mov.i  #1,                istep

        spl    #0,          <-10
sloop:  mov    sbomb+soff,  @sptr
shit:   add    #sstep*2,    sptr
sptr:   mov    sbomb+soff,  }shit-sstep*stime
        djn.f  sloop,       <sdjn
sbomb:  dat    sstep,       >1

    for 2
        spl.a  $0, *0
        spl.b  }1, #1
        spl.f  #1133, #83
        spl.b  <0, #66
        spl.a  @0, #0
        spl.i  #55, #771
        spl.f  #3, #11
        spl.b  #31, #12
        spl.b  #-8, *0
    rof
    jmp -18, *0
        
end boot