ХАНДЫФАР

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

Параметры:

  • AX: Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.

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

  • Если CF = 0: Дескриптор файла успешно закрыт.
  • Если 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 255 dup(0)
  9. ____rError__db "Произошла ошибка при "
  10. ____________db "чтении из файла '%s'. "
  11. ____________db "Код ошибки: %d\0"
  12. ____fHandle_dw ?
  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
  25. ________mov_____fHandle, ax
  27. ________mov_____cx, 0FFh
  28. ________mov_____bx, fHandle
  29. ________lea_____ax, ds:[fBuffer]
  30. ________call____ReadFile
  32. ________jnc_____NoReadFileError
  34. ________push____ax
  35. ________lea_____ax, ds:[fName]
  36. ________push____ax
  37. ________lea_____ax, ds:[rError]
  38. ________call____PrintFormatString
  39. ________add_____sp, 4
  40. ________jmp_____Done
  42. ____NoReadFileError:
  43. ________mov_____ax, fHandle
  44. ________call____CloseHandle
  46. ________lea_____ax, ds:[fBuffer]
  47. ________call____WriteString
  49. ____Done:
  50. ________xor_____al, al
  51. ________call____ExitProcess
  52. ____main endp
  54. code ends
  55. end main
Функция CloseHandle закрывает файловый дескриптор.

Параметры:

  • AX: Дескриптор файла, полученный после вызова функций CreateFile или OpenFile.

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

  • Если CF = 0: Дескриптор файла успешно закрыт.
  • Если 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 255 dup(0)
  9. ____rError__db "Произошла ошибка при чтении из файла '%s'. Код ошибки: %d\0"
  10. ____fHandle_dw ?
  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
  23. ________mov_____fHandle, ax________; Сохраняем файловый дескриптор в переменной fHandle
  25. ________mov_____cx, 0FFh___________; 3-й: Копируем максимальное число байт для считывания в регистр cx
  26. ________mov_____bx, fHandle________; 2-й: Копируем файловый дескриптор fHandle в регистр bx
  27. ________lea_____ax, ds:[fBuffer]___; 1-й: Загружаем адрес буфера fBuffer в регистр ds:ax
  28. ________call____ReadFile___________; Вызываем процедуру ReadFile(ax:fBuffer, bx:fHandle, cx:0FFh)
  30. ________jnc_____NoReadFileError____; Если CF=0, то прыгаем на метку NoReadFileError
  32. ________push____ax_________________; 3-й: Сохраняем значение регистра ax(код ошибки) в стеке
  33. ________lea_____ax, ds:[fName]_____; Загружаем адрес переменной fName в регистр ds:ax
  34. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  35. ________lea_____ax, ds:[rError]____; 1-й: Загружаем адрес строки формата rError в регистр ds:ax
  36. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:rError, fName, ax)
  37. ________add_____sp, 4______________; Выравниваем стек
  38. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  40. ____NoReadFileError:
  41. ________mov_____ax, fHandle________; Копируем файловый дескриптор fHandle в регистр ax
  42. ________call____CloseHandle________; Вызываем процедуру CloseHandle(ax:fHandle)
  44. ________lea_____ax, ds:[fBuffer]___; Загружаем адрес буфера fBuffer в регистр ds:ax
  45. ________call____WriteString________; Вызываем процедуру WriteString(ax:fBuffer)
  47. ____Done:
  48. ________xor_____al, al_____________; Обнуляем регистр al
  49. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  50. ____main endp _____________________; Конец процедуры main
  52. code ends _________________________; Конец сегмента кода
  53. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda