1/* Knegf.s 1.3 86/01/05 */ 2 3#include "../tahoemath/fp.h" 4#include "../tahoemath/Kfp.h" 5#include "../tahoe/SYS.h" 6 7 .text 8ENTRY(Knegf, 0) 9 clrl r1 10 andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ 11 beql retzero 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 18retzero: 19 clrl r0 20 ret 21