ХАНДЫФАР

Функция FindFirstFile выполняет поиск первого файла, соответствующего указанному шаблону имени, и сохраняет его имя в предоставленный буфер.

Параметры:

  • DS:AX: Указатель на строку шаблона имени файла (например, "*.txt").
  • ES:BX: Указатель на буфер, куда будет сохранено имя найденного файла.
  • CX:___ Атрибуты файла, которые нужно учитывать при поиске (например, скрытые, системные и т.д.).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____pattern db "*.txt", 0
  8. ____fmtout__db "Нашёл файл: %s\n\0"
  9. ____fError__db "Никаких файлов найдено "
  10. ____________db "не было!\n\0"
  11. ____buffer__db 13 dup(0)
  12. data ends
  14. code segment public
  15. ____assume _ds:data, cs:code
  16. ____include Handyfar.inc
  18. ____main proc
  19. ________call____SetDataSegment
  21. ________xor_____cx, cx
  22. ________lea_____bx, es:[buffer]
  23. ________lea_____ax, ds:[pattern]
  24. ________call____FindFirstFile
  26. ________jnc_____FileWasFound
  28. ________lea_____ax, ds:[fError]
  29. ________call____WriteString
  30. ________jmp_____Done
  32. ____FileWasFound:
  33. ________lea_____ax, ds:[buffer]
  34. ________push____ax
  35. ________lea_____ax, ds:[fmtout]
  36. ________call____PrintFormatString_
  37. ________add_____sp, 2
  39. ____Done:
  40. ________xor_____al, al
  41. ________call____ExitProcess
  42. ____main endp
  44. code ends
  45. end main
Функция FindFirstFile выполняет поиск первого файла, соответствующего указанному шаблону имени, и сохраняет его имя в предоставленный буфер.

Параметры:

  • DS:AX: Указатель на строку шаблона имени файла (например, "*.txt").
  • ES:BX: Указатель на буфер, куда будет сохранено имя найденного файла.
  • CX:___ Атрибуты файла, которые нужно учитывать при поиске (например, скрытые, системные и т.д.).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .model small
  4. .stack 100h
  6. data segment public
  7. ____pattern db "*.txt", 0
  8. ____fmtout__db "Нашёл файл: %s\n\0"
  9. ____fError__db "Никаких файлов найдено не было!\n\0"
  10. ____buffer__db 13 dup(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. ________xor_____cx, cx_____________; Устанавливаем атрибут 0
  21. ________lea_____bx, es:[buffer]____; Загружаем адрес строки buffer в регистр es:bx
  22. ________lea_____ax, ds:[pattern]___; Загружаем адрес строки pattern в регистр ds:ax
  23. ________call____FindFirstFile______; Вызываем процедуру FindFirstFile(ds:ax, es:bx, 0) := AX и CF
  25. ________jnc_____FileWasFound_______; Если CF=0, то прыгаем на метку FileWasFound
  27. ________lea_____ax, ds:[fError]____; Загружаем адрес строки fError в регистр ds:ax
  28. ________call____WriteString________; Вызываем процедуру WriteString(ax:fError)
  29. ________jmp_____Done_______________; Выполняем безусловный переход на метку Done
  31. ____FileWasFound:
  32. ________lea_____ax, ds:[buffer]____; Загружаем адрес переменной buffer в регистр ds:ax
  33. ________push____ax_________________; 2-й: Сохраняем значение регистра ax в стеке
  34. ________lea_____ax, ds:[fmtout]____; 1-й: Загружаем строки формата fmtout в регистр ds:ax
  35. ________call____PrintFormatString__; Вызываем процедуру PrintFormatString(ax:fmtout, buffer)
  36. ________add_____sp, 2______________; Выравниваем стек
  38. ____Done:
  39. ________xor_____al, al_____________; Обнуляем регистр al
  40. ________call____ExitProcess________; Вызываем процедуру ExitProcess
  41. ____main endp _____________________; Конец процедуры main
  43. code ends _________________________; Конец сегмента кода
  44. end main __________________________; Конец файла. Точкой входа указывается процедура main
Made on
Tilda