/* Knegf.s 1.3 86/01/05 */
#include "../tahoemath/fp.h"
#include "../tahoemath/Kfp.h"
#include "../tahoe/SYS.h"
andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */
movl 4(fp),r0 /* fetch operand. */
andl2 $(0!SIGNBIT),r0 /* turn it off. */
seton: orl2 $SIGNBIT,r0 /* turn it on. */