ХАНДЫФАР

Функция StringJoinEx объединяет массив строк, используя указанный разделитель, и сохраняет результат в подготовленном буфере. Функция StringJoinEx автоматически выравнивает стек на 8 байт.

Параметры:

1. Указатель на массив строк, завершающийся (\0) или 0.
2. Указатель на буфер, куда будут сохранены строки.
3. Количество строк для объединения.
4. Символ разделителя.

Возвращаемое значение:

• Функция не возвращает значение.

Состояние флагов:

• Функция не изменяет состояние флагов.

Особенности:

• Функция не изменяет значения регистров.
• Буфер должен быть достаточно большим, чтобы вместить объединённые строки и разделители.

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Меня\0", "зовут\0"
9. ___________db "Евгений\0", "Довгополов\0"
10. ____buffer db 100 dup(0)
11. data ends
13. code segment public
14. ____assume _ds:data, cs:code
15. ____include Handyfar.inc
16. ____include Handymac.inc
18. ____main proc
19. ________call____SetDataSegment
21. ________push____' '
22. ________push____4
23. ________pushs___es:[buffer]
24. ________pushs___ds:[string]
25. ________call____StringJoinEx
27. ________pushs___ds:[buffer]
28. ________call____WriteStringEx
30. ________push____0_
31. ________call____ExitProcessEx
32. ____main endp
34. code ends
35. end main

Функция StringJoinEx объединяет массив строк, используя указанный разделитель, и сохраняет результат в подготовленном буфере. Функция StringJoinEx автоматически выравнивает стек на 8 байт.

Параметры:

1. Указатель на массив строк, завершающийся (\0) или 0.
2. Указатель на буфер, куда будут сохранены строки.
3. Количество строк для объединения.
4. Символ разделителя.

Возвращаемое значение:

• Функция не возвращает значение.

Состояние флагов:

• Функция не изменяет состояние флагов.

Особенности:

• Функция не изменяет значения регистров.
• Буфер должен быть достаточно большим, чтобы вместить объединённые строки и разделители.

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Меня\0", "зовут\0", "Евгений\0", "Довгополов\0"
9. ____buffer db 100 dup(0)
10. data ends
12. code segment public
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc________; Подключаем файл с функциями
15. ____include Handymac.inc________; Подключаем файл с макросами
17. ____main proc
18. ________call____SetDataSegment__; Вызываем процедуру SetDataSegment
20. ________push____' '_____________; 4-й: Ложим на вершину стека значение символа ' '
21. ________push____4_______________; 3-й: Ложим на вершину стека число 4
22. ________pushs___es:[buffer]_____; 2-й: Ложим на вершину стека адрес переменной buffer
23. ________pushs___ds:[string]_____; 1-й: Ложим на вершину стека адрес переменной string
24. ________call____StringJoinEx____; Вызываем процедуру StringJoinEx(string, buffer, 4, ' ')
26. ________pushs___ds:[buffer]_____; Ложим на вершину стека адрес переменной buffer
27. ________call____WriteStringEx___; Вызываем процедуру WriteStringEx(buffer)
29. ________push____0_______________; Ложим на вершину стека байтовое значение кода возврата
30. ________call____ExitProcessEx___; Вызываем процедуру ExitProcess(0)
31. ____main endp
33. code ends
34. end main