1*45760Sbostic /*- 2*45760Sbostic * Copyright (c) 1986 The Regents of the University of California. 3*45760Sbostic * All rights reserved. 4*45760Sbostic * 5*45760Sbostic * This code is derived from software contributed to Berkeley by 6*45760Sbostic * Computer Consoles Inc. 7*45760Sbostic * 8*45760Sbostic * %sccs.include.redist.c% 9*45760Sbostic * 10*45760Sbostic * @(#)Alnf.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229614Ssam 1345699Sbostic #include "align.h" lnf(infop)1429614Ssamlnf(infop) process_info *infop; 1529614Ssam /* 1629614Ssam /* Load a negated float operand into accumulator. 1729614Ssam /* 1829614Ssam /******************************************************/ 1929614Ssam { 2029614Ssam 2129614Ssam register struct oprnd *op_pnt; 2229614Ssam 2329614Ssam op_pnt = operand(infop,0); 2429614Ssam if ( reserved( op_pnt->data ) ) 2529614Ssam exception(infop, ILL_OPRND); 2629614Ssam if ( op_pnt->data == 0 ) acc_high = 0; 2729614Ssam else acc_high = 0x80000000 ^ op_pnt->data ; 2829614Ssam psl &= ~PSL_DBL; 2929614Ssam infop->acc_dbl = 0; 3029614Ssam } 31