маска введенаch, 0di, 81h; адреси Першого символу параметраal, ''; скануваті будемо до першого пробілу: scasb; запускаємо сканування стрічкіIsParam:; ЯКЩО пробіл знайденоsi, di; запамятовуємо адресуsi; зменшуємо на одініцюdi, path; встановлюємо адресою стрічкі параметрівcl:; завантажуємо один символ стрічкі параметрівal, ''; перевіряємо чг ВІН НЕ дорівнює пробілуEndMoveParam; ЯКЩО дорівнює тоді Кінець стрічкі; інакше пересілаємо стрічку параметрів - pathMoveParam; цикл до кінця стрічкі: ax; збережімо на всяк випадок; завантажуємо ще один сімволal, '/'; ЯКЩО це/okkah, 9; інакше errordx, str_F21h: lodsb; завантажуємо ще один сімволal, 'D'; ЯКЩО це/DDire; то виконуємо DirE, 64hah, 9; інакше errordx, str_K21h20h: pop axal, 0; додаємо символ NUL в Кінець стрічкі параметрів [di], alah, 9; функція виводу стрічкіdx, stringU; У DX - адреси стрічкі21h; виводимо стрічку "Vuvod tekyshego kataloga" ah, 40h; виводимо маску пошукуbx, 01cx, 50dx, path21hcrlf; перевід стрічкіskip_curdir; обходимо текущій каталог:; Якщо не задані параметріcurdir; знаходимо тєкущій каталог_curdir: dx, NewDTA; встановлюємо мітку на свою область DTAah, 1Ah21hWLabel ; виводимо мітку діскуah, 4eh; функція знаходится перший каталог з маскою *. * cx, 10h; У CX - атрибут каталогом - 10hdx, path; У DX - шлях для пошуку21hNowFiles; ЯКЩО каталогом немає шукаємо файліWrtDir; виводимо імя Першого знайдення каталогом: ah , 4fh; функція Продовжує поиск на Функції 4eh21hNowFiles; ЯКЩО каталогом немає шукаємо файліWrtDir; виводимо знайдення каталогFindNextDir;! Зміни до поиск на Іншого: ah, 4eh; функція знаходится перший файл з маскою *. * cx, 27h; У CX - атрибут файлу - 27h (RO + Hid + Sys + Arc) dx, path; У DX - шлях для поиска файлів21hhalt; ЯКЩО файлів немає то на віхідWrtFile; ЯКЩО файл знайдено то виводимо его імя: ah, 4fh; функція Продовжує поиск на файлів21hhalt; ЯКЩО больше файлів немає то на віхідWrtFile ; виводимо імя файлу на екранFindNextFile;! Зміни до поиск на Наступний файлу: call crlf; перевід стрічкі; вихід в DOS
; ::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::
; :: прцедури обраховує и виводу годину создания файлу чг каталогом :::
; ::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::: proc
; ::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::
;: забіваємо пробіламі поле, в якому запісується імя файлу (NameF) ::
;: це нужно для того щоб Не було накладання імен файлів при віводі ::
; ::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::: proc nearsi, NameF; отрімаємо адресою имени файлуcx, 1: cmp cx, 13; ЯКЩО CX = 13, то імя опрацьовано повністюvihod; того віходімоal, 0; заносимості код символу 0 (пустий символ) [si], al; запісуємо пустий символ у стрічку NameFsi; збільшуємо адресою стрічк...
