46975 (588456), страница 4

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 4)

; кількість разів

; ------Вивід атрибутів файлу

mov al,[offset dirData + FileName -9]; в al поміщується байт атрибуту

mov cx,6 ; в cx кількість значущих бітів у байті

; атрибуту

@@01:

shr al,1 ; зсув al вправо,

; в CF поміщується молодший біт

jb @@02 ; якщо CF=1, то перехід

mov dl, ' ' ; в dl поміщується пробіл (символ виводу)

push cx ; збереження cx в стеку

mov cx,4 ; поміщення в cx кількості символів для

; виводу (4)

call WriteSimv ; вивід 4-х пробілів

pop cx ; відновлення cx

jmp @@03 ; перехід

@@02:

mov di,offset point ; в di поміщується зміщення змінної point

push cx ; збереження cx

call StrWrite ; вивід на екран зірочки

pop cx ; відновлення cx

@@03:

loop @@01 ; виконувати цикл, доки cx≠0 (6-ть разів)

; ------Вивід години створення файлу

mov bx,[offset dirData + FileName-8] ; в bx поміщується слово часу

; створення файлу

mov ax,bx ; в ax поміщуються слово години

; створення файлу

and ax,0f800h ; накладання маски

shr ax,11 ; зсув результату (отримали години)

mov cx,1

mov di,offset buffer ; di вказує на пустий буфер buffer

call BinToAscDec ; передача в змінну buffer 10-кового

; ASCII-представлення числа з ax

mov cx,2 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII-представлення числа з ax

mov cx,1 ; встановлення в cx кількості виводів

mov dl, ':' ; передача в dl символу, що виводиться

call WriteSimv ; вивід один раз символу із dl

; ------Вивід хвилин створення файлу

mov ax,bx ; в ax поміщується слово хвилини

; створення файлу

and ax,7e0h ; накладання маски

shr ax,5 ; зсув результату (отримали хвилини)

mov cx,1

mov di,offset buffer ; di вказує на пустий буфер buffer

call BinToAscDec ; передача в змінну buffer 10-кового

; ASCII-представлення числа з ax

mov cx,2 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII-представлення числа з ax

mov cx,1 ; встановлення в cx кількості виводів

mov dl, ':' ; передача в dl символу, що виводиться

call WriteSimv ; вивід один раз символу із dl

; ------Вивід секунд створення файлу

mov ax,bx ; в ax поміщується слово секунди

; створення файлу

and ax,1fh ; накладання маски

shl ax,1 ; помноження на 2 (отримання секунд із

; двохсекундних одиниць)

mov cx,1

mov di,offset buffer ; di вказує на пустий буфер buffer

call BinToAscDec ; передача в змінну buffer 10-кового

; ASCII-представлення числа з ax

mov cx,3 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII представлення числа з ax

mov cx,1 ; встановлення в cx кількості виводів

mov dl, ' ' ; передача в dl символу, що виводиться

call WriteSimv ; вивід один раз символу із dl

; ------Виведення дня створення файлу

mov bx,[offset dirData + FileName-6] ; в bx слово дати створення

; файлу

mov ax,bx ; в ax слово дня створення файлу

and ax,01fh ; накладання маски

mov cx,1 ; встановлення мінімальної довжини

; перетворюваного рядка

mov di,offset buffer ; в di зміщення пустого буферу

call BinToAscDec ; заповнення буферу buffer 10-ковим

; ASCII-представленням числа з ax

mov cx,2 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII представлення номера дня

mov cx,1 ; в cx кількість виводів

mov dl, '\' ; в dl символ для виводу

call WriteSimv ; вивід символу із dl задану кількість разів

; ------Вивід місяця створення файлу

mov ax,bx ; в ax слово місяця створення файлу

and ax,1e0h ; накладання маски

shr ax,5 ; зсув результату (отримання місяця)

mov cx,1 ; встановлення мінімальної довжини

; перетворюваного рядка

mov di,offset buffer ; в di зміщення пустого буферу

call BinToAscDec ; заповнення буферу buffer 10-ковим

; ASCII-представленням числа з ax

mov cx,2 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII представлення номера дня

mov cx,1 ; в cx кількість виводів

mov dl, '\' ; в dl символ для виводу

call WriteSimv ; вивід символу із dl задану кількість разів

; ------Вивід року створення файлу

mov ax,bx ; в ax слово року створення файлу

and ax,0f800h ; накладання маски

shr ax,9 ; зсув результату (отримання року)

add ax,1980 ; отримання року створення

mov cx,1 ; встановлення мінімальної довжини

; перетворюваного рядка

mov di,offset buffer ; в di зміщення пустого буферу

call BinToAscDec ; заповнення буферу buffer 10-ковим

; ASCII-представленням числа з ax

mov cx,4 ; в cx ширина поля виводу

