Програми–аналоги DOS-програм ren, xcopy - Курсовая работа

З файлами на диску можна проводити певні операції - зокрема перейменовувати та копіювати.Необхідно написати програми для перейменування файлів та копіювання файлів і підкаталогів (аналоги REN, XCOPY).Для роботи з файлами в можна використовувати його системний сервіс, який зосереджено в перериванні 21h. Зокрема, використовуються такі функції: 56h - перейменувати файл 3ch - створити файлЗанести в память комадний рядок Якщо була помилка, то вивести повідомлення. Знайти всі файли в поточному каталозі, які відповідають заданій масці Для кожного файла викликати функцію copy_fileПісля запуску програми викликається функція process_commandline для аналізу командного рядка. Якщо було задано параметр копіювання підкаталогів, викликається функція process_directory, яка шукає всі підкаталоги в даному і для кожного рекурсивно викликає функцію process_files.Операційна система DOSДля копіювання треба вказати такий рядок: k_xcopy *.com c:\utils [/s] де *.com - маска для файлів, які треба копіювати, c:\utils - каталог, куди треба копіювати, а необовязковий ключ /s вказує на те, що в копіювання треба включити також підкаталоги даного підкаталогу.Завдяки виконанню курсового проекту створені програми для перейменування файлів та копіювання групи файлів.

Зміст

Вступ

1. Постановка задачі

2. Обґрунтування вибору методів розвязку задачі

3. Алгоритм програми

4. Реалізація програми

5. Системні вимоги

6. Інструкція для користувача

Висновки

Використана література

Лістинг програми

Завдяки виконанню курсового проекту створені програми для перейменування файлів та копіювання групи файлів. Вони є прикладом роботи з файловою системою засобами MS-DOS і демонструє елементи системного програмування для IBM PC.

1. Майко Г.В. Assembler для IBM PC. М., 1997

2. Лекції з дисципліни «Програмування на мові ASM-86»

Лістинг програми

K_XCOPY.ASM model tiny code org 100h start: jmp begin mem_errmsg db "Memory allocation error.$" file_errmsg db "Files error!$" param_err db "Parameters error! Example: k_xcopy c:\*.* d: [/s]$" all_dirs db "*.*", 0 up_dir db "..", 0 handle_1 dw 0 handle_2 dw 0 orig_date dw 0 orig_time dw 0 process_dirs db 0; вкл. підкаталоги filename_1 db 100 dup(0); 1 параметр _xcopy filename_2 db 100 dup(0); 2 параметр _xcopy targetname db 100 dup(0); сюди буде формуватися імя файла призначення

;

; копіювання файла

; ds:si - ASCIIZ старий файл

; ds:di - ASCIIZ новий файл

;

copy_file proc

; виділити память mov ah, 48h mov bx, 2048 int 21h jnc mem_ok jmp mem_err mem_ok: mov es, ax; сегмент виділений для копіювання

; open file for read mov ah, 3dh xor al, al mov dx, si int 21h jc file_error mov word ptr handle_1, ax

; get date mov bx, ax mov ax, 5700h int 21h mov word ptr orig_time, cx mov word ptr orig_date, dx

; open file for write mov ah, 3ch xor cx, cx mov dx, di int 21h jc file_error mov word ptr handle_2, ax push ds pushes pop ds xor dx, dx

; read block next_block: mov ah, 3fh mov bx, word ptr cs:handle_1 mov cx, 32768 int 21h cmp ax, 0; eof je stop_copy

; write to file mov cx, ax mov ah, 40h mov bx, word ptr cs:handle_2 int 21h jmp next_block stop_copy: pop ds

; set date mov ax, 5701h mov bx, word ptr handle_2 mov cx, word ptr orig_time mov dx, word ptr orig_date int 21h

; close files mov ah, 3eh mov bx, word ptr handle_1 int 21h mov ah, 3eh mov bx, word ptr handle_2 int 21h

; attrib mov ah, 43h xor al, al mov dx, offset filename_1 int 21h mov ah, 43h mov al, 1 mov dx, offset filename_2 int 21h

; звільнити mov ah, 49h int 21h jc mem_err ret file_error: mov ah, 9 mov dx, offset file_errmsg int 21h mov ah, 4ch int 21h mem_err: mov ah, 9 mov dx, offset mem_errmsg int 21h mov ah, 4ch int 21h copy_file endp

;

; end copy_file

;

;

; process_dirs

;

process_directory proc

; взнати адресу DTA mov ah, 2fh int 21h; es:bx - DTA

; findfirst mov ah, 4eh mov cx, 10h mov dx, offset all_dirs;*.* int 21h dfindnext: jnc zzz jmp dstop_search; кінець пошуку zzz: cmp byte ptr [bx 15h], 10h jne not_dir cmp byte ptr [bx 1eh], "." je not_dir

; отже, знайдено підкаталог

