Скачать или смотреть Assembler Win32 Game Coding MASM - Part One

;Windows example by Arnold Dalby
.386 ; Tell assembler to use 386 instruct set only
.model flat,stdcall ; 32 bit memory model
option casemap:none ; case sensitive
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD
include C:/masm32/include/windows.inc
include C:/masm32/include/user32.inc
include C:/masm32/include/kernel32.inc
include C:/masm32/include/gdi32.inc
includelib C:/masm32/lib/user32.lib
includelib C:/masm32/lib/kernel32.lib
includelib C:/masm32/lib/gdi32.lib
.data
ClassName db "SimpleWinClass",0
AppName db "Graphics Demo - Start of Game Asm Coding by the wonderful Arnold Dalby in 2024",0
OurText db "Assembler Language Win32 by Arnold Dalby! EASY PEASY LEMON SQUEEZY",0
LivesText db "LIVES: ",0
ScoreText db "SCORE: ",0
.data?
cxClient DD ?
cyClient DD ?
hInstance HINSTANCE ?
CommandLine LPSTR ?
.code
start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
invoke WinMain, hInstance,NULL,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,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW+1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,0
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,NULL,NULL,\
hInst,NULL
mov hwnd,eax
INVOKE ShowWindow, hwnd,SW_SHOWNORMAL
INVOKE UpdateWindow, hwnd
.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 hdc:HDC, ps:PAINTSTRUCT, redBrush:HBRUSH, greenBrush:HBRUSH, blueBrush:HBRUSH, yellowBrush:HBRUSH
LOCAL rect:RECT
mov eax,uMsg
.IF eax==WM_SIZE
LOWORD lParam
mov cxClient,eax
HIWORD lParam
mov cyClient,ebx
.ELSEIF eax==WM_PAINT
invoke BeginPaint,hWnd, ADDR ps
mov hdc,eax
invoke GetClientRect,hWnd, ADDR rect
invoke DrawText, hdc,ADDR OurText,-1, ADDR rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER
;invoke DrawText, hdc,ADDR MyText,-1, ADDR rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER
RGB 255, 0, 0 ; red
invoke CreateSolidBrush, eax
mov redBrush,eax
RGB 0, 255, 0 ; green
invoke CreateSolidBrush, eax
mov greenBrush,eax
RGB 0, 0, 255 ; blue
invoke CreateSolidBrush, eax
mov blueBrush,eax
RGB 255, 255, 0 ; yellow
invoke CreateSolidBrush, eax
mov yellowBrush,eax
invoke MoveToEx, hdc, 0, 0, NULL ;start point in x,y co-ords
invoke LineTo, hdc, cxClient, cyClient
invoke MoveToEx, hdc, 0, cyClient, NULL
invoke LineTo, hdc, cxClient, 0
invoke SelectObject, hdc, redBrush
invoke Rectangle, hdc, 10, 80, 79, 149
invoke Rectangle, hdc, 50, 20,89, 49
invoke SelectObject, hdc, blueBrush
invoke Rectangle, hdc, 100, 180, 120, 249
invoke Rectangle, hdc, 150, 120, 189, 249
invoke SelectObject, hdc, greenBrush
invoke Ellipse, hdc, 40, 48, 84, 98
invoke Ellipse, hdc, 100,120,150,160
invoke SelectObject, hdc, yellowBrush
invoke RoundRect, hdc, 38, 169, 100, 75, 75, 85
invoke RoundRect, hdc,138, 269, 100, 75, 75, 85

invoke EndPaint,hWnd, ADDR ps

.ELSEIF eax==WM_DESTROY
invoke DeleteObject, blueBrush ;release memory to brush objects used
invoke DeleteObject, redBrush
invoke DeleteObject, greenBrush
invoke DeleteObject, yellowBrush
invoke PostQuitMessage,NULL
.ELSE
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.ENDIF

xor eax,eax
ret
WndProc endp
end start