From news-rocq.inria.fr!univ-lyon1.fr!ghost.dsi.unimi.it!batcomputer!hookup!news.kei.com!eff!news.duke.edu!news-feed-1.peachnet.edu!gatech!newsxfer.itd.umich.edu!nntp.cs.ubc.ca!uw-beaver!cs.washington.edu!jayhan Thu May 26 20:53:26 1994 Article: 870 of rec.games.corewar Newsgroups: rec.games.corewar Path: news-rocq.inria.fr!univ-lyon1.fr!ghost.dsi.unimi.it!batcomputer!hookup!news.kei.com!eff!news.duke.edu!news-feed-1.peachnet.edu!gatech!newsxfer.itd.umich.edu!nntp.cs.ubc.ca!uw-beaver!cs.washington.edu!jayhan From: jayhan@cs.washington.edu (Jay "Thierry" Han) Subject: Aleph 0 Message-ID: Lines: 148 Sender: news@beaver.cs.washington.edu (USENET News System) Organization: Computer Science & Engineering, U. of Washington Date: 26 May 1994 10:29:11 GMT So here's some comments on Aleph 0, my round 4 entry. As I said, it's a SNE/SEQ quickscan vampire, followed by either a core-clear (if something is found) or a stone/spiral. Note that this is *not* the exact code of the Aleph 0 that's sitting on the Hill. ;redcode-94 ;name Aleph 0 ;author Jay Han ;macro org entry ; These are the parameters for the quick-scan. The quick-scan scans ; every q locations by groups of 4 (SNE/SEQ). With this setup, q is ; 86. j equ 6 n equ 22 s equ (((CORESIZE-(2*MINDISTANCE)-MAXLENGTH)*4)/((4*n)+1)) q equ (s/4) h equ (q/2) a equ (head-MINDISTANCE) l equ ((2*q)+MAXLENGTH) k equ (l/j+1) d equ 1000 head ; Here's the code for testing where in the group of four locations ; the enemy lies. test seq.i @-1, @0 add.ab #2*q, @-1 add.b test, bite add.b @test, bite ; At this point, bite.B points to the start of the bombing zone. ; First, transport the pit there mov.i pit, >bite mov.i mega, >bite ; Then vampirize, moving backward stun mov.i bite, @bite add.f vamp, bite djn.b stun, #k ; Now copy the core-clear to the end of the bombing zone copy mov.i >ptr1, -1 ; This is for the imp-launch adder add.a #step, jumper ; This is my own core-clear/gate, reversed for technical reasons ; (namely, have the DAT to kill off imp-launch processes above) bomb dat.f <-j-2, <-j-1 jmp.b -1, <-j-2 mov.i 2, <-j+1 vamp spl.b #j, <-j ; This is the fang bite jmp.b -2, #test ; Stone, if nothing is found, this is activated. ; It's a self-destructing stone p2 equ -73+(972*s2) s2 equ -74 p1 equ 75+(972*s1) s1 equ 74 cast mov.i =- e-mail: jayhan@cs.washington.edu Dept. of Computer Science and Engineering, FR-35. Fax: (206)543-2969 U. of Washington. Seattle, WA 98195, USA. [Sieg 230] (206)685-1224 Personal: 4820 Burke Ave N. Seattle, WA 98103, USA. (206)547-8559