.686p ; create 32 bit code
.model flat, stdcall ; 32 bit memory model
option casemap :none ; case sensitive
include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
include masm32.inc
includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib
includelib masm32.lib
WinMain PROTO :HINSTANCE, :HINSTANCE, :LPSTR, :DWORD
.data?
hInstance HINSTANCE ?
CommandLine LPSTR ?
.data
ClassName db "bounce_v2",0
AppName db "Bounce V2",0
ballX dd 100
ballY dd 100
ballRadius dd 50
ballDirectionX dd 1
ballDirectionY dd 1
.const
.code
start:
invoke GetModuleHandle, 0
mov hInstance, eax
invoke GetCommandLine
mov CommandLine, eax
invoke WinMain, hInstance, 0, CommandLine, SW_SHOWDEFAULT
invoke ExitProcess, eax
WinMain PROC hInst:HINSTANCE, hPrevInst:HINSTANCE, cmdLine:LPSTR, cmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND
mov wc.cbSize, SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra, 0
mov wc.cbWndExtra, 0
push hInstance
pop wc.hInstance
mov wc.hbrBackground, COLOR_WINDOW+1
mov wc.lpszMenuName, 0
mov wc.lpszClassName, OFFSET ClassName
invoke LoadIcon, 0, IDI_APPLICATION
mov wc.hIcon, eax
mov wc.hIconSm, eax
invoke LoadCursor, 0, IDC_ARROW
mov wc.hCursor, eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx, 0, ADDR ClassName, ADDR AppName, WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
0, 0, hInst, 0
mov hwnd, eax
invoke ShowWindow, hwnd, SW_SHOWNORMAL
invoke UpdateWindow, hwnd
invoke SetTimer, hwnd, 0, 1, 0
.while TRUE
invoke GetMessage, addr msg, NULL, 0, 0
.BREAK .IF (!eax)
invoke TranslateMessage, addr msg
invoke DispatchMessage, addr msg
.endw
mov eax, msg.wParam
ret
WinMain ENDP
WndProc PROC hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
LOCAL ps:PAINTSTRUCT
LOCAL rect:RECT
.if uMsg == WM_CREATE
.elseif uMsg == WM_PAINT
invoke BeginPaint, hWnd, addr ps
mov eax, ps.hdc
mov ebx, ballX
add ebx, 25
mov ecx, ballY
add ecx, 25
invoke Ellipse, eax, ballX, ballY, ebx, ecx
invoke EndPaint, hWnd, addr ps
mov eax, TRUE
ret
.elseif uMsg == WM_TIMER
xor ebx, ebx
mov ebx, ballDirectionX
add ballX, ebx
mov ebx, ballDirectionY
add ballY, ebx
invoke GetClientRect, hWnd, addr rect
mov ebx, rect.right
.IF ballX < 0 || ballX > ebx
neg ballDirectionX
.ENDIF
mov ebx, rect.bottom
.IF ballY < 0 || ballY > ebx
neg ballDirectionY
.ENDIF
invoke InvalidateRect, hWnd, NULL, TRUE
mov eax, TRUE
ret
.elseif uMsg == WM_CLOSE
.elseif uMsg == WM_DESTROY
invoke PostQuitMessage,0
.else
invoke DefWindowProc, hWnd, uMsg, wParam, lParam
ret
.endif
xor eax, eax
ret
WndProc ENDP
end start