;redcode-94 quiet ;name Rude Wind ;kill Rude Wind ;author P.Kline ;macro step equ 12 tstdjn dat 0,-1 pl1 spl #0 ; create multiple processes mov p2b,}scan ; anti-imp attack, part 1 mov >0,}5000 djn -2,#6 ; let one process through for paper launch spl 1,>200 ; mov.i -1,#0 ; create 6 processes spl 1,>300 ; mov 6 ; 1st paper p1c mov -1356 mov p1b,p1s p1b dat <2667,<5334 for 20 dat 0,0 rof pl2 add #(2*step)+2691,scan spl #0 ; create multiple processes mov p2b,>scan ; anti-imp attack, part 2 mov >0,}1000 djn -2,#6 ; let one process through for paper launch spl 1,<-100 ; mov.i -1,#0 ; create 6 processes spl 1,<-200 mov 6 ; 2nd paper p2c mov -1556 mov p2b,p2s p2b dat <2667,<5334 for 20 dat 0,0 rof inc dat 3*step,3*step bomb dat 0,step+step for 16 dat 0,0 rof next sub inc,scan ; scanner bombs one and scans two locations mov bomb,@scan ; in a four-instruction loop scan seq.x 7700+(10*step),@7700+(9*step) sne *scan,tstdjn ; ignore old-style djn-streams djn next,#7700/(step*3) mov p1b,-3500 ; end next+1