ХАНДЫФАР

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

Параметры:

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

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

  • CX: Количество уникальных элементов, скопированных из первого массива во второй массив.

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

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

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

Если элемент уже присутствует во втором массиве, он не копируется повторно.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____origin dw__7, 5, 8, 3, 7, 5, 6, 3, 8
  9. ___________dw__1, 9, 5
  10. ____arrlen equ_($-origin) / 2
  11. ____unique dw__255 dup(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:[unique]
  25. ________pushs___ds:[origin]
  26. ________call____ArrayMakeUniqueEx
  28. ________leabx___ds:[unique]
  29. ________xor_____si, si
  31. ____PrintArrayLoop:
  32. ________push____word ptr[bx+si]
  33. ________leaax___ds:[fmtout]
  34. ________call____PrintFormatString
  35. ________add_____sp, 2
  36. ________incw____si
  37. ________loop____PrintArrayLoop
  39. ________push____0
  40. ________call____ExitProcessEx
  41. ____main endp
  43. code ends
  44. end main
Функция ArrayMakeUniqueEx копирует уникальные элементы из первого массива во второй массив. Функция ArrayMakeUniqueEx автоматически выравнивает стек на 6 байт.

Параметры:

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

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

  • CX: Количество уникальных элементов, скопированных из первого массива во второй массив.

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

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

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

Если элемент уже присутствует во втором массиве, он не копируется повторно.

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____origin dw__7, 5, 8, 3, 7, 5, 6, 3, 8, 1, 9, 5
  9. ____arrlen equ_($-origin) / 2
  10. ____unique dw__255 dup(0)
  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_____________; 3-й: Ложим на вершину стека длину массива
  23. ________pushs___es:[unique]________; 2-й: Ложим на вершину стека длину массива unique
  24. ________pushs___ds:[origin]________; 1-й: Ложим на вершину стека адрес массива origin
  25. ________call____ArrayMakeUniqueEx__; Вызываем процедуру ArrayMakeUniqueEx(origin, unique, 12) := CX
  27. ________leabx___ds:[unique]________; Загружаем адрес массива unique в регистр ds:bx
  28. ________xor_____si, si_____________; Обнуляем регистр-индекс
  30. ____PrintArrayLoop:
  31. ________push____word ptr[bx+si]____; 2-й: Ложим на вершину стека значение в bx под индексом si
  32. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  33. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  34. ________add_____sp, 2______________; Выравниваем стек
  35. ________incw____si_________________; Увеличиваем индекс si на 2
  36. ________loop____PrintArrayLoop_____; Выполняем цикл пока регистр cx не равен 0
  38. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  39. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  40. ____main endp
  42. code ends
  43. end main
Made on
Tilda