11.07.2015 Views

section 7 - Index of

section 7 - Index of

section 7 - Index of

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

jle -'oopmove xO,rOmove y1,amove x:(rO+nO),yOsub yO,amove b,x1move rO,yOadd yO,bmove b,rOnopmove a,x:(rO+nO)add x1,bmove b,xOmove x1,bjmp _star-'oop move y1,a_endlmove #><strong>of</strong>fset,amove #bergtable,rOdo #points,_add_<strong>of</strong>fsetmove x:(rO),Badd A,Bmove B,x:(rO)+_add_<strong>of</strong>fsetendm ;end <strong>of</strong> sincos macro;rO=i+i=j,b=i;recover A=k;yO=bergtabl[j];k-bergtablU];save b, x1 =i;yO=j=i+i;b=j+i;rO=j+i;store bergtablU+i];b=j+i+i;save b;recover b=i;recover a;<strong>of</strong>fset is the location <strong>of</strong> output data or twiddle;convert normal order to berg lang ordernorm2berg macro points,bergtable,twiddle;points is actual size <strong>of</strong> table to be convertingmove #bergtable,rOmove #twiddle,r2move r2,r6do #points,data_tempmove x:(rO)+,r3move r3,r7move x:(r3),amove y:(r7),bmove a,x:(r2)+ b,y:(r6)+;rO=pointer <strong>of</strong> bergland table;r2=twiddle pointer for X;r6=twiddle pointer for Y;get index;get value;write backendmFigure B-5 Real Input FFT Based on Glenn Bergland Algorithm (Sheet 4 <strong>of</strong> 8)

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!