mov eax,16
     mov my16,eax
//  Y1:= round(16.0 * v1.y);
   finit
    fild my16
     fld theY1
    fmul
   fistp Y1
    wait
//  Y2:= round(16.0 * v2.y);
     fld theY2
    fmul
   fistp Y2
    wait
//  Y3:= round(16.0 * v3.y);
     fld theY3
    fmul
   fistp Y3
    wait
//  X1:= round(16.0 * v1.x);
     fld theX1
    fmul
   fistp X1
    wait
//  X2:= round(16.0 * v2.x);
     fld theX2
    fmul
   fistp X2
    wait
//  X3:= round(16.0 * v3.x);
     fld theX3
    fmul
   fistp X3
    wait
//   Z1:= round(16.0 * v1.z);
     fld theZ1
    fmul
   fistp Z1
    wait
//Z2:= round(16.0 * v2.z);
     fld theZ2
    fmul
   fistp Z2
    wait
//   Z3:= round(16.0 * v3.z);
     fld theZ3
    fmul
   fistp Z3
    wait