Функция чтения файла

org 100h
 
Begin:
        mov ax,3    ;Это мы рассмотрим...
        int 10h     ;...позже
 
    mov dx,offset File_name
    call Open_file          ;Открываем файл
    jc Error_file           ;Ошибка? 
; ------------- Открыли файл ----------------
 
    mov bx,ax
    mov ah,3Fh              ;Функция чтения файла
    mov cx,offset Finish-100h                                                         [B] Вот на этой строчке [/B]
    mov dx,offset Begin     ;! Адрес, куда будут читаться данные
    int 21h
; ------------- Прочитали файл ----------------
 
    call Close_file
 
; ------------ Выводим сообщение --------------
    mov ah,9
    mov dx,offset Mess_ok
    int 21h
    ret
 
; ---------- Не смогли найти / открыть файл -----------------
Error_file:
    mov ah,2
    mov dl,7
    int 21h
    ret
 
 
 
; === Процедуры (подпрограммы) ===
 
; --- Открытие файла ---
Open_file proc
    cmp Handle,0FFFFh
    jne Quit_open
    mov ax,3D00h
    int 21h
    mov Handle,ax
    ret
Quit_open:
    stc
    ret
Handle dw 0FFFFh
Open_file endp
 
; --- Закрытие файла ---
Close_file proc
    mov ah,3Eh
    mov bx,Handle
    int 21h
    ret
Close_file endp
 
 
 
; === Данные ===
 
File_name db 'prog09.com',0
Mess_ok db 'All OK!', 0Ah, 0Dh, '$'
 
Finish equ $       ;Метка конца программы

        mov ax,3    ;Это мы рассмотрим...
        int 10h     ;...позже

org 100h
 
Begin:
        mov ax,3        ;Ýòî ìû ðàññìîòðèì...
        int 10h         ;...ïîçæå
 
        mov dx,File_name
        call Open_file          ;Îòêðûâàåì ôàéë
        jc Error_file           ;Îøèáêà? 
; ------------- Îòêðûëè ôàéë ----------------
 
        mov bx,ax
        mov ah,3Fh              ;Ôóíêöèÿ ÷òåíèÿ ôàéëà
        mov cx,Finish-100h
        mov dx,Begin     ;! Àäðåñ, êóäà áóäóò ÷èòàòüñÿ äàííûå
        int 21h
; ------------- Ïðî÷èòàëè ôàéë ----------------
 
        call Close_file
 
; ------------ Âûâîäèì ñîîáùåíèå --------------
        mov ah,9
        mov dx,Mess_ok
        int 21h
        ret
 
; ---------- Íå ñìîãëè íàéòè / îòêðûòü ôàéë -----------------
Error_file:
        mov ah,2
        mov dl,7
        int 21h
                ret
 
 
 
; === Ïðîöåäóðû (ïîäïðîãðàììû) ===
 
; --- Îòêðûòèå ôàéëà ---
Open_file:
        cmp [Handle],0FFFFh
        jne Quit_open
        mov ax,3D00h
        int 21h
        mov [Handle],ax
        ret
Quit_open:
        stc
        ret
Handle dw 0FFFFh
 
; --- Çàêðûòèå ôàéëà ---
Close_file:
        mov ah,3Eh
        mov bx,[Handle]
        int 21h
        ret
 
 
 
; === Äàííûå ===
 
File_name db 'prog09.com',0
Mess_ok db 'All OK!', 0Ah, 0Dh, '$'
Finish equ $       ;Ìåòêà êîíöà ïðîãðàììû