display.asm

一个不错的用汇编语言编写的FFT算法程序

;----------------------------------------------------------------------------------
WinMain Proto :dword,:dword,:dword,:dword

.DATA
ClassFFTName  DB "FFTDisplay",0
WindowFFTName DB "FFTWindow",0
;----------------------------------------------------------------------------------
.DATA?
hInst1 DD ?
dishnd		DD ?
memdc		DD ?
;----------------------------------------------------------------------------------
.CODE

;----------------------------------------------------------------------------------
WinFFTMain Proc hInst:Dword,hPrevInst:Dword,CmdLine:LPSTR,CmdShow:Dword
	Local wc:WNDCLASSEX
	Local msg:MSG
	Local hwndFFT:Dword
	mov   wc.cbSize,Sizeof WNDCLASSEX
	mov   wc.style, CS_HREDRAW or CS_VREDRAW
	mov   wc.lpfnWndProc, Offset WndFFTProc
	mov   wc.cbClsExtra,NULL
	mov   wc.cbWndExtra,NULL
	push  hInst
	pop   wc.hInstance
	mov   wc.hbrBackground,COLOR_WINDOW+1
	mov   wc.lpszMenuName,NULL
	mov   wc.lpszClassName,Offset ClassFFTName
	Invoke LoadIcon,NULL,IDI_APPLICATION
	mov   wc.hIcon,eax
	mov   wc.hIconSm,eax
	Invoke LoadCursor,NULL,IDC_ARROW
	mov   wc.hCursor,eax
	Invoke RegisterClassEx, Addr wc
	Invoke CreateWindowEx,NULL,Addr ClassFFTName,Addr WindowFFTName,\
           WS_OVERLAPPEDWINDOW or CS_OWNDC,CW_USEDEFAULT,\
           CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\
           hInst,NULL
	mov   hwndFFT,eax
	mov dishnd,eax
	Invoke ShowWindow, hwndFFT,SW_SHOWNORMAL
	Invoke UpdateWindow, hwndFFT
	mov     eax,msg.wParam
	ret
WinFFTMain EndP

;----------------------------------------------------------------------------------
WndFFTProc Proc hWnd:Dword, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
	.If uMsg==WM_CREATE
		Invoke GetDC,hWnd
		SetDC hWnd,eax
	.Else
		Invoke DefWindowProc,hWnd,uMsg,wParam,lParam		
		ret
	.EndIf
	xor eax,eax
	ret
WndFFTProc EndP

;----------------------------------------------------------------------------------

;----------------------------------------------------------------------------------