В окне отобразить два однострочных текстовых редактора и кнопку «Обмен»

format PE GUI 5.0
 include 'path'
 include 'path'
 entry start
 
 section '.data' data readable writeable
 Caption db 'Сообщение',0  ; определяем ASCIIZ – строку содержащую сообщение и спецификацию управления ; форматом вывода для функции wsprintf  8.
 forma db '%d',0 ; определяем 30 байтовый буфер 9.
 string db 30 DUP(?)
 _class  db 'MY_Class',0
 _title  db 'Simple',0
 _edit   db 'edit',0
 _button db 'button',0
 _button_title   db 'Обмен',0
 _error_window   db 'Ошибка создания окна',0
 _error_num      db 'Число не задано',0
 _listbox db "listbox",0
 _listbox1 db "listbox",0
 _listbox_title   db 'Список №1',0
 _listbox1_title   db 'Список№2',0
; _szListBox db "LISTBOX1",0
 
 
 _str1 db  "1",0
 _str2 db  "2",0
 _str3 db  "3",0
 _str4 db  "4",0
 _str5 db  "5",0
 
 _str200 db  "200",0
 _str201 db  "201",0
 _str202 db  "202",0
 _str203 db  "203",0
 _str204 db  "204",0
 _str205 db  "205",0
 
  wc WNDCLASS 0,WindowProc,0,0,0,0,0,COLOR_BTNFACE+1,0,_class
  msg  MSG
  IDC_LIST = 3000
  IDC_LIST1 = 3003
  IDC_EDIT = 1000
  IDC_BUTTON = 1001
 
 
  hList        dd    ?
  hList1        dd    ?
  hList2       dd    0
  hEdit        dd    ?
  flag         dd    ?
  chislo       dd    ?
  buffer       rd    20
  result1 dd          5
  result2 dd          205
  section '.code' code readable executable
  start:
 
  ;Функция GetModuleHandle, вернул дескриптор исп. модуля в eax
  invoke  GetModuleHandle,0
  ;заполняю им поле структуры WNDCLASS (wc.hInstance)
  mov     [wc.hInstance],eax
 ;функцией LoadIcon загружаю иконку будущего окна
  invoke  LoadIcon,0,IDI_APPLICATION
  ;заполняю ею поле структуры WNDCLASS (wc.hIcon)
  mov     [wc.hIcon],eax
  ;функцией  LoadCursor загружаю курсор будущего окна
  invoke  LoadCursor,0,IDC_ARROW
  ;заполняю им поле структуры WNDCLASS (wc.hCursor)
  mov     [wc.hCursor],eax
  ;функцией  RegisterClass регитсрирую класс окна,
  ;параметр wc указатель на структуру WNDCLASS описания окна
  invoke  RegisterClass,wc
  ; RegisterClass  должна вернуть в eax не 0, проверяю
  test    eax,eax
  jz      error
  ;функцией  CreateWindowEx создаю окно
  invoke CreateWindowEx,0,_class,_title,WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU,0,0,576,512,0,0,[wc.hInstance],0
  ; CreateWindowEx должна вернуть в eax не 0, проверяю
  test    eax,eax
  jz      error
  ;----------------------------------------------------------------------------------
   ;цикл обработки очереди сообщений
msg_loop:
   ;функцией  GetMessage получаю сообщения
   invoke  GetMessage,msg,0,0,0
   ;проверяю если eax=0 значит закрыл окно
   cmp     eax,0
   je end_loop
   ;функцией TranslateMessage  проверяю сообщения от клавиатуры
   invoke  TranslateMessage,msg
   ;функция DispatchMessage передаёт сообщения
   ;процедуру обработки сообщений (WindowProc)
   invoke  DispatchMessage,msg
jmp     msg_loop
 
  error:
  invoke  MessageBox,0,_error_window,0,MB_ICONERROR+MB_OK
 
  end_loop:
  invoke  ExitProcess,[msg.wParam]
 
;-----------------------------------------------------------------------------
  ;собственно сама процедура обработки сообщений
  ;WindowProc вызывается каждый раз
  ;при получении окном нового сообщения (WM_CREATE,WM_COMMAND и т.д.)
  ;и передаче его через DispatchMessage
 
 
 proc WindowProc hwnd,wmsg,wparam,lparam
    push    ebx esi edi
    ; проверяю сообщение WM_CREATE
    ;которое посылается окну после его создания
    cmp     [wmsg],WM_CREATE
    je      wmcreate
    ; проверяю сообщение, WM_COMMAND
    ; которое посылается окну после нажатия на кнопку
    cmp     [wmsg],WM_COMMAND
    je      wmcommand
    ; проверяю сообщение, WM_DESTROY
    ; которое посылается окну перед его удалением
    cmp     [wmsg],WM_DESTROY
    je      wmdestroy
 defwndproc:
    ; вызываю DefWindowProc если не было сообщений
    ; WM_CREATE, WM_COMMAND, WM_DESTROY
    invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
    jmp     retu
 ;обработчик сообщения  WM_CREATE
 wmcreate:
    invoke CreateWindowEx,0,_listbox,_listbox_title,WS_VISIBLE+WS_VSCROLL+LBS_HASSTRINGS+LBS_NOINTEGRALHEIGHT+LBS_DISABLENOSCROLL+WS_CHILDWINDOW,20,40,250,350,[hwnd],IDC_LIST,[wc.hInstance],0
    mov [hList],eax
    invoke SendMessage,[hList],LB_ADDSTRING,0,_str1
    invoke SendMessage,[hList],LB_ADDSTRING,0,_str2
    invoke SendMessage,[hList],LB_ADDSTRING,0,_str3
    invoke SendMessage,[hList],LB_ADDSTRING,0,_str4
    invoke SendMessage,[hList],LB_ADDSTRING,0,_str5
   ; invoke  SetFocus,[hList]
 
    invoke CreateWindowEx,0,_listbox1,_listbox1_title,WS_VISIBLE+WS_VSCROLL+LBS_HASSTRINGS+LBS_NOINTEGRALHEIGHT+LBS_DISABLENOSCROLL+WS_CHILDWINDOW,290,40,250,350,[hwnd],IDC_LIST1,[wc.hInstance],0
    mov [hList1],eax
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str200
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str201
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str202
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str203
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str204
    invoke SendMessage,[hList1],LB_ADDSTRING,0,_str205
 
    ;создаю кнопку button
    invoke  CreateWindowEx,0,_button,_button_title,WS_VISIBLE+WS_CHILDWINDOW+BS_DEFPUSHBUTTON,230,400,100,20,[hwnd], IDC_BUTTON,[wc.hInstance],0
    jmp     finish
 wmcommand:
 
   mov eax,[wparam]
   cmp eax,IDC_BUTTON ;проверяю нажата ли кнопка
   je m1
   mov eax,[lparam]
   mov  [hList2],eax;если кнопка не нажата, то в hList2 запоминаю lparam
   jmp exit
 
 m1:
   cmp [hList2],0  ;проверяю равен ли hList2 нулю.
   je finish
   mov eax,[hList]
   cmp [hList2],eax ;проверяю равен ли hList2 дескриптору первого listbox.
   jne m2
  ; Если равен, то до добавляю число в первый listbox.
   inc[result1]
   invoke wsprintf, string, forma, [result1]
   invoke SendMessage,[hList],LB_ADDSTRING,0,string
   jmp exit
 
 m2:
   ;Иначе добавляю число во второй listbox
   inc[result2]
   invoke wsprintf, string, forma, [result2]
   invoke SendMessage,[hList1],LB_ADDSTRING,0,string
   jmp exit
;-----------------------------------------------------
   ;закрываю приложение
 wmdestroy:
   invoke  PostQuitMessage,0
 exit:
 finish:
   xor     eax,eax
 retu:
   pop     edi esi ebx
   ret
 endp
 section '.idata' import data readable writeable
 
 library kernel32,'KERNEL32.DLL', user32,'USER32.DLL'
 
 include 'path'
 include 'path'