From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!uwm.edu!nntp.primenet.com!enews.sgi.com!news.sgi.com!news.msfc.nasa.gov!newsfeed.internetmci.com!uuneo.neosoft.com!insync!news.azstarnet.com!news Mon Sep 23 11:43:50 1996
Article: 6015 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!uwm.edu!nntp.primenet.com!enews.sgi.com!news.sgi.com!news.msfc.nasa.gov!newsfeed.internetmci.com!uuneo.neosoft.com!insync!news.azstarnet.com!news
From: Franz <franz@azstarnet.com>
Newsgroups: rec.games.corewar
Subject: NotSoQuickScan
Date: Sat, 21 Sep 1996 18:36:48 -0700
Organization: StarNet
Lines: 83
Message-ID: <32449830.6DA543BE@azstarnet.com>
NNTP-Posting-Host: usr11ip49.azstarnet.com
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 3.0 (X11; I; Linux 1.2.13 i586)

i just tried to write a code that would not be as long not to be an easy
kill for qscans but still qscan fast ... the code i made was that the
code is small an dthe data is long .. the reaction time is not too great
and could probably be greatly improved .... but i haven't worked that
much on it ... what do you think .. the warrior itself is a simple
coreclear, and not very good one i just didn't have time to try to put a
smaller more sophisticated code in there it's just for testing ....

the qscan code is 100%c 

the reactions could be delivered faster and more effectively probably
with MOV x,*x / MOV x,@x but i just haven't gotten that far (yet)

the biggest problem with this code i think is the speed .... could it be
improved?

watch how the DJN works in the scan code .. it decrements the pointers
on the scan line .... it will actually scan the decer line and then try
to scan JMP kill,<-300 .. and that's when it's kicked into the boot

it did better against qscans as they have more code to kill ... I will
work on the killing routine and the reaction time .... optima number
scaning pattern might help since it's slow ... one type of this scan
would be two data sets with QI*2 increments and teh second one shifted
by QI ....  well whatever .... see what you can do with this code ...:)

it's just an idea put together quickly ...

;redcode-94
;author Franz
;name NotSoQuickScan
;password kurva
;strategy Quickscan with tiny killable footprint but a but only 100%c
;strategy just a test i put spl/spl/dat/dat coreclear to it
;url http://www.azstarnet.com/~franz
;assert CORESIZE==8000

QS  EQU 400
QI  EQU 65
QBI EQU 13
REP EQU 4
SCANS EQU 50
whichl EQU whichp-1

scan		SEQ *whichl,@whichl
		JMP kill,<-300
decer		DJN.F scan,scan

which 		
p		FOR SCANS
		SPL #QS+(((p*2)-1)*QI),<QS+(p*2*QI)
		ROF
whichp

		DAT 0,0
		DAT <-5,<-7
		SPL #-5,<-6
boot		SPL #-4,<-20
		MOV *2,<2
		JMP -1,<-100
		DAT -3,-21

kill		SNE.B scan,#1
		JMP boot,<-300
		
		MOV.I @scan,which		
		ADD.F scan,which
		
		MOV.I dbomb,*which

		SEQ datz,@which
		MOV.BA which,which

		ADD.A #QBI,which

		MOV.I dbomb,*which
		SUB.A #QBI,which
		DJN -2,#REP

		JMP boot,<-500

dbomb		DAT >2667,>2667*2
datz		END scan