ХАНДЫФАР

Функция StringLengthEx вычисляет длину строки, завершающейся (\0) или 0. Если указатель на строку равен 0, функция возвращает длину 0. Функция StringLengthEx автоматически выравнивает стек на 2 байта.

Параметры:

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

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

  • AX: Длина строки (количество символов до первого (\0) или 0).

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Я могу говорить по-"
  9. ___________db "китайски\0"
  10. ____fmtout_db "Длина строки: '%s' = "
  11. ___________db "%d символов.\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. ________pushs___ds:[string]
  23. ________call____StringLengthEx
  25. ________push____ax
  26. ________pushs___ds:[string]
  27. ________call____ToUpperStringEx
  28. ________leaax___ds:[fmtout]
  29. ________call____PrintFormatString
  30. ________add_____sp, 4
  32. ________push____0
  33. ________call____ExitProcessEx
  34. ____main endp
  36. code ends
  37. end main
Функция StringLengthEx вычисляет длину строки, завершающейся (\0) или 0. Если указатель на строку равен 0, функция возвращает длину 0. Функция StringLengthEx автоматически выравнивает стек на 2 байта.

Параметры:

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

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

  • AX: Длина строки (количество символов до первого (\0) или 0).

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "Я могу говорить по-китайски\0"
  9. ____fmtout_db "Длина строки: '%s' = %d символов.\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_____; Вызываем процедуру SetDataSegment
  20. ________pushs___ds:[string]________; Ложим на вершину стека адрес переменной string
  21. ________call____StringLengthEx_____; Вызываем процедуру StringLengthEx(string) := AX
  23. ________push____ax_________________; 3-й: Ложим на вершину стека значение регистра ax
  24. ________pushs___ds:[string]________; 2-й: Ложим на вершину стека адрес переменной string
  25. ________call____ToUpperStringEx____; Вызываем процедуру ToUpperStringEx(string)
  26. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  27. ________call____PrintFormatString__; Вызываем PrintFormatString(fmtout, ToUpperStringEx(string), ax)
  28. ________add_____sp, 4______________; Выравниваем стек
  30. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  31. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  32. ____main endp
  34. code ends
  35. end main
Made on
Tilda