config/m68k/lb1sf68.S

235 | number, where s=sign, e=exponent, f=fraction. We will call a floating
549 	moveq	IMM (1), d2	/* sign of result stored in d2 (=1 or =-1) */
554 	negb	d2		/* change sign because divisor <0  */
556 	negl	d2		/* change sign because divisor <0  */
736 |  unsigned int sign      : 1;  /* sign bit */
754 	bchg	IMM (31),sp@(12) | change sign of second operand
775 	movel	d0,d7		| get d0's sign bit in d7 '
776 	addl	d1,d1		| check and clear sign bit of a, and gain one
780 	movel	d2,d6		| save sign in d6
781 	addl	d3,d3		| get rid of sign bit and gain one bit of
785 	andl	IMM (0x80000000),d7 | isolate a's sign bit '
786         swap	d6		| and also b's sign bit '
789 	orw	d6,d7		| and combine them into d7, so that a's sign '
1104 	movew	IMM (0),d7	| get a's sign in d7 '
1106 	movew	IMM (0),d6	| and b's sign in d6 '
1128 	andl	IMM (0x80000000),d7 | d7 now has the sign
1211 	exg	d7,a0		| put sign back in a0
1228 	bchg	IMM (31),d7	| change sign bit in d7
1237 	andl	IMM (0x80000000),d7 | isolate sign bit
1291 | Put back the exponent and sign (we don't have overflow). '
1370 	andl	IMM (0x80000000),d7	| Use the sign of a
1407 	orl	d7,d0		| put sign bit back
1441 	movel	d0,d7		| save sign bits
1443 	bclr	IMM (31),d0	| clear sign bits
1461 	eorl	d7,d6		| to check sign bits
1463 	andl	IMM (0x80000000),d7 | get (common) sign bit
1474 	andl	IMM (0x80000000),d7 | get a's sign bit '
1476 	beq	Ld$infty	| if a is INFINITY return with this sign
1478 	bra	Ld$infty	| the opposite sign
1498 	movel	d0,d7			| d7 will hold the sign of the product
1501 	movel	d7,a0			| save sign bit into a0
1505 	bclr	IMM (31),d0		| get rid of a's sign bit '
1510 	bclr	IMM (31),d2		| get rid of b's sign bit '
1521 | Here we have both numbers finite and nonzero (and with no sign bit).
1709 	movel	a0,d7		| get sign bit back into d7
1734 	movel	a0,d7		| get sign bit back into d7
1741 	movel	a0,d7		| get sign bit back into d7
1752 	exg	d3,d1		| and a (with sign bit cleared) into d2-d3
1753 	movel	a0,d0		| set result sign
1762 	movel	a0,d0		| set result sign
1765 	bclr	IMM (31),d2	| clear sign bit
1831 	movel	d0,d7		| d7 will hold the sign of the result
1834 	movel	d7,a0		| save sign into a0
1838 	bclr	IMM (31),d0	| get rid of a's sign bit '
1843 	bclr	IMM (31),d2	| get rid of b's sign bit '
1854 | Here we have both numbers finite and nonzero (and with no sign bit).
1897 | a0	holds the sign of the ratio
2030 	movel	a0,d7		| restore sign bit to d7
2069 | else return +/-INFINITY. Remember that a is in d0 with the sign bit
2071 	movel	a0,d7		| put a's sign bit back in d7 '
2129 | this point the sign of the result is in d7, the result in d0-d1, normalized
2192 	movel	a0,d7		| get back sign bit into d7
2227 | Put back the exponents and sign and return.
2241 	orl	d7,d0		| and sign also
2277 	beq	2f		| if zero (either sign) return +zero
2283 	movel	d0,d7		| else get sign and return INFINITY
2323 | the sign bit.
2647 |  unsigned int sign      : 1;  /* sign bit */
2665 	bchg	IMM (31),sp@(8)	| change sign of second operand
2683 	movel	d0,a0		| get d0's sign bit '
2684 	addl	d0,d0		| check and clear sign bit of a
2686 	movel	d1,a1		| save b's sign bit '
2687 	addl	d1,d1		| get rid of sign bit
2870 	eorl	d6,d7		| combine sign bits
2872 				| sign so we actually subtract the
2883 	movel	a0,d7		| and sign in d7
2954 | We are here if a > 0 and b < 0 (sign bits cleared).
2956 	movel	d6,d7		| put sign in d7
2963 	bchg	IMM (31),d7	| change sign bit in d7
2977 | Now d0-d1 is positive and the sign bit is in d7.
3063 	andl	IMM (0x80000000),d7	| Use the sign of a
3073 	andl	IMM (0x80000000),d7	| put sign in d7
3074 	bclr	IMM (31),d0		| clear sign
3079 	bclr	IMM (31),d7	| if zero be sure to clear sign
3092 	orl	d7,d0		| put sign bit
3108 | Note: when adding two floats of the same sign if either one is
3113 | NaN, but if it is finite we return INFINITY with the corresponding sign.
3122 	movel	d0,d2		| save sign bits
3123 	movel	d0,d7		| into d7 as well as we may need the sign
3126 	bclr	IMM (31),d0	| clear sign bits
3137 	eorl	d3,d2		| to check sign bits
3139 	andl	IMM (0x80000000),d7	| get (common) sign bit
3148 	andl	IMM (0x80000000),d7 | get a's sign bit '
3150 	beq	Lf$infty	| if a is INFINITY return with this sign
3152 	bra	Lf$infty	| the opposite sign
3170 	movel	d0,d7		| d7 will hold the sign of the product
3177 	bclr	IMM (31),d0		| get rid of a's sign bit '
3180 	bclr	IMM (31),d1		| get rid of b's sign bit '
3189 | Here we have both numbers finite and nonzero (and with no sign bit).
3310 | return INFINITY with the correct sign (which is in d7).
3323 1:	bclr	IMM (31),d1	| clear sign bit
3385 	movel	d0,d7			| d7 will hold the sign of the result
3392 	bclr	IMM (31),d0		| get rid of a's sign bit '
3395 	bclr	IMM (31),d1		| get rid of b's sign bit '
3404 | Here we have both numbers finite and nonzero (and with no sign bit).
3444 | d7	holds the sign of the ratio
3488 	movel	a0,d7		| get sign back
3523 	andl	IMM (0x7fffffff),d1	| clear sign bit and test b
3543 | else return +/-INFINITY. Remember that a is in d0 with the sign bit
3664 | Put back the exponents and sign and return.
3678 	orl	d7,d0		| and sign also
3715 	beq	2f		| if zero (either sign) return +zero
3719 	movel	d0,d7		| else get sign and return INFINITY