ХАНДЫФАР

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

Параметры:

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

READ_ONLY: _Открыть файл только для чтения.
WRITE_ONLY: Открыть файл только для записи.
READ_WRITE: Открыть файл для чтения и записи.

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

  • Если 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. ____oSuccess db "Файл '%s' был успешно "
  11. _____________db "открыт!\0"
  13. ____oError___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_WRITE
  27. ________pushs___ds:[fName]
  28. ________call____OpenFileEx
  30. ________jnc_____@NoOpenFileError
  32. ________push____ax
  33. ________pushs___ds:[fName]
  34. ________leaax___ds:[oError]
  35. ________call____PrintFormatString
  36. ________add_____sp, 4
  37. ________jmp_____@Done
  39. ____@NoOpenFileError:
  40. ________pushs___ds:[fName]
  41. ________leaax___ds:[oSuccess]
  42. ________call____PrintFormatString
  43. ________add_____sp, 2
  45. ____@Done:
  46. ________push____0
  47. ________call____ExitProcessEx
  48. ____main endp
  50. code ends
  51. end main
Функция OpenFileEx открывает доступ к файлу с указанным именем и атрибутами. Функция OpenFileEx автоматически выравнивает стек на 4 байта.

Параметры:

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

____READ_ONLY: _Открыть файл только для чтения.
____WRITE_ONLY: Открыть файл только для записи.
____READ_WRITE: Открыть файл для чтения и записи.

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

  • Если 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. ____oSuccess db "Файл '%s' был успешно открыт!\0"
  10. ____oError___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_WRITE_________; 2-й: Ложим на вершину стека атрибут READ_WRITE
  22. ________pushs___ds:[fName]_________; 1-й: Ложим на вершину стека адрес переменной fName
  23. ________call____OpenFileEx_________; Вызываем процедуру OpenFileEx(fName, READ_WRITE) := AX и CF
  25. ________jnc_____@NoOpenFileError___; Если CF=0, то прыгаем на метку @NoOpenFileError
  27. ________push____ax_________________; 3-й: Ложим на вершину стека ax (код ошибки)
  28. ________pushs___ds:[fName]_________; 2-й: Ложим на вершину стека адрес переменной fName
  29. ________leaax___ds:[oError]________; 1-й: Загружаем адрес строки формата oError в регистр ds:ax
  30. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:oError, fName, ax)
  31. ________add_____sp, 4______________; Выравниваем стек
  32. ________jmp_____@Done______________; Выполняем безусловный переход на метку @Done
  34. ____@NoOpenFileError:
  35. ________pushs___ds:[fName]_________; 2-й: Ложим на вершину стека адрес переменной fName
  36. ________leaax___ds:[oSuccess]______; 1-й: Загружаем адрес строки формата oSuccess в регистр ds:ax
  37. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:oSuccess, 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