1*29612Ssam /* Aldf.c 1.1 86/07/20 */ 2*29612Ssam 3*29612Ssam #include "../tahoealign/align.h" 4*29612Ssam ldf(infop) process_info *infop; 5*29612Ssam /* 6*29612Ssam /* Load a float operand into accumulator. 7*29612Ssam /* 8*29612Ssam /*************************************************/ 9*29612Ssam { 10*29612Ssam 11*29612Ssam register struct oprnd *oprnd_pnt; 12*29612Ssam 13*29612Ssam oprnd_pnt = operand(infop,0); 14*29612Ssam if ( reserved( oprnd_pnt->data ) ) 15*29612Ssam exception(infop, ILL_OPRND); 16*29612Ssam if ( (oprnd_pnt->data & 0xff800000) == 0 ) acc_high = 0; 17*29612Ssam else acc_high = oprnd_pnt->data ; 18*29612Ssam psl &= ~PSL_DBL; 19*29612Ssam infop->acc_dbl = 0; 20*29612Ssam } 21