ХАНДЫФАР

Функция ArrayCopyEx копирует элементы из первого массива во второй массив. Если количество элементов = 0, функция завершает работу без изменений. Функция ArrayCopyEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на первый массив (источник).
  2. Указатель на второй массив (назначение).
  3. Количество элементов для копирования.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1_dw _23, 54, 83, 91
  9. ____arrlen equ ($-array1) / 2
  10. ____array2_dw _arrlen dup(?)
  11. ____output db__"Скопированный массив: \0"
  12. ____fmtout db__"[%d] \0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc
  18. ____include Handymac.inc
  20. ____main proc
  21. ________call____SetDataSegment
  23. ________push____arrlen
  24. ________pushs___es:[array2]
  25. ________pushs___ds:[array1]
  26. ________call____ArrayCopyEx
  28. ________pushs___ds:[output]
  29. ________call____WriteStringEx
  31. ________loopcnt_4
  32. ________leabx___ds:[array2]
  33. ________xor_____si, si
  35. ____PrintArrayLoop:
  36. ________push____word ptr[bx+si]
  37. ________leaax___ds:[fmtout]
  38. ________call____PrintFormatString
  39. ________incw____si
  40. ________loop____PrintArrayLoop
  41. ________add_____sp, 8
  43. ________push____0
  44. ________call____ExitProcessEx
  45. ____main endp
  47. code ends
  48. end main
Функция ArrayCopyEx копирует элементы из первого массива во второй массив. Если количество элементов = 0, функция завершает работу без изменений. Функция ArrayCopyEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на первый массив (источник).
  2. Указатель на второй массив (назначение).
  3. Количество элементов для копирования.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1_dw _23, 54, 83, 91
  9. ____arrlen equ ($-array1) / 2
  10. ____array2_dw _arrlen dup(?)
  11. ____output db__"Скопированный массив: \0"
  12. ____fmtout db__"[%d] \0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc___________; Подключаем файл с функциями
  18. ____include Handymac.inc___________; Подключаем файл с макросами
  20. ____main proc
  21. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  23. ________push____arrlen_____________; 3-й: Ложим на вершину стека длину массива
  24. ________pushs___es:[array2]________; 2-й: Ложим на вершину стека адрес массива array2
  25. ________pushs___ds:[array1]________; 1-й: Ложим на вершину стека адрес массива array1
  26. ________call____ArrayCopyEx________; Вызываем процедуру ArrayCopyEx(array1, array2, arrlen)
  28. ________pushs___ds:[output]________; Ложим на вершину стека адрес переменной output
  29. ________call____WriteStringEx______; Вызываем процедуру WriteStringEx(output)
  31. ________loopcnt_4__________________; Устанавливаем счётчик равным 4. CX := 4
  32. ________leabx___ds:[array2]________; Загружаем адрес массива array2 в регистр ds:bx
  33. ________xor_____si, si_____________; Обнуляем регистр-индекс
  35. ____PrintArrayLoop:
  36. ________push____word ptr[bx+si]____; 2-й: Ложим на вершину стека значение в bx под индексом si
  37. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  38. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  39. ________incw____si_________________; Увеличиваем индекс si на 2
  40. ________loop____PrintArrayLoop_____; Выполняем цикл пока регистр cx не равен 0
  41. ________add_____sp, 8______________; Выравниваем стек
  43. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  44. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  45. ____main endp
  47. code ends
  48. end main
Made on
Tilda