ХАНДЫФАР

Функция RenameFile переименовывает файл.

Параметры:

  • DS:AX: Указатель на строку с текущим именем файла.
  • ES:BX: Указатель на строку с новым именем файла.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fOldName db "test.txt", 0
  8. ____fNewName db "main.txt", 0
  9. ____rSuccess_db "Файл был успешно "
  10. _____________db "переименован в '%s'.\0"
  11. ____rError___db "Произошла ошибка при "
  12. _____________db "переименовании '%s' в "
  13. _____________db "'%s'. Код ошибки: %d\0"
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  20. ____main proc
  21. ________call____SetDataSegment
  23. ________lea_____bx, es:[fNewName]
  24. ________lea_____ax, ds:[fOldName]
  25. ________call____RenameFile
  27. ________jnc_____NoRenameFileError
  29. ________push____ax
  30. ________lea_____ax, ds:[fNewName]
  31. ________push____ax
  32. ________lea_____ax, ds:[fOldName]
  33. ________push____ax
  34. ________lea_____ax, ds:[rError]
  35. ________call____PrintFormatString
  36. ________add_____sp, 6
  37. ________jmp_____Done
  39. ____NoRenameFileError:
  40. ________lea_____ax, ds:[fNewName]
  41. ________push____ax
  42. ________lea_____ax, ds:[rSuccess]
  43. ________call____PrintFormatString
  44. ________add_____sp, 2
  46. ____Done:
  47. ________xor_____al, al
  48. ________call____ExitProcess
  49. ____main endp
  51. code ends
  52. end main
Функция RenameFile переименовывает файл.

Параметры:

  • DS:AX: Указатель на строку с текущим именем файла.
  • ES:BX: Указатель на строку с новым именем файла.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fOldName db "test.txt", 0
  8. ____fNewName db "main.txt", 0
  9. ____rSuccess db "Файл был успешно переименован в '%s'.\0"
  10. ____rError___db "Произошла ошибка при переименовании '%s' в '%s'. Код ошибки: %d\0"
  11. data ends
  13. code segment public _______________; Начало сегмента кода
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc___________; Подключаем файл с функциями
  17. ____main proc _____________________; Начало процедуры main
  18. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  20. ________lea_____bx, es:[fNewName]__; 2-й: Загружаем адрес строки fNewName в регистр es:bx
  21. ________lea_____ax, ds:[fOldName]__; 1-й: Загружаем адрес строки fOldName в регистр ds:ax
  22. ________call____RenameFile_________; Вызываем процедуру RenameFile(ds:ax, es:bx) := AX и CF
  24. ________jnc_____NoRenameFileError__; Если CF=0, то прыгаем на метку NoRenameFileError
  26. ________push____ax_________________; 4-й: Сохраняем значение регистра ax(код ошибки) в стеке
  27. ________lea_____ax, ds:[fNewName]__; Загружаем адрес переменной fNewName в регистр ds:ax
  28. ________push____ax_________________; 3-й: Сохраняем значение регистра ax в стеке
  29. ________lea_____ax, ds:[fOldName]__; Загружаем адрес переменной fOldName в регистр ds:ax
  30. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  31. ________lea_____ax, ds:[rError]____; 1-й: Загружаем строки формата rError в регистр ds:ax
  32. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:rError, ...)
  33. ________add_____sp, 6______________; Выравниваем стек
  34. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  36. ____NoRenameFileError:
  37. ________lea_____ax, ds:[fNewName]__; Загружаем адрес переменной fNewName в регистр ds:ax
  38. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  39. ________lea_____ax, ds:[rSuccess]__; 1-й: Загружаем адрес строки формата rSuccess в регистр ds:ax
  40. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:rSuccess, fNewName)
  41. ________add_____sp, 2______________; Выравниваем стек
  43. ____Done:
  44. ________xor_____al, al_____________; Обнуляем регистр al
  45. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  46. ____main endp _____________________; Конец процедуры main
  48. code ends _________________________; Конец сегмента кода
  49. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda