2025-02-15 20:09:06 +03:00
|
|
|
|
; Выведет строку, которую ты ввел, память под строку выделяется динамически на куче
|
2025-02-15 19:37:34 +03:00
|
|
|
|
format PE console
|
|
|
|
|
|
entry start
|
|
|
|
|
|
include '%FASMINC%\WIN32A.INC'
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
section '.code' code readable executable
|
|
|
|
|
|
start:
|
|
|
|
|
|
invoke printf, usage
|
|
|
|
|
|
invoke printf, req
|
|
|
|
|
|
invoke malloc, 2 ; аллоцирую изначально 2 байта под символ и нуль-терминатор
|
|
|
|
|
|
mov ebx, eax ; адрес строки будет в ebx
|
|
|
|
|
|
push 2 ; емкость
|
|
|
|
|
|
push 0 ; длина строки в стеке
|
|
|
|
|
|
|
|
|
|
|
|
.next_char:
|
|
|
|
|
|
; беру со стека длину и емкость
|
|
|
|
|
|
pop eax ; длина
|
|
|
|
|
|
pop ecx ; емкость
|
|
|
|
|
|
; увеличиваю длину на 1
|
|
|
|
|
|
inc eax
|
|
|
|
|
|
cmp eax, ecx ; если длина = емкость
|
|
|
|
|
|
je .realloc_memory ; реаллоцирую память
|
|
|
|
|
|
push ecx ; новая емксоть в стек
|
|
|
|
|
|
push eax ; новая длина в стек
|
|
|
|
|
|
jmp .continue ; иначе продолжаю программу
|
|
|
|
|
|
|
|
|
|
|
|
.realloc_memory:
|
|
|
|
|
|
; удваиваю емкость
|
|
|
|
|
|
shl ecx, 1
|
|
|
|
|
|
push ecx ; новая емксоть в стек
|
|
|
|
|
|
push eax ; новая длина в стек
|
|
|
|
|
|
invoke realloc, ebx, ecx
|
|
|
|
|
|
pop ebx
|
|
|
|
|
|
pop ecx
|
|
|
|
|
|
mov ebx, eax ; в ebx новый адрес данных
|
|
|
|
|
|
|
|
|
|
|
|
.continue:
|
|
|
|
|
|
invoke getche ; считываю символ с клавиатуры
|
|
|
|
|
|
cmp al, 13
|
|
|
|
|
|
je .end ; Если Enter, завершаем ввод
|
|
|
|
|
|
mov edx, eax ; символ из eax в edx
|
|
|
|
|
|
pop eax ; берем новую длину
|
|
|
|
|
|
mov [ebx + eax - 1], dl ; сохраняю считанный символ в выделенной памяти
|
|
|
|
|
|
mov byte [ebx + eax], 0 ; добавляю нуль-терминатор
|
|
|
|
|
|
push eax
|
|
|
|
|
|
jmp .next_char ; след итерация
|
|
|
|
|
|
|
|
|
|
|
|
.end:
|
|
|
|
|
|
; вывод результата
|
|
|
|
|
|
invoke printf, resp, ebx
|
|
|
|
|
|
; освобождение памяти
|
|
|
|
|
|
invoke free, ebx
|
|
|
|
|
|
invoke getch
|
|
|
|
|
|
invoke ExitProcess, 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
section '.data' data readable writeable
|
2025-02-15 19:49:39 +03:00
|
|
|
|
usage db \
|
|
|
|
|
|
'This is a test echo program written in FASM,', \
|
|
|
|
|
|
' outputting to you the string you entered.', 10, \
|
|
|
|
|
|
'Works with strings of any length!', 10, 10, 0
|
2025-02-15 19:37:34 +03:00
|
|
|
|
req db 'TEXT: ', 0
|
2025-02-15 19:43:49 +03:00
|
|
|
|
resp db 10, 'ECHO: %s', 10, 'Press any button to exit: ', 0
|
2025-02-15 19:37:34 +03:00
|
|
|
|
|
|
|
|
|
|
section '.idata' import data readable
|
|
|
|
|
|
library \
|
|
|
|
|
|
msvcrt, 'msvcrt.dll', \
|
|
|
|
|
|
kernel32, 'kernel32.dll'
|
|
|
|
|
|
import msvcrt, \
|
|
|
|
|
|
malloc, 'malloc', \
|
|
|
|
|
|
realloc, 'realloc', \
|
|
|
|
|
|
free, 'free', \
|
|
|
|
|
|
printf, 'printf', \
|
|
|
|
|
|
getche, '_getche', \
|
|
|
|
|
|
getch, '_getch'
|
|
|
|
|
|
import kernel32, \
|
|
|
|
|
|
ExitProcess, 'ExitProcess'
|
