LP hill warrior: Dental Desease

Archived from groups: rec.games.corewar (More info?)

Hi all,

here is one of my first p-warrior for the LP hill. The
strategy-lines should say all;-)

Christian


;redcode-lp
;name Dental Disease
;author Christian Schmidt
;strategy p^3-warrior
;strategy switch : non-standard switching pattern
;strategy scanner: similar to LP-Scan v0.1
;strategy but with different constants
;strategy stone : a triple of self-modifying
;strategy 3-line dwarfs
;strategy anti-cc: based on CLP but optimized
;strategy for the LP hill
;strategy s/p : copy of Roskilde
;assert 1


;------stone/paper--------------------

siAwa1 equ 6897
siAwa2 equ 2842
siAwa3 equ 4582
siStep equ 1564
siStep2 equ 383

piStep1 equ 2990
piStep2 equ 1719

pa1 mov #6, #6
pGo mov <pa1, <j1
jmn -1, @-2
spl @pa1, <piStep2
j1 jmz.b @0, piStep1
b1 dat {1, <1

xGo spl pGo, 0
spl 2, 0
spl 1, 0

mov <s1, {s1
mov <s2, {s2
mov <s3, {s3
jmp *s1, }0

s1 dat p1+siAwa1, sEnd+1
s2 dat p1+siAwa2, sEnd+1
s3 dat p1+siAwa3, sEnd+1

mov <siStep2 , 1+siStep
sub 1, -1
sEnd jmp -2, <-siStep


;-------triple of self-modifying dwarfs-------

dAwa1 equ 2005
dAwa2 equ 5547
dAwa3 equ 3870
dStep equ 7739
dOff equ 3792

dDist equ 4213

dGo spl 1, 0
mov.i {0, #0
mov <dBoot1, {dBoot1
mov <dBoot2, {dBoot2
mov <dBoot3, {dBoot3
jmp *dBoot1, }0

dBoot1 dat dGo+dAwa1+dDist, dDwarf+3
dBoot2 dat dGo+dAwa2+dDist, dDwarf+3
dBoot3 dat dGo+dAwa3+dDist, dDwarf+3

dDwarf mov {dOff, 1-dStep
sub.x #dStep, dDwarf
jmp dDwarf, }dDwarf

;-------scanner-------------------------------

sStep equ 2487
sDecr equ 4176
sAwa equ 3405

sBoo mov sBmb+1, think+sAwa
for 6
mov {sBoo, <sBoo
rof
jmp @sBoo

sPtr add #sStep, #sBmb+sStep
sGo jmz.f sPtr, @sPtr
slt sPtr, #5
mov *sBmb, @sPtr
jmp sPtr, <sDecr
sBmb dat 1, 1
jmp #2, <2667

;-------p-switcher-----------------------------------

w0 equ slDodger ;stone
w1 equ dGo ;scanner
w2 equ sBoo ;o-shot
w3 equ xGo ;paper
STORE equ 123

think ldp.a #0, in
ldp.a #STORE, table
mod.ba *in, table
stp.b *table, #STORE
;St L W T
table jmp }0, 441 ; 1 0 1 891 ;0 1 0 0 ;initial
dat w0, 792 ;2 0 2 243 ;1 3 0 1
dat w1, 893 ;2 3 2 2
dat w1, 344 ;3 4 2 3
dat w1, 785 ; 5 2 4 246 ;4 6 3 4
dat w2, 896 ;5 6 5 5
dat w2, 347 ;6 7 5 6
dat w2, 689 ; 9 5 7 249;;7 9 6 7
dat w3, 899 ;8 9 8 8
dat w3,1241 ;9 1 8 9

dat w3, 349 ; 9 7 8 ;unreachable
in dat 0, 10
pboot spl 2, 9
spl 2, 11


;-------CLP-----------------------------------

cAwa equ 135
pstep equ 2234
pescape equ (pb+1)
plen equ (pescape-p1)
pdriv equ 1142

slDodger mov <btDodger,{btDodger
mov <btDodger,{btDodger
mov <btDodger,{btDodger
djn -3,#6
btDodger jmp pescape+cAwa,pescape+1

p1 mov pb ,@pfence
mov pb ,*pfence
ploop add pincr ,psnare
mov psnare ,@psnare
pfence sne pb-71 ,pb+33
djn.f ploop ,>p1-pstep
pmove add preset ,psnare
mov pb ,pescape
pcopy mov >pescape ,}pescape
jmn.b -1 ,pescape
preset jmp p1+pstep ,-p1-pstep
psnare jmp ptrap-pdriv,+pdriv
ptrap mod.x #10 ,#1
stp.ab #0 ,#0
djn.b -1 ,-1
pincr mov 1 ,-1
pb dat pstep+p1-pescape,-plen

end think