ХАНДЫФАР

Функция CreateFolder создаёт каталог\папку с указанным именем.

Параметры:

• AX: Указатель на строку с именем каталога\папки, завершающуюся 0.

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

• Если CF = 0: AX Каталог\папка успешно создан(а).
• Если CF = 1: AX содержит код ошибки.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "Assembly", 0
8. ____cSuccess_db "Папка была успешно "
9. _____________db "создана!\0"
10. ____cError___db "Произошла ошибка при "
11. _____________db "создании '%s'. Код "
12. _____________db "ошибки: %d\0"
13. data ends
15. code segment public
16. ____assume _ds:data, cs:code
17. ____include Handyfar.inc
19. ____main proc
20. ________call____SetDataSegment
22. ________lea_____ax, ds:[fName]
23. ________call————CreateFolder
25. ________jnc—————NoCreateFolderError
27. ________push————ax
28. ________lea_____ax, ds:[fName]
29. ________push————ax
30. ________lea_____ax, ds:[cError]
31. ________call————PrintFormatString
32. ________add—————sp, 4
33. ________jmp—————Done
35. ————NoCreateFolderError:
36. ________lea_____ax, ds:[cSuccess]
37. ________call————WriteString
39. ————Done:
40. ________xor_____al, al
41. ________call____ExitProcess
42. ____main endp
44. code ends
45. end main

Функция CreateFolder создаёт каталог\папку с указанным именем.

Параметры:

• AX: Указатель на строку с именем каталога\папки, завершающуюся 0.

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

• Если CF = 0: AX Каталог\папка успешно создан(а).
• Если CF = 1: AX содержит код ошибки.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "Assembly", 0
8. ____cSuccess_db "Папка была успешно создана!\0"
9. ____cError___db "Произошла ошибка при создании '%s'. Код ошибки: %d\0"
10. data ends
12. code segment public _________________; Начало сегмента кода
13. ____assume _ds:data, cs:code
14. ____include Handyfar.inc_____________; Подключаем файл с функциями
16. ____main proc _______________________; Начало процедуры main
17. ________call____SetDataSegment_______; Вызываем процедуру SetDataSegment
19. ________lea_____ax, ds:[fName]_______; Загружаем адрес строки fName в регистр ds:ax
20. ________call————CreateFolder_________; Вызываем процедуру CreateFolder(ax:fName) := AX и CF
22. ________jnc—————NoCreateFolderError__; Если CF=0, то прыгаем на метку NoCreateFolderError
24. ________push————ax___________________; 3-й: Сохраняем значение регистра ax в стеке
25. ________lea_____ax, ds:[fName]_______; Загружаем адрес переменной fName в регистр ds:ax
26. ________push————ax___________________; 2-й: Сохраняем значение регистра ax в стеке
27. ________lea_____ax, ds:[cError]______; 1-й: Загружаем строки формата cError в регистр ds:ax
28. ________call————PrintFormatString____; Вызываем процедуру PrintFormatString(ax:cError, fName)
29. ________add—————sp, 4________________; Выравниваем стек
30. ________jmp—————Done_________________; Выполняем безусловный переход на метку Done
32. ————NoCreateFolderError:
33. ________lea_____ax, ds:[cSuccess]____; Загружаем адрес строки cSuccess в регистр ds:ax
34. ________call————WriteString__________; Вызываем процедуру WriteString(ax:cSuccess)
36. ————Done:
37. ________xor_____al, al_______________; Обнуляем регистр al
38. ________call____ExitProcess__________; Вызываем процедуру ExitProcess
39. ____main endp _______________________; Конец процедуры main
41. code ends ___________________________; Конец сегмента кода
42. end main ____________________________; Конец файла. Точкой входа указывается процедура main