From rmorganl@fhcrc.org Wed Jul 31 07:30:58 1996 Received: by couchey.inria.fr (5.57/Ultrix3.0-C) id AA11153; Wed, 31 Jul 96 07:30:58 +0200 Received: from bug1.fhcrc.org (bug1.fhcrc.org [140.107.10.110]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id HAA19264 for ; Wed, 31 Jul 1996 07:30:56 +0200 (MET DST) Received: from fred (fred.fhcrc.org) by bug1.fhcrc.org (5.x/SMI-SVR4) id AA00805; Tue, 30 Jul 1996 22:27:12 -0700 Date: Tue, 30 Jul 1996 22:27:10 -0700 (PDT) From: Ross Morgan-Linial X-Sender: rmorganl@fred To: Damien Doligez Subject: Here's a warrior... Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Status: RO This is a pretty simple scanner that fell off the beginner hill quickly. However, it makes a pretty good p-component (it's in (-: :-) and TIE Fighter). And, for a reason I don't know, it gets enormous numbers of Wilkies (okay, it's because the Wilkies test warriors have a lot of paper) ;redcode-94b ;name T-1 ;author Ross ;strategy scanner -> coreclear ;assert CORESIZE==8000 ;type scan, stun, clear ; 157.5333 wilkies :-) ptr DAT #0, #0 start ADD.AB #3039, ptr ;step through locations JMZ.A start, @ptr ;check for nonzero A-field SLT.ab #cctail-ptr, ptr ;check for self-bombing JMP start, ptr MOV ptr, ccptr SUB #ccptr-ptr+5, ccptr JMP cclear FOR 50 DAT 0, 0 ROF ccptr dat.f 0, 0 dat.f 0, 10 cclear spl #0, 10 mov.i @bptr, >ccptr mov.i @bptr, >ccptr cctail bptr djn.b -2, {cclear END start WARNING: THIS .SIG IS STILL UNDER CONSTRUCTION o o o o o o o o o o o o o [][][][][][][][][][][][][] [] [] [] Ross Morgan-Linial [] [] rmorganl@fhcrc.org [] [] [] [][][][][][][][][][][][][] || || __________||________________||_________ |___|___|___|___|___|___|___|___|___|___| |_|___|___|___|___|___|___|___|___|___|_| |___|___|___|___|___|___|___|___|___|___| |_| |_| |_| Tragedy is when I cut my finger. |_| |_| Comedy is when _you_ walk into |_| |_| an open sewer and die. |_| |_| -- Mel Brooks |_| |_|___________________________________|_| |___|___|___|___|___|___|___|___|___|___| |_|___|___|___|___|___|___|___|___|___|_| |___|___|___|___|___|___|___|___|___|___| For a cleaner Usenet, insert this in ~/News/KILL (rn-style newsreaders): /^Newsgroups:.*\,.*\,.*\,.*\,.*\,/h:=:j