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

ENTER 0,0

LENSTR PROC

Invoke Sleep, 5000

LOOP L1

MOV ECX,01FFFFFFFH

PUSH HANDL

PUSH OFFSET BUF

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH COL2

PUSH HANDL1

PUSH OFFSET BUF

PUSH 200

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH OFFSET STR3

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET STR3

PUSH HANDL

PUSH COL2

PUSH HANDL

PUSH CRD

MOV CRD.Y,2

MOV CRD.X,0

PUSH HANDL

PUSH OFFSET BUF

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH COL1

PUSH HANDL1

PUSH OFFSET BUF

PUSH 200

PUSH OFFSET LENS

PUSH 0

PUSH HANDL

PUSH OFFSET STR2

PUSH EBX

PUSH OFFSET LENS

PUSH 0

PUSH OFFSET STR2

PUSH HANDL

PUSH CRD

MOV CRD.Y,3

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

X WORD ?

Y WORD ?

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

_DATA SEGMENT DWORD PUBLIC USE32 'DATA'

HANDL DWORD ?

HANDL1 DWORD ?

STR2 DB "Введить перший рядок: ",0

STR3 DB "Введить другий рядок: ",0

STR1 DB "Нова консоль",0

BUF DB 200 dup (?)

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

CRD COOR <?>

_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 ReadConsoleA@20

; виведення отриманої консолі

; задати атрибути кольору тексту, який буде виводитись

CALL SetConsoleTextAttribute@8

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

PUSH [LENS] ; довжина рядка, що вводиться

CALL WriteConsoleA@20

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

CALL SetConsoleCursorPosition@8

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

CALL SetConsoleTextAttribute@8

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

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

CALL WriteConsoleA@20

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

CALL ReadConsoleA@20

; виведення отриманої консолі

; задати атрибути кольору тексту, який буде виводитись

CALL SetConsoleTextAttribute@8

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

PUSH [LENS] ; довжина рядка, що вводиться

CALL WriteConsoleA@20

; невелика затримка

L1:

; закрити консоль

;затримка

CALL FreeConsole@0

CALL ExitProcess@4

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

; довжина в EBX

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

1. Система планування ресурсів підприємства ( ERP – Enterprise Resource Planning ).

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