МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ «ЛЬВІВСЬКА ПОЛІТЕХНІКА »
Кафедра
інформаційних
систем та мереж
Лабораторна робота №7
на тему:
«Процедурне програмування»
Текст програми:
;створити процедуру, яка шукає кількість видань заданого автора...
.model small
.stack 100h
knuga STRUC
avtor db 20 DUP (' ')
nazva db 20 DUP (' ')
rik dw ?
knuga ENDS
.data
msg1 db "kilkist vudan danogo avtora =","$"
avtor1 db "Marchyk "
kilkist db 0
n equ 5
m equ 20
knugu knuga <"Marchyk","ASSEMBLER",2003>,<"Baranovskiy","CI",1998>,<"Korunkevuch","Ci",1997>,<"Marchyk","ASM dlya prof",1990>,<"Kovaluk","C++",1890>
.code
.startup
call Search
.exit 0
Search Proc near
mov cx,n
xor si,si
m1:
lea bx,knugu[si].avtor
push cx
mov cx,m
xor di,di
m2:
push bx
lea bx,avtor1
mov ax,bx[di]
pop bx
push cx
mov cx,bx[di]
cmp al,cl
jne m4;
inc di
pop cx
loop m2
inc kilkist
m3:
pop cx
add si,type knuga
loop m1
mov ah,09h
lea dx,msg1
int 21h
mov al,kilkist
xor al,30h
int 29h
jmp m5
m4:
pop cx
jmp m3
m5: ret
Search Endp
End
Результат виконання програми:
