;redcode-94 ;name Nomolos ;author Ian Oversby ;strategy Stone, One-shot Scanner ;strategy then try to tie ;strategy v2 Added mini-HSA ;strategy One scanner is never enough :-) ;assert 1 ;-------- ; Paper ;-------- pdist equ 4000 ; Not really dist0 equ 5689 dist1 equ 1021 dist2 equ 3607 range1 equ 4723 range2 equ 6892 pboot spl.b 1, <-300 for 6 mov.i -1 silk1 spl.b @0, -1 mov.i bomba, }range1 mov.i bomba, >range1 mov.i {silk1, ptr,>ptr jmn.f kill,>ptr a add #mst+1,@mptr scan jmz.f a,-1, >1 ;----------------- ; One-shot scanner ;----------------- tgate equ (tloop-8) half equ 10 step equ (2*half) dstr equ 3001 tdist equ 700 tpos equ (cptr+1) tboot mov.i -303 dat.f #-25, #cptr+4-tgate spl.b #-20, #20 b1 spl.b #120, #120-half tloop sub.f tstep, b1 sne.i *b1, @b1 djn.f tloop, <-dstr tstep spl.b #-step, <-step mov.i @cptr, >tgate mov.i @cptr, >tgate cptr djn.b -2, {b1 end pcode