chasing:	lw	0 00f- -1
	call	sub1
	erase
	lw	0 0ff-,-1
	call	sub1
	erase
	lw	0 0f0-,-1
	call	sub1
	erase
	lw	0 ff0-,-1
	call	sub1
	erase
	lw	0 f00-,-1
	call	sub1
	erase
	lw	0 f0f-,-1
	call	sub1
	erase
	lw	0 ddd-,-1
	call	sub1
	end
sub1:	delay 1
	sw	+
	jmpc	sub1
	delay 1
	flush
	clrd
sub1a:	sw	-
	delay	1
	jmpc	sub1a
	return