|
/*===========================================================================*/
_iq my_iqmpy(long a, _iq b)
{long a0, a1, b0, b1, c0, c1, c2, c3;
a1= a >> 16;
a0= a & 0x0000ffffL;
if(a < 0) {a0= -a0; a1++;}
b1= (b >> 16);
b0= b & 0x0000ffffL;
if(b < 0) {b0= -b0; b1++;}
c0= (a0 * b0) >> 16;
c1= (a1 * b0);
c2= (a0 * b1);
c3= (a1 * b1)<< 16;
c3+= c2 + c1 + c0;
return c3;
}
E-mail: info@telesys.ru