Міністерствоосвіти та науки УкраїниКіровоградський Державний Технічний університет
Кафедрапрограмного забезпечення
Курсовийпроект
здисципліни
“Програмуванняна мові ASM-86”
натему:
“Програмадля перегляду великих текстових файлів, розмір яких більший за 64 кілобайти”
ЗМІСТ
Завдання
1. Вступ
2. Постановказадачі
3. Обґрунтуваннявибору методів розв’язку задачі
4. Алгоритмпрограми
5. Реалізаціяпрограми
6. Системнівимоги
7. Інструкціядля користувача
8. Висновки.
9. Використаналітература.
Лістинг програми.
1.Вступ
Дляперегляду текстових файлів використовуються програми – переглядачі. Вонидозволяють користувачу роздивлятись будь-яку частину файла у зручному для ньоговигляді.
Деякіпереглядачі мають різні обмеження, наприклад на об’єм файла. Інші можутьпереглядати файли будь-якої довжини. Мета цієї роботи – показатипрограму-переглядач саме для великих файлів.
2.Постановка задачі
Необхідностворити програму, з допомогою якої можна було б переглядати текстові файли, заоб’ємом більші за 64 кілобайти.
3.Обґрунтування вибору методів розв’язку задачі
При перегляді маленьких файлів зручно їх повністюпрочитати з диска у пам’ять і виводити на екран звідти. Звичайно, можназастосувати такий спосіб і для великих файлів, але при цьому буде витрачатисябагато оперативної пам’яті в машині.
Для того щоб нечитати файл повністю, його читають по частинах. Читають якийсь блок і переглядаютьйого. Коли перегляд блоку завершується, то з диска підчитується наступний блокабо попередній. Отже, це дає змогу переглядати великі файли при невеликомуоб’ємі пам’яті.
4.Алгоритм програми
1. Ввести ім’яфайла
2. Відкрити файлі прочитати перший блок.
3. При натисненніклавіші “вниз” прокрутити текст вниз.
4. При натисненніклавіші “вгору” прокрутити текст вгору.
5. Вивести наекран зміст файлу.
6. Якщо областьперегляду вийшла за межі блоку, то прочитати наступний або попередній блок.
7. Якщо користувачне натиснув ESC, перейти до пункту 3.
8. Стоп
5.Реалізація програми
Для операцій з файлами використовуються засоби ДОС.
Програмаскладається з таких процедур:
key_up — обробка “клавіша вгору”
key_down — обробка “клавіша вниз”
openfile — відкриття файла
closefile — закриття файла
readnextblock — читання наступного блоку
readprevblock — читання попереднього блоку
initblocks — ініціалізація програми
cleanup — очистка
showframe — відображення кадру
key_pgup — обробка клавіші Page Up
key_pgdn — обробка клавіші Page Down
6.Системні вимоги
Операційнасистема МS-DOS
Процесор 8086або старший
Екран CGAабо старший
Пам’ять 640К7. Інструкція длякористувача
Для запускупрограми необхідно виконати файл view64.exe. Після нього в командному рядкувводиться ім’я файла. Наприклад, “view64 big_text.txt”. Після цього на екраніз’явиться зміст файлу. Його можна “гортати” клавішами “Page Up”, “Page Down”,“Up”, “Down”.
Для виходу зпрограми треба натиснути клавішу “ESC”.
8.Висновки
Отже, на мовіАсемблера для процесорів сімейства INTEL x86 створена програма, яка призначенадля перегляду в текстовому режимі файлів. Її особливістю є те, що розмір файлівможе бути більшим за 64 кілобайти.
Програма працює,але все ж таки може містити помилки. Але робота з нею не вимагає відкористувача якихось спеціальних навичок, вона проста в користуванні.
9.Використана література
1. Р. Журден. Справ очник программиста на персональномкомпьютере фирмы IBM.
2. П. Абель. Асемблер и программирование для IBM PC.
Додаток.ЛІСТИНГ ПРОГРАМИ
.model compact
.stack 1024
.386
.data
; буфери
pvideobuffer db4000 dup(0)
fileblock db32000 dup(0); блок з файла
video db 2000dup(0); копiя кадра
errormsg db'Помилка читання файла!$'
filename0 db 50dup(0)
msg1 db 'Введiтьiм`я файла. $',10,13
filehandle dw 0; зсилка
nblock dw 0
currentposbegindw 0; початок блоку
currentposend dw0; кiнець блоку
blocklength dw 0; фактичнадовжина блоку
lastkey db 0; останнiйрух: 0 = вниз, 1 — вгору
sym_count dw 0; кiлькiстьсимволiв на екранi
upperend dw 0
block_num dw 0
.code
start:
jmp begin
;====================ОБРОБКАКЛАВIШ
;====================KEY_UP
key_up proc
pusha
cmp word ptrfs:[lastkey],0
jne ok_up1
; перевiрка: якщоend
mov si,word ptrfs:[currentposend]
mov di,word ptrfs:[currentposbegin]
cmp si,di
ja ok_up1
cmp word ptrfs:[block_num],1
jne ok_up1
; пiдчитка
callreadprevblock
mov si,word ptrfs:[blocklength]
add si,offsetfileblock
;sub si,word ptrfs:[sym_count]
mov word ptrfs:[currentposend],si
ok_up1:
mov word ptrfs:[lastkey],1
; зсовуємо videoвниз на length(рядка який вище) байт
; пiдраховуємоlength
mov ax,seg video
mov es,ax
mov ds,ax
xor dx,dx ;dx=length[0]
mov bx,word ptrfs:[currentposbegin]
dec bx
get_len24:
dec bx
cmp byte ptr[bx],10; кiнець рядка
je stop_len24; стоп- цикл
good_sym:
inc dx
cmp dx,79
jb get_len24
stop_len24:
inc dx
; тепер dx — довжина 1 рядка
; зсунути video наdx байт вниз
mov di,offsetvideo+2000
mov si,offsetvideo+2000
sub si,dx
std
mov cx,2000+1
rep movsb
; дописати dx байт
; встановлюємо2000-dx
push ds
mov ax,segcurrentposbegin
mov ds,ax
mov si,word ptrds:[currentposbegin]
mov bx,word ptrds:[currentposend]
mov di,offsetvideo
add di,dx
pop ds
mov ax,segfileblock
mov ds,ax
mov cx,dx
; перенос
trans_u:
dec si
dec di
mov al,byte ptrds:[si]
mov byte ptres:[di],al
cmp bx,offsetfileblock
jae line_u_ok1
mov bx,offsetfileblock
add bx,word ptrfs:[blocklength]
line_u_ok1:
cmp si,offsetfileblock
jae line_u_ok
; пiдчитатипопереднiй блок
mov word ptrfs:[upperend],1
callreadprevblock
mov si,offsetfileblock
add si,word ptrfs:[blocklength]
line_u_ok:
dec bx
loop trans_u
stop_u:
push ds
mov ax,segcurrentposend
mov ds,ax
mov word ptrds:[currentposend],bx
mov word ptrds:[currentposbegin],si
pop ds
call showframe
popa
ret
key_up endp
;====================KEY_DOWN
key_DOWN proc
pusha
mov word ptrfs:[upperend],0
cmp word ptrfs:[lastkey],1
jne ok_down1
; перевiрка: якщоend
mov si,word ptrfs:[currentposend]
mov di,word ptrfs:[currentposbegin]
cmp si,di
ja ok_down1
; пiдчитка
callreadnextblock
mov si,offsetfileblock
;add si,word ptrfs:[sym_count]
mov word ptrfs:[currentposbegin],si
ok_down1:
mov word ptrfs:[lastkey],0
; зсовуємо videoвгору на length[0] байт
; пiдраховуємоlength[0]
mov ax,seg video
mov es,ax
mov ds,ax
xor dx,dx ;dx=length[0]
mov bx,offsetvideo
get_len0:
cmp byte ptr[bx],10; кiнець рядка
je stop_len0; стоп- цикл
inc bx
inc dx
cmp dx,79
jb get_len0
stop_len0:
inc dx
; тепер dx — довжина 1 рядка
; зсунути video наdx байт вгору
mov di,offsetvideo
mov si,offsetvideo
cld
add si,dx
mov cx,1000
rep movsw
; дописати dx байт
; встановлюємо2000-dx
push ds
mov ax,segcurrentposend
mov ds,ax
mov si,word ptrds:[currentposend]
mov bx,word ptrds:[currentposbegin]
movdi,2000+offset video
sub di,dx
pop ds
mov ax,segfileblock
mov ds,ax
mov cx,dx
; перенос
trans_d:
mov al,byte ptrds:[si]
mov byte ptres:[di],al
inc si
inc di
inc bx
mov bp,offsetfileblock
add bp,word ptrfs:[blocklength]
cmp bx,bp
jbe line_d_ok1
mov bx,offsetfileblock
line_d_ok1:
cmp si,bp
jbe line_d_ok
; пiдчитатинаступний блок
callreadnextblock
mov si,offsetfileblock
;EOF
line_d_ok:
loop trans_d
stop_d:
push ds
mov ax,segcurrentposend
mov ds,ax
mov word ptrds:[currentposend],si
mov word ptrds:[currentposbegin],bx
pop ds
call showframe
popa
ret
key_DOWN endp
;===================вiдкриттяфайла
openfile proc
pusha
mov ah,3dh
xor al,al
mov dx,segfilename0
mov ds,dx
mov dx,offsetfilename0
int 21h
jc error
mov word ptrds:[filehandle],ax
popa
ret
error:
call cleanup
mov ah,9
mov dx,segerrormsg
mov ds,dx
mov dx,offseterrormsg
int 21h
popa
mov ah,4ch
int 21h
openfile endp
;===================закриттяфайла
closefile proc
pusha
mov ah,3eh
mov dx,segfilehandle
mov ds,dx
mov bx,word ptrds:[filehandle]
int 21h
popa
ret
closefile endp
;===================читаннянаступного блоку з файла
readnextblockproc
pusha
mov ax,segfilehandle
mov ds,ax
mov ax,word ptrfs:[block_num]
inc ax
mov word ptrfs:[block_num],ax
retry_n:
mov ah,3fh
mov bx,word ptrds:[filehandle]
mov cx,32000
mov dx,segfileblock
mov ds,dx
mov dx,offsetfileblock
int 21h
;EOF — заповнити0
cmp ax,0
jne read_ne
mov ah,42h
mov al,0
mov bx,word ptrds:[filehandle]
xor cx,cx
xor dx,dx
int 21h ;==>на початок
jmp retry_n
read_ne:
mov dx,segblocklength
mov ds,dx
mov word ptrds:[blocklength],ax; довжина блоку
popa
ret
readnextblockendp
;===================читанняпопереднього блоку з файла
readprevblockproc
pusha
mov ax,seg filehandle
mov ds,ax
mov ax,word ptrfs:[block_num]
dec ax
mov word ptrfs:[block_num],ax
;seek — спочаткупоточне змiщення
mov ah,42h
mov al,1
mov bx,word ptrds:[filehandle]
xor cx,cx
xor dx,dx
int 21h ;==>DX:AX — поточне
; перевiрити, чи єнуль — початок файла. Тодi — змiстити
; на кiнець
cmp dx,0
jne norm_read
cmp ax,32000
jbe make_lastpos
jmp norm_read
; на кiнець
make_lastpos:
mov ah,42h
mov al,2
mov bx,word ptrds:[filehandle]
xor cx,cx
xor dx,dx
int 21h ;==>DX:AX — поточне
jmp setpos
norm_read:
setpos:
sub ax,64000
sbb dx,0
mov cx,dx
mov dx,ax
mov ah,42h
mov al,0
mov bx,word ptrds:[filehandle]
int 21h ;==>змiстили
mov ah,3fh
mov bx,word ptrds:[filehandle]
mov cx,32000
mov dx,segfileblock
mov ds,dx
mov dx,offsetfileblock
int 21h
mov dx,segblocklength
mov ds,dx
mov word ptrds:[blocklength],ax; довжина блоку
popa
ret
readprevblockendp
;========================iнiцiалiзацiя блокiв
initblocks proc
pusha
callreadnextblock
;1 копiя в video
mov dx,seg video
mov es,dx
mov di,offset video
mov dx,segfileblock
mov ds,dx
mov si,offsetfileblock
cld
mov cx,1000
rep movsw
; початковiзначення кордонiв — 0 i 2000
mov ax,offsetfileblock
mov word ptrds:[currentposbegin],ax
movbx,2000+offset fileblock
mov word ptrds:[currentposend],bx
popa
ret
initblocks endp
;------------------------процедура очистки
cleanup proc
; очистка екрана
cld
push es
mov cx,80*25
mov ax,0b800h
mov es,ax
xor di,di
mov ax,0700h
rep stosw
pop es
; поставитинормальний курсор
mov ah,1
xor cl,cl
mov ch,30h
int 10h
ret
cleanup endp
;----------------------процедура вiдображення кадра
showframe proc
pusha
mov ax,segpvideobuffer
mov ds,ax
; настройкакольору
; верхнiй рядоксiрий
mov bx,offsetpvideobuffer
mov cx,80
setw: mov byteptr ds:[bx],32
mov byte ptrds:[bx+1],70h
add bx,2
loop setw
; синiй фон,жовтий текст
mov cx,80*24
setm: mov byteptr ds:[bx],32
mov byte ptrds:[bx+1],1eh
add bx,2
loop setm
; кольори
;??????????????????=================================
; виведення video
; сегменти iвказiвники
;si — номерсимвола в буферi
;di — iндексбайта вiдеопам@ятi
; виводимо всiсимволи як є, але!
;13-йпропускаємо, 10-й — перехiд на
; новий рядок, а 9- табулюємо (10)
mov ax,seg video
mov ds,ax
mov ax,segpvideobuffer
mov es,ax
mov si,offsetvideo
mov di,offsetpvideobuffer
; пропустити 1рядок
add di,80*2
symb:
mov al,byte ptrds:[si]; символ
cmp al,10; перехiдна новий рядок
jne normal
; почати новийрядок
push ax
push bx
push dx
push di
add di,160 ;di=di+(160-((di+160) mod 160))
mov ax,di
xor dx,dx
mov bx,160
div bx
mov ax,160
sub ax,dx
pop di
add di,ax
pop dx
pop bx
pop ax
jmp skip; новий рядок
normal:
cmp al,13
je skip
; нормальнийсимвол — виводимо
mov byte ptres:[di],al
add di,2 ;2 байта- наступнi (атрибут пропустити)
skip:
inc si; наступнийбайт iнформацiї
push si
sub si,offsetvideo
mov word ptrfs:[sym_count],si
pop si
cmp di,4000; кiнецьекрана
jb symb
;??????????????????===================================
; на екранвиводимо з пам@ятi
cld
push es
mov cx,80*25
mov ax,0b800h
mov es,ax
xor si,si
xor di,di
rep movsw
pop es
popa
ret
showframe endp
;====================KEY_PGUP
key_pgup proc
;24 разивикликати key_up
push cx
mov cx,24
scr_up:
call key_up
loop scr_up
pop cx
ret
key_pgup endp
;====================KEY_PGDN
key_pgdn proc
;24 разивикликати key_down
push cx
mov cx,24
scr_dn:
call key_down
loop scr_dn
pop cx
ret
key_pgdn endp
;============================================
begin:
mov ax,seg msg1
mov ds,ax
; введення iменiфайла 1
mov ah,9
mov dx,offsetmsg1
int 21h
mov bx,offsetfilename0
ent_1:
mov ah,1h
int 21h
mov [bx],al
inc bx
cmp al,13
jne ent_1
dec bx
mov byte ptr[bx],0
mov ah,2
mov dl,10
int 21h
mov ax,segblocklength
mov fs,ax
; сховати курсор
mov ah,1
xor cl,cl
mov ch,00000010b
int 10h
call openfile
call initblocks
call showframe
; чекаємо клавiшу
wait_key:
xor ah,ah
int 16h
;al-ascii code
cmp ah,1 ;ESC
je halt
cmp ah,48h ;UP
jne next1
call key_up
jmp wait_key
next1: cmp ah,50h
jne next2 ;DOWN
call key_down
jmp wait_key
next2: cmp ah,49h;PGUP
jne next3
call key_pgup
jmp wait_key
next3: cmp ah,51h;PGDN
jne wait_key
call key_pgdn
jmp wait_key
halt:
call cleanup
call closefile
mov ah,4ch
int 21h
end start