From 03060ad1b259dee6f90d5eee1d3963ef4c40ea19 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=A1=D1=82=D0=B0=D1=81=20=D0=9C=D0=B8=D1=85=D0=B0=D0=B9?=
 =?UTF-8?q?=D0=BB=D0=BE=D0=B2=20WindowsVM?= <stas@enso.pro>
Date: Sat, 2 Jan 2021 12:22:04 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9F=D0=BE=D0=B4=D0=B3=D0=BE=D1=82=D0=BE?=
 =?UTF-8?q?=D0=B2=D0=BA=D0=B0=20=D1=81=D1=80=D0=B5=D0=B4=D1=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SDI.inc  |  33 +++++++++++++++++
 main.asm | 105 ++++++++++++++++++++++++++++++++++++++++---------------
 2 files changed, 109 insertions(+), 29 deletions(-)
 create mode 100644 SDI.inc

diff --git a/SDI.inc b/SDI.inc
new file mode 100644
index 0000000..f779ae7
--- /dev/null
+++ b/SDI.inc
@@ -0,0 +1,33 @@
+Include C:\masm32\include\windows.inc
+Include C:\masm32\include\user32.inc
+Include C:\masm32\include\kernel32.inc
+;-------------------------------------------------------------------
+;Needed For Debug Window Only
+;Include <masm32.inc>
+;nclude <debug.inc
+;-------------------------------------------------------------------
+;IncludeLib user32.lib
+;ncludeLib kernel32.lib
+;-------------------------------------------------------------------
+;Needed For Debug Window Only
+;IncludeLib masm32.lib
+;IncludeLib debug.lib
+
+.DATA
+ClassName		DB "MainWinClass",0
+szAppName		DB "SDI Application",0
+MenuName		DB "FirstMenu",0
+szFileNew		DB "You selected 'New'.",0
+szFileOpen		DB "You selected 'Open'.",0
+szHelpAbout		DB "You selected 'About'.",0
+
+.DATA?
+hInstance		HINSTANCE ?
+CommandLine		LPSTR ?
+hMenu			HMENU ?
+
+.CONST
+IDM_FILE_NEW	EQU 1
+IDM_FILE_OPEN	EQU 2
+IDM_HELP_ABOUT	EQU 3
+IDM_FILE_EXIT	EQU 4
diff --git a/main.asm b/main.asm
index 762e8b5..fa45c63 100644
--- a/main.asm
+++ b/main.asm
@@ -1,34 +1,81 @@
-global _main
-    extern  _GetStdHandle@4
-    extern  _WriteFile@20
-    extern  _ExitProcess@4
+.386
 
-    section .text
-_main:
-    ; DWORD  bytes;    
-    mov     ebp, esp
-    sub     esp, 4
+.MODEL FLAT,STDCALL
 
-    ; hStdOut = GetstdHandle( STD_OUTPUT_HANDLE)
-    push    -11
-    call    _GetStdHandle@4
-    mov     ebx, eax    
+OPTION CASEMAP:NONE
 
-    ; WriteFile( hstdOut, message, length(message), &bytes, 0);
-    push    0
-    lea     eax, [ebp-4]
-    push    eax
-    push    (message_end - message)
-    push    message
-    push    ebx
-    call    _WriteFile@20
+WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
 
-    ; ExitProcess(0)
-    push    0
-    call    _ExitProcess@4
+Include SDI.inc
 
-    ; never here
-    hlt
-message:
-    db      'Hello, World', 10
-message_end:
\ No newline at end of file
+.CODE
+Start:
+	Invoke GetModuleHandle, NULL
+	MOV hInstance,EAX
+	Invoke GetCommandLine
+	MOV CommandLine, EAX
+	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 hInst
+	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 LoadMenu, hInst, Offset MenuName
+	MOV hMenu,EAX
+	Invoke CreateWindowEx, WS_EX_CLIENTEDGE, ADDR ClassName, ADDR szAppName,\
+           WS_OVERLAPPEDWINDOW, CW_USEDEFAULT,\
+           CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, hMenu,\
+           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
+	.If uMsg==WM_DESTROY
+		Invoke PostQuitMessage, NULL
+	.ElseIf uMsg==WM_COMMAND
+		MOV EAX,wParam
+		.If AX==IDM_FILE_NEW
+			Invoke MessageBox, NULL, ADDR szFileNew, Offset szAppName, MB_OK
+		.ElseIf AX==IDM_FILE_OPEN
+			Invoke MessageBox, NULL, ADDR szFileOpen, Offset szAppName, MB_OK
+		.ElseIf AX==IDM_HELP_ABOUT
+			Invoke MessageBox, NULL,ADDR szHelpAbout, Offset szAppName, MB_OK
+		.Else
+			Invoke DestroyWindow, hWnd
+		.EndIf
+	.Else
+		Invoke DefWindowProc, hWnd, uMsg, wParam, lParam
+		RET
+	.EndIf
+	XOR EAX,EAX
+	RET
+WndProc EndP
+
+End Start
\ No newline at end of file