[BACK]Return to asm5-2-27.s CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / engine-27
File: [local] / OpenXM_contrib2 / asir2000 / engine-27 / Attic / asm5-2-27.s (download)

Revision 1.1.1.1 (vendor branch), Fri Dec 3 07:39:08 1999 UTC (24 years, 6 months ago) by noro
Branch: NORO
CVS Tags: maekawa-ipv6, STABLE_1_1_3, RELEASE_20000124, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, DEB_REL_1_2_3-9, ASIR2000
Changes since 1.1: +0 -0 lines 

Imported asir2000 as OpenXM_contrib2/asir2000.

! $OpenXM: OpenXM_contrib2/asir2000/engine-27/asm5-2-27.s,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $
#include "base.h"

	.seg	"text"			! [internal]
	.proc	14
	.global	dm_27
dm_27:
	umul	%o0,%o1,%o0
	rd	%y,%o1
	sll	%o1,CBSH27,%o1
	srl	%o0,BSH27,%o3
	or	%o1,%o3,%o1
	sethi	%hi(BMASK27),%o3
	add	%o3,%lo(BMASK27),%o3
	and	%o0,%o3,%o0
	retl
	st	%o1,[%o2]

	.proc	14
	.global	dmb_27
dmb_27:
	umul	%o1,%o2,%o1 
	udivcc	%o1,%o0,%o2
	umul	%o0,%o2,%o0
	subcc	%o1,%o0,%o0
	retl
	st	%o2,[%o3]

	.proc	14
	.global	dma_27
dma_27:
	umul	%o0,%o1,%o0
	rd	%y,%o1
	addcc	%o0,%o2,%o0
	addx	%g0,%o1,%o1

	sll	%o1,CBSH27,%o1
	srl	%o0,BSH27,%o2
	or	%o1,%o2,%o1
	sethi	%hi(BMASK27),%o2
	add	%o2,%lo(BMASK27),%o2
	and	%o0,%o2,%o0
	retl
	st	%o1,[%o3]

	.proc	14
	.global	dmab_27
dmab_27:
	umul	%o1,%o2,%o1 
	rd	%y,%o2
	addcc	%o1,%o3,%o1
	addx	%g0,%o2,%o2
	wr	%o2,%g0,%y

	udivcc	%o1,%o0,%o2
	umul	%o0,%o2,%o0
	subcc	%o1,%o0,%o0
	retl
	st	%o2,[%o4]

	.proc	14
	.global	dsab_27
dsab_27:
	srl	%o1,CBSH27,%o4
	wr	%o4,%g0,%y
	sll	%o1,BSH27,%o1
	or	%o2,%o1,%o2

	udivcc	%o2,%o0,%o4
	umul	%o0,%o4,%o0
	subcc	%o2,%o0,%o0
	retl
	st	%o4,[%o3]

	.proc	14
	.global	dmar_27
dmar_27:
	umul	%o0,%o1,%o0 
	rd	%y,%o1
	addcc	%o0,%o2,%o0
	addx	%g0,%o1,%o1
	wr	%o1,%g0,%y
	udivcc	%o0,%o3,%o1
	umul	%o3,%o1,%o1
	retl
	subcc	%o0,%o1,%o0

	.proc	14
	.global	dqr_27
dqr_27:
	wr	%g0,%g0,%y
	udiv	%o0,%o1,%o3
	umul	%o1,%o3,%o1
	subcc	%o0,%o1,%o0

	retl
	st	%o3,[%o2]

	.seg	"data"