1 /* Asubd.c 1.1 86/07/20 */ 2 3 #include "../tahoealign/align.h" 4 subd(infop) process_info *infop; 5 /* 6 /* Subtract operand from accumulator to accumulator (double). 7 /* 8 /*******************************************************************/ 9 { 10 register double *operand_pnt; 11 register double *acc_pnt; 12 13 operand_pnt = (double *)&operand(infop,0)->data; 14 acc_pnt = (double *) &acc_high; 15 *acc_pnt = *acc_pnt - *operand_pnt; 16 } 17