From news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!in2p3.fr!oleane!tank.news.pipex.net!pipex!newsfeed.internetmci.com!in2.uu.net!wizard.pn.com!mozo.cc.purdue.edu!cartoon.ecn.purdue.edu!bremermr Tue Jan  9 10:44:14 1996
Article: 3506 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!univ-lyon1.fr!in2p3.fr!oleane!tank.news.pipex.net!pipex!newsfeed.internetmci.com!in2.uu.net!wizard.pn.com!mozo.cc.purdue.edu!cartoon.ecn.purdue.edu!bremermr
From: bremermr@cartoon.ecn.purdue.edu (Myer R. Bremer)
Newsgroups: rec.games.corewar
Subject: Derision
Date: 8 Jan 1996 13:59:51 GMT
Organization: Purdue University, W. Lafayette, IN
Lines: 49
Message-ID: <4cr80n$mck@mozo.cc.purdue.edu>
NNTP-Posting-Host: cartoon.ecn.purdue.edu

greetings.

derision was pushed off the hill so i thought i'd post the 
source.  lot of good it does you now, eh?  it simply does
a 'myzizzor' type scan and then starts clearing from that
point with a spl/spl/dat/spl/dat clear.  i used an indirection
scan to color core a bit.  i don't really know if it makes 
any difference.  for your derision:

;redcode-94
;name Derision  
;author M R Bremer
;kill Derision
;strategy       trying for a better endpoint .
;strategy       scan --> clear
;strategy       one of these days i'll code another bomber
;strategy       this one is a _rough_ draft

org boot+1

BOOTPTR EQU 3500

ptrs    dat sp1, 0
        add.f step, scan
scan    sne.i }108-3, >100-3
        djn.f -2, <-1664
sp1     spl #9, #14
        mov.i *ptrs, >scan
        mov.i *ptrs, >scan
        djn.f -2, <-40
step    dat 16, 16
        spl #8, #14
for 73
        dat last+10, last+11  
rof
boot    dat BOOTPTR, 12
        mov ptrs, }boot
        mov ptrs+1, }boot 
        mov ptrs+2, }boot
        mov ptrs+3, }boot
        mov ptrs+4, }boot
        mov ptrs+5, }boot
        mov ptrs+6, }boot
        mov ptrs+7, }boot
        mov ptrs+8, }boot
        mov ptrs+9, }boot
        mov 10, step-2
last    jmp  BOOTPTR-10