;redcode-94 ;assert CORESIZE==8000 && MAXLENGTH==100 ;name Fscan ;author Jay Han ;kill Fscan org entry j equ 6 n equ 38 s equ (((CORESIZE-(2*MINDISTANCE)-MAXLENGTH)*2)/((2*n)+1)) q equ (s/2) h equ (q/2) a equ (head-MINDISTANCE) l equ (q+MAXLENGTH) k equ (l/j+1) dat0 equ head-1 head entry scan sne.i *fscan, @fscan djn.f scan, scan jmz.a boot, @scan add.f scan, test test add.b scan, #scan sne.i dat0, @test sub.ab #q, test add.b test, bite mov.i vamp, >bite mov.i mega, >bite add.b bite, ptr stun mov.i bite, @bite add.f vamp, bite djn.b stun, #k copy mov.i >ptrcclear, -j vamp spl.b #j, <-j bite jmp.b -2, #test+q scantab dat.f 0, scan m for n dat.f a-(m*s), a-(m*s)+q rof fscan equ scantab+n-1 p2 equ -73+(972*s2) s2 equ -74 p1 equ 75+(972*s1) s1 equ 74 cast mov.i