CSECT   text
	xdef	@MoveMem16
	xdef	@MoveMem
	cnop	0,16
@MoveMem16 EQU	* ; ptr is in A0
	lsr.w	#5,d0
	subq.l	#1,d0
ll:
	nop
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	move16	(a0)+,(a1)+
	dc.w	0
	nop
	dbra	d0,ll
	rts
	cnop	0,16
@MoveMem equ *
	lsr.w	#4,d0
	subq.l	#1,d0
lll:
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	move.l	(a0)+,(a1)+
	dbra	d0,lll
	rts
	cnop	0,16
	end