REFERATUA.ORG.UA — База українських рефератів



Головна Інформатика, комп'ютери, програмування → СТРУКТУРНЕ ПРОГРАМУВАННЯ НА МОВІ АСЕМБЕЛЕРА

опрацювання структур. Отже, якщо ми і не користуємося структурами, проте можемо викликати програму SALUT для переформатування своєї програми, написаної на мові асемблера. Для цього потрібно набрати текст програми як звичайно (скажемо, розділяючи елементи операторів одним пропуском або символом табуляції), потім зберегти його у файлі і ввести команду виду

С>с:salut ім'я_файлу.asm, ім'я_файлу. asm, nul

Програма SALUT переформатує файл ім'я_файлу.АSМ і перейменує неформатовану версію в ім'я_файлу.ВАК.

ЛІСТИНГ ПРОГРАМИ ДРУКУ ASCII ФАЙЛІВ print

; ДРУК ДИСКОВИХ ASCII ФАЙЛІВ

; ТЕХНIЧНI ЗАСОБИ, ЩО ВИКОРИСТОВУЮТЬСЯ:

;Програма виконується на ПК сумiсному з IBM PC базової конфiгурацiї ;монiтор, клавiатура).Мiнiмальнi вимоги: процесор фiрми Intel 8086 i ;старший , наявнiсть 3,5"дисковода або наявнiсть HDD, наявність EPSON-;сумісного матричного принтера.

;Програмне забезпечення: базова версія DOS.

; Для використання програми необхiдно запустити файл print.exe

;і на запрошення до вводу ввести повний шлях до файлу, який потрібно ;роздрукувати. Якщо задати тільки ім'я файлу, то програма шукатиме ;його в текучому каталозі.

ideal

model small

stack 256

;_______________________________________________________________

dataseg

filenam db 32 dup(' ') ;список параметрiв для

maxlen db 32 ;вводу

namelen db 0 ;iменi файлу

sector db 512 dup(' ') ;область вводу файлу

disarea db 120 dup(' ') ;область виводу

count dw 00

endcde dw 00

handle dw 0

openmsg db '***Open error***',10,13

prompt db 'Name of file? '

;-------------------------------------------------------------------

codeseg

start:

mov ax,@data

mov ds,ax

mov es,ax

call clrscr ;очистити екран

call cursor ;встановити курсор

loop1:

mov [endcde],00 ;початкова установка

call inp_filename ;получити iм"я файлу

cmp [namelen],00 ;є запит?

je a90 ;нi - вийти

call open_file ;вiдкрити файл, встановити DTA

cmp [endcde],00 ;помилка при вiдкриттi?

jne a80 ;так - повторний запит

call readsector ;прочитати 1-й сектор

cmp [endcde],00 ;кiнець файлу, нема даних

je a80 ;так - повторити запит

call printing ;роздрукувати сектор

a80:

jmp loop1

a90: jmp buy

; П/програма запиту iменi файлу:

; ------------------------------

proc inp_filename

mov ah,40h ;функцiя виводу на екран

mov bx,01

mov cx,13

lea dx,[prompt]

int 21h

mov ah,0ch

mov al,0ah ;функцiя вводу з клвiатури

lea dx,[filenam]

int 21h

mov bl,[filenam+1] ;записати

xor bh,bh ;00 в кiнець

mov [filenam+bx+2],0 ;iменi файлу

mov [byte namelen],bl

c90: ret

endp inp_filename

; Вiдкриття дискового файлу:

; --------------------------

proc open_file

mov ah,3dh ;функцiя вiдкриття

mov al,00 ;тiльки читання

lea dx,[filenam+2]

int 21h

jnc e20 ;перевiрити ознаку CF

call errormsg ;помилка, якщо встановлена

ret

e20:

mov [handle],ax ;зберегти номер файлу

lea di,[sector]

mov ax,2020h

mov cx,256 ;очистити пропусками

rep stosw ;область сектора

ret

endp open_file

; Пiдготовка i друк даних:

; --------------------------

proc printing

cld ;напрям злiва направо

lea si,[sector] ;початкова установка

g20:

lea di,[disarea]

mov [count],00

g30:

lea dx,[sector+512]

cmp si,dx ;кiнець сектора?

jne g40

call readsector ;так - читати наступний

cmp [endcde],00 ;кiнець файлу?

je g80 ;так - вийти

lea si,[sector]

g40:

mov bx,[count]

cmp bx,80 ;кiнець областi виводу?

jb g50 ;нi - обiйти,

mov [Word bx+di],0d0ah ;так - записати CR/LF

call print

lea di,[disarea] ;початок областi вивлду

g50:

lodsb ;записати [SI] в AL, збiльшити SI

mov bx,[count]

mov [di+bx],al ;записати символ

inc bx

cmp al,1ah ;кiнець файлу

je g80 ;так - вийти

cmp al,0ah ;кiнець строки?

jne g60 ;нi - обiйти

call print ;так - друкувати

jmp g20

g60:

cmp al,09h ;символ табуляцiї

jne g70

dec bx ;так - встановити BX:

mov [byte di+bx],20h ;замiнити ТАВ на пропуск

and bx,0fff8h ;обнулити правi 8 бiт

add bx,08 ;i додати 8

g70:

mov [count],bx

jmp g30

g80: mov bx,[count] ;кiнець файлу

mov [byte di+bx],0ch ;прогон сторiнки

call print ;друкувати останню строку

g90: ret

endp printing

; Пiдпрограма друку:

; ------------------

proc print

mov ah,40h ;функцiя друку

mov bx,04

mov cx,[count] ;довжина

inc cx

lea dx,[disarea]

int 21h

mov ax,2020h ;очистити область виводу

mov cx,60

lea di,[disarea]

rep stosw

ret

endp print

; Пiдпрогама зчитування сектора:

; ------------------------------

proc readsector

mov ah,3fh ;функцiя читання з файлу

mov bx,[handle] ;номер файлу

mov cx,512 ;довжина

xor dx,dx

mov dl,[offset sector] ;буфер

int 21h

mov [endcde],ax

ret

endp readsector

; Прокрутка екрану:

; -----------------

proc clrscr

mov ax,0600h

mov bh,0fh ;встановити колiр

mov cx,0000 ;прокрутка (скролiнг)

mov dx,184fh

int 10h

ret

endp clrscr

; Пoдпрограма встановлення курсора:

; ---------------------------------

proc cursor

mov ah,02 ;функцiя установки

mov bh,00 ;курсора

mov dx,00

int 10h

ret

endp cursor

; Вивiд повiдомлення про помилку:

; -------------------------------

proc errormsg

call clrscr

call cursor

mov ah,40h ;функцiя виводу на екран

mov bx,01 ;номер

mov cx,18 ;довжина

lea dx,[openmsg] ;адрес повiдомлення

int 21h

mov [endcde],01 ;ознака помилки

ret

endp errormsg

buy:

call clrscr

call cursor

mov ah,04ch

mov al,[byte endcde]

int 21h

end start

СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ:

  • П. Абель Язык Ассемблера для IBM PC и программирование /Пер. с англ. Ю.В. Сальников.– М.:Высш. шк., 1992.–447с.:ил.

  • Л. Скэнлон Персональные ЭВМ IBM PC и ХТ. Програмирование на языке Ассемблера.–М.: Радио и связь.–1989.

     використовується при виконанні операцій над числами із знаком (в додатковому коді).


  •  
    Загрузка...