* ------------------------------------------------------------------------------
* blkfill.s -- block fill function
* Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
*
*	void
*	blkfill(where, what, count)
*	char *where;
*	char what;
*	short count;
*
*		Fills 'count' bytes at 'where' with 'what'.
* ------------------------------------------------------------------------------
		.text
*
		.xdef	_blkfill
*
_blkfill:	link	a6,#0
		movem.l	d5-d7/a5-a5,-(a7)
		movea.l	8(a6),a5
		move.b	13(a6),d7
		move.w	14(a6),d6
		bra	blkf2
*
blkf1:		move.b	d7,(a5)+
*
blkf2:		move.w	d6,d0
		subq.w	#1,d6
		tst.w	d0
		bgt	blkf1
*
		tst	(a7)+
		movem.l	(a7)+,d6-d7/a5-a5
		unlk	a6
		rts
*
		.end