ХАНДЫФАР

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

Параметры:

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

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

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

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

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

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

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

ПРИМЕР 1:

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "____Привет Мир!_\0"
8. ____buffer_db 20 dup(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. ________xor_____cl, cl
19. ________lea_____bx, es:[buffer]
20. ________lea_____ax, ds:[string]
21. ________call____StringTrim_
23. ________lea_____ax, ds:[buffer]
24. ________call____WriteString
26. ________xor_____al, al
27. ________call____ExitProcess
28. ____main endp
30. code ends
31. end main

ПРИМЕР 2:

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "-----Привет Мир!-\0"
8. ____buffer_db 20 dup(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. ________mov_____cl, '-'
19. ________lea_____bx, es:[buffer]
20. ________lea_____ax, ds:[string]
21. ________call____StringTrim
23. ________lea_____ax, ds:[buffer]
24. ________call____WriteString
26. ________xor_____al, al
27. ________call____ExitProcess
28. ____main endp
30. code ends
31. end main

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

Параметры:

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

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

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

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

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

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

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

ПРИМЕР 1:

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "____Привет Мир!_\0"
8. ____buffer_db 20 dup(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. ________xor_____cl, cl___________; Обнуляем регистр cl, по умолчанию удаляет пробелы
19. ________lea_____bx, es:[buffer]__; Загружаем адрес переменной buffer в регистр es:bx
20. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
21. ________call____StringTrim_______; Вызываем процедуру StringTrim(ds:ax, es:bx, cl:0)
23. ________lea_____ax, ds:[buffer]__; Загружаем адрес переменной buffer в регистр ds:ax
24. ________call____WriteString______; Вызываем процедуру WriteString(ax:buffer)
26. ________xor_____al, al___________; Обнуляем регистр al
27. ________call____ExitProcess______; Вызываем процедуру ExitProcess
28. ____main endp ___________________; Конец процедуры main
30. code ends _______________________; Конец сегмента кода
31. end main ________________________; Конец файла. Точкой входа указывается процедура main

ПРИМЕР 2:

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string db "-----Привет Мир!-\0"
8. ____buffer_db 20 dup(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. ________mov_____cl, '-'__________; Копируем значение символа '-' в регистр cl
19. ________lea_____bx, es:[buffer]__; Загружаем адрес переменной buffer в регистр es:bx
20. ________lea_____ax, ds:[string]__; Загружаем адрес переменной string в регистр ds:ax
21. ________call____StringTrim_______; Вызываем процедуру StringTrim(ds:ax, es:bx, cl:'-')
23. ________lea_____ax, ds:[buffer]__; Загружаем адрес переменной buffer в регистр ds:ax
24. ________call____WriteString______; Вызываем процедуру WriteString(ax:buffer)
26. ________xor_____al, al___________; Обнуляем регистр al
27. ________call____ExitProcess______; Вызываем процедуру ExitProcess
28. ____main endp ___________________; Конец процедуры main
30. code ends _______________________; Конец сегмента кода
31. end main ________________________; Конец файла. Точкой входа указывается процедура main