ХАНДЫФАР

Функция MoveFile перемещает файл из исходного пути в указанное место назначения.

Параметры:

• DS:AX: Указатель на строку с именем файла, завершающуюся 0.
• ES:BX: Указатель на строку с путём назначения, завершающуюся 0.

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

• Если CF = 0: Успешное перемещение.
• Если CF = 1: Ошибка (файл не найден, путь недоступен и т. д.).

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____path__db "folder\", 0
8. ____fname db "test.txt", 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. ________lea_____bx, es:[path]
19. ________lea_____ax, ds:[fname]
20. ________call____MoveFile
22. ________xor_____al, al
23. ________call____ExitProcess
24. ____main endp
26. code ends
27. end main

Функция MoveFile перемещает файл из исходного пути в указанное место назначения.

Параметры:

• DS:AX: Указатель на строку с именем файла, завершающуюся 0.
• ES:BX: Указатель на строку с путём назначения, завершающуюся 0.

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

• Если CF = 0: Успешное перемещение.
• Если CF = 1: Ошибка (файл не найден, путь недоступен и т. д.).

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

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

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

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

1. title Автор: Довгополов Евгений Сергеевич
3. .model small
4. .stack 100h
6. data segment public
7. ____path__db "folder\", 0
8. ____fname db "test.txt", 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:[path]___; Загружаем адрес строки path в регистр es:bx
19. ________lea_____ax, ds:[fname]__; Загружаем адрес строки fname в регистр ds:ax
20. ________call____MoveFile________; Вызываем процедуру MoveFile(ax:fname, bx:path) := CF
22. ________xor_____al, al__________; Обнуляем регистр al
23. ________call____ExitProcess_____; Вызываем процедуру ExitProcess
24. ____main endp __________________; Конец процедуры main
26. code ends ______________________; Конец сегмента кода
27. end main _______________________; Конец файла. Точкой входа указывается процедура main