ХАНДЫФАР

Функция WriteFile записывает данные в файл, используя дескриптор файла.

Параметры:

  • AX: Указатель на данные, которые необходимо записать в файл.
  • BX:_Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.

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

  • Если CF = 0: AX содержит количество успешно записанных байт.
  • Если CF = 1: AX содержит код ошибки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0
  8. ____fBuffer__db "Здравствуйте, я изучаю "
  9. _____________db "язык ассемблера!\0"
  10. ____wSuccess db "Данные были успешно "
  11. _____________db "записаны в файл!\0"
  12. ____wError___db "Произошла ошибка при "
  13. _____________db "записи в файл '%s'. "
  14. _____________db "Код ошибки: %d\0"
  15. data ends
  17. code segment public
  18. ____assume _ds:data, cs:code
  19. ____include Handyfar.inc
  21. ____main proc
  22. ________call____SetDataSegment
  24. ________mov_____bl, READ_WRITE
  25. ________lea_____ax, ds:[fName]
  26. ________call____OpenFile
  28. ________mov_____bx, ax
  29. ________lea_____ax, ds:[fBuffer]
  30. ________call____WriteFile
  32. ________jnc_____NoWriteFileError
  34. ________push____ax
  35. ________lea_____ax, ds:[fName]
  36. ________push____ax
  37. ________lea_____ax, ds:[wError]
  38. ________call____PrintFormatString
  39. ________add_____sp, 4
  40. ________jmp_____Done
  42. ____NoWriteFileError:
  43. ________lea_____ax, ds:[wSuccess]
  44. ________call____WriteString
  46. ____Done:
  47. ________xor_____al, al
  48. ________call____ExitProcess
  49. ____main endp
  51. code ends
  52. end main
Функция WriteFile записывает данные в файл, используя дескриптор файла.

Параметры:

  • AX: Указатель на данные, которые необходимо записать в файл.
  • BX:_Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.

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

  • Если CF = 0: AX содержит количество успешно записанных байт.
  • Если CF = 1: AX содержит код ошибки.

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____fName____db "test.txt", 0
  8. ____fBuffer__db "Здравствуйте, я изучаю язык ассемблера!\0"
  9. ____wSuccess db "Данные были успешно записаны в файл!\0"
  10. ____wError___db "Произошла ошибка при записи в файл '%s'. Код ошибки: %d\0"
  11. data ends
  13. code segment public _______________; Начало сегмента кода
  14. ____assume _ds:data, cs:code
  15. ____include Handyfar.inc___________; Подключаем файл с функциями
  17. ____main proc _____________________; Начало процедуры main
  18. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  20. ________mov_____bl, READ_WRITE_____; 2-й: Устанавливаем атрибут чтение и запись в регистр bl
  21. ________lea_____ax, ds:[fName]_____; 1-й: Загружаем адрес строки fName в регистр ds:ax
  22. ________call____OpenFile___________; Вызываем процедуру OpenFile(ds:ax, READ_WRITE) := AX и CF
  24. ________mov_____bx, ax_____________; 2-й: Копируем файловый дескриптор(ax) в регистр bx
  25. ________lea_____ax, ds:[fBuffer]___; 1-й: Загружаем адрес буфера fBuffer в регистр ds:ax
  26. ________call____WriteFile__________; Вызываем процедуру WriteFile(ax:fBuffer, bx)
  28. ________jnc_____NoWriteFileError___; Если CF=0, то прыгаем на метку NoWriteFileError
  30. ________push____ax_________________; 3-й: Сохраняем значение регистра ax(код ошибки) в стеке
  31. ________lea_____ax, ds:[fName]_____; Загружаем адрес переменной fName в регистр ds:ax
  32. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  33. ________lea_____ax, ds:[wError]____; 1-й: Загружаем адрес строки формата wError в регистр ds:ax
  34. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:wError, fName, ax)
  35. ________add_____sp, 4______________; Выравниваем стек
  36. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  38. ____NoWriteFileError:
  39. ________lea_____ax, ds:[wSuccess]__; Загружаем адрес буфера wSuccess в регистр ds:ax
  40. ________call____WriteString________; Вызываем процедуру WriteString(ax:wSuccess)
  42. ____Done:
  43. ________xor_____al, al_____________; Обнуляем регистр al
  44. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  45. ____main endp _____________________; Конец процедуры main
  47. code ends _________________________; Конец сегмента кода
  48. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda