FPU_Dot proc UseAll buf,obuf,count
    mov esi,buf
    mov edi,obuf
    mov ecx,count

    @@:
    fld real4 ptr[esi]
    fmul ST,ST
    fld real4 ptr[esi+4]
    fmul ST,ST
    fld real4 ptr[esi+8]
    fmul ST,ST
    add esi,16
    fadd
    fadd
    fstp real4 ptr[edi]
    add edi,4
    dec ecx
    jnz @B


    ret
FPU_Dot endp