ХАНДЫФАР

Функция StringAbbreviate создаёт аббревиатуру из указанной строки, состоящую из первых букв каждого слова, и сохраняет её в подготовленном буфере. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

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

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

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

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

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

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

• Слово определяется как последовательность букв, разделённая пробельными символами.
• Функция не изменяет значения регистров.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string _db "Объединенные Арабские "
8. ____________db "Эмираты\0"
9. ____strabbr db 10 dup(0)
10. data ends
12. code segment public
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc
16. ____main proc
17. ________call____SetDataSegment
19. ________lea_____bx, es:[strabbr]
20. ________lea_____ax, ds:[string]
21. ________call____StringAbbreviate
23. ________mov_____ax, bx
24. ________call____WriteString
26. ________xor_____al, al
27. ________call____ExitProcess
28. ____main endp
30. code ends
31. end main

Функция StringAbbreviate создаёт аббревиатуру из указанной строки, состоящую из первых букв каждого слова, и сохраняет её в подготовленном буфере. Если указатель на строку равен 0, функция завершает работу без изменений.

Параметры:

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

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

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

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

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

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

• Слово определяется как последовательность букв, разделённая пробельными символами.
• Функция не изменяет значения регистров.

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____string _db "Объединенные Арабские Эмираты\0"
8. ____strabbr db 10 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. ________lea_____bx, es:[strabbr]__; Загружаем адрес переменной strabbr в регистр es:bx
19. ________lea_____ax, ds:[string]___; Загружаем адрес переменной string в регистр ds:ax
20. ________call____StringAbbreviate__; Вызываем процедуру StringAbbreviate(ds:ax, es:bx)
22. ________mov_____ax, bx____________; Загружаем значение регистра bx в регистр ax
23. ________call____WriteString_______; Вызываем процедуру WriteString(ax:strabbr)
25. ________xor_____al, al____________; Обнуляем регистр al
26. ________call____ExitProcess_______; Вызываем процедуру ExitProcess
27. ____main endp ____________________; Конец процедуры main
29. code ends ________________________; Конец сегмента кода
30. end main _________________________; Конец файла. Точкой входа указывается процедура main