;redcode-94
;name Rave 4.1
;author Stefan Strack
;strategy Carpet-bombing scanner based on Agony and Medusa's
;strategy (written in ICWS'94)
;strategy 3: shorter
;strategy 4: better gate
;strategy 4.1: new constants
;strategy Submitted: @date@
;assert 1

CDIST   equ 14
IVAL    equ 98
FIRST   equ scan+OFFSET+IVAL
OFFSET  equ (1*IVAL)
DJNOFF  equ -434 ;7485 ;-431
BOMBLEN equ CDIST+2

        org    comp

scan    sub.f  incr,comp
comp    cmp.i  FIRST,FIRST-CDIST        ;larger number is A
        slt.a  #incr+2-comp+BOMBLEN,comp  ;compare to A-number
        djn.f  scan,<FIRST+DJNOFF       ;decrement A- and B-number
        mov.ab #BOMBLEN,count
split   mov.i  incr,>comp               ;post-increment
count   djn.b  split,#0
        sub.ab #BOMBLEN,comp
        jmz.a  scan,scan-1
incr    spl.b  #-IVAL,<-IVAL
        mov.i  1,<count
        dat.f  <-IVAL-1-2668,<-IVAL-1