ХАНДЫФАР

Функция CreateFileEx создаёт файл с указанным именем и атрибутами. Функция CreateFileEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на строку с именем файла, завершающуюся нулём 0.
  2. Атрибуты создания файла. Атрибутами могут быть:

READ_ONLY: ___Файл только для чтения.
HIDDEN: ______Скрытый файл.
SYSTEM: ______Системный файл.
VOLUME_LABEL: Метка тома.
SUBDIRECTORY: Подкаталог.
ARCHIVE: _____Архивный файл.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName____db "test.txt", 0
  10. ____cSuccess db "Файл '%s' был успешно "
  11. _____________db "создан!\0"
  13. ____cError___db "Произошла ошибка при "
  14. _____________db "создании '%s'. Код "
  15. _____________db "ошибки: %d\0"
  16. data ends
  18. code segment public
  19. ____assume _ds:data, cs:code
  20. ____include Handyfar.inc
  21. ____include Handymac.inc
  23. ____main proc
  24. ________call____SetDataSegment
  26. ________push____READ_ONLY
  27. ________pushs___ds:[fName]
  28. ________call____CreateFileEx
  30. ________jnc_____@NoCreateFileError
  32. ________push____ax
  33. ________pushs___ds:[fName]
  34. ________leaax___ds:[cError]
  35. ________call____PrintFormatString
  36. ________add_____sp, 4
  37. ________jmp_____@Done
  39. ____@NoCreateFileError:
  40. ________pushs___ds:[fName]
  41. ________leaax___ds:[cSuccess]
  42. ________call____PrintFormatString
  44. ____@Done:
  45. ________push____0
  46. ________call____ExitProcessEx
  47. ____main endp
  49. code ends
  50. end main
Функция CreateFileEx создаёт файл с указанным именем и атрибутами. Функция CreateFileEx автоматически выравнивает стек на 4 байта.

Параметры:

  1. Указатель на строку с именем файла, завершающуюся нулём 0.
  2. Атрибуты создания файла. Атрибутами могут быть:

____READ_ONLY: ___Файл только для чтения.
____HIDDEN: ______Скрытый файл.
____SYSTEM: ______Системный файл.
____VOLUME_LABEL: Метка тома.
____SUBDIRECTORY: Подкаталог.
____ARCHIVE: _____Архивный файл.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____fName____db "test.txt", 0
  9. ____cSuccess db "Файл '%s' был успешно создан!\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. ________push____READ_ONLY___________; 2-й: Ложим на вершину стека атрибут READ_ONLY
  22. ________pushs___ds:[fName]__________; 1-й: Ложим на вершину стека адрес переменной fName
  23. ________call____CreateFileEx________; Вызываем процедуру CreateFileEx(fName, READ_ONLY) := AX и CF
  25. ________jnc_____@NoCreateFileError__; Если CF=0, то прыгаем на метку @NoCreateFileError
  27. ________push____ax__________________; 3-й: Ложим на вершину стека ax (код ошибки)
  28. ________pushs___ds:[fName]__________; 2-й: Ложим на вершину стека адрес переменной fName
  29. ________leaax___ds:[cError]_________; 1-й: Загружаем адрес строки формата cError в регистр ds:ax
  30. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString(ax:cError, fName, ax)
  31. ________add_____sp, 4_______________; Выравниваем стек
  32. ________jmp_____@Done_______________; Выполняем безусловный переход на метку @Done
  34. ____@NoCreateFileError:
  35. ________pushs___ds:[fName]__________; 2-й: Ложим на вершину стека адрес переменной fName
  36. ________leaax___ds:[cSuccess]_______; 1-й: Загружаем адрес строки формата cSuccess в регистр ds:ax
  37. ________call____PrintFormatString___; Вызываем процедуру PrintFormatString(ax:cSuccess, fName)
  38. ________add_____sp, 2_______________; Выравниваем стек
  40. ____@Done:
  41. ________push____0___________________; Ложим на вершину стека байтовое значение кода возврата
  42. ________call____ExitProcessEx_______; Вызываем процедуру ExitProcess(0)
  43. ____main endp
  45. code ends
  46. end main
Made on
Tilda