1/* Knegf.s 1.2 86/01/03 */ 2 3#include "fp.h" 4#include "Kfp.h" 5#include "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