Создание окна

format PE GUI
entry start
include 'win32a.inc'
;______________________________________________________________
 
section '.data' data readable writeable
 
class  db 'FASMWIN32',0
title  db 'Окно',0
wc WNDCLASS 0,WindowProc,0,0,0,0,0,COLOR_BTNFACE+1,0,class
msg MSG
;______________________________________________________________
 
section '.code' code readable executable
 
start:
invoke GetModuleHandle,0
mov [wc.hInstance],eax
invoke RegisterClass,wc
cmp eax,0
 
invoke CreateWindowEx,0,class,title,WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU,128,128,256,192,0,0,[wc.hInstance],0
cmp eax,0
 
msg_loop:
invoke GetMessage,msg,0,0,0
cmp eax,0
je end_loop
invoke TranslateMessage,msg
invoke DispatchMessage,msg
jmp msg_loop
end_loop:
invoke ExitProcess,[msg.wParam]
 
proc WindowProc hwnd,wmsg,wparam,lparam
push ebx esi edi
cmp [wmsg],WM_DESTROY
je .wmdestroy
.defwndproc:
invoke DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
jmp .finish
.wmdestroy:
invoke PostQuitMessage,0
mov eax,0
.finish:
pop edi esi ebx
ret
endp
;______________________________________________________________
 
section '.idata' import data readable writeable
 
library kernel32,'KERNEL32.DLL',\
    user32,'USER32.DLL'
 
include 'api\kernel32.inc'
include 'api\user32.inc'

.686P
.model flat
include windows.inc
includelib user32.lib
includelib kernel32.lib
extern _imp__CreateWindowExA@48:dword
extern _imp__RegisterClassA@4:dword
extern _imp__GetMessageA@16:dword
extern _imp__DispatchMessageA@4:dword
extern _imp__ExitProcess@4:dword
extern _imp__DefWindowProcA@16:dword
.code
start:  xor ebx,ebx
         mov esi,400000h
    mov edi,offset wTitle
;------------------------------
; registering the window class 
;------------------------------
    push edi
    push ebx
    push COLOR_WINDOW+1
    push 10011h
    push ebx
    push esi
    push ebx
    push ebx
    push offset window_procedure
    push ebx
    push esp
    call _imp__RegisterClassA@4
;--------------------------+
; creating the main window |
;--------------------------+
    push ebx
    push esi
    shl esi,9
    push ebx
    push ebx
    push esi
    push esi
    push esi
    push esi
    push WS_OVERLAPPEDWINDOW or WS_VISIBLE
    push edi
    push edi
    push ebx    
      call _imp__CreateWindowExA@48
     mov ebp,esp ; обходимся без структуры MSG
  @@:   push ebx
    push ebx
    push ebx
    push ebp;offset wmsg
    call _imp__GetMessageA@16
    push ebp;offset wmsg
    call _imp__DispatchMessageA@4
      jmp @b
window_procedure: cmp dword ptr [esp+08],WM_DESTROY
    je short wmDESTROY
    jmp _imp__DefWindowProcA@16
wmDESTROY: push ebx
          call _imp__ExitProcess@4
wTitle db 'Iczelion Tutorial #3:A Simple Window in MASM',0
end start