ХАНДЫФАР

Функция ArraySort выполняет сортировку массива по возрастанию или по убыванию в зависимости от значения параметра CL.

Параметры:

  • DS:AX: Указатель на массив.
  • BX: ___Длина массива (количество элементов). Если BX = 0, функция завершает работу.
  • CL:____Режим сортировки:

Если CL = ASCENDING, массив сортируется по возрастанию.
Если CL = DESCENDING, массив сортируется по убыванию

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array__dw__5, 5, 2, 6, 5, 10, 4, 2
  8. ___________dw__10, 0, 0, 1, 8, 2, 3, 9
  9. ___________dw__0, 7
  10. ____arrlen equ ($-array) / 2
  11. ____arrbuf dw__arrlen 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_____cx, arrlen
  24. ________lea_____bx, es:[arrbuf]
  25. ________lea_____ax, ds:[array]
  26. ________call____ArrayMakeUnique
  28. ________xchg____bx, cx
  29. ________mov_____cl, DESCENDING
  30. ________lea_____ax, ds:[arrbuf]
  31. ________call____ArraySort
  33. ________lea_____si, ds:[arrbuf]
  35. ____PrintArrayLoop:
  36. ________push____word ptr[si]
  37. ________lea_____ax, ds:[fmtout]
  38. ________call____PrintFormatString
  39. ________add_____sp, 2
  40. ________incw____si
  41. ________loop____PrintArrayLoop
  43. ________xor_____al, al
  44. ________call____ExitProcess
  45. ____main endp
  47. code ends
  48. end main
Функция ArraySort выполняет сортировку массива по возрастанию или по убыванию в зависимости от значения параметра CL.

Параметры:

  • AX: Указатель на массив.
  • BX:_Длина массива (количество элементов). Если BX = 0, функция завершает работу.
  • CL:_Режим сортировки:

_______Если CL = ASCENDING, массив сортируется по возрастанию.
_______Если CL = DESCENDING, массив сортируется по убыванию

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

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array__dw__5, 5, 2, 6, 5, 10, 4, 2, 10, 0, 0, 1, 8, 2, 3, 9, 0, 7
  8. ____arrlen equ ($-array) / 2
  9. ____arrbuf 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_________; Копируем длину массива array в регистр cx
  22. ________lea_____bx, es:[arrbuf]____; Загружаем адрес переменной arrbuf в регистр es:bx
  23. ________lea_____ax, ds:[array]_____; Загружаем адрес переменной array в регистр ds:ax
  24. ________call____ArrayMakeUnique____; Вызываем процедуру ArrayMakeUnique(ds:ax, es:bx, cx) := CX
  26. ________xchg____bx, cx_____________; Выполняем обмен значениями регистра cx с регистром bx
  27. ________mov_____cl, DESCENDING_____; Копируем значение DESCENDING в регистр cl
  28. ________lea_____ax, ds:[arrbuf]____; Загружаем адрес переменной arrbuf в регистр ds:ax
  29. ________call____ArraySort__________; Вызываем процедуру ArraySort(ds:ax, bx, cl)
  31. ________lea_____si, ds:[arrbuf]____; Загружаем адрес переменной arrbuf в регистр ds:si
  33. ____PrintArrayLoop:
  34. ________push____word ptr[si]_______; 2-й: Сохраняем значение регистра si в стеке
  35. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  36. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, si)
  37. ________add_____sp, 2______________; Выравниваем стек
  38. ________incw____si_________________; Вызываем макрос incw. Увеличиваем индекс si на 2
  39. ________loop____PrintArrayLoop_____; Выполняем цикл пока CX≠0
  41. ________xor_____al, al_____________; Обнуляем регистр al
  42. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  43. ____main endp _____________________; Конец процедуры main
  45. code ends _________________________; Конец сегмента кода
  46. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda