ХАНДЫФАР

Функция StringSpan возвращает длину максимального начального сегмента первой строки, который состоит только из символов, найденных во второй строке.

Параметры:

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

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

• DS:AX: Длина максимального начального сегмента первой строки, который содержит только символы из второй строки. Если такой сегмент не найден, возвращается 0.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "8783274ABCDEFGH1234\0"
8. ____search db "0123456789\0"
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc
15. ____main proc
16. ________call____SetDataSegment
18. ________lea_____bx, es:[search]
19. ________lea_____ax, ds:[string]
20. ________call____StringSpan
21. ________call____WriteString
23. ________xor_____al, al
24. ________call____ExitProcess
25. ____main endp
27. code ends
28. end main

Функция StringSpan возвращает длину максимального начального сегмента первой строки, который состоит только из символов, найденных во второй строке.

Параметры:

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

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

• DS:AX: Длина максимального начального сегмента первой строки, который содержит только символы из второй строки. Если такой сегмент не найден, возвращается 0.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "8783274ABCDEFGH1234\0"
8. ____search db "0123456789\0"
9. data ends
11. code segment public _____________; Начало сегмента кода
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc_________; Подключаем файл с функциями
15. ____main proc ___________________; Начало процедуры main
16. ________call____SetDataSegment___; Вызываем процедуру SetDataSegment
18. ________lea_____bx, es:[search]__; Загружаем адрес переменной search в регистр es:bx
19. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
20. ________call____StringSpan_______; Вызываем процедуру StringSpan(ds:ax, es:bx) := AX
21. ________call____WriteString______; Вызываем процедуру WriteString(ax)
23. ________xor_____al, al___________; Обнуляем регистр al
24. ________call____ExitProcess______; Вызываем процедуру ExitProcess
25. ____main endp ___________________; Конец процедуры main
27. code ends _______________________; Конец сегмента кода
28. end main ________________________; Конец файла. Точкой входа указывается процедура main