! $OpenXM: OpenXM_contrib2/asir2000/asm/asm4-2.s,v 1.1.1.1 1999/12/03 07:39:06 noro Exp $
#include "base.h"

	.seg	"text"			! [internal]
	.proc	14
	.global	dm
dm:
	save	%sp,-104,%sp
	mov	%i1,%o1
	call	.umul,2
	mov	%i0,%o0
	
	sll	%o1,CBSH,%o1
	srl	%o0,BSH,%o2
	or	%o1,%o2,%o1
	sethi	%hi(BMASK),%o2
	add	%o2,%lo(BMASK),%o2
	and	%o0,%o2,%o0

	st	%o1,[%i2]
	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dmb
dmb:
	save	%sp,-104,%sp
	mov	%i2,%o1
	call	.umul,2
	mov	%i1,%o0

	call	edr,3
	mov	%i0,%o2

	st	%o1,[%i3]
	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dma
dma:
	save	%sp,-104,%sp
	mov	%i1,%o1
	call	.umul,2
	mov	%i0,%o0

	addcc	%o0,%i2,%o0
	addx	%g0,%o1,%o1

	sll	%o1,CBSH,%o1
	srl	%o0,BSH,%o2
	or	%o1,%o2,%o1
	sethi	%hi(BMASK),%o2
	add	%o2,%lo(BMASK),%o2
	and	%o0,%o2,%o0

	st	%o1,[%i3]
	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dmab
dmab:
	save	%sp,-104,%sp
	mov	%i2,%o1
	call	.umul,2
	mov	%i1,%o0

	addcc	%o0,%i3,%o0
	addx	%g0,%o1,%o1

	call	edr,3
	mov	%i0,%o2

	st	%o1,[%i4]
	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dsab
dsab:
	save	%sp,-104,%sp
	srl	%i1,CBSH,%o1
	sll	%i1,BSH,%o0
	or	%i2,%o0,%o0

	call	edr,3
	mov	%i0,%o2

	st	%o1,[%i3]
	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dmar
dmar:
	save	%sp,-104,%sp
	mov	%i1,%o1
	call	.umul,2
	mov	%i0,%o0

	addcc	%o0,%i2,%o0
	addx	%g0,%o1,%o1

	call	edr,3
	mov	%i3,%o2

	ret
	restore	%g0,%o0,%o0

	.proc	14
	.global	dqr
dqr:
	mov %o7,%g5 !save %o7
	call .udr,2
	mov %o2,%g6 !save %o2

	st %o1,[%g6]
	mov %g5,%o7

	retl
	nop
	.seg	"data"