From news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!cs.utexas.edu!geraldo.cc.utexas.edu!usenet Tue Apr  9 11:16:41 1996
Article: 4706 of rec.games.corewar
Path: news-rocq.inria.fr!jussieu.fr!math.ohio-state.edu!cs.utexas.edu!geraldo.cc.utexas.edu!usenet
From: JKW <jwilkinson@mail.utexas.edu>
Newsgroups: rec.games.corewar
Subject: No Prisoners
Date: 8 Apr 1996 01:58:21 GMT
Organization: The University of Texas at Austin, Austin, Texas
Lines: 45
Message-ID: <4k9rrt$3ir@geraldo.cc.utexas.edu>
NNTP-Posting-Host: slip-2-6.ots.utexas.edu
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 1.22 (Windows; I; 16bit)

;redcode-94
;name No Prisoners
;author John K W
;strategy boot, scan, stun, clear
;strategy This is essentially B++ with '94 improvements.
;strategy The main problem with this program is the ineffectiveness
;strategy of SPL/JMP bombs... perhaps incendiaries would work better? :/
;strategy I always did like B++... the way it decrements the JMP instruction
;strategy to avoid an extra ADD instruction is just plain nifty.

step equ 2234
org     boot

for 81
spl #loop*3667, 0
rof

boot    mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
        mov     <bootp, {bootp
bootp   jmp     2000,   jump+2

loop	add     #step,  dest
	jmz     -1,     @dest
	mov     jump,   @dest
dest	mov     split,  <-2
	jmn     loop,   loop
split	spl     #0
	mov     2,      >-10
jump	jmp     -1
        dat     >1,     15

-- 
 / John K. Wilkinson - jwilkinson@mail.utexas.edu \
| Founder and Co-Chairman of the Americans For The |
 \ Annexation of Canada, Mexico, Cuba and Kansas. /
     -=- http://ccwf.cc.utexas.edu/~ifio452/ -=-