From news-rocq.inria.fr!univ-lyon1.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!newsfeed.internetmci.com!in2.uu.net!brighton.openmarket.com!decwrl!waikato!comp.vuw.ac.nz!usenet Thu Mar 14 16:49:19 1996 Article: 4325 of rec.games.corewar Path: news-rocq.inria.fr!univ-lyon1.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!newsfeed.internetmci.com!in2.uu.net!brighton.openmarket.com!decwrl!waikato!comp.vuw.ac.nz!usenet From: Anthony.Marsden@comp.vuw.ac.nz (Anton Marsden) Newsgroups: rec.games.corewar Subject: Mirage Date: 14 Mar 1996 01:02:48 GMT Organization: Victoria University of Wellington, New Zealand. Lines: 30 Message-ID: <4i7r7o$a2p@st-james.comp.vuw.ac.nz> NNTP-Posting-Host: cantina.comp.vuw.ac.nz X-Newsreader: knews 0.9.5 ;redcode-94 ;name Mirage 1.5 ;author Anton Marsden ;strategy 2/3 C scanner/bomber with a twist ;assert CORESIZE==8000 ORG s step EQU 3039 gate EQU (data+1) data: spl.a #0,$step dat.f $0,$btm-gate+2 dat.f $0,$0 pos: add.ab #step,#2*step kill: mov.i $bomb,>data s: jmz.f @0,@pos c: slt.b $pos,#btm-data+2 mov.b $pos,$data jmn.b @0,$pos bomb: spl.a #0,$0 mov.i $clr,>gate djn.b $-1,{gate clr: dat.f <2*2667,<2667 btm: dat.f $0,$0 END