mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-22 16:04:18 +00:00
65 lines
1.3 KiB
C
65 lines
1.3 KiB
C
/*
|
||
Copyright 1982
|
||
Alcyon Corporation
|
||
8716 Production Ave.
|
||
San Diego, Ca. 92121
|
||
*/
|
||
|
||
/* char *version "@(#)ftol.c 1.2 10/19/83"; */
|
||
|
||
/*
|
||
* Floating Point Float to Long Routine :
|
||
* Front End to IEEE Floating Point Package.
|
||
*
|
||
* long
|
||
* fpftol(fparg)
|
||
* double fparg;
|
||
*
|
||
* Return : Fixed Point representation of Floating Point Number
|
||
*/
|
||
|
||
#define BIAS 127L
|
||
|
||
long
|
||
fpftol(f)
|
||
long f;
|
||
{
|
||
register long l;
|
||
register int exp, sign;
|
||
|
||
l = (f & 0x7f800000) >> 23;
|
||
exp = l - BIAS;
|
||
if (f == 0L || exp < 0) /* underflow or 0 */
|
||
return(0L);
|
||
sign = (f < 0L);
|
||
if (exp > 31) /* overflow */
|
||
return( (sign) ? 0x80000000 : 0x7fffffff);
|
||
exp =- 23;
|
||
l = (f & 0x7fffff) | 0x800000; /* 1.F */
|
||
for( ; exp < 0 ; exp++)
|
||
l =>> 1;
|
||
for( ; exp > 0; exp--)
|
||
l =<< 1;
|
||
if (sign)
|
||
l = -l;
|
||
return(l);
|
||
}
|
||
|
||
for( ; exp > 0; exp--)
|
||
l =<< 1;
|
||
if (sign)
|
||
l = -l;
|
||
return(l);
|
||
}
|
||
|
||
for( ; exp > 0; exp--)
|
||
l =<< 1;
|
||
if (sign)
|
||
l = -l;
|
||
return(l);
|
||
}
|
||
|
||
for( ; exp > 0; exp--)
|
||
l =<< 1;
|
||
if (sign)
|
||
l = -l;
|
||
return(l);
|
||
}
|
||
|
||
|