ХАНДЫФАР

Функция ArrayAbsoluteEx преобразует каждый элемент массива в его абсолютное значение. Функция ArrayAbsoluteEx автоматически выравнивает стек на 4 байта.

Параметры:

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

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

  • Функция не возвращает значение.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw_4, -1, -4, 3
  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
  20. ________push____4
  21. ________pushs___ds:[array]
  22. ________call____ArrayAbsoluteEx
  24. ________loopcnt_4
  25. ________leabx___ds:[array]
  26. ________xor_____si, si
  28. ____PrintArrayLoop:
  29. ________push____word ptr[bx+si]
  30. ________leaax___ds:[fmtout]
  31. ________call____PrintFormatString
  32. ________add_____sp, 2
  33. ________incw____si
  34. ________loop____PrintArrayLoop
  36. ________push____0
  37. ________call____ExitProcessEx
  38. ____main endp
  40. code ends
  41. end main
Функция ArrayAbsoluteEx преобразует каждый элемент массива в его абсолютное значение. Функция ArrayAbsoluteEx автоматически выравнивает стек на 4 байта.

Параметры:

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

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

  • Функция не возвращает значение.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw_4, -1, -4, 3
  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. ________push____4__________________; 2-й: Ложим на вершину стека длину массива array
  21. ________pushs___ds:[array]_________; 1-й: Ложим на вершину стека адрес массива array
  22. ________call____ArrayAbsoluteEx____; Вызываем процедуру ArrayAbsoluteEx(array, 4)
  24. ________loopcnt_4__________________; Устанавливаем счётчик равным 4. CX := 4
  25. ________leabx___ds:[array]_________; Загружаем адрес массива array в регистр ds:bx
  26. ________xor_____si, si_____________; Обнуляем регистр-индекс
  28. ____PrintArrayLoop:
  29. ________push____word ptr[bx+si]____; 2-й: Ложим на вершину стека значение в bx под индексом si
  30. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  31. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  32. ________add_____sp, 2______________; Выравниваем стек
  33. ________incw____si_________________; Увеличиваем индекс si на 2
  34. ________loop____PrintArrayLoop_____; Выполняем цикл пока регистр cx не равен 0
  36. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  37. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  38. ____main endp
  40. code ends
  41. end main
Made on
Tilda