From news-rocq.inria.fr!jussieu.fr!oleane!news-feed.fnsi.net!newsfeed1.earthlink.net!newsfeed.gte.net!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news.new-york.net!news.stormking.com!jwilkinson@mail.utexas.edu Mon May 11 13:00:08 1998 Article: 9004 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!oleane!news-feed.fnsi.net!newsfeed1.earthlink.net!newsfeed.gte.net!cpk-news-hub1.bbnplanet.com!news.bbnplanet.com!news.new-york.net!news.stormking.com!jwilkinson@mail.utexas.edu From: jwilkinson@mail.utexas.edu Newsgroups: rec.games.corewar Subject: Re: Multi-process scanner Date: 10 May 1998 20:51:02 -0400 Organization: Storm King Ind. Inc. Lines: 103 Sender: server@news.stormking.com Distribution: world Message-ID: <199805102005.QAA32598@valhalla.stormking.com> Reply-To: jwilkinson@mail.utexas.edu NNTP-Posting-Host: valhalla.stormking.com Originator: corewar-l@stormking.com X-Mailer: Windows Eudora Version 1.4.4 >Do you know how to make a nulti-process scanner? Want to do a >ring/scanner, but dunno how to get enough process in the scanner... P Kline's mscan should be on Planars archive, and is a multi-process scanner. I managed to combine it with an impfinity spiral which activate if "side" of the scanner died or got stunned. I wrote this yesterday, oddly enough. It actually worked ok except that the scanner had to be 3x slower than a normal one in order to get the inc/dec mirror to work. I submitted it to Pizza just now as a test, but I don't think it'll score more than 110 on the '94 Hill. >Ps. I think that we should change the newsgroup name cause i'm getting >more and more mails for xxx pix because of the "core" word in it... Haha. The word core has nothing to do with it. The internet is about 60% dedicated to spreading pornography. In fact, wasn't that what those govt people originally designed it for? I'd have to look that up, but I think it was. --- ;redcode-94 ;name Freak ;author John K W ;assert CORESIZE == 8000 ;strategy based on Kline's mscan, multiprocess scanner ;strategy attempts the ever-elusive 'smart' quality org mStart mStep equ 2365;45 ; mod-5, > (mScan-mGate+2) mProc equ 4 ; number of processes in each loop mGate dat 0 ,200 mIncr dat mStep ,mStep offset equ mScan+mStep*11 mPtr dat offset-1, offset+mProc*mStep cptr dat 0, pump ; mPtr-A tracks mProc steps behind mPtr-B ; so when a process falls through the jmn.f ; check it can move mPtr-A to mGate ; for wiping for 7 dat 0,0 rof mAdd add mIncr ,mPtr ; 1 4 7 mov {mSpl, >mGate ; 2 5 8 mSync djn mAdd ,#1500 ; 3 6 9 spl #0, 0 mov mDat ,>cptr ; d-clear djn.f -1 ,>cptr mDat dat >5335 ,5-cptr for 7 dat 0,0 rof mReset mov mSpl, >mGate; 3 mov.ab mPtr, mGate ; 4 mov }mSpl, >mGate; 2 5 5 mov mSpl, >mGate; 3 6 6 mScan jmz.f -2, @mPtr ; 1 4 7 7 jmp mReset, }mSpl ; 2 for 27 dat 0,0 rof ;********************** watcher istep equ 2667 impoff equ (Z+1137) point equ imp; (pump-pmpof+impoff) pmpof equ (impoff-100) watcher jmz.f 0, mSpl pump spl #0, 0 mov ptr+1, prime ;*********************** for 18 dat 0,0 rof mStart spl watcher spl 1, <500 ; create mProc processes jmp 2 dat 0,0 ; spl 1, <600 spl 1, <700 spl mSync, <800 ; start scanning loops jmp mScan, >mGate dat 0,0 dat 0,0 imp mov.i #istep, *0 mSpl i for 8 spl 0,0 rof