Напишите комментарии к программе - Assembler (223417)

.586
.model flat,STDCALL
option casemap:none
 
include l5.inc
.code
begin:
    ; визначаємо хендл модуля
    call GetModuleHandle, NULL
    mov   hInstance,eax
    ; заповнюємо структуру WNDCLASSEX
    mov   cbSize,12*4       
    mov   style,CS_HREDRAW or CS_VREDRAW
    mov   lpfnWndProc, OFFSET WndProc
    mov   cbClsExtra,NULL
    mov   cbWndExtra,NULL
    ; колір фону сірий
    call  GetSysColorBrush,COLOR_BTNFACE
    mov   hbrBackground,eax
    mov   lpszMenuName,NULL
    mov   lpszClassName,OFFSET ClassName
    ; іконка програми IDI_APPLICATION
    call LoadIcon,NULL,IDI_APPLICATION
    mov   hIcon,eax
    mov   hIconSm,eax
    ;курсор стандартний
    call LoadCursor,NULL,IDC_ARROW
    mov   hCursor,eax
    ;реєструемо новий клас
    call RegisterClassEx,offset WNDCLASSEX
    ;ств. батьківське вікно 
    call CreateWindowEx,NULL,offset ClassName,offset AppName,\
                        WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,\
                        CW_USEDEFAULT,800,\
                        600,NULL,NULL,\
                        hInstance,NULL
    mov  hwnd,eax
    ;ств. кнопку, на батьківському вікні (стиль WS_CHILD)
 
    ; цикл прослуховування повідомлень
    loop:
        ;відловити тільки ті що відносятся до нашого вікна
        call GetMessage, OFFSET MSG,NULL,0,0
        ;якщо 0 або -1, вікна не має
        test eax,eax
        jz @exit
        ; перетворюємо з віртуальних ключів у систему повідомлень
        call TranslateMessage, offset MSG
        ; відпра. на обробку у функ. WndProc
        call DispatchMessage, offset MSG
    jmp loop
@exit:
    call ExitProcess,0
 
draw proc ; проц. руху
    LOCAL py,px:DWORD
    ; розбиває на лінії і кажну малює по сін. 
    ; нажна наступна лінія має зміщення по фазі на 2 гадуси (dx_)
    mov px,1 ; н-р лінні 
a:      
    fld x ; завант. х у спів процесор
    fsin ; знах сін
    fmul A ; множ на ампліт
    
    fistp py ; витягуємо результат 
    
    fld x ; до х додоаємо зміщення dx_ 
    fadd dx_
    fstp x  
    ; у тимчасовий бітмап (малюнок) копіюємо полоску в 1 пх., але координата у по сін 
    call BitBlt,hdc_tmp,px,py,1,250,hdc_bit,px,1,SRCCOPY
    inc px ; збільшуємо х
    cmp px,700 ;поки до 700 не дійшли
    jl a; шуруємо на мітку а     
    ; коли все намалювали результат на екран коп. 
    call BitBlt,hdc1,20,40,700,250,hdc_tmp,2,0,SRCCOPY
    
    ret
 
draw endp
; функ. обробки повыдомлень вікна 
WndProc proc hWnd1:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
LOCAL tmp,X1,Y1:DWORD
    ; якщо прийшло повідомлення про знищення вікна, перейти на мітку @DESTROY
    cmp uMsg,WM_DESTROY
    jz @DESTROY
    ; якщо прийшло повідомлення про створення вікна, перейти на мітку @CREATE 
    cmp uMsg,WM_CREATE
    jz @CREATE
    ;якщо прийшло повідомлення про здійснення дії (наприклад натиснута кнопка), перейти на мітку @COMMAND
    ; виклік фун. дія по замовчуванню
    call DefWindowProc,hWnd1,uMsg,wParam,lParam     
    ret
    
@DESTROY:
        ; відправ. повід про закриття вікна
        call PostQuitMessage,NULL
        ret 
@CREATE:
        call GetDC,hWnd1 ; береб граф контекс вікна
        mov hdc1,eax
        ; завант мал
        call LoadImage,hInstance,offset path,IMAGE_BITMAP,0,0,LR_LOADFROMFILE
        mov hbit,eax
         ; ств. сумісний граф контекст 
        call CreateCompatibleDC,hdc1
        mov hdc_bit,eax
        call SelectObject,hdc_bit,hbit ; приєднюємо граф контекст до малюнка, щоб ми могли з ним прац.
    
 
        call CreateCompatibleDC,hdc1 ; ств. тимчас. малюнок, куда будемо малювати сін. малюнок
        mov hdc_tmp,eax
        call CreateCompatibleBitmap,hdc1,700,250
        mov hbit_tmp,eax        
        call SelectObject,hdc_tmp,hbit_tmp
        call Rectangle,hdc_tmp,0,0,700,250
 
        call SetTimer,0,0,100,offset draw    ; задаємо таймер руху (100 мілі с), обробник draw
 
        ret
@MOUSEMOVE:
         
@nobutton:      
        ret     
WndProc endp
 
end begin