1#ifdef LIBC_SCCS 2 .asciz "@(#)negf.s 1.1 (Berkeley/CCI) 07/02/86" 3#endif LIBC_SCCS 4 5#include <tahoemath/fp.h> 6#include "DEFS.h" 7 8XENTRY(negf, 0) 9 clrl r1 10 andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ 11 beql isreserved 12 movl 4(fp),r0 /* fetch operand. */ 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,sfpresop 21 ret 22retzero: 23 clrl r0 24 ret 25