Math Processor Unit Library

libmpu – library of arithmetic functions for integer, real, and complex numbers of increased digit capacity

16 Commits   0 Branches   2 Tags
author: kx <kx@radix-linux.su> 2024-12-20 16:11:07 +0300 committer: kx <kx@radix-linux.su> 2024-12-20 16:11:07 +0300 commit: 868b2b66b564b5c00e3a74d10be45db7151627ac parent: cce2ae8d3312493b7653358bb4af201d3271377b
Commit Summary:
Version 1.0.14
Diffstat:
2 files changed, 246 insertions, 0 deletions
diff --git a/mpu/math/service/emu01024/ei_service_008_emu32lsb.dfn b/mpu/math/service/emu01024/ei_service_008_emu32lsb.dfn
new file mode 100644
index 0000000..bf95cb9
--- /dev/null
+++ b/mpu/math/service/emu01024/ei_service_008_emu32lsb.dfn
@@ -0,0 +1,143 @@
+
+#ifndef   __REAL_EINTERNAL_SERVICE_008_32LSB
+#define   __REAL_EINTERNAL_SERVICE_008_32LSB
+
+#if BITS_PER_EMUSHORT == 32
+
+/* m_ln2hi_1024 = 6.93147180559945309417232121458176568075500134360255254120680009493\
+                    39362196969471560586332699641868754200148102057068573368552023575\
+                    81305570326707516350759619307275708283714347670956931041274785722\
+                    02217173745826127231314605639547253806231227152138123006699507423\
+                    0996036807957547296597291711E-1; */
+static EMUSHORT _ei_m_ln2hi_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x224ae8c5, 0x3e96ca16, 0x1169b825, 0x27573b29, 0xc1382144, 0xed2eae35, 0x4afa1b10, 0x559552fb, 0x6debac98, 0xe7b87620, 0x8baafa2b, 0x8a0d175b, 0x7298b62d, 0x40f34326, 0x03f2f6af, 0xc9e3b398, 0xd1cf79ab, 0xb17217f7, 0x00000000, 0xfffffffe, 0x3fffffff, 0x00000000
+};
+
+/* m_ln2lo_1024 = 4.2321134551976419489892113294161867182800780586953313432112583392837259\
+                    6016519183443029907491645570887924444509986703878209449764620979403991\
+                    9541983179547403346994767617312256144506789438934165385698854900138628\
+                    1455172463059345105684141405527306922572394544137450562539188255563646\
+                    16787612E-175; */
+static EMUSHORT _ei_m_ln2lo_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x79071d18, 0x2afd0c39, 0xc1819243, 0xaefd35e9, 0xeb2a4657, 0x96743d8c, 0xb2bfba5b, 0x2b7d0763, 0x89b301d9, 0xcf54de1d, 0x8be1c3f5, 0xd65ed089, 0x00000000, 0xfffffdbb, 0x3fffffff, 0x00000000
+};
+
+
+/* m_ln_huge_1024 = 3.19657716130066391494715767493561294864049264507801184651532\
+                      47583964154221201003416286424799510120148468250161328651267\
+                      16987071539864391008396372544241576064067256311206662675069\
+                      08135056824435764731318712822095532502963271907330527336796\
+                      0593968046153629925695757930255514844745638198965378E+18; */
+static EMUSHORT _ei_m_ln_huge_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x2f20e3a3, 0x655fa187, 0x38303248, 0xf5dfa6bd, 0x9d6548ca, 0x72ce87b1, 0x7657f74b, 0x256fa0ec, 0xb136603b, 0xb9ea9bc3, 0x317c387e, 0x1acbda11, 0x224ae8c5, 0x3e96ca16, 0x1169b825, 0x27573b29, 0xc1382144, 0xed2eae35, 0x4afa1b10, 0x559552fb, 0x6debac98, 0xe7b87620, 0x8baafa2b, 0x8a0d175b, 0x7298b62d, 0x40f34326, 0x03f2f6af, 0xc9e3b398, 0xd1cf79ab, 0xb17217f7, 0x00000000, 0x0000003c, 0x40000000, 0x00000000
+};
+
+/* m_ln_tiny_1024 = -3.19657716130066391356086331381572232980602840216165871036432\
+                       44896759049138787403226418552360116225836350983621400277516\
+                       32984109498723019541025332072725314950001914807936510751207\
+                       62620891150148726669910988043760838278293248834430936288971\
+                       9643622683003765795384708461976463078844732184774725E+18; */
+static EMUSHORT _ei_m_ln_tiny_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x6d9f5160, 0xb6626b9d, 0x4d05ebf0, 0x5f6b6930, 0xeaa58e6f, 0x4751804d, 0xeca4f572, 0x561ac2ce, 0x25549c45, 0xe38bcb3a, 0x1f24f255, 0x26158960, 0x96fd279b, 0x03dcf0cd, 0x07a8ae04, 0xbde1c97b, 0x696748bc, 0x4084165b, 0xdb9cb64e, 0x17d1a1f7, 0x1093db39, 0x974fbb44, 0xf6e548bf, 0x8272fe27, 0x530100b3, 0xf1d5a666, 0x75772950, 0x3e52f3d9, 0xd1cf79a6, 0xb17217f7, 0x00000000, 0x0000003c, 0x40000000, 0xffffffff
+};
+
+
+/* m_athfhi_1024 = 4.6364760900080611621425623146121440202853705428612026381093308872019\
+                     7864165741705300600283984887892556529852251190837513505818181625011\
+                     1554715305699441056207193362661648801015325027559879258055168538891\
+                     6747823728653879391801251719948401395583818511509502163330649387215\
+                     46097320785555572086E-1; */
+static EMUSHORT _ei_m_athfhi_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x400bd856, 0x3c36a6b0, 0xbfee054d, 0xefaeb8b1, 0x4bd7be5b, 0xc1689ec3, 0xe1547791, 0xdfd26c5b, 0x07697538, 0x5336dd09, 0x086ccb07, 0x6ebfea02, 0x41b29b65, 0x79134753, 0x86228dbd, 0xd6d85e36, 0xfd3c0013, 0xcee1e80e, 0xc6a46182, 0x87c812f8, 0x892b516c, 0xfa9c5917, 0xe9624709, 0xe2cf16e6, 0x261cdf00, 0x6e141587, 0xbc3a8d03, 0x6fe445ec, 0x0dda7b45, 0xed63382b, 0x00000000, 0xfffffffd, 0x3fffffff, 0x00000000
+};
+
+/* m_athflo_1024 = 4.82655342276650742305876422169363070645380695997602482935\
+                     57005570829565659325914206203153029613111431335195726194\
+                     88694643853361248859691403527835058639888243634402949898\
+                     67557703070027602967262285706434471747948788244893065046\
+                     31399376536270989908615799398065118744882317318071700049\
+                     79250855E-290; */
+static EMUSHORT _ei_m_athflo_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x3447ed13, 0x67e2298b, 0x55811a92, 0xbdc30444, 0x2b3329d1, 0x9c6b61e9, 0x1de2d580, 0x493bb972, 0x3889d0ba, 0x0ee6e292, 0x828e3e8f, 0xb7f9d6d6, 0x9c875376, 0x2a0b588f, 0x46313b0e, 0x3957e40f, 0x81c6e1b2, 0xc3ddf33a, 0xc8913e64, 0xbe2f2645, 0x8a75fb6a, 0x2beed3b8, 0x63c7bb3b, 0xcc47e007, 0xd9967b05, 0x333ec575, 0x12c6925e, 0x196cf7ba, 0xa3baf6a7, 0xf0d36426, 0x00000000, 0xfffffc3d, 0x3fffffff, 0x00000000
+};
+
+
+/* m_at1fhi_1024 = 9.827937232473290679857106110146660144968774536316285567614250883179\
+                     880715497960353897065343728173111081651397020119367662299410391818\
+                     849136789053472484235494147817726770491318323960397742899020583273\
+                     603878671335971023143727015051708718571210491998169977354955130446\
+                     955702784127146006523683E-1; */
+static EMUSHORT _ei_m_at1fhi_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x808af180, 0x85971e55, 0xb8dfaaa1, 0x6cd5f369, 0x4d78de71, 0x096ce12b, 0xbb00d8ce, 0x5be952d0, 0xc31b9d4f, 0x9261b634, 0xcecf57dc, 0x818d8878, 0x643b8d55, 0x509352f1, 0x3fa1afbf, 0x0f08a0ae, 0x27ccc8e5, 0x4d36a7a3, 0xfadbba91, 0xf346de40, 0x179728b8, 0x8aabe367, 0x42088fd2, 0x351d86e9, 0x560dce43, 0xa9936652, 0xbbc9e141, 0x7887af0c, 0x0fb4d900, 0xfb985e94, 0x00000000, 0xfffffffe, 0x3fffffff, 0x00000000
+};
+
+/* m_at1flo_1024 = 6.651928426438007007579866731763576350608947919711483729585\
+                     653463531986673658470568771413457770976018819878124351211\
+                     829426767472579464491889138403535989406341833539392853689\
+                     216930903457882890433294663765805520828096865918963342857\
+                     628858644003085626037480687660396853081349197951531398475\
+                     853E-290; */
+static EMUSHORT _ei_m_at1flo_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x2ab9ef40, 0xc186b647, 0x94c0bdb8, 0xe37dfe30, 0x46d42e9a, 0x59872d06, 0xbdd1cd28, 0x9ab355a9, 0x86812af7, 0xcabfe476, 0x4f3a7c24, 0xb621d83d, 0xa3b4c3ab, 0x6734a999, 0x8c35d25a, 0x716c0cfd, 0x5819c42e, 0xd2f76f75, 0xe8757678, 0x52e80719, 0x20193d87, 0x1d9d0c19, 0x50f0304d, 0xc6ae17ee, 0xbfacebae, 0x07f85e9b, 0x91375cde, 0x5d4dfa69, 0xcb8863ed, 0xa5f3cc4c, 0x00000000, 0xfffffc3e, 0x3fffffff, 0x00000000
+};
+
+
+/* m_39_16__1024 = 2.4375E+0; */
+static EMUSHORT _ei_m_39_16__1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x9c000000, 0x00000000, 0x00000000, 0x40000000, 0x00000000
+};
+
+/* m_1_16__1024 = 6.25000E-2; */
+static EMUSHORT _ei_m_1_16__1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x80000000, 0x00000000, 0xfffffffb, 0x3fffffff, 0x00000000
+};
+
+
+/* m_thovfl_1024 = 3.3271064666877374852027141829992475267624006449292252197\
+                     7926404556828938545453463490814396958280970020160710889\
+                     8739291521690497131639026673756819607848364617267492339\
+                     9761828889134737853946800326613920805537495901851477782\
+                     8082887155967391274651872386972423816217443405756655988\
+                     4739700347958E+2; */
+static EMUSHORT _ei_m_thovfl_1024_[NPIR_1024] =
+{
+/*  lgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   hgw         Exp                     Sign     */
+/* ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========  ======================  ==========*/
+   0x00000000, 0xbc2ed569, 0xdf09a76e, 0x64ad2f23, 0x4681ac51, 0x838ef43e, 0xbba19f36, 0xaef277d6, 0x7318a6dd, 0x7622fa37, 0xce4bf207, 0x1e6474f6, 0xc91f1c70, 0xc0263a38, 0xeaad5d74, 0x80531ca2, 0xe4e1c776, 0x65249f2f, 0xde5bc352, 0x964a795f, 0xd03bfdcb, 0x670cf1ce, 0x293ceebe, 0xd2f04a89, 0xb16c45e5, 0x0b6f2aca, 0x4ce40ef4, 0x83b3c744, 0x0d45785e, 0x54b28211, 0xa65af678, 0x00000000, 0x00000007, 0x40000000, 0x00000000
+};
+
+#else  /* BITS_PER_EMUSHORT != 32 */
+#error ei_service_008_emu32lsb.dfn: ERROR: Failed size of EMUSHORT data type.
+#endif /* BITS_PER_EMUSHORT == 32 */
+
+#endif /* __REAL_EINTERNAL_SERVICE_008_32LSB */
diff --git a/mpu/math/service/emu01024/ei_service_008_emu32msb.dfn b/mpu/math/service/emu01024/ei_service_008_emu32msb.dfn
new file mode 100644
index 0000000..3c5e58e
--- /dev/null
+++ b/mpu/math/service/emu01024/ei_service_008_emu32msb.dfn
@@ -0,0 +1,143 @@
+
+#ifndef   __REAL_EINTERNAL_SERVICE_008_32MSB
+#define   __REAL_EINTERNAL_SERVICE_008_32MSB
+
+#if BITS_PER_EMUSHORT == 32
+
+/* m_ln2hi_1024 = 6.93147180559945309417232121458176568075500134360255254120680009493\
+                    39362196969471560586332699641868754200148102057068573368552023575\
+                    81305570326707516350759619307275708283714347670956931041274785722\
+                    02217173745826127231314605639547253806231227152138123006699507423\
+                    0996036807957547296597291711E-1; */
+static EMUSHORT _ei_m_ln2hi_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffffe, 0x00000000, 0xb17217f7, 0xd1cf79ab, 0xc9e3b398, 0x03f2f6af, 0x40f34326, 0x7298b62d, 0x8a0d175b, 0x8baafa2b, 0xe7b87620, 0x6debac98, 0x559552fb, 0x4afa1b10, 0xed2eae35, 0xc1382144, 0x27573b29, 0x1169b825, 0x3e96ca16, 0x224ae8c5, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000
+};
+
+/* m_ln2lo_1024 = 4.2321134551976419489892113294161867182800780586953313432112583392837259\
+                    6016519183443029907491645570887924444509986703878209449764620979403991\
+                    9541983179547403346994767617312256144506789438934165385698854900138628\
+                    1455172463059345105684141405527306922572394544137450562539188255563646\
+                    16787612E-175; */
+static EMUSHORT _ei_m_ln2lo_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffdbb, 0x00000000, 0xd65ed089, 0x8be1c3f5, 0xcf54de1d, 0x89b301d9, 0x2b7d0763, 0xb2bfba5b, 0x96743d8c, 0xeb2a4657, 0xaefd35e9, 0xc1819243, 0x2afd0c39, 0x79071d18, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000
+};
+
+
+/* m_ln_huge_1024 = 3.19657716130066391494715767493561294864049264507801184651532\
+                      47583964154221201003416286424799510120148468250161328651267\
+                      16987071539864391008396372544241576064067256311206662675069\
+                      08135056824435764731318712822095532502963271907330527336796\
+                      0593968046153629925695757930255514844745638198965378E+18; */
+static EMUSHORT _ei_m_ln_huge_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x40000000, 0x0000003c, 0x00000000, 0xb17217f7, 0xd1cf79ab, 0xc9e3b398, 0x03f2f6af, 0x40f34326, 0x7298b62d, 0x8a0d175b, 0x8baafa2b, 0xe7b87620, 0x6debac98, 0x559552fb, 0x4afa1b10, 0xed2eae35, 0xc1382144, 0x27573b29, 0x1169b825, 0x3e96ca16, 0x224ae8c5, 0x1acbda11, 0x317c387e, 0xb9ea9bc3, 0xb136603b, 0x256fa0ec, 0x7657f74b, 0x72ce87b1, 0x9d6548ca, 0xf5dfa6bd, 0x38303248, 0x655fa187, 0x2f20e3a3, 0x00000000
+};
+
+/* m_ln_tiny_1024 = -3.19657716130066391356086331381572232980602840216165871036432\
+                       44896759049138787403226418552360116225836350983621400277516\
+                       32984109498723019541025332072725314950001914807936510751207\
+                       62620891150148726669910988043760838278293248834430936288971\
+                       9643622683003765795384708461976463078844732184774725E+18; */
+static EMUSHORT _ei_m_ln_tiny_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0xffffffff, 0x40000000, 0x0000003c, 0x00000000, 0xb17217f7, 0xd1cf79a6, 0x3e52f3d9, 0x75772950, 0xf1d5a666, 0x530100b3, 0x8272fe27, 0xf6e548bf, 0x974fbb44, 0x1093db39, 0x17d1a1f7, 0xdb9cb64e, 0x4084165b, 0x696748bc, 0xbde1c97b, 0x07a8ae04, 0x03dcf0cd, 0x96fd279b, 0x26158960, 0x1f24f255, 0xe38bcb3a, 0x25549c45, 0x561ac2ce, 0xeca4f572, 0x4751804d, 0xeaa58e6f, 0x5f6b6930, 0x4d05ebf0, 0xb6626b9d, 0x6d9f5160, 0x00000000
+};
+
+
+/* m_athfhi_1024 = 4.6364760900080611621425623146121440202853705428612026381093308872019\
+                     7864165741705300600283984887892556529852251190837513505818181625011\
+                     1554715305699441056207193362661648801015325027559879258055168538891\
+                     6747823728653879391801251719948401395583818511509502163330649387215\
+                     46097320785555572086E-1; */
+static EMUSHORT _ei_m_athfhi_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffffd, 0x00000000, 0xed63382b, 0x0dda7b45, 0x6fe445ec, 0xbc3a8d03, 0x6e141587, 0x261cdf00, 0xe2cf16e6, 0xe9624709, 0xfa9c5917, 0x892b516c, 0x87c812f8, 0xc6a46182, 0xcee1e80e, 0xfd3c0013, 0xd6d85e36, 0x86228dbd, 0x79134753, 0x41b29b65, 0x6ebfea02, 0x086ccb07, 0x5336dd09, 0x07697538, 0xdfd26c5b, 0xe1547791, 0xc1689ec3, 0x4bd7be5b, 0xefaeb8b1, 0xbfee054d, 0x3c36a6b0, 0x400bd856, 0x00000000
+};
+
+/* m_athflo_1024 = 4.82655342276650742305876422169363070645380695997602482935\
+                     57005570829565659325914206203153029613111431335195726194\
+                     88694643853361248859691403527835058639888243634402949898\
+                     67557703070027602967262285706434471747948788244893065046\
+                     31399376536270989908615799398065118744882317318071700049\
+                     79250855E-290; */
+static EMUSHORT _ei_m_athflo_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffc3d, 0x00000000, 0xf0d36426, 0xa3baf6a7, 0x196cf7ba, 0x12c6925e, 0x333ec575, 0xd9967b05, 0xcc47e007, 0x63c7bb3b, 0x2beed3b8, 0x8a75fb6a, 0xbe2f2645, 0xc8913e64, 0xc3ddf33a, 0x81c6e1b2, 0x3957e40f, 0x46313b0e, 0x2a0b588f, 0x9c875376, 0xb7f9d6d6, 0x828e3e8f, 0x0ee6e292, 0x3889d0ba, 0x493bb972, 0x1de2d580, 0x9c6b61e9, 0x2b3329d1, 0xbdc30444, 0x55811a92, 0x67e2298b, 0x3447ed13, 0x00000000
+};
+
+
+/* m_at1fhi_1024 = 9.827937232473290679857106110146660144968774536316285567614250883179\
+                     880715497960353897065343728173111081651397020119367662299410391818\
+                     849136789053472484235494147817726770491318323960397742899020583273\
+                     603878671335971023143727015051708718571210491998169977354955130446\
+                     955702784127146006523683E-1; */
+static EMUSHORT _ei_m_at1fhi_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffffe, 0x00000000, 0xfb985e94, 0x0fb4d900, 0x7887af0c, 0xbbc9e141, 0xa9936652, 0x560dce43, 0x351d86e9, 0x42088fd2, 0x8aabe367, 0x179728b8, 0xf346de40, 0xfadbba91, 0x4d36a7a3, 0x27ccc8e5, 0x0f08a0ae, 0x3fa1afbf, 0x509352f1, 0x643b8d55, 0x818d8878, 0xcecf57dc, 0x9261b634, 0xc31b9d4f, 0x5be952d0, 0xbb00d8ce, 0x096ce12b, 0x4d78de71, 0x6cd5f369, 0xb8dfaaa1, 0x85971e55, 0x808af180, 0x00000000
+};
+
+/* m_at1flo_1024 = 6.651928426438007007579866731763576350608947919711483729585\
+                     653463531986673658470568771413457770976018819878124351211\
+                     829426767472579464491889138403535989406341833539392853689\
+                     216930903457882890433294663765805520828096865918963342857\
+                     628858644003085626037480687660396853081349197951531398475\
+                     853E-290; */
+static EMUSHORT _ei_m_at1flo_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffc3e, 0x00000000, 0xa5f3cc4c, 0xcb8863ed, 0x5d4dfa69, 0x91375cde, 0x07f85e9b, 0xbfacebae, 0xc6ae17ee, 0x50f0304d, 0x1d9d0c19, 0x20193d87, 0x52e80719, 0xe8757678, 0xd2f76f75, 0x5819c42e, 0x716c0cfd, 0x8c35d25a, 0x6734a999, 0xa3b4c3ab, 0xb621d83d, 0x4f3a7c24, 0xcabfe476, 0x86812af7, 0x9ab355a9, 0xbdd1cd28, 0x59872d06, 0x46d42e9a, 0xe37dfe30, 0x94c0bdb8, 0xc186b647, 0x2ab9ef40, 0x00000000
+};
+
+
+/* m_39_16__1024 = 2.4375E+0; */
+static EMUSHORT _ei_m_39_16__1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x40000000, 0x00000000, 0x00000000, 0x9c000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000
+};
+
+/* m_1_16__1024 = 6.25000E-2; */
+static EMUSHORT _ei_m_1_16__1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x3fffffff, 0xfffffffb, 0x00000000, 0x80000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000, 0x00000000
+};
+
+
+/* m_thovfl_1024 = 3.3271064666877374852027141829992475267624006449292252197\
+                     7926404556828938545453463490814396958280970020160710889\
+                     8739291521690497131639026673756819607848364617267492339\
+                     9761828889134737853946800326613920805537495901851477782\
+                     8082887155967391274651872386972423816217443405756655988\
+                     4739700347958E+2; */
+static EMUSHORT _ei_m_thovfl_1024_[NPIR_1024] =
+{
+/*  Sign        Exp                     hgw         S i g n i f i c a n d                                                                                                                                                                                                                                                                                                                                                   lgw      */
+/* ==========  ======================  ==========  ======================================================================================================================================================================================================================================================================================================================================================================  ==========*/
+   0x00000000, 0x40000000, 0x00000007, 0x00000000, 0xa65af678, 0x54b28211, 0x0d45785e, 0x83b3c744, 0x4ce40ef4, 0x0b6f2aca, 0xb16c45e5, 0xd2f04a89, 0x293ceebe, 0x670cf1ce, 0xd03bfdcb, 0x964a795f, 0xde5bc352, 0x65249f2f, 0xe4e1c776, 0x80531ca2, 0xeaad5d74, 0xc0263a38, 0xc91f1c70, 0x1e6474f6, 0xce4bf207, 0x7622fa37, 0x7318a6dd, 0xaef277d6, 0xbba19f36, 0x838ef43e, 0x4681ac51, 0x64ad2f23, 0xdf09a76e, 0xbc2ed569, 0x00000000
+};
+
+#else  /* BITS_PER_EMUSHORT != 32 */
+#error ei_service_008_emu32msb.dfn: ERROR: Failed size of EMUSHORT data type.
+#endif /* BITS_PER_EMUSHORT == 32 */
+
+#endif /* __REAL_EINTERNAL_SERVICE_008_32MSB */