ХАНДЫФАР

Функция StringCompare выполняет лексикографическое сравнение двух строк, завершающихся (\0) или 0. Если одна из строк равна 0, функция завершает работу и возвращает результат сравнения.

Параметры:

• DS:AX: Указатель на первую строку, завершающуюся (\0) или 0.
• ES:BX: Указатель на вторую строку, завершающуюся (\0) или 0.

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

• Если строки равны лексикографически:

____AX = 0.
____ZF = 1.

• Если строки не равны:

AX = 1: Первый отличающийся символ в первой строке больше соответствующего символа во второй строке.
AX = -1: Первый отличающийся символ в первой строке меньше соответствующего символа во второй строке.
ZF = 0.

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

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

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

• Если строки равны до конца, функция возвращает AX = 0 и устанавливает ZF = 1.
• Функция не изменяет значения регистров, кроме AX и флагов.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string1__db "Евгений\0"
8. ____string2__db "Довгополов\0"
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. ________lea_____bx, es:[string2]
21. ________lea_____ax, ds:[string1]
22. ________call____StringCompare
24. ________jnz_____StringsNotEqual
26. ________lea_____ax, ds:[equal]
27. ________jmp_____Done
29. ____StringsNotEqual:
30. ________lea_____ax, ds:[notEqual]
32. ____Done:
33. ________call____WriteString
35. ________xor_____al, al
36. ________call____ExitProcess
37. ____main endp
39. code ends
40. end main

Функция StringCompare выполняет лексикографическое сравнение двух строк, завершающихся (\0) или 0. Если одна из строк равна 0, функция завершает работу и возвращает результат сравнения.

Параметры:

• DS:AX: Указатель на первую строку, завершающуюся (\0) или 0.
• ES:BX: Указатель на вторую строку, завершающуюся (\0) или 0.

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

• Если строки равны лексикографически:

____AX = 0.
____ZF = 1.

• Если строки не равны:

AX = 1: _Первый отличающийся символ в первой строке больше соответствующего символа во второй строке.
AX = -1: Первый отличающийся символ в первой строке меньше соответствующего символа во второй строке.
ZF = 0.

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

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

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

• Если строки равны до конца, функция возвращает AX = 0 и устанавливает ZF = 1.
• Функция не изменяет значения регистров, кроме AX и флагов.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string1__db "Евгений\0"
8. ____string2__db "Довгополов\0"
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. ________lea_____bx, es:[string2]___; Загружаем адрес переменной string2 в регистр es:bx
21. ________lea_____ax, ds:[string1]___; Загружаем адрес переменной string1 в регистр ds:ax
22. ________call____StringCompare______; Вызываем процедуру StringCompare(ds:ax, es:bx) := AX и ZF
24. ________jnz_____StringsNotEqual____; Если ZF=0, то прыгаем на метку StringsNotEqual
26. ________lea_____ax, ds:[equal]_____; Загружаем адрес переменной equal в регистр ds:ax
27. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
29. ____StringsNotEqual:
30. ________lea_____ax, ds:[notEqual]__; Загружаем адрес переменной notEqual в регистр ds:ax
32. ____Done:
33. ________call____WriteString________; Вызываем процедуру WriteString(ax)
35. ________xor_____al, al_____________; Обнуляем регистр al
36. ________call____ExitProcess________; Вызываем процедуру ExitProcess
37. ____main endp _____________________; Конец процедуры main
39. code ends _________________________; Конец сегмента кода
40. end main __________________________; Конец файла. Точкой входа указывается процедура main