ХАНДЫФАР

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

Параметры:

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

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

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

____ZF = 1.

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

____ZF = 0.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array1___dw 1234h, 2345h, 3456h, 4567h
  8. ____array2___dw 1234h, 2345h, 3454h, 4567h
  9. ____equal____db "Массивы равны!\0"
  10. ____notEqual_db "Массивы не равны!\0"
  11. data ends
  13. code segment public
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc
  17. ____main proc
  18. ________call____SetDataSegment
  20. ________mov_____cx, 4
  21. ________lea_____bx, es:[array2]
  22. ________lea_____ax, ds:[array1]
  23. ________call____ArrayCompare
  25. ________jne_____ArraysNotEqual
  27. ________lea_____ax, ds:[equal]
  28. ________jmp_____Done
  30. ____ArraysNotEqual:
  31. ________lea_____ax, ds:[notEqual]
  33. ____Done:
  34. ________call____WriteString
  36. ________xor_____al, al
  37. ________call____ExitProcess
  38. ____main endp
  40. code ends
  41. end main
Функция ArrayCompare сравнивает два массива поэлементно. Если массивы равны, функция устанавливает флаг нуля (ZF = 1), иначе сбрасывает его (ZF = 0).

Параметры:

  • DS:AX: Указатель на первый массив.
  • ES:BX: Указатель на второй массив.
  • CX:___ Количество элементов для сравнения. Если CX = 0, функция завершает работу и _______устанавливает ZF = 1.

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

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

____ZF = 1.

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

____ZF = 0.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____array1___dw 1234h, 2345h, 3456h, 4567h
  8. ____array2___dw 1234h, 2345h, 3454h, 4567h
  9. ____equal____db "Массивы равны!\0"
  10. ____notEqual_db "Массивы не равны!\0"
  11. data ends
  13. code segment public _______________; Начало сегмента кода
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc___________; Подключаем файл с функциями
  17. ____main proc _____________________; Начало процедуры main
  18. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  20. ________mov_____cx, 4______________; Копируем число 4 в регистр cx
  21. ________lea_____bx, es:[array2]____; Загружаем адрес переменной array2 в регистр es:bx
  22. ________lea_____ax, ds:[array1]____; Загружаем адрес переменной array1 в регистр ds:ax
  23. ________call____ArrayCompare_______; Вызываем процедуру ArrayCompare(ds:ax, es:bx, cx) := ZF
  25. ________jne_____ArraysNotEqual_____; Если ZF=0, то прыгаем на метку ArraysNotEqual
  27. ________lea_____ax, ds:[equal]_____; Загружаем адрес переменной equal в регистр ds:ax
  28. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  30. ____ArraysNotEqual:
  31. ________lea_____ax, ds:[notEqual]__; Загружаем адрес переменной notEqual в регистр ds:ax
  33. ____Done:
  34. ________call____WriteString________; Вызываем процедуру WriteString(ax)
  36. ________xor_____al, al_____________; Обнуляем регистр al
  37. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  38. ____main endp _____________________; Конец процедуры main
  40. code ends _________________________; Конец сегмента кода
  41. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda