;redcode-94nop
;name 3.8*10^3
;author inversed
;strategy Stone/Imp for CSEC2005 qualification round
;assert (CORESIZE==3800) && (MAXPROCESSES==3800)
;Mean stone/imp, not well optimized. But it should 
;beat any scanner and I expect oneshots/bishots
;from LAchi and Wainwright (yes, this is naive).
;Relatively large, so adding qScan is useless.
;Anyway I think I have a chance.

djs	equ	2556
h	equ	1469
t	equ	1050
zofs	equ	1-h*t

istep	equ	1267
idelay	equ	5

bo	equ	8
io	equ	215
bds	equ	1015
bdi	equ	1082


org	boot

stone	spl	#bomb,	<djs
ptr	mov	bomb+bo,}zofs
	mov	bomb+bo,@ptr
	add	#2*h,	ptr
	djn.f	ptr,	<stone+djs
bomb	dat	h,	<2

iptr	djn	#0,		#idelay
ipmp	spl	#imp+io,	>-16
	sub.f	#-istep-1,	ijmp
	mov	imp+io,		}ipmp
ijmp	djn.f	imp-2*(istep+1)+io,{istep/2
imp	mov.i	#12,		istep

boot	mov	bomb,	bomb+bds+bo
	mov	imp,	imp +bdi+io

	spl	1,	0
	mov	-1,	0
	mov	-1,	0

	mov	{stone,	{sj
	mov	<bpi,	{bpi

sj	djn	bomb+bds,	#5
bpi	jmp	imp+bdi,	imp