ХАНДЫФАР

Функция RenameFolder переименовывает каталог\папку.

Параметры:

  • 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 "Assembly", 0
  8. ____fNewName db "Handyfar", 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____RenameFolder
  27. ________jnc_____NoRenameFolderError
  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. ____NoRenameFolderError:
  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
Функция RenameFolder переименовывает каталог\папку.

Параметры:

  • 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 "Assembly", 0
  8. ____fNewName db "Handyfar", 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____RenameFolder_________; Вызываем процедуру RenameFolder(ds:ax, es:bx) := AX и CF
  24. ________jnc_____NoRenameFolderError__; Если CF=0, то прыгаем на метку NoRenameFolderError
  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. ____NoRenameFolderError:
  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