From news-rocq!jussieu.fr!oleane.net!oleane!news.maxwell.syr.edu!newspeer1.nac.net!news.ttsg.com!jkw@koth.org Sun Nov 19 19:29:04 2000 Article: 11955 of rec.games.corewar Path: news-rocq!jussieu.fr!oleane.net!oleane!news.maxwell.syr.edu!newspeer1.nac.net!news.ttsg.com!jkw@koth.org From: jkw@koth.org Newsgroups: rec.games.corewar Subject: re: bla and Lithium X 8 code Date: 19 Nov 2000 09:47:48 -0500 Organization: TTSG Lines: 73 Distribution: world Message-ID: <4.1.20001118213707.0098c710@pop-server> Reply-To: jkw@koth.org NNTP-Posting-Host: odin.ttsg.com X-Trace: odin.ttsg.com 974645269 27320 216.231.111.29 (19 Nov 2000 14:47:49 GMT) X-Complaints-To: abuse@news.ttsg.com NNTP-Posting-Date: 19 Nov 2000 14:47:49 GMT Originator: corewar-l@koth.org X-Mailer: QUALCOMM Windows Eudora Pro Version 4.1 Xref: news-rocq rec.games.corewar:11955 >Well, the djn method does keep the b-field clear just in case you want to >use it for something else. But you can't use that "jmp <0, -3" because the >first djn uses the -4 pointer. Um jmp *-3, {0 ? Geez dont make me go open up the warrior again to see if that's right. :) >I think its the nature of the warriors people have sent to the hill. The >hill hasn't matured enough for a stable set of warriors to take hold and >keep the scores relatively even. Speaking of which, Lithium was one of the oldest warriors on the hill when it got pushed of earlier today or yesterday. 21 26/ 40/ 34 Lithium X 8 John K Wilkinson 112 116 I don't believe I've ever published this before. Its a fairly standard old incendiary bomber, with some emphasis put on surviving djn overruns and bombers... ;redcode-94x ;name Lithium X 8 ;author John K Wilkinson ;assert CORESIZE == 55440 ;strategy v8 - hoping to improve the way it copes with ;strategy attacks from djn overruns org bootstrap step equ 134 count equ 2000 d equ 2667 BOOTDIST equ 12300 dat }1, >1 for 51 dat sm2*3777, #sm2*4177 rof for 41 dat sm2*3777, #sm2*4177 rof bootstrap mov {bootptr, step+1 ; mov half of the incendiary dat -10-341, 26+4 ;4 is just in case of djn overruns sp2 spl #-1-step,-step ; spl half of the incendiary sub #step+step,1 msm2 mov sm2, *tgt2-step-2 ;+(step*2000) msp2 mov sp2, @msm2 tgt2 jmz sp2+1, #0 clr2 mov @1, >-24 ;sm2-13 cp2 djn.b clr2, {sp2 bootptr dat 0, BOOTDIST for 85 dat sm2*3777, #sm2*4177 rof dat >1, }1