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