ХАНДЫФАР

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

Параметры:

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

______READ_ONLY: ___Файл только для чтения.
______HIDDEN:___ ___Скрытый файл.
______SYSTEM: ______Системный файл.
______VOLUME_LABEL: Метка тома.
______SUBDIRECTORY: Подкаталог.
______ARCHIVE: _____Архивный файл.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0
  8. ____cSuccess_db "Файл был успешно "
  9. _____________db "создан!\0"
  10. ____cError___db "Произошла ошибка при "
  11. _____________db "создании '%s'. Код "
  12. _____________db "ошибки: %d\0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc
  19. ____main proc
  20. ________call____SetDataSegment
  22. ________mov_____bx, READ_ONLY
  23. ________lea_____ax, ds:[fName]
  24. ________call____CreateFile
  26. ________jnc_____NoCreateFileError
  28. ________push____ax
  29. ________lea_____ax, ds:[fName]
  30. ________push____ax
  31. ________lea_____ax, ds:[cError]
  32. ________call____PrintFormatString
  33. ________add_____sp, 4
  34. ________jmp_____Done
  36. ____NoCreateFileError:
  37. ________lea_____ax, ds:[cSuccess]
  38. ________call____WriteString
  40. ____Done:
  41. ________xor_____al, al
  42. ________call____ExitProcess
  43. ____main endp
  45. code ends
  46. end main
Функция CreateFile создаёт файл с указанным именем и атрибутами.

Параметры:

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

______READ_ONLY: ___Файл только для чтения.
______HIDDEN:___ ___Скрытый файл.
______SYSTEM: ______Системный файл.
______VOLUME_LABEL: Метка тома.
______SUBDIRECTORY: Подкаталог.
______ARCHIVE: _____Архивный файл.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0
  8. ____cSuccess_db "Файл был успешно создан!\0"
  9. ____cError___db "Произошла ошибка при создании '%s'. Код ошибки: %d\0"
  10. data ends
  12. code segment public _______________; Начало сегмента кода
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc___________; Подключаем файл с функциями
  16. ____main proc _____________________; Начало процедуры main
  17. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  19. ________mov_____bx, READ_ONLY______; 2-й: Устанавливаем атрибут только для чтения в регистр bx
  20. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  21. ________call____CreateFile_________; Вызываем процедуру CreateFile(ds:ax, READ_ONLY) := AX и CF
  23. ________jnc_____NoCreateFileError__; Если CF=0, то прыгаем на метку NoCreateFileError
  25. ________push____ax_________________; 3-й: Сохраняем значение регистра ax(код ошибки) в стеке
  26. ________lea_____ax, ds:[fName]_____; Загружаем адрес переменной fName в регистр ds:ax
  27. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  28. ________lea_____ax, ds:[cError]____; 1-й: Загружаем адрес строки формата cError в регистр ds:ax
  29. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:cError, fName, ax)
  30. ________add_____sp, 4______________; Выравниваем стек
  31. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  33. ____NoCreateFileError:
  34. ________lea_____ax, ds:[cSuccess]__; Загружаем адрес переменной cSuccess в регистр ds:ax
  35. ________call____WriteString________; Вызываем процедуру WriteString(ax:cSuccess)
  37. ____Done:
  38. ________xor_____al, al_____________; Обнуляем регистр al
  39. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  40. ____main endp _____________________; Конец процедуры main
  42. code ends _________________________; Конец сегмента кода
  43. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda