Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



WNDCLASS STRUC

MSGSTRUCT ENDS

MSGSTRUCT STRUC

RGBS equ (160 or (70 shl 8)) or (100 shl 16)

RGBP equ 250 or (100 shl 8)

RGBL equ 0

RGBR equ 80

RGBW equ (0 or (100 shl 8)) or (60 shl 16)

PS_DASHDOT equ 3

HS_DIAGCROSS equ 5

SW_SHOWNORMAL equ 1

IDC_CROSS equ 32515

IDI_APPLICATION equ 32512

WS_OVERLAPPEDWINDOW equ 000CF0000H

CS_GLOBALCLASS equ 4000h

CS_HREDRAW equ 2h

CS_VREDRAW equ 1h

WM_COMMAND equ 111h

WM_PAINT equ 0Fh

WM_RBUTTONDOWN equ 204h

WM_LBUTTONDOWN equ 201h

WM_CREATE equ 1

WM_DESTROY equ 2

END START

LENSTR ENDP

RET 4

LEAVE

POP EAX

DEC EBX

MOV EBX, EDI

XOR AL,AL

MOV EBX, EDI

CLD

PUSH EAX

ENTER 0,0

LENSTR PROC

PUSH 0

JNE L00

JNE L00

CMP BYTE PTR EVENT,KEY_EV

JMP L00

PUSH HANDL

PUSH OFFSET BUF

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET BUF

PUSH HANDL

PUSH CRD

MOV CRD.Y,AX

MOV CRD.X,BX

JMP L00

JE DOUBLE

JNE L001

CMP WORD PTR EVENT, MOUSE_EV

PUSH HANDL1

PUSH OFFSET EVENT

PUSH 1

PUSH OFFSET SLOVO

PUSH HANDL1

PUSH OFFSET BUF

PUSH 200

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH OFFSET STR2

CALL WriteConsoleA@20

; чекати виведення консолі

CALL ReadConsoleA@20

L00:

; отримання інформації про подію

CALL ReadConsoleInputA@16

CMP BYTE PTR EVENT+16, MOUSE_EV

DOUBLE:

MOV BX,WORD PTR EVENT+4 ;X

MOV AX,WORD PTR EVENT+6 ;Y

CALL SetConsoleCursorPosition@8

; виведення рядка

CALL LENSTR ; в EBX довжина рядка

CALL WriteConsoleA@20

L001:

; перевірка події

; перевірка нажаття кнопки

CMP BYTE PTR EVENT+14,27

CALL FreeConsole@0

CALL ExitProcess@4

; рядок - [EBP+08H]

; довжина в EBX

;--------------

MOV EDI, DWORD PTR [EBP+08H]

MOV ECX, 100 ; обмежити довжину рядка

REPNE SCASB ; найти символ 0

SUB EDI, EBX ; довжина рядка, включаючи 0

;--------------

_TEXT ENDS

;директиви компонувальнику для підключення бібліотек

includelib C:\masm32\lib\user32.lib

includelib C:\masm32\lib\kernel32.lib

includelib C:\masm32\lib\gdi32.lib

includelib C:\masm32\lib\masm32.lib

;константи

;властивості вікна

style equ CS_HREDRAW+CS_VREDRAW+CS_GLOBALCLASS

;ідентифікатор стандартної піктограми

;ідентифікатор курсору

;режим показу вікна — нормальний

;прототипи зовнішніх процедур

EXTERN CreateWindowExA@48:NEAR

;структури

MSHWND DD ?;ідентифікатор вікна, що отримує ;повідомлення

MSMESSAGE DD ? ;ідентифікатор повідомлення

MSWPARAM DD ? ;додаткова інформація про повідомлення

MSLPARAM DD ? ;додаткова інформація про повідомлення

MSTIME DD ? ;час посилання повідомлення

MSPT DD ?;положення курсору, під час посилання ;повідомлення

CLSSTYLE DD ? ;стиль вікна

CLWNDPROC DD ? ;вказівник на процедуру вікна

CLSCEXTRA DD ? ;інформація про додаткові байти для даної ;структури

CLWNDEXTRA DD ? ;інформація про додаткові байти для вікна

CLSHINSTANCE DD ? ;дескриптор додатка

CLSHICON DD ? ;ідентифікатор ікони вікна

CLSHCURSOR DD ? ;ідентифікатор курсору вікна

CLBKGROUND DD ? ;ідентифікатор пензля вікна

CLMENUNAME DD ? ;ім’я-ідентифікатор меню

CLNAME DD ? ;специфікує ім'я класу вікон


Читайте також:

  1. Arithmetic Instructions
  2. Branch Instructions
  3. Classification of phraseological units and their structural types.
  4. Computer Instructions
  5. Conditional Branch Instructions
  6. Data Transfer Instructions
  7. Divergences in the semantic structure of words
  8. Emphatic Negative Constructions
  9. Exercise 1. Translate the following sentences paying attention to Participle Constructions in different syntactic functions.
  10. Formats of instructions
  11. III. Manner of noise production and the type of obstruction
  12. Instruction Length




Переглядів: 459

<== попередня сторінка | наступна сторінка ==>
PUSH EBX | PUSH EDI

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

  

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.113 сек.