;redcode
;name Fast v3.1
;author Matthew K. Gray

cclp	dat	#0,	#0
ptr1	spl	-1,	#-500

;main search routine
start	spl	dwarf
search	sub	#417,	ptr1
	cmp	<ptr1,	<ptr2
	slt	#50,	ptr2
count	jmp	search,	#20
	slt	#50,	ptr1
cclc	jmp	search,	#10

;Wipe it
found	mov	ptr1,	<ptr2
	mov	ptr1,	<ptr1
	djn	found,	count
	add	#20,	count
	djn	search,	cclc


;Run coreclear
mcl	slt	cclp,	terr
	mov	ptr2,	<cclp
	jmn	impk,	-60
terr	jmp	mcl,	#50
ptr2	dat	#0,	#-479

;Squish the imp
impk	mov	ptr2,	-30
	jmp	impk,	<-31
bomb	dat	#0
dwarf	add	#17,	bomb
	mov	bomb,	@bomb
	jmp	dwarf
end	start