ХАНДЫФАР

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

Параметры:

• AX: Указатель на строку с именем каталога\папки, который нужно удалить.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "Assembly", 0
8. ____dSuccess db "Папка была успешно "
9. _____________db "удалена!\0"
10. ____dError___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____DeleteFolder
25. ________jnc_____NoDeleteFolderError
27. ________push____ax
28. ________lea_____ax, ds:[fName]
29. ________push____ax
30. ________lea_____ax, ds:[dError]
31. ________call____PrintFormatString
32. ________add_____sp, 4
33. ________jmp_____Done
35. ____NoDeleteFolderError:
36. ________lea_____ax, ds:[dSuccess]
37. ________call____WriteString
39. ____Done:
40. ________xor_____al, al
41. ________call____ExitProcess
42. ____main endp
44. code ends
45. end main

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

Параметры:

• AX: Указатель на строку с именем каталога\папки, который нужно удалить.

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

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

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "Assembly", 0
8. ____dSuccess db "Папка была успешно удалена!\0"
9. ____dError___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____DeleteFolder_________; Вызываем процедуру DeleteFolder(ax:fName) := AX и CF
22. ________jnc_____NoDeleteFolderError__; Если CF=0, то прыгаем на метку NoDeleteFolderError
24. ________push____ax___________________; 3-й: Сохраняем значение регистра ax в стеке
25. ________lea_____ax, ds:[fName]_______; Загружаем адрес переменной fName в регистр ds:ax
26. ________push____ax___________________; 2-й: Сохраняем значение регистра ax в стеке
27. ________lea_____ax, ds:[dError]______; 1-й: Загружаем адрес строки формата dError в регистр ds:ax
28. ________call____PrintFormatString____; Вызываем процедуру PrintFormatString(ax:dError, fName)
29. ________add_____sp, 4________________; Выравниваем стек
30. ________jmp_____Done_________________; Выполняем безусловный переход на метку Done
32. ____NoDeleteFolderError:
33. ________lea_____ax, ds:[dSuccess]____; Загружаем адрес строки dSuccess в регистр ds:ax
34. ________call____WriteString__________; Вызываем процедуру WriteString(ax:dSuccess)
36. ____Done:
37. ________xor_____al, al_______________; Обнуляем регистр al
38. ________call____ExitProcess__________; Вызываем процедуру ExitProcess
39. ____main endp _______________________; Конец процедуры main
41. code ends ___________________________; Конец сегмента кода
42. end main ____________________________; Конец файла. Точкой входа указывается процедура main