.XLIST ; DIR.MAC ; 21.03.92 ; Автор: Конюхов Д.Л. ; File attribute constants READONLY = 01h HIDDEN = 02h SYSFILE = 04h VOLUMEID = 08h DIRECTORY= 10h ARCHIVE = 20h ANYFILE = 3Fh ; DTA structure DTA struc ; Смещение dreserv db 15h dup(?) ; +00h Резервируется dattr db ? ; +15h Атрибут dtime dw ? ; +16h Время создания/модификации ddate dw ? ; +18h Дата создания/модификации dsize dd ? ; +1Ah Размер dname db 0Dh dup(?) ; +1Eh ASCIIZ имя DTA ends ;------ Set the Disk Transfer Area address intr _setdta,,,21h,1Ah ;------ Get the DTA address intr _getdta,,,21h,2Fh ;------ Возвращает название текущего каталога mfunc getdir,,,extrn ;------ Поиск файлов mfunc files,,,extrn ;------ Свободной памяти на диске в байтах mfunc diskfree,
,,extrn ;------ Всего памяти на диске в байтах mfunc diskmem,
,,extrn ;------ Create a directory intr _mkdir,,,21h,39h ;------ Delete a directory intr _rmdir,,,21h,3Ah ;------ Set the current directory intr _chdir,,,21h,3Bh .LIST