ХАНДЫФАР

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

Параметры:

• 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. ____buffer__db 128 dup(0)
9. data ends
11. code segment public
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc
15. ____main proc
16. ________call____SetDataSegment
18. ________xor_____cx, cx
19. ________lea_____bx, es:[buffer]
20. ________lea_____ax, ds:[pattern]
21. ________call____FindAllFiles
23. ________lea_____si, ds:[buffer]
25. ____PrintFilesLoop:
26. ________lodsb
28. ________test____al, al_
29. ________jz______Done
31. ________cmp_____al, 7Fh
32. ________je______NewLine
34. ________call____PutChar
35. ________jmp_____PrintFilesLoop
37. ____NewLine:
38. ________call____PrintNewLine
39. ________jmp_____PrintFilesLoop
41. ____Done:
42. ________xor_____al, al
43. ________call____ExitProcess
44. ____main endp
46. code ends
47. end main

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

Параметры:

• 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. ____buffer__db 128 dup(0)
9. data ends
11. code segment public ______________; Начало сегмента кода
12. ____assume _ds:data, cs:code
13. ____include Handyfar.inc__________; Подключаем файл с функциями
15. ____main proc ____________________; Начало процедуры main
16. ________call____SetDataSegment____; Вызываем процедуру SetDataSegment
18. ________xor_____cx, cx____________; Устанавливаем атрибут 0
19. ________lea_____bx, es:[buffer]___; Загружаем адрес строки buffer в регистр es:bx
20. ________lea_____ax, ds:[pattern]__; Загружаем адрес строки pattern в регистр ds:ax
21. ________call____FindAllFiles______; Вызываем процедуру FindAllFiles(ds:ax, es:bx, 0) := AX и CF
23. ________lea_____si, ds:[buffer]___; Загружаем адрес переменной buffer в регистр источник ds:si
25. ____PrintFilesLoop:
26. ________lodsb_____________________; Загружаем байт по адресу ds:si в регистр al
28. ________test____al, al____________; Проверяем al на 0
29. ________jz______Done______________; Если ZF = 1, то прыгаем на метку Done
31. ________cmp_____al, 7Fh___________; Проверяем al на 7Fh
32. ________je______NewLine___________; Если ZF = 1, то прыгаем на метку NewLine
34. ________call____PutChar___________; Вызываем процедуру PrintChar(al)
35. ________jmp_____PrintFilesLoop____; Выполняем безусловный переход на метку PrintFilesLoop
37. ____NewLine:
38. ________call____PrintNewLine______; Вызываем процедуру PrintNewLine
39. ________jmp_____PrintFilesLoop____; Выполняем цикл пока ZF не равен 0 или AL не равен 7F
41. ____Done:
42. ________xor_____al, al____________; Обнуляем регистр al
43. ________call____ExitProcess_______; Вызываем процедуру ExitProcess
44. ____main endp ____________________; Конец процедуры main
46. code ends ________________________; Конец сегмента кода
47. end main _________________________; Конец файла. Точкой входа указывается процедура main