From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.erols.net!panix!news.columbia.edu!news.new-york.net!news.stormking.com!PK6811S@ACAD.DRAKE.EDU Fri Dec 6 10:46:07 1996 Article: 6750 of rec.games.corewar Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.erols.net!panix!news.columbia.edu!news.new-york.net!news.stormking.com!PK6811S@ACAD.DRAKE.EDU From: PK6811S@ACAD.DRAKE.EDU Newsgroups: rec.games.corewar Subject: Tom Tack Scan Date: 5 Dec 1996 18:28:25 -0500 Organization: Storm King Ind. Inc. Lines: 39 Sender: server@news.stormking.com Distribution: world Message-ID: <01ICNQ1B9EEW0097HC@ACAD.DRAKE.EDU> Reply-To: PK6811S@ACAD.DRAKE.EDU NNTP-Posting-Host: valhalla.stormking.com Originator: corewar-l@stormking.com Now here is Tom Tack Scan, big brother to Tim Tack Scan. By combining JMN.F and JMZ.F with a MOV.X, both operands of tPtr can be used to scan core. ;redcode-94 test ;name Tom Tack Scan ;author P.Kline ;assert CORESIZE == 8000 ;strategy 66% spl-carpeting scanner tGate equ (tSpl-19) tStep equ 9 tPtr dat 100 ,4102 dat 0,0 dat 0,0 dat 0,0 dat 0,0 dat 0,0 tAttack mov tSpl ,>tPtr ; spl-carpet jmn.f -1 ,@tPtr tScan sub.x #-tStep ,tPtr ; increment jmn.f tSelf ,@tPtr ; scan first pointer jmz.f tScan ,*tPtr ; scan second pointer mov.x tPtr ,tPtr ; swap pointers tSelf slt.b tPtr ,#tEnd-tPtr ; check for self jmp tAttack ,tGate ; dat-wipe core djn.f -1 ,>tGate tDat dat >5335 ,tEnd-tGate dat 0,0 tEnd dat 0,0 end tScan Paul Kline pk6811s@acad.drake.edu