ХАНДЫФАР

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

Параметры:

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

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

  • Если подстрока найдена:

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

  • Подстрока не найдена или один из указателей равен 0:

____AX = 8000h.
____CF = 1.

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

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "Привет, мой мир!\0"
  8. ____substr_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. ________lea_____bx, es:[substr]
  19. ________lea_____ax, ds:[string]
  20. ________call____FindSubString
  21. ________call____WriteString
  23. ________xor_____al, al
  24. ________call____ExitProcess
  25. ____main endp
  27. code ends
  28. end main

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "Привет, мой мир, мой "
  8. ___________db "рай!\0"
  9. ____substr_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. ________lea_____ax, ds:[substr]
  20. ________call____StringLength
  21. ________mov_____cx, ax
  23. ________lea_____bx, es:[substr]
  24. ________lea_____ax, ds:[string]
  26. ____MainLoop:
  27. ________call____FindSubString
  28. ________jc______Done
  30. ________call____WriteString
  31. ________call____PrintNewLine
  32. ________add_____ax, cx
  33. ________jmp_____MainLoop
  35. ____Done:
  36. ________xor_____al, al
  37. ________call____ExitProcess
  38. ____main endp
  40. code ends
  41. end main
Функция FindSubString выполняет поиск подстроки в строке, завершающейся (\0) или 0. Если подстрока найдена, возвращается указатель на её первое вхождение в строке. Если подстрока не найдена или один из указателей равен 0, функция возвращает 0 и устанавливает флаг CF = 1.

Параметры:

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

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

  • Если подстрока найдена:

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

  • Подстрока не найдена или один из указателей равен 0:

____AX = 8000h.
____CF = 1.

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

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "Привет, мой мир!\0"
  8. ____substr_db "мой\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. ________lea_____bx, es:[substr]__; Загружаем адрес переменной substr в регистр es:bx
  19. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
  20. ________call____FindSubString____; Вызываем процедуру FindSubString(ax:string, bx:substr)
  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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "Привет, мой мир, мой рай!\0"
  8. ____substr_db "мой\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. ________lea_____ax, ds:[substr]__; Загружаем адрес переменной substr в регистр ds:ax
  19. ________call____StringLength_____; Вызываем процедуру StringLength(ax:substr) := AX
  20. ________mov_____cx, ax___________; Сохраняем значение регистра ax в регистре cx
  22. ________lea_____bx, es:[substr]__; Загружаем адрес переменной substr в регистр es:bx
  23. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
  25. ____MainLoop:
  26. ________call____FindSubString____; Вызываем процедуру FindSubString(ax:string, bx:substr) := CF
  27. ________jc______Done_____________; Если CF=1, то прыгаем на метку Done
  29. ________call____WriteString______; Вызываем процедуру WriteString(ax)
  30. ________call____PrintNewLine_____; Вызываем процедуру PrintNewLine
  31. ________add_____ax, cx___________; Увеличиваем указатель на длину подстроки substr
  32. ________jmp_____MainLoop_________; Выполняем безусловный переход на метку MainLoop
  34. ____Done:
  35. ________xor_____al, al___________; Обнуляем регистр al
  36. ________call____ExitProcess______; Вызываем процедуру ExitProcess
  37. ____main endp ___________________; Конец процедуры main
  39. code ends _______________________; Конец сегмента кода
  40. end main ________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda