home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / source / tms5220r.c < prev    next >
Encoding:
Text File  |  2006-10-19  |  4.4 KB  |  141 lines
  1.  
  2. /* TMS5220 ROM Tables */
  3.  
  4. /* This is the energy lookup table (4-bits -> 10-bits) */
  5.  
  6. const unsigned short energytable[0x10] = {
  7.     0x0000, 0x00C0, 0x0140, 0x01C0, 0x0280, 0x0380, 0x0500, 0x0740,
  8.     0x0A00, 0x0E40, 0x1440, 0x1C80, 0x2840, 0x38C0, 0x5040, 0x7FC0
  9. };
  10.  
  11. /* This is the pitch lookup table (6-bits -> 8-bits) */
  12.  
  13. const unsigned short pitchtable[0x40] = {
  14.     0x0000, 0x1000, 0x1100, 0x1200, 0x1300, 0x1400, 0x1500, 0x1600,
  15.     0x1700, 0x1800, 0x1900, 0x1A00, 0x1B00, 0x1C00, 0x1D00, 0x1E00,
  16.     0x1F00, 0x2000, 0x2100, 0x2200, 0x2300, 0x2400, 0x2500, 0x2600,
  17.     0x2700, 0x2800, 0x2900, 0x2A00, 0x2B00, 0x2D00, 0x2F00, 0x3100,
  18.     0x3300, 0x3500, 0x3600, 0x3900, 0x3B00, 0x3D00, 0x3F00, 0x4200,
  19.     0x4500, 0x4700, 0x4900, 0x4D00, 0x4F00, 0x5100, 0x5500, 0x5700,
  20.     0x5C00, 0x5F00, 0x6300, 0x6600, 0x6A00, 0x6E00, 0x7300, 0x7700,
  21.     0x7B00, 0x8000, 0x8500, 0x8A00, 0x8F00, 0x9500, 0x9A00, 0xA000
  22. };
  23.  
  24. /* These are the reflection coefficient lookup tables */
  25.  
  26. /* K1 is (5-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  27.  
  28. const short k1table[0x20] = {
  29.  
  30.     (short) 0x82C0, (short) 0x8380, (short) 0x83C0, (short) 0x8440,
  31.     (short) 0x84C0, (short) 0x8540, (short) 0x8600, (short) 0x8780,
  32.     (short) 0x8880, (short) 0x8980, (short) 0x8AC0, (short) 0x8C00,
  33.     (short) 0x8D40, (short) 0x8F00, (short) 0x90C0, (short) 0x92C0,
  34.     (short) 0x9900, (short) 0xA140, (short) 0xAB80, (short) 0xB840,
  35.     (short) 0xC740, (short) 0xD8C0, (short) 0xEBC0, 0x0000,
  36.     0x1440, 0x2740, 0x38C0, 0x47C0, 0x5480, 0x5EC0, 0x6700, 0x6D40
  37. };
  38.  
  39. /* K2 is (5-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  40.  
  41. const short k2table[0x20] = {
  42.  
  43.     (short) 0xAE00, (short) 0xB480, (short) 0xBB80, (short) 0xC340,
  44.     (short) 0xCB80, (short) 0xD440, (short) 0xDDC0, (short) 0xE780,
  45.     (short) 0xF180, (short) 0xFBC0, 0x0600, 0x1040, 0x1A40, 0x2400, 0x2D40,
  46.     0x3600,
  47.     0x3E40, 0x45C0, 0x4CC0, 0x5300, 0x5880, 0x5DC0, 0x6240, 0x6640,
  48.     0x69C0, 0x6CC0, 0x6F80, 0x71C0, 0x73C0, 0x7580, 0x7700, 0x7E80
  49. };
  50.  
  51. /* K3 is (4-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  52.  
  53. const short k3table[0x10] = {
  54.  
  55.     (short) 0x9200, (short) 0x9F00, (short) 0xAD00, (short) 0xBA00,
  56.     (short) 0xC800, (short) 0xD500, (short) 0xE300, (short) 0xF000,
  57.     (short) 0xFE00, 0x0B00, 0x1900, 0x2600, 0x3400, 0x4100, 0x4F00, 0x5C00
  58. };
  59.  
  60. /* K4 is (4-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  61.  
  62. const short k4table[0x10] = {
  63.  
  64.     (short) 0xAE00, (short) 0xBC00, (short) 0xCA00, (short) 0xD800,
  65.     (short) 0xE600, (short) 0xF400, 0x0100, 0x0F00,
  66.     0x1D00, 0x2B00, 0x3900, 0x4700, 0x5500, 0x6300, 0x7100, 0x7E00
  67. };
  68.  
  69. /* K5 is (4-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  70.  
  71. const short k5table[0x10] = {
  72.  
  73.     (short) 0xAE00, (short) 0xBA00, (short) 0xC500, (short) 0xD100,
  74.     (short) 0xDD00, (short) 0xE800, (short) 0xF400, (short) 0xFF00,
  75.     0x0B00, 0x1700, 0x2200, 0x2E00, 0x3900, 0x4500, 0x5100, 0x5C00
  76. };
  77.  
  78. /* K6 is (4-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  79.  
  80. const short k6table[0x10] = {
  81.  
  82.     (short) 0xC000, (short) 0xCB00, (short) 0xD600, (short) 0xE100,
  83.     (short) 0xEC00, (short) 0xF700, 0x0300, 0x0E00,
  84.     0x1900, 0x2400, 0x2F00, 0x3A00, 0x4500, 0x5000, 0x5B00, 0x6600
  85. };
  86.  
  87. /* K7 is (4-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  88.  
  89. const short k7table[0x10] = {
  90.  
  91.     (short) 0xB300, (short) 0xBF00, (short) 0xCB00, (short) 0xD700,
  92.     (short) 0xE300, (short) 0xEF00, (short) 0xFB00, 0x0700,
  93.     0x1300, 0x1F00, 0x2B00, 0x3700, 0x4300, 0x4F00, 0x5A00, 0x6600
  94. };
  95.  
  96. /* K8 is (3-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  97.  
  98. const short k8table[0x08] = {
  99.  
  100.     (short) 0xC000, (short) 0xD800, (short) 0xF000, 0x0700, 0x1F00,
  101.     0x3700, 0x4F00, 0x6600
  102. };
  103.  
  104. /* K9 is (3-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  105.  
  106. const short k9table[0x08] = {
  107.  
  108.     (short) 0xC000, (short) 0xD400, (short) 0xE800, (short) 0xFC00,
  109.     0x1000, 0x2500, 0x3900, 0x4D00
  110. };
  111.  
  112. /* K10 is (3-bits -> 9 bits+sign, 2's comp. fractional (-1 < x < 1) */
  113.  
  114. const short k10table[0x08] = {
  115.  
  116.     (short) 0xCD00, (short) 0xDF00, (short) 0xF100, 0x0400, 0x1600,
  117.     0x2000, 0x3B00, 0x4D00
  118. };
  119.  
  120. /* chirp table */
  121.  
  122. static char chirptable[41] = {
  123.     0x00, 0x2a, (char) 0xd4, 0x32,
  124.     (char) 0xb2, 0x12, 0x25, 0x14,
  125.     0x02, (char) 0xe1, (char) 0xc5, 0x02,
  126.     0x5f, 0x5a, 0x05, 0x0f,
  127.     0x26, (char) 0xfc, (char) 0xa5, (char) 0xa5,
  128.     (char) 0xd6, (char) 0xdd, (char) 0xdc, (char) 0xfc,
  129.     0x25, 0x2b, 0x22, 0x21,
  130.     0x0f, (char) 0xff, (char) 0xf8, (char) 0xee,
  131.     (char) 0xed, (char) 0xef, (char) 0xf7, (char) 0xf6,
  132.     (char) 0xfa, 0x00, 0x03, 0x02,
  133.     0x01
  134. };
  135.  
  136. /* interpolation coefficients */
  137.  
  138. static char interp_coeff[8] = {
  139.     8, 8, 8, 4, 4, 2, 2, 1
  140. };
  141.