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