ХАНДЫФАР

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

Параметры:

• DS:AX: Указатель на массив строк, завершающийся (\0) или 0.
• ES:BX: Указатель на буфер, куда будут сохранены строки.
• CX: ___Количество строк для объединения.
• DL: ___Символ разделителя.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "Меня\0", "зовут\0"
8. __________ db "Евгений\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
16. ____main proc
17. ________call____SetDataSegment
19. ________mov_____dl, ' '
20. ________mov_____cx, 4
21. ________lea_____bx, es:[buffer]
22. ________lea_____ax, ds:[string]
23. ________call____StringJoin
25. ________lea_____ax, es:[buffer]
26. ________call____PrintFormatString
28. ________xor_____al, al
29. ________call____ExitProcess
30. ____main endp
32. code ends
33. end main

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

Параметры:

• DS:AX: Указатель на массив строк, завершающийся (\0) или 0.
• ES:BX: Указатель на буфер, куда будут сохранены строки.
• CX: ___Количество строк для объединения.
• DL: ___Символ разделителя.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "Меня\0", "зовут\0", "Евгений\0", "Довгополов\0"
8. ____buffer db 100 dup(0)
9. data ends
11. code segment public _______________; Начало сегмента кода
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc___________; Подключаем файл с функциями
15. ____main proc _____________________; Начало процедуры main
16. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
18. ________mov_____dl, ' '____________; Копируем значение символа пробела в регистр dl
19. ________mov_____cx, 4______________; Устанавливаем количество слов равным 4
20. ________lea_____bx, es:[buffer]____; Загружаем адрес переменной buffer в регистр es:bx
21. ________lea_____ax, ds:[string]____; Загружаем адрес переменной string в регистр ds:ax
22. ________call____StringJoin_________; Вызываем процедуру StringJoin(ds:ax, es:bx, cx:4, dl:' ')
24. ________lea_____ax, es:[buffer]____; Загружаем адрес переменной buffer в регистр ds:ax
25. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:buffer)
27. ________xor_____al, al_____________; Обнуляем регистр al
28. ________call____ExitProcess________; Вызываем процедуру ExitProcess
29. ____main endp _____________________; Конец процедуры main
31. code ends _________________________; Конец сегмента кода
32. end main __________________________; Конец файла. Точкой входа указывается процедура main