call StrWrite2 ; вивід ASCII представлення номера дня

mov cx,2 ; в cx кількість виводів

mov dl, ' ' ; в dl символ для виведення

call WriteSimv ; вивід проміжку у 2-а пробіли

; ------Вивід розміру файлу у 16-річному вигляді

mov ax,[offset dirData + FileName-2] ; в ax молодші два байти

; подвійного слова розміру файла

mov cx,1 ; в cx мінімальна довжина

; перетворюваного рядка

mov di,offset buffer ; в di зміщення буферу для результату

call BinToAscHex ; перетворення двох молодших байтів

; розміну у ASCII-рядок

call StrWrite ; вивід на екран

mov ax,[offset dirData + FileName-4] в ax містяться старші два байти

; подвійного слова розміру файла

call BinToAscHex ; перетворення у ASCII рядок

; представлення у вигляді 16-річного

; числа

call StrWrite ; вивід на екран

call NewLine ; перехід на новий рядок

pop bx ; відновлення у bx зміщення процедури

; Action

ret ; завершення процедури

ENDP Action

END Start

Схема алгоритму основної програми приведена у додатках (Додаток А).

Отримання даних із командного рядку і встановлення критерію відбору файлів (маски) реалізується за допомогою функцій модуля PARAMS.obj. Спочатку заповнюється спеціальний буфер хвостом команди і його вміст розбивається на окремі елементи (GetParams). При наявності в хвості команди параметрів, перший параметр задає маску; якщо параметри відсутні, у якості маски встановлюється стандартна '*.*' (вивід всіх файлів із директорії, в якій знаходиться програма). Основну роботу виконує функція DirEngine, в яку, за допомогою регістру bx, передається зміщення функції Action (для подальшого виклику її за зміщенням).

Функція DirEngine, за допомогою 2Fh, 1Ah, 4Eh, 4Fh функцій переривання INT21h DOS, знаходить поточне положення буфера DTA, зберігає його адресу, встановлює новий DTA у власний спеціальний буфер і за допомогою нього шукає файли, що відповідають заданій масці. При знаходженні таких файлів, керування по зміщенню передається функції Action.

Основна задача Action – обробити інформацію в DTA і вивести необхідні дані на стандартний пристрій виводу.

DTA має наступну структуру [4, 6]:

Спочатку виводиться ім'я файлу, яке має наступну структуру: "filename.ext". Вивід реалізується за допомогою спеціальних функцій StrWrite, StrWriter, Length і WriteSimv із модуля STRIO.obj.

Наступним кроком реалізується вивід атрибутів файлу шляхом виводу зірочок навпроти відповідного атрибуту. Байт атрибуту файлу має наступну структуру [6]:

№ біту	Що означає
0	тільки читання
1	скритий
2	системний
3	том
4	каталог
5	архів (або копія файлу не створювалась)

Тобто, якщо біт атрибуту файлу буде мати наступне значення 21h, це означатиме, що файл є архівним, він лише для читання.

Передостаннім кроком виводяться час і дата створення файлу у форматі: година:хвилина:секунда день\місяць\рік. Дані, що описують час і дату створення/змінення файлу, потребують накладання масок і здвигів для

отримання необхідної інформації і представлені в наступному виді [6]:

Перевід двійкових чисел у ASCII-десяткове представлення для виводу на екран реалізується за допомогою функції BinToAscDec модуля BINASC.obj.

Останній крок виводу розміру файлу виконується в два етапи, оскільки розмір файлу міститься у подвійному слові і модуль BSNASC.obj не надає інструменту для переведення двійкових даних у ASCII-рядок.

Спочатку за допомогою функції BinToAscHex модуля BINASC.obj переводиться молодші, а потім старші два байти, переведені у ASCII-шістнадцятирічне представлення.

По завершенні своєї роботи Action знов передає керування викликаючій функції DirEngin, яка повторює пошук файлів і викликає для роботи Action, доки не завершить обробку всіх файлів, що відповідають масці. Після цього DirEngine повертає старий DTA і передає курування основній програмі, яка завершує роботу і повертає код виходу.

Результати роботи програми:

D:\Program\ASM\misk>dr

The DIRWUER wersion 1.0

Romanov Alexander Urievich. KIT-13A NTU"KhPI"

Copyright (C) 2005 by Romanov Alexander

Filename OnR Skr Sys Tom Kat Arh Time Data Size

. * 11:59:18 11\5 \2005 00

.. * 11:59:18 11\5 \2005 00

BLW32.DLL * 12:12:0 14\5 \1996 52020

DEBUG.EXE * * 22:22:0 5 \5 \1999 0518A

USA.BLL * 12:12:0 14\5 \1996 18DCD

MYREP.CBA * 18:48:42 25\1 \2002 01F

DIRECT * 12:27:54 11\5 \2005 00

Характеристики

Список файлов ВКР