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