ХАНДЫФАР

Функция DeleteFile удаляет файл с указанным именем.

Параметры:

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

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

• Если CF = 0: Файл успешно удалён.
• Если CF = 1: AX содержит код ошибки.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "test.txt", 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____DeleteFile
25. ________jnc_____NoDeleteFileError
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. ____NoDeleteFileError:
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

Функция DeleteFile удаляет файл с указанным именем.

Параметры:

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

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

• Если CF = 0: Файл успешно удалён.
• Если CF = 1: AX содержит код ошибки.

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____fName____db "test.txt", 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____DeleteFile_________; Вызываем процедуру DeleteFile(ax:fName) := AX и CF
22. ________jnc_____NoDeleteFileError__; Если CF=0, то прыгаем на метку NoDeleteFileError
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. ____NoDeleteFileError:
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