ХАНДЫФАР

Функция FindChar выполняет поиск символа в строке, завершающейся (\0) или 0. Если символ найден, возвращается указатель на его первое вхождение. Если символ не найден или указатель на строку равен 0, функция возвращает FFFF и устанавливает флаг CF = 1.

Параметры:

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

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

• Если символ найден:

____AX: Указатель на первое вхождение символа в строке.
____CF = 0.

• Если символ не найден или AX = 0:

____AX = 8000h.
____CF = 1.

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

• Функция влияет на флаг CF, ZF, SF и другие.

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

• Функция выполняет поиск символа в строке, начиная с указателя AX.

• Поиск завершается при достижении конца строки (\0) или 0.

• Если символ найден, возвращается указатель на его первое вхождение.

• Если символ не найден или указатель на строку = 0, функция возвращает 8000h и устанавливает флаг CF = 1.

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

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
15. ________call____SetDataSegment
17. ________mov_____bl, 'М'
18. ________lea_____ax, ds:[string]
19. ________call____FindChar
20. ________call____WriteString
22. ________xor_____al, al
23. ________call____ExitProcess
24. ____main endp
26. code ends
27. end main

С помощью цикла можно вывести все вхождения определённого символа.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string_db "Ирис, словно небесный "
8. ___________db "посланник, раскрывает свои "
9. ___________db "бархатные лепестки.\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_____bl, 'и'
20. ________lea_____ax, ds:[string]
22. ____MainLoop:
23. ________call____FindChar
24. ________jc______Done
26. ________call____WriteString
27. ________call____PrintNewLine
28. ________inc_____ax
29. ________jmp_____MainLoop
31. ____Done:
32. ________xor_____al, al
33. ________call____ExitProcess
34. ____main endp
36. code ends
37. end main

Функция FindChar выполняет поиск символа в строке, завершающейся (\0) или 0. Если символ найден, возвращается указатель на его первое вхождение. Если символ не найден или указатель на строку равен 0, функция возвращает FFFF и устанавливает флаг CF = 1.

Параметры:

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

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

• Если символ найден:

____AX: Указатель на первое вхождение символа в строке.
____CF = 0.

• Если символ не найден или AX = 0:

____AX = 8000h.
____CF = 1.

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

• Функция влияет на флаг CF, ZF, SF и другие.

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

• Функция выполняет поиск символа в строке, начиная с указателя AX.

• Поиск завершается при достижении конца строки (\0) или 0.

• Если символ найден, возвращается указатель на его первое вхождение.

• Если символ не найден или указатель на строку = 0, функция возвращает 8000h и устанавливает флаг CF = 1.

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

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_____bl, 'М'__________; Копируем значение символа 'М' в регистр bl
18. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
19. ________call____FindChar_________; Вызываем процедуру FindChar(ax:string, bl:'М')
20. ________call____WriteString______; Вызываем процедуру WriteString(ax)
22. ________xor_____al, al___________; Обнуляем регистр al
23. ________call____ExitProcess______; Вызываем процедуру ExitProcess
24. ____main endp ___________________; Конец процедуры main
26. code ends _______________________; Конец сегмента кода
27. end main ________________________; Конец файла. Точкой входа указывается процедура main

С помощью цикла можно вывести все вхождения определённого символа.

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_____bl, 'и'__________; Копируем значение символа 'и' в регистр bl
18. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
20. ____MainLoop:
21. ________call____FindChar_________; Вызываем процедуру FindChar(ax:string, bl:'и')
22. ________jc______Done_____________; Если CF=1, то прыгаем на метку Done
24. ________call____WriteString______; Вызываем процедуру WriteString(ax)
25. ________call____PrintNewLine_____; Вызываем процедуру PrintNewLine
26. ________inc_____ax_______________; Увеличиваем указатель на 1
27. ________jmp_____MainLoop_________; Выполняем безусловный переход на метку MainLoop
29. ____Done:
30. ________xor_____al, al___________; Обнуляем регистр al
31. ________call____ExitProcess______; Вызываем процедуру ExitProcess
32. ____main endp ___________________; Конец процедуры main
34. code ends _______________________; Конец сегмента кода
35. end main ________________________; Конец файла. Точкой входа указывается процедура main