ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____origin dw _7, 5, 8, 3, 7, 5, 6, 3, 8
8. ___________dw _1, 9, 5
9. ____arrlen equ ($-origin) / 2
10. ____unique dw _arrlen 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
22. ________mov_____cx, arrlen
23. ________lea_____bx, es:[unique]
24. ________lea_____ax, ds:[origin]
25. ________call____ArrayMakeUnique
27. ____PrintArrayLoop:
28. ________push____word ptr[bx]
29. ________lea_____ax, ds:[fmtout]
30. ________call____PrintFormatString
31. ________add_____sp, 2
32. ________incw____bx
33. ________loop____PrintArrayLoop
35. ________xor_____al, al
36. ________call____ExitProcess
37. ____main endp
39. code ends
40. end main

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

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____origin dw _7, 5, 8, 3, 7, 5, 6, 3, 8, 1, 9, 5
8. ____arrlen equ ($-origin) / 2
9. ____unique dw _arrlen dup(0)
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_____cx, arrlen_________; Копируем длину массива origin в регистр cx
22. ________lea_____bx, es:[unique]____; Загружаем адрес переменной unique в регистр es:bx
23. ________lea_____ax, ds:[origin]____; Загружаем адрес переменной origin в регистр ds:ax
24. ________call____ArrayMakeUnique____; Вызываем процедуру ArrayMakeUnique(ds:ax, es:bx, cx) := CX
26. ____PrintArrayLoop:
27. ________push____word ptr[bx]_______; 2-й: Сохраняем значение регистра bx(unique) в стеке
28. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
29. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
30. ________add_____sp, 2______________; Выравниваем стек
31. ________incw____bx_________________; Вызываем макрос incw. Увеличиваем индекс bx на 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