1#ifdef LIBC_SCCS 2 .asciz "@(#)negd.s 1.1 (Berkeley/CCI) 07/02/86" 3#endif LIBC_SCCS 4 5#include <tahoemath/fp.h> 6#include "DEFS.h" 7 8XENTRY(negd, 0) 9 andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ 10 beql isreserved 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 16seton: orl2 $SIGNBIT,r0 /* turn it on. */ 17 ret 18isreserved: 19 bbc $31,4(fp),retzero 20 callf $4,fpresop 21 ret 22retzero: 23 clrl r0 24 clrl r1 25 ret 26