ХАНДЫФАР

Функция CreateFolderEx создаёт каталог\папку с указанным именем. Функция CreateFolderEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Указатель на строку с именем каталога\папки, завершающуюся нулём 0.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName____db "Assembly", 0
  9. ____cSuccess db "Папка была успешно "
  10. _____________db "создана!\0"
  11. ____cError___db "Произошла ошибка при "
  12. _____________db "создании '%s'. Код "
  13. _____________db "ошибки: %d\0"
  14. data ends
  16. code segment public
  17. ____assume _ds:data, cs:code
  18. ____include Handyfar.inc
  19. ____include Handymac.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________pushs___ds:[fName]
  25. ________call____CreateFolderEx
  27. ________jnc_____@NoCreateFolderError
  29. ________push____ax
  30. ________pushs___ds:[fName]
  31. ________leaax___ds:[cError]
  32. ________call____PrintFormatString
  33. ________add_____sp, 4
  34. ________jmp_____@Done
  36. ____@NoCreateFolderError:
  37. ________leaax___ds:[cSuccess]
  38. ________call____WriteStringEx
  40. ____@Done:
  41. ________push____0
  42. ________call____ExitProcessEx
  43. ____main endp
  45. code ends
  46. end main
Функция CreateFolderEx создаёт каталог\папку с указанным именем. Функция CreateFolderEx автоматически выравнивает стек на 2 байта.

Параметры:

  1. Указатель на строку с именем каталога\папки, завершающуюся нулём 0.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName____db "Assembly", 0
  9. ____cSuccess db "Папка была успешно создана!\0"
  10. ____cError___db "Произошла ошибка при создании '%s'. Код ошибки: %d\0"
  11. data ends
  13. code segment public
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc______________; Подключаем файл с функциями
  16. ____include Handymac.inc______________; Подключаем файл с макросами
  18. ____main proc
  19. ________call____SetDataSegment________; Вызываем процедуру SetDataSegment
  21. ________pushs___ds:[fName]____________; Ложим на вершину стека адрес переменной fName
  22. ________call____CreateFolderEx________; Вызываем процедуру CreateFolderEx(fName) := AX и CF
  24. ________jnc_____@NoCreateFolderError__; Если CF=0, то прыгаем на метку @NoCreateFolderError
  26. ________push____ax____________________; 3-й: Ложим на вершину стека ax (код ошибки)
  27. ________pushs___ds:[fName]____________; 2-й: Ложим на вершину стека адрес переменной fName
  28. ________leaax___ds:[cError]___________; 1-й: Загружаем адрес строки формата cError в регистр ds:ax
  29. ________call____PrintFormatString_____; Вызываем процедуру PrintFormatString(ax:cError, fName, ax)
  30. ________add_____sp, 4_________________; Выравниваем стек
  31. ________jmp_____@Done_________________; Выполняем безусловный переход на метку @Done
  33. ____@NoCreateFolderError:
  34. ________leaax___ds:[cSuccess]_________; Загружаем адрес строки формата cSuccess в регистр ds:ax
  35. ________call____WriteStringEx_________; Вызываем процедуру WriteStringEx(cSuccess)
  37. ____@Done:
  38. ________push____0_____________________; Ложим на вершину стека байтовое значение кода возврата
  39. ________call____ExitProcessEx_________; Вызываем процедуру ExitProcess(0)
  40. ____main endp
  42. code ends
  43. end main
Made on
Tilda