Jmp msg_loop

Call DISPATCHMESSAGE, ds offset msg

Call TRANSLATEMESSAGE, ds offset msg

Je end_loop

Cmp ax, 0

Call GETMESSAGE, ds offset msg, 0, 0, 0

Call UPDATEWINDOW, ax

Pop ax

Call SHOWWINDOW, ax, cmdShow

Push ax

Mov bx, CW_USEDEFAULT

Xor ax, ax

Call REGISTERCLASS, ds offset wc

Call GETSTOCKOBJECT, WHITE_BRUSH

Call LOADCURSOR, ax IDC_ARROW

Xor ax, ax

Mov ax, 4CFFh

Or ax, ax

Call INITAPP, hInstance

Or ax, ax

Call INITTASK

Mov ds, ax

.286

Code

Freespace db 16 dup(0)

Data

; Для Windows Task Manager'a

; HINSTANCE нашего приложения

hInstance dw?

; Параметр просмотра окна

cmdShow dw?

; Структура PAINTSTRUCT

lppaint PAINTSTRUCT <0>

; Структура сообщения MSGSTRUCT

msg MSGSTRUCT <0>

; Структура описания окна

wc WNDCLASS <0>

; Заголовок окна

lpszTitleName db 'First Window', 0

; Название класса окна

lpszClassName db 'ASMCLASS', 0

; Выводимая в окно строка

lpszText db 'Hello World'

; Длина строки lpszText

lpszTextLength equ $-lpszText

; Заголовок диалогового окна

lpszCaption db 'Mouse Event', 0

; Сообщения диалогового окна

lpszLeftMsg db 'Left button pressed', 0

lpszRightMsg db 'Right button pressed', 0

; Как говоритья в WarLords "Lets The War Begins"

start:

; Инициализируем сегмент данных

mov ax, @data

; Инициализируем задачу и получаем входные параметры

; Если инициализация прошла успешно

jnz @@OK

; Если ошибка

jmp @@Fail

@@OK:

; Сохраняем HINSTANCE

mov [hInstance], di

; Сохраняем параметр просмотра окна

mov [cmdShow], dx

; Инициализируем приложение

jnz @@InitOK

@@Fail:

; Если инициализация завершилась неудачно

int 21h

@@InitOK:

; Заполняем структуру описания окна

mov [wc.clsStyle], 0

mov word ptr [wc.clsLpfnWndProc], offset WndProc

mov word ptr [wc.clsLpfnWndProc+2], seg WndProc

mov [wc.clsCbClsExtra], 0

mov [wc.clsCbWndExtra], 0

mov ax, [hInstance]

mov [wc.clsHInstance], ax

mov [wc.clsHIcon], 0

; Загружаем курсор IDC_ARROW и вставляем его в структуру

mov [wc.clsHCursor], ax

; Загружаем цвет белого фона и вставляем его в структуру

mov [wc.clsHbrBackground], ax

mov word ptr [wc.clsLpszMenuName], 0

mov word ptr [wc.clsLpszMenuName+2], 0

mov word ptr [wc.clsLpszClassName], offset lpszClassName

mov word ptr [wc.clsLpszClassName+2], ds

; Регистрируем структуру описания окна

; Создаем окно

call CREATEWINDOW, ds offset lpszClassName, ds offset lpszTitleName\, WS_OVERLAPPEDWINDOW, ax, bx, bx, bx, bx, ax, ax, \

[hInstance], ax, ax

; Показываем окно

; Обновляем окно

; Цикл обработки сообщений

msg_loop:

; Получаем сообщение

; Проверяем на наличие сообщения WM_QUIT (AX=0)

; Обрабатываем сообщение

; Обрабатываем следующее сообщение

end_loop:

; Выходим из программы

mov ax, [msg.msWPARAM]

Дата добавления: 2014-01-06