ХАНДЫФАР

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

Параметры:

  1. Указатель на буфер, завершающиюся нулём 0, в который будут записаны считанные данные.
  2. Дескриптор файла, полученный после вызова функций CreateFile/Ex или OpenFile/Ex.
  3. Количество байт для считывания.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____strout _db "Введите имя файла: \0"
  9. ____fName __db 13 dup(0)
  10. ____fBuffer db 255 dup(0)
  12. ____oError _db "Произошла ошибка при "
  13. ____________db "открытии '%s'. Код "
  14. ____________db "ошибки: %d\0"
  16. ____rError__db "Произошла ошибка при "
  17. ____________db "чтении из '%s'. Код "
  18. ____________db "ошибки: %d\0"
  19. data ends
  21. code segment public
  22. ____assume _ds:data, cs:code
  23. ____include Handyfar.inc
  24. ____include Handymac.inc
  26. ____main proc
  27. ________call____SetDataSegment
  29. ________pushs___ds:[strout]
  30. ________call____WriteStringEx
  32. ________pushs___ds:[fName]
  33. ________call____ReadStringEx
  35. ________push____READ_WRITE
  36. ________pushs___ds:[fName]
  37. ________call____OpenFileEx
  39. ________jnc ____@NoOpenFileError
  41. ________push____ax
  42. ________pushs___ds:[fName]
  43. ________leaax___ds:[oError]
  44. ________call____PrintFormatString
  45. ________add_____sp, 4
  46. ________jmp_____@Done
  48. ____@NoOpenFileError:
  49. ________push____0FFh
  50. ________push____ax
  51. ________pushs___ds:[fBuffer]
  52. ________call____ReadFileEx
  54. ________jnc_____@NoReadFileError
  56. ________push____ax
  57. ________pushs___ds:[fName]
  58. ________leaax___ds:[rError]
  59. ________call____PrintFormatString
  60. ________add_____sp, 4
  61. ________jmp_____@Done
  63. ____@NoReadFileError:
  64. ________pushs___ds:[fBuffer]
  65. ________call____WriteStringEx
  67. ____@Done:
  68. ________push____0
  69. ________call____ExitProcessEx
  70. ____main endp
  72. code ends
  73. end main
Функция ReadFileEx считывает данные из файла. Функция ReadFileEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на буфер, завершающиюся нулём 0, в который будут записаны считанные данные.
  2. Дескриптор файла, полученный после вызова функций CreateFile/Ex или OpenFile/Ex.
  3. Количество байт для считывания.

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____strout _db "Введите имя файла: \0"
  9. ____fName __db 13 dup(0)
  10. ____fBuffer db 255 dup(0)
  11. ____oError _db "Произошла ошибка при открытии '%s'. Код ошибки: %d\0"
  12. ____rError__db "Произошла ошибка при чтении из '%s'. Код ошибки: %d\0"
  13. data ends
  15. code segment public
  16. ____assume _ds:data, cs:code
  17. ____include Handyfar.inc___________; Подключаем файл с функциями
  18. ____include Handymac.inc___________; Подключаем файл с макросами
  20. ____main proc
  21. ________call____SetDataSegment_____; Вызываем процедуру SetDataSegment
  23. ________pushs___ds:[strout]________; Ложим на вершину стека адрес переменной strout
  24. ________call____WriteStringEx______; Вызываем процедуру WriteStringEx(strout)
  26. ________pushs___ds:[fName]_________; Ложим на вершину стека адрес переменной fName
  27. ________call____ReadStringEx_______; Вызываем процедуру ReadStringEx(fName)
  29. ________push____READ_WRITE_________; 2-й: Ложим на вершину стека атрибут READ_WRITE
  30. ________pushs___ds:[fName]_________; 1-й: Ложим на вершину стека адрес переменной fName
  31. ________call____OpenFileEx_________; Вызываем процедуру OpenFileEx(fName, READ_WRITE) := AX и CF
  33. ________jnc ____@NoOpenFileError___; Если CF=0, то прыгаем на метку @NoOpenFileError
  35. ________push____ax_________________; 3-й: Ложим на вершину стека ax (код ошибки)
  36. ________pushs___ds:[fName]_________; 2-й: Ложим на вершину стека адрес переменной fName
  37. ________leaax___ds:[oError]________; 1-й: Загружаем адрес строки формата oError в регистр ds:ax
  38. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:oError, fName, ax)
  39. ________add_____sp, 4______________; Выравниваем стек
  40. ________jmp_____@Done______________; Выполняем безусловный переход на метку @Done
  42. ____@NoOpenFileError:
  43. ________push____0FFh_______________; 3-й: Ложим на вершину стека число байт для считывания
  44. ________push____ax_________________; 2-й: Ложим на вершину стека файловый дескриптор
  45. ________pushs___ds:[fBuffer]_______; 1-й: Ложим на вершину стека адрес переменной fName
  46. ________call____ReadFileEx_________; Вызываем процедуру ReadFileEx(fBuffer, fHandle, 255) := AX и CF
  48. ________jnc_____@NoReadFileError___; Если CF=0, то прыгаем на метку @NoReadFileError
  50. ________push____ax_________________; 3-й: Ложим на вершину стека ax (код ошибки)
  51. ________pushs___ds:[fName]_________; 2-й: Ложим на вершину стека адрес переменной fName
  52. ________leaax___ds:[rError]________; 1-й: Загружаем адрес строки формата rError в регистр ds:ax
  53. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:rError, fName, ax)
  54. ________add_____sp, 4______________; Выравниваем стек
  55. ________jmp_____@Done______________; Выполняем безусловный переход на метку @Done
  57. ____@NoReadFileError:
  58. ________pushs___ds:[fBuffer]_______; Ложим на вершину стека адрес переменной fBuffer
  59. ________call____WriteStringEx______; Вызываем процедуру WriteStringEx(fBuffer)
  61. ____@Done:
  62. ________push____0__________________; Ложим на вершину стека байтовое значение кода возврата
  63. ________call____ExitProcessEx______; Вызываем процедуру ExitProcess(0)
  64. ____main endp
  66. code ends
  67. end main
Made on
Tilda