ХАНДЫФАР

Функция StringToInteger анализирует строку, завершающуюся (\0) или 0, интерпретируя её содержимое как целое число, и возвращает это число.

Параметры:

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

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

  • AX: Целочисленное число, полученное из строки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "У меня есть 154 рубля\0"
  8. ____fmtout db "Он сказал, что у него "
  9. __________ db "есть только %d рубля!\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:[string]
  20. ________call____StringToInteger
  22. ________push____ax
  23. ________lea_____ax, ds:[fmtout]
  24. ________call____PrintFormatString
  25. ________add_____sp, 2
  27. ________xor_____al, al
  28. ________call____ExitProcess
  29. ____main endp
  31. code ends
  32. end main
Функция StringToInteger анализирует строку, завершающуюся (\0) или 0, интерпретируя её содержимое как целое число, и возвращает это число.

Параметры:

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

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

  • AX: Целочисленное число, полученное из строки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____string_db "У меня есть 154 рубля\0"
  8. ____fmtout 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____StringToInteger____; Вызываем процедуру StringToInteger(ax:string) := AX
  21. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  22. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  23. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, 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