Вывод текущих значений основных регистров в реальном времени

.386
.model flat,stdcall
option casemap:none
 
include 123123123.inc
 
.code
 
start:
 
    invoke GetModuleHandle,NULL
    mov    hInstance,eax
    invoke WinMain,hInstance,NULL,NULL,SW_SHOWDEFAULT
    invoke ExitProcess,eax
 
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
    LOCAL   wc:WNDCLASSEX
    LOCAL   msg:MSG
 
    mov     wc.cbSize,sizeof WNDCLASSEX
    mov     wc.style,CS_HREDRAW or CS_VREDRAW
    mov     wc.lpfnWndProc,offset WndProc
    mov     wc.cbClsExtra,NULL
    mov     wc.cbWndExtra,DLGWINDOWEXTRA
    push    hInst
    pop     wc.hInstance
    mov     wc.hbrBackground,COLOR_BTNFACE+1
    mov     wc.lpszClassName,offset ClassName
    invoke LoadIcon,NULL,IDI_APPLICATION
    mov     wc.hIcon,eax
    mov     wc.hIconSm,eax
    invoke LoadCursor,NULL,IDC_ARROW
    mov     wc.hCursor,eax
    invoke RegisterClassEx,addr wc
    invoke CreateDialogParam,hInstance,IDD_DIALOG,NULL,addr WndProc,NULL
    invoke ShowWindow,hWnd,SW_SHOWNORMAL
    invoke UpdateWindow,hWnd
    
    ;------------timer--------------------
    invoke SetTimer,hWnd,timer,500,NULL
    .while TRUE
        invoke GetMessage,addr msg,NULL,0,0
      .BREAK .if !eax
        invoke TranslateMessage,addr msg
        invoke DispatchMessage,addr msg
    .endw
    mov     eax,msg.wParam
        
    ;------------delete timer--------------------
    invoke KillTimer,hWnd,timer
    ret
    
    
WinMain endp
 
WndProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM
    
    LOCAL ps:PAINTSTRUCT
    LOCAL rect:RECT
    
    ;------rectangle for repaint-----   
    mov ebx,10
    mov rect.top,ebx    
    mov ebx,70
    mov rect.left,ebx   
    mov ebx,190
    mov rect.bottom,ebx 
    mov ebx,120
    mov rect.right,ebx
    
    mov     eax,uMsg
    .if eax==WM_INITDIALOG
        push    hWin
        pop     hWnd
        
        invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR namest1,NULL,WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL,70,10,120,20,hWin,static1,hInstance,NULL
        mov  hwndstatic1,eax    
        invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR namest2,NULL,WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL,70,40,120,20,hWin,static2,hInstance,NULL
        mov  hwndstatic2,eax
        invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR namest3,NULL,WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL,70,70,120,20,hWin,static3,hInstance,NULL
        mov  hwndstatic3,eax    
        invoke CreateWindowEx,WS_EX_CLIENTEDGE, ADDR namest4,NULL,WS_CHILD or WS_VISIBLE or WS_BORDER or ES_LEFT or ES_AUTOHSCROLL,70,100,120,20,hWin,static4,hInstance,NULL
        mov  hwndstatic4,eax
                
        call print
        
    .elseif eax==WM_TIMER
        .if wParam==timer
            invoke InvalidateRect, hWin,addr rect,TRUE
        .endif
    .elseif eax==WM_PAINT
            invoke BeginPaint,hWin, ADDR ps
                call print
            invoke EndPaint,hWin, ADDR ps               
    .elseif eax==WM_CLOSE
        invoke DestroyWindow,hWin
    .elseif uMsg==WM_DESTROY
        invoke PostQuitMessage,NULL
    .else
        invoke DefWindowProc,hWin,uMsg,wParam,lParam
        ret
    .endif
    xor    eax,eax
    ret
 
WndProc endp
 
print proc
    
    push eax
    lea esi,msg1 
    call reform
        
    push ebx
    lea esi,msg2 
    call reform
    
    push ecx
    lea esi,msg3 
    call reform
    
    push edx
    lea esi,msg4 
    call reform
    
    invoke SetWindowText,hwndstatic1,ADDR msg1
    invoke SetWindowText,hwndstatic2,ADDR msg2
    invoke SetWindowText,hwndstatic3,ADDR msg3
    invoke SetWindowText,hwndstatic4,ADDR msg4
    ret
 
print endp
 
reform proc
    pop edx
    pop ebx
    push edx
        
    invoke wsprintf,addr text, addr t, ebx
        
    mov ecx,8
    lea edi,text
    
    cycle:
    mov bl,[edi]
    mov [esi],bl
    inc edi
    inc esi
    loop cycle
    ret 
    
reform endp
 
end start

include windows.inc
include user32.inc
include kernel32.inc
include shell32.inc
include comctl32.inc
include comdlg32.inc
 
includelib user32.lib
includelib kernel32.lib
includelib shell32.lib
includelib comctl32.lib
includelib comdlg32.lib
 
WinMain             PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc             PROTO :DWORD,:DWORD,:DWORD,:DWORD
 
.const
 
ClassName           db 'DLGCLASS',0
AppName             db 'Curs',0
 
IDD_DIALOG          equ 1000
static1             equ 1
static2             equ 2
static3             equ 3
static4             equ 4
timer               equ 99
 
.data?
 
hInstance           dd ?
CommandLine         dd ?
hWnd                dd ?
 
hwndstatic1         HWND ?
hwndstatic2         HWND ?
hwndstatic3         HWND ?
hwndstatic4         HWND ?
 
.data
namest1 db "static",0
namest2 db "static",0
namest3 db "static",0
namest4 db "static",0
t db "%x",0
 
msg1    db 50 dup(0)
msg2    db 50 dup(0)
msg3    db 50 dup(0)
msg4    db 50 dup(0)
 
text    db 50 dup(0)

.686P
.model flat
include windows.inc
includelib user32.lib
extern _imp__MessageBoxA@16:dword
extern _imp__wsprintfA:dword
.code
start:  pushad
    mov ebp,esp
    xor eax,eax
    mov ax,ss
    push eax
    mov ax,gs
    push eax
    mov ax,fs
    push eax
    mov ax,es
    push eax
    mov ax,ds
    push eax
    mov ax,cs
    push eax
    push dword ptr [ebp+12];esp
    push dword ptr [ebp+8];ebp
    push dword ptr [ebp];edi
    push dword ptr [ebp+4];esi
    push dword ptr [ebp+20];edx
    push dword ptr [ebp+24];ecx
    push dword ptr [ebp+16];ebx
    push dword ptr [ebp+28];eax
    push offset format
    push offset buffer
    call _imp__wsprintfA
    add esp,64
    popad
    push 0
    push offset Caption
    push offset buffer 
    push 0
    call _imp__MessageBoxA@16
    retn
.data
format  db 'содержание регистров',0Ah,'при старте программы',0Ah
    db 'eax=%08lXh',0Ah
    db 'ebx=%08lXh',0Ah
    db 'ecx=%08lXh',0Ah
    db 'edx=%08lXh',0Ah
    db 'esi=%08lXh',0Ah
    db 'edi=%08lXh',0Ah
    db 'ebp=%08lXh',0Ah
    db 'esp=%08lXh',0Ah 
    db 'cs=%04lXh  ds=%04lXh',0Ah
    db 'es=%04lXh  fs=%04lXh',0Ah
    db 'gs=%04lXh  ss=%04lXh',0Ah,0
buffer db 250 dup (0)
Caption db 'debugger2',0
end start

...
.if eax==WM_INITDIALOG
        push    hWin
        pop     hWnd
        ........................
        ........................
        push edx
                push ecx
                push ebx
                push eax        
        call print
        pop eax
        pop ebx
        pop ecx
        pop edx
        
    .elseif eax==WM_TIMER
        .if wParam==timer
            invoke InvalidateRect, hWin,addr rect,TRUE
        .endif
    .elseif eax==WM_PAINT
            invoke BeginPaint,hWin, ADDR ps
                push edx
                push ecx
                push ebx
                push eax
            call print
            pop eax
            pop ebx
            pop ecx
            pop edx
                
            invoke EndPaint,hWin, ADDR ps
...