OpenCores
URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [fftswap.mms] - Blame information for rev 54

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.