1*29613Ssam /* Aldfd.c 1.1 86/07/20 */ 2*29613Ssam 3*29613Ssam #include "../tahoealign/align.h" 4*29613Ssam ldfd(infop) process_info *infop; 5*29613Ssam /* 6*29613Ssam /* Load into accumulator float operand converted to double. 7*29613Ssam /* 8*29613Ssam /***************************************************************/ 9*29613Ssam { 10*29613Ssam register struct oprnd *oprnd_pnt; 11*29613Ssam 12*29613Ssam oprnd_pnt = operand(infop,0); 13*29613Ssam if ( reserved( oprnd_pnt->data ) ) 14*29613Ssam exception(infop, ILL_OPRND); 15*29613Ssam acc_high = oprnd_pnt->data ; 16*29613Ssam acc_low = 0; 17*29613Ssam psl |= PSL_DBL; 18*29613Ssam infop->acc_dbl = 1; 19*29613Ssam } 20