ХАНДЫФАР

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

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Указатель на третий массив, в который будут объединены первые два массива.
  4. Длина первого массива.
  5. Длина второго массива.
  6. ASCENDING = массив сортируется по возрастанию, DESCENDING = массив сортируется по убыванию

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____arrayA__dw__4, 5, 2, 3
  9. ____arrAlen equ ($-arrayA) / 2
  10. ____arrayB__dw__2, 6, 3, 1, 7, 8
  11. ____arrBlen equ ($-arrayB) / 2
  12. ____arrayC__dw__arrAlen + arrBlen dup(0)
  13. ____fmtout _db__"[%d] \0"
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  19. ____include Handymac.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________push____DESCENDING
  25. ________push____arrBlen
  26. ________push____arrAlen
  27. ________pushs___ds:[arrayC]
  28. ________pushs___es:[arrayB]
  29. ________pushs___ds:[arrayA]
  30. ________call____ArrayMergeSortEx
  32. ________leabx___ds:[arrayC]
  33. ________xor_____si, si
  35. ____PrintArrayLoop:
  36. ________push____word ptr[bx+si]
  37. ________leaax___ds:[fmtout]
  38. ________call____PrintFormatString
  39. ________add_____sp, 2
  40. ________incw____si
  41. ________loop____PrintArrayLoop
  43. ________push____0
  44. ________call____ExitProcessEx
  45. ____main endp
  47. code ends
  48. end main
Функция ArrayMergeSortEx объединяет два массива в третий массив и сортирует его в порядке возрастания. Функция ArrayMergeSortEx автоматически выравнивает стек на 12 байт.

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Указатель на третий массив, в который будут объединены первые два массива.
  4. Длина первого массива.
  5. Длина второго массива.
  6. ASCENDING = массив сортируется по возрастанию, DESCENDING = массив сортируется по убыванию.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____arrayA__dw__4, 5, 2, 3
  9. ____arrAlen equ ($-arrayA) / 2
  10. ____arrayB__dw__2, 6, 3, 1, 7, 8
  11. ____arrBlen equ ($-arrayB) / 2
  12. ____arrayC__dw__arrAlen + arrBlen dup(0)
  13. ____fmtout _db__"[%d] \0"
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc___________; Подключаем файл с функциями
  19. ____include Handymac.inc___________; Подключаем файл с макросами
  21. ____main proc
  22. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  24. ________push____DESCENDING_________; 6-й: Сортируем по убыванию
  25. ________push____arrBlen____________; 5-й: Ложим на вершину стека длину массива arrayB
  26. ________push____arrAlen____________; 4-й: Ложим на вершину стека длину массива arrayA
  27. ________pushs___ds:[arrayC]________; 3-й: Ложим на вершину стека адрес массива arrayC
  28. ________pushs___es:[arrayB]________; 2-й: Ложим на вершину стека адрес массива arrayB
  29. ________pushs___ds:[arrayA]________; 1-й: Ложим на вершину стека адрес массива arrayA
  30. ________call____ArrayMergeSortEx___; Вызываем процедуру ArrayMergeSortEx(aA, aB, aC, 4, 6, 1) := CX
  32. ________leabx___ds:[arrayC]________; Загружаем адрес массива arrayC в регистр ds:bx
  33. ________xor_____si, si_____________; Обнуляем регистр-индекс
  35. ____PrintArrayLoop:
  36. ________push____word ptr[bx+si]____; 2-й: Ложим на вершину стека значение в bx под индексом si
  37. ________leaax___ds:[fmtout]________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  38. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  39. ________add_____sp, 2______________; Выравниваем стек
  40. ________incw____si_________________; Увеличиваем индекс si на 2
  41. ________loop____PrintArrayLoop_____; Выполняем цикл пока регистр cx не равен 0
  43. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  44. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  45. ____main endp
  47. code ends
  48. end main
Made on
Tilda