1*45761Sbostic/*- 2*45761Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*45761Sbostic * All rights reserved. 4*45761Sbostic * 5*45761Sbostic * This code is derived from software contributed to Berkeley by 6*45761Sbostic * Computer Consoles Inc. 7*45761Sbostic * 8*45761Sbostic * %sccs.include.redist.c% 9*45761Sbostic * 10*45761Sbostic * @(#)Knegf.s 7.1 (Berkeley) 12/06/90 11*45761Sbostic */ 1224132Ssam 1345701Sbostic#include "../math/fp.h" 1445701Sbostic#include "../math/Kfp.h" 1525693Ssam#include "../tahoe/SYS.h" 1625664Ssam 1724132Ssam .text 1825664SsamENTRY(Knegf, 0) 1924132Ssam clrl r1 2024132Ssam andl3 $EXPMASK,4(fp),r0 /* check for reserved operand,zero. */ 2124132Ssam beql retzero 2224132Ssam movl 4(fp),r0 /* fetch operand. */ 2324132Ssam bbc $31,r0,seton 2424132Ssam andl2 $(0!SIGNBIT),r0 /* turn it off. */ 2524132Ssam ret 2624132Ssamseton: orl2 $SIGNBIT,r0 /* turn it on. */ 2724132Ssam ret 2824132Ssamretzero: 2924132Ssam clrl r0 3024132Ssam ret 31