constants+

操作系统SunOS 4.1.3版本的源码

/*	@(#)constants+ 1.1 92/07/30 Copyright Sun Microsystems, Inc.  1988,1989 */
/*		FPA+ Constants Data Base
 *	contains constant name, offset, and hex value
 * -used by make file to generate table with name and address
 * -used by loader(s?) to download values to addresses
 *
 *	the address of a value is the specified offset added to:
 *	  s.p. constants:    0x400	"s...."
 *	  s.p. coeficients:  0x500	"c_s...."
 *	  d.p. constants:    0x600	"d...."
 *	  d.p. coeficients:  0x700	"c_d...."
 */
/*	Constants for common user usage */
/*	0	(zero) */
szero	0	00000000
dzero	0	0000000000000000
/*	1.401298464324817071E-45   2**-150   (minimum subnormal) */
sminsub	1	00000001
/*	4.940656458412465442E-324  2**-1075  (minimum subnormal) */
dminsub	1	0000000000000001
/*	1.175494210692441075E-38   2**-127 - 2**-150    (maximum subnormal) */
smaxsub	2	007FFFFF
/*	2.225073858507200889E-308  2**-1023 - 2**-1075  (maximum subnormal) */
dmaxsub	2	000FFFFFFFFFFFFF
/*	1.175494350822287508E-38   2**-127   (minimum normal) */
sminnorm	3	00800000
/*	2.225073858507201383E-308  2**-1023  (minimum normal) */
dminnorm	3	0010000000000000
/*	3.402823466385288598E+38   2**127 - 2**103    (maximum normal) */
smaxnorm	4	7F7FFFFF
/*	1.797693134862315708E+308   2**1023 - 2**970  (maximum normal) */
dmaxnorm	4	7FEFFFFFFFFFFFFF
/*	infinity */
sinf	5	7F800000
dinf	5	7FF0000000000000
/*	signalling NaN (Not a Number) */
ssnan	6	7FBFFFFF
dsnan	6	7FF7FFFFFFFFFFFF
/*	quiet NaN */
sqnan	7	7FFFFFFF
dqnan	7	7FFFFFFFFFFFFFFF
/*	2.718281745910644531   e */
se	8	402DF854
/*	2.718281828459045091   e */
de	8	4005BF0A8B145769
/*	6.283185482025146484   2*pi */
s2pi	9	40C90FDB
/*	6.283185307179586232   2*pi */
d2pi	9	401921FB54442D18
/*	3.141592741012573242   pi */
spi	A	40490FDB
/*	3.141592653589793116   pi */
dpi	A	400921FB54442D18
/*	1.570796370506286621   pi/2 */
spio2	B	3FC90FDB
/*	1.570796326794896558   pi/2 */
dpio2	B	3FF921FB54442D18
/*	1.414213538169860840   sqrt(2) */
ssqrt2	C	3FB504F3
/*	1.414213562373095145   sqrt(2) */
dsqrt2	C	3FF6A09E667F3BCD
/*	7.071067690849304199E-1   sqrt(1/2) */
ssqrthalf	D	3F3504F3
/*	7.071067811865475727E-1   sqrt(1/2) */
dsqrthalf	D	3FE6A09E667F3BCD
/*	1	one */
sone	E	3F800000
done	E	3FF0000000000000
/*	.5	one half */
shalf	F	3F000000
dhalf	F	3FE0000000000000
/*	-1	negative one */
smone	10	BF800000
dmone	10	BFF0000000000000
/*	2	two */
stwo	11	40000000
dtwo	11	4000000000000000
/*	3	three */
sthree	B1	40400000
dthree	B1	4008000000000000
/*	4	four */
sfour	12	40800000
dfour	12	4010000000000000
/*	8	eight */
seight	13	41000000
deight	13	4020000000000000
/*	.5	one half */
s1o2	14	3f000000
d1o2	14	3fe0000000000000
/*	.25	one quarter */
s1o4	15	3e800000
d1o4	15	3fd0000000000000
/*	.125	one eighth */
s1o8	16	3e000000
d1o8	16	3fc0000000000000
/*	10	ten */
s1e1	17	41200000
d1e1	17	4024000000000000
/*	100	one hundred */
s1e2	18	42c80000
d1e2	18	4059000000000000
/*	1000	one thousand */
s1e3	19	447a0000
d1e3	19	408F400000000000
/*	10000	ten thousand */
s1e4	20	461C4000
d1e4	20	40C3880000000000
/*	100000	one hundred thousand */
s1e5	21	47C35000
d1e5	21	40F86A0000000000
/*	1000000	one million */
s1e6	22	49742400
d1e6	22	412E848000000000
/*	10000000	ten million */
s1e7	23	4B189680
d1e7	23	416312D000000000
/*	100000000	one hundred million */
s1e8	24	4CBEBC20
d1e8	24	4197D78400000000
/*	1000000000	one billion */
s1e9	25	4E6E6B28
d1e9	25	41CDCD6500000000
/*	10000000000	ten billion */
s1e10	26	501502F9
d1e10	26	4202A05F20000000
/*	-1.570796370506286621   -pi/2 */
smpio2	27	BFC90FDB
/*	-1.570796326794896558   -pi/2 */
dmpio2	27	BFF921FB54442D18
/*	1.442695021629333496    log2(e) */
slog2e	28	3FB8AA3B
/*	1.442695040888963387    log2(e) */
dlog2e	28	3FF71547652B82FE
/*	3.321928024291992188    log2(10) */
slog2ten	29	40549A78
/*	3.321928094887362182    log2(10) */
dlog2ten	29	400A934F0979A371
/*	6.931471824645996094E-1   loge(2) */
slogetwo	2A	3F317218
/*	6.931471805599452862E-1   loge(2) */
dlogetwo	2A	3FE62E42FEFA39EF
/*	2.302585124969482422   loge(10) */
slogeten	2B	40135D8E
/*	2.302585092994045901   loge(10) */
dlogeten	2B	40026BB1BBB55516
/*	3.010300099849700928E-1   log10(2) */
slog10two	2C	3E9A209B
/*	3.010299956639811980E-1   log10(2) */
dlog10two	2C	3FD34413509F79FF
/*	4.342944920063018799E-1   log10(e) */
slog10e	2D	3EDE5BD9
/*	4.342944819032518167E-1   log10(e) */
dlog10e	2D	3FDBCB7B1526E50E
/*	-.5	-1/2 */
smhalf	2E	BF000000
dmhalf	2E	BFE0000000000000
/*	1.000000027256422400E+16   10**16 */
s1e16	2F	5A0E1BCA
/*	1.000000000000000000E+16   10**16 */
d1e16	2F	4341C37937E08000
/*	1.000000033181353514E+32   10**32 */
s1e32	30	749DC5AE
/*	1.000000000000000054E+32   10**32 */
d1e32	30	4693B8B5B5056E17
/*	infinity			10**64 */
s1e64	31	7f800000
/*	1.000000000000000021E+64	10**64 */
d1e64	31	4D384F03E93FF9F5
/*	infinity			10**128 */
s1e128	32	7f800000
/*	1.000000000000000075E+128	10**128 */
d1e128	32	5A827748F9301D32
/*	infinity			10**256 */
s1e256	33	7f800000
/*	1.000000000000000030E+256	10**256 */
d1e256	33	75154FDD7F73BF3C
/*	4.375000000000000000E-1		7/16 */
s7o16	34	3ee00000
d7016	34	3fdc000000000000
/*	6.875000000000000000E-1		11/16 */
s11o16	35	3f300000
d11016	35	3fe6000000000000
/*	1.187500000000000000		19/16 */
s19o16	36	3f980000
d19o16	36	3ff3000000000000
/*	2.437500000000000000		39/16 */
s39o16	37	401C0000
d39o16	37	4003800000000000
s1o6	38	3E2AAAAB
d1o6	38	3FC5555555555555
d13o16	39	3fea000000000000
d3o16	3A	3fc8000000000000
d3o8	3B	3FD8000000000000
d5o8	3C	3fe4000000000000
stwom14	3D	38800000
stwom5	3E	3D000000
stwom6	3F	3C800000
stwom7	40	3C000000
stwom9	41	3B000000
stwo46	42	
stwonehalf	43	40200000
sonehalf	44	3FC00000
donehalf	44	3FF8000000000000
smzero		45	80000000
dmzero		45	8000000000000000
/*	Constants for transcendentals */
/*  following location saved for checksum */
c_dchecksum	FF	0000000000000000
/*	Holds the correct value of the mode register except in FAST mode (used in e**x) */
c_dmode_fast	F4	0000000355555555
/*	Holds the current value of the mode (bits 0 - 3) register */
c_dmode	F3	FFFFFFF055555555
/*	Holds the correct value of the mode register (for transcendentals) */
c_dmode_cor	F2	0000000255555555
/*	Constants revision no.  (0000XYVN00mmddyy, release X.Y, Nth cut of V version) */
c_dconst_rev	F1	000030A000071789
/*	Microcode revision no. */
c_ducode_rev	F0	000030A000071789
/*  Scratch-Pad Area */
c_dSCRATCH_0	D0	0000000000000000
c_dSCRATCH_1	D1	0000000000000000
c_dSCRATCH_2	D2	0000000000000000
c_dSCRATCH_3	D3	0000000000000000
c_dSCRATCH_4	D4	0000000000000000
c_dSCRATCH_5	D5	0000000000000000
c_dSCRATCH_6	D6	0000000000000000
c_dSCRATCH_7	D7	0000000000000000
c_dSCRATCH_8	D8	0000000000000000
c_dSCRATCH_9	D9	0000000000000000
c_dSCRATCH_10	DA	0000000000000000
c_dSCRATCH_11	DB	0000000000000000
c_dSCRATCH_12	DC	0000000000000000
c_dSCRATCH_13	DD	0000000000000000
c_dSCRATCH_14	DE	0000000000000000
c_dSCRATCH_15	DF	0000000000000000
c_dSCRATCH_31	EF	0000000000000000
/*	All values below here do not change after download; they are */
/*	checksum'ed */
/*	Status */
c_sinexact	FF	00000300
c_szerostat	FE	00000000
c_sexact	FD	00000200
c_smaxmode	FC	0000000F
c_dtestsolution1	FD	BCB0000000000000
c_dtestsolution2	FC	BCC0000000000000
/*	Coeficients */
c_d11_16	1	3FE6000000000000
c_d13_16	2	3FEA000000000000
c_d19_16	3	3FF3000000000000
c_d10e20	4	3BC79CA10C924223
c_d39_16	5	4003800000000000
c_d3_16		6	3FC8000000000000
c_d3_8		7	3FD8000000000000
c_d5_8		8	3FE4000000000000
c_d7_16		9	3FDC000000000000
c_dSexp_0	A	3FF0000000000000
c_dSexp_1	B	3FF059B0D3158574
c_dSexp_2	C	3FF0B5586CF9890F
c_dSexp_3	D	3FF11301D0125B51
c_dSexp_4	E	3FF172B83C7D517B
c_dSexp_5	F	3FF1D4873168B9AA
c_dSexp_6	10	3FF2387A6E756238
c_dSexp_7	11	3FF29E9DF51FDEE1
c_dSexp_8	12	3FF306FE0A31B715
c_dSexp_9	13	3FF371A7373AA9CB
c_dSexp_10	14	3FF3DEA64C123422
c_dSexp_11	15	3FF44E086061892D
c_dSexp_12	16	3FF4BFDAD5362A27
c_dSexp_13	17	3FF5342B569D4F82
c_dSexp_14	18	3FF5AB07DD485429
c_dSexp_15	19	3FF6247EB03A5584
c_dSexp_16	1A	3FF6A09E667F3BCC
c_dSexp_17	1B	3FF71F75E8EC5F74
c_dSexp_18	1C	3FF7A11473EB0187
c_dSexp_19	1D	3FF82589994CCE13
c_dSexp_20	1E	3FF8ACE5422AA0DC
c_dSexp_21	1F	3FF93737B0CDC5E5
c_dSexp_22	20	3FF9C49182A3F090
c_dSexp_23	21	3FFA5503B23E255C
c_dSexp_24	22	3FFAE89F995AD3AE
c_dSexp_25	23	3FFB7F76F2FB5E47
c_dSexp_26	24	3FFC199BDD85529C
c_dSexp_27	25	3FFCB720DCEF9069
c_dSexp_28	26	3FFD5818DCFBA487
c_dSexp_29	27	3FFDFC97337B9B5F
c_dSexp_30	28	3FFEA4AFA2A490DA
c_dSexp_31	29	3FFF50765B6E4540
c_datanbig	2B	4415AF1D78B58C40
c_datanhi_0	2C	3FDDAC670561BB4F
c_datanhi_1	2D	3FE921FB54442D18
c_datanhi_2	2E	3FEF730BD281F69B
c_datanhi_3	2F	3FF921FB54442D18
c_dataninf_0	30	3FD555555555550D
c_dataninf_1	31	BFC999999998EBC4
c_dataninf_2	32	3FC24924920083FF
c_dataninf_3	33	BFBC71C6FE231671
c_dataninf_4	34	3FB745CDC54C206E
c_dataninf_5	35	BFB3B0F2AF749A6D