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