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 * @(#)Aldf.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229612Ssam 1345699Sbostic #include "align.h" ldf(infop)1429612Ssamldf(infop) process_info *infop; 1529612Ssam /* 1629612Ssam /* Load a float operand into accumulator. 1729612Ssam /* 1829612Ssam /*************************************************/ 1929612Ssam { 2029612Ssam 2129612Ssam register struct oprnd *oprnd_pnt; 2229612Ssam 2329612Ssam oprnd_pnt = operand(infop,0); 2429612Ssam if ( reserved( oprnd_pnt->data ) ) 2529612Ssam exception(infop, ILL_OPRND); 2629612Ssam if ( (oprnd_pnt->data & 0xff800000) == 0 ) acc_high = 0; 2729612Ssam else acc_high = oprnd_pnt->data ; 2829612Ssam psl &= ~PSL_DBL; 2929612Ssam infop->acc_dbl = 0; 3029612Ssam } 31