home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BORLAND / JNFB88.ARC / CFLOAT.ARC / DOT3.C < prev    next >
Encoding:
Text File  |  1987-06-23  |  238 b   |  17 lines
  1. /* Listing 6: */
  2.  
  3. double dot(int n, double *x, double *y)
  4. {
  5. asm  fldz
  6.      _SI = x;
  7.      _DI = y;
  8.      while (n--)
  9.      {
  10. asm  fld  qword ptr [si]
  11. asm  add  si,8
  12. asm  fmul qword ptr [di]
  13. asm  add  di,8
  14. asm  fadd
  15.      }
  16. }
  17.