;redcode-cwset
;name 3800 - The number of the beast.
;author Sascha zapf
;strategy Paper/Stone
;assert CORESIZE==3800

;Hmm, qualification - 3800 the number of the beast...

;No instructions are forbidden, everything can be used... 
;Guess that there are all kind of warriors present. Don't want to 
;bet on what Michal does, oder Nenad...Can't see what brx or S-Fernandes 
;choose to get on the top. So first the benchmark. 20 Warrior from Tiny.. 
;Redesigned fpr 3800er core and optimized two times against themselves..
;
;Then steel the code from one of Roy's most successfull warriors and 
;optimize like hell.
;
;Hope for the best

pStep1  equ    2009;561
bStep1  equ    1132;4633

sAway   equ    2889;2519;4854
pAway   equ    1065;3037;562

train equ 2527;2589
decoy equ wGo+1266

wGo     mov     hBomb           , wGo+sAway+6+hOff
        spl     }2		, <decoy            
        spl     1               , <decoy+1
        spl     0               , <decoy+2
        mov     <dGo            , <dBoo
        mov     {pEnd           , {pBoo
dBoo    spl     @0              , wGo+sAway+6
        spl     @-1             , <decoy+3
pBoo    djn.f   wGo+pAway+6     , <train


for     9
        dat     0               , 0
rof

hStep   equ    878;3039
hTime   equ    370;3360
hDjn    equ    1419;2813
hOff    equ    13;5

dGo     spl     #0              , 6
        mov     hBomb+hOff      , @hPtr
hHit    add     #hStep*2        , hPtr
hPtr    mov     hBomb+hOff      , }hHit-hStep*hTime
        djn.f   -3              , <hDjn
        dat     0               , 0
hBomb   dat     hStep           , >1

        dat     0               , 0
        dat     0               , 0
        dat     0               , 0


pGo     spl    pStep1,          {3
        mov    }2,              }-1
        mov    pBmb,            >bStep1
        mov    3,               }-3
        jmz.f  -4,              *-1
pBmb    dat    <2*1267,           <1267
pEnd    dat    0,               0

end wGo