From news-rocq.inria.fr!univ-lyon1.fr!jussieu.fr!math.ohio-state.edu!cyber2.cyberstore.ca!nntp.cs.ubc.ca!uw-beaver!cs.washington.edu!jayhan Mon Apr 25 18:34:59 1994
Article: 688 of rec.games.corewar
Newsgroups: rec.games.corewar
Path: news-rocq.inria.fr!univ-lyon1.fr!jussieu.fr!math.ohio-state.edu!cyber2.cyberstore.ca!nntp.cs.ubc.ca!uw-beaver!cs.washington.edu!jayhan
From: jayhan@cs.washington.edu (Jay "Thierry" Han)
Subject: Scanalyzer-W
Message-ID: <JAYHAN.94Apr22125005@derkins.cs.washington.edu>
Lines: 51
Sender: news@beaver.cs.washington.edu (USENET News System)
Organization: Computer Science & Engineering, U. of Washington
Date: 22 Apr 1994 12:50:05 GMT

The Scanalyzer-V series was thus named because it bombed not with
SPL/JMP or a SPL carpet, but with a vampire fang.  The advantage of
using fangs is that you control the pit.  You *could* put the slaves
to work, although Scanalyzer-W doesn't... yet.  That's in my plans.
I also plan to include some stone component to get a better edge
againts other scanners.

Anyway, it's a Mod-2 CMP-scanner.  And that's about it.

;redcode-94x
;name Scanalyzer-W
;author Jay Han
;strategy Scanner/Vampire
;macro

		org	scan

start		equ	scan-200
step		equ	-34

loop		add.f	inc,		scan
scan		cmp.i	start+step,	start
		slt.ab	#399,		scan
count		djn.b	loop,		#13860
		mov.i	fang,		@scan
		sub.ba	scan,		@scan
		add.f	half,		scan
p		jmn.b	scan,		count
inc		spl.b	#step*2,	<step*2
half		spl.b	#step,		<step
		mov.i	bomb,		<p
bomb		dat.f	<step-2,	<step-1
fang		jmp.b	pit-scan,	<-1

for 15
		dat.f	0,		0
rof

pit		spl.b	#0,		<scan-3
trap		jmp.b	-1,		<scan-3

for 15
		dat.f	0,		0
rof

fool		equ	55440/311
m for 155
		dat.f	fool*m,		-fool*m
rof

		end	scan