/* Asubf.c 1.1 86/07/20 */ #include "../tahoealign/align.h" subf(infop) process_info *infop; /* /* Subtract operand from accumulator to accumulator (float). /* /*******************************************************************/ { register float *operand_pnt; register float *acc_pnt; operand_pnt = (float *)&operand(infop,0)->data; acc_pnt = (float *) &acc_high; *acc_pnt = *acc_pnt - *operand_pnt; }