LP Hill Warrior: Lord of the Core

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

Just to push the interest back to the LP hill, here is another
LP hill p-warrior. It should score better than my previous tries ;-)

Fizmo

;redcode-lp
;name Lord of the Core
;author Christian Schmidt
;strategy p-switching:
;strategy - The 8 Kings *light*
;strategy - Viper's Bugloss
;strategy - Muffineer
;strategy - Eve 15
;assert 1

;######################## 17 instr.

STEP equ 5266
INIT equ (sbmb+STEP)
sdat equ (sptr-1)
sAwa equ 3290

sptr jmp #STEP, #INIT
sadd add.ab {0, }0
scanx jmz.f sadd, @sptr
sbmb mov @0, @sptr
schk jmz.a sadd, sbmb
spl #0, 0
mov sdat, <schk

for 10
dat 0, 0
rof


sgat dat sptr, sptr+sAwa
sGo mov }sgat, >sgat
for 6
mov }sgat, >sgat
rof
spl scanx+sAwa
jmp scanx


;######################## 7 instr.

iAwa equ 4174
train equ 7903

pGo mov.i imp, *2
spl imp
spl iAwa
djn.a #0, <train
djn.f #0, <train
jmp.ba #0, <train
imp mov.i #-1, 1

for 82
dat 0, 0
rof

;######################## 16 instr.

mStep1 equ 5229
mStep2 equ 3704
mAdd equ 963
mOff equ (mHit+mAdd)

mRef mov #9, #9
mGo mov <mRef, <mBck
mPtr mov <mAdd, }mOff
add.ab {0, }0
mHit mov mBmb, @mPtr
jmn mGo, mRef
spl @mRef, <mStep2
mBck jmz @0, mStep1
mBmb dat }7506, >7279

;######################## 12 instr.

dAwa1 equ 5896
dAwa2 equ 7075
dAwa3 equ 4047
dStep equ 2081
dOff equ 2550
dDist equ 2812

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



;######################## 25 instr.
STORE equ 301
w0 equ dGo ;The 8 Kings
w1 equ sGo ;Viper's Bugloss
w2 equ mGo ;Mufeenier
w3 equ pGo ;Eve15

think ldp.a #0, in
ldp.a #STORE, table
mod.ba *in, table
stp.b *table, #STORE

table jmp }0, 226
dat w0, 650
dat w0, 101
dat w1, 886
dat w1, 653
dat w1, 104
dat w2, 889
dat w2, 656
dat w2, 107
dat w3, 630

dat w0, 226

in dat 0, 10
spl 2, 9
spl 2, 11

end think

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

Good info. Once I can isolate the followers, I can topple the 'King'