URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [tags/] [eco32-0.23/] [fp/] [implementation/] [mmix/] [fftswap.mms] - Rev 179
Go to most recent revision | Compare with Previous | Blame | View Log
% the bit-reversal portion of a 256-point Fast Fourier Transform
t IS $255
n IS 256
pi GREG
pj GREG
tx GREG
i GREG
j GREG
LOC Data_Segment
Data GREG @
% Here follows 256 octabyte pairs for (real,imag) parts of complex data
% I'm faking it with small integer numbers just for easy testing
% But it uses long lines, so assemble with "mmixal -b 80"
OCTA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
OCTA 16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31
OCTA 32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47
OCTA 48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
OCTA 64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79
OCTA 80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95
OCTA 96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111
OCTA 112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127
OCTA 128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143
OCTA 144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159
OCTA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
OCTA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
OCTA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
OCTA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
OCTA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
OCTA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
OCTA 256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271
OCTA 272,273,274,275,276,277,278,279,280,281,282,283,284,285,286,287
OCTA 288,289,290,291,292,293,294,295,296,297,298,299,300,301,302,303
OCTA 304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319
OCTA 320,321,322,323,324,325,326,327,328,329,330,331,332,333,334,335
OCTA 336,337,338,339,340,341,342,343,344,345,346,347,348,349,350,351
OCTA 352,353,354,355,356,357,358,359,360,361,362,363,364,365,366,367
OCTA 368,369,370,371,372,373,374,375,376,377,378,379,380,381,382,383
OCTA 384,385,386,387,388,389,390,391,392,393,394,395,396,397,398,399
OCTA 400,401,402,403,404,405,406,407,408,409,410,411,412,413,414,415
OCTA 416,417,418,419,420,421,422,423,424,425,426,427,428,429,430,431
OCTA 432,433,434,435,436,437,438,439,440,441,442,443,444,445,446,447
OCTA 448,449,450,451,452,453,454,455,456,457,458,459,460,461,462,463
OCTA 464,465,466,467,468,469,470,471,472,473,474,475,476,477,478,479
OCTA 480,481,482,483,484,485,486,487,488,489,490,491,492,493,494,495
OCTA 496,497,498,499,500,501,502,503,504,505,506,507,508,509,510,511
LOC #100
Main SET i,n-1
0H GREG #0102040810204080
1H MOR j,0B,i
CMP t,i,j
PBNN t,2F jump if i<=j
16ADDU pi,i,Data pi=&Data[i]
16ADDU pj,j,Data pj=&Data[j]
LDO t,pi,0
LDO tx,pj,0
STO t,pj,0 swap Data[i].real with Data[j].real
STO tx,pi,0
LDO t,pi,8
LDO tx,pj,8
STO t,pj,8 swap Data[i].imag with Data[j].imag
STO tx,pi,8
2H SUB i,i,1 i--
PBP i,1B repeat until i==0
TRAP 0,Halt,0
Go to most recent revision | Compare with Previous | Blame | View Log