ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Привет, Мир 8086 ______________Ассемблера!\0"
  8. ____fmtstr db "Длина строки равна %d ______________символов.\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_____ax, ds:[string]
  19. ________call____StringLength
  21. ________push____ax
  22. ________lea_____ax, ds:[fmtstr]
  23. ________call____PrintFormatString
  24. ________add_____sp, 2
  26. ________xor_____al, al
  27. ________call____ExitProcess
  28. ____main endp
  30. code ends
  31. end main
Функция StringLength вычисляет длину строки, завершающейся (\0) или 0. Если указатель на строку равен 0, функция возвращает длину 0.

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string db "Привет, Мир 8086 Ассемблера!\0"
  8. ____fmtstr db "Длина строки равна %d символов.\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:[string]____; Загружаем адрес переменной string в регистр ds:ax
  19. ________call____StringLength_______; Вызываем процедуру StringLength(ax:string) := AX
  21. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  22. ________lea_____ax, ds:[fmtstr]____; 1-й: Загружаем адрес строки формата fmtstr в регистр ds:ax
  23. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtstr, ax)
  24. ________add_____sp, 2______________; Выравниваем стек
  26. ________xor_____al, al_____________; Обнуляем регистр al
  27. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  28. ____main endp _____________________; Конец процедуры main
  30. code ends _________________________; Конец сегмента кода
  31. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda