From news-rocq.inria.fr!jussieu.fr!oleane!tank.news.pipex.net!pipex!news.be.innet.net!INbe.net!news.nl.innet.net!INnl.net!hunter.premier.net!news-res.gsl.net!news.gsl.net!EU.net!usenet2.news.uk.psi.net!uknet!usenet1.news.uk.psi.net!uknet!dispatch.news.d Mon Jul 22 19:27:00 1996 Article: 5647 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!oleane!tank.news.pipex.net!pipex!news.be.innet.net!INbe.net!news.nl.innet.net!INnl.net!hunter.premier.net!news-res.gsl.net!news.gsl.net!EU.net!usenet2.news.uk.psi.net!uknet!usenet1.news.uk.psi.net!uknet!dispatch.news.demon.net!demon!kendalls.demon.co.uk!pak21 From: Philip Kendall Newsgroups: rec.games.corewar Subject: Syzygy 1.0 Date: Mon, 22 Jul 1996 14:37:11 +0100 Organization: Private Lines: 48 Distribution: world Message-ID: NNTP-Posting-Host: kendalls.demon.co.uk X-NNTP-Posting-Host: kendalls.demon.co.uk MIME-Version: 1.0 X-Newsreader: Turnpike Version 1.12 Here is Syzygy 1.0, my first successful warrior, a one-shot scanner followed by a core-clear, which died of old age after a successful run on the b-hill - this is the version posted to the hill. Any comments, etc always welcome. Phil ;redcode-b verbose ;name Syzygy 1.0 ;author Philip Kendall ;strategy Scan / spl carpet -> spl/dat coreclear ;strategy Based on Core Warrior 2 ;assert CORESIZE==8000 SCAN1 equ 104 SEP equ 5 STEP equ 15 BOMBLEN equ 10 STREAM equ -305 CSTART equ last+5 ; where to start the coreclear GAPLEN equ 70 loop add.f sbomb,scan ; a one-pass scan scan sne.i SCAN1,SCAN1+SEP djn.f loop,<(STREAM-loop) mov.ab #BOMBLEN,count bloop mov.i sbomb,}scan count djn.b bloop,#0 sub.a #BOMBLEN,scan cmp.a loop,sbomb ; loop will be bombed djn.f loop,<(STREAM-loop) jmp.a csplit,<(STREAM-loop)+1 sbomb spl.a #STEP,#STEP space for GAPLEN ; \ dat.f 0,0 ; > space to help against scanners rof ; / ptr dat.f cbomb1,CSTART cbomb0 dat.f #cbomb0-ptr,CSTART-ptr cbomb1 spl.a #cbomb0-ptr,CSTART-ptr csplit spl.a #0,<(STREAM-loop)+1 clear mov.i *ptr,>ptr ; repeated spl/dat coreclear mov.i *ptr,>ptr mov.i *ptr,>ptr last djn.f clear,<(STREAM-loop) end scan -- Philip Kendall (pak21@cam.ac.uk pak21@kendalls.demon.co.uk)