94nop hill warrior: Sinus Tree

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

Hi all,

here is paper a bit similar to Espiritu's well-known warrior 'Fixed'.
The boot code snippet is taken from Zapf's
'paper(paper(paper(clear)))'.
It scores surprisingly well, because it overwrite its copies with
silk-imps. This can convert already wiped copies back into offensive
silk-imps.

Ok, here it is:

;redcode-94nop
;name Sinus Tree
;author Christian Schmidt
;strategy qscanner, paper
;assert 1
;optimax pap

pAw1 equ 662
pAw2 equ 1699

pStep1 equ 5658
pStep2 equ 1510
pStep3 equ 2687
pStep4 equ 1136
pStep5 equ 4460
pStep6 equ 4398
pStep7 equ 545

zero equ qbomb
qtab3 equ qbomb

qbomb dat >qoff, >qc2
dat 0, 0

pGo spl 1, <qb1
qtab2 spl 1, <qb2
spl 1, <qb3

mov {cp, {pBo1
pBo1 spl zero+pAw1
mov }pBo1, >pBo2
pBo2 jmp zero+pAw2, zero+pAw2

for 12
dat 0, 0
rof

dat zero - 1, qa1
qtab1 dat zero - 1, qa2

for 15
dat 0, 0
rof

cp spl @cp+8, <pStep1
mov.i }-1, >-1
spl @0, }pStep2
mov.i }-1, >-1
spl @0, }pStep3
mov.i }-1, >-1
mov.i #pStep4, }pStep5
mov.i #pStep6, }pStep7

for 19
dat 0, 0
rof

qc2 equ ((1 + (qtab3-qptr)*qy) % CORESIZE)
qb1 equ ((1 + (qtab2-1-qptr)*qy) % CORESIZE)
qb2 equ ((1 + (qtab2-qptr)*qy) % CORESIZE)
qb3 equ ((1 + (qtab2+1-qptr)*qy) % CORESIZE)
qa1 equ ((1 + (qtab1-1-qptr)*qy) % CORESIZE)
qa2 equ ((1 + (qtab1-qptr)*qy) % CORESIZE)
qz equ 2108
qy equ 243

qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2
seq <qtab3, qptr + qz*(qc2-1) + qb2
jmp q0, }q0

sne qptr + qz*qa2, qptr + qz*qa2 + qb2
seq <qtab1, qptr + qz*(qa2-1) + qb2
jmp q0, {q0

sne qptr + qz*qa1, qptr + qz*qa1 + qb2
seq <(qtab1-1), qptr + qz*(qa1-1) + qb2
djn.a q0, {q0

sne qptr + qz*qb3, qptr + qz*qb3 + qb3
seq <(qtab2+1), qptr + qz*(qb3-1) + (qb3-1)
jmp q0, }q1

sne qptr + qz*qb1, qptr + qz*qb1 + qb1
seq <(qtab2-1), qptr + qz*(qb1-1) + (qb1-1)
jmp q0, {q1

sne qptr + qz*qb2, qptr + qz*qb2 + qb2
seq <qtab2, qptr + qz*(qb2-1) + (qb2-1)
jmp q0

seq >qptr, qptr + qz + (qb2-1)
jmp q2, <qptr

seq qptr+(qz+1)*(qc2-1),qptr+(qz+1)*(qc2-1)+(qb2-1)
jmp q0, }q0

seq qptr+(qz+1)*(qa2-1),qptr+(qz+1)*(qa2-1)+(qb2-1)
jmp q0, {q0

seq qptr+(qz+1)*(qa1-1),qptr+(qz+1)*(qa1-1)+(qb2-1)
djn.a q0, {q0

jmz.f pGo, qptr + (qz+1)*(qb2-1) + (qb2-1)

qoff equ -87
qstep equ -7
qtime equ 14
q0 mul.b *2, qptr
q2 sne {qtab1, @qptr
q1 add.b qtab2, qptr
mov qtab3, @qptr
qptr mov qbomb, }qz
sub #qstep, qptr
djn -3, #qtime
jmp pGo

end qgo