From: t-jcisek@microsoft.com (Julius Cisek)
Subject: X-Hill warriors [Bookworm, Viper, Odin, Crimson]
Date: 28 Jul 92 20:53:43 GMT
Organization: Microsoft Corporation


Here are my four X-hill warriors.  Bookworm sat around the bottom
getting as high as 6th and was knocked off at age 35+.  Viper went
up to 4th once and lasted until 40+ I think...  Crimson is still
up there and the current version is 80+ old.  Odin is the oldest program
on the X-hill and has been in a close 2nd (before Spider) and as high
as 3rd recently and is 112+ old.

These are really simple programs as you're about to see:

[Note the use of ;kill lines!!!!]
---
;redcode-x verbose
;name Bookworm
;author J.Cisek
;strategy creation date 6/5/92
;strategy Moves through core and drops little worms

NEW	equ 240

src	mov #dest+2, 0
copy	mov <src, <dest
	mov <src, <dest
	jmn copy, src
	spl worm
	jmp @dest
worm	spl 0, <src
	mov dest, <src
dest	dat #NEW

	end src

;kill Bookworm
---
;redcode-x verbose
;name Viper
;author J.Cisek
;strategy creation date: 5/27/92
;strategy  based on Staph (my first CoreWar program 3/29/92)
;strategy  Bomb core (mod 2), copy self, start over
;strategy Strength: very fast and relatively small
;strategy Weakness: bombs with dats so will lose versus multiplying programs

MAX	equ 250
BAWAY	equ MAX+bomb-teeth-1

source	dat #0

start	mov #BAWAY, bomb
teeth	mov dest, <bomb
	djn teeth, bomb

	mov #dest-source+1, source
copy	mov <source, <dest
	jmn copy, source
bomb	jmp MAX+copy+start-2, #0

dest	dat #MAX+copy

	end start

;kill Viper
---
;redcode-x verbose
;name Odin
;author J.Cisek
;strategy creation date 5/19/92
;strategy  My 2nd attempt for a KotH-x warrior
;strategy  A fast copy routine surrounded by spls and dats.
;strategy  Big and brutal...

SOURCE  equ 92
DEST    equ 240
CS      equ 32

s       dat #42

initcp  mov #SOURCE, s
        mov #DEST, d
        mov #CS, counter
cp      mov <s, <d
        mov <s, <d
        mov <s, <d
        mov <s, <d
        mov <s, <d
counter djn cp, #CS
        jmp DEST-SOURCE+2, #42

d       dat #42

        spl 0, #42
	spl 0, #43
	... [80 or so more SPL 0's]

        end initcp

;kill Odin
---
;redcode-x verbose
;name Crimson v2.1
;author J.Cisek
;strategy creation date 4/26/92
;strategy  v2.0 5/27/92 total code overhaul, bomb far away first
;strategy  v2.1         better values (faster, more thorough)
;strategy This was my first warrior designed specifically
;strategy  for the KotH experimental hill.
;strategy Bomb with SPL 0, JMP -1 first time through core, change to
;strategy  bombing with DAT's second time around.
;strategy Strength: If bomb hits enemy, enemy is most likely lost
;strategy Weakness: Sparce bombing might miss small opponents (like imps)

JUMPTO	equ -162
NJUMPS	equ 100
TFROM	equ -246
SKIP	equ 7
LENGTH	equ (done-len+1)
EXECUTE	equ (start-len)
NEW	equ JUMPTO-LENGTH+split+EXECUTE

len	dat #0, #0
split	spl 0, #0
jump	jmp -1, #0

start	mov #TFROM, jump

attack	mov jump, @jump
	mov split, <jump
	add #SKIP, jump
	jmn attack, jump

	djn normal, done
	mov len, split

normal	mov #LENGTH, len
	mov #JUMPTO, split
copy	mov <len, <split
	jmn copy, len

done	jmp NEW, #NJUMPS

	end start

;kill Crimson
-- 
Julius Andrew Cisek                ,_,
t-jcisek@microsoft.com   "Joy!"   /oo \  _.-.   "Quiet, you bloated
One Microsoft Way     //          <>__| /- O O       idiot!"
Redmond, WA 98052   \X/           |  U|    \|
Newsgroups: rec.games.corewar