ХАНДЫФАР

Функция IsPunct проверяет, является ли заданный символ знаком препинания. Знаки препинания — это графические символы, которые не являются буквенно-цифровыми или пробельными.

Параметры:

• AL: Символ для проверки.

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

• ZF = 1: Если символ является знаком препинания.
• ZF = 0: Если символ не является знаком препинания.

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

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

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

• Функция проверяет, является ли символ графическим символом (в диапазоне 21h–7Eh), но не буквенно-цифровым (A–Z, a–z, 0–9) и не пробельным символом.

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____true _db "TRUE\0"
8. ____false db "FALSE\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_____al, ','
19. ________call____IsPunct
21. ________jnz_____@False
23. ____@True:
24. ________lea_____ax, ds:[true]
25. ________jmp_____@Done
27. ____@False:
28. ________lea_____ax, ds:[false]
30. ____@Done:
31. ________call____WriteString
33. ________xor_____al, al
34. ________call____ExitProcess
35. ____main endp
37. code ends
38. end main

Функция IsPunct проверяет, является ли заданный символ знаком препинания. Знаки препинания — это графические символы, которые не являются буквенно-цифровыми или пробельными.

Параметры:

• AL: Символ для проверки.

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

• ZF = 1: Если символ является знаком препинания.
• ZF = 0: Если символ не является знаком препинания.

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

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

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

• Функция проверяет, является ли символ графическим символом (в диапазоне 21h–7Eh), но не буквенно-цифровым (A–Z, a–z, 0–9) и не пробельным символом.

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____true _db "TRUE\0"
8. ____false db "FALSE\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_____al, ','_________; Копируем сомвол ',' в регистр al
19. ________call____IsPunct_________; Вызываем процедуру IsPunct(al:',')
21. ________jnz_____@False__________; ZF=0, то прыгаем на метку @False
23. ____@True:
24. ________lea_____ax, ds:[true]___; Загружаем адрес переменной true в регистр ds:ax
25. ________jmp_____@Done___________; Выполняем безусловный переход на метку @Done
27. ____@False:
28. ________lea_____ax, ds:[false]__; Загружаем адрес переменной false в регистр ds:ax
30. ____@Done:
31. ________call____WriteString_____; Вызываем процедуру WriteString(ax)
33. ________xor_____al, al__________; Обнуляем регистр al
34. ________call____ExitProcess_____; Вызываем процедуру ExitProcess
35. ____main endp __________________; Конец процедуры main
37. code ends ______________________; Конец сегмента кода
38. end main _______________________; Конец файла. Точкой входа указывается процедура main