| ------------------------------------------------------------------------------
| blkmove.s -- block move function
| Version 1 -- 1987-08-28 -- D.N. Lynx Crowe

|	void
|	blkmove(to, from, n)
|	char *to, *from;
|	short n;

|		Copies 'n' bytes from address 'from' to address 'to'.
|		Treats overlaps of from and to areas intelligently.
| ------------------------------------------------------------------------------
		.text

		.xdef	_blkmove

_blkmove:	link	a6,#-4
		move.l	8(a6),d0
		cmp.l	12(a6),d0
		bcc	blkm3

		bra	blkm2

blkm1:		movea.l	8(a6),a0
		movea.l	12(a6),a1
		move.b	(a1),(a0)
		addq.l	#1,8(a6)
		addq.l	#1,12(a6)

blkm2:		move.w	16(a6),d0
		subq.w	#1,16(a6)
		tst.w	d0
		bne	blkm1

		bra	blkm6

blkm3:		move.w	16(a6),d0
		ext.l	d0
		add.l	d0,8(a6)
		add.l	d0,12(a6)
		bra	blkm5

blkm4:		subq.l	#1,8(a6)
		subq.l	#1,12(a6)
		movea.l	8(a6),a0
		movea.l	12(a6),a1
		move.b	(a1),(a0)

blkm5:		move.w	16(a6),d0
		subq.w	#1,16(a6)
		tst.w	d0
		bne	blkm4

blkm6:		unlk	a6
		rts

		.end