HRyk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код программы:
sega segment
assume cs:sega,ds:sega
org 100h
beg: mov ah,3dh ;открытие файла
mov al,2 ;атрибут 2-чт-з
lea dx,fname
int 21h
mov handle,ax
mov si,0
mov di,0
m1: mov ah,42h ;установка указ
mov al,0 ;код метода смещ 0-абс смещ
mov bx,handle
mov cx,0
mov dx,t ;младш часть смещ t
int 21h ;в начале t=0
mov ah,3fh ;чтение ф
mov bx,handle
mov cx,6 ;сколько читать
lea dx,buf ;куда читать
int 21H
a1: mov di,si
mov ah,01h
int 21h
mov t1[si],al
mov bl,buf[di]
cmp al,bl
jne m4
inc si
inc di
cmp si,6
cmp di,6
jne a1
je m2
m4: add t,6 ;не нашли -переходим к след
inc si
cmp si,6;'''5
jne m1 ;если все просмотрели и не
mov ah,09h ;нашли то выход
lea dx,tx1
int 21h
m3: mov ah,08h
int 21h
int 20h
m2: mov ah,09h ;нашли и вывели на экран
lea dx,tx2
int 21h
mov ah,40h
lea dx,buf
mov cx,6
mov bx,1
int 21h
jmp m3
tx1 db ' не найдена ','$'
tx2 db ' найдена ','$'
t dw 0
fname db 'wesna.dat',0
handle dw ?
buf db ' '
t1 db ' '
sega ends
end beg
Читаем шапку! |
