• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET STR2

PUSH HANDL

PUSH CRD

MOV CRD.Y,1

MOV CRD.X,0

PUSH HANDL

PUSH OFFSET STR3

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET STR3

PUSH HANDL

PUSH CRD

MOV CRD.Y,0

MOV CRD.X,0

PUSH HANDL

PUSH COL1

PUSH OFFSET STR1

PUSH EAX

PUSH CRD

MOV CRD.Y, 50

MOV CRD.X, 50

MOV HANDL, EAX

PUSH STD_OUTPUT_HANDLE

MOV HANDL1, EAX

PUSH STD_INPUT_HANDLE

PUSH OFFSET STR3

PUSH OFFSET STR3

PUSH OFFSET STR2

PUSH OFFSET STR2

PUSH OFFSET STR1

PUSH OFFSET STR1

COOR ENDS

COOR STRUC

BACKGROUND_INTENSITY equ 80h

BACKGROUND_RED equ 40h

BACKGROUND_GREEN equ 20h

BACKGROUND_BLUE equ 10h

FOREGROUND_INTENSITY equ 8h

FOREGROUND_RED equ 4h

FOREGROUND_GREEN equ 2h

FOREGROUND_BLUE equ 1h

STD_INPUT_HANDLE equ -10

STD_OUTPUT_HANDLE equ -11

DOUBLE_CL equ 2h

MOUSE_MOV equ 1h

ENHANCED_KEY equ l00h

CAPSLOCK_ON equ 80h

SCROLLLOCK_DN equ 40h

NUMLOCK_ON equ 20h

SHIFT_PRESSED equ l0h

LEFT_CTRL_PRESSED equ 8h

RIGHT_CTRL_PRESSED equ 4h

LEFT_ALT_PRESSED equ 2h

RIGHT_ALT_PRESSED equ 1h

MOUSE_EV equ 2h

KEY_EV equ 1h

END START

LENSTR ENDP

RET 4

LEAVE

POP EAX

DEC EBX

MOV EBX, EDI

XOR AL,AL

MOV EBX, EDI

CLD

PUSH EAX

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

MOV EDI, DWORD PTR [EBP+08H]

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

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

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

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

_TEXT ENDS

;подія

; константи

; атрибути кольорів

COL1 = 1h+2h+8h+10h

COL2 = 4h+2h+8h+40h

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

EXTERN GetStdHandle@4:NEAR

EXTERN wsprintfA:NEAR

…

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

includelib c:\masm32\lib\user32.lib

includelib c:\masm32\lib\kernel32.lib

include c:\masm32\include\kernel32.inc

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

X WORD ?

Y WORD ?

; сегмент данних

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'

HANDL DWORD ?

HANDL1 DWORD ?

STR2 DB "Enter word: ",0

STR3 DB "Press ESC to exit", 0

STR1 DB "Лабораторна робота №4",0

FORM DB "Coordinates: %u %u ",0

BUF DB 200 dup (?)

LENS DWORD ? ; кількість символів, що вводяться

CRD COOR <?>

EVENT DB 18 DUP(?)

SLOVO DWORD ?

_DATA ENDS

; сегмент кода

_TEXT SEGMENT DWORD PUBLIC USE32 'CODE'

START:

; кодування рядка

CALL CharToOemA@8

; кодування рядка

CALL CharToOemA@8

; кодування рядка

CALL CharToOemA@8

; створення консолі

; звільнення консолі

CALL FreeConsole@0

CALL AllocConsole@0

; отримати HANDL1 вводу

CALL GetStdHandle@4

; отримати HANDL виводу

CALL GetStdHandle@4

; встановлення розмірів консолі

CALL SetConsoleScreenBufferSize@8

; задання заголовку консолі

CALL SetConsoleTitleA@4

; задати атрибути кольору видимого тексту

CALL SetConsoleTextAttribute@8

; позиція курсора

CALL SetConsoleCursorPosition@8

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

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

CALL WriteConsoleA@20

; позиція курсора

CALL SetConsoleCursorPosition@8

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

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

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