Newsgroups: rec.games.corewar
Path: ibmpcug!gwen.pcug.co.uk!pipex!news.sprintlink.net!gatech!bloom-beacon.mit.edu!eru.mt.luth.se!omega.ludd.luth.se!news.ifm.liu.se!liuida!y91magpa
From: y91magpa@ida.liu.se (Magnus Paulsson)
Subject: myVamp v2.2
X-Nntp-Posting-Host: astmatix.ida.liu.se
Message-ID: <D95ABF.8rt@ida.liu.se>
Sender: news@ida.liu.se
Organization: CIS Dept, Linkoping University, Sweden
Date: Thu, 25 May 1995 17:38:01 GMT
Lines: 46

Hi, here's my fighter.
I fell that I'm stuck, can't improve it any more. If any of you can make it
better fell free (send me a mail and tell me!). The constant could probably
be improved a lot!

/Paulsson
ps yes I know it should read 2400 instead of 1200 ds


;redcode-94 verbose
;name myVamp v2.2
;author Paulsson
;strategy v2.0 Vamp, total rewrite, vamps for 750 cycles 2/3 c
;strategy then spl/spl/dat core clear, should lose to stone,imp.
;strategy v2.1 new constant -> 1200 cycles of vamping
;strategy v2.2 Tried to set up gate and new step to get scanners
;strategy      a lot faster. 
;kill myVamp v2.1
;kill myVamp v2

org st
step    equ 10*23
c2              dat.f   b1,b2+2
                dat.f   0,0                     ;B
st              add.f   s,c
                mov.i   c,@c
                jmz.a   st,*c
                mov.x   c,bmb
                mov.i   @0,@bmb         ;A
exit    jmn.b   st,c
b1              spl             #b2-c2,b2-c2+2
                mov             *c2,>c2
                jmp             -1,>c2-1
c               jmp             trap,0          ;B
bmb             jmp             0,0
b3              dat.f   #b3-c2,b2-c2+2
b2              spl             #b3-c2,b2-c2+2
s               dat.f   -step,step
i               for             10
                dat.f   0,0
rof
trap    mov.i   #1,exit
                mov.i   0,exit
                spl     #0,0
                spl             -1,0