ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____array1_dw _1234h, 2345h, 3456h, 4567h
8. ____arrlen equ ($-array1) / 2
9. ____array2_dw _arrlen dup(?)
10. ____output db__"Скопированный массив: \0"
11. ____fmtout db__"[%h] \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:[array2]
24. ________lea_____ax, ds:[array1]
25. ________call____ArrayCopy
27. ________lea_____ax, ds:[output]
28. ________call____WriteString
30. ____PrintArrayLoop:
31. ________push____word ptr[bx]
32. ________lea_____ax, ds:[fmtout]
33. ________call____PrintFormatString
34. ________add_____sp, 2
35. ________incw____bx
36. ________loop____PrintArrayLoop
38. ________xor_____al, al
39. ________call____ExitProcess
40. ____main endp
42. code ends
43. end main

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

Параметры:

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

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____array1_dw _1234h, 2345h, 3456h, 4567h
8. ____arrlen equ ($-array1) / 2
9. ____array2_dw _arrlen dup(?)
10. ____output db__"Скопированный массив: \0"
11. ____fmtout db__"[%h] \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 _____________________; Начало процедуры main
20. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
22. ________mov_____cx, arrlen_________; Копируем длину массива в регистр cx
23. ________lea_____bx, es:[array2]____; Загружаем адрес переменной array2 в регистр es:bx
24. ________lea_____ax, ds:[array1]____; Загружаем адрес переменной array1 в регистр ds:ax
25. ________call____ArrayCopy__________; Вызываем процедуру ArrayCopy(ds:ax, es:bx, cx)
27. ________lea_____ax, ds:[output]____; Загружаем адрес переменной output в регистр ds:ax
28. ________call____WriteString________; Вызываем процедуру WriteString(ax)
30. ____PrintArrayLoop:
31. ________push____word ptr[bx]_______; 2-й: Сохраняем значение регистра bx в стеке
32. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
33. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
34. ________add_____sp, 2______________; Выравниваем стек
35. ________incw____bx_________________; Вызываем макрос incw. Увеличиваем индекс bx на 2
36. ________loop____PrintArrayLoop_____; Выполняем цикл пока CX≠0
38. ________xor_____al, al_____________; Обнуляем регистр al
39. ________call____ExitProcess________; Вызываем процедуру ExitProcess
40. ____main endp _____________________; Конец процедуры main
42. code ends _________________________; Конец сегмента кода
43. end main __________________________; Конец файла. Точкой входа указывается процедура main