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:46 1996
Article: 6751 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: Tim Tack Scan
Date: 5 Dec 1996 18:28:03 -0500
Organization: Storm King Ind. Inc.
Lines: 41
Sender: server@news.stormking.com
Distribution: world
Message-ID: <01ICNPK5UHPU0097HC@ACAD.DRAKE.EDU>
Reply-To: PK6811S@ACAD.DRAKE.EDU
NNTP-Posting-Host: valhalla.stormking.com
Originator: corewar-l@stormking.com

Here is a little different scanner based on a wipe routine that
forward spl-carpets until zero-operands are found.  It is also
different in that it counts self-scans to know when to start clearing.

It is effective against CC Paper and Die Hard.

I call it Tim Tack Scan because it is the scanner used in my new
smart program "Tim Tack", which if Pizza ever gets up I can submit.

;redcode-94 test
;name Tim Tack Scan
;author P.Kline
;assert CORESIZE == 8000
;strategy 50% spl-carpeting f-scanner

tGate     equ    (tSpl-19)
tStep     equ    9

tPtr      dat    100 ,4102
          dat    0,0
          dat    0,0
          dat    0,0
          dat    0,0
tAttack   mov    tSpl     ,>tPtr       ; spl-carpet
          jmn.f  -1       ,@tPtr
tScan     add.x  #tStep   ,@-2         ; increment and scan
          jmz.f  tScan    ,@tPtr
tSelf     slt.b  tPtr     ,#tEnd-tPtr  ; check for self
          jmp    tAttack  ,<tPtr
          djn    tScan    ,#6          ; count self-scans
tSpl      spl    0,0
          mov    tDat     ,>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