;redcode-94 ;name tiny scan ;author bjoern guenzel ;strategy paper x-tinction ??? Probably not :-( ;strategy 0.66c size 12 scanner, bombs with s/s/j -> s/d/d... clear ;strategy beta test - no boot or decoy yet ;assert CORESIZE==8000 ;release 22.6.96 ;kill test step5 equ 15 dist equ step5 step spl #2*step5+1,#2*step5 b0 spl 0,#0 ;first compared+decr dat 0,0 ;semi-gate dat 0,0 ;scanned, better put same to +/- dist dat 0,0 loop add.x step,@ref return sne.f *ptr,ptr ref mov.i b1,>ptr decref mov.i jb,@ptr ;hit with jb -> clear :-) modi djn.b return,@decref ;last action: decrement return last dat 0,0 ;scanned, 5 to ptr,12 to b0 for 17 dat 0,0 rof dat >2667,#last-ptr+1 ;30 to b0, 23 to ptr for 10 dat 0,0 rof b1 spl #-7,#3 ;34 to ptr for MAXLENGTH-CURLINE dat 0,0 rof end return