;redcode-94
;name Grey Warrior
;author Ian Oversby
;strategy Stone/Paper/Imp
;strategy Go for the ties :-)
;assert 1

len     EQU 9
fcp     EQU 3039
scp     EQU 2365
tcp     EQU 777

dd1	equ	(frog-2000)
dd2	equ	(frog+2000)

ds1	equ	67
ds2	equ	67

dec	equ	7

carbon	spl	#0,	#0
	spl	#0,	<-1151+3
ptr	mov	197,	cad-(197*3500)
cad	add.ab	{0,	}0
	djn.f	-2,	<-1151

for 50
	dat.f	$0,	$0
rof

init	mov.i	cbmb,	*ptr
	spl.b	sec,	{-1900

fir i for dec
	mov.i	one,	<dd1-i*ds1
rof

	spl.b	carbon,	<-1700
	spl.b	carbon,	{-1500
	spl.b	carbon,	{-1300
	jmp.b	cs,	{-1900

for 40
	dat.f	$0,	$0
rof


sec i for dec
	mov.i	one,	<dd2-i*ds2
rof

	spl.b	cs,	<-2000
boot	spl	1,	>-3000    ; 7 processes replace 9 in CCPaper
	spl	1,	<-3200    ; for cost of extra Mov in launcher.
	mov	-1,	#0

frog    spl	@0,	<fcp-len
        mov	}-1,	>-1
        mov	}-2,	>-2
        spl	@0,	<scp
        mov	}-1,	>-1
        spl	@0,	<tcp
        mov	}-1,	>-1
        mov	2,	<-fcp+len+1   ; Wipe uncle.
        jmp	-1,	<-10
        dat	<2667,	<2667*2
one	dat	>1,	}1
cbmb	dat	>-1,	>1

for 50
	dat.f	$0,	$0
rof

cs	spl.b	#0,		<-700
	spl.b	imp+5334,	<1
	spl.b	imp+2667,	<-1000
imp	mov.i	#2667,		*0


end init