ХАНДЫФАР

Функция ArrayCompareEx сравнивает два массива поэлементно. Если массивы равны, функция устанавливает флаг нуля (ZF = 1), иначе сбрасывает его (ZF = 0). Функция ArrayCompareEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Количество элементов для сравнения.

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

  • Если массивы равны:

____ZF = 1.

  • Если массивы не равны или один из указателей равен 0:

____ZF = 0.

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

  • Функция влияет на все флаги, включая флаг ZF, SF и другие.

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1___dw 23, 54, 83, 91
  9. ____array2___dw 23, 54, 41, 91
  10. ____equal____db "Массивы равны!\0"
  11. ____notEqual db "Массивы не равны!\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
  22. ________push____4
  23. ________pushs___es:[array2]
  24. ________pushs___ds:[array1]
  25. ________call____ArrayCompareEx
  27. ________jne_____@ArraysNotEqual
  29. ________pushs___ds:[equal]
  30. ________jmp_____@Done
  32. ____@ArraysNotEqual:
  33. ________pushs___ds:[notEqual]
  35. ____@Done:
  36. ________call____WriteStringEx
  38. ________push____0
  39. ________call____ExitProcessEx
  40. ____main endp
  42. code ends
  43. end main
Функция ArrayCompareEx сравнивает два массива поэлементно. Если массивы равны, функция устанавливает флаг нуля (ZF = 1), иначе сбрасывает его (ZF = 0). Функция ArrayCompareEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на первый массив.
  2. Указатель на второй массив.
  3. Количество элементов для сравнения.

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

  • Если массивы равны:

____ZF = 1.

  • Если массивы не равны или один из указателей равен 0:

____ZF = 0.

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

  • Функция влияет на все флаги, включая флаг ZF, SF и другие.

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____array1___dw 23, 54, 83, 91
  9. ____array2___dw 23, 54, 41, 91
  10. ____equal____db "Массивы равны!\0"
  11. ____notEqual db "Массивы не равны!\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____4________________; 3-й: Ложим на вершину стека длину массива
  23. ________pushs___es:[array2]______; 2-й: Ложим на вершину стека адрес массива array2
  24. ________pushs___ds:[array1]______; 1-й: Ложим на вершину стека адрес массива array1
  25. ________call____ArrayCompareEx___; Вызываем процедуру ArrayCompareEx(array1, array2, 4) := ZF
  27. ________jne_____@ArraysNotEqual__; Если ZF=0, то прыгаем на метку @ArraysNotEqual
  29. ________pushs___ds:[equal]_______; Ложим на вершину стека адрес переменной equal
  30. ________jmp_____@Done____________; Выполняем безусловный переход на метку @Done
  32. ____@ArraysNotEqual:
  33. ________pushs___ds:[notEqual]____; Ложим на вершину стека адрес переменной notEqual
  35. ____@Done:
  36. ________call____WriteStringEx____; Вызываем процедуру WriteStringEx(значение из стека)
  38. ________push____0________________; Ложим на вершину стека байтовое значение кода возврата
  39. ________call____ExitProcessEx____; Вызываем процедуру ExitProcess(0)
  40. ____main endp
  42. code ends
  43. end main
Made on
Tilda