ХАНДЫФАР

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

Параметры:

  1. Указатель на массив.
  2. Длина массива (количество элементов).
  3. ASCENDING = массив сортируется по возрастанию, DESCENDING = массив сортируется по убыванию.

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

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

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

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

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

  • Функция сортирует массив на месте, используя алгоритм сортировки (например, пузырьковую сортировку).

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array _dw__5, 5, 2, 6, 5, 10, 4, 2
  9. ___________dw__10, 0, 0, 1, 8, 2, 3, 9
  10. ___________dw__0, 7
  11. ____arrlen equ_($-array) / 2
  12. ____arrbuf dw__arrlen 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____arrlen
  25. ________pushs___es:[arrbuf]
  26. ________pushs___ds:[array]
  27. ________call____ArrayMakeUniqueEx
  29. ________push____DESCENDING
  30. ________push____cx
  31. ________pushs___ds:[arrbuf]
  32. ________call____ArraySortEx
  34. ________leabx___ds:[arrbuf]
  35. ________xor_____si, si
  37. ____PrintArrayLoop:
  38. ________push____word ptr[bx+si]
  39. ________leaax___ds:[fmtout]
  40. ________call____PrintFormatString
  41. ________add_____sp, 2
  42. ________incw____si
  43. ________loop____PrintArrayLoop
  45. ________push____0
  46. ________call____ExitProcessEx
  47. ____main endp
  49. code ends
  50. end main
Функция ArraySortEx выполняет сортировку массива по возрастанию или по убыванию в зависимости от значения второго параметра. ArraySortEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на массив.
  2. Длина массива (количество элементов).
  3. ASCENDING = массив сортируется по возрастанию, DESCENDING = массив сортируется по убыванию.

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

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

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

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

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

  • Функция сортирует массив на месте, используя алгоритм сортировки (например, пузырьковую сортировку).

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array _dw__5, 5, 2, 6, 5, 10, 4, 2, 10, 0, 0, 1, 8, 2, 3, 9, 0, 7
  9. ____arrlen equ_($-array) / 2
  10. ____arrbuf 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_____; Вызываем процедуру SetDataSegment
  22. ________push____arrlen_____________; 3-й: Ложим на вершину стека длину массива
  23. ________pushs___es:[arrbuf]________; 2-й: Ложим на вершину стека длину массива arrbuf
  24. ________pushs___ds:[array]_________; 1-й: Ложим на вершину стека адрес массива array
  25. ________call____ArrayMakeUniqueEx__; Вызываем процедуру ArrayMakeUniqueEx(array, arrbuf, 18) := CX
  27. ________push____DESCENDING_________; 3-й: Сортируем по убыванию
  28. ________push____cx_________________; 2-й: Ложим на вершину стека длину массива
  29. ________pushs___ds:[arrbuf]________; 1-й: Ложим на вершину стека длину массива arrbuf
  30. ________call____ArraySortEx________; Вызываем процедуру ArraySortEx(arrbuf, cx, DESCENDING)
  32. ________leabx___ds:[arrbuf]________; Загружаем адрес массива arrbuf в регистр 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