data.s

实现了一个简单的快速傅立叶变化功能函数,对一副图象进行傅立叶变化,其中关键的变换部分是用汇编实现的

 AREA fftdata,DATA,READWRITE
	export	N
	export 	N1
	export	sin
	export	cos
    ;export	image1
	;export	image2
	;export	prdata
	;export	pidata
	;;export	ROW
	;export	COL
sf	equ 30			;缩放比例
N	equ	128
N1	equ	7	;log10(128)/log10(2)
;ROW	equ	128
;COL	equ	128
sin	DCD	\
	0,0xfcdc1342,0xf9ba1651,0xf69bf7c9,0xf383a3e2,0xf0730343,0xed6bf9d2,0xea70658b,\
	0xe7821d5a,0xe4a2eff7,0xe1d4a2c8,0xdf18f0ce,0xdc71898d,0xd9e01007,0xd76619b6,0xd5052d97,\
	0xd2bec334,0xd09441bc,0xce86ff2a,0xcc983f71,0xcac933ae,0xc91af976,0xc78e9a1d,0xc6250a18,\
	0xc4df2862,0xc3bdbdf7,0xc2c17d53,0xc1eb0209,0xc13ad061,0xc0b15502,0xc04ee4b9,0xc013bc3a,\
	0xc0000000,0xc013bc3a,0xc04ee4b9,0xc0b15502,0xc13ad061,0xc1eb0209,0xc2c17d53,0xc3bdbdf7,\
	0xc4df2862,0xc6250a18,0xc78e9a1d,0xc91af976,0xcac933ae,0xcc983f71,0xce86ff2a,0xd09441bc,\
	0xd2bec334,0xd5052d97,0xd76619b6,0xd9e01007,0xdc71898d,0xdf18f0ce,0xe1d4a2c8,0xe4a2eff7,\
	0xe7821d5a,0xea70658b,0xed6bf9d2,0xf0730343,0xf383a3e2,0xf69bf7c9,0xf9ba1651,0xfcdc1342,\
	0,0xf9ba1651,0xf383a3e2,0xed6bf9d2,0xe7821d5a,0xe1d4a2c8,0xdc71898d,0xd76619b6,\
	0xd2bec334,0xce86ff2a,0xcac933ae,0xc78e9a1d,0xc4df2862,0xc2c17d53,0xc13ad061,0xc04ee4b9,\
	0xc0000000,0xc04ee4b9,0xc13ad061,0xc2c17d53,0xc4df2862,0xc78e9a1d,0xcac933ae,0xce86ff2a,\
	0xd2bec334,0xd76619b6,0xdc71898d,0xe1d4a2c8,0xe7821d5a,0xed6bf9d2,0xf383a3e2,0xf9ba1651,\
	0,0xf383a3e2,0xe7821d5a,0xdc71898d,0xd2bec334,0xcac933ae,0xc4df2862,0xc13ad061,\
	0xc0000000,0xc13ad061,0xc4df2862,0xcac933ae,0xd2bec334,0xdc71898d,0xe7821d5a,0xf383a3e2,\
	0,0xe7821d5a,0xd2bec334,0xc4df2862,0xc0000000,0xc4df2862,0xd2bec334,0xe7821d5a,\
	0,0xd2bec334,0xc0000000,0xd2bec334,0,0xc0000000,0
cos	DCD	\
	0x40000000,0x3fec43c6,0x3fb11b47,0x3f4eaafe,0x3ec52f9f,0x3e14fdf7,0x3d3e82ad,0x3c424209,\
	0x3b20d79e,0x39daf5e8,0x387165e3,0x36e5068a,0x3536cc52,0x3367c08f,0x317900d6,0x2f6bbe44,\
	0x2d413ccc,0x2afad269,0x2899e64a,0x261feff9,0x238e7673,0x20e70f32,0x1e2b5d38,0x1b5d1009,\
	0x187de2a6,0x158f9a75,0x1294062e,0xf8cfcbd,0xc7c5c1e,0x9640837,0x645e9af,0x323ecbe,\
	0,0xfcdc1342,0xf9ba1651,0xf69bf7c9,0xf383a3e2,0xf0730343,0xed6bf9d2,0xea70658b,\
	0xe7821d5a,0xe4a2eff7,0xe1d4a2c8,0xdf18f0ce,0xdc71898d,0xd9e01007,0xd76619b6,0xd5052d97,\
	0xd2bec334,0xd09441bc,0xce86ff2a,0xcc983f71,0xcac933ae,0xc91af976,0xc78e9a1d,0xc6250a18,\
	0xc4df2862,0xc3bdbdf7,0xc2c17d53,0xc1eb0209,0xc13ad061,0xc0b15502,0xc04ee4b9,0xc013bc3a,\
	0x40000000,0x3fb11b47,0x3ec52f9f,0x3d3e82ad,0x3b20d79e,0x387165e3,0x3536cc52,0x317900d6,\
	0x2d413ccc,0x2899e64a,0x238e7673,0x1e2b5d38,0x187de2a6,0x1294062e,0xc7c5c1e,0x645e9af,\
	0,0xf9ba1651,0xf383a3e2,0xed6bf9d2,0xe7821d5a,0xe1d4a2c8,0xdc71898d,0xd76619b6,\
	0xd2bec334,0xce86ff2a,0xcac933ae,0xc78e9a1d,0xc4df2862,0xc2c17d53,0xc13ad061,0xc04ee4b9,\
	0x40000000,0x3ec52f9f,0x3b20d79e,0x3536cc52,0x2d413ccc,0x238e7673,0x187de2a6,0xc7c5c1e,\
	0,0xf383a3e2,0xe7821d5a,0xdc71898d,0xd2bec334,0xcac933ae,0xc4df2862,0xc13ad061,\
	0x40000000,0x3b20d79e,0x2d413ccc,0x187de2a6,0,0xe7821d5a,0xd2bec334,0xc4df2862,\
	0x40000000,0x2d413ccc,0,0xd2bec334,0x40000000,0,0x40000000

；image1	%	N*N
;prdata	%	N*N*4
;pidata	%	N*N*4

；image2	%	N*N
;ap	%	N*N*4
	
	
  END