search	add	#inc,	ptr
	jmz	search, @ptr
	slt	#0-territory, ptr
	spl	found
;	Prevent corruption of ptr
	jmp	1
	jmp	search