1/* 2 * Copyright (c) 1986 Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.redist.c% 9 */ 10 11#if defined(SYSLIBC_SCCS) && !defined(lint) 12 .asciz "@(#)negd.s 1.3 (Berkeley) 06/01/90" 13#endif /* SYSLIBC_SCCS and not lint */ 14 15#include <tahoemath/fp.h> 16#include "DEFS.h" 17 18XENTRY(negd, 0) 19 andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ 20 beql isreserved 21 movl 4(fp),r0 /* fetch operand. */ 22 movl 8(fp),r1 23 bbc $31,r0,seton 24 andl2 $(0!SIGNBIT),r0 /* turn it off. */ 25 ret 26seton: orl2 $SIGNBIT,r0 /* turn it on. */ 27 ret 28isreserved: 29 bbc $31,4(fp),retzero 30 callf $4,fpresop 31 ret 32retzero: 33 clrl r0 34 clrl r1 35 ret 36