ХАНДЫФАР

Функция StringStartsWithEx проверяет, начинается ли первая строка с заданной второй подстроки. Функция StringStartsWithEx автоматически выравнивает стек на 4 байта.

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string ___db "Евгений Довгополов\0"
9. ____mName_____db "Евген\0"
10. ____msg_true _db "Строка '%s' начинается "
11. ______________db "с '%s'\0"
12. ____msg_false db "Строка '%s' не "
13. ______________db "начинается с '%s'\0"
14. data ends
16. code segment public
17. ____assume _ds:data, cs:code
18. ____include Handyfar.inc
19. ____include Handymac.inc
21. ____main proc
22. ________call____SetDataSegment
24. ________pushs___es:[mName]
25. ________pushs___ds:[string]
26. ________call____StringStartsWithEx
28. ________jne_____@False
30. ________pushs___ds:[mName]
31. ________pushs___ds:[string]
32. ________leaax___ds:[msg_true]
33. ________jmp_____@Done
35. ____@False:
36. ________pushs___ds:[mName]
37. ________pushs___ds:[string]
38. ________leaax___ds:[msg_false]
40. ____@Done:
41. ________call____PrintFormatString
42. ________add_____sp, 4
44. ________push____0
45. ________call____ExitProcessEx
46. ____main endp
48. code ends
49. end main

Функция StringStartsWithEx проверяет, начинается ли первая строка с заданной второй подстроки. Функция StringStartsWithEx автоматически выравнивает стек на 4 байта.

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .286C
4. .model small
5. .stack 100h
7. data segment public
8. ____string ___db "Евгений Довгополов\0"
9. ____mName_____db "Евген\0"
10. ____msg_true _db "Строка '%s' начинается с '%s'\0"
11. ____msg_false db "Строка '%s' не начинается с '%s'\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______; Вызываем процедуру SetDataSegment
22. ________pushs___es:[mName]__________; 2-й: Ложим на вершину стека адрес переменной mName
23. ________pushs___ds:[string]_________; 1-й: Ложим на вершину стека адрес переменной string
24. ________call____StringStartsWithEx__; Вызываем процедуру StringStartsWithEx(string, mName)
26. ________jne_____@False______________; Если ZF=0, то прыгаем на метку @False
28. ________pushs___ds:[mName]__________; 3-й: Ложим на вершину стека адрес переменной mName
29. ________pushs___ds:[string]_________; 2-й: Ложим на вершину стека адрес переменной string
30. ________leaax___ds:[msg_true]_______; 1-й: Загружаем адрес строки формата msg_true в регистр ds:ax
31. ________jmp_____@Done_______________; Выполняем безусловный переход на метку @Done
33. ____@False:
34. ________pushs___ds:[mName]__________; 3-й: Ложим на вершину стека адрес переменной mName
35. ________pushs___ds:[string]_________; 2-й: Ложим на вершину стека адрес переменной string
36. ________leaax___ds:[msg_false]______; 1-й: Загружаем адрес строки формата msg_false в регистр ds:ax
38. ____@Done:
39. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString
40. ________add_____sp, 4_______________; Выравниваем стек
42. ________push____0___________________; Ложим на вершину стека байтовое значение кода возврата
43. ________call____ExitProcessEx_______; Вызываем процедуру ExitProcess(0)
44. ____main endp
46. code ends
47. end main