868b2b66 (kx 2024-12-20 16:11:07 +0300 1)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 3) __MPU_M_CONST.C
868b2b66 (kx 2024-12-20 16:11:07 +0300 4)
868b2b66 (kx 2024-12-20 16:11:07 +0300 5) This file contains source code of functions for
868b2b66 (kx 2024-12-20 16:11:07 +0300 6) MATH CONSTANTS operations.
868b2b66 (kx 2024-12-20 16:11:07 +0300 7)
868b2b66 (kx 2024-12-20 16:11:07 +0300 8) PART OF : MPU - library .
868b2b66 (kx 2024-12-20 16:11:07 +0300 9)
868b2b66 (kx 2024-12-20 16:11:07 +0300 10) USAGE : Internal only .
868b2b66 (kx 2024-12-20 16:11:07 +0300 11)
868b2b66 (kx 2024-12-20 16:11:07 +0300 12) NOTE : NONE .
868b2b66 (kx 2024-12-20 16:11:07 +0300 13)
868b2b66 (kx 2024-12-20 16:11:07 +0300 14) Copyright (C) 2000 - 2024 by Andrew V.Kosteltsev.
868b2b66 (kx 2024-12-20 16:11:07 +0300 15) All Rights Reserved.
868b2b66 (kx 2024-12-20 16:11:07 +0300 16) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 17)
868b2b66 (kx 2024-12-20 16:11:07 +0300 18) #ifdef HAVE_CONFIG_H
868b2b66 (kx 2024-12-20 16:11:07 +0300 19) #include <config.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 20) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 21)
868b2b66 (kx 2024-12-20 16:11:07 +0300 22) #include <errno.h> /* errno(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 23) #include <string.h> /* strcpy(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 24) #include <strings.h> /* bzero(3) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 25)
868b2b66 (kx 2024-12-20 16:11:07 +0300 26) #include <libmpu.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 27) #include <mpu-context.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 28)
868b2b66 (kx 2024-12-20 16:11:07 +0300 29) #include <mpu-emutype.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 30) #include <mpu-floatp.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 31) #include <mpu-m-const.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 32)
868b2b66 (kx 2024-12-20 16:11:07 +0300 33) #include <mpu-char.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 34) #include <mpu-symbols.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 35)
868b2b66 (kx 2024-12-20 16:11:07 +0300 36) #include <mpu-math-errno.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 37) #include <mpu-mtherr.h>
868b2b66 (kx 2024-12-20 16:11:07 +0300 38)
868b2b66 (kx 2024-12-20 16:11:07 +0300 39)
868b2b66 (kx 2024-12-20 16:11:07 +0300 40) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 41) Кодировка имен файлов:
868b2b66 (kx 2024-12-20 16:11:07 +0300 42)
868b2b66 (kx 2024-12-20 16:11:07 +0300 43) Трехзначное десятичное число, представляющее количество
868b2b66 (kx 2024-12-20 16:11:07 +0300 44) 128-и битных слов, из которых состоят вещественные числа
868b2b66 (kx 2024-12-20 16:11:07 +0300 45) размещенные в массивах:
868b2b66 (kx 2024-12-20 16:11:07 +0300 46)
868b2b66 (kx 2024-12-20 16:11:07 +0300 47) размер чисел в битах кодировка
868b2b66 (kx 2024-12-20 16:11:07 +0300 48) -------------------- ---------
868b2b66 (kx 2024-12-20 16:11:07 +0300 49) 128 001
868b2b66 (kx 2024-12-20 16:11:07 +0300 50) 256 002
868b2b66 (kx 2024-12-20 16:11:07 +0300 51) 512 004
868b2b66 (kx 2024-12-20 16:11:07 +0300 52) 1024 008
868b2b66 (kx 2024-12-20 16:11:07 +0300 53) 2048 016
868b2b66 (kx 2024-12-20 16:11:07 +0300 54) 4096 032
868b2b66 (kx 2024-12-20 16:11:07 +0300 55) 8192 064
868b2b66 (kx 2024-12-20 16:11:07 +0300 56) 16384 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 57) 32768 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 58) 65536 512 (это предел);
868b2b66 (kx 2024-12-20 16:11:07 +0300 59)
868b2b66 (kx 2024-12-20 16:11:07 +0300 60) ПРИМЕРЫ:
868b2b66 (kx 2024-12-20 16:11:07 +0300 61) -------
868b2b66 (kx 2024-12-20 16:11:07 +0300 62) ei_mconst_001_emu32lsb.dfn - 128-бит,
868b2b66 (kx 2024-12-20 16:11:07 +0300 63) ei_mconst_512_emu32lsb.dfn - 65536-бит.
868b2b66 (kx 2024-12-20 16:11:07 +0300 64)
868b2b66 (kx 2024-12-20 16:11:07 +0300 65) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 66)
868b2b66 (kx 2024-12-20 16:11:07 +0300 67) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 68) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 69) #include <m_const/emu00128/ei_mconst_001_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 70) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 71) #include <m_const/emu00128/ei_mconst_001_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 72) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 73) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 74)
868b2b66 (kx 2024-12-20 16:11:07 +0300 75) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 76) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 77) #include <m_const/emu00256/ei_mconst_002_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 78) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 79) #include <m_const/emu00256/ei_mconst_002_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 80) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 81) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 82)
868b2b66 (kx 2024-12-20 16:11:07 +0300 83) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 84) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 85) #include <m_const/emu00512/ei_mconst_004_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 86) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 87) #include <m_const/emu00512/ei_mconst_004_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 88) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 89) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 90)
868b2b66 (kx 2024-12-20 16:11:07 +0300 91) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 92) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 93) #include <m_const/emu01024/ei_mconst_008_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 94) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 95) #include <m_const/emu01024/ei_mconst_008_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 96) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 97) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 98)
868b2b66 (kx 2024-12-20 16:11:07 +0300 99) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 100) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 101) #include <m_const/emu02048/ei_mconst_016_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 102) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 103) #include <m_const/emu02048/ei_mconst_016_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 104) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 105) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 106)
868b2b66 (kx 2024-12-20 16:11:07 +0300 107) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 108) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 109) #include <m_const/emu04096/ei_mconst_032_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 110) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 111) #include <m_const/emu04096/ei_mconst_032_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 112) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 113) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 114)
868b2b66 (kx 2024-12-20 16:11:07 +0300 115) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 116) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 117) #include <m_const/emu08192/ei_mconst_064_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 118) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 119) #include <m_const/emu08192/ei_mconst_064_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 120) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 121) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 122)
868b2b66 (kx 2024-12-20 16:11:07 +0300 123) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 124) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 125) #include <m_const/emu16384/ei_mconst_128_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 126) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 127) #include <m_const/emu16384/ei_mconst_128_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 128) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 129) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 130)
868b2b66 (kx 2024-12-20 16:11:07 +0300 131) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 132) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 133) #include <m_const/emu32768/ei_mconst_256_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 134) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 135) #include <m_const/emu32768/ei_mconst_256_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 136) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 137) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 138)
868b2b66 (kx 2024-12-20 16:11:07 +0300 139) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 140) #if MPU_WORD_ORDER_BIG_ENDIAN == 0
868b2b66 (kx 2024-12-20 16:11:07 +0300 141) #include <m_const/emu65536/ei_mconst_512_emu32lsb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 142) #else
868b2b66 (kx 2024-12-20 16:11:07 +0300 143) #include <m_const/emu65536/ei_mconst_512_emu32msb.dfn>
868b2b66 (kx 2024-12-20 16:11:07 +0300 144) #endif
868b2b66 (kx 2024-12-20 16:11:07 +0300 145) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 146)
868b2b66 (kx 2024-12-20 16:11:07 +0300 147)
868b2b66 (kx 2024-12-20 16:11:07 +0300 148) EMUSHORT *_get_m_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 149) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 150) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 151)
868b2b66 (kx 2024-12-20 16:11:07 +0300 152) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 153) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 154) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 155) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 156) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 157) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 158) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 159)
868b2b66 (kx 2024-12-20 16:11:07 +0300 160) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 161) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 162) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 163) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 164) rc = (EMUSHORT *)&_ei_m_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 165) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 166) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 167) rc = (EMUSHORT *)&_ei_m_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 168) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 169) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 170) rc = (EMUSHORT *)&_ei_m_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 171) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 172) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 173) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 174) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 175) rc = (EMUSHORT *)&_ei_m_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 176) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 177) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 178) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 179) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 180) rc = (EMUSHORT *)&_ei_m_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 181) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 182) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 183) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 184) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 185) rc = (EMUSHORT *)&_ei_m_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 186) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 187) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 188) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 189) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 190) rc = (EMUSHORT *)&_ei_m_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 191) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 192) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 193) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 194) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 195) rc = (EMUSHORT *)&_ei_m_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 196) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 197) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 198) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 199) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 200) rc = (EMUSHORT *)&_ei_m_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 201) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 202) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 203) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 204) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 205) rc = (EMUSHORT *)&_ei_m_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 206) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 207) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 208) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 209) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 210) rc = (EMUSHORT *)&_ei_m_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 211) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 212) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 213) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 214) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 215) rc = (EMUSHORT *)&_ei_m_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 216) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 217) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 218)
868b2b66 (kx 2024-12-20 16:11:07 +0300 219) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 220) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 221) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 222) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 223) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 224) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 225) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 226)
868b2b66 (kx 2024-12-20 16:11:07 +0300 227) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 228)
868b2b66 (kx 2024-12-20 16:11:07 +0300 229) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 230)
868b2b66 (kx 2024-12-20 16:11:07 +0300 231) } /* End of _get_m_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 232)
868b2b66 (kx 2024-12-20 16:11:07 +0300 233)
868b2b66 (kx 2024-12-20 16:11:07 +0300 234) EMUSHORT *_get_m_e_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 235) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 236) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 237)
868b2b66 (kx 2024-12-20 16:11:07 +0300 238) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 239) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 240) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 241) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 242) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 243) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 244) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 245)
868b2b66 (kx 2024-12-20 16:11:07 +0300 246) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 247) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 248) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 249) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 250) rc = (EMUSHORT *)&_ei_m_e_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 251) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 252) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 253) rc = (EMUSHORT *)&_ei_m_e_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 254) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 255) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 256) rc = (EMUSHORT *)&_ei_m_e_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 257) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 258) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 259) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 260) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 261) rc = (EMUSHORT *)&_ei_m_e_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 262) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 263) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 264) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 265) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 266) rc = (EMUSHORT *)&_ei_m_e_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 267) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 268) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 269) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 270) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 271) rc = (EMUSHORT *)&_ei_m_e_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 272) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 273) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 274) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 275) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 276) rc = (EMUSHORT *)&_ei_m_e_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 277) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 278) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 279) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 280) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 281) rc = (EMUSHORT *)&_ei_m_e_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 282) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 283) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 284) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 285) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 286) rc = (EMUSHORT *)&_ei_m_e_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 287) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 288) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 289) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 290) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 291) rc = (EMUSHORT *)&_ei_m_e_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 292) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 293) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 294) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 295) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 296) rc = (EMUSHORT *)&_ei_m_e_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 297) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 298) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 299) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 300) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 301) rc = (EMUSHORT *)&_ei_m_e_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 302) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 303) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 304)
868b2b66 (kx 2024-12-20 16:11:07 +0300 305) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 306) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 307) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 308) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 309) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 310) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 311) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 312)
868b2b66 (kx 2024-12-20 16:11:07 +0300 313) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 314)
868b2b66 (kx 2024-12-20 16:11:07 +0300 315) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 316)
868b2b66 (kx 2024-12-20 16:11:07 +0300 317) } /* End of _get_m_e_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 318)
868b2b66 (kx 2024-12-20 16:11:07 +0300 319)
868b2b66 (kx 2024-12-20 16:11:07 +0300 320) EMUSHORT *_get_m_1_ln2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 321) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 322) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 323)
868b2b66 (kx 2024-12-20 16:11:07 +0300 324) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 325) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 326) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 327) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 328) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 329) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 330) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 331)
868b2b66 (kx 2024-12-20 16:11:07 +0300 332) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 333) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 334) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 335) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 336) rc = (EMUSHORT *)&_ei_m_1_ln2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 337) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 338) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 339) rc = (EMUSHORT *)&_ei_m_1_ln2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 340) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 341) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 342) rc = (EMUSHORT *)&_ei_m_1_ln2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 343) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 344) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 345) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 346) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 347) rc = (EMUSHORT *)&_ei_m_1_ln2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 348) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 349) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 350) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 351) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 352) rc = (EMUSHORT *)&_ei_m_1_ln2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 353) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 354) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 355) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 356) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 357) rc = (EMUSHORT *)&_ei_m_1_ln2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 358) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 359) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 360) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 361) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 362) rc = (EMUSHORT *)&_ei_m_1_ln2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 363) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 364) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 365) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 366) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 367) rc = (EMUSHORT *)&_ei_m_1_ln2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 368) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 369) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 370) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 371) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 372) rc = (EMUSHORT *)&_ei_m_1_ln2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 373) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 374) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 375) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 376) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 377) rc = (EMUSHORT *)&_ei_m_1_ln2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 378) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 379) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 380) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 381) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 382) rc = (EMUSHORT *)&_ei_m_1_ln2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 383) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 384) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 385) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 386) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 387) rc = (EMUSHORT *)&_ei_m_1_ln2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 388) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 389) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 390)
868b2b66 (kx 2024-12-20 16:11:07 +0300 391) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 392) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 393) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 394) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 395) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 396) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 397) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 398)
868b2b66 (kx 2024-12-20 16:11:07 +0300 399) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 400)
868b2b66 (kx 2024-12-20 16:11:07 +0300 401) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 402)
868b2b66 (kx 2024-12-20 16:11:07 +0300 403) } /* End of _get_m_1_ln2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 404)
868b2b66 (kx 2024-12-20 16:11:07 +0300 405)
868b2b66 (kx 2024-12-20 16:11:07 +0300 406) EMUSHORT *_get_m_ln2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 407) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 408) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 409)
868b2b66 (kx 2024-12-20 16:11:07 +0300 410) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 411) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 412) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 413) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 414) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 415) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 416) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 417)
868b2b66 (kx 2024-12-20 16:11:07 +0300 418) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 419) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 420) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 421) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 422) rc = (EMUSHORT *)&_ei_m_ln2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 423) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 424) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 425) rc = (EMUSHORT *)&_ei_m_ln2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 426) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 427) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 428) rc = (EMUSHORT *)&_ei_m_ln2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 429) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 430) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 431) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 432) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 433) rc = (EMUSHORT *)&_ei_m_ln2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 434) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 435) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 436) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 437) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 438) rc = (EMUSHORT *)&_ei_m_ln2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 439) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 440) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 441) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 442) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 443) rc = (EMUSHORT *)&_ei_m_ln2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 444) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 445) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 446) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 447) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 448) rc = (EMUSHORT *)&_ei_m_ln2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 449) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 450) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 451) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 452) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 453) rc = (EMUSHORT *)&_ei_m_ln2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 454) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 455) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 456) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 457) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 458) rc = (EMUSHORT *)&_ei_m_ln2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 459) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 460) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 461) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 462) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 463) rc = (EMUSHORT *)&_ei_m_ln2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 464) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 465) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 466) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 467) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 468) rc = (EMUSHORT *)&_ei_m_ln2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 469) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 470) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 471) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 472) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 473) rc = (EMUSHORT *)&_ei_m_ln2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 474) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 475) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 476)
868b2b66 (kx 2024-12-20 16:11:07 +0300 477) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 478) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 479) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 480) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 481) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 482) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 483) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 484)
868b2b66 (kx 2024-12-20 16:11:07 +0300 485) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 486)
868b2b66 (kx 2024-12-20 16:11:07 +0300 487) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 488)
868b2b66 (kx 2024-12-20 16:11:07 +0300 489) } /* End of _get_m_ln2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 490)
868b2b66 (kx 2024-12-20 16:11:07 +0300 491)
868b2b66 (kx 2024-12-20 16:11:07 +0300 492) EMUSHORT *_get_m_1_ln10_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 493) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 494) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 495)
868b2b66 (kx 2024-12-20 16:11:07 +0300 496) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 497) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 498) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 499) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 500) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 501) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 502) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 503)
868b2b66 (kx 2024-12-20 16:11:07 +0300 504) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 505) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 506) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 507) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 508) rc = (EMUSHORT *)&_ei_m_1_ln10_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 509) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 510) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 511) rc = (EMUSHORT *)&_ei_m_1_ln10_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 512) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 513) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 514) rc = (EMUSHORT *)&_ei_m_1_ln10_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 515) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 516) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 517) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 518) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 519) rc = (EMUSHORT *)&_ei_m_1_ln10_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 520) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 521) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 522) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 523) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 524) rc = (EMUSHORT *)&_ei_m_1_ln10_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 525) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 526) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 527) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 528) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 529) rc = (EMUSHORT *)&_ei_m_1_ln10_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 530) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 531) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 532) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 533) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 534) rc = (EMUSHORT *)&_ei_m_1_ln10_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 535) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 536) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 537) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 538) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 539) rc = (EMUSHORT *)&_ei_m_1_ln10_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 540) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 541) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 542) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 543) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 544) rc = (EMUSHORT *)&_ei_m_1_ln10_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 545) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 546) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 547) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 548) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 549) rc = (EMUSHORT *)&_ei_m_1_ln10_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 550) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 551) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 552) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 553) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 554) rc = (EMUSHORT *)&_ei_m_1_ln10_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 555) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 556) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 557) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 558) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 559) rc = (EMUSHORT *)&_ei_m_1_ln10_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 560) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 561) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 562)
868b2b66 (kx 2024-12-20 16:11:07 +0300 563) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 564) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 565) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 566) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 567) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 568) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 569) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 570)
868b2b66 (kx 2024-12-20 16:11:07 +0300 571) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 572)
868b2b66 (kx 2024-12-20 16:11:07 +0300 573) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 574)
868b2b66 (kx 2024-12-20 16:11:07 +0300 575) } /* End of _get_m_1_ln10_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 576)
868b2b66 (kx 2024-12-20 16:11:07 +0300 577)
868b2b66 (kx 2024-12-20 16:11:07 +0300 578) EMUSHORT *_get_m_ln10_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 579) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 580) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 581)
868b2b66 (kx 2024-12-20 16:11:07 +0300 582) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 583) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 584) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 585) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 586) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 587) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 588) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 589)
868b2b66 (kx 2024-12-20 16:11:07 +0300 590) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 591) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 592) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 593) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 594) rc = (EMUSHORT *)&_ei_m_ln10_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 595) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 596) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 597) rc = (EMUSHORT *)&_ei_m_ln10_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 598) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 599) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 600) rc = (EMUSHORT *)&_ei_m_ln10_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 601) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 602) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 603) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 604) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 605) rc = (EMUSHORT *)&_ei_m_ln10_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 606) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 607) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 608) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 609) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 610) rc = (EMUSHORT *)&_ei_m_ln10_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 611) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 612) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 613) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 614) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 615) rc = (EMUSHORT *)&_ei_m_ln10_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 616) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 617) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 618) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 619) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 620) rc = (EMUSHORT *)&_ei_m_ln10_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 621) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 622) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 623) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 624) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 625) rc = (EMUSHORT *)&_ei_m_ln10_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 626) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 627) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 628) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 629) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 630) rc = (EMUSHORT *)&_ei_m_ln10_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 631) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 632) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 633) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 634) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 635) rc = (EMUSHORT *)&_ei_m_ln10_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 636) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 637) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 638) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 639) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 640) rc = (EMUSHORT *)&_ei_m_ln10_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 641) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 642) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 643) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 644) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 645) rc = (EMUSHORT *)&_ei_m_ln10_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 646) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 647) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 648)
868b2b66 (kx 2024-12-20 16:11:07 +0300 649) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 650) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 651) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 652) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 653) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 654) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 655) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 656)
868b2b66 (kx 2024-12-20 16:11:07 +0300 657) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 658)
868b2b66 (kx 2024-12-20 16:11:07 +0300 659) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 660)
868b2b66 (kx 2024-12-20 16:11:07 +0300 661) } /* End of _get_m_ln10_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 662)
868b2b66 (kx 2024-12-20 16:11:07 +0300 663)
868b2b66 (kx 2024-12-20 16:11:07 +0300 664) EMUSHORT *_get_m_1_lg2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 665) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 666) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 667)
868b2b66 (kx 2024-12-20 16:11:07 +0300 668) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 669) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 670) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 671) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 672) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 673) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 674) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 675)
868b2b66 (kx 2024-12-20 16:11:07 +0300 676) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 677) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 678) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 679) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 680) rc = (EMUSHORT *)&_ei_m_1_lg2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 681) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 682) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 683) rc = (EMUSHORT *)&_ei_m_1_lg2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 684) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 685) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 686) rc = (EMUSHORT *)&_ei_m_1_lg2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 687) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 688) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 689) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 690) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 691) rc = (EMUSHORT *)&_ei_m_1_lg2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 692) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 693) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 694) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 695) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 696) rc = (EMUSHORT *)&_ei_m_1_lg2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 697) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 698) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 699) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 700) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 701) rc = (EMUSHORT *)&_ei_m_1_lg2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 702) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 703) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 704) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 705) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 706) rc = (EMUSHORT *)&_ei_m_1_lg2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 707) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 708) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 709) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 710) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 711) rc = (EMUSHORT *)&_ei_m_1_lg2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 712) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 713) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 714) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 715) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 716) rc = (EMUSHORT *)&_ei_m_1_lg2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 717) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 718) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 719) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 720) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 721) rc = (EMUSHORT *)&_ei_m_1_lg2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 722) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 723) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 724) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 725) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 726) rc = (EMUSHORT *)&_ei_m_1_lg2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 727) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 728) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 729) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 730) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 731) rc = (EMUSHORT *)&_ei_m_1_lg2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 732) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 733) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 734)
868b2b66 (kx 2024-12-20 16:11:07 +0300 735) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 736) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 737) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 738) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 739) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 740) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 741) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 742)
868b2b66 (kx 2024-12-20 16:11:07 +0300 743) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 744)
868b2b66 (kx 2024-12-20 16:11:07 +0300 745) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 746)
868b2b66 (kx 2024-12-20 16:11:07 +0300 747) } /* End of _get_m_1_lg2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 748)
868b2b66 (kx 2024-12-20 16:11:07 +0300 749)
868b2b66 (kx 2024-12-20 16:11:07 +0300 750) EMUSHORT *_get_m_lg2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 751) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 752) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 753)
868b2b66 (kx 2024-12-20 16:11:07 +0300 754) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 755) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 756) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 757) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 758) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 759) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 760) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 761)
868b2b66 (kx 2024-12-20 16:11:07 +0300 762) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 763) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 764) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 765) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 766) rc = (EMUSHORT *)&_ei_m_lg2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 767) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 768) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 769) rc = (EMUSHORT *)&_ei_m_lg2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 770) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 771) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 772) rc = (EMUSHORT *)&_ei_m_lg2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 773) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 774) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 775) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 776) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 777) rc = (EMUSHORT *)&_ei_m_lg2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 778) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 779) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 780) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 781) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 782) rc = (EMUSHORT *)&_ei_m_lg2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 783) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 784) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 785) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 786) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 787) rc = (EMUSHORT *)&_ei_m_lg2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 788) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 789) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 790) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 791) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 792) rc = (EMUSHORT *)&_ei_m_lg2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 793) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 794) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 795) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 796) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 797) rc = (EMUSHORT *)&_ei_m_lg2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 798) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 799) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 800) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 801) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 802) rc = (EMUSHORT *)&_ei_m_lg2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 803) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 804) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 805) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 806) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 807) rc = (EMUSHORT *)&_ei_m_lg2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 808) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 809) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 810) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 811) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 812) rc = (EMUSHORT *)&_ei_m_lg2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 813) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 814) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 815) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 816) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 817) rc = (EMUSHORT *)&_ei_m_lg2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 818) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 819) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 820)
868b2b66 (kx 2024-12-20 16:11:07 +0300 821) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 822) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 823) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 824) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 825) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 826) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 827) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 828)
868b2b66 (kx 2024-12-20 16:11:07 +0300 829) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 830)
868b2b66 (kx 2024-12-20 16:11:07 +0300 831) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 832)
868b2b66 (kx 2024-12-20 16:11:07 +0300 833) } /* End of _get_m_lg2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 834)
868b2b66 (kx 2024-12-20 16:11:07 +0300 835)
868b2b66 (kx 2024-12-20 16:11:07 +0300 836) EMUSHORT *_get_m_pi_2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 837) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 838) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 839)
868b2b66 (kx 2024-12-20 16:11:07 +0300 840) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 841) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 842) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 843) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 844) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 845) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 846) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 847)
868b2b66 (kx 2024-12-20 16:11:07 +0300 848) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 849) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 850) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 851) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 852) rc = (EMUSHORT *)&_ei_m_pi_2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 853) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 854) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 855) rc = (EMUSHORT *)&_ei_m_pi_2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 856) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 857) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 858) rc = (EMUSHORT *)&_ei_m_pi_2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 859) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 860) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 861) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 862) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 863) rc = (EMUSHORT *)&_ei_m_pi_2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 864) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 865) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 866) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 867) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 868) rc = (EMUSHORT *)&_ei_m_pi_2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 869) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 870) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 871) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 872) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 873) rc = (EMUSHORT *)&_ei_m_pi_2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 874) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 875) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 876) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 877) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 878) rc = (EMUSHORT *)&_ei_m_pi_2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 879) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 880) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 881) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 882) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 883) rc = (EMUSHORT *)&_ei_m_pi_2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 884) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 885) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 886) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 887) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 888) rc = (EMUSHORT *)&_ei_m_pi_2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 889) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 890) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 891) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 892) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 893) rc = (EMUSHORT *)&_ei_m_pi_2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 894) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 895) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 896) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 897) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 898) rc = (EMUSHORT *)&_ei_m_pi_2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 899) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 900) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 901) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 902) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 903) rc = (EMUSHORT *)&_ei_m_pi_2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 904) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 905) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 906)
868b2b66 (kx 2024-12-20 16:11:07 +0300 907) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 908) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 909) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 910) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 911) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 912) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 913) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 914)
868b2b66 (kx 2024-12-20 16:11:07 +0300 915) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 916)
868b2b66 (kx 2024-12-20 16:11:07 +0300 917) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 918)
868b2b66 (kx 2024-12-20 16:11:07 +0300 919) } /* End of _get_m_pi_2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 920)
868b2b66 (kx 2024-12-20 16:11:07 +0300 921)
868b2b66 (kx 2024-12-20 16:11:07 +0300 922) EMUSHORT *_get_m_pi_3_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 923) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 924) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 925)
868b2b66 (kx 2024-12-20 16:11:07 +0300 926) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 927) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 928) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 929) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 930) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 931) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 932) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 933)
868b2b66 (kx 2024-12-20 16:11:07 +0300 934) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 935) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 936) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 937) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 938) rc = (EMUSHORT *)&_ei_m_pi_3_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 939) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 940) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 941) rc = (EMUSHORT *)&_ei_m_pi_3_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 942) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 943) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 944) rc = (EMUSHORT *)&_ei_m_pi_3_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 945) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 946) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 947) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 948) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 949) rc = (EMUSHORT *)&_ei_m_pi_3_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 950) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 951) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 952) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 953) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 954) rc = (EMUSHORT *)&_ei_m_pi_3_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 955) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 956) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 957) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 958) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 959) rc = (EMUSHORT *)&_ei_m_pi_3_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 960) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 961) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 962) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 963) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 964) rc = (EMUSHORT *)&_ei_m_pi_3_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 965) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 966) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 967) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 968) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 969) rc = (EMUSHORT *)&_ei_m_pi_3_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 970) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 971) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 972) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 973) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 974) rc = (EMUSHORT *)&_ei_m_pi_3_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 975) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 976) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 977) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 978) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 979) rc = (EMUSHORT *)&_ei_m_pi_3_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 980) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 981) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 982) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 983) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 984) rc = (EMUSHORT *)&_ei_m_pi_3_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 985) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 986) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 987) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 988) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 989) rc = (EMUSHORT *)&_ei_m_pi_3_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 990) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 991) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 992)
868b2b66 (kx 2024-12-20 16:11:07 +0300 993) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 994) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 995) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 996) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 997) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 998) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 999) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1000)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1001) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1002)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1003) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1004)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1005) } /* End of _get_m_pi_3_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1006)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1007)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1008) EMUSHORT *_get_m_pi_4_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1009) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1010) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1011)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1012) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1013) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1014) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1015) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1016) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1017) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1018) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1019)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1020) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1021) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1022) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1023) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1024) rc = (EMUSHORT *)&_ei_m_pi_4_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1025) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1026) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1027) rc = (EMUSHORT *)&_ei_m_pi_4_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1028) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1029) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1030) rc = (EMUSHORT *)&_ei_m_pi_4_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1031) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1032) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1033) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1034) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1035) rc = (EMUSHORT *)&_ei_m_pi_4_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1036) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1037) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1038) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1039) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1040) rc = (EMUSHORT *)&_ei_m_pi_4_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1041) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1042) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1043) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1044) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1045) rc = (EMUSHORT *)&_ei_m_pi_4_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1046) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1047) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1048) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1049) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1050) rc = (EMUSHORT *)&_ei_m_pi_4_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1051) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1052) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1053) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1054) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1055) rc = (EMUSHORT *)&_ei_m_pi_4_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1056) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1057) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1058) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1059) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1060) rc = (EMUSHORT *)&_ei_m_pi_4_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1061) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1062) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1063) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1064) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1065) rc = (EMUSHORT *)&_ei_m_pi_4_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1066) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1067) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1068) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1069) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1070) rc = (EMUSHORT *)&_ei_m_pi_4_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1071) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1072) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1073) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1074) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1075) rc = (EMUSHORT *)&_ei_m_pi_4_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1076) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1077) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1078)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1079) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1080) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1081) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1082) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1083) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1084) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1085) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1086)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1087) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1088)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1089) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1090)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1091) } /* End of _get_m_pi_4_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1092)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1093)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1094) EMUSHORT *_get_m_pi_5_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1095) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1096) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1097)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1098) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1099) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1100) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1101) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1102) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1103) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1104) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1105)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1106) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1107) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1108) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1109) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1110) rc = (EMUSHORT *)&_ei_m_pi_5_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1111) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1112) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1113) rc = (EMUSHORT *)&_ei_m_pi_5_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1114) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1115) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1116) rc = (EMUSHORT *)&_ei_m_pi_5_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1117) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1118) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1119) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1120) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1121) rc = (EMUSHORT *)&_ei_m_pi_5_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1122) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1123) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1124) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1125) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1126) rc = (EMUSHORT *)&_ei_m_pi_5_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1127) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1128) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1129) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1130) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1131) rc = (EMUSHORT *)&_ei_m_pi_5_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1132) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1133) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1134) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1135) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1136) rc = (EMUSHORT *)&_ei_m_pi_5_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1137) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1138) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1139) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1140) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1141) rc = (EMUSHORT *)&_ei_m_pi_5_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1142) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1143) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1144) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1145) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1146) rc = (EMUSHORT *)&_ei_m_pi_5_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1147) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1148) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1149) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1150) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1151) rc = (EMUSHORT *)&_ei_m_pi_5_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1152) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1153) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1154) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1155) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1156) rc = (EMUSHORT *)&_ei_m_pi_5_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1157) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1158) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1159) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1160) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1161) rc = (EMUSHORT *)&_ei_m_pi_5_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1162) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1163) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1164)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1165) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1166) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1167) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1168) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1169) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1170) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1171) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1172)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1173) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1174)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1175) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1176)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1177) } /* End of _get_m_pi_5_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1178)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1179)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1180) EMUSHORT *_get_m_pi_6_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1181) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1182) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1183)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1184) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1185) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1186) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1187) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1188) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1189) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1190) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1191)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1192) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1193) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1194) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1195) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1196) rc = (EMUSHORT *)&_ei_m_pi_6_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1197) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1198) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1199) rc = (EMUSHORT *)&_ei_m_pi_6_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1200) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1201) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1202) rc = (EMUSHORT *)&_ei_m_pi_6_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1203) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1204) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1205) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1206) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1207) rc = (EMUSHORT *)&_ei_m_pi_6_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1208) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1209) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1210) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1211) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1212) rc = (EMUSHORT *)&_ei_m_pi_6_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1213) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1214) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1215) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1216) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1217) rc = (EMUSHORT *)&_ei_m_pi_6_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1218) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1219) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1220) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1221) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1222) rc = (EMUSHORT *)&_ei_m_pi_6_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1223) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1224) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1225) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1226) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1227) rc = (EMUSHORT *)&_ei_m_pi_6_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1228) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1229) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1230) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1231) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1232) rc = (EMUSHORT *)&_ei_m_pi_6_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1233) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1234) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1235) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1236) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1237) rc = (EMUSHORT *)&_ei_m_pi_6_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1238) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1239) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1240) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1241) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1242) rc = (EMUSHORT *)&_ei_m_pi_6_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1243) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1244) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1245) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1246) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1247) rc = (EMUSHORT *)&_ei_m_pi_6_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1248) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1249) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1250)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1251) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1252) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1253) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1254) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1255) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1256) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1257) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1258)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1259) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1260)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1261) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1262)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1263) } /* End of _get_m_pi_6_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1264)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1265)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1266) EMUSHORT *_get_m_1_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1267) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1268) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1269)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1270) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1271) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1272) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1273) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1274) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1275) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1276) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1277)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1278) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1279) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1280) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1281) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1282) rc = (EMUSHORT *)&_ei_m_1_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1283) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1284) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1285) rc = (EMUSHORT *)&_ei_m_1_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1286) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1287) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1288) rc = (EMUSHORT *)&_ei_m_1_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1289) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1290) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1291) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1292) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1293) rc = (EMUSHORT *)&_ei_m_1_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1294) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1295) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1296) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1297) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1298) rc = (EMUSHORT *)&_ei_m_1_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1299) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1300) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1301) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1302) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1303) rc = (EMUSHORT *)&_ei_m_1_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1304) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1305) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1306) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1307) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1308) rc = (EMUSHORT *)&_ei_m_1_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1309) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1310) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1311) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1312) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1313) rc = (EMUSHORT *)&_ei_m_1_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1314) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1315) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1316) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1317) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1318) rc = (EMUSHORT *)&_ei_m_1_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1319) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1320) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1321) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1322) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1323) rc = (EMUSHORT *)&_ei_m_1_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1324) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1325) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1326) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1327) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1328) rc = (EMUSHORT *)&_ei_m_1_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1329) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1330) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1331) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1332) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1333) rc = (EMUSHORT *)&_ei_m_1_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1334) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1335) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1336)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1337) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1338) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1339) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1340) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1341) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1342) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1343) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1344)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1345) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1346)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1347) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1348)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1349) } /* End of _get_m_1_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1350)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1351)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1352) EMUSHORT *_get_m_2_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1353) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1354) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1355)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1356) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1357) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1358) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1359) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1360) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1361) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1362) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1363)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1364) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1365) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1366) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1367) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1368) rc = (EMUSHORT *)&_ei_m_2_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1369) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1370) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1371) rc = (EMUSHORT *)&_ei_m_2_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1372) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1373) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1374) rc = (EMUSHORT *)&_ei_m_2_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1375) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1376) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1377) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1378) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1379) rc = (EMUSHORT *)&_ei_m_2_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1380) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1381) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1382) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1383) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1384) rc = (EMUSHORT *)&_ei_m_2_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1385) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1386) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1387) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1388) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1389) rc = (EMUSHORT *)&_ei_m_2_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1390) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1391) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1392) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1393) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1394) rc = (EMUSHORT *)&_ei_m_2_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1395) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1396) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1397) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1398) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1399) rc = (EMUSHORT *)&_ei_m_2_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1400) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1401) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1402) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1403) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1404) rc = (EMUSHORT *)&_ei_m_2_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1405) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1406) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1407) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1408) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1409) rc = (EMUSHORT *)&_ei_m_2_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1410) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1411) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1412) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1413) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1414) rc = (EMUSHORT *)&_ei_m_2_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1415) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1416) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1417) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1418) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1419) rc = (EMUSHORT *)&_ei_m_2_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1420) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1421) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1422)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1423) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1424) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1425) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1426) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1427) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1428) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1429) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1430)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1431) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1432)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1433) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1434)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1435) } /* End of _get_m_2_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1436)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1437)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1438) EMUSHORT *_get_m_3_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1439) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1440) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1441)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1442) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1443) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1444) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1445) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1446) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1447) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1448) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1449)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1450) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1451) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1452) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1453) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1454) rc = (EMUSHORT *)&_ei_m_3_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1455) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1456) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1457) rc = (EMUSHORT *)&_ei_m_3_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1458) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1459) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1460) rc = (EMUSHORT *)&_ei_m_3_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1461) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1462) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1463) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1464) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1465) rc = (EMUSHORT *)&_ei_m_3_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1466) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1467) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1468) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1469) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1470) rc = (EMUSHORT *)&_ei_m_3_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1471) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1472) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1473) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1474) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1475) rc = (EMUSHORT *)&_ei_m_3_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1476) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1477) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1478) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1479) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1480) rc = (EMUSHORT *)&_ei_m_3_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1481) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1482) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1483) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1484) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1485) rc = (EMUSHORT *)&_ei_m_3_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1486) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1487) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1488) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1489) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1490) rc = (EMUSHORT *)&_ei_m_3_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1491) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1492) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1493) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1494) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1495) rc = (EMUSHORT *)&_ei_m_3_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1496) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1497) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1498) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1499) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1500) rc = (EMUSHORT *)&_ei_m_3_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1501) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1502) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1503) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1504) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1505) rc = (EMUSHORT *)&_ei_m_3_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1506) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1507) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1508)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1509) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1510) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1511) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1512) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1513) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1514) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1515) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1516)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1517) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1518)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1519) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1520)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1521) } /* End of _get_m_3_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1522)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1523)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1524) EMUSHORT *_get_m_4_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1525) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1526) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1527)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1528) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1529) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1530) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1531) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1532) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1533) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1534) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1535)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1536) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1537) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1538) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1539) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1540) rc = (EMUSHORT *)&_ei_m_4_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1541) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1542) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1543) rc = (EMUSHORT *)&_ei_m_4_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1544) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1545) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1546) rc = (EMUSHORT *)&_ei_m_4_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1547) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1548) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1549) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1550) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1551) rc = (EMUSHORT *)&_ei_m_4_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1552) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1553) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1554) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1555) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1556) rc = (EMUSHORT *)&_ei_m_4_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1557) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1558) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1559) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1560) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1561) rc = (EMUSHORT *)&_ei_m_4_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1562) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1563) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1564) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1565) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1566) rc = (EMUSHORT *)&_ei_m_4_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1567) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1568) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1569) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1570) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1571) rc = (EMUSHORT *)&_ei_m_4_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1572) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1573) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1574) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1575) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1576) rc = (EMUSHORT *)&_ei_m_4_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1577) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1578) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1579) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1580) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1581) rc = (EMUSHORT *)&_ei_m_4_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1582) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1583) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1584) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1585) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1586) rc = (EMUSHORT *)&_ei_m_4_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1587) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1588) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1589) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1590) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1591) rc = (EMUSHORT *)&_ei_m_4_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1592) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1593) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1594)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1595) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1596) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1597) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1598) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1599) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1600) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1601) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1602)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1603) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1604)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1605) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1606)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1607) } /* End of _get_m_4_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1608)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1609)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1610) EMUSHORT *_get_m_5_pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1611) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1612) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1613)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1614) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1615) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1616) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1617) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1618) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1619) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1620) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1621)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1622) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1623) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1624) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1625) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1626) rc = (EMUSHORT *)&_ei_m_5_pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1627) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1628) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1629) rc = (EMUSHORT *)&_ei_m_5_pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1630) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1631) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1632) rc = (EMUSHORT *)&_ei_m_5_pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1633) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1634) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1635) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1636) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1637) rc = (EMUSHORT *)&_ei_m_5_pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1638) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1639) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1640) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1641) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1642) rc = (EMUSHORT *)&_ei_m_5_pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1643) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1644) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1645) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1646) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1647) rc = (EMUSHORT *)&_ei_m_5_pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1648) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1649) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1650) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1651) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1652) rc = (EMUSHORT *)&_ei_m_5_pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1653) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1654) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1655) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1656) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1657) rc = (EMUSHORT *)&_ei_m_5_pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1658) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1659) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1660) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1661) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1662) rc = (EMUSHORT *)&_ei_m_5_pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1663) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1664) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1665) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1666) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1667) rc = (EMUSHORT *)&_ei_m_5_pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1668) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1669) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1670) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1671) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1672) rc = (EMUSHORT *)&_ei_m_5_pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1673) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1674) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1675) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1676) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1677) rc = (EMUSHORT *)&_ei_m_5_pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1678) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1679) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1680)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1681) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1682) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1683) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1684) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1685) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1686) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1687) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1688)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1689) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1690)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1691) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1692)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1693) } /* End of _get_m_5_pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1694)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1695)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1696) EMUSHORT *_get_m_2pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1697) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1698) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1699)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1700) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1701) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1702) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1703) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1704) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1705) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1706) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1707)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1708) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1709) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1710) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1711) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1712) rc = (EMUSHORT *)&_ei_m_2pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1713) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1714) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1715) rc = (EMUSHORT *)&_ei_m_2pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1716) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1717) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1718) rc = (EMUSHORT *)&_ei_m_2pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1719) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1720) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1721) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1722) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1723) rc = (EMUSHORT *)&_ei_m_2pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1724) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1725) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1726) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1727) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1728) rc = (EMUSHORT *)&_ei_m_2pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1729) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1730) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1731) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1732) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1733) rc = (EMUSHORT *)&_ei_m_2pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1734) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1735) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1736) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1737) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1738) rc = (EMUSHORT *)&_ei_m_2pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1739) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1740) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1741) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1742) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1743) rc = (EMUSHORT *)&_ei_m_2pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1744) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1745) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1746) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1747) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1748) rc = (EMUSHORT *)&_ei_m_2pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1749) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1750) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1751) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1752) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1753) rc = (EMUSHORT *)&_ei_m_2pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1754) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1755) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1756) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1757) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1758) rc = (EMUSHORT *)&_ei_m_2pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1759) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1760) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1761) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1762) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1763) rc = (EMUSHORT *)&_ei_m_2pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1764) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1765) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1766)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1767) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1768) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1769) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1770) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1771) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1772) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1773) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1774)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1775) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1776)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1777) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1778)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1779) } /* End of _get_m_2pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1780)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1781)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1782) EMUSHORT *_get_m_3pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1783) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1784) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1785)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1786) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1787) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1788) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1789) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1790) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1791) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1792) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1793)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1794) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1795) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1796) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1797) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1798) rc = (EMUSHORT *)&_ei_m_3pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1799) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1800) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1801) rc = (EMUSHORT *)&_ei_m_3pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1802) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1803) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1804) rc = (EMUSHORT *)&_ei_m_3pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1805) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1806) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1807) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1808) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1809) rc = (EMUSHORT *)&_ei_m_3pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1810) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1811) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1812) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1813) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1814) rc = (EMUSHORT *)&_ei_m_3pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1815) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1816) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1817) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1818) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1819) rc = (EMUSHORT *)&_ei_m_3pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1820) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1821) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1822) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1823) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1824) rc = (EMUSHORT *)&_ei_m_3pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1825) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1826) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1827) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1828) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1829) rc = (EMUSHORT *)&_ei_m_3pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1830) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1831) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1832) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1833) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1834) rc = (EMUSHORT *)&_ei_m_3pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1835) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1836) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1837) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1838) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1839) rc = (EMUSHORT *)&_ei_m_3pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1840) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1841) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1842) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1843) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1844) rc = (EMUSHORT *)&_ei_m_3pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1845) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1846) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1847) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1848) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1849) rc = (EMUSHORT *)&_ei_m_3pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1850) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1851) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1852)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1853) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1854) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1855) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1856) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1857) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1858) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1859) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1860)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1861) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1862)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1863) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1864)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1865) } /* End of _get_m_3pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1866)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1867)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1868) EMUSHORT *_get_m_1_2pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1869) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1870) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1871)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1872) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1873) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1874) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1875) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1876) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1877) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1878) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1879)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1880) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1881) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1882) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1883) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1884) rc = (EMUSHORT *)&_ei_m_1_2pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1885) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1886) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1887) rc = (EMUSHORT *)&_ei_m_1_2pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1888) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1889) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1890) rc = (EMUSHORT *)&_ei_m_1_2pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1891) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1892) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1893) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1894) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1895) rc = (EMUSHORT *)&_ei_m_1_2pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1896) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1897) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1898) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1899) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1900) rc = (EMUSHORT *)&_ei_m_1_2pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1901) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1902) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1903) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1904) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1905) rc = (EMUSHORT *)&_ei_m_1_2pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1906) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1907) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1908) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1909) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1910) rc = (EMUSHORT *)&_ei_m_1_2pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1911) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1912) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1913) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 1914) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1915) rc = (EMUSHORT *)&_ei_m_1_2pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1916) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1917) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1918) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 1919) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1920) rc = (EMUSHORT *)&_ei_m_1_2pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1921) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1922) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1923) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 1924) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1925) rc = (EMUSHORT *)&_ei_m_1_2pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1926) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1927) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1928) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 1929) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1930) rc = (EMUSHORT *)&_ei_m_1_2pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1931) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1932) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1933) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 1934) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1935) rc = (EMUSHORT *)&_ei_m_1_2pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1936) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1937) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1938)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1939) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 1940) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1941) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1942) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1943) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1944) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1945) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1946)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1947) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1948)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1949) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1950)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1951) } /* End of _get_m_1_2pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1952)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1953)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1954) EMUSHORT *_get_m_1_3pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1955) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1956) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1957)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1958) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1959) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1960) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1961) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1962) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1963) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 1964) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 1965)
868b2b66 (kx 2024-12-20 16:11:07 +0300 1966) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 1967) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 1968) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 1969) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1970) rc = (EMUSHORT *)&_ei_m_1_3pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1971) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1972) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1973) rc = (EMUSHORT *)&_ei_m_1_3pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1974) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1975) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1976) rc = (EMUSHORT *)&_ei_m_1_3pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1977) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1978) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1979) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 1980) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1981) rc = (EMUSHORT *)&_ei_m_1_3pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1982) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1983) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1984) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 1985) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1986) rc = (EMUSHORT *)&_ei_m_1_3pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1987) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1988) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1989) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 1990) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1991) rc = (EMUSHORT *)&_ei_m_1_3pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1992) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1993) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1994) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 1995) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 1996) rc = (EMUSHORT *)&_ei_m_1_3pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 1997) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 1998) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 1999) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2000) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2001) rc = (EMUSHORT *)&_ei_m_1_3pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2002) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2003) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2004) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2005) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2006) rc = (EMUSHORT *)&_ei_m_1_3pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2007) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2008) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2009) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2010) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2011) rc = (EMUSHORT *)&_ei_m_1_3pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2012) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2013) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2014) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2015) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2016) rc = (EMUSHORT *)&_ei_m_1_3pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2017) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2018) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2019) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2020) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2021) rc = (EMUSHORT *)&_ei_m_1_3pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2022) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2023) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2024)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2025) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2026) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2027) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2028) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2029) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2030) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2031) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2032)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2033) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2034)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2035) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2036)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2037) } /* End of _get_m_1_3pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2038)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2039)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2040) EMUSHORT *_get_m_1_4pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2041) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2042) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2043)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2044) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2045) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2046) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2047) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2048) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2049) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2050) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2051)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2052) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2053) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2054) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2055) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2056) rc = (EMUSHORT *)&_ei_m_1_4pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2057) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2058) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2059) rc = (EMUSHORT *)&_ei_m_1_4pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2060) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2061) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2062) rc = (EMUSHORT *)&_ei_m_1_4pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2063) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2064) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2065) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2066) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2067) rc = (EMUSHORT *)&_ei_m_1_4pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2068) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2069) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2070) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2071) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2072) rc = (EMUSHORT *)&_ei_m_1_4pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2073) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2074) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2075) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2076) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2077) rc = (EMUSHORT *)&_ei_m_1_4pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2078) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2079) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2080) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2081) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2082) rc = (EMUSHORT *)&_ei_m_1_4pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2083) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2084) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2085) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2086) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2087) rc = (EMUSHORT *)&_ei_m_1_4pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2088) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2089) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2090) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2091) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2092) rc = (EMUSHORT *)&_ei_m_1_4pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2093) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2094) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2095) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2096) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2097) rc = (EMUSHORT *)&_ei_m_1_4pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2098) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2099) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2100) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2101) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2102) rc = (EMUSHORT *)&_ei_m_1_4pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2103) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2104) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2105) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2106) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2107) rc = (EMUSHORT *)&_ei_m_1_4pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2108) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2109) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2110)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2111) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2112) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2113) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2114) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2115) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2116) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2117) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2118)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2119) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2120)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2121) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2122)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2123) } /* End of _get_m_1_4pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2124)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2125)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2126) EMUSHORT *_get_m_1_5pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2127) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2128) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2129)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2130) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2131) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2132) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2133) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2134) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2135) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2136) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2137)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2138) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2139) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2140) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2141) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2142) rc = (EMUSHORT *)&_ei_m_1_5pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2143) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2144) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2145) rc = (EMUSHORT *)&_ei_m_1_5pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2146) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2147) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2148) rc = (EMUSHORT *)&_ei_m_1_5pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2149) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2150) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2151) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2152) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2153) rc = (EMUSHORT *)&_ei_m_1_5pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2154) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2155) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2156) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2157) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2158) rc = (EMUSHORT *)&_ei_m_1_5pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2159) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2160) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2161) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2162) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2163) rc = (EMUSHORT *)&_ei_m_1_5pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2164) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2165) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2166) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2167) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2168) rc = (EMUSHORT *)&_ei_m_1_5pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2169) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2170) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2171) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2172) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2173) rc = (EMUSHORT *)&_ei_m_1_5pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2174) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2175) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2176) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2177) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2178) rc = (EMUSHORT *)&_ei_m_1_5pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2179) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2180) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2181) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2182) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2183) rc = (EMUSHORT *)&_ei_m_1_5pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2184) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2185) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2186) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2187) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2188) rc = (EMUSHORT *)&_ei_m_1_5pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2189) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2190) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2191) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2192) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2193) rc = (EMUSHORT *)&_ei_m_1_5pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2194) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2195) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2196)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2197) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2198) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2199) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2200) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2201) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2202) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2203) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2204)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2205) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2206)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2207) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2208)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2209) } /* End of _get_m_1_5pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2210)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2211)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2212) EMUSHORT *_get_m_1_6pi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2213) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2214) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2215)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2216) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2217) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2218) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2219) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2220) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2221) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2222) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2223)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2224) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2225) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2226) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2227) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2228) rc = (EMUSHORT *)&_ei_m_1_6pi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2229) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2230) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2231) rc = (EMUSHORT *)&_ei_m_1_6pi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2232) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2233) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2234) rc = (EMUSHORT *)&_ei_m_1_6pi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2235) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2236) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2237) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2238) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2239) rc = (EMUSHORT *)&_ei_m_1_6pi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2240) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2241) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2242) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2243) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2244) rc = (EMUSHORT *)&_ei_m_1_6pi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2245) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2246) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2247) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2248) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2249) rc = (EMUSHORT *)&_ei_m_1_6pi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2250) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2251) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2252) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2253) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2254) rc = (EMUSHORT *)&_ei_m_1_6pi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2255) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2256) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2257) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2258) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2259) rc = (EMUSHORT *)&_ei_m_1_6pi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2260) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2261) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2262) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2263) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2264) rc = (EMUSHORT *)&_ei_m_1_6pi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2265) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2266) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2267) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2268) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2269) rc = (EMUSHORT *)&_ei_m_1_6pi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2270) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2271) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2272) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2273) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2274) rc = (EMUSHORT *)&_ei_m_1_6pi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2275) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2276) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2277) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2278) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2279) rc = (EMUSHORT *)&_ei_m_1_6pi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2280) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2281) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2282)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2283) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2284) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2285) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2286) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2287) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2288) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2289) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2290)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2291) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2292)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2293) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2294)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2295) } /* End of _get_m_1_6pi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2296)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2297)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2298) EMUSHORT *_get_m_3pi_4_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2299) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2300) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2301)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2302) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2303) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2304) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2305) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2306) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2307) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2308) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2309)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2310) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2311) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2312) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2313) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2314) rc = (EMUSHORT *)&_ei_m_3pi_4_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2315) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2316) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2317) rc = (EMUSHORT *)&_ei_m_3pi_4_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2318) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2319) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2320) rc = (EMUSHORT *)&_ei_m_3pi_4_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2321) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2322) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2323) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2324) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2325) rc = (EMUSHORT *)&_ei_m_3pi_4_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2326) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2327) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2328) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2329) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2330) rc = (EMUSHORT *)&_ei_m_3pi_4_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2331) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2332) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2333) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2334) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2335) rc = (EMUSHORT *)&_ei_m_3pi_4_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2336) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2337) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2338) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2339) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2340) rc = (EMUSHORT *)&_ei_m_3pi_4_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2341) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2342) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2343) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2344) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2345) rc = (EMUSHORT *)&_ei_m_3pi_4_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2346) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2347) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2348) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2349) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2350) rc = (EMUSHORT *)&_ei_m_3pi_4_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2351) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2352) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2353) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2354) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2355) rc = (EMUSHORT *)&_ei_m_3pi_4_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2356) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2357) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2358) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2359) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2360) rc = (EMUSHORT *)&_ei_m_3pi_4_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2361) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2362) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2363) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2364) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2365) rc = (EMUSHORT *)&_ei_m_3pi_4_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2366) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2367) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2368)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2369) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2370) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2371) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2372) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2373) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2374) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2375) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2376)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2377) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2378)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2379) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2380)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2381) } /* End of _get_m_3pi_4_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2382)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2383)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2384) EMUSHORT *_get_m_sqrtpi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2385) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2386) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2387)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2388) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2389) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2390) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2391) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2392) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2393) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2394) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2395)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2396) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2397) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2398) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2399) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2400) rc = (EMUSHORT *)&_ei_m_sqrtpi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2401) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2402) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2403) rc = (EMUSHORT *)&_ei_m_sqrtpi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2404) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2405) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2406) rc = (EMUSHORT *)&_ei_m_sqrtpi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2407) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2408) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2409) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2410) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2411) rc = (EMUSHORT *)&_ei_m_sqrtpi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2412) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2413) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2414) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2415) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2416) rc = (EMUSHORT *)&_ei_m_sqrtpi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2417) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2418) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2419) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2420) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2421) rc = (EMUSHORT *)&_ei_m_sqrtpi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2422) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2423) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2424) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2425) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2426) rc = (EMUSHORT *)&_ei_m_sqrtpi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2427) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2428) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2429) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2430) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2431) rc = (EMUSHORT *)&_ei_m_sqrtpi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2432) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2433) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2434) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2435) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2436) rc = (EMUSHORT *)&_ei_m_sqrtpi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2437) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2438) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2439) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2440) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2441) rc = (EMUSHORT *)&_ei_m_sqrtpi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2442) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2443) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2444) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2445) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2446) rc = (EMUSHORT *)&_ei_m_sqrtpi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2447) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2448) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2449) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2450) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2451) rc = (EMUSHORT *)&_ei_m_sqrtpi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2452) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2453) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2454)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2455) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2456) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2457) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2458) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2459) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2460) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2461) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2462)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2463) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2464)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2465) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2466)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2467) } /* End of _get_m_sqrtpi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2468)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2469)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2470) EMUSHORT *_get_m_1_sqrtpi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2471) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2472) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2473)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2474) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2475) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2476) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2477) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2478) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2479) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2480) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2481)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2482) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2483) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2484) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2485) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2486) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2487) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2488) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2489) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2490) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2491) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2492) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2493) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2494) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2495) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2496) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2497) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2498) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2499) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2500) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2501) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2502) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2503) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2504) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2505) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2506) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2507) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2508) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2509) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2510) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2511) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2512) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2513) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2514) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2515) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2516) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2517) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2518) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2519) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2520) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2521) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2522) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2523) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2524) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2525) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2526) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2527) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2528) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2529) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2530) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2531) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2532) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2533) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2534) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2535) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2536) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2537) rc = (EMUSHORT *)&_ei_m_1_sqrtpi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2538) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2539) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2540)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2541) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2542) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2543) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2544) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2545) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2546) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2547) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2548)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2549) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2550)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2551) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2552)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2553) } /* End of _get_m_1_sqrtpi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2554)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2555)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2556) EMUSHORT *_get_m_2_sqrtpi_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2557) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2558) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2559)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2560) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2561) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2562) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2563) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2564) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2565) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2566) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2567)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2568) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2569) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2570) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2571) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2572) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2573) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2574) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2575) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2576) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2577) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2578) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2579) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2580) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2581) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2582) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2583) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2584) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2585) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2586) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2587) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2588) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2589) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2590) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2591) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2592) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2593) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2594) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2595) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2596) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2597) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2598) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2599) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2600) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2601) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2602) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2603) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2604) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2605) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2606) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2607) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2608) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2609) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2610) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2611) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2612) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2613) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2614) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2615) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2616) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2617) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2618) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2619) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2620) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2621) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2622) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2623) rc = (EMUSHORT *)&_ei_m_2_sqrtpi_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2624) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2625) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2626)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2627) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2628) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2629) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2630) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2631) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2632) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2633) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2634)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2635) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2636)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2637) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2638)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2639) } /* End of _get_m_2_sqrtpi_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2640)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2641)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2642) EMUSHORT *_get_m_sqrt2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2643) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2644) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2645)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2646) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2647) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2648) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2649) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2650) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2651) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2652) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2653)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2654) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2655) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2656) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2657) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2658) rc = (EMUSHORT *)&_ei_m_sqrt2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2659) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2660) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2661) rc = (EMUSHORT *)&_ei_m_sqrt2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2662) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2663) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2664) rc = (EMUSHORT *)&_ei_m_sqrt2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2665) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2666) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2667) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2668) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2669) rc = (EMUSHORT *)&_ei_m_sqrt2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2670) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2671) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2672) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2673) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2674) rc = (EMUSHORT *)&_ei_m_sqrt2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2675) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2676) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2677) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2678) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2679) rc = (EMUSHORT *)&_ei_m_sqrt2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2680) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2681) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2682) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2683) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2684) rc = (EMUSHORT *)&_ei_m_sqrt2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2685) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2686) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2687) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2688) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2689) rc = (EMUSHORT *)&_ei_m_sqrt2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2690) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2691) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2692) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2693) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2694) rc = (EMUSHORT *)&_ei_m_sqrt2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2695) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2696) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2697) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2698) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2699) rc = (EMUSHORT *)&_ei_m_sqrt2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2700) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2701) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2702) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2703) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2704) rc = (EMUSHORT *)&_ei_m_sqrt2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2705) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2706) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2707) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2708) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2709) rc = (EMUSHORT *)&_ei_m_sqrt2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2710) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2711) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2712)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2713) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2714) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2715) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2716) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2717) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2718) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2719) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2720)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2721) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2722)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2723) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2724)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2725) } /* End of _get_m_sqrt2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2726)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2727)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2728) EMUSHORT *_get_m_1_sqrt2_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2729) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2730) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2731)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2732) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2733) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2734) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2735) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2736) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2737) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2738) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2739)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2740) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2741) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2742) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2743) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2744) rc = (EMUSHORT *)&_ei_m_1_sqrt2_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2745) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2746) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2747) rc = (EMUSHORT *)&_ei_m_1_sqrt2_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2748) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2749) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2750) rc = (EMUSHORT *)&_ei_m_1_sqrt2_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2751) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2752) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2753) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2754) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2755) rc = (EMUSHORT *)&_ei_m_1_sqrt2_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2756) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2757) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2758) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2759) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2760) rc = (EMUSHORT *)&_ei_m_1_sqrt2_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2761) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2762) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2763) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2764) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2765) rc = (EMUSHORT *)&_ei_m_1_sqrt2_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2766) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2767) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2768) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2769) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2770) rc = (EMUSHORT *)&_ei_m_1_sqrt2_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2771) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2772) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2773) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2774) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2775) rc = (EMUSHORT *)&_ei_m_1_sqrt2_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2776) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2777) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2778) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2779) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2780) rc = (EMUSHORT *)&_ei_m_1_sqrt2_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2781) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2782) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2783) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2784) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2785) rc = (EMUSHORT *)&_ei_m_1_sqrt2_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2786) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2787) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2788) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2789) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2790) rc = (EMUSHORT *)&_ei_m_1_sqrt2_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2791) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2792) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2793) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2794) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2795) rc = (EMUSHORT *)&_ei_m_1_sqrt2_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2796) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2797) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2798)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2799) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2800) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2801) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2802) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2803) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2804) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2805) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2806)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2807) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2808)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2809) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2810)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2811) } /* End of _get_m_1_sqrt2_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2812)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2813)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2814) EMUSHORT *_get_m_sqrt3_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2815) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2816) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2817)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2818) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2819) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2820) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2821) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2822) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2823) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2824) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2825)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2826) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2827) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2828) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2829) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2830) rc = (EMUSHORT *)&_ei_m_sqrt3_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2831) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2832) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2833) rc = (EMUSHORT *)&_ei_m_sqrt3_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2834) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2835) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2836) rc = (EMUSHORT *)&_ei_m_sqrt3_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2837) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2838) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2839) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2840) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2841) rc = (EMUSHORT *)&_ei_m_sqrt3_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2842) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2843) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2844) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2845) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2846) rc = (EMUSHORT *)&_ei_m_sqrt3_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2847) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2848) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2849) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2850) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2851) rc = (EMUSHORT *)&_ei_m_sqrt3_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2852) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2853) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2854) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2855) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2856) rc = (EMUSHORT *)&_ei_m_sqrt3_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2857) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2858) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2859) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2860) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2861) rc = (EMUSHORT *)&_ei_m_sqrt3_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2862) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2863) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2864) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2865) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2866) rc = (EMUSHORT *)&_ei_m_sqrt3_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2867) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2868) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2869) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2870) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2871) rc = (EMUSHORT *)&_ei_m_sqrt3_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2872) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2873) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2874) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2875) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2876) rc = (EMUSHORT *)&_ei_m_sqrt3_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2877) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2878) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2879) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2880) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2881) rc = (EMUSHORT *)&_ei_m_sqrt3_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2882) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2883) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2884)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2885) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2886) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2887) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2888) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2889) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2890) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2891) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2892)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2893) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2894)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2895) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2896)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2897) } /* End of _get_m_sqrt3_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2898)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2899)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2900) EMUSHORT *_get_m_1_sqrt3_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2901) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2902) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2903)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2904) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2905) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2906) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2907) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2908) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2909) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2910) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2911)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2912) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2913) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2914) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 2915) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2916) rc = (EMUSHORT *)&_ei_m_1_sqrt3_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2917) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2918) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2919) rc = (EMUSHORT *)&_ei_m_1_sqrt3_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2920) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2921) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2922) rc = (EMUSHORT *)&_ei_m_1_sqrt3_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2923) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2924) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2925) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 2926) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2927) rc = (EMUSHORT *)&_ei_m_1_sqrt3_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2928) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2929) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2930) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 2931) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2932) rc = (EMUSHORT *)&_ei_m_1_sqrt3_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2933) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2934) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2935) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 2936) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2937) rc = (EMUSHORT *)&_ei_m_1_sqrt3_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2938) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2939) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2940) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 2941) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2942) rc = (EMUSHORT *)&_ei_m_1_sqrt3_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2943) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2944) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2945) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 2946) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2947) rc = (EMUSHORT *)&_ei_m_1_sqrt3_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2948) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2949) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2950) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 2951) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 2952) rc = (EMUSHORT *)&_ei_m_1_sqrt3_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2953) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2954) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2955) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 2956) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2957) rc = (EMUSHORT *)&_ei_m_1_sqrt3_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2958) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2959) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2960) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 2961) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2962) rc = (EMUSHORT *)&_ei_m_1_sqrt3_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2963) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2964) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2965) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 2966) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2967) rc = (EMUSHORT *)&_ei_m_1_sqrt3_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 2968) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2969) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2970)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2971) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 2972) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2973) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2974) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2975) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2976) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2977) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2978)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2979) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2980)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2981) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2982)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2983) } /* End of _get_m_1_sqrt3_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2984)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2985)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2986) EMUSHORT *_get_m_degree_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2987) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2988) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2989)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2990) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2991) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 2992) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2993) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 2994) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 2995) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 2996) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 2997)
868b2b66 (kx 2024-12-20 16:11:07 +0300 2998) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 2999) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3000) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 3001) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3002) rc = (EMUSHORT *)&_ei_m_degree_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3003) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3004) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3005) rc = (EMUSHORT *)&_ei_m_degree_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3006) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3007) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3008) rc = (EMUSHORT *)&_ei_m_degree_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3009) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3010) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3011) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 3012) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3013) rc = (EMUSHORT *)&_ei_m_degree_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3014) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3015) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3016) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 3017) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3018) rc = (EMUSHORT *)&_ei_m_degree_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3019) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3020) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3021) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 3022) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3023) rc = (EMUSHORT *)&_ei_m_degree_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3024) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3025) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3026) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 3027) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3028) rc = (EMUSHORT *)&_ei_m_degree_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3029) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3030) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3031) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 3032) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3033) rc = (EMUSHORT *)&_ei_m_degree_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3034) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3035) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3036) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 3037) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3038) rc = (EMUSHORT *)&_ei_m_degree_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3039) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3040) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3041) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 3042) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3043) rc = (EMUSHORT *)&_ei_m_degree_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3044) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3045) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3046) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 3047) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3048) rc = (EMUSHORT *)&_ei_m_degree_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3049) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3050) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3051) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 3052) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3053) rc = (EMUSHORT *)&_ei_m_degree_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3054) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3055) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3056)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3057) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3058) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3059) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3060) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3061) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3062) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3063) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3064)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3065) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3066)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3067) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3068)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3069) } /* End of _get_m_degree_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3070)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3071)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3072) EMUSHORT *_get_m_1_degree_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3073) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3074) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3075)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3076) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3077) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3078) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3079) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3080) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3081) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3082) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3083)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3084) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3085) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3086) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 3087) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3088) rc = (EMUSHORT *)&_ei_m_1_degree_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3089) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3090) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3091) rc = (EMUSHORT *)&_ei_m_1_degree_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3092) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3093) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3094) rc = (EMUSHORT *)&_ei_m_1_degree_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3095) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3096) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3097) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 3098) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3099) rc = (EMUSHORT *)&_ei_m_1_degree_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3100) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3101) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3102) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 3103) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3104) rc = (EMUSHORT *)&_ei_m_1_degree_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3105) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3106) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3107) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 3108) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3109) rc = (EMUSHORT *)&_ei_m_1_degree_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3110) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3111) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3112) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 3113) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3114) rc = (EMUSHORT *)&_ei_m_1_degree_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3115) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3116) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3117) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 3118) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3119) rc = (EMUSHORT *)&_ei_m_1_degree_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3120) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3121) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3122) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 3123) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3124) rc = (EMUSHORT *)&_ei_m_1_degree_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3125) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3126) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3127) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 3128) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3129) rc = (EMUSHORT *)&_ei_m_1_degree_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3130) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3131) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3132) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 3133) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3134) rc = (EMUSHORT *)&_ei_m_1_degree_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3135) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3136) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3137) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 3138) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3139) rc = (EMUSHORT *)&_ei_m_1_degree_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3140) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3141) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3142)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3143) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3144) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3145) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3146) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3147) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3148) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3149) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3150)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3151) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3152)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3153) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3154)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3155) } /* End of _get_m_1_degree_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3156)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3157)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3158) EMUSHORT *_get_m_goldenratio_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3159) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3160) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3161)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3162) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3163) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3164) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3165) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3166) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3167) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3168) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3169)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3170) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3171) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3172) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 3173) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3174) rc = (EMUSHORT *)&_ei_m_goldenratio_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3175) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3176) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3177) rc = (EMUSHORT *)&_ei_m_goldenratio_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3178) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3179) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3180) rc = (EMUSHORT *)&_ei_m_goldenratio_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3181) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3182) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3183) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 3184) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3185) rc = (EMUSHORT *)&_ei_m_goldenratio_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3186) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3187) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3188) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 3189) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3190) rc = (EMUSHORT *)&_ei_m_goldenratio_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3191) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3192) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3193) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 3194) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3195) rc = (EMUSHORT *)&_ei_m_goldenratio_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3196) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3197) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3198) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 3199) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3200) rc = (EMUSHORT *)&_ei_m_goldenratio_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3201) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3202) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3203) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 3204) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3205) rc = (EMUSHORT *)&_ei_m_goldenratio_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3206) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3207) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3208) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 3209) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3210) rc = (EMUSHORT *)&_ei_m_goldenratio_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3211) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3212) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3213) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 3214) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3215) rc = (EMUSHORT *)&_ei_m_goldenratio_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3216) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3217) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3218) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 3219) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3220) rc = (EMUSHORT *)&_ei_m_goldenratio_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3221) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3222) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3223) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 3224) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3225) rc = (EMUSHORT *)&_ei_m_goldenratio_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3226) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3227) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3228)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3229) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3230) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3231) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3232) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3233) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3234) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3235) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3236)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3237) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3238)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3239) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3240)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3241) } /* End of _get_m_goldenratio_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3242)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3243)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3244) EMUSHORT *_get_m_eulergamma_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3245) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3246) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3247)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3248) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3249) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3250) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3251) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3252) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3253) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3254) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3255)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3256) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3257) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3258) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 3259) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3260) rc = (EMUSHORT *)&_ei_m_eulergamma_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3261) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3262) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3263) rc = (EMUSHORT *)&_ei_m_eulergamma_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3264) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3265) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3266) rc = (EMUSHORT *)&_ei_m_eulergamma_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3267) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3268) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3269) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 3270) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3271) rc = (EMUSHORT *)&_ei_m_eulergamma_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3272) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3273) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3274) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 3275) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3276) rc = (EMUSHORT *)&_ei_m_eulergamma_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3277) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3278) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3279) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 3280) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3281) rc = (EMUSHORT *)&_ei_m_eulergamma_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3282) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3283) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3284) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 3285) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3286) rc = (EMUSHORT *)&_ei_m_eulergamma_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3287) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3288) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3289) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 3290) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3291) rc = (EMUSHORT *)&_ei_m_eulergamma_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3292) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3293) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3294) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 3295) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3296) rc = (EMUSHORT *)&_ei_m_eulergamma_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3297) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3298) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3299) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 3300) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3301) rc = (EMUSHORT *)&_ei_m_eulergamma_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3302) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3303) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3304) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 3305) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3306) rc = (EMUSHORT *)&_ei_m_eulergamma_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3307) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3308) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3309) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 3310) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3311) rc = (EMUSHORT *)&_ei_m_eulergamma_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3312) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3313) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3314)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3315) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3316) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3317) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3318) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3319) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3320) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3321) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3322)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3323) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3324)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3325) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3326)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3327) } /* End of _get_m_eulergamma_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3328)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3329)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3330) EMUSHORT *_get_m_catalan_ptr( int nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3331) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3332) EMUSHORT *rc = (EMUSHORT *)NULL;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3333)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3334) if( nb < NBR_32 || nb > MPU_REAL_IO_LIMIT )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3335) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3336) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3337) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3338) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3339) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3340) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3341)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3342) switch( nb )
868b2b66 (kx 2024-12-20 16:11:07 +0300 3343) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3344) #if MPU_REAL_IO_LIMIT >= 128
868b2b66 (kx 2024-12-20 16:11:07 +0300 3345) case NBR_32 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3346) rc = (EMUSHORT *)&_ei_m_catalan_32_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3347) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3348) case NBR_64 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3349) rc = (EMUSHORT *)&_ei_m_catalan_64_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3350) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3351) case NBR_128 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3352) rc = (EMUSHORT *)&_ei_m_catalan_128_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3353) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3354) #endif /* MPU_REAL_IO_LIMIT >= 128 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3355) #if MPU_REAL_IO_LIMIT >= 256
868b2b66 (kx 2024-12-20 16:11:07 +0300 3356) case NBR_256 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3357) rc = (EMUSHORT *)&_ei_m_catalan_256_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3358) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3359) #endif /* MPU_REAL_IO_LIMIT >= 256 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3360) #if MPU_REAL_IO_LIMIT >= 512
868b2b66 (kx 2024-12-20 16:11:07 +0300 3361) case NBR_512 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3362) rc = (EMUSHORT *)&_ei_m_catalan_512_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3363) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3364) #endif /* MPU_REAL_IO_LIMIT >= 512 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3365) #if MPU_REAL_IO_LIMIT >= 1024
868b2b66 (kx 2024-12-20 16:11:07 +0300 3366) case NBR_1024 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3367) rc = (EMUSHORT *)&_ei_m_catalan_1024_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3368) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3369) #endif /* MPU_REAL_IO_LIMIT >= 1024 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3370) #if MPU_REAL_IO_LIMIT >= 2048
868b2b66 (kx 2024-12-20 16:11:07 +0300 3371) case NBR_2048 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3372) rc = (EMUSHORT *)&_ei_m_catalan_2048_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3373) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3374) #endif /* MPU_REAL_IO_LIMIT >= 2048 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3375) #if MPU_REAL_IO_LIMIT >= 4096
868b2b66 (kx 2024-12-20 16:11:07 +0300 3376) case NBR_4096 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3377) rc = (EMUSHORT *)&_ei_m_catalan_4096_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3378) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3379) #endif /* MPU_REAL_IO_LIMIT >= 4096 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3380) #if MPU_REAL_IO_LIMIT >= 8192
868b2b66 (kx 2024-12-20 16:11:07 +0300 3381) case NBR_8192 :
868b2b66 (kx 2024-12-20 16:11:07 +0300 3382) rc = (EMUSHORT *)&_ei_m_catalan_8192_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3383) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3384) #endif /* MPU_REAL_IO_LIMIT >= 8192 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3385) #if MPU_REAL_IO_LIMIT >= 16384
868b2b66 (kx 2024-12-20 16:11:07 +0300 3386) case NBR_16384:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3387) rc = (EMUSHORT *)&_ei_m_catalan_16384_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3388) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3389) #endif /* MPU_REAL_IO_LIMIT >= 16384 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3390) #if MPU_REAL_IO_LIMIT >= 32768
868b2b66 (kx 2024-12-20 16:11:07 +0300 3391) case NBR_32768:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3392) rc = (EMUSHORT *)&_ei_m_catalan_32768_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3393) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3394) #endif /* MPU_REAL_IO_LIMIT >= 32768 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3395) #if MPU_REAL_IO_LIMIT >= 65536
868b2b66 (kx 2024-12-20 16:11:07 +0300 3396) case NBR_65536:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3397) rc = (EMUSHORT *)&_ei_m_catalan_65536_[0];
868b2b66 (kx 2024-12-20 16:11:07 +0300 3398) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3399) #endif /* MPU_REAL_IO_LIMIT >= 65536 */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3400)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3401) default:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3402) {
868b2b66 (kx 2024-12-20 16:11:07 +0300 3403) /* error: Invalid size of operand(s) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3404) __real_error_no = __R_ESIZE__;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3405) __STIND; /* Set REAL ind-produsing operation Flag */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3406) break;
868b2b66 (kx 2024-12-20 16:11:07 +0300 3407) }
868b2b66 (kx 2024-12-20 16:11:07 +0300 3408)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3409) } /* End of switch( nb ) */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3410)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3411) return( rc );
868b2b66 (kx 2024-12-20 16:11:07 +0300 3412)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3413) } /* End of _get_m_catalan_ptr() */
868b2b66 (kx 2024-12-20 16:11:07 +0300 3414)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3415)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3416)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3417) /***************************************************************
868b2b66 (kx 2024-12-20 16:11:07 +0300 3418) Hide internal symbols:
868b2b66 (kx 2024-12-20 16:11:07 +0300 3419) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 3420)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3421) __mpu_hidden_decl(_get_m_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3422) __mpu_hidden_decl(_get_m_e_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3423) __mpu_hidden_decl(_get_m_1_ln2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3424) __mpu_hidden_decl(_get_m_ln2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3425) __mpu_hidden_decl(_get_m_1_ln10_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3426) __mpu_hidden_decl(_get_m_ln10_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3427) __mpu_hidden_decl(_get_m_1_lg2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3428) __mpu_hidden_decl(_get_m_lg2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3429) __mpu_hidden_decl(_get_m_pi_2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3430) __mpu_hidden_decl(_get_m_pi_3_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3431) __mpu_hidden_decl(_get_m_pi_4_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3432) __mpu_hidden_decl(_get_m_pi_5_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3433) __mpu_hidden_decl(_get_m_pi_6_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3434) __mpu_hidden_decl(_get_m_1_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3435) __mpu_hidden_decl(_get_m_2_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3436) __mpu_hidden_decl(_get_m_3_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3437) __mpu_hidden_decl(_get_m_4_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3438) __mpu_hidden_decl(_get_m_5_pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3439) __mpu_hidden_decl(_get_m_2pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3440) __mpu_hidden_decl(_get_m_3pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3441) __mpu_hidden_decl(_get_m_1_2pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3442) __mpu_hidden_decl(_get_m_1_3pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3443) __mpu_hidden_decl(_get_m_1_4pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3444) __mpu_hidden_decl(_get_m_1_5pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3445) __mpu_hidden_decl(_get_m_1_6pi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3446) __mpu_hidden_decl(_get_m_3pi_4_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3447) __mpu_hidden_decl(_get_m_sqrtpi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3448) __mpu_hidden_decl(_get_m_1_sqrtpi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3449) __mpu_hidden_decl(_get_m_2_sqrtpi_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3450) __mpu_hidden_decl(_get_m_sqrt2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3451) __mpu_hidden_decl(_get_m_1_sqrt2_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3452) __mpu_hidden_decl(_get_m_sqrt3_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3453) __mpu_hidden_decl(_get_m_1_sqrt3_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3454) __mpu_hidden_decl(_get_m_degree_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3455) __mpu_hidden_decl(_get_m_1_degree_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3456) __mpu_hidden_decl(_get_m_goldenratio_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3457) __mpu_hidden_decl(_get_m_eulergamma_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3458) __mpu_hidden_decl(_get_m_catalan_ptr);
868b2b66 (kx 2024-12-20 16:11:07 +0300 3459)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3460)
868b2b66 (kx 2024-12-20 16:11:07 +0300 3461) /*
868b2b66 (kx 2024-12-20 16:11:07 +0300 3462) End of hide internal symbols.
868b2b66 (kx 2024-12-20 16:11:07 +0300 3463) ***************************************************************/
868b2b66 (kx 2024-12-20 16:11:07 +0300 3464)
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