00 Успешное завершение для всех записей

01 На диске недостаточно места.

Кроме того операция устанавливает в FCB в поле относительного номера

записи и полях текущих номеров блока и записи значения, соответствующие

следующему номеру записи. Например, если были записаны записи с 00 до 24,

то следующий номер записи будет 25 (шест.19).

Для операции прямого блочного чтения необходимо установить в регистре

CX требуемое число записей и использовать функцию шест.27:

MOV AH,27H ;Операция прямого блочного чтения

MOV CX,records ;Установка числа записей

LEA DX,FCBname ;

INT 21H ;Вызов DOS

Операция чтения возвращает в регистре AL следующие значения:

00 Успешное чтение всех записей

01 Прочитана последняя запись файла

02 Прочитано предельное для DTA число записей

03 Прочитана последняя запись файла не полностью.

В регистре CX остается действительное число прочитанных записей, а в

FCB в поле относительного номера записи и полях текущих номеров блока и

записи устанавливаются значения, соответствующие следующему номеру записи.

Если необходимо загрузить в память весь файл, но число записей

неизвестно, то следует после операции открытия разделить размер файла на

длину записи. Например, для размера файла шест.320 (800) и длине записи

шест.20 (32) число записей будет шест.19 (25).

ПРОГРАММА: ПРЯМОЕ БЛОЧНОЕ ЧТЕНИЕ

________________________________________________________________

__________________________________________________________________________

TITLE RANBLOK (COM) Прямое блочное чтение файла

CODESG SEGMENT PARA 'Code'

ASSUME CS:CODESG,DS:CODESG,SS:CODESG,ES:CODESG

ORG 100H

BEGIN: JMP MAIN

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

FCBREC LABEL BYTE ;FCB для дискового файла

FCBDRIV DB 04 ; дисковод D

FCBNAME DB 'NAMEFILE' ; имя файла

FCBEXT DB 'DAT' ; тип файла

FCBBLK DW 0000 ; номер текущего блока

FCBRCSZ DW 0000 ; логическая длина записи

FCBFLZ DD ? ; DOS размер файла

DW ? ; DOS дата

DT ? ; DOS зарезервировано

DB 00 ; номер текущей записи

FCBRNRC DD 00000000 ; относительный номер

DSKRECS DB 1024 DUP(?),'$' ;DTA для блока записей

ENDCODE DB 00

NORECS DW 25 ;Число записей

OPENMSG DB '*** Open error ***',13,10,'$'

READMSG DB '*** Open error ***',13,10,'$'

ROWCTR DB 00

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

MAIN PROC NEAR

CALL Q10CLR ;Очистить экран

CALL Q20CURS ;Установить курсор

CALL E10OPEN ;Открыть файл,

; установить DTA

CMP ENDCODE,00 ;Успешное открытие?

JNZ A30 ; нет - выйти

CALL F10READ ;Читать записи

CALL G10DISP ;Вывод блока на экран

A30: RET ;Завершить программу

MAIN ENDP

; Открыть дисковый файл:

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

E10OPEN PROC NEAR

MOV AH,0FH ;Функция открытия файла

LEA DX,FCBREC

INT 21H

CMP AL,00 ;Успешное открытие?

JNZ A30 ; нет - ошибка

MOV FCBRCSZ,0020H ;Размер записи

MOV AH,1AH

LEA DX,DSKRECS ;Установить адрес DTA

INT 21H

RET

E20:

LEA DX,OPENMSG ;Ошибка открытия файла

CALL X10ERR

RET

E10OPEN ENDP

; Чтение блока:

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

F10READ PROC NEAR

MOV AH,27H ;Прямое чтение блока

MOV CX,NORECS ;Число записей

LEA DX,FCBREC

INT 21H

MOV ENDCODE,AL ;Сохранить код возврата

RET

F10READ ENDP

; Вывод блока на экран:

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

G10DISP PROC NEAR

MOV AH,09 ;Функция вывода на экран

LEA DX,DSKRECS

INT 21H

RET

G10DISP ENDP

; Подпрограмма очистки экрана:

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

Q10CLR PROC NEAR

MOV AX,0600H ;Функция скроллинга

MOV BH,41H ;Цвет (07 для ч/б)

MOV CX,0000

MOV DX,184FH

INT 10H

RET

Q10CLR ENDP

; Подпрограмма установки курсора:

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

Q20CURS PROC NEAR

MOV AH,02 ;Функция установки курсора

MOV BH,00

MOV DH,ROWCTR

MOV DL,00

INT 10H

INC ROWCTR

RET

Q20CURS ENDP

; Подпрограмма сообщения об ошибке диска:

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

X10ERR PROC NEAR

MOV AH,09 ;DX содержит адрес

INT 21H ; сообщения

MOV ENDCODE,01

RET

X10ERR ENDP

CODESG ENDS

END BEGIN

__________________________________________________________________________

Рис.16.4. Прямое блочное чтение.

На рис.16.4 приведена программа, выполняющая блочное чтение файла,

созданного программой на рис.16.1. Программа устанавливает начальный

относительный номер записи 00, в регистре CX - счетчик на 25 записей и

выводит на экран всю информацию из DTA (только для того, чтобы убедиться,

что информация считана). Другие варианты программы могут включать

установку другого начального номера записи и считывание менее 25 записей.

В программе организованы следующие процедуры:

E10OPEN Открывает файл, устанавливает размер записи в FCB равным 32 и

устанавливает адрес DTA.

F10READ Устанавливает число записей равным 25 и выполняет блочное чтение

G10DISP Выводит блок на экран.

Операция чтения преобразует относительный номер записи 00 в FCB в

номер текущего блока 00 и номер текущей записи 00. В конце операции чтения

в FCB текущий номер записи будет содержать шест.19, а относительный номер

записи - шест.19000000.

АБСОЛЮТНЫЕ ОПЕРАЦИИ ДИСКОВОГО ВВОДА-ВЫВОДА

________________________________________________________________

Для непосредственного доступа к диску можно использовать операции

абсолютного чтения и абсолютной записи с помощью функций DOS INT 25H и