ХАНДЫФАР

Функция ArrayGetMinimum находит минимальное значение в заданном массиве чисел.

Параметры:

  • AX: Указатель на массив.
  • BX: Длина массива (количество элементов). Если BX = 0, функция завершает работу.

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

  • AX: Минимальное значение в массиве.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array__dw__4, 7, 3, 67, 5, 22, 5, 66
  8. ___________dw__8, 5
  9. ____arrlen equ ($-array) / 2
  10. ____fmtout_db__"Минимальное число в "
  11. ___________db__"массиве: %d\0"
  12. data ends
  14. code segment public
  15. ____assume _ds:data, cs:code
  16. ____include Handyfar.inc
  18. ____main proc
  19. ________call____SetDataSegment
  21. ________mov_____bx, arrlen
  22. ________lea_____ax, ds:[array]
  23. ________call____ArrayGetMinimum
  25. ________push____ax
  26. ________lea_____ax, ds:[fmtout]
  27. ________call____PrintFormatString
  28. ________add_____sp, 2
  30. ________xor_____al, al
  31. ________call____ExitProcess
  32. ____main endp
  34. code ends
  35. end main
Функция ArrayGetMinimum находит минимальное значение в заданном массиве чисел.

Параметры:

  • AX: Указатель на массив.
  • BX: Длина массива (количество элементов). Если BX = 0, функция завершает работу.

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

  • AX: Минимальное значение в массиве.

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

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

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

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

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