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:
1 file changed, 3125 insertions, 0 deletions
diff --git a/mpu/mpu-m-const.c b/mpu/mpu-m-const.c
new file mode 100644
index 0000000..acdb9b7
--- /dev/null
+++ b/mpu/mpu-m-const.c
@@ -0,0 +1,3464 @@
+
+/***************************************************************
+  __MPU_M_CONST.C
+
+       This file contains source code of functions for
+       MATH CONSTANTS operations.
+
+       PART OF : MPU - library .
+
+       USAGE   : Internal only .
+
+       NOTE    : NONE .
+
+       Copyright (C) 2000 - 2024  by Andrew V.Kosteltsev.
+       All Rights Reserved.
+ ***************************************************************/
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <errno.h>   /* errno(3)  */
+#include <string.h>  /* strcpy(3) */
+#include <strings.h> /* bzero(3)  */
+
+#include <libmpu.h>
+#include <mpu-context.h>
+
+#include <mpu-emutype.h>
+#include <mpu-floatp.h>
+#include <mpu-m-const.h>
+
+#include <mpu-char.h>
+#include <mpu-symbols.h>
+
+#include <mpu-math-errno.h>
+#include <mpu-mtherr.h>
+
+
+/***************************************************************
+  Кодировка имен файлов:
+
+  Трехзначное десятичное число, представляющее количество
+  128-и битных слов, из которых состоят вещественные числа
+  размещенные в массивах:
+
+    размер чисел в битах  кодировка
+    --------------------  ---------
+                     128  001
+                     256  002
+                     512  004
+                    1024  008
+                    2048  016
+                    4096  032
+                    8192  064
+                   16384  128
+                   32768  256
+                   65536  512 (это предел);
+
+    ПРИМЕРЫ:
+    -------
+      ei_mconst_001_emu32lsb.dfn -   128-бит,
+      ei_mconst_512_emu32lsb.dfn - 65536-бит.
+
+ ***************************************************************/
+
+#if MPU_REAL_IO_LIMIT >= 128
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu00128/ei_mconst_001_emu32lsb.dfn>
+#else
+#include <m_const/emu00128/ei_mconst_001_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+
+#if MPU_REAL_IO_LIMIT >= 256
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu00256/ei_mconst_002_emu32lsb.dfn>
+#else
+#include <m_const/emu00256/ei_mconst_002_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+
+#if MPU_REAL_IO_LIMIT >= 512
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu00512/ei_mconst_004_emu32lsb.dfn>
+#else
+#include <m_const/emu00512/ei_mconst_004_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+
+#if MPU_REAL_IO_LIMIT >= 1024
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu01024/ei_mconst_008_emu32lsb.dfn>
+#else
+#include <m_const/emu01024/ei_mconst_008_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+
+#if MPU_REAL_IO_LIMIT >= 2048
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu02048/ei_mconst_016_emu32lsb.dfn>
+#else
+#include <m_const/emu02048/ei_mconst_016_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+
+#if MPU_REAL_IO_LIMIT >= 4096
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu04096/ei_mconst_032_emu32lsb.dfn>
+#else
+#include <m_const/emu04096/ei_mconst_032_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+
+#if MPU_REAL_IO_LIMIT >= 8192
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu08192/ei_mconst_064_emu32lsb.dfn>
+#else
+#include <m_const/emu08192/ei_mconst_064_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+
+#if MPU_REAL_IO_LIMIT >= 16384
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu16384/ei_mconst_128_emu32lsb.dfn>
+#else
+#include <m_const/emu16384/ei_mconst_128_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+
+#if MPU_REAL_IO_LIMIT >= 32768
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu32768/ei_mconst_256_emu32lsb.dfn>
+#else
+#include <m_const/emu32768/ei_mconst_256_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+
+#if MPU_REAL_IO_LIMIT >= 65536
+#if MPU_WORD_ORDER_BIG_ENDIAN == 0
+#include <m_const/emu65536/ei_mconst_512_emu32lsb.dfn>
+#else
+#include <m_const/emu65536/ei_mconst_512_emu32msb.dfn>
+#endif
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+
+EMUSHORT *_get_m_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_ptr() */
+
+
+EMUSHORT *_get_m_e_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_e_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_e_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_e_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_e_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_e_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_e_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_e_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_e_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_e_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_e_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_e_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_e_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_e_ptr() */
+
+
+EMUSHORT *_get_m_1_ln2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_ln2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_ln2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_ln2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_ln2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_ln2_ptr() */
+
+
+EMUSHORT *_get_m_ln2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_ln2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_ln2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_ln2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_ln2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_ln2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_ln2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_ln2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_ln2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_ln2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_ln2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_ln2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_ln2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_ln2_ptr() */
+
+
+EMUSHORT *_get_m_1_ln10_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_ln10_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_ln10_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_ln10_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_ln10_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_ln10_ptr() */
+
+
+EMUSHORT *_get_m_ln10_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_ln10_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_ln10_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_ln10_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_ln10_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_ln10_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_ln10_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_ln10_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_ln10_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_ln10_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_ln10_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_ln10_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_ln10_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_ln10_ptr() */
+
+
+EMUSHORT *_get_m_1_lg2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_lg2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_lg2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_lg2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_lg2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_lg2_ptr() */
+
+
+EMUSHORT *_get_m_lg2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_lg2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_lg2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_lg2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_lg2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_lg2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_lg2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_lg2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_lg2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_lg2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_lg2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_lg2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_lg2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_lg2_ptr() */
+
+
+EMUSHORT *_get_m_pi_2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_2_ptr() */
+
+
+EMUSHORT *_get_m_pi_3_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_3_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_3_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_3_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_3_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_3_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_3_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_3_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_3_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_3_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_3_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_3_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_3_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_3_ptr() */
+
+
+EMUSHORT *_get_m_pi_4_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_4_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_4_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_4_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_4_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_4_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_4_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_4_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_4_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_4_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_4_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_4_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_4_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_4_ptr() */
+
+
+EMUSHORT *_get_m_pi_5_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_5_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_5_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_5_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_5_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_5_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_5_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_5_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_5_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_5_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_5_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_5_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_5_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_5_ptr() */
+
+
+EMUSHORT *_get_m_pi_6_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_pi_6_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_pi_6_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_pi_6_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_pi_6_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_pi_6_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_pi_6_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_pi_6_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_pi_6_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_pi_6_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_pi_6_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_pi_6_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_pi_6_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_pi_6_ptr() */
+
+
+EMUSHORT *_get_m_1_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_pi_ptr() */
+
+
+EMUSHORT *_get_m_2_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_2_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_2_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_2_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_2_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_2_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_2_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_2_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_2_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_2_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_2_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_2_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_2_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_2_pi_ptr() */
+
+
+EMUSHORT *_get_m_3_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_3_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_3_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_3_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_3_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_3_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_3_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_3_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_3_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_3_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_3_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_3_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_3_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_3_pi_ptr() */
+
+
+EMUSHORT *_get_m_4_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_4_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_4_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_4_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_4_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_4_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_4_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_4_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_4_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_4_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_4_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_4_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_4_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_4_pi_ptr() */
+
+
+EMUSHORT *_get_m_5_pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_5_pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_5_pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_5_pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_5_pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_5_pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_5_pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_5_pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_5_pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_5_pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_5_pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_5_pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_5_pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_5_pi_ptr() */
+
+
+EMUSHORT *_get_m_2pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_2pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_2pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_2pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_2pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_2pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_2pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_2pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_2pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_2pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_2pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_2pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_2pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_2pi_ptr() */
+
+
+EMUSHORT *_get_m_3pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_3pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_3pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_3pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_3pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_3pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_3pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_3pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_3pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_3pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_3pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_3pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_3pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_3pi_ptr() */
+
+
+EMUSHORT *_get_m_1_2pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_2pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_2pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_2pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_2pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_2pi_ptr() */
+
+
+EMUSHORT *_get_m_1_3pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_3pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_3pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_3pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_3pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_3pi_ptr() */
+
+
+EMUSHORT *_get_m_1_4pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_4pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_4pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_4pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_4pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_4pi_ptr() */
+
+
+EMUSHORT *_get_m_1_5pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_5pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_5pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_5pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_5pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_5pi_ptr() */
+
+
+EMUSHORT *_get_m_1_6pi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_6pi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_6pi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_6pi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_6pi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_6pi_ptr() */
+
+
+EMUSHORT *_get_m_3pi_4_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_3pi_4_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_3pi_4_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_3pi_4_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_3pi_4_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_3pi_4_ptr() */
+
+
+EMUSHORT *_get_m_sqrtpi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_sqrtpi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_sqrtpi_ptr() */
+
+
+EMUSHORT *_get_m_1_sqrtpi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_sqrtpi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_sqrtpi_ptr() */
+
+
+EMUSHORT *_get_m_2_sqrtpi_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_2_sqrtpi_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_2_sqrtpi_ptr() */
+
+
+EMUSHORT *_get_m_sqrt2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_sqrt2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_sqrt2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_sqrt2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_sqrt2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_sqrt2_ptr() */
+
+
+EMUSHORT *_get_m_1_sqrt2_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt2_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_sqrt2_ptr() */
+
+
+EMUSHORT *_get_m_sqrt3_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_sqrt3_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_sqrt3_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_sqrt3_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_sqrt3_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_sqrt3_ptr() */
+
+
+EMUSHORT *_get_m_1_sqrt3_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_sqrt3_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_sqrt3_ptr() */
+
+
+EMUSHORT *_get_m_degree_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_degree_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_degree_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_degree_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_degree_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_degree_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_degree_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_degree_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_degree_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_degree_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_degree_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_degree_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_degree_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_degree_ptr() */
+
+
+EMUSHORT *_get_m_1_degree_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_1_degree_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_1_degree_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_1_degree_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_1_degree_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_1_degree_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_1_degree_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_1_degree_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_1_degree_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_1_degree_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_1_degree_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_1_degree_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_1_degree_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_1_degree_ptr() */
+
+
+EMUSHORT *_get_m_goldenratio_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_goldenratio_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_goldenratio_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_goldenratio_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_goldenratio_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_goldenratio_ptr() */
+
+
+EMUSHORT *_get_m_eulergamma_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_eulergamma_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_eulergamma_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_eulergamma_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_eulergamma_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_eulergamma_ptr() */
+
+
+EMUSHORT *_get_m_catalan_ptr( int nb )
+{
+  EMUSHORT *rc = (EMUSHORT *)NULL;
+
+  if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
+  {
+    /* error: Invalid size of operand(s) */
+    __real_error_no = __R_ESIZE__;
+    __STIND; /* Set REAL ind-produsing operation Flag */
+    return( rc );
+  }
+
+  switch( nb )
+  {
+#if MPU_REAL_IO_LIMIT >= 128
+    case NBR_32   :
+      rc = (EMUSHORT *)&_ei_m_catalan_32_[0];
+      break;
+    case NBR_64   :
+      rc = (EMUSHORT *)&_ei_m_catalan_64_[0];
+      break;
+    case NBR_128  :
+      rc = (EMUSHORT *)&_ei_m_catalan_128_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 128 */
+#if MPU_REAL_IO_LIMIT >= 256
+    case NBR_256  :
+      rc = (EMUSHORT *)&_ei_m_catalan_256_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 256 */
+#if MPU_REAL_IO_LIMIT >= 512
+    case NBR_512  :
+      rc = (EMUSHORT *)&_ei_m_catalan_512_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 512 */
+#if MPU_REAL_IO_LIMIT >= 1024
+    case NBR_1024 :
+      rc = (EMUSHORT *)&_ei_m_catalan_1024_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 1024 */
+#if MPU_REAL_IO_LIMIT >= 2048
+    case NBR_2048 :
+      rc = (EMUSHORT *)&_ei_m_catalan_2048_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 2048 */
+#if MPU_REAL_IO_LIMIT >= 4096
+    case NBR_4096 :
+      rc = (EMUSHORT *)&_ei_m_catalan_4096_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 4096 */
+#if MPU_REAL_IO_LIMIT >= 8192
+    case NBR_8192 :
+      rc = (EMUSHORT *)&_ei_m_catalan_8192_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 8192 */
+#if MPU_REAL_IO_LIMIT >= 16384
+    case NBR_16384:
+      rc = (EMUSHORT *)&_ei_m_catalan_16384_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 16384 */
+#if MPU_REAL_IO_LIMIT >= 32768
+    case NBR_32768:
+      rc = (EMUSHORT *)&_ei_m_catalan_32768_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 32768 */
+#if MPU_REAL_IO_LIMIT >= 65536
+    case NBR_65536:
+      rc = (EMUSHORT *)&_ei_m_catalan_65536_[0];
+      break;
+#endif /* MPU_REAL_IO_LIMIT >= 65536 */
+
+    default:
+    {
+      /* error: Invalid size of operand(s) */
+      __real_error_no = __R_ESIZE__;
+      __STIND; /* Set REAL ind-produsing operation Flag */
+      break;
+    }
+
+  } /* End of switch( nb ) */
+
+  return( rc );
+
+} /* End of _get_m_catalan_ptr() */
+
+
+
+/***************************************************************
+  Hide internal symbols:
+ ***************************************************************/
+
+__mpu_hidden_decl(_get_m_pi_ptr);
+__mpu_hidden_decl(_get_m_e_ptr);
+__mpu_hidden_decl(_get_m_1_ln2_ptr);
+__mpu_hidden_decl(_get_m_ln2_ptr);
+__mpu_hidden_decl(_get_m_1_ln10_ptr);
+__mpu_hidden_decl(_get_m_ln10_ptr);
+__mpu_hidden_decl(_get_m_1_lg2_ptr);
+__mpu_hidden_decl(_get_m_lg2_ptr);
+__mpu_hidden_decl(_get_m_pi_2_ptr);
+__mpu_hidden_decl(_get_m_pi_3_ptr);
+__mpu_hidden_decl(_get_m_pi_4_ptr);
+__mpu_hidden_decl(_get_m_pi_5_ptr);
+__mpu_hidden_decl(_get_m_pi_6_ptr);
+__mpu_hidden_decl(_get_m_1_pi_ptr);
+__mpu_hidden_decl(_get_m_2_pi_ptr);
+__mpu_hidden_decl(_get_m_3_pi_ptr);
+__mpu_hidden_decl(_get_m_4_pi_ptr);
+__mpu_hidden_decl(_get_m_5_pi_ptr);
+__mpu_hidden_decl(_get_m_2pi_ptr);
+__mpu_hidden_decl(_get_m_3pi_ptr);
+__mpu_hidden_decl(_get_m_1_2pi_ptr);
+__mpu_hidden_decl(_get_m_1_3pi_ptr);
+__mpu_hidden_decl(_get_m_1_4pi_ptr);
+__mpu_hidden_decl(_get_m_1_5pi_ptr);
+__mpu_hidden_decl(_get_m_1_6pi_ptr);
+__mpu_hidden_decl(_get_m_3pi_4_ptr);
+__mpu_hidden_decl(_get_m_sqrtpi_ptr);
+__mpu_hidden_decl(_get_m_1_sqrtpi_ptr);
+__mpu_hidden_decl(_get_m_2_sqrtpi_ptr);
+__mpu_hidden_decl(_get_m_sqrt2_ptr);
+__mpu_hidden_decl(_get_m_1_sqrt2_ptr);
+__mpu_hidden_decl(_get_m_sqrt3_ptr);
+__mpu_hidden_decl(_get_m_1_sqrt3_ptr);
+__mpu_hidden_decl(_get_m_degree_ptr);
+__mpu_hidden_decl(_get_m_1_degree_ptr);
+__mpu_hidden_decl(_get_m_goldenratio_ptr);
+__mpu_hidden_decl(_get_m_eulergamma_ptr);
+__mpu_hidden_decl(_get_m_catalan_ptr);
+
+
+/*
+  End of hide internal symbols.
+ ***************************************************************/
+