[unix-history] / usr / src / sys / tahoe / math / Knegd.s

/*	Knegd.s	1.4	90/12/04	*/

#include "../math/fp.h"
#include "../math/Kfp.h"
#include "../tahoe/SYS.h"

	.text
ENTRY(Knegd, 0)
	andl3	$EXPMASK,4(fp),r0	/* check for reserved operand,zero. */
	beql	retzero
	movl	4(fp),r0		/* fetch operand. */
	movl	8(fp),r1
	bbc	$31,r0,seton
	andl2	$(0!SIGNBIT),r0		/* turn it off. */
	ret
seton:	orl2	$SIGNBIT,r0		/* turn it on. */
	ret
retzero:
	clrl	r0
	clrl	r1
	ret
Commit	Line	Data
a6730a00	1	/* Knegd.s 1.4 90/12/04 */
6bcd055f	2
a6730a00 KB	3	#include "../math/fp.h"
a6730a00 KB	4	#include "../math/Kfp.h"
9d1834ba	5	#include "../tahoe/SYS.h"
2b252132	6
6bcd055f	7	.text
2b252132	8	ENTRY(Knegd, 0)
6bcd055f SL	9	andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */
	10	beql retzero
	11	movl 4(fp),r0 /* fetch operand. */
	12	movl 8(fp),r1
	13	bbc $31,r0,seton
	14	andl2 $(0!SIGNBIT),r0 /* turn it off. */
	15	ret
	16	seton: orl2 $SIGNBIT,r0 /* turn it on. */
	17	ret
	18	retzero:
	19	clrl r0
	20	clrl r1
	21	ret