From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!newsfeed.internetmci.com!in2.uu.net!newsfeed.pitt.edu!bb3.andrew.cmu.edu!andrew.cmu.edu!mn2f+ Mon Mar 18 10:30:49 1996
Article: 4390 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!howland.reston.ans.net!newsfeed.internetmci.com!in2.uu.net!newsfeed.pitt.edu!bb3.andrew.cmu.edu!andrew.cmu.edu!mn2f+
From: Michael N Nonemacher <schitzo+@CMU.EDU>
Newsgroups: rec.games.corewar
Subject: quiz
Date: Sat, 16 Mar 1996 22:44:03 -0500
Organization: Junior, Math/Computer Science, Carnegie Mellon, Pittsburgh, PA
Lines: 129
Message-ID: <AlGse3200YUt46Pn5C@andrew.cmu.edu>
NNTP-Posting-Host: po7.andrew.cmu.edu

Well, I had meant to post the source to "quiz" awhile ago, but I was
afraid that would just push it off faster.  There's a time when a
warrior's been on the hill so long it should be published, but it's
doing badly enough that publishing it will only quicken its demise. 
(you'll have to forgive me, I'm still mourning its loss...)  Anyway,
here's the source.  Like I've said before, the only real innovation in
it is counting the finds, and entering the coreclear only after finding
and bombing N locations.  Anyway, this is the exact same version that
was on the hill, identical decoy, etc.  Enjoy.

;redcode-94 verbose
;name quiz
;author Schitzo
;strategy scanner, added stronger coreclear
;kill quiz
;assert CORESIZE==8000
 
C       EQU     2376
FIRST   EQU     b+ADJ
TIMES   EQU     20
BOOT    EQU     5298
ADJ     EQU     85
 
org     boot
 
        dat.f   1,      1
        stp.f   0,      0               ;scanned
s       dat.f   FIRST,  FIRST+C
inc     dat.f   C*2,      C*2
 
        ;18 x "dat.f 0, 0"
 
cptr    dat.f   clr,    15
d       dat.f   <2667,  15
        dat.f   <-15,   15
clr     spl     #-3000,   15
        mov.i   @2,     >cptr
        mov.i   @1,     >cptr
        djn.b   -2,     {clr
 
        ;67 x "dat.f 0, 0"
 
a       add.f   inc-ADJ,        s-ADJ
        mov.i   b,      *s-ADJ
        jmz.f   a,      @s-ADJ
hit     mov.i   b,      @s-ADJ
        djn.b   a,      #TIMES
b       jmp     clr-67
 
        jmp.f   0,      0               ;scanned
 
boot    mov.i   a+5,    BOOT+5
        mov.i   a+4,    <boot
        mov.i   a+3,    <boot
        mov.i   a+2,    <boot
        mov.i   a+1,    <boot
        mov.i   a,      <boot
bootp   mov.i   s+1,    boot+BOOT-9-ADJ+1
        mov.i   s,      <bootp
boots   mov.i   cptr+6, boot+BOOT-7-67+6
        mov.i   cptr+5, <boots
        mov.i   cptr+4, <boots
        mov.i   cptr+3, <boots
        mov.i   cptr+2, <boots
        mov.i   cptr+1, <boots
        mov.i   cptr,   <boots
        spl     @boot                   ;scanned
        mov.i   b,      boot
        mov.i   b,      bootp
        mov.i   b,      boots
for     12
        dat.f   -boots, boots
rof
        cmp.i   0,      0
        
        dat.f   @1,     1
        dat.f   1,      @1
        dat.f   @1,     @1
        dat.f   1,      1
        dat.f   #1,     #1
        dat.f   #1,     @1
        dat.f   @1,     #1
        dat.f   #1,     1
        dat.f   1,      #1
        dat.f   <1,     <1
        dat.f   <1,     @1
        dat.f   <1,     #1
        dat.f   <1,     1
        dat.f   1,      <1
        dat.f   @1,     <1
 
        jmz.f   0,      0
 
        dat.f   @1,     1
        dat.f   1,      @1
        dat.f   @1,     @1
        dat.f   1,      1
        dat.f   #1,     #1
        dat.f   #1,     @1
        dat.f   @1,     #1
        dat.f   #1,     1
        dat.f   1,      #1
        dat.f   <1,     <1
        dat.f   <1,     @1
        dat.f   <1,     #1
        dat.f   <1,     1
        dat.f   1,      <1
        dat.f   @1,     <1
 
        sne.i   0,      0
 
        dat.f   @1,     1
        dat.f   1,      @1
        dat.f   @1,     @1
        dat.f   1,      1
        dat.f   #1,     #1
        dat.f   #1,     @1
        dat.f   @1,     #1
        dat.f   #1,     1
        dat.f   1,      #1
        dat.f   <1,     <1
        dat.f   <1,     @1
        dat.f   <1,     #1
        dat.f   <1,     1
        dat.f   1,      <1
        dat.f   @1,     <1
 
        ldp.ab  0,      0