іcx; збільшуємо лічильник записання сімволівrp; повторюємо цикл: retendp
; ::::::::::::::::::::::::::::::::::::::
; ::: вивід імя каталогу на екран ::::
; :::::::::::::::::::::::::::::::::::::: proc nearAttrF, 10h; перевіряємо атрибут: Якщо 10h, то це каталогexit1; Інакше на виходah, 40h; функція виводу стрічкіbx, 01cx, 12; виводимо 13 сімволівdx, NameF; У DX - адреси стрічкі віводу21hah, 9dx, dirstr21hWrtTimecrlf; перевід стрічкі: call ClrName; чистимо полі віводуdb ' $' endp
; :::::::::::::::::::::::::::::::::::::::
; ::: виводимо імя файлу на екран :::::::
; ::::::::::::::::::::::::::::::::::::::: proc nearAttrF , 10h; перевіряємо атрибут: Якщо це не файл то віходімоexit2si, NameF; завантажуємо адресою стрічкі в SIcx, 1: cx, 13; перевіряєм, ЯКЩО CX = 13, то вивід закінченоexit2; віхідal, [si]; заносимості в AL символ Що потрібно вівестіal, 65; порівнюємо его з 'A'skip1; ЯКЩО менше, то не переказуються в Нижній регістрal, 90; порівнюємо AL з' Z'skip1; ЯКЩО больше то не переказуються в Нижній регістрal, 32; перекладається сімвіл в Нижній Регистр: dl , alah, 02; функція виводу символу на екран21hsi; збільшуємо адресуcx; збільшуємо лічільнікloop1;! Зміни до Наступний сімвіл: ClrName; чистимо поле віводуah, 9dx, spk21hWrtTimeah, 9dx, spk21hax, word ptr SizeFdx, word ptr SizeF +2 Decimalcrlfdb '$' endp
; :::::::::::::::::::::::::::::::::::::::
; ::: виводимо мітку активного диску ::::
; ::::::::::::::::::::::::::::::::::::::: proc nearClrName ; чистимо поле віводуah, 9; функція виводу стрічкі на екранdx, StringL; У DX - адреси стрічкі21hsi, path4ah, 19h; отрімаємо активний діск21hal, 41h; перекладається его в букву [si], al; заносимості в Тимчасова стрічкуsi, path; шлях пошукуdi , path4; тимчасова стрічкаal, [si]; перемо перший символ шляху пошукуal, 65; літера диску 'A'? not_xchg; якшо менше, виходімоal, 122; Буква диску 'z'? not_xchg; ЯКЩО больше, віходімоal, 91; ЯКЩО ' ['- віхідnot_xchgal, 92; ЯКЩО' '- віхідnot_xchgal, 93; ЯКЩО'] '- віхідnot_xchgal, 94; ЯКЩО' ^ '- віхідnot_xchgal, 95; ЯКЩО' _ '- віхідnot_xchgal, 96; ЯКЩО' `'- віхідnot_xchg [ di], al_xchg: ah, 4eh; шукаємо файлcx, 08h; з атрибутом 08h, тобто мітку томуdx, path4; У DX - шлях для пошуку21hah, 40h; функція виводу стрічкі на екранbx, 01cx, 13; виводимо 13 сімволівdx, NameF; У DX - адреси стрічкі21hcrlf; перевід стрічкіcrlf; перевід стрічкіClrName; чистимо поле віводуdb 'Metka Diska: $ 'db' c: *. * ', 0; перший сімвіл буде чинний на активний діскendp
; ::::::::::::::::::::::::::::::::::::::::: :::::::::::::
; :::: перевід стрічкі :::::
; :::::::::::::::::::::::::::::::...
