proc WindowProc uses rbx rsi rdi, hwnd,wmsg,wparam,lparam


       mov     [hwnd],rcx
;       mov     [wmsg],edx
       mov     [wparam],r8
;       mov     [lparam],r9
        cmp edx,WM_CREATE
        jnz .rr
   
        ret
.rr:
        cmp edx,WM_KILLFOCUS
        jnz .0
        mov  byte [FocusWinLost],1
        ret
.0:     cmp edx,WM_SETFOCUS
        jnz .0b
        mov  byte [FocusWinLost],0
        ret
.0b:
    rept 0 {
        cmp edx, WM_PAINT
            jnz .1
              invoke BeginPaint,[hwnd], ps ;*=mozno bez             
              invoke EndPaint,[hwnd], ps   ;*
              ret
          .1:
          }
;KeyPr
        cmp edx, WM_KEYDOWN
            cmp [wparam],VK_ESCAPE
            jz  .wmdestroy
            ;jnz .zznoescp
         ;jnz  .4
              mov eax,dword [wparam]
              ;cmp dword [KeyPr],0
              ;jnz .4
              mov dword [KeyPr],eax
              mov eax,1
              ;jmp .defwndproc
              ;cmp eax,VK_F6
              ;jnz .v
              ;Msg 'VK_F6'
              ;mov dword [KeyPr],0
 ;.v:        ;ret                    ;tut iz-za ret exit iz progi !
    .4:
            cmp edx, WM_LBUTTONDOWN
            jnz .02
            mov [mous_btn],1
            ;invoke  MessageBox,0,'ok',0,0
            ret
.02:        cmp edx, WM_LBUTTONUP
            jnz .03
            mov [mous_btn],0
            ret
.03:         cmp edx, WM_RBUTTONDOWN
            jnz .02b
            mov [mous_rbtn],1
            ;invoke  MessageBox,0,'ok',0,0
            ret
.02b:       cmp edx, WM_RBUTTONUP
            jnz .03b
            mov [mous_rbtn],0
            ret
.03b:
;mouse wheel
        cmp edx, WM_MOUSEWHEEL
            jnz .2
            mov ax,word [wparam+2]
            test ax,ax
            jl .WheelDwn
            mov     byte [MousWheel], 1     ;Mous koleso krutili v pered
            ret
      .WheelDwn:
            mov     byte [MousWheel], 2     ;Mous koleso krutili nazad
            ret
  .2:
        cmp     edx,WM_DESTROY
        je      .wmdestroy
  .defwndproc:
        invoke  DefWindowProc,rcx,rdx,r8,r9
        jmp     .finish
  .wmdestroy:
        ;invoke  PostQuitMessage,dword 0    ;bugi i net exit Msg-a !
        mov     [CloseWin],1
        xor     eax,eax
  .finish:
        ret