ХАНДЫФАР

Функция ArrayCopyIfEx копирует элементы из первого массива во второй массив на основании условия, заданного пользовательской функцией, переданной через указатель. Пользовательская функция обязана сохранять регистры AX, BX, DX, SI и DI в стеке. Функция ArrayCopyIfEx автоматически выравнивает стек на 8 байт.

Параметры:

  1. Указатель на первый массив (источник).
  2. Указатель на второй массив (назначение).
  3. Указатель на пользовательскую функцию, которая определяет, должен ли элемент быть скопирован.
  4. Размер массива (количество элементов).

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

  • CX: Количество скопированных элементов во втором массиве.

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

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

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

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

  • Пользовательская функция должна возвращать ZF=1, если элемент должен быть скопирован, и ZF=0, если нет.

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw _1, 2, 3, 4, 5, 7, 8, 9
  9. ___________dw _10, 11, 12
  10. ____arrlen equ ($-array) / 2
  11. ____buffer_dw _arrlen dup(?)
  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___IsDivBy2
  25. ________pushs___es:[buffer]
  26. ________pushs___ds:[array]
  27. ________call____ArrayCopyIfEx
  29. ________leabx___ds:[buffer]
  30. ________xor_____si, si
  32. ____PrintArrayLoop:
  33. ________push____word ptr[bx+si]
  34. ________leaax___ds:[fmtout]
  35. ________call____PrintFormatString
  36. ________add_____sp, 2
  37. ________incw____si
  38. ________loop____PrintArrayLoop
  40. ________push____0
  41. ________call____ExitProcessEx
  42. ____main endp
  44. ____IsDivBy2 proc
  45. ________push____ax
  46. ________push____bx
  47. ________push____dx
  49. ________mov_____bx, 2
  50. ________cwd
  51. ________idiv____bx
  52. ________test____dl, dl
  54. ________pop_____dx
  55. ________pop_____bx
  56. ________pop_____ax
  57. ________ret
  58. ____IsDivBy2 endp
  60. code ends
  61. end main
Функция ArrayCopyIfEx копирует элементы из первого массива во второй массив на основании условия, заданного пользовательской функцией, переданной через указатель. Пользовательская функция обязана сохранять регистры AX, BX, DX, SI и DI в стеке. Функция ArrayCopyIfEx автоматически выравнивает стек на 8 байт.

Параметры:

  1. Указатель на первый массив (источник).
  2. Указатель на второй массив (назначение).
  3. Указатель на пользовательскую функцию, которая определяет, должен ли элемент быть скопирован.
  4. Размер массива (количество элементов).

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

  • CX: Количество скопированных элементов во втором массиве.

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

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

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

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

  • Пользовательская функция должна возвращать ZF=1, если элемент должен быть скопирован, и ZF=0, если нет.

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array__dw _1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12
  9. ____arrlen equ ($-array) / 2
  10. ____buffer_dw _arrlen dup(?)
  11. ____fmtout db__"[%d] \0"
  12. data ends
  14. code segment public
  15. ____assume _ds:data, cs:code
  16. ____include Handyfar.inc___________; Подключаем файл с функциями
  17. ____include Handymac.inc___________; Подключаем файл с макросами
  19. ____main proc
  20. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  22. ________push____arrlen_____________; 4-й: Ложим на вершину стека длину массива
  23. ________pushs___IsDivBy2___________; 3-й: Ложим на вершину стека адрес функции IsDivBy2
  24. ________pushs___es:[buffer]________; 2-й: Ложим на вершину стека адрес массива buffer
  25. ________pushs___ds:[array]_________; 1-й: Ложим на вершину стека адрес массива array
  26. ________call____ArrayCopyIfEx______; Вызываем процедуру ArrayCopyIfEx(array, buffer, IsDivBy2, 12) := CX
  28. ________leabx___ds:[buffer]________; Загружаем адрес массива buffer в регистр ds:bx
  29. ________xor_____si, si_____________; Обнуляем регистр-индекс
  31. ____PrintArrayLoop:
  32. ________push____word ptr[bx+si]____; 2-й: Ложим на вершину стека значение в bx под индексом si
  33. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  34. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  35. ________add_____sp, 2______________; Выравниваем стек
  36. ________incw____si_________________; Увеличиваем индекс si на 2
  37. ________loop____PrintArrayLoop_____; Выполняем цикл пока регистр cx не равен 0
  39. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  40. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  41. ____main endp
  43. ____IsDivBy2 proc__________________; Начало процедуры IsDivBy2
  44. ________push____ax_________________; Обязательно сохраняем значение регистра ax в стеке
  45. ________push____bx_________________; Обязательно сохраняем значение регистра bx в стеке
  46. ________push____dx_________________; Обязательно сохраняем значение регистра dx в стеке
  48. ________mov_____bx, 2______________; Копируем число 2 в регистр bx
  49. ________cwd________________________; Выполняем знаковое расширение регистра dx
  50. ________idiv____bx_________________; Делим значение в регистре ax на bx
  51. ________test____dl, dl_____________; Проверяем значение на 0
  53. ________pop_____dx_________________; Обязательно выталкиваем значение из стека обратно в регистр dx
  54. ________pop_____bx_________________; Обязательно выталкиваем значение из стека обратно в регистр bx
  55. ________pop_____ax_________________; Обязательно выталкиваем значение из стека обратно в регистр ax
  56. ________ret________________________; Возврат из функции
  57. ____IsDivBy2 endp__________________; Конец процедуры IsDivBy2
  59. code ends
  60. end main
Made on
Tilda