ХАНДЫФАР

Функция ArrayGetAverageEx вычисляет среднее значение чисел в заданном массиве. Функция ArrayGetAverageEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на массив.
  2. Длина массива (количество элементов).

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

  • AX: Среднее значение чисел в массиве.

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

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

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

  • Функция проходит по массиву, суммирует все его элементы и делит сумму на длину массива.

  • Если указатель на массив равен 0 или длина массива = 0, функция возвращает 0.

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw__6, 11, 7
  9. ____arrlen_equ ($-array) / 2
  10. ____fmtout 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. ________push____arrlen
  22. ________pushs___ds:[array]
  23. ________call____ArrayGetAverageEx
  25. ________push____ax
  26. ________leaax___ds:[fmtout]
  27. ________call____PrintFormatString_
  28. ________add_____sp, 2
  30. ________push____0
  31. ________call____ExitProcessEx
  32. ____main endp
  34. code ends
  35. end main
Функция ArrayGetAverageEx вычисляет среднее значение чисел в заданном массиве. Функция ArrayGetAverageEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на массив.
  2. Длина массива (количество элементов).

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

  • AX: Среднее значение чисел в массиве.

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

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

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

  • Функция проходит по массиву, суммирует все его элементы и делит сумму на длину массива.

  • Если указатель на массив равен 0 или длина массива = 0, функция возвращает 0.

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw__6, 11, 7
  9. ____arrlen_equ ($-array) / 2
  10. ____fmtout 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_____; Вызываем процедуру SetDataSegment
  21. ________push____arrlen_____________; 2-й: Ложим на вершину стека длину массива array
  22. ________pushs___ds:[array]_________; 1-й: Ложим на вершину стека адрес массива array
  23. ________call____ArrayGetAverageEx__; Вызываем процедуру ArrayGetAverageEx(array, arrlen) := AX
  25. ________push____ax_________________; 2-й: Ложим на вершину стека значение регистра ax
  26. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  27. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, ax)
  28. ________add_____sp, 2______________; Выравниваем стек
  30. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  31. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  32. ____main endp
  34. code ends
  35. end main
Made on
Tilda