ХАНДЫФАР

Функция StringReplaceChar заменяет все вхождения указанного символа в строке, завершающейся (\0) или 0, на другой символ. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

• AX: Указатель на строку, завершающуюся (\0) или 0.
• BL: Символ, который нужно заменить.
• BH: Символ, на который нужно заменить.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string_db "Изучать язык ассемблера "
8. ___________db "это весело!\0"
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc
15. ____main proc
16. ________call____SetDataSegment
18. ________mov_____bh, '_'
19. ________mov_____bl, ' '
20. ________lea_____ax, ds:[string]
21. ________call____StringReplaceChar
22. ________call____WriteString
24. ________xor_____al, al
25. ________call____ExitProcess
26. ____main endp
28. code ends
29. end main

Функция StringReplaceChar заменяет все вхождения указанного символа в строке, завершающейся (\0) или 0, на другой символ. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

• AX: Указатель на строку, завершающуюся (\0) или 0.
• BL: Символ, который нужно заменить.
• BH: Символ, на который нужно заменить.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string_db "Изучать язык ассемблера - это весело!\0"
8. data ends
10. code segment public _______________; Начало сегмента кода
11. ____assume _ds:data, cs:code
12. ____include Handyfar.inc___________; Подключаем файл с функциями
14. ____main proc _____________________; Начало процедуры main
15. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
17. ________mov_____bh, '_'____________; Копируем значение символа нижнего подчёркивания в регистр bh
18. ________mov_____bl, ' '____________; Копируем значение символа пробела в регистр bl
19. ________lea_____ax, ds:[string]____; Загружаем адрес переменной string в регистр ds:ax
20. ________call____StringReplaceChar__; Вызываем процедуру StringReplaceChar(ds:ax, bl:' ', bh:'_')
21. ________call____WriteString________; Вызываем процедуру WriteString(ax)
23. ________xor_____al, al_____________; Обнуляем регистр al
24. ________call____ExitProcess________; Вызываем процедуру ExitProcess
25. ____main endp _____________________; Конец процедуры main
27. code ends _________________________; Конец сегмента кода
28. end main __________________________; Конец файла. Точкой входа указывается процедура main