ХАНДЫФАР

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

Параметры:

  • DS:AX: Указатель на первый массив (источник).
  • ES:BX: Указатель на второй массив (назначение).
  • CX: ___Указатель на пользовательскую функцию, которая определяет, должен ли элемент быть скопирован.
  • DX: ___Размер массива (количество элементов). Если DX = 0, функция завершает работу.

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

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

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array__dw _1, 2, 3, 4, 5, 7, 8, 9, 10
  8. ____arrlen equ ($-array) / 2
  9. ____buffer_dw _arrlen dup(?)
  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. ________mov_____dx, arrlen
  22. ________lea_____cx, IsDivBy2
  23. ________lea_____bx, es:[buffer]
  24. ________lea_____ax, ds:[array]
  25. ________call____ArrayCopyIf
  27. ________lea_____bx, ds:[buffer]
  28. ________xor_____si, si
  30. ____PrintArrayLoop:
  31. ________push____word ptr[bx+si]
  32. ________lea_____ax, ds:[fmtout]
  33. ________call____PrintFormatString
  34. ________add_____sp, 2
  35. ________incw____si
  36. ________loop____PrintArrayLoop
  38. ________xor_____al, al
  39. ________call____ExitProcess
  40. ____main endp
  42. ____IsDivBy2 proc
  43. ________push____ax
  44. ________push____bx
  45. ________push____dx
  47. ________mov_____bx, 2
  48. ________cwd
  49. ________idiv____bx
  50. ________test____dl, dl
  52. ________pop____dx
  53. ________pop____bx
  54. ________pop____ax
  55. ________ret
  56. ____IsDivBy2 endp
  58. code ends
  59. end main
Функция ArrayCopyIf копирует элементы из первого массива во второй массив на основании условия, заданного пользовательской функцией, переданной через указатель. Если размер массива DX = 0, функция завершает работу без изменений. Пользовательская функция обязана сохранять регистры AX, BX, DX, SI и DI в стеке.

Параметры:

  • DS:AX: Указатель на первый массив (источник).
  • ES:BX: Указатель на второй массив (назначение).
  • CX: ___Указатель на пользовательскую функцию, которая определяет, должен ли элемент быть скопирован.
  • DX: ___Размер массива (количество элементов). Если DX = 0, функция завершает работу.

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

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

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array__dw _1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12
  8. ____arrlen equ ($-array) / 2
  9. ____buffer_dw _arrlen dup(?)
  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 _____________________; Начало процедуры main
  19. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  21. ________mov_____dx, arrlen_________; Копируем длину массива в регистр dx
  22. ________lea_____cx, IsDivBy2_______; Загружаем адрес процедуры IsDivBy2 в регистр cx
  23. ________lea_____bx, es:[buffer]____; Загружаем адрес переменной buffer в регистр es:bx
  24. ________lea_____ax, ds:[array]_____; Загружаем адрес переменной array в регистр ds:ax
  25. ________call____ArrayCopyIf________; Вызываем процедуру ArrayCopyIf(ds:ax, es:bx, cx, dx) := CX
  27. ________lea_____bx, ds:[buffer]____; Загружаем адрес массива buffer в регистр ds:bx
  28. ________xor_____si, si_____________; Обнуляем регистр-индекс si
  30. ____PrintArrayLoop:
  31. ________push____word ptr[bx+si]____; 2-й: Сохраняем значение в bx под индексом si в стеке
  32. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  33. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  34. ________add_____sp, 2______________; Выравниваем стек
  35. ________incw____si_________________; Вызываем макрос incw. Увеличиваем индекс si на 2
  36. ________loop____PrintArrayLoop_____; Выполняем цикл пока CX≠0
  38. ________xor_____al, al_____________; Обнуляем регистр al
  39. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  40. ____main endp _____________________; Конец процедуры main
  42. ____IsDivBy2 proc__________________; Начало процедуры IsDivBy2
  43. ________push____ax_________________; Обязательно сохраняем значение регистра ax в стеке
  44. ________push____bx_________________; Обязательно сохраняем значение регистра bx в стеке
  45. ________push____dx_________________; Обязательно сохраняем значение регистра dx в стеке
  47. ________mov_____bx, 2______________; Копируем число 2 в регистр bx
  48. ________cwd________________________; Выполняем знаковое расширение регистра dx
  49. ________idiv____bx_________________; Делим значение в регистре ax на bx
  50. ________test____dl, dl_____________; Проверяем значение на 0
  52. ________pop____dx__________________; Обязательно выталкиваем значение из стека обратно в регистр dx
  53. ________pop____bx__________________; Обязательно выталкиваем значение из стека обратно в регистр bx
  54. ________pop____ax__________________; Обязательно выталкиваем значение из стека обратно в регистр ax
  55. ________ret________________________; Возврат из функции
  56. ____IsDivBy2 endp__________________; Конец процедуры IsDivBy2
  58. code ends _________________________; Конец сегмента кода
  59. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda