ХАНДЫФАР

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

Параметры:

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

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

  • ZF = 1: Если первая строка начинается с заданной подстроки.
  • ZF = 0: Если первая строка не начинается с заданной подстроки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string____db "Евгений Довгополов\0"
  8. ____mName_____db "Евген\0"
  9. ____true_msg _db "Строка '%s' начинается "
  10. ______________db "с '%s'\0"
  11. ____false_msg db "Строка '%s' не "
  12. ______________db "начинается с '%s'\0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc
  19. ____main proc
  20. ________call____SetDataSegment
  22. ________lea_____bx, es:[mName]
  23. ________lea_____ax, ds:[string]
  24. ________call____StringStartsWith
  26. ________jnz_____False
  28. ____True:
  29. ________lea_____ax, es:[mName]
  30. ________push____ax
  31. ________lea_____ax, ds:[string]
  32. ________push____ax
  33. ________lea_____ax, ds:[true_msg]
  34. ________jmp_____Done
  36. ____False:
  37. ________lea_____ax, es:[mName]
  38. ________push____ax
  39. ________lea_____ax, ds:[string]
  40. ________push____ax
  41. ________lea_____ax, ds:[false_msg]
  43. ____Done:
  44. ________call____PrintFormatString
  45. ________add_____sp, 4
  47. ________xor_____al, al
  48. ________call____ExitProcess
  49. ____main endp
  51. code ends
  52. end main
Функция StringStartsWith проверяет, начинается ли первая строка с заданной второй подстроки.

Параметры:

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

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

  • ZF = 1: Если первая строка начинается с заданной подстроки.
  • ZF = 0: Если первая строка не начинается с заданной подстроки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string____db "Евгений Довгополов\0"
  8. ____mName_____db "Евген\0"
  9. ____true_msg _db "Строка '%s' начинается с '%s'\0"
  10. ____false_msg db "Строка '%s' не начинается с '%s'\0"
  11. data ends
  13. code segment public ________________; Начало сегмента кода
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc____________; Подключаем файл с функциями
  17. ____main proc ______________________; Начало процедуры main
  18. ________call____SetDataSegment______; Вызываем процедуру SetDataSegment
  20. ________lea_____bx, es:[mName]______; Загружаем адрес переменной mName в регистр es:bx
  21. ________lea_____ax, ds:[string]_____; Загружаем адрес переменной string в регистр ds:ax
  22. ________call____StringStartsWith____; Вызываем процедуру StringStartsWith(ds:ax, es:bx)
  24. ________jnz_____False_______________; Если ZF=0, то прыгаем на метку False
  26. ____True:
  27. ________lea_____ax, es:[mName]______; Загружаем адрес переменной mName в регистр ds:ax
  28. ________push____ax__________________; 3-й: Сохраняем значение регистра ax в стеке
  29. ________lea_____ax, ds:[string]_____; Загружаем адрес переменной string в регистр ds:ax
  30. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
  31. ________lea_____ax, ds:[true_msg]___; 1-й: Загружаем адрес строки формата true_msg в регистр ds:ax
  32. ________jmp_____Done________________; Выполняем безусловный переход на метку Done
  34. ____False:
  35. ________lea_____ax, es:[mName]______; Загружаем адрес переменной mName в регистр ds:ax
  36. ________push____ax__________________; 3-й: Сохраняем значение регистра ax в стеке
  37. ________lea_____ax, ds:[string]_____; Загружаем адрес переменной string в регистр ds:ax
  38. ________push____ax__________________; 2-й: Сохраняем значение регистра ax в стеке
  39. ________lea_____ax, ds:[false_msg]__; 1-й: Загружаем адрес строки формата false_msg в регистр ds:ax
  41. ____Done:
  42. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString(ax)
  43. ________add_____sp, 4_______________; Выравниваем стек
  45. ________xor_____al, al______________; Обнуляем регистр al
  46. ________call____ExitProcess_________; Вызываем процедуру ExitProcess
  47. ____main endp ______________________; Конец процедуры main
  49. code ends __________________________; Конец сегмента кода
  50. end main ___________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda