tcr2fftn.h

快速FFT,汇编原程序

#include "mds_def.h"

void Init(complex_fract16 *w)
{
w[0].re = 0x7fff; w[0].im = 0x0000;
w[1].re = 0x7ffd; w[1].im = 0xfe6e;
w[2].re = 0x7ff6; w[2].im = 0xfcdc;
w[3].re = 0x7fe9; w[3].im = 0xfb4a;
w[4].re = 0x7fd8; w[4].im = 0xf9b9;
w[5].re = 0x7fc2; w[5].im = 0xf827;
w[6].re = 0x7fa7; w[6].im = 0xf696;
w[7].re = 0x7f87; w[7].im = 0xf505;
w[8].re = 0x7f62; w[8].im = 0xf375;
w[9].re = 0x7f38; w[9].im = 0xf1e5;
w[10].re = 0x7f09; w[10].im = 0xf055;
w[11].re = 0x7ed5; w[11].im = 0xeec7;
w[12].re = 0x7e9d; w[12].im = 0xed38;
w[13].re = 0x7e5f; w[13].im = 0xebab;
w[14].re = 0x7e1d; w[14].im = 0xea1e;
w[15].re = 0x7dd6; w[15].im = 0xe893;
w[16].re = 0x7d8a; w[16].im = 0xe708;
w[17].re = 0x7d39; w[17].im = 0xe57e;
w[18].re = 0x7ce3; w[18].im = 0xe3f5;
w[19].re = 0x7c89, w[19].im = 0xe26d;
w[20].re = 0x7c29, w[20].im = 0xe0e7;
w[21].re = 0x7bc5, w[21].im = 0xdf61;
w[22].re = 0x7b5d, w[22].im = 0xdddd;
w[23].re = 0x7aef, w[23].im = 0xdc5a;
w[24].re = 0x7a7d, w[24].im = 0xdad8;
w[25].re = 0x7a05, w[25].im = 0xd958;
w[26].re = 0x798a, w[26].im = 0xd7da;
w[27].re = 0x7909, w[27].im = 0xd65d;
w[28].re = 0x7884, w[28].im = 0xd4e1;
w[29].re = 0x77fa, w[29].im = 0xd368;
w[30].re = 0x776c, w[30].im = 0xd1ef;
w[31].re = 0x76d9, w[31].im = 0xd079;
w[32].re = 0x7641, w[32].im = 0xcf05;
w[33].re = 0x75a5, w[33].im = 0xcd92;
w[34].re = 0x7504, w[34].im = 0xcc22;
w[35].re = 0x745f, w[35].im = 0xcab3;
w[36].re = 0x73b5, w[36].im = 0xc946;
w[37].re = 0x7307, w[37].im = 0xc7dc;
w[38].re = 0x7255, w[38].im = 0xc674;
w[39].re = 0x719e, w[39].im = 0xc50e;
w[40].re = 0x70e2, w[40].im = 0xc3aa;
w[41].re = 0x7023, w[41].im = 0xc248;
w[42].re = 0x6f5f, w[42].im = 0xc0e9;
w[43].re = 0x6e96, w[43].im = 0xbf8d;
w[44].re = 0x6dca, w[44].im = 0xbe32;
w[45].re = 0x6cf9, w[45].im = 0xbcdb;
w[46].re = 0x6c24, w[46].im = 0xbb86;
w[47].re = 0x6b4a, w[47].im = 0xba33;
w[48].re = 0x6a6d, w[48].im = 0xb8e4;
w[49].re = 0x698c, w[49].im = 0xb797;
w[50].re = 0x68a6, w[50].im = 0xb64c;
w[51].re = 0x67bd, w[51].im = 0xb505;
w[52].re = 0x66cf, w[52].im = 0xb3c1;
w[53].re = 0x65dd, w[53].im = 0xb27f;
w[54].re = 0x64e8, w[54].im = 0xb141;
w[55].re = 0x63ef, w[55].im = 0xb005;
w[56].re = 0x62f2, w[56].im = 0xaecd;
w[57].re = 0x61f1, w[57].im = 0xad97;
w[58].re = 0x60ec, w[58].im = 0xac65;
w[59].re = 0x5fe3, w[59].im = 0xab36;
w[60].re = 0x5ed7, w[60].im = 0xaa0b;
w[61].re = 0x5dc7, w[61].im = 0xa8e3;
w[62].re = 0x5cb4, w[62].im = 0xa7be;
w[63].re = 0x5b9d, w[63].im = 0xa69c;
w[64].re = 0x5a82, w[64].im = 0xa57e;
w[65].re = 0x5964, w[65].im = 0xa463;
w[66].re = 0x5842, w[66].im = 0xa34c;
w[67].re = 0x571d, w[67].im = 0xa239;
w[68].re = 0x55f5, w[68].im = 0xa129;
w[69].re = 0x54ca, w[69].im = 0xa01d;
w[70].re = 0x539b, w[70].im = 0x9f14;
w[71].re = 0x5269, w[71].im = 0x9e0f;
w[72].re = 0x5133, w[72].im = 0x9d0e;
w[73].re = 0x4ffb, w[73].im = 0x9c11;
w[74].re = 0x4ebf, w[74].im = 0x9b18;
w[75].re = 0x4d81, w[75].im = 0x9a23;
w[76].re = 0x4c3f, w[76].im = 0x9931;
w[77].re = 0x4afb, w[77].im = 0x9843;
w[78].re = 0x49b4, w[78].im = 0x975a;
w[79].re = 0x4869, w[79].im = 0x9674;
w[80].re = 0x471c, w[80].im = 0x9593;
w[81].re = 0x45cd, w[81].im = 0x94b6;
w[82].re = 0x447a, w[82].im = 0x93dc;
w[83].re = 0x4325, w[83].im = 0x9307;
w[84].re = 0x41ce, w[84].im = 0x9236;
w[85].re = 0x4073, w[85].im = 0x916a;
w[86].re = 0x3f17, w[86].im = 0x90a1;
w[87].re = 0x3db8, w[87].im = 0x8fdd;
w[88].re = 0x3c56, w[88].im = 0x8f1e;
w[89].re = 0x3af2, w[89].im = 0x8e62;
w[90].re = 0x398c, w[90].im = 0x8dab;
w[91].re = 0x3824, w[91].im = 0x8cf9;
w[92].re = 0x36ba, w[92].im = 0x8c4b;
w[93].re = 0x354d, w[93].im = 0x8ba1;
w[94].re = 0x33de, w[94].im = 0x8afc;
w[95].re = 0x326e, w[95].im = 0x8a5b;
w[96].re = 0x30fb, w[96].im = 0x89bf;
w[97].re = 0x2f87, w[97].im = 0x8927;
w[98].re = 0x2e11, w[98].im = 0x8894;
w[99].re = 0x2c98, w[99].im = 0x8806;
w[100].re = 0x2b1f, w[100].im = 0x877c;
w[101].re = 0x29a3, w[101].im = 0x86f7;
w[102].re = 0x2826, w[102].im = 0x8676;
w[103].re = 0x26a8, w[103].im = 0x85fb;
w[104].re = 0x2528, w[104].im = 0x8583;
w[105].re = 0x23a6, w[105].im = 0x8511;
w[106].re = 0x2223, w[106].im = 0x84a3;
w[107].re = 0x209f, w[107].im = 0x843b;
w[108].re = 0x1f19, w[108].im = 0x83d7;
w[109].re = 0x1d93, w[109].im = 0x8377;
w[110].re = 0x1c0b, w[110].im = 0x831d;
w[111].re = 0x1a82, w[111].im = 0x82c7;
w[112].re = 0x18f8, w[112].im = 0x8276;
w[113].re = 0x176d, w[113].im = 0x822a;
w[114].re = 0x15e2, w[114].im = 0x81e3;
w[115].re = 0x1455, w[115].im = 0x81a1;
w[116].re = 0x12c8, w[116].im = 0x8163;
w[117].re = 0x1139, w[117].im = 0x812b;
w[118].re = 0x0fab, w[118].im = 0x80f7;
w[119].re = 0x0e1b, w[119].im = 0x80c8;
w[120].re = 0x0c8b, w[120].im = 0x809e;
w[121].re = 0x0afb, w[121].im = 0x8079;
w[122].re = 0x096a, w[122].im = 0x8059;
w[123].re = 0x07d9, w[123].im = 0x803e;
w[124].re = 0x0647, w[124].im = 0x8028;
w[125].re = 0x04b6, w[125].im = 0x8017;
w[126].re = 0x0324, w[126].im = 0x800a;
w[127].re = 0x0192, w[127].im = 0x8003;
w[128].re = 0x0000, w[128].im = 0x8000;
w[129].re = 0xfe6e, w[129].im = 0x8003;
w[130].re = 0xfcdc, w[130].im = 0x800a;
w[131].re = 0xfb4a, w[131].im = 0x8017;
w[132].re = 0xf9b9, w[132].im = 0x8028;
w[133].re = 0xf827, w[133].im = 0x803e;
w[134].re = 0xf696, w[134].im = 0x8059;
w[135].re = 0xf505, w[135].im = 0x8079;
w[136].re = 0xf375, w[136].im = 0x809e;
w[137].re = 0xf1e5, w[137].im = 0x80c8;
w[138].re = 0xf055, w[138].im = 0x80f7;
w[139].re = 0xeec7, w[139].im = 0x812b;
w[140].re = 0xed38, w[140].im = 0x8163;
w[141].re = 0xebab, w[141].im = 0x81a1;
w[142].re = 0xea1e, w[142].im = 0x81e3;
w[143].re = 0xe893, w[143].im = 0x822a;
w[144].re = 0xe708, w[144].im = 0x8276;
w[145].re = 0xe57e, w[145].im = 0x82c7;
w[146].re = 0xe3f5, w[146].im = 0x831d;
w[147].re = 0xe26d, w[147].im = 0x8377;
w[148].re = 0xe0e7, w[148].im = 0x83d7;
w[149].re = 0xdf61, w[149].im = 0x843b;
w[150].re = 0xdddd, w[150].im = 0x84a3;
w[151].re = 0xdc5a, w[151].im = 0x8511;
w[152].re = 0xdad8, w[152].im = 0x8583;
w[153].re = 0xd958, w[153].im = 0x85fb;
w[154].re = 0xd7da, w[154].im = 0x8676;
w[155].re = 0xd65d, w[155].im = 0x86f7;
w[156].re = 0xd4e1, w[156].im = 0x877c;
w[157].re = 0xd368, w[157].im = 0x8806;
w[158].re = 0xd1ef, w[158].im = 0x8894;
w[159].re = 0xd079, w[159].im = 0x8927;
w[160].re = 0xcf05, w[160].im = 0x89bf;
w[161].re = 0xcd92, w[161].im = 0x8a5b;
w[162].re = 0xcc22, w[162].im = 0x8afc;
w[163].re = 0xcab3, w[163].im = 0x8ba1;
w[164].re = 0xc946, w[164].im = 0x8c4b;
w[165].re = 0xc7dc, w[165].im = 0x8cf9;
w[166].re = 0xc674, w[166].im = 0x8dab;
w[167].re = 0xc50e, w[167].im = 0x8e62;
w[168].re = 0xc3aa, w[168].im = 0x8f1e;
w[169].re = 0xc248, w[169].im = 0x8fdd;
w[170].re = 0xc0e9, w[170].im = 0x90a1;
w[171].re = 0xbf8d, w[171].im = 0x916a;
w[172].re = 0xbe32, w[172].im = 0x9236;
w[173].re = 0xbcdb, w[173].im = 0x9307;
w[174].re = 0xbb86, w[174].im = 0x93dc;
w[175].re = 0xba33, w[175].im = 0x94b6;
w[176].re = 0xb8e4, w[176].im = 0x9593;
w[177].re = 0xb797, w[177].im = 0x9674;
w[178].re = 0xb64c, w[178].im = 0x975a;
w[179].re = 0xb505, w[179].im = 0x9843;