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