Міністерство освіти та науки України
Курсова робота
з дисципліни “Програмування на мові ASM-86”
на тему:
“Переглядач для файлів різних типів, з визначенням типу файлу по розширенню і, відповідно, способу перегляду (txt, hex, bin)”
Зміст
Вступ
1. Постановка задачі
2. Обґрунтування вибору методів розв’язку задачі
3. Алгоритм програми
4. Реалізація програми
5. Системні вимоги
6. Інструкція для користувача
Висновки
Використана література
Лістинг програми
Вступ
При роботі з файлами їх буває необхідно переглянути. Для цього необхідно використовувати програми-переглядачі, які забезпечують прокрутку тексту у вікні перегляду.
Іноді виникає потреба переглядати файли не лише в текстовому, а в інших форматах, зокрема в шістнадцятеричному та бінарному. Переглядач, який розроблено в роботі, дозволяє переглядати файли у вказаних трьох режимах.
1. Постановка задачі
Необхідно розробити програму-переглядач файлів у різному вигляді – війковому, шістнадцятеричному або текстовому, тип перегляду повинен визначатися за розширенням файлу.
2. Обґрунтування вибору методів розв’язку задачі
Для роботи з відео зручно використовувати прямий доступ до відеопам’яті, оскільки такий спосіб має високу ефективність. Для роботи з файлами – функції ДОС (21 переривання).
Для обробки клавіатури будемо використовувати функції прокрутки зображення. Ці функції для спрощення будуть різними для різних типів файлів, оскільки необхідно по-різному обчислювати зміщення при прокрутці і по-різному відображати інформацію.
Для програми використовується модель “small” пам’яті, цього достатньо для невеликих файлів.
3. Алгоритм програми
1. Введення імені файла.
2. Визначення типу файла за символами в розширенні.
3. Читання змісту файла в пам’ять.
4. Очікування натиснення клавіші.
5. Якщо натиснута клавіша “сторінка вгору”, то 24 рази викликати ф-цію прокрутки вгору на 24 рядки.
6. Якщо натиснута клавіша “сторінка вниз”, то 24 рази викликати ф-цію прокрутки вниз на 24 рядки.
7. Якщо натиснута клавіша “вниз”, то збільшити вказівник кадру на довжину верхнього рядка.
8. Якщо натиснута клавіша “вгору”, то зменшити вказівник кадру на довжину рядка, який знаходиться над верхнім рядком (поза кадром).
9. Відобразити новий кадр на екран.
10. Якщо натиснута клавіша ESC, то завершити програму.
11. Перейти на п. 4. і продовжити роботу.
4. Реалізація програми
Після початку роботи програма запитує користувача про ім’я файла, який треба переглянути і робить спробу відкрити його. Якщо нема помилки, то з імені визначається його тип і у змінні в програмі заноситься інформація про тип. Введення з клавіатури здійснюється з використанням функцій DOS.
При перегляді використовується запис текстової інформації у відеопам’ять.
Після відкриття і читання файла програма чекає на натиснення клавіші. Використовується переривання 16 – функція 0. Потім аналізується код клавіші. Якщо код = 1 (вихід), то програма завершує роботу. Обробляються також клавіші “вгору”, “вниз”, “сторінка вгору” і “сторінка вниз”. Програма містить 3 групи функцій для кожного типу перегляду, кожна з яких містить по 3 функції: відображення на екрані поточного кадру, прокрутка зображення вгору і вниз.
Програма містить вказівник, який показує відстань від початку тексту до початку поточного кадру. При прокрутці вниз він збільшується (якщо досягне довжини 32000 – стає 0), а при прокрутці вгору – зменшується (якщо 0, то стоїть на місці – прокрутки немає). При натисненні клавіш “сторінка вгору” і “сторінка вниз” прокрутка відбувається на 24 рядки у відповідному напрямку.
5. Системні вимоги
Програма буде працювати на комп’ютері з процесором 80386 і старшим, 640 К і більше пам’яті, монітором CGA і вище. Необхідний дисковий накопичувач.
При досягненні нижньої границі тексту перегляд буде переведено на початок файла. А при досягненні верхньої границі прокрутка здійснюватись не буде.
Розмір файла повинен бути меншим за 32 кілобайти.
Висновки
Отже, завдяки виконанню роботи, створена програма – переглядач для невеликих текстових файлів з розширеннями TXT (текстовий файл), HEX (шістнадцятеричний формат) та BIN (бінарний). Проілюстровані можливості виведення на екран на асемблері, роботу з файлами та пам’яттю. Програма має вигляд EXE-файла і невибаглива до ресурсів машини.
Використана література
1. Том Сван. Освоение Turbo Assembler. М., Діалектика, 1996
2. Зубков Д.Д. Программирование на Assembler для DOS, WINDOWS и UNIX. М., ДМК, 2000
Лістинг програми
.model compact
.386
.stack 1000
.data
file db 32767 dup(0)
handle dw 0
errmsg db 'Помилка читання!$'
msg_enter db 'Введiть iм`я файла (.txt, .bin, .hex): $'
filename db 40 dup(0)
filelength dw 0
filetype db 2 ;2-txt,0-hex,1-bin
filepointer dw 0 ;вказiвник на початок кадра
.code
start:
jmp begin
;================================== T X T
;показ дампа для вигляду txt
showtxtdump proc
pusha
;очистка
mov ax,0b800h
mov es,ax
cld
mov cx,2000
xor di,di
mov ax,0700h
rep stosw
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
xor si,si
xor di,di
txt_l: mov al,byte ptr fs:[bx]
inc bx
cmp al,10
je tskip
cmp al,13
jne tput
add si,80*2
shl di,1
sub si,di
xor di,di
jmp tskip
tput:
mov byte ptr es:[si],al
add si,2
inc di
tskip:
cmp bx,bp
jb txt_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
txt_loop:
cmp si,4000
jb txt_l
cmp bx,bp
jb txt_sav
sub bx,bp
txt_sav:
popa
ret
showtxtdump endp
;=================================================
scroll_downtxt proc
pusha
;пiдраховуємо довжину 1 рядка
mov bx,word ptr fs:[filepointer]
add bx,offset file
xor dx,dx
no_len:
inc dx
cmp byte ptr fs:[bx],10
je len_ok
inc bx
cmp dx,80
jb no_len
len_ok:
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767
sub ax,dx
cmp bx,ax
jae tok_scru
add bx,dx
tok_scru:
mov word ptr fs:[filepointer],bx
call showtxtdump
popa
ret
scroll_downtxt endp
;=================================================
scroll_uptxt proc
pusha
;пiдраховуємо довжину 1 рядка
mov bx,word ptr fs:[filepointer]
add bx,offset file-2
xor dx,dx
uno_len:
inc dx
cmp byte ptr fs:[bx],13
je ulen_ok
dec bx
cmp dx,80
jb uno_len
ulen_ok:
mov bx,word ptr fs:[filepointer]
cmp bx,dx
ja tok_up
mov bx,dx
tok_up:
sub bx,dx
mov word ptr fs:[filepointer],bx
call showtxtdump
popa
ret
scroll_uptxt endp
;=================================
scroll_pgdntxt proc
pusha
mov cx,24
tsdn: call scroll_downtxt
loop tsdn
popa
ret
scroll_pgdntxt endp
;=================================
scroll_pguptxt proc
pusha
mov cx,24
tsdu: call scroll_uptxt
loop tsdu
popa
ret
scroll_pguptxt endp
;================================== H E X
;показ дампа для вигляду hex
showhexdump proc
pusha
mov cx,20*25
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
mov ax,0b800h
mov es,ax
xor si,si
xor di,di
hex_l: mov al,byte ptr fs:[bx]
inc bx
mov dl,al
and dl,15
add dl,30h
cmp dl,39h
jbe h_1
add dl,7
h_1:
mov byte ptr es:[si+2],dl
;==============
mov dl,al
shr dl,4
add dl,30h
cmp dl,39h
jbe h_2
add dl,7
h_2:
mov byte ptr es:[si],dl
mov byte ptr es:[si+4],0
add si,6
inc di
cmp di,20
jne ok_hex
xor di,di
add si,(80-3*20)*2
ok_hex:
cmp bx,bp
jb hex_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
hex_loop:
loop hex_l
cmp bx,bp
jb hex_sav
sub bx,bp
hex_sav:
popa
ret
showhexdump endp
;=================================================
scroll_downhex proc
pusha
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767-20
cmp bx,ax
jae hok_scru
add bx,20
hok_scru:
mov word ptr fs:[filepointer],bx
call showhexdump
popa
ret
scroll_downhex endp
;=================================================
scroll_uphex proc
pusha
mov bx,word ptr fs:[filepointer]
cmp bx,20
ja hok_up
mov bx,20
hok_up:
sub bx,20
mov word ptr fs:[filepointer],bx
call showhexdump
popa
ret
scroll_uphex endp
;=================================
scroll_pgdnhex proc
pusha
mov cx,24
hsdn: call scroll_downhex
loop hsdn
popa
ret
scroll_pgdnhex endp
;=================================
scroll_pguphex proc
pusha
mov cx,24
hsdu: call scroll_uphex
loop hsdu
popa
ret
scroll_pguphex endp
;================================== B I N
;показ дампа для вигляду bin
showbindump proc
pusha
mov cx,2000
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
mov ax,0b800h
mov es,ax
xor si,si
bin_l: mov al,byte ptr fs:[bx]
mov byte ptr es:[si],al
inc bx
cmp bx,bp
jb bin_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
bin_loop:
inc si
inc si
loop bin_l
cmp bx,bp
jb bin_sav
sub bx,bp
bin_sav:
popa
ret
showbindump endp
;=================================================
scroll_downbin proc
pusha
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767-80
cmp bx,ax
jae ok_scru
add bx,80
ok_scru:
mov word ptr fs:[filepointer],bx
call showbindump
popa
ret
scroll_downbin endp
;=================================================
scroll_upbin proc
pusha
mov bx,word ptr fs:[filepointer]
cmp bx,80
ja ok_up
mov bx,80
ok_up:
sub bx,80
mov word ptr fs:[filepointer],bx
call showbindump
popa
ret
scroll_upbin endp
;=================================
scroll_pgdnbin proc
pusha
mov cx,24
sdn: call scroll_downbin
loop sdn
popa
ret
scroll_pgdnbin endp
;=================================
scroll_pgupbin proc
pusha
mov cx,24
sdu: call scroll_upbin
loop sdu
popa
ret
scroll_pgupbin endp
;==================================
getfilename proc
pusha
;введення iменi файла
push fs
pop ds
mov dx,offset msg_enter
mov ah,9
int 21h
mov bx,offset filename
ent_l: mov ah,1
int 21h
cmp al,13
mov byte ptr ds:[bx],al
inc bx
cmp al,13
jne ent_l
dec bx
mov byte ptr ds:[bx],0
;визначення типу файла
mov bx,offset filename
dec bx
name_s: inc bx
mov al,byte ptr fs:[bx]
cmp al,0
jne name_s
sub bx,2
mov ah,byte ptr fs:[bx]
mov al,byte ptr fs:[bx+1]
cmp ax,6578h ;HEX
jne other1
mov byte ptr fs:[filetype],1
jmp typ_exit
other1:
cmp ax,696eh ;BIN
jne other2
mov byte ptr fs:[filetype],0
jmp typ_exit
other2:
mov byte ptr fs:[filetype],2 ;TXT
typ_exit:
popa
ret
getfilename endp
;==================================
readfile proc
pusha
;open
mov ah,3dh
xor al,al
push fs
pop ds
mov dx,offset filename
int 21h
jc read_error
mov bx,ax
;read
mov ah,3fh
mov cx,32767
push fs
pop ds
mov dx,offset file
int 21h
jc read_error
mov word ptr fs:[filelength],ax
;close
mov ah,3eh
mov bx,word ptr fs:[handle]
int 21h
popa
ret
read_error:
push fs
pop ds
mov dx,offset errmsg
mov ah,9
int 21h
popa
mov ah,4ch
int 21h
readfile endp
;==================================
begin:
xor ah,ah
mov al,3
int 10h
mov ax,seg handle
mov fs,ax
call getfilename
call readfile
mov ah,5
mov ch,48h
int 16h
work:
mov ah,0
int 16h
mov bl,byte ptr fs:[filetype]
cmp ah,50h
jne work_1
cmp bl,0
jne d1
call scroll_downbin
jmp work
d1: cmp bl,1
jne d2
call scroll_downhex
jmp work
d2:
call scroll_downtxt
jmp work
work_1:
cmp ah,48h
jne work_2
cmp bl,0
jne u1
call scroll_upbin
jmp work
u1: cmp bl,1
jne u2
call scroll_uphex
jmp work
u2:
call scroll_uptxt
jmp work
work_2:
cmp ah,51h
jne work_3
cmp bl,0
jne pd1
call scroll_pgdnbin
jmp work
pd1: cmp bl,1
jne pd2
call scroll_pgdnhex
jmp work
pd2:
call scroll_pgdntxt
jmp work
work_3:
cmp ah,49h
jne work_4
cmp bl,0
jne pu1
call scroll_pgupbin
jmp work
pu1: cmp bl,1
jne pu2
call scroll_pguphex
jmp work
pu2:
call scroll_pguptxt
jmp work
work_4:
cmp ah,1
jne work
mov ah,4ch
int 21h
end start
Блок-схема алгоритму
Кіровоградський Державний Технічний університет
Кафедра програмного забезпеченняКурсова робота
з дисципліни “Програмування на мові ASM-86”
на тему:
“Переглядач для файлів різних типів, з визначенням типу файлу по розширенню і, відповідно, способу перегляду (txt, hex, bin)”
Зміст
Вступ
1. Постановка задачі
2. Обґрунтування вибору методів розв’язку задачі
3. Алгоритм програми
4. Реалізація програми
5. Системні вимоги
6. Інструкція для користувача
Висновки
Використана література
Лістинг програми
Вступ
При роботі з файлами їх буває необхідно переглянути. Для цього необхідно використовувати програми-переглядачі, які забезпечують прокрутку тексту у вікні перегляду.
Іноді виникає потреба переглядати файли не лише в текстовому, а в інших форматах, зокрема в шістнадцятеричному та бінарному. Переглядач, який розроблено в роботі, дозволяє переглядати файли у вказаних трьох режимах.
1. Постановка задачі
Необхідно розробити програму-переглядач файлів у різному вигляді – війковому, шістнадцятеричному або текстовому, тип перегляду повинен визначатися за розширенням файлу.
2. Обґрунтування вибору методів розв’язку задачі
Для роботи з відео зручно використовувати прямий доступ до відеопам’яті, оскільки такий спосіб має високу ефективність. Для роботи з файлами – функції ДОС (21 переривання).
Для обробки клавіатури будемо використовувати функції прокрутки зображення. Ці функції для спрощення будуть різними для різних типів файлів, оскільки необхідно по-різному обчислювати зміщення при прокрутці і по-різному відображати інформацію.
Для програми використовується модель “small” пам’яті, цього достатньо для невеликих файлів.
3. Алгоритм програми
1. Введення імені файла.
2. Визначення типу файла за символами в розширенні.
3. Читання змісту файла в пам’ять.
4. Очікування натиснення клавіші.
5. Якщо натиснута клавіша “сторінка вгору”, то 24 рази викликати ф-цію прокрутки вгору на 24 рядки.
6. Якщо натиснута клавіша “сторінка вниз”, то 24 рази викликати ф-цію прокрутки вниз на 24 рядки.
7. Якщо натиснута клавіша “вниз”, то збільшити вказівник кадру на довжину верхнього рядка.
8. Якщо натиснута клавіша “вгору”, то зменшити вказівник кадру на довжину рядка, який знаходиться над верхнім рядком (поза кадром).
9. Відобразити новий кадр на екран.
10. Якщо натиснута клавіша ESC, то завершити програму.
11. Перейти на п. 4. і продовжити роботу.
4. Реалізація програми
Після початку роботи програма запитує користувача про ім’я файла, який треба переглянути і робить спробу відкрити його. Якщо нема помилки, то з імені визначається його тип і у змінні в програмі заноситься інформація про тип. Введення з клавіатури здійснюється з використанням функцій DOS.
При перегляді використовується запис текстової інформації у відеопам’ять.
Після відкриття і читання файла програма чекає на натиснення клавіші. Використовується переривання 16 – функція 0. Потім аналізується код клавіші. Якщо код = 1 (вихід), то програма завершує роботу. Обробляються також клавіші “вгору”, “вниз”, “сторінка вгору” і “сторінка вниз”. Програма містить 3 групи функцій для кожного типу перегляду, кожна з яких містить по 3 функції: відображення на екрані поточного кадру, прокрутка зображення вгору і вниз.
Програма містить вказівник, який показує відстань від початку тексту до початку поточного кадру. При прокрутці вниз він збільшується (якщо досягне довжини 32000 – стає 0), а при прокрутці вгору – зменшується (якщо 0, то стоїть на місці – прокрутки немає). При натисненні клавіш “сторінка вгору” і “сторінка вниз” прокрутка відбувається на 24 рядки у відповідному напрямку.
5. Системні вимоги
Програма буде працювати на комп’ютері з процесором 80386 і старшим, 640 К і більше пам’яті, монітором CGA і вище. Необхідний дисковий накопичувач.
6. Інструкція для користувача
Для того, щоб переглянути файл, необхідно запустити на виконання файл thbview.exe. На екран буде виведено запит на введення імені файлу, який існує на диску. Можна ввести також і шлях. Якщо не виникне помилки, то після вводу на екрані з’явиться зміст файла у вигляді рядків тексту (файл TXT), шістнадцятеричного коду (файл HEX) або війкового формату (зображення всіх службових символів – BIN). Для переміщення можна використовувати клавіші “вгору”, “вниз”, “PgUp”, “PgDn”. Для виходу натисніть клавішу ESC.При досягненні нижньої границі тексту перегляд буде переведено на початок файла. А при досягненні верхньої границі прокрутка здійснюватись не буде.
Розмір файла повинен бути меншим за 32 кілобайти.
Висновки
Отже, завдяки виконанню роботи, створена програма – переглядач для невеликих текстових файлів з розширеннями TXT (текстовий файл), HEX (шістнадцятеричний формат) та BIN (бінарний). Проілюстровані можливості виведення на екран на асемблері, роботу з файлами та пам’яттю. Програма має вигляд EXE-файла і невибаглива до ресурсів машини.
Використана література
1. Том Сван. Освоение Turbo Assembler. М., Діалектика, 1996
2. Зубков Д.Д. Программирование на Assembler для DOS, WINDOWS и UNIX. М., ДМК, 2000
Лістинг програми
.model compact
.386
.stack 1000
.data
file db 32767 dup(0)
handle dw 0
errmsg db 'Помилка читання!$'
msg_enter db 'Введiть iм`я файла (.txt, .bin, .hex): $'
filename db 40 dup(0)
filelength dw 0
filetype db 2 ;2-txt,0-hex,1-bin
filepointer dw 0 ;вказiвник на початок кадра
.code
start:
jmp begin
;================================== T X T
;показ дампа для вигляду txt
showtxtdump proc
pusha
;очистка
mov ax,0b800h
mov es,ax
cld
mov cx,2000
xor di,di
mov ax,0700h
rep stosw
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
xor si,si
xor di,di
txt_l: mov al,byte ptr fs:[bx]
inc bx
cmp al,10
je tskip
cmp al,13
jne tput
add si,80*2
shl di,1
sub si,di
xor di,di
jmp tskip
tput:
mov byte ptr es:[si],al
add si,2
inc di
tskip:
cmp bx,bp
jb txt_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
txt_loop:
cmp si,4000
jb txt_l
cmp bx,bp
jb txt_sav
sub bx,bp
txt_sav:
popa
ret
showtxtdump endp
;=================================================
scroll_downtxt proc
pusha
;пiдраховуємо довжину 1 рядка
mov bx,word ptr fs:[filepointer]
add bx,offset file
xor dx,dx
no_len:
inc dx
cmp byte ptr fs:[bx],10
je len_ok
inc bx
cmp dx,80
jb no_len
len_ok:
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767
sub ax,dx
cmp bx,ax
jae tok_scru
add bx,dx
tok_scru:
mov word ptr fs:[filepointer],bx
call showtxtdump
popa
ret
scroll_downtxt endp
;=================================================
scroll_uptxt proc
pusha
;пiдраховуємо довжину 1 рядка
mov bx,word ptr fs:[filepointer]
add bx,offset file-2
xor dx,dx
uno_len:
inc dx
cmp byte ptr fs:[bx],13
je ulen_ok
dec bx
cmp dx,80
jb uno_len
ulen_ok:
mov bx,word ptr fs:[filepointer]
cmp bx,dx
ja tok_up
mov bx,dx
tok_up:
sub bx,dx
mov word ptr fs:[filepointer],bx
call showtxtdump
popa
ret
scroll_uptxt endp
;=================================
scroll_pgdntxt proc
pusha
mov cx,24
tsdn: call scroll_downtxt
loop tsdn
popa
ret
scroll_pgdntxt endp
;=================================
scroll_pguptxt proc
pusha
mov cx,24
tsdu: call scroll_uptxt
loop tsdu
popa
ret
scroll_pguptxt endp
;================================== H E X
;показ дампа для вигляду hex
showhexdump proc
pusha
mov cx,20*25
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
mov ax,0b800h
mov es,ax
xor si,si
xor di,di
hex_l: mov al,byte ptr fs:[bx]
inc bx
mov dl,al
and dl,15
add dl,30h
cmp dl,39h
jbe h_1
add dl,7
h_1:
mov byte ptr es:[si+2],dl
;==============
mov dl,al
shr dl,4
add dl,30h
cmp dl,39h
jbe h_2
add dl,7
h_2:
mov byte ptr es:[si],dl
mov byte ptr es:[si+4],0
add si,6
inc di
cmp di,20
jne ok_hex
xor di,di
add si,(80-3*20)*2
ok_hex:
cmp bx,bp
jb hex_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
hex_loop:
loop hex_l
cmp bx,bp
jb hex_sav
sub bx,bp
hex_sav:
popa
ret
showhexdump endp
;=================================================
scroll_downhex proc
pusha
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767-20
cmp bx,ax
jae hok_scru
add bx,20
hok_scru:
mov word ptr fs:[filepointer],bx
call showhexdump
popa
ret
scroll_downhex endp
;=================================================
scroll_uphex proc
pusha
mov bx,word ptr fs:[filepointer]
cmp bx,20
ja hok_up
mov bx,20
hok_up:
sub bx,20
mov word ptr fs:[filepointer],bx
call showhexdump
popa
ret
scroll_uphex endp
;=================================
scroll_pgdnhex proc
pusha
mov cx,24
hsdn: call scroll_downhex
loop hsdn
popa
ret
scroll_pgdnhex endp
;=================================
scroll_pguphex proc
pusha
mov cx,24
hsdu: call scroll_uphex
loop hsdu
popa
ret
scroll_pguphex endp
;================================== B I N
;показ дампа для вигляду bin
showbindump proc
pusha
mov cx,2000
mov bx,word ptr fs:[filepointer]
add bx,offset file
mov bp,offset file
add bp,32767
mov ax,0b800h
mov es,ax
xor si,si
bin_l: mov al,byte ptr fs:[bx]
mov byte ptr es:[si],al
inc bx
cmp bx,bp
jb bin_loop
mov bx,offset file
mov word ptr fs:[filepointer],0
bin_loop:
inc si
inc si
loop bin_l
cmp bx,bp
jb bin_sav
sub bx,bp
bin_sav:
popa
ret
showbindump endp
;=================================================
scroll_downbin proc
pusha
mov bx,word ptr fs:[filepointer]
mov ax,bx
add ax,offset file+32767-80
cmp bx,ax
jae ok_scru
add bx,80
ok_scru:
mov word ptr fs:[filepointer],bx
call showbindump
popa
ret
scroll_downbin endp
;=================================================
scroll_upbin proc
pusha
mov bx,word ptr fs:[filepointer]
cmp bx,80
ja ok_up
mov bx,80
ok_up:
sub bx,80
mov word ptr fs:[filepointer],bx
call showbindump
popa
ret
scroll_upbin endp
;=================================
scroll_pgdnbin proc
pusha
mov cx,24
sdn: call scroll_downbin
loop sdn
popa
ret
scroll_pgdnbin endp
;=================================
scroll_pgupbin proc
pusha
mov cx,24
sdu: call scroll_upbin
loop sdu
popa
ret
scroll_pgupbin endp
;==================================
getfilename proc
pusha
;введення iменi файла
push fs
pop ds
mov dx,offset msg_enter
mov ah,9
int 21h
mov bx,offset filename
ent_l: mov ah,1
int 21h
cmp al,13
mov byte ptr ds:[bx],al
inc bx
cmp al,13
jne ent_l
dec bx
mov byte ptr ds:[bx],0
;визначення типу файла
mov bx,offset filename
dec bx
name_s: inc bx
mov al,byte ptr fs:[bx]
cmp al,0
jne name_s
sub bx,2
mov ah,byte ptr fs:[bx]
mov al,byte ptr fs:[bx+1]
cmp ax,6578h ;HEX
jne other1
mov byte ptr fs:[filetype],1
jmp typ_exit
other1:
cmp ax,696eh ;BIN
jne other2
mov byte ptr fs:[filetype],0
jmp typ_exit
other2:
mov byte ptr fs:[filetype],2 ;TXT
typ_exit:
popa
ret
getfilename endp
;==================================
readfile proc
pusha
;open
mov ah,3dh
xor al,al
push fs
pop ds
mov dx,offset filename
int 21h
jc read_error
mov bx,ax
;read
mov ah,3fh
mov cx,32767
push fs
pop ds
mov dx,offset file
int 21h
jc read_error
mov word ptr fs:[filelength],ax
;close
mov ah,3eh
mov bx,word ptr fs:[handle]
int 21h
popa
ret
read_error:
push fs
pop ds
mov dx,offset errmsg
mov ah,9
int 21h
popa
mov ah,4ch
int 21h
readfile endp
;==================================
begin:
xor ah,ah
mov al,3
int 10h
mov ax,seg handle
mov fs,ax
call getfilename
call readfile
mov ah,5
mov ch,48h
int 16h
work:
mov ah,0
int 16h
mov bl,byte ptr fs:[filetype]
cmp ah,50h
jne work_1
cmp bl,0
jne d1
call scroll_downbin
jmp work
d1: cmp bl,1
jne d2
call scroll_downhex
jmp work
d2:
call scroll_downtxt
jmp work
work_1:
cmp ah,48h
jne work_2
cmp bl,0
jne u1
call scroll_upbin
jmp work
u1: cmp bl,1
jne u2
call scroll_uphex
jmp work
u2:
call scroll_uptxt
jmp work
work_2:
cmp ah,51h
jne work_3
cmp bl,0
jne pd1
call scroll_pgdnbin
jmp work
pd1: cmp bl,1
jne pd2
call scroll_pgdnhex
jmp work
pd2:
call scroll_pgdntxt
jmp work
work_3:
cmp ah,49h
jne work_4
cmp bl,0
jne pu1
call scroll_pgupbin
jmp work
pu1: cmp bl,1
jne pu2
call scroll_pguphex
jmp work
pu2:
call scroll_pguptxt
jmp work
work_4:
cmp ah,1
jne work
mov ah,4ch
int 21h
end start
Блок-схема алгоритму
| Початок |
| Введення імені файла |
| Визначення типу файла |
| Читання змісту файла в пам’ять |
| Очікування натиснення клавіші |
| Кінець |
| Так |
| Ні |
Esc |
| M1 |
| Так |
| Ні |
Up |
| Так |
| Ні |
| Down |
| M2 |
| Прокрутка вгору на 1 рядок |
| Прокрутка вниз на 1 рядок |
| M1 |
| M1 |
| Так |
| Ні |
PgUp |
| Так |
| Ні |
PgDown |
| Прокрутка вниз на 24 рядки |
| Прокрутка вгору на 24 рядки |
| M2 |
| M1 |
| M1 |
| M1 |