bmove	dat	#132,#-132
	dat	#0

leech	mov	bite,@bite
	add	bmove,bite
	jmp	leech
bite	jmp	drain+128,bite-128

drain	mov	bmove,<clrloc
clrloc	spl	drain,bmove-1
	jmp	drain
	end	leech