Article 3220 of rec.games.corewar:
Path: news.cs.utah.edu!cs.utexas.edu!not-for-mail
From: PK6811S@ACAD.DRAKE.EDU
Newsgroups: rec.games.corewar
Subject: Scimitar
Date: 7 Oct 1994 16:50:31 -0500
Organization: UTexas Mail-to-News Gateway
Lines: 63
Sender: nobody@cs.utexas.edu
Message-ID: <01HI02ZXM2MQ007P1A@ACAD.DRAKE.EDU>
NNTP-Posting-Host: news.cs.utexas.edu

Here's the code for Scimitar, comfortably at first place on the '94 test hill.

It's basically an alternating dat/spl bomber with a combination gate/clear
that is now possible under the '94 draft.  The forward-core-clear uses
the b-operand of the gate and the DJN.F looper uses the a-operand, allowing
a continuous gate while actively wiping core - no more race-to-the-gate!

The 'jmp clr' line at first and the redundant bomb instruction may seem
dubious, but they are there for a real purpose.  If Scimitar gets overrun
by the opponent's DJN.F stream the djn at 'cnt' would otherwise jmp to
a DAT instruction and self-destruct.  This way he immediately goes to core-
clear and gate.  This modification allowed Scimitar to go from a 25/60
record against the Blue Funks to something like 40/45.  The extended
bombing with alternating SPL's helps Scimitar hold its own against Silk.

Here's Scimitar's record:

Genocide v1.2      88/06/04
Iron Gate 1.5      59/29/12
I'm with stupid.   58/30/12
Delivery           58/33/09
Unknown            53/37/10
Rude Wind          52/40/08
SJ-4               52/39/09
TCh                50/33/17
Torch t8           45/39/16
Agony II           45/46/09
Cannonade          44/32/24
Sasami             44/31/25
Blue Funk 3        42/45/13
Blue Funk          41/40/19
Bremstone 2.X      42/50/08
Aeka               38/32/30
Silk Warrior 1.4   36/44/20
B-Panama X         23/54/23
Phoenix 1.2        19/50/31
-----------------------------------------------------------------------------
;redcode-94 quiet
;name Scimitar
;kill Scimitar
;author P.Kline
;strategy bomber
;macro
step     equ   27
count    equ   1470

	 jmp   clr
start    mov   sb,@st
st       mov   {100,*cnt-(2*count*step)-1
	 add   bmb,st
cnt      djn   start,#count-1
sb       spl   #step,0
clr      mov   bmb,>-13
	 djn.f clr,{-14
  for 22
	 dat   0,0
  rof
	 dat   <4,step+step
bmb      dat   <4,step+step
	 end   start
	 
Paul Kline
pk6811s@acad.drake.edu