ХАНДЫФАР

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

Параметры:

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

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

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

  • Если 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. ____oSuccess db "Файл был успешно "
  9. _____________db "открыт!\0"
  10. ____oError___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_____bl, READ_WRITE
  23. ________lea_____ax, ds:[fName]
  24. ________call____OpenFile
  26. ________jnc_____NoOpenFileError
  28. ________push____ax
  29. ________lea_____ax, ds:[fName]
  30. ________push____ax
  31. ________lea_____ax, ds:[oError]
  32. ________call____PrintFormatString
  33. ________add_____sp, 4
  34. ________jmp_____Done
  36. ____NoOpenFileError:
  37. ________lea_____ax, ds:[oSuccess]
  38. ________call____WriteString
  40. ____Done:
  41. ________xor_____al, al
  42. ________call____ExitProcess
  43. ____main endp
  45. code ends
  46. end main
Функция OpenFile открывает доступ к файлу с указанным именем и атрибутами.

Параметры:

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

______READ_ONLY: _Открыть файл только для чтения.
______WRITE_ONLY: Открыть файл только для записи.
______READ_WRITE: Открыть файл для чтения и записи.

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

  • Если 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. ____oSuccess db "Файл был успешно открыт!\0"
  9. ____oError___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_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  20. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  21. ________call____OpenFile___________; Вызываем процедуру OpenFile(ds:ax, READ_WRITE) := AX и CF
  23. ________jnc_____NoOpenFileError____; Если CF=0, то прыгаем на метку NoOpenFileError
  25. ________push____ax_________________; 3-й: Сохраняем значение регистра ax(код ошибки) в стеке
  26. ________lea_____ax, ds:[fName]_____; Загружаем адрес переменной fName в регистр ds:ax
  27. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  28. ________lea_____ax, ds:[oError]____; 1-й: Загружаем адрес строки формата oError в регистр ds:ax
  29. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:oError, fName, ax)
  30. ________add_____sp, 4______________; Выравниваем стек
  31. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  33. ____NoOpenFileError:
  34. ________lea_____ax, ds:[oSuccess]__; Загружаем адрес переменной oSuccess в регистр ds:ax
  35. ________call____WriteString________; Вызываем процедуру WriteString(ax:oSuccess)
  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