;redcode-b test ;name qDeath 2.1 ;author Ryan Coleman/Philip Kendall ;strategy QScan -> Scissor ;strategy Testing some ideas for CW 66 ;assert CORESIZE==8000 ORG start CDIST equ 12 IVAL equ 42 FIRST equ scan+OFFSET+IVAL OFFSET equ (2*IVAL) DJNOFF equ -431 BOMBLEN equ CDIST+2 scan sub.f incr,comp comp cmp.i FIRST,FIRST-CDIST slt.a #incr-comp+BOMBLEN,comp djn.f scan,comp count djn.b split,#0 sub.ab #BOMBLEN,comp jmn.a scan,scan bomb spl.a #0,0 mov.i incr,tab seq.i QB+QS*28,QB+QS*28+QD jmp tab,>tab seq.i QB+QS*4,QB+QS*4+QD jmp >fast,}QB+QS*4+QD/2 seq.i QB+QS*5,QB+QS*5+QD jmp slow,}QB+QS*5+QD/2 seq.i QB+QS*6,QB+QS*6+QD jmp slow,{tab seq.i QB+QS*7,QB+QS*7+QD jmp slow,}tab seq.i QB+QS*10,QB+QS*10+QD jmp >fast,fast,>tab seq.i QB+QS*24,QB+QS*24+QD jmp slow,>tab seq.i QB+QS*17,QB+QS*17+QD jmp slow,{fast seq.i QB+QS*8,QB+QS*8+QD jmp