From corewar-l@stormking.com Thu Dec 21 18:16:59 1995 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA01403; Thu, 21 Dec 95 18:16:59 +0100 Received: from valhalla.stormking.com (root@valhalla.stormking.com [204.141.14.1]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id SAA04267 for ; Thu, 21 Dec 1995 18:16:36 +0100 (MET) Received: from (server@localhost [127.0.0.1]) by valhalla.stormking.com (8.6.12/8.6.12) with SMTP id MAA23462; Thu, 21 Dec 1995 12:13:16 -0500 Date: Thu, 21 Dec 1995 12:13:16 -0500 Message-Id: <9512211716.AA16721@genio.eui.upm.es> Errors-To: tuc@stormking.com Reply-To: o0619@genio.eui.upm.es Originator: corewar-l@stormking.com Sender: corewar-l@stormking.com Precedence: bulk From: o0619@genio.eui.upm.es (Jose Santos Pulido Garcia) To: Multiple recipients of list Subject: Clear Sighted v1 X-Listprocessor-Version: 6.0b -- ListProcessor by Anastasios Kotsikonas X-Comment: Usenet News "rec.games.corewar" Happy New Year. My english is not good, so I will not say any more. Goodbye. Jose. ;redcode-b ;name Clear Sighted v1 ;author JS Pulido ;strategy Qscan -> MultiPass Cclear ;assert CORESIZE==8000 ;kill TEST stepA EQU **** stepB EQU *** stepC EQU ** LA EQU * LB EQU * sep EQU 5 exeins EQU (clr-ptr)+sep+1 fin EQU (last+1) start A FOR LA B FOR LB sne.i bp+(stepA*A)+(stepB*B)-(stepC*2),bp+(stepA*A)+(stepB*B)-(stepC) seq.i bp+(stepA*A)+(stepB*B)+(stepC*2),bp+(stepA*A)+(stepB*B)+(stepC) mov.ab #bp+(stepA*A)+(stepB*B), bp ROF jmn.b boot, bp ROF bp default mov.ab #*****, bp boot mov.i {ptr, gate-sep FOR (MAXLENGTH-CURLINE) dat #1, #1 ROF end start