ХАНДЫФАР

Функция ArrayConcatenateEx копирует элементы второго массива в конец первого массива. Функция ArrayConcatenateEx автоматически выравнивает стек на 8 байт.

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Размер первого массива (количество элементов).
  4. Размер второго массива (количество элементов).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1__dw__1, 2, 3, 4
  9. ____arrlen1 equ ($-array1) / 2
  10. ____________dw__10 dup(0)
  11. ____array2__dw__5, 6, 7, 8, 9
  12. ____arrlen2 equ ($-array2) / 2
  13. ____output _db _"Массив: \0"
  14. ____fmtout__db _"[%d] \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. ________push____arrlen2
  26. ________push____arrlen1
  27. ________pushs___es:[array2]
  28. ________pushs___ds:[array1]
  29. ________call____ArrayConcatenateEx
  31. ________pushs___ds:[output]
  32. ________call____WriteStringEx
  34. ________leabx___ds:[array1]
  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
Функция ArrayConcatenateEx копирует элементы второго массива в конец первого массива. Функция ArrayConcatenateEx автоматически выравнивает стек на 8 байт.

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Размер первого массива (количество элементов).
  4. Размер второго массива (количество элементов).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1__dw__1, 2, 3, 4
  9. ____arrlen1 equ ($-array1) / 2
  10. ____________dw__10 dup(0) ; Добавляем 10 слов что бы вместить array2
  11. ____array2__dw__5, 6, 7, 8, 9
  12. ____arrlen2 equ ($-array2) / 2
  13. ____output _db _"Массив: \0"
  14. ____fmtout__db _"[%d] \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______; Вызываем процедуру SetDataSegment
  25. ________push____arrlen2_____________; 4-й: Ложим на вершину стека длину массива array2
  26. ________push____arrlen1_____________; 3-й: Ложим на вершину стека длину массива array1
  27. ________pushs___es:[array2]_________; 2-й: Ложим на вершину стека адрес массива array2
  28. ________pushs___ds:[array1]_________; 1-й: Ложим на вершину стека адрес массива array1
  29. ________call____ArrayConcatenateEx__; Вызываем процедуру ArrayConcatenateEx(arr1, arr2, 4, 5) := CX
  31. ________pushs___ds:[output]_________; Ложим на вершину стека адрес переменной output
  32. ________call____WriteStringEx_______; Вызываем процедуру WriteStringEx(output)
  34. ________leabx___ds:[array1]_________; Загружаем адрес массива array1 в регистр ds:bx
  35. ________xor_____si, si______________; Обнуляем регистр-индекс
  37. ____PrintArrayLoop:
  38. ________push____word ptr[bx+si]_____; 2-й: Ложим на вершину стека значение в bx под индексом si
  39. ________leaax___ds:[fmtout]_________; 1-й: Загружаем адрес строки формата fmtout в регистр ds:ax
  40. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString(ax:fmtout, bx)
  41. ________add_____sp, 2_______________; Выравниваем стек
  42. ________incw____si__________________; Увеличиваем индекс si на 2
  43. ________loop____PrintArrayLoop______; Выполняем цикл пока регистр cx не равен 0
  45. ________push____0___________________; Ложим на вершину стека байтовое значение кода возврата
  46. ________call____ExitProcessEx_______; Вызываем процедуру ExitProcess(0)
  47. ____main endp
  49. code ends
  50. end main
Made on
Tilda