1 /*- 2 * Copyright (c) 1986 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Computer Consoles Inc. 7 * 8 * %sccs.include.redist.c% 9 * 10 * @(#)Amulf.c 7.1 (Berkeley) 12/06/90 11 */ 12 13 #include "align.h" mulf(infop)14mulf(infop) process_info *infop; 15 /* 16 /* Multiply operand by accumulator to accumulator (float). 17 /* 18 /*******************************************************************/ 19 { 20 register float *operand_pnt; 21 register float *acc_pnt; 22 23 operand_pnt = (float *)&operand(infop,0)->data; 24 acc_pnt = (float *) &acc_high; 25 *acc_pnt = *acc_pnt * *operand_pnt; 26 } 27