ХАНДЫФАР

Функция FindAllFilesEx выполняет поиск всех файлов, соответствующего указанному шаблону имени, и сохраняет его имя в предоставленный буфер. Буфер должен быть достаточно большим, чтобы вместить все имена найденных файлов. Разделителем имён в буфере является 7Fh. При выводе имени файла из буфера необходимо проверять символ на 7Fh. Функция FindAllFilesEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку шаблона имени файла (например, "*.txt").
  2. Указатель на буфер, куда будет сохранено имя найденного файла.
  3. Атрибуты файла, которые нужно учитывать при поиске (например, скрытые, системные и т.д.).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____pattern db "*.obj", 0
  9. ____buffer__db 128 dup(0)
  10. data ends
  12. code segment public
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc
  15. ____include Handymac.inc
  17. ____main proc
  18. ________call____SetDataSegment
  20. ________push____0
  21. ________pushs___es:[buffer]
  22. ________pushs___ds:[pattern]
  23. ________call____FindAllFilesEx
  25. ________lea_____si, ds:[buffer]
  27. ____PrintFilesLoop:
  28. ________lodsb
  30. ________test____al, al
  31. ________jz______Done
  33. ________cmp_____al, 7Fh
  34. ________je______NewLine
  36. ________call____PutChar
  37. ________jmp_____PrintFilesLoop
  39. ____NewLine:
  40. ________call____PrintNewLine
  41. ________jmp_____PrintFilesLoop
  43. ____Done:
  44. ________push____0
  45. ________call____ExitProcessEx
  46. ____main endp
  48. code ends
  49. end main
Функция FindAllFilesEx выполняет поиск всех файлов, соответствующего указанному шаблону имени, и сохраняет его имя в предоставленный буфер. Буфер должен быть достаточно большим, чтобы вместить все имена найденных файлов. Разделителем имён в буфере является 7Fh. При выводе имени файла из буфера необходимо проверять символ на 7Fh. Функция FindAllFilesEx автоматически выравнивает стек на 6 байт.

Параметры:

  1. Указатель на строку шаблона имени файла (например, "*.txt").
  2. Указатель на буфер, куда будет сохранено имя найденного файла.
  3. Атрибуты файла, которые нужно учитывать при поиске (например, скрытые, системные и т.д.).

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

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

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

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

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

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

  1. title Автор: Довгополов Евгений Сергеевич
  3. .286C
  4. .model small
  5. .stack 100h
  7. data segment public
  8. ____pattern db "*.obj", 0
  9. ____buffer__db 128 dup(0)
  10. data ends
  12. code segment public
  13. ____assume _ds:data, cs:code
  14. ____include Handyfar.inc_________; Подключаем файл с функциями
  15. ____include Handymac.inc_________; Подключаем файл с макросами
  17. ____main proc
  18. ________call____SetDataSegment___; Вызываем процедуру SetDataSegment
  20. ________push____0________________; 3-й: Ложим на вершину стека аттрибуты
  21. ________pushs___es:[buffer]______; 2-й: Ложим на вершину стека адрес buffer
  22. ________pushs___ds:[pattern]_____; 1-й: Ложим на вершину стека адрес pattern
  23. ________call____FindAllFilesEx___; Вызываем процедуру FindAllFilesEx(pattern, buffer, 0) := AX и CF
  25. ________lea_____si, ds:[buffer]__; Загружаем адрес переменной buffer в регистр источник ds:si
  27. ____PrintFilesLoop:
  28. ________lodsb____________________; Загружаем байт по адресу ds:si в регистр al
  30. ________test____al, al___________; Проверяем al на 0
  31. ________jz______Done_____________; Если ZF=1, то прыгаем на метку Done
  33. ________cmp_____al, 7Fh__________; Проверяем al на 7Fh
  34. ________je______NewLine__________; Если ZF=1, то прыгаем на метку NewLine
  36. ________call____PutChar__________; Вызываем процедуру PrintChar(al)
  37. ________jmp_____PrintFilesLoop___; Выполняем цикл пока ZF не равен 0 или AL не равен 7F
  39. ____NewLine:
  40. ________call____PrintNewLine_____; Вызываем процедуру PrintNewLine
  41. ________jmp_____PrintFilesLoop___; Выполняем безусловный переход на метку PrintFilesLoop
  43. ____Done:
  44. ________push____0________________; Ложим на вершину стека байтовое значение кода возврата
  45. ________call____ExitProcessEx____; Вызываем процедуру ExitProcess(0)
  46. ____main endp
  48. code ends
  49. end main
Made on
Tilda