ХАНДЫФАР

Функция ArrayMergeSort объединяет два массива в третий массив и сортирует его в порядке возрастания.

Параметры:

  • DS:AX: Указатель на первый массив.
  • ES:BX: Указатель на второй массив.
  • DS:CX: Указатель на третий массив, в _______который будут объединены первые _______два массива.
  • SI: ___Длина первого массива. Если
_________SI = 0, функция завершает работу.
  • DI: ___Длина второго массива. Если
_________DI = 0, функция завершает работу.

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

  • CX: Количество элементов в третьем массиве.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____arrayC _dw _4, 5, 2, 3
  8. ____arrClen equ ($-arrayC) / 2
  9. ____arrayD _dw _2, 6, 3, 1, 7, 8
  10. ____arrDlen equ ($-arrayD) / 2
  11. ____arrayB _dw__arrClen + arrDlen 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. ________mov_____di, arrDlen
  24. ________mov_____si, arrClen
  25. ________lea_____cx, ds:[arrayB]
  26. ________lea_____bx, es:[arrayD]
  27. ________lea_____ax, ds:[arrayC]
  28. ________call____ArrayMergeSort
  30. ________lea_____si, ds:[arrayB]
  32. ____PrintArrayLoop:
  33. ________push____word ptr[si]
  34. ________lea_____ax, ds:[fmtout]
  35. ________call____PrintFormatString
  36. ________add_____sp, 2
  37. ________incw____si
  38. ________loop____PrintArrayLoop
  40. ________xor_____al, al
  41. ________call____ExitProcess
  42. ____main endp
  44. code ends
  45. end main
Функция ArrayMergeSort объединяет два массива в третий массив и сортирует его в порядке возрастания.

Параметры:

  • DS:AX: Указатель на первый массив.
  • ES:BX: Указатель на второй массив.
  • DS:CX: Указатель на третий массив, в который будут объединены первые два массива.
  • SI: ___Длина первого массива. Если SI = 0, функция завершает работу.
  • DI: ___Длина второго массива. Если DI = 0, функция завершает работу.

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

  • CX: Количество элементов в третьем массиве.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____arrayC _dw _4, 5, 2, 3
  8. ____arrClen equ ($-arrayC) / 2
  9. ____arrayD _dw _2, 6, 3, 1, 7, 8
  10. ____arrDlen equ ($-arrayD) / 2
  11. ____arrayB _dw__arrClen + arrDlen 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 _____________________; Начало процедуры main
  21. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  23. ________mov_____di, arrDlen________; Копируем значение переменной arrDlen в регистр di
  24. ________mov_____si, arrClen________; Копируем значение переменной arrClen в регистр si
  25. ________lea_____cx, ds:[arrayB]____; Загружаем адрес переменной arrayB в регистр ds:cx
  26. ________lea_____bx, es:[arrayD]____; Загружаем адрес переменной arrayD в регистр es:bx
  27. ________lea_____ax, ds:[arrayC]____; Загружаем адрес переменной arrayC в регистр ds:ax
  28. ________call____ArrayMergeSort_____; Вызываем процедуру ArrayMergeSort(ax, bx, cx, si, di) := CX
  30. ________lea_____si, ds:[arrayB]____; Загружаем адрес переменной arrayB в регистр ds:si
  32. ____PrintArrayLoop:
  33. ________push____word ptr[si]_______; 2-й: Сохраняем значение регистра si в стеке
  34. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  35. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, si)
  36. ________add_____sp, 2______________; Выравниваем стек
  37. ________incw____si_________________; Вызываем макрос incw. Увеличиваем индекс si на 2
  38. ________loop____PrintArrayLoop_____; Выполняем цикл пока CX≠0
  40. ________xor_____al, al_____________; Обнуляем регистр al
  41. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  42. ____main endp _____________________; Конец процедуры main
  44. code ends _________________________; Конец сегмента кода
  45. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda