ХАНДЫФАР

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

Функция FindCharEx выравнивает стек на 4 байта и сохраняет указатель на первый найденный символ в строке на вершине стека и в регистре AX при достижения конца строки или если символ не был найден. Это сделано для того чтобы иметь возможность вызвать функцию WriteString или WriteStringEx сразу после вызова функции FindCharEx. Если после вызова функции FindCharEx для вывода строки используется функция WriteString, то выравнивание стека лежит на программисте. Для того чтобы выровнять стек на 4 байта, после вызова функции WriteString нужно написать следующую команду: add sp, 4.

Параметры:

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

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

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

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

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

____AX = 8000h.
____CF = 1.

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

• Функция влияет на флаги CF.

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

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

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

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

ПРИМЕР 1:

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Довгополов Евгений "
9. ___________db "Сергеевич!\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
20. ________push____'Е'
21. ________pushs___ds:[string]
22. ________call____FindCharEx
23. ________call____WriteString
25. ________push____0
26. ________call____ExitProcessEx
27. ____main endp
29. code ends
30. end main

ПРИМЕР 2:

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Ирис, словно небесный "
9. ___________db "посланник, раскрывает "
10. ___________db "свои бархатные "
11. ___________db "лепестки.\0"
12. data ends
14. code segment public
15. ____assume _ds:data, cs:code
16. ____include Handyfar.inc
17. ____include Handymac.inc
19. ____main proc
20. ________call____SetDataSegment
22. ________push____'и'
23. ________pushs___ds:[string]
25. ____MainLoop:
26. ________call____FindCharEx
27. ________jc______Done
29. ________call____WriteString
30. ________call____PrintNewLine
31. ________jmp_____MainLoop
33. ____Done:
34. ________push____0
35. ________call____ExitProcessEx
36. ____main endp
38. code ends
39. end main

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

Функция FindCharEx выравнивает стек на 4 байта и сохраняет указатель на первый найденный символ в строке на вершине стека и в регистре AX при достижения конца строки или если символ не был найден. Это сделано для того чтобы иметь возможность вызвать функцию WriteString или WriteStringEx сразу после вызова функции FindCharEx. Если после вызова функции FindCharEx для вывода строки используется функция WriteString, то выравнивание стека лежит на программисте. Для того чтобы выровнять стек на 4 байта, после вызова функции WriteString нужно написать следующую команду: add sp, 4.

Параметры:

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

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

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

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

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

____AX = 8000h.
____CF = 1.

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

• Функция влияет на флаги CF.

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

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

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

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

ПРИМЕР 1:

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Довгополов Евгений Сергеевич!\0"
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc________; Подключаем файл с функциями
14. ____include Handymac.inc________; Подключаем файл с макросами
16. ____main proc
17. ________call____SetDataSegment__; Вызываем процедуру SetDataSegment
19. ________push____'Е'_____________; Ложим на вершину стека символ 'Е'
20. ________pushs___ds:[string]_____; Ложим на вершину стека адрес переменной string
21. ________call____FindCharEx______; Вызываем процедуру FindCharEx(string, 'Е')
22. ________call____WriteString_____; Вызываем процедуру WriteString(ax:string)
24. ________push____0_______________; Ложим на вершину стека байтовое значение кода возврата
25. ________call____ExitProcessEx___; Вызываем процедуру ExitProcess(0)
26. ____main endp
28. code ends
29. end main

ПРИМЕР 2:

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string db "Ирис, словно небесный посланник, раскрывает свои бархатные лепестки.\0"
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc________; Подключаем файл с функциями
14. ____include Handymac.inc________; Подключаем файл с макросами
16. ____main proc
17. ________call____SetDataSegment__; Вызываем процедуру SetDataSegment
19. ________push____'и'_____________; Ложим на вершину стека символ 'и'
20. ________pushs___ds:[string]_____; Ложим на вершину стека адрес переменной string
22. ____MainLoop:
23. ________call____FindCharEx______; Вызываем процедуру FindCharEx(string, 'и')
24. ________jc______Done____________; Если CF=1, то прыгаем на метку Done
26. ________call____WriteString_____; Вызываем процедуру WriteString(ax)
27. ________call____PrintNewLine____; Вызываем процедуру PrintNewLine
28. ________jmp_____MainLoop________; Выполняем безусловный переход на метку MainLoop
30. ____Done:
31. ________push____0_______________; Ложим на вершину стека байтовое значение кода возврата
32. ________call____ExitProcessEx___; Вызываем процедуру ExitProcess(0)
33. ____main endp
35. code ends
36. end main