From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!cs.utexas.edu!geraldo.cc.utexas.edu!usenet Wed Mar 20 13:36:15 1996 Article: 4455 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!cs.utexas.edu!geraldo.cc.utexas.edu!usenet From: JKW Newsgroups: rec.games.corewar Subject: (no subject) Date: 19 Mar 1996 23:22:39 GMT Organization: The University of Texas at Austin, Austin, Texas Lines: 67 Message-ID: <4infjv$437@geraldo.cc.utexas.edu> NNTP-Posting-Host: slip-68-8.ots.utexas.edu Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Mailer: Mozilla 1.22 (Windows; I; 16bit) This is basically just torch18, except that the code has been compacted, and is now one line smaller. The only downside is I get about 5000 cycles at the end where I'm not performing a DAT coreclear. However, by that time it doesn't make too much difference. This has been outperforming the torch18 on the Pizza -94 Hill, but I'm killing Lithium today since the difference between torch and Lithium has never been more than a couple points... ;redcode-94 ;name Lithium ;kill Lithium ;author John K Wilkinson ;assert CORESIZE == 8000 ;strategy v7 org bootstrap step equ 54 count equ 2000 d equ 2667 BOOTDIST equ 2300 dat 1, 1 for 47 dat sm2*3777, #sm2*4177 rof bootstrap mov {bootptr, step+1 ; mov half of the incendiary dat -10-341, 26 sp2 spl #-1-step,-step ; spl half of the incendiary sub #step+step,1 msm2 mov sm2, *tgt2+(-step*2000)-17228 msp2 mov sp2, @msm2 tgt2 jmz sp2+1, #0 clr2 mov @1, >sm2-13 cp2 djn.b clr2, {sp2 bootptr dat 0, BOOTDIST for 30 dat sm2*3777, #sm2*4177 rof dat 1, 1 -- / John K. Wilkinson - jwilkinson@mail.utexas.edu \ | Founder and Co-Chairman of the Americans For The | \ Annexation of Canada, Mexico, Cuba and Kansas. / -=- http://ccwf.cc.utexas.edu/~ifio452/ -=-