ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array _dw 4, -1, -4, 3
  8. ____fmtout db "[%d] \0"
  9. data ends
  11. code segment public
  12. ____assume _ds:data, cs:code
  13. ____include Handyfar.inc
  14. ____include Handymac.inc
  16. ____main proc
  17. ________call____SetDataSegment
  19. ________mov_____bx, 4
  20. ________lea_____ax, ds:[array]
  21. ________call____ArrayNegate
  23. ________mov_____cx, 4
  24. ________lea_____si, ds:[array]
  26. ____PrintArrayLoop:
  27. ________push____word ptr[si]
  28. ________lea_____ax, ds:[fmtout]
  29. ________call____PrintFormatString
  30. ________add_____sp, 2
  31. ________incw____si
  32. ________loop____PrintArrayLoop
  34. ________xor_____al, al
  35. ________call____ExitProcess
  36. ____main endp
  38. code ends
  39. end main
Функция ArrayNegate преобразует каждый элемент массива в его отрицательное значение.

Параметры:

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array _dw 4, -1, -4, 3
  8. ____fmtout db "[%d] \0"
  9. data ends
  11. code segment public _______________; Начало сегмента кода
  12. ____assume _ds:data, cs:code
  13. ____include Handyfar.inc___________; Подключаем файл с функциями
  14. ____include Handymac.inc___________; Подключаем файл с макросами
  16. ____main proc _____________________; Начало процедуры main
  17. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  19. ________mov_____bx, 4______________; Копируем значение 4 в регистр bx
  20. ________lea_____ax, ds:[array]_____; Загружаем адрес переменной array в регистр ds:ax
  21. ________call____ArrayNegate________; Вызываем процедуру ArrayNegate(ds:ax, 4)
  23. ________mov_____cx, 4______________; Копируем значение 4 в регистр cx
  24. ________lea_____si, ds:[array]_____; Загружаем адрес переменной array в регистр ds:si
  26. ____PrintArrayLoop:
  27. ________push____word ptr[si]_______; 2-й: Сохраняем значение регистра si в стеке
  28. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  29. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, si)
  30. ________add_____sp, 2______________; Выравниваем стек
  31. ________incw____si_________________; Вызываем макрос incw. Увеличиваем индекс si на 2
  32. ________loop____PrintArrayLoop_____; Выполняем цикл пока CX≠0
  34. ________xor_____al, al_____________; Обнуляем регистр al
  35. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  36. ____main endp _____________________; Конец процедуры main
  38. code ends _________________________; Конец сегмента кода
  39. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda