/* Listing 3: */

double sum_of_prod(double a, double b, double c, double d)
/* returns  a*b + c*d  */
{
asm   fld    qword ptr a
asm   fmul   qword ptr b
asm   fld    qword ptr c
asm   fmul   qword ptr d
asm   fadd
}