; 1) до filename_2 додати його назву mov di, offset filename_2 mov cx, 100 xor ax, ax repnz scasb dec di mov si, bx add si, 1eh mov cx, 13 rep movsb

; 2) створити каталог filename_2 mov ah, 39h mov dx, offset filename_2 int 21h

; 3) до filename_2 додати \ mov di, offset filename_2 mov cx, 100 xor ax, ax repnz scasb dec di mov byte ptr [di], "\" mov byte ptr [di 1], 0 push di

; 4) перейти в знайдений каталог mov ah, 3bh mov dx, bx add dx, 1eh int 21h jc skip_thisd

; 5) зберегти DTA sub sp, 2bh cld mov di, sp mov si, bx mov cx, 2bh rep movsb

; 6) call process_files call process_files

; 7) відновити DTA mov di, bx mov si, sp mov cx, 2bh rep movsb add sp, 2bh

; 8) chdir. mov ah, 3bh mov dx, offset up_dir int 21h skip_thisd: ; 9) від filename_2 відняти назву pop di sub di, 2 std mov al, "\" mov cx, 13 repnz scasb mov byte ptr [di 2], 0 cld not_dir: ; робимо findnext mov ah, 4fh int 21h jmp dfindnext dstop_search:; стоп пошуку ret process_directory endp

;

; process_dirs

;

;

; process_files

;

; копіювання файлів в 1 каталозі process_files proc

; взнати адресу DTA mov ah, 2fh int 21h; es:bx - DTA

; findfirst mov ah, 4eh xor cx, cx mov dx, offset filename_1 int 21h findnext: jc stop_search; кінець пошуку

; copy

; побудувати targetname pushes

; копіюємо path mov si, offset filename_2 mov di, offset targetname push ds pop es fil0: lodsb cmp al, 0 je stop_fil0 stosb loop fil0 stop_fil0: ; додати filename mov si, bx add si, 1eh fil1: lodsb cmp al, 0 je stop_fil1 stosb loop fil1 stop_fil1: mov byte ptr [di], 0 mov si, bx add si, 1eh mov di, offset targetname push bx call copy_file pop bx pop es

; видати імя файла mov si, bx add si, 1eh cont_inc: mov al, [si] cmp al, 0 je stop_inc inc si jmp cont_inc stop_inc: mov byte ptr [si], 10 mov byte ptr [si 1], 13 mov byte ptr [si 2], "$" mov dx, bx add dx, 1eh mov ah, 9 int 21h

; copy

; робимо findnext mov ah, 4fh int 21h jmp findnext stop_search:; стоп пошуку cmp byte ptr ds: [process_dirs], 1 jne no_dirs

;

; виклик пошуку каталогів

;

call process_directory no_dirs: ret process_files endp

;

; process_files

;

;

; process_commandline

;

process_commandline proc mov si, 80h mov al, [si] cmp al, 0 je params_error add si, 2 mov di, offset filename_1 name_1: lodsb cmp al, 20h je stop_name1 cmp al, 13 je params_error stosb jmp name_1 stop_name1: mov di, offset filename_2 name_2: lodsb cmp al, 20h je stop_name2 cmp al, 13 je stop_name2 stosb jmp name_2 stop_name2: mov byte ptr [di], "\"

cmp al, 13 je stop_cmdl name_s: lodsb cmp al, 20h je stop_names cmp al, 13 je stop_names cmp al, "s" jne name_s mov byte ptr [process_dirs], 1 stop_names: stop_cmdl: ret params_error: mov dx, offset param_err mov ah, 9 int 21h mov ah, 4ch int 21h process_commandline endp

;

; process_commandline

;

begin: ; decrease memory size cld mov bx, 4096 mov ah, 4ah int 21h mov ax, bx shl ax, 4 dec ax mov sp, ax call process_commandline call process_files exit 0 end start

K_REN.ASM

; перейменування файла

; k_ren name1.ext1 name2.ext2 model tiny code org 100h start: jmp go old_name db 50 dup(0) new_name db 50 dup(0)

; old_name db "autoexec.bat", 0

; new_name db "ccc.xxx", 0 em db "Error!$" go: push cs pop ax mov ds, ax mov es, ax

; names mov bx, 80h mov dl, byte ptr cs: [bx]; length cmp dl, 0 je error

; old name xor ax, ax mov si, 82h mov di, offset old_name next_sym: mov al, [si] cmp al, " " je stop mov [di], al inc si inc di inc ah cmp ah, dl ja error jmp next_sym stop: ; new name mov di, offset new_name inc si next_sym1: mov al, [si] cmp al, 13 je stop1 mov [di], al inc si inc di inc ah cmp ah, dl ja error jmp next_sym1 stop1: ; перейменовуємо mov dx, offset old_name mov di, offset new_name mov ah, 56h int 21h jnc no_error error: mov ah, 9 mov dx, offset em int 21h no_error: exit 0 end start