use32
     org  0x0

; HEADER ======================================================================
     db  'MENUET01'
     dd  0x01
     dd  START
     dd  I_END
     dd  0x7000
     dd  0x7000
     dd  0x0
     dd  0x0

START:
; EVENT =======================================================================
red:
       call draw_window
still:
       mov     eax,10                        ; функция 10 - ждать события
       int     0x40                          ; прерывание (вызов функции)    

       cmp     eax,1                         ; перерисовать окно ?
       je      red                           ; если да - на метку red
       cmp     eax,2                         ; нажата клавиша ?
       je      key                           ; если да - на key
       cmp     eax,3                         ; нажата кнопка ?
       je      button                        ; если да - на button
       jmp     still                         ; если другое событие - в начало цикла
;end_still

key:                    ; нажата клавиша на клавиатуре
       mcall   2                             ; функция 2 - считать код символа (в ah)
       jmp     still                         ; вернуться к началу цикла
;end_key

button:
       mcall   17                            ; 17 - получить идентификатор нажатой кнопки
       cmp     ah, 1                         ; если нажата кнопка с номером 1,
       jz      bexit                         ; выходим
       jmp     still
     bexit:
       mcall -1                    ; иначе конец программы
;end_button

; DRAW ========================================================================
draw_window:
       mov     eax,12                        ; функция 12: означает, что будет рисоваться окно
       mov     ebx,1                         ; 1,начало рисования
       int     0x40                          ; Прерывание

       mov     eax,48                        ; Функция 48 - стили отображения окон
       mov     ebx,3                         ; Подфункция 3 - получить стандартные цвета окон.
       mov     ecx,sc                        ; Указатель на буфер размером edx байт, под структуру
       mov     edx,sizeof.system_colors      ; Размер таблицы цветов (должен быть 40 байт)
       int     0x40                          ; Прерывание

       mov     eax,48                        ; Функция 48 - стили отображения окон.
       mov     ebx,4                         ; Подфункция 4 - возвращает eax = высота скина.
       int     0x40                          ; Прерывание
       mov     ecx,eax                       ; Запоминаем высоту скина

       xor     eax,eax                       ; Очищаем eax (mov eax,0) (Функция 0)
       mov     ebx,200 shl 16+160            ; [координата по оси x]*65536 + [размер по оси x]
       add     ecx,200 shl 16+60             ; Высота скина + [координата по y]*65536 + [размер по y]
       mov     edx,[sc.work]                 ; Видимо стиль окна по дефолту
       or      edx,0x34000000                ; Или окно со скином фиксированных размеров
       mov     edi,title                     ; Заголовок окна
       int     0x40                          ; Прерывание

       mov     eax,12                        ; функция 12: означает, что будет рисоваться окно
       mov     ebx,2                         ; 1,начало рисования
       int     0x40                          ; Прерывание

       ret

; DATA ========================================================================
       sc           system_colors
       title        db 'DEMO REC',0

I_END:

proc WindowProc uses ebx esi edi, hwnd,wmsg,wparam,lparam
          cmp     [wmsg], WM_KEYDOWN  ; событие посылается окну если нажата кнопка
          je      .wmKeydown                    ; если событие действительно от клавиатуры то переходим

          ;
          ; - тут куча других проверок событий (WM_SETFOCUS, WM_KILLFOCUS, WM_CREATE и тп.)
          ;

    .wmKeydown:
          mov     eax, [wparam]  ; заносим в регистр

          cmp     eax, VK_ESCAPE  ; сравниваем, 27 - клавиши ESC
          ; call    your_function - вызываешь тут ту функцию какую надо
          invoke  MessageBox,NULL,_keyb,_event,MB_ICONINFORMATION+MB_OK ; визуальное подтверждение нажатия
          xor     eax,eax ; привычка чистить за собой
          ret
endp
          ;
          ; - тут еще код до секции .data
          ;

    _keyb  TCHAR 'ESC PRESS.',0
    _event TCHAR 'Event.',0