From PK6811S@ACAD.DRAKE.EDU Wed Nov 29 02:57:58 1995 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA13773; Wed, 29 Nov 95 02:57:58 +0100 Received: from ACAD.DRAKE.EDU (acad.drake.edu [204.42.32.1]) by nez-perce.inria.fr (8.7.1/8.7.1) with ESMTP id CAA24816 for ; Wed, 29 Nov 1995 02:57:56 +0100 (MET) From: PK6811S@ACAD.DRAKE.EDU Received: from ACAD.DRAKE.EDU by ACAD.DRAKE.EDU (PMDF V5.0-4 #11108) id <01HY6SZV2134002SKE@ACAD.DRAKE.EDU> for Damien.Doligez@inria.fr; Tue, 28 Nov 1995 19:57:41 -0500 (CDT) Date: Tue, 28 Nov 1995 19:57:41 -0500 (CDT) Subject: Re: Core war -- Taking Names To: Damien.Doligez@inria.fr Message-Id: <01HY6SZV2AQA002SKE@ACAD.DRAKE.EDU> X-Vms-To: IN%"Damien.Doligez@inria.fr" Mime-Version: 1.0 Content-Transfer-Encoding: 7BIT Status: RO I believe this is the most recent version, with decoy and longer scan time. Feel free to publish it. Paul ;redcode-94 quiet ;name Taking Names ;kill Taking Names ;author P.Kline ;strategy sne.x/seq.x scanner using spl-spl-jmp bomb ;strategy and continuous forward-clear ;strategy added decoy step equ 98 boot equ 4700 reset equ (attack-20) clrptr equ (reset-2) cpins dat jump-clrptr+2 rsins dat #step-2,#step attack mov jump,*comp ; drop wide bomb on a-pointer compptr mov split,{comp mov split,{comp ; after bombing, reset to sub reset,@compptr ; make b-pointer the next a-pointer scan add split,@compptr comp sne 2*step,3*step ; take a look add split,@compptr seq *comp,@comp ; take another look slt #100+step,@compptr ; don't attack self ctr djn scan,#2500 ; countdown to finish jmn attack,-1 split spl.i #(2*step),#(2*step) clear mov reset,>clrptr ; continuous forward clear jump jmp -1 start mov