ХАНДЫФАР

Функция GetMinimum возвращает наименьшее из двух заданных значений.

Параметры:

  • AX: Первое число.
  • BX: Второе число.

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

  • DX: Наименьшее из двух значений.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fmtout db "Минимальное значение между "
  8. ___________db "%d и %d = %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. ________mov_____bx, 13
  19. ________mov_____ax, 15
  20. ________call____GetMinimum
  22. ________push____dx
  23. ________push____bx
  24. ________push____ax
  25. ________lea_____ax, ds:[fmtout]
  26. ________call____PrintFormatString
  27. ________add_____sp, 6
  29. ________xor_____al, al
  30. ________call____ExitProcess
  31. ____main endp
  33. code ends
  34. end main
Функция GetMinimum возвращает наименьшее из двух заданных значений.

Параметры:

  • AX: Первое число.
  • BX: Второе число.

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

  • DX: Наименьшее из двух значений.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fmtout db "Минимальное значение между %d и %d = %d.\0"
  8. data ends
  10. code segment public _______________; Начало сегмента кода
  11. ____assume _ds:data, cs:code
  12. ____include Handyfar.inc___________; Подключаем файл с функциями
  14. ____main proc _____________________; Начало процедуры main
  15. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  17. ________mov_____bx, 13_____________; Копируем значение 13 в регистр bx
  18. ________mov_____ax, 15_____________; Копируем значение 15 в регистр ax
  19. ________call____GetMinimum_________; Вызываем процедуру GetMinimum(ax, bx) := DX
  21. ________push____dx_________________; 4-й: Сохраняем значение регистра dx в стеке
  22. ________push____bx_________________; 3-й: Сохраняем значение регистра bx в стеке
  23. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  24. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  25. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ax, bx, dx)
  26. ________add_____sp, 6______________; Выравниваем стек
  28. ________xor_____al, al_____________; Обнуляем регистр al
  29. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  30. ____main endp _____________________; Конец процедуры main
  32. code ends _________________________; Конец сегмента кода
  33. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda