Ошибка - исключение по адресу

ExitProcess PROTO 
DlgProc PROTO :QWORD,:QWORD, :QWORD, :QWORD
PostQuitMessage PROTO
GetModuleHandleA PROTO
DialogBoxParamA PROTO
GetDlgItemTextA PROTO
SendDlgItemMessageA PROTO
 
include /windows.inc
 
.data
DName db "dial",0
hinst dq ?
result_buffer db 20 dup ("0")
 
hwnd dq 0
uMsg dq 0
wParam dq 0
lParam dq 0
oldRsi dq 0
 
.code
main proc
 sub rsp, 56
  
 mov rcx,0
 call GetModuleHandleA 
 mov hinst,rax
 
 mov rcx,hinst
 lea rdx, DName
 mov r8,0
 lea r9,DlgProc
 mov     dword ptr [rsp+32], 0
 call DialogBoxParamA
 mov rcx,0
 call ExitProcess 
 main endp
 
DlgProc proc q:QWORD,w:QWORD, e:QWORD, r:QWORD
  cmp edx, WM_CLOSE ;10h   
  je Exit_Button
 
  cmp edx, WM_COMMAND   ;111h   
  je go_button
  jne End_it 
 
 go_button:
 cmp r8,4
 je Exit_Button
 cmp r8,3
 je next
 jne End_it
 
 next:
    mov hwnd,rcx
    mov uMsg,rdx
    mov wParam,r8
    mov lParam,r9
 
    mov rdx,1
    lea r8,result_buffer
    mov r9,20
    ;call GetDlgItemTextA
    mov rax, 1
    
    mov rcx,  hwnd
    mov rdx,  uMsg
    mov r8,   wParam
    mov r9,   lParam
 
        mov hwnd,rcx
 
    mov rcx,rax
    mov oldRsi, rsi
    lea rsi,result_buffer
    m1:
     cmp byte ptr [rsi],'*'
     je m2
     jne m3
     m2:
      mov byte ptr [rsi],' '
     m3:
      inc rsi
     loop m1    
     
        mov rcx,hwnd
            
    mov rdx,2
    mov r8,LB_DELETESTRING  ;  182h - LB_DELETESTRING
    mov r9,0
    lea rsi,result_buffer
    mov qword ptr [rsp+32],rsi 
    call SendDlgItemMessageA
    
        mov rcx,  hwnd
        mov rdx,  uMsg
        mov r8,   wParam
        mov r9,   lParam
 
    mov rdx,2
    mov r8,LB_ADDSTRING  ;  182h - LB_DELETESTRING
    mov r9,0
    lea rsi,result_buffer
    mov qword ptr [rsp+32],rsi 
    call SendDlgItemMessageA
 
    mov rsi, oldRsi
 
    jmp End_it
    
Exit_Button:
    mov rcx,0
    call PostQuitMessage
 
End_it:    
    mov rax,0
    ret
DlgProc endp 
end

dial DIALOG 0, 0, 309, 95
CAPTION "mY dialog"
BEGIN
    EDITTEXT 1, 48,7,222,14
    ListBox 2,48,24,222,14
    PUSHBUTTON "Run", 3, 167,41,50,14  
    PUSHBUTTON "Exit",4, 220,41,50,12
    LTEXT "Input string:", -1, 7,10,40,8    
END

    mov rcx, hwnd
    mov rdx, uMsg
    mov r8, wParam
    mov r9, lParam
 
    mov hwnd,rcx
 
    mov rcx,rax

    mov oldRsi, rsi