ХАНДЫФАР

Функция IsDigitEx проверяет, является ли заданный символ числовым (цифрой от 0 до 9). Функция IsDigitEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Символ для проверки.

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

  • ZF = 1: Если символ является числом (0–9).
  • ZF = 0: Если символ не является числом.

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

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

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

  • Функция проверяет, находится ли символ в диапазоне ASCII-кодов цифр (30h–39h).
  • Функция не изменяет значения регистров, кроме флагов.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____msg_true__db "TRUE\0"
  9. ____msg_false_db "FALSE\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
  20. ________push____'4'
  21. ________call____IsDigitEx
  23. ________jne_____@False
  25. ____@True:
  26. ________pushs___ds:[msg_true]
  27. ________jmp_____@Done
  29. ____@False:
  30. ________pushs___ds:[msg_false]
  32. ____@Done:
  33. ________call____WriteStringEx
  35. ________push____0
  36. ________call____ExitProcessEx
  37. ____main endp
  39. code ends
  40. end main
Функция IsDigitEx проверяет, является ли заданный символ числовым (цифрой от 0 до 9). Функция IsDigitEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Символ для проверки.

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

  • ZF = 1: Если символ является числом (0–9).
  • ZF = 0: Если символ не является числом.

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

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

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

  • Функция проверяет, находится ли символ в диапазоне ASCII-кодов цифр (30h–39h).
  • Функция не изменяет значения регистров, кроме флагов.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____msg_true__db "TRUE\0"
  9. ____msg_false_db "FALSE\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. ________push____'4'_____________; Ложим на вершину стека ASCII число 4
  21. ________call____IsDigitEx_______; Вызываем процедуру IsDigitEx('4')
  23. ________jne_____@False__________; Если ZF=0, то прыгаем на метку @False
  25. ____@True:
  26. ________pushs___ds:[msg_true]___; Ложим на вершину стека адрес переменной msg_true
  27. ________jmp_____@Done___________; Выполняем безусловный переход на метку @Done
  29. ____@False:
  30. ________pushs___ds:[msg_false]__; Ложим на вершину стека адрес переменной msg_false
  32. ____@Done:
  33. ________call____WriteStringEx___; Вызываем процедуру WriteStringEx(значение из стека)
  35. ________push____0_______________; Ложим на вершину стека байтовое значение кода возврата
  36. ________call____ExitProcessEx___; Вызываем процедуру ExitProcess(0)
  37. ____main endp
  39. code ends
  40. end main
Made on
Tilda