ХАНДЫФАР

Функция ArrayConcatenate копирует элементы второго массива в конец первого массива.

Параметры:

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

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

  • CX: Общее количество элементов в первом массиве после копирования.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array1__dw__1111h, 2222h, 3333h, 4444h
  8. ____arrlen1 equ ($-array1) / 2
  9. ____________dw__10 dup(0)
  10. ____array2__dw__5555h, 6666h, 7777h
  11. ____________dw__8888h, 9999h
  12. ____arrlen2 equ ($-array2) / 2
  13. ____output__db__"Массив: \0"
  14. ____fmtout _db__"[%h] \0"
  15. data ends
  17. code segment public
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc
  20. ____include Handymac.inc
  22. ____main proc
  23. ________call____SetDataSegment
  25. ________mov_____dx, arrlen2
  26. ________mov_____cx, arrlen1
  27. ________lea_____bx, es:[array2]
  28. ________lea_____ax, ds:[array1]
  29. ________call____ArrayConcatenate
  31. ________lea_____ax, ds:[output]
  32. ________call____WriteString
  34. ____PrintArrayLoop:
  35. ________push____word ptr[si]
  36. ________lea_____ax, ds:[fmtout]
  37. ________call____PrintFormatString
  38. ________add_____sp, 2
  39. ________incw____si
  40. ________loop____PrintArrayLoop
  42. ________xor_____al, al
  43. ________call____ExitProcess
  44. ____main endp
  46. code ends
  47. end main
Функция ArrayConcatenate копирует элементы второго массива в конец первого массива.

Параметры:

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

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

  • CX: Общее количество элементов в первом массиве после копирования.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array1__dw__1111h, 2222h, 3333h, 4444h
  8. ____arrlen1 equ ($-array1) / 2
  9. ____________dw__10 dup(0)
  10. ____array2__dw__5555h, 6666h, 7777h, 8888h, 9999h
  11. ____arrlen2 equ ($-array2) / 2
  12. ____output__db__"Массив: \0"
  13. ____fmtout _db__"[%h] \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 _____________________; Начало процедуры main
  22. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  24. ________mov_____dx, arrlen2________; Копируем значение переменной arrlen2 в регистр dx
  25. ________mov_____cx, arrlen1________; Копируем значение переменной arrlen1 в регистр cx
  26. ________lea_____bx, es:[array2]____; Загружаем адрес переменной array2 в регистр es:bx
  27. ________lea_____ax, ds:[array1]____; Загружаем адрес переменной array1 в регистр ds:ax
  28. ________call____ArrayConcatenate___; Вызываем процедуру ArrayConcatenate(ds:ax, es:bx, cx, dx) := CX
  30. ________lea_____ax, ds:[output]____; Загружаем адрес переменной output в регистр ds:ax
  31. ________call____WriteString________; Вызываем процедуру WriteString(ax:output)
  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