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