ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "У меня есть 154 рубля\0"
  9. ____fmtout db "Он сказал, что у него "
  10. ___________db "есть только %d рубля!\0"
  11. data ends
  13. code segment public
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc
  16. ____include Handymac.inc
  18. ____main proc
  19. ________call____SetDataSegment
  21. ________pushs___ds:[string]
  22. ________call____StringToIntegerEx
  24. ________push____ax
  25. ________leaax___ds:[fmtout]
  26. ________call____PrintFormatString
  27. ________add_____sp, 2
  29. ________push____0
  30. ________call____ExitProcessEx
  31. ____main endp
  33. code ends
  34. end main
Функция StringToIntegerEx анализирует строку, завершающуюся (\0) или 0, интерпретируя её содержимое как целое число, и возвращает это число. Функция StringToIntegerEx автоматически выравнивает стек на 2 байт.

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____string db "У меня есть 154 рубля\0"
  9. ____fmtout db "Он сказал, что у него есть только %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____StringToIntegerEx__; Вызываем процедуру StringToIntegerEx(string) := AX
  23. ________push____ax_________________; 2-й: Ложим на вершину стека значение регистра ax
  24. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  25. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ax)
  26. ________add_____sp, 2______________; Выравниваем стек
  28. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  29. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  30. ____main endp
  32. code ends
  33. end main
Made on
Tilda