//
//      $Id$
//
//	sgetem.sa 3.1 12/10/90
//
//	The entry point sGETEXP returns the exponent portion 
//	of the input argument.  The exponent bias is removed
//	and the exponent value is returned as an extended 
//	precision number in fp0.  sGETEXPD handles denormalized
//	numbers.
//
//	The entry point sGETMAN extracts the mantissa of the 
//	input argument.  The mantissa is converted to an 
//	extended precision number and returned in fp0.  The
//	range of the result is [1.0 - 2.0).
//
//
//	Input:  Double-extended number X in the ETEMP space in
//		the floating-point save stack.
//
//	Output:	The functions return exp(X) or man(X) in fp0.
//
//	Modified: fp0.
//
//
//		Copyright (C) Motorola, Inc. 1990
//			All Rights Reserved
//
//	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA 
//	The copyright notice above does not evidence any  
//	actual or intended publication of such source code.

//SGETEM	idnt	2,1 | Motorola 040 Floating Point Software Package

	|section 8

#include "fpsp.defs"

	|xref	nrm_set

//
// This entry point is used by the unimplemented instruction exception
// handler.  It points a0 to the input operand.
//
//
//
//	SGETEXP
//

	.global	sgetexp
sgetexp:
	movew	LOCAL_EX(%a0),%d0	//get the exponent
	bclrl	#15,%d0		//clear the sign bit
	subw	#0x3fff,%d0	//subtract off the bias
	fmovew  %d0,%fp0		//move the exp to fp0
	rts

	.global	sgetexpd
sgetexpd:
	bclrb	#sign_bit,LOCAL_EX(%a0)
	bsr	nrm_set		//normalize (exp will go negative)
	movew	LOCAL_EX(%a0),%d0	//load resulting exponent into d0
	subw	#0x3fff,%d0	//subtract off the bias
	fmovew	%d0,%fp0		//move the exp to fp0
	rts
//
//
// This entry point is used by the unimplemented instruction exception
// handler.  It points a0 to the input operand.
//
//
//
//	SGETMAN
//
//
// For normalized numbers, leave the mantissa alone, simply load
// with an exponent of +/- $3fff.
//
	.global	sgetman
sgetman:
	movel	USER_FPCR(%a6),%d0
	andil	#0xffffff00,%d0	//clear rounding precision and mode
	fmovel	%d0,%fpcr		//this fpcr setting is used by the 882
	movew	LOCAL_EX(%a0),%d0	//get the exp (really just want sign bit)
	orw	#0x7fff,%d0	//clear old exp
	bclrl	#14,%d0	 	//make it the new exp +-3fff
	movew	%d0,LOCAL_EX(%a0)	//move the sign & exp back to fsave stack
	fmovex	(%a0),%fp0	//put new value back in fp0
	rts

//
// For denormalized numbers, shift the mantissa until the j-bit = 1,
// then load the exponent with +/1 $3fff.
//
	.global	sgetmand
sgetmand:
	movel	LOCAL_HI(%a0),%d0	//load ms mant in d0
	movel	LOCAL_LO(%a0),%d1	//load ls mant in d1
	bsr	shft		//shift mantissa bits till msbit is set
	movel	%d0,LOCAL_HI(%a0)	//put ms mant back on stack
	movel	%d1,LOCAL_LO(%a0)	//put ls mant back on stack
	bras	sgetman

//
//	SHFT
//
//	Shifts the mantissa bits until msbit is set.
//	input:
//		ms mantissa part in d0
//		ls mantissa part in d1
//	output:
//		shifted bits in d0 and d1
shft:
	tstl	%d0		//if any bits set in ms mant
	bnes	upper		//then branch
//				;else no bits set in ms mant
	tstl	%d1		//test if any bits set in ls mant
	bnes	cont		//if set then continue
	bras	shft_end	//else return
cont:
	movel	%d3,-(%a7)	//save d3
	exg	%d0,%d1		//shift ls mant to ms mant
	bfffo	%d0{#0:#32},%d3	//find first 1 in ls mant to d0
	lsll	%d3,%d0		//shift first 1 to integer bit in ms mant
	movel	(%a7)+,%d3	//restore d3
	bras	shft_end
upper:

	moveml	%d3/%d5/%d6,-(%a7)	//save registers
	bfffo	%d0{#0:#32},%d3	//find first 1 in ls mant to d0
	lsll	%d3,%d0		//shift ms mant until j-bit is set
	movel	%d1,%d6		//save ls mant in d6
	lsll	%d3,%d1		//shift ls mant by count
	movel	#32,%d5
	subl	%d3,%d5		//sub 32 from shift for ls mant
	lsrl	%d5,%d6		//shift off all bits but those that will
//				;be shifted into ms mant
	orl	%d6,%d0		//shift the ls mant bits into the ms mant
	moveml	(%a7)+,%d3/%d5/%d6	//restore registers
shft_end:
	rts

	|end