Страница:
ссылки на файлы.
Предполагается, что подкаталог может быть прочитан как любой
другой файл, поэтому вроде бы не составляет труда загрузить его в
память. Но, к сожалению, создатели MS DOS поместили 0 в поле
длины файла для элементов, относящихся к подкаталогам. В резуль-
тате DOS считает, что этот файл имеет нулевую длину и отказывает-
ся читать его. Нет простого способа преодолеть эту проблему.
Высокий уровень.
В Бейсике команда FILES может использовать стандартные имена
путей для вывода подкаталога; например, FILES "B:MAMMALS\BIRDS"
выводит все файлы, содержащиеся в подкаталоге BIRDS. Эта команда
может быть использована и для получения информации о наличии в
каталоге определенного файла. Например, FILES "LEVEL1\NEWDATA"
ищет файл NEWDATA и выводит его имя, если он найден. Хотя это
может быть полезным для пользователя, но часто самой программе
необходимо знать существует или нет указанный файл. Чтобы устано-
вить это попытайтесь открыть файл для последовательного чтения.
Если он не будет найден, то возникнет ошибочное условие 63. Соз-
дайте процедуру обработки ошибок, как описано в [5.4.8]. Затем
используйте переменную, чтобы отметить был ли найден требуемый
файл (в нашем примере переменная "EXISTS"). Если программе не
нужно, что этот файл был открыт, то закройте его перед тем как
двинуться дальше.
100 ON ERROR GOTO 1000 'процедура обработки ошибок
110 EXISTS = 1 'начальное значение "флага"
120 INPUT "Enter filename: ",S$ 'запрос имени файла
130 OPEN S$ FOR INPUT AS #3 'открываем его для послед. чтения
140 IF EXISTS = 0 THEN BEEP: PRINT "File does not exist"
.
.
1000 IF ERR = 53 THEN 1500 'файл не существует?
1010 IF ERR = 64 THEN ... 'другие ошибки
.
1500 EXISTS = 0 'меняем значение флага
1510 RESUME 140 'продолжаем выполнение программы
Средний уровень.
Функции работы через дескрипторы файлов, которые использова-
лись для доступа к корневому каталогу [5.2.1] могут так же просто
обращаться к любому подкаталогу. Чтобы вывести все содержимое
каталога надо просто использовать функцию 4EH для поиска файлов
*.*, а затем повторять поиск, используя функцию 4FH. Когда больше
не будет файлов, то будет установлен флаг переноса, а AL будет
содержать 18. Каждый раз, когда будет обнаружен очередной эле-
мент, в DTA будет записана информация о файле, включая полный его
путь (отмечаем использование DTA в функциях, использующих деск-
риптор файла). Следующий пример выводит полные пути всех обычных
файлов подкаталога.
;---в сегменте данных
PATH DB 'A:MAMMALS\*.*',0
DTAH DB 256 DUP(?)
;---установка DTA
LEA DX,DTA ;DS:DX указывают на DTA
MOV AH,1AH ;функция установки DTA
INT 21H ;устанавливаем DTA
;---ищем первый файл
MOV AH,4EH ;номер функции
LEA DX,PATH ;указываем на строку пути
MOV CX,0 ;только нормальные атрибуты
INT 21H ;ищем *.*
JC ERROR ;обработка ошибок
;---выводим имя файла
NEXT_LINE: LEA BX,DTA ;BX указывает на DTA
ADD BX,30 ;смещение для имени файла
NEXT_CHAR: MOV DL,[BX] ;получаем символ из имени
CMP DL,0 ;проверка на конец строки
JE END_STR ;уход, если конец
MOV AH,2 ;иначе, выодим символ
INT 21H ;
INC BX ;увеличиваем указатель
JMP SHORT NEXT_CHAR ;следующий символ
;---возврат каретки/перевод строки в конце строки
END_STR: MOV AH,2 ;функция вывода символа
MOV DL,13 ;код возврата каретки
INT 21H ;выводим
MOV DL,10 ;код перевода строки
INT 21H ;выводим
;---ищем следующий файл
LEA DX,PATH ;указываем на строку пути
MOV AH,4FH ;номер функции
INT 21H ;ищем следующий файл
JC FINISHED ;если нет, то выход
JMP SHORT NEXT_LINE ;иначе выводим имя файла
FINISHED:
Текущий каталог это каталог, в котором DOS ищет файл, для
которого не указан путь. Если не установлено противного, то теку-
щий каталог является корневым каталогом.
Высокий уровень.
Бейсик устанавливает текущий каталог с помощью команды CHDIR.
За командой должна следовать строка, указывающая путь к каталогу,
на который надо перейти. Строка может содержать до 63-х символов,
включая имя накопителя, и должна быть заключена в кавычки. CHDIR
"C:MAMMALS\PRIMATES\GIBBONS" делает подкталог GIBBONS текущим
каталогом. Чтобы перейти в корневой каталог напишите CHDIR "\"
или CHDIR "B:\".
Бейсик версии 3.0 может сообщать путь к текущему каталогу, как
это делает команда DOS PATH. Просто введите PRINT ENVI-
RON$("PATH").
Средний уровень.
Функция 3BH прерывания 21H устанавливает текущий каталог.
DS:DX должны указывать на путь к каталогу в стандартном виде и
эта строка должна завершаться байтом ASCII 0. Например, B:BIRDS\-
PARROTS\POLLY делает POLLY текущим каталогом. B: может быть опу-
щено, если это текущий накопитель по умолчанию [5.3.1]. Чтобы
сделать текущим корневой каталог накопителя A: напишите A:\. В
примере текущим каталогом устанавливается POLLY:
;---в сегменте данных
PATH DB 'B:BIRDS\PARROTS\POLLY',0
;---делаем POLLY текущим каталогом
MOV AH,3BH ;номер функции
LEA DX,PATH ;DS:DX должны указывать на путь
INT 21H ;устанавливаем текущий каталог
Чтобы определить какой каталог является текущим надо использо-
вать функцию 47H прерывания 21H. DS:SI должны указывать на об-
ласть данных размером 64 байта, в которую будет записан путь. В
DL указывается накопитель, причем 0 = "по умолчанию", 1 = A, 2 =
B и т.д. При возврате функция возвращает строку без имени накопи-
теля. Если был указан несуществующий накопитель, то в AL возвра-
щается код ошибки 15. Строка начинается с имени первого подката-
лога цепочки, а не с обратной косой черты. Байт ASCII 0 сигнали-
зирует о конце строки. В данном примере имя текущего каталога
присваивается переменной "CURRENT_DIR":
;---в сегменте данных
CURRENT_DIR DB 64 DUP(?)
;---получить текущий каталог
MOV AH,47H ;номер функции
LEA SI,CURRENT_DIR ;указываем на область данных
MOV DL,1 ;накопитель A
INT 21H ;помещает строку по адресу DS:SI
Если отсчитывать от нуля, то байты 22-23 32-байтного элемента
каталога содержат время последнего доступа к файлу. Байты 24-25 -
содержат дату. Значение битов следующее:
Время: биты 11-15 часы (0-23)
5-10 минуты (0-59)
0-4 секунды (0-29 с 2-секундным интервалом)
Дата: биты 9-15 год (0-119, смещение с 1980 года)
5-8 месяц (1-12)
0-4 число (1-31)
День недели не записывается; DOS вычисляет его по остальной ин-
формации. Отметим также, что как всегда, младший байт этих
2-байтных значений расположен раньше в памяти, чем старший.
Средний уровень.
Метод доступа к файлу с использованием управляющего блока
файла позволяет получить дату последнего доступа к файлу, но не
время. Когда FCB открывается функцией 0FH прерывания 21H, то
заполняется двухбайтное поле даты в вышеприведенном формате. Это
поле расположено в FCB со смещением 14H [5.3.5].
С другой стороны, доступ к файлу с помощью дескриптора файла
позволяет как получить, так и установить дату и время последнего
доступа к файлу. Функция 57H прерывания 21H выполняет все опера-
ции. Для установки времени и даты поместите номер файла в BX, и 0
в AL. Для получения даты и времени надо поместить в AL 1. В обоих
случаях дата содержится в DX, а время в CX. Значение битов совпа-
дает с тем, что описано в таблице. В техническом руководстве по
MS DOS утверждается, что младшие байты информации находятся в CH
и DH, и наоборот. На самом деле это не так. При возникновении
ошибки устанавливается флаг переноса, а в AX возвращается 1, если
в AL указано неправильное число и 6, если плохой дескриптор фай-
ла. В следующем примере определяется час, в который был последний
лоступ к файлу:
;---в сегменте данных
PATH DB 'B:NEWDATA.BAK',0
;---открываем файл
LEA DX,PATH ;указываем на строку пути
MOV AH,3DH ;функция открытия файла
MOV AL,0 ;открываем для чтения
INT 21H ;открываем файл
JC OPEN_ERROR ;переход на обработку ошибки
;---получаем дату и время доступа к файлу
MOV BX,AX ;помещаем номер файла в BX
MOV AL,0 ;код для чтения времени
MOV AH,57H ;номер функции
INT 21H ;получаем время доступа
JC TIME_ERROR ;переход на обработку ошибок
;---сдвигаем биты, относящиеся к часам, в начало CH
MOV CL,3 ;готовим сдвиг
SHR CH,CL ;теперь CH содержит час доступа
DOS использует шесть различных атрибутов файлов, которые дают
данному файлу определенный статус. Файл может иметь несколько из
этих атрибутов одновременно (но не все). Атрибуты устанавливаются
12-м байтом 32-байтного элемента каталога. Младшие шесть битов
имеют значение, а остальные должны быть равны нулю. Биты такие:
если бит 5 = 1, то файл был изменен со времени последней
архивации
4 = 1, то файл является подкаталогом
3 = 1, то этот элемент является не файлом, а меткой
тома
2 = 1, то файл является "системным"
1 = 1, то файл спрятан при поиске по каталогу
0 = 1, то файл объявлен только для чтения
Бит 5 это архивный бит, используемый программами BACKUP и RESTORE
DOS. Этот бит сьрасывается в 0 после архивации и устанавливается,
когда с файлом снова работали. При следующей архивации неизменен-
ные файлы могут быть обнаружены и проигнорированы.
Высокий уровень.
Бейсик не позволяет Вам устанавливать атрибуты файла прямо.
Справьтесь в [5.2.1], как считать каталог в память, найти нужный
файл, сделать изменения и снова записать его на диск. Как только
каталог помещается в память, байты атрибутов находятся по смеще-
ниям 11, 43, 75 и т.д. Если нужно, то Вы можете прочитать текущие
атрибуты и изменить только один бит, используя технику битовых
операций, описанную в приложении Б. Но легче просто переписать
все атрибуты заново. Будьте внимательны, ошибки могут быть фа-
тальными. В данном примере считываются атрибуты файла с именем
"NEWDATA.AAA".
100 'читаем сектора каталога, начиная с &H2000 и затем ...
110 DEF SEG = &H2000 'указываем на область каталога
120 FILENAME$ = "NEWDATAAAA" 'ищем имя файла без точки
130 DIRPTR = 0 'указатель в каталоге
140 FOR N = 1 TO 112 'проверяем все элементы
150 X$ = "" 'временная строка для имени файла
160 FOR M = 0 TO 10 'для каждого символа имени
170 X$ = X$+PEEK(DIRPTR+M) 'добавляем его к строке
180 NEXT '
190 IF X$ = FILENAME$ THEN 220 'если имя найдено, то уходим
200 NEXT '
210 PRINT "File not found": END 'нет такого файла
220 X = PEEK(DIRPTR+11) 'получаем атрибуты нужного файла
230 IF X AND 32 <> 0 THEN PRINT "File not baked up"
240 IF X AND 16 <> 0 THEN PRINT "File is a subdirectory"
250 IF X AND 8 <> 0 THEN PRINT "Volume label - not a file"
260 IF X AND 4 <> 0 THEN PRINT "File is a system file"
270 IF X AND 2 <> 0 THEN PRINT "File is a hidden file"
280 IF X AND 1 <> 0 THEN PRINT "File is read-only"
Средний уровень.
Функция 43H прерывания 21H может как находить, так и изменять
атрибуты файла, но только если файл был открыт с помощью метода
дескриптора файлов, а не с помощью метода управляющего блока
файла. Нет аналогичной функции для FCB. Байт атрибутов может быть
установлен при создании файла [5.3.2], используя расширенный
управляющий блок файла. Но если Вы последовательно откроете FCB,
измените установку атрибутов и затем закроете файл, то у него
останутся первоначальные атрибуты. Хотя, конечно, Вы можете изме-
нить атрибуты каким-нибудь обходным путем, но намного проще ис-
пользовать функцию, использующую метод дескриптора файлов.
Чтобы использовать функцию 43H, поместите 1 в AL, чтобы прис-
воить файлу байт атрибутов, содержащийся в CX (на самом деле в
CL, поскольку CH равен 0). Можно наоборот поместить в AL 0, чтобы
в CX был возвращен текущий байт атрибутов файла. В обоих случаях
DS:DX должны указывать на строку, дающую путь к файлу. Конец
строки отмечается байтом ASCII 0 (который не входит в число 63-х
символов). В примере статус "hidden" (спрятанный) присваивается
файлу OVERDUE:
;---в сегменте данных
PATH DB 'A:ACCOUNTS',0
;---включаем признак спрятанного файла
MOV AH,43H ;номер функции
MOV AL,0 ;читаем байт атрибутов
LEA DX,PATH ;DS:DX указывают на путь
INT 21H ;байт атрибутов в CX
JC ERROR_ROUTINE ;обработка ошибок
OR CL,10B ;включаем бит 1
MOV AH,43H ;номер функции
MOV AL,1 ;заменяем байт атрибутов
INT 21H ;теперь файл стал спрятанным
Флаг переноса устанавливается при возникновении ошибки. В этом
случае в AX возвращается 2 - если файл не найден, 3 - если не
найден путь и 5 - при других ошибках (нет доступа).
Метка тома для дискеты - это элемент каталога, имеющий спе-
циальный атрибут. Метка занимает первые 11 байтов элемента, отно-
сящиеся к имени и расширению файла. Байт атрибутов по смещению 11
содержит значение 8 (бит 3 = 1). Поля времени и даты заполняются
обычным образом. Одним из свойств этого атрибута является то, что
данный элемент не выводится по команде DIR.
Метка может занимать любую позицию в каталоге. Она ищется
перебором всех байтов атрибутов, пока не будет найдено значение
8. Чтобы стереть метку надо просто поместить E5 в первый байт
соответствующего элемента - сам байт атрибутов можно не менять.
Чтобы изменить метку надо записать новые 11 символов (остаток
надо заполнить пробелами). Чтобы присвоить метку тома диску,
который не имел ее, надо найти пустое место в каталоге и записать
туда метку и соответствующий атрибут, ничего больше не требуется.
Высокий уровень.
Обсуждение в [5.4.2] объясняет как читать и писать абсолютные
сектора в Бейсике. Для стандартной двухсторонней дискеты надо
использовать номер стороны 0, номер дорожки 0, номер сектора - 6
и число секторов для чтения/записи - 7. После того, как данные
записаны в отведенный буфер, примеры, приведенные здесь могут
быть использованы для изменения или добавления метки тома. Затем
сектора должны быть перезаписаны на диск. Будьте внимательны:
ошибка может привести к потере всей информации на диске. Данный
пример ищет метку тома и изменяет ее:
100 'сектора загружены, начиная скажем с &H1000
110 DEF SEG = &H1000
120 DIRPTR = 11 'указатель на байт атрибутов
130 FOR N = 1 TO 112 'проверяем все элементы каталога
140 IF PEEK(DIRPTR) = 8 THEN 180 'уход если метка тома
150 DIRPTR = DIRPTR + 32 'указываем на след. элемент
160 NEXT 'проверяем его атрибут
170 PRINT "No volume label found": END 'метки нет
180 INPUT "Enter new volume label", V$ 'запрос метки
190 IF LEN(V$) > 11 THEN BEEP: PRINT "11 chars only": GOTO 180
200 V$ = V$ + STRING$(11-LEN(V$),32) 'дополняем пробелами
210 DIRPTR = DIRPTR - 11 'возвращаемся на начало элемента
220 FOR N = 1 TO LEN(V$) 'помещаем все символы метки
230 POKE N,MID$(V$,N,1) 'в память
240 NEXT '
250 'теперь осталось перезаписать сектора на диск
Низкий уровень.
В нижеприведенном примере предполагается, что Вы создали буфер
данных размером 3584 байт, для хранения всех семи секторов ката-
лога дискеты емкостью 360K. Буфер называется DIR_AREA. В первом
примере метка тома ищется и выводится, или, если она не найдена,
то выводится сообщение об ее отсутствии. Для удобства область
буфера для секторов отводится в сегменте данных; лучше отвести
память для задачи, а затем освободить ее [1.3.1].
;---в сегменте данных
VOL_STRING DB 'The volume label is $'
NO_LABEL DB 'There is no volume label $'
DIR_AREA DB 3584 DUP(?)
;---читаем 7 секторов каталога
MOV AX,SEG DIR_AREA ;сегмент буфера
MOV ES,AX ;
MOV BX,OFFSET DIR_AREA ;смещение буфера
MOV DL,0 ;номер накопителя
MOV DH,0 ;номер головки
MOV CH,0 ;номер дорожки
MOV CL,6 ;стартовый сектор
MOV AL,7 ;число секторов каталога
MOV AH,2 ;номер функции чтения
INT 13H ;читаем каталог в память
;---ищем метку тома, сравнивая байт атрибутов с 8
MOV CX,112 ;число элементов
ADD BX,11 ;смещение для атрибутов
TRY_AGAIN: MOV AL,[BX] ;берем 1-й элемент
CMP AL,8 ;это метка тома?
JE GOT_IT ;если да, то уход
ADD BX,32 ;иначе на след. элемент
LOOP TRY_AGAIN ;
;---выводим сообщение об отсутствии метки тома
MOV AH,9 ;функция вывода строки
LEA DX,NO_LABEL ;указываем на строку
INT 21H ;выводим ее
JMP SHORT CONTINUE ;на конец
;---выводим строку, дающую метку тома
GOT_IT: MOV AH,9 ;функция вывода строки
LEA DX,VOL_STRING ;указываем на строку
INT 21H ;выводим ее
SUB BX,11 ;указатель на метку
MOV CX,11 ;пишем 11 символов
MOV AH,2 ;функция вывода символов
NEXT_CHAR: MOV DL,[BX] ;символ в DL
INT 21H ;выводим символ
INC BX ;переходим к следующему
LOOP NEXT_CHAR ;
CONTINUE:
Чтобы стереть метку поместите следующий код в GOT_IT:
GOT_IT: MOV AL,0E5H ;код отметки пустого элемента
SUB BX,11 ;указатель на начало элемента
MOV [BX],AL ;меняем первый байт
Чтобы изменить метку тома, надо вместо этого использовать в
GOT_IT следующий код. Предполагается, что Вы подготовили где-то
11-байтную строку NEW_LABEL.
GOT_IT: LEA SI,NEW_LABEL ;SI должен указывать на строку
SUB BX,11 ;BX указывает на начало метки
MOV DI,BX ;помещаем указатель в DI
MOV CX,11 ;пересылка 11 символов
REP MOVSB ;пересылаем строку
Чтобы создать метку можно использовать тот же самый код, но
надо также установить байт атрибутов равный 8 (Вы можете просто
добавить ASCII 8 к строке, содержащей новую метку, так как байт
атрибутов непосредственно следует за самой меткой).
И, наконец, во всех случаях изменения каталога, необходимо
записать каталог обратно на диск. Ошибки при этом непростительны.
;---запись измененных секторов назад на диск
MOV AX,SEG DIR_AREA ;регистры как и при чтении
MOV ES,AX ;
MOV BX,OFFSET DIR_AREA ;
MOV DL,0 ;
MOV DH,0 ;
MOV CH,0 ;
MOV CL,6 ;
MOV AL,7 ;
MOV AH,3 ;номер функции записи секторов
INT 13H ;
Программы, написанные на языках высокого уровня могут просто
открыть файл и вся подготовительная работа для операций с файлами
будет выполнена автоматически. Однако программисты на языке ас-
семблера должны создать специальные области данных, которые ис-
пользуются при операциях ввода/вывода. MS DOS использует два
метода доступа к файлам, метод управляющего блока файла (FCB) и
метод дескриптора файла. Метод FCB сохранился с тех пор, когда MS
DOS не работала с древовидной структурой каталогов, поэтому с его
помощью можно получить доступ только к файлам, находящимся в
текущем каталоге. Метод дескриптора файла позволяет получить
доступ к любому файлу, независимо от того, какой каталог является
текущим.
Поскольку теперь древовидная структура каталогов широко ис-
пользуется, то метод FCB становится анахронизмом, однако MS DOS
продолжает поддерживать этот метод, чтобы сохранить совместимость
со старым программным обеспечением и по этой причине мы рассмот-
рим и его. Однако в своих программах всегда используйте метод
дескриптора файла. Метод дескриптора файла имеет дополнительное
преимущество в том, что он требует меньше подготовительной рабо-
ты. Однако в некоторых приложениях сами операции ввода/вывода при
его использовании могут оказаться более сложными, чем в методе
FCB. Например, операции чтения файла с прямым доступом с исполь-
зованием метода дескриптора файла требуют чтобы программа вычис-
ляла смещение каждой записи в файле, в то время как соответствую-
щая функция FCB получает номер записи и делает необходимые вычис-
ления сама.
Прежде чем читать или писать данные файл должен быть открыт.
Открыть файл это значит создать и инициализировать специальную
область данных, используемую MS DOS, которая содержит важную
информацию о файле, такую как имя файла, имя накопителя, размер
записи файла и т.д. Языки высокого уровня, такие капк Бейсик,
создают эти области автоматически. Одной из таких областей яв-
ляется управляющий блок файла и когда используется метод FCB, то
программа создает этот блок, а MS DOS читает и манипулирует его
содержимым. Первоначально FCB содержит только имя файла и имя
накопителя; после того как файл открывается в него добавляется
информация о размере записи файла и о текущей позиции, с которой
к нему будет осуществляться доступ.
С другой стороны, при доступе с помощью дескриптора файла MS
DOS автоматически создает область данных для файла в произвольном
месте. Затем MS DOS создает уникальный 16-битный код номера файла
и впоследствии этот "номер" используется функциями DOS для иден-
тификации того, с каким из открытых файлов производится операция.
Все что нужно для нахождения файла - это стандартная строка пути,
в которой может быть необязательное имя накопителя и имена подка-
талогов должны быть разделены обратной косой чертой. Эти строки
отличаются от стандартного запроса MS DOS только тем, что они
должны завершаться байтом ASCII 0, с тем чтобы программа могла
найти конец строки (такие строки называются строками ASCIIZ).
Операции по пересылке данных из или в файл требуют, чтобы была
указана область памяти в которую или из которой будут направлять-
ся данные. Такой буфер определяется отведением ему места в памяти
и установкой указателя на его первый байт (т.е. на младший адрес
буфера в памяти). Если передано слишком много данных, то буфер
переполняется и может разрушить данные, расположенные в следующих
адресах памяти. Буфер может использоваться как промежуточный
буфер, работающий только с небольшой порцией данных для операций
чтения или записи. Или буфер может помещаться в область памяти, в
которой программа действительно хранит и обрабатывает данные.
Функции доступа через управляющий блок файла определяют проме-
жуточный буфер с помощью указателя, которой все время хранится
операционной системой. Этот буфер называется область обмена с
диском (disk transfer area) или DTA. К сожалению, техническая
документация по IBM PC часто называет термином DTA указатель на
буфер, хотя на самом деле правильно называть его указателем на
DTA. После того как указатель на DTA установлен с помощью спе-
циальной функции, все файловые операции используют его до тех пор
пока он не будет изменен. С другой стороны, функции, использующие
дескриптор файла, должны указывать стартовый адрес буфера обмена
каждый раз при вызове функции и они игнорируют указатель на DTA,
используемый функциями управляющего блока файла. Рисунок 5-2
показывает два метода доступа к файлам.
Программы могут экономить часть работы, назначая накопитель по
умолчанию, на котором содержатся файлы данных. Если в начале
программы запросить у пользователя какой накопитель он будет
использовать, то впоследствии не будет сомнений к какому накопи-
телю следует обращаться.
Высокий уровень.
В приведенной программе на Бейсике текущий накопитель по умол-
чанию переключается с помощью процедуры на машинном языке. Проце-
дура имеет длину всего 7 байтов. Она помещается в строку X$, а
переменная Z служит указателем на первый байт процедуры. В прило-
жении Г объясняется как вставлять ассемблерные процедуры в прог-
раммы на Бейсике. Номер накопителя устанавливается в строке 110,
причем 0 = A, 1 = B и т.д. Если назначить накопителем по умолча-
нию несуществующий накопитель, то ошибки не будет, поэтому будьте
внимательны. Не пытайтесь объединить строки 120 и 130 этой проце-
дуры, поскольку в этом случае интерпретатор Бейсика будет обраба-
тывать их неправильно.
100 DEF SEG 'сегмент на начало области Бейсика
110 NUM = 0 'выбираем накопитель A
120 X$ = CHR$(180)+CHR$(14)+CHR$(178)+CHR$(NUM)+CHR$(205)+
CHR(33)+CHR$(223)
130 Y = VARPTR(X$) 'получаем дескриптор строки (адрес в Y+1)
140 Z = PEEK(Y+1)+PEEK(Y+2)*256 'вычисляем адрес строки
150 CALL Z 'выполняем машинную процедуру
Средний уровень.
Функция EH прерывания 21H устанавливает накопитель по умолча-
нию. Надо просто поместить номер накопителя (0 = A, 1 = B и т.д.)
в DL и выполнить прерывание. Эта функция возвращает в AL число
накопителей на машине. Отметим, что когда у машины имеется только
один накопитель, то возвращается число 2. Лучший способ определе-
ния числа накопителей у машины описан в [1.1.5].
MOV AH,0EH ;номер функции
MOV DL,1 ;код для накопителя B
INT 21H ;устанавливаем накопитель по умолчанию
Функция 19H прерывания 21H сообщает какой из накопителей яв-
ляется накопителем по умолчанию. Для этой функции нет входных
регистров. При возврате в AL содержится кодовый номер, где 0 = A,
1 = B и т.д.
Можно создать файл, не помещая в него никакой информации.
Создается элемент каталога, а длина файла устанавливается равной
0. При удалении файла соответствующий элемент каталога на самом
деле не удаляется, он просто становится недействующим за счет
изменения первого байта элемента (первого символа имени файла) на
E5H. Впоследствии этот элемент может быть перезаписан при созда-
нии нового файла. Во время удаления файла вносятся также измене-
ния в таблицу размещения файлов, с тем чтобы сектора используемые
этим файлом были доступны для других файлов. Само содержимое этих
секторов при этом не стирается. Поэтому можно восстановить уда-
ленный файл - однако предупреждаем, что операции с таблицей раз-
мещения файлов надо производить очень осторожно.
Высокий уровень.
Бейсик не имеет специальной команды для создания файла. Вместо
этого при открытии файла указанное имя ищется в каталоге и, если
оно не найдено, то создается новый файл. Если открыть новый файл,
а затем закрыть его не производя в него записи, то он останется
в каталоге с длиной 1 байт и ему будет отведен кластер дискового
пространства (единственный байт - это символ Ctrl-Z - ASCII 26 -
который используется в качестве признака конца стандартного текс-
тового файла). Детали оператора OPEN см. в [5.3.3].
Наоборот, оператор CLOSE не уничтожает файл. Вместо этого для
уничтожения файла используется оператор KILL. Для того чтобы
уничтожить файл его не надо открывать. Просто поместите имя файла
в кавычках, например KILL "A:ACCOUNT.DAT". Или, если файл нахо-
дится в другом подкаталоге, то надо использовать стандартный путь
к файлу, например KILL "A:\FINANCES\ACCOUNT.DAT". В обоих случаях
имя накопителя необходимо указывать только если файл находится не
Предполагается, что подкаталог может быть прочитан как любой
другой файл, поэтому вроде бы не составляет труда загрузить его в
память. Но, к сожалению, создатели MS DOS поместили 0 в поле
длины файла для элементов, относящихся к подкаталогам. В резуль-
тате DOS считает, что этот файл имеет нулевую длину и отказывает-
ся читать его. Нет простого способа преодолеть эту проблему.
Высокий уровень.
В Бейсике команда FILES может использовать стандартные имена
путей для вывода подкаталога; например, FILES "B:MAMMALS\BIRDS"
выводит все файлы, содержащиеся в подкаталоге BIRDS. Эта команда
может быть использована и для получения информации о наличии в
каталоге определенного файла. Например, FILES "LEVEL1\NEWDATA"
ищет файл NEWDATA и выводит его имя, если он найден. Хотя это
может быть полезным для пользователя, но часто самой программе
необходимо знать существует или нет указанный файл. Чтобы устано-
вить это попытайтесь открыть файл для последовательного чтения.
Если он не будет найден, то возникнет ошибочное условие 63. Соз-
дайте процедуру обработки ошибок, как описано в [5.4.8]. Затем
используйте переменную, чтобы отметить был ли найден требуемый
файл (в нашем примере переменная "EXISTS"). Если программе не
нужно, что этот файл был открыт, то закройте его перед тем как
двинуться дальше.
100 ON ERROR GOTO 1000 'процедура обработки ошибок
110 EXISTS = 1 'начальное значение "флага"
120 INPUT "Enter filename: ",S$ 'запрос имени файла
130 OPEN S$ FOR INPUT AS #3 'открываем его для послед. чтения
140 IF EXISTS = 0 THEN BEEP: PRINT "File does not exist"
.
.
1000 IF ERR = 53 THEN 1500 'файл не существует?
1010 IF ERR = 64 THEN ... 'другие ошибки
.
1500 EXISTS = 0 'меняем значение флага
1510 RESUME 140 'продолжаем выполнение программы
Средний уровень.
Функции работы через дескрипторы файлов, которые использова-
лись для доступа к корневому каталогу [5.2.1] могут так же просто
обращаться к любому подкаталогу. Чтобы вывести все содержимое
каталога надо просто использовать функцию 4EH для поиска файлов
*.*, а затем повторять поиск, используя функцию 4FH. Когда больше
не будет файлов, то будет установлен флаг переноса, а AL будет
содержать 18. Каждый раз, когда будет обнаружен очередной эле-
мент, в DTA будет записана информация о файле, включая полный его
путь (отмечаем использование DTA в функциях, использующих деск-
риптор файла). Следующий пример выводит полные пути всех обычных
файлов подкаталога.
;---в сегменте данных
PATH DB 'A:MAMMALS\*.*',0
DTAH DB 256 DUP(?)
;---установка DTA
LEA DX,DTA ;DS:DX указывают на DTA
MOV AH,1AH ;функция установки DTA
INT 21H ;устанавливаем DTA
;---ищем первый файл
MOV AH,4EH ;номер функции
LEA DX,PATH ;указываем на строку пути
MOV CX,0 ;только нормальные атрибуты
INT 21H ;ищем *.*
JC ERROR ;обработка ошибок
;---выводим имя файла
NEXT_LINE: LEA BX,DTA ;BX указывает на DTA
ADD BX,30 ;смещение для имени файла
NEXT_CHAR: MOV DL,[BX] ;получаем символ из имени
CMP DL,0 ;проверка на конец строки
JE END_STR ;уход, если конец
MOV AH,2 ;иначе, выодим символ
INT 21H ;
INC BX ;увеличиваем указатель
JMP SHORT NEXT_CHAR ;следующий символ
;---возврат каретки/перевод строки в конце строки
END_STR: MOV AH,2 ;функция вывода символа
MOV DL,13 ;код возврата каретки
INT 21H ;выводим
MOV DL,10 ;код перевода строки
INT 21H ;выводим
;---ищем следующий файл
LEA DX,PATH ;указываем на строку пути
MOV AH,4FH ;номер функции
INT 21H ;ищем следующий файл
JC FINISHED ;если нет, то выход
JMP SHORT NEXT_LINE ;иначе выводим имя файла
FINISHED:
Текущий каталог это каталог, в котором DOS ищет файл, для
которого не указан путь. Если не установлено противного, то теку-
щий каталог является корневым каталогом.
Высокий уровень.
Бейсик устанавливает текущий каталог с помощью команды CHDIR.
За командой должна следовать строка, указывающая путь к каталогу,
на который надо перейти. Строка может содержать до 63-х символов,
включая имя накопителя, и должна быть заключена в кавычки. CHDIR
"C:MAMMALS\PRIMATES\GIBBONS" делает подкталог GIBBONS текущим
каталогом. Чтобы перейти в корневой каталог напишите CHDIR "\"
или CHDIR "B:\".
Бейсик версии 3.0 может сообщать путь к текущему каталогу, как
это делает команда DOS PATH. Просто введите PRINT ENVI-
RON$("PATH").
Средний уровень.
Функция 3BH прерывания 21H устанавливает текущий каталог.
DS:DX должны указывать на путь к каталогу в стандартном виде и
эта строка должна завершаться байтом ASCII 0. Например, B:BIRDS\-
PARROTS\POLLY делает POLLY текущим каталогом. B: может быть опу-
щено, если это текущий накопитель по умолчанию [5.3.1]. Чтобы
сделать текущим корневой каталог накопителя A: напишите A:\. В
примере текущим каталогом устанавливается POLLY:
;---в сегменте данных
PATH DB 'B:BIRDS\PARROTS\POLLY',0
;---делаем POLLY текущим каталогом
MOV AH,3BH ;номер функции
LEA DX,PATH ;DS:DX должны указывать на путь
INT 21H ;устанавливаем текущий каталог
Чтобы определить какой каталог является текущим надо использо-
вать функцию 47H прерывания 21H. DS:SI должны указывать на об-
ласть данных размером 64 байта, в которую будет записан путь. В
DL указывается накопитель, причем 0 = "по умолчанию", 1 = A, 2 =
B и т.д. При возврате функция возвращает строку без имени накопи-
теля. Если был указан несуществующий накопитель, то в AL возвра-
щается код ошибки 15. Строка начинается с имени первого подката-
лога цепочки, а не с обратной косой черты. Байт ASCII 0 сигнали-
зирует о конце строки. В данном примере имя текущего каталога
присваивается переменной "CURRENT_DIR":
;---в сегменте данных
CURRENT_DIR DB 64 DUP(?)
;---получить текущий каталог
MOV AH,47H ;номер функции
LEA SI,CURRENT_DIR ;указываем на область данных
MOV DL,1 ;накопитель A
INT 21H ;помещает строку по адресу DS:SI
Если отсчитывать от нуля, то байты 22-23 32-байтного элемента
каталога содержат время последнего доступа к файлу. Байты 24-25 -
содержат дату. Значение битов следующее:
Время: биты 11-15 часы (0-23)
5-10 минуты (0-59)
0-4 секунды (0-29 с 2-секундным интервалом)
Дата: биты 9-15 год (0-119, смещение с 1980 года)
5-8 месяц (1-12)
0-4 число (1-31)
День недели не записывается; DOS вычисляет его по остальной ин-
формации. Отметим также, что как всегда, младший байт этих
2-байтных значений расположен раньше в памяти, чем старший.
Средний уровень.
Метод доступа к файлу с использованием управляющего блока
файла позволяет получить дату последнего доступа к файлу, но не
время. Когда FCB открывается функцией 0FH прерывания 21H, то
заполняется двухбайтное поле даты в вышеприведенном формате. Это
поле расположено в FCB со смещением 14H [5.3.5].
С другой стороны, доступ к файлу с помощью дескриптора файла
позволяет как получить, так и установить дату и время последнего
доступа к файлу. Функция 57H прерывания 21H выполняет все опера-
ции. Для установки времени и даты поместите номер файла в BX, и 0
в AL. Для получения даты и времени надо поместить в AL 1. В обоих
случаях дата содержится в DX, а время в CX. Значение битов совпа-
дает с тем, что описано в таблице. В техническом руководстве по
MS DOS утверждается, что младшие байты информации находятся в CH
и DH, и наоборот. На самом деле это не так. При возникновении
ошибки устанавливается флаг переноса, а в AX возвращается 1, если
в AL указано неправильное число и 6, если плохой дескриптор фай-
ла. В следующем примере определяется час, в который был последний
лоступ к файлу:
;---в сегменте данных
PATH DB 'B:NEWDATA.BAK',0
;---открываем файл
LEA DX,PATH ;указываем на строку пути
MOV AH,3DH ;функция открытия файла
MOV AL,0 ;открываем для чтения
INT 21H ;открываем файл
JC OPEN_ERROR ;переход на обработку ошибки
;---получаем дату и время доступа к файлу
MOV BX,AX ;помещаем номер файла в BX
MOV AL,0 ;код для чтения времени
MOV AH,57H ;номер функции
INT 21H ;получаем время доступа
JC TIME_ERROR ;переход на обработку ошибок
;---сдвигаем биты, относящиеся к часам, в начало CH
MOV CL,3 ;готовим сдвиг
SHR CH,CL ;теперь CH содержит час доступа
DOS использует шесть различных атрибутов файлов, которые дают
данному файлу определенный статус. Файл может иметь несколько из
этих атрибутов одновременно (но не все). Атрибуты устанавливаются
12-м байтом 32-байтного элемента каталога. Младшие шесть битов
имеют значение, а остальные должны быть равны нулю. Биты такие:
если бит 5 = 1, то файл был изменен со времени последней
архивации
4 = 1, то файл является подкаталогом
3 = 1, то этот элемент является не файлом, а меткой
тома
2 = 1, то файл является "системным"
1 = 1, то файл спрятан при поиске по каталогу
0 = 1, то файл объявлен только для чтения
Бит 5 это архивный бит, используемый программами BACKUP и RESTORE
DOS. Этот бит сьрасывается в 0 после архивации и устанавливается,
когда с файлом снова работали. При следующей архивации неизменен-
ные файлы могут быть обнаружены и проигнорированы.
Высокий уровень.
Бейсик не позволяет Вам устанавливать атрибуты файла прямо.
Справьтесь в [5.2.1], как считать каталог в память, найти нужный
файл, сделать изменения и снова записать его на диск. Как только
каталог помещается в память, байты атрибутов находятся по смеще-
ниям 11, 43, 75 и т.д. Если нужно, то Вы можете прочитать текущие
атрибуты и изменить только один бит, используя технику битовых
операций, описанную в приложении Б. Но легче просто переписать
все атрибуты заново. Будьте внимательны, ошибки могут быть фа-
тальными. В данном примере считываются атрибуты файла с именем
"NEWDATA.AAA".
100 'читаем сектора каталога, начиная с &H2000 и затем ...
110 DEF SEG = &H2000 'указываем на область каталога
120 FILENAME$ = "NEWDATAAAA" 'ищем имя файла без точки
130 DIRPTR = 0 'указатель в каталоге
140 FOR N = 1 TO 112 'проверяем все элементы
150 X$ = "" 'временная строка для имени файла
160 FOR M = 0 TO 10 'для каждого символа имени
170 X$ = X$+PEEK(DIRPTR+M) 'добавляем его к строке
180 NEXT '
190 IF X$ = FILENAME$ THEN 220 'если имя найдено, то уходим
200 NEXT '
210 PRINT "File not found": END 'нет такого файла
220 X = PEEK(DIRPTR+11) 'получаем атрибуты нужного файла
230 IF X AND 32 <> 0 THEN PRINT "File not baked up"
240 IF X AND 16 <> 0 THEN PRINT "File is a subdirectory"
250 IF X AND 8 <> 0 THEN PRINT "Volume label - not a file"
260 IF X AND 4 <> 0 THEN PRINT "File is a system file"
270 IF X AND 2 <> 0 THEN PRINT "File is a hidden file"
280 IF X AND 1 <> 0 THEN PRINT "File is read-only"
Средний уровень.
Функция 43H прерывания 21H может как находить, так и изменять
атрибуты файла, но только если файл был открыт с помощью метода
дескриптора файлов, а не с помощью метода управляющего блока
файла. Нет аналогичной функции для FCB. Байт атрибутов может быть
установлен при создании файла [5.3.2], используя расширенный
управляющий блок файла. Но если Вы последовательно откроете FCB,
измените установку атрибутов и затем закроете файл, то у него
останутся первоначальные атрибуты. Хотя, конечно, Вы можете изме-
нить атрибуты каким-нибудь обходным путем, но намного проще ис-
пользовать функцию, использующую метод дескриптора файлов.
Чтобы использовать функцию 43H, поместите 1 в AL, чтобы прис-
воить файлу байт атрибутов, содержащийся в CX (на самом деле в
CL, поскольку CH равен 0). Можно наоборот поместить в AL 0, чтобы
в CX был возвращен текущий байт атрибутов файла. В обоих случаях
DS:DX должны указывать на строку, дающую путь к файлу. Конец
строки отмечается байтом ASCII 0 (который не входит в число 63-х
символов). В примере статус "hidden" (спрятанный) присваивается
файлу OVERDUE:
;---в сегменте данных
PATH DB 'A:ACCOUNTS',0
;---включаем признак спрятанного файла
MOV AH,43H ;номер функции
MOV AL,0 ;читаем байт атрибутов
LEA DX,PATH ;DS:DX указывают на путь
INT 21H ;байт атрибутов в CX
JC ERROR_ROUTINE ;обработка ошибок
OR CL,10B ;включаем бит 1
MOV AH,43H ;номер функции
MOV AL,1 ;заменяем байт атрибутов
INT 21H ;теперь файл стал спрятанным
Флаг переноса устанавливается при возникновении ошибки. В этом
случае в AX возвращается 2 - если файл не найден, 3 - если не
найден путь и 5 - при других ошибках (нет доступа).
Метка тома для дискеты - это элемент каталога, имеющий спе-
циальный атрибут. Метка занимает первые 11 байтов элемента, отно-
сящиеся к имени и расширению файла. Байт атрибутов по смещению 11
содержит значение 8 (бит 3 = 1). Поля времени и даты заполняются
обычным образом. Одним из свойств этого атрибута является то, что
данный элемент не выводится по команде DIR.
Метка может занимать любую позицию в каталоге. Она ищется
перебором всех байтов атрибутов, пока не будет найдено значение
8. Чтобы стереть метку надо просто поместить E5 в первый байт
соответствующего элемента - сам байт атрибутов можно не менять.
Чтобы изменить метку надо записать новые 11 символов (остаток
надо заполнить пробелами). Чтобы присвоить метку тома диску,
который не имел ее, надо найти пустое место в каталоге и записать
туда метку и соответствующий атрибут, ничего больше не требуется.
Высокий уровень.
Обсуждение в [5.4.2] объясняет как читать и писать абсолютные
сектора в Бейсике. Для стандартной двухсторонней дискеты надо
использовать номер стороны 0, номер дорожки 0, номер сектора - 6
и число секторов для чтения/записи - 7. После того, как данные
записаны в отведенный буфер, примеры, приведенные здесь могут
быть использованы для изменения или добавления метки тома. Затем
сектора должны быть перезаписаны на диск. Будьте внимательны:
ошибка может привести к потере всей информации на диске. Данный
пример ищет метку тома и изменяет ее:
100 'сектора загружены, начиная скажем с &H1000
110 DEF SEG = &H1000
120 DIRPTR = 11 'указатель на байт атрибутов
130 FOR N = 1 TO 112 'проверяем все элементы каталога
140 IF PEEK(DIRPTR) = 8 THEN 180 'уход если метка тома
150 DIRPTR = DIRPTR + 32 'указываем на след. элемент
160 NEXT 'проверяем его атрибут
170 PRINT "No volume label found": END 'метки нет
180 INPUT "Enter new volume label", V$ 'запрос метки
190 IF LEN(V$) > 11 THEN BEEP: PRINT "11 chars only": GOTO 180
200 V$ = V$ + STRING$(11-LEN(V$),32) 'дополняем пробелами
210 DIRPTR = DIRPTR - 11 'возвращаемся на начало элемента
220 FOR N = 1 TO LEN(V$) 'помещаем все символы метки
230 POKE N,MID$(V$,N,1) 'в память
240 NEXT '
250 'теперь осталось перезаписать сектора на диск
Низкий уровень.
В нижеприведенном примере предполагается, что Вы создали буфер
данных размером 3584 байт, для хранения всех семи секторов ката-
лога дискеты емкостью 360K. Буфер называется DIR_AREA. В первом
примере метка тома ищется и выводится, или, если она не найдена,
то выводится сообщение об ее отсутствии. Для удобства область
буфера для секторов отводится в сегменте данных; лучше отвести
память для задачи, а затем освободить ее [1.3.1].
;---в сегменте данных
VOL_STRING DB 'The volume label is $'
NO_LABEL DB 'There is no volume label $'
DIR_AREA DB 3584 DUP(?)
;---читаем 7 секторов каталога
MOV AX,SEG DIR_AREA ;сегмент буфера
MOV ES,AX ;
MOV BX,OFFSET DIR_AREA ;смещение буфера
MOV DL,0 ;номер накопителя
MOV DH,0 ;номер головки
MOV CH,0 ;номер дорожки
MOV CL,6 ;стартовый сектор
MOV AL,7 ;число секторов каталога
MOV AH,2 ;номер функции чтения
INT 13H ;читаем каталог в память
;---ищем метку тома, сравнивая байт атрибутов с 8
MOV CX,112 ;число элементов
ADD BX,11 ;смещение для атрибутов
TRY_AGAIN: MOV AL,[BX] ;берем 1-й элемент
CMP AL,8 ;это метка тома?
JE GOT_IT ;если да, то уход
ADD BX,32 ;иначе на след. элемент
LOOP TRY_AGAIN ;
;---выводим сообщение об отсутствии метки тома
MOV AH,9 ;функция вывода строки
LEA DX,NO_LABEL ;указываем на строку
INT 21H ;выводим ее
JMP SHORT CONTINUE ;на конец
;---выводим строку, дающую метку тома
GOT_IT: MOV AH,9 ;функция вывода строки
LEA DX,VOL_STRING ;указываем на строку
INT 21H ;выводим ее
SUB BX,11 ;указатель на метку
MOV CX,11 ;пишем 11 символов
MOV AH,2 ;функция вывода символов
NEXT_CHAR: MOV DL,[BX] ;символ в DL
INT 21H ;выводим символ
INC BX ;переходим к следующему
LOOP NEXT_CHAR ;
CONTINUE:
Чтобы стереть метку поместите следующий код в GOT_IT:
GOT_IT: MOV AL,0E5H ;код отметки пустого элемента
SUB BX,11 ;указатель на начало элемента
MOV [BX],AL ;меняем первый байт
Чтобы изменить метку тома, надо вместо этого использовать в
GOT_IT следующий код. Предполагается, что Вы подготовили где-то
11-байтную строку NEW_LABEL.
GOT_IT: LEA SI,NEW_LABEL ;SI должен указывать на строку
SUB BX,11 ;BX указывает на начало метки
MOV DI,BX ;помещаем указатель в DI
MOV CX,11 ;пересылка 11 символов
REP MOVSB ;пересылаем строку
Чтобы создать метку можно использовать тот же самый код, но
надо также установить байт атрибутов равный 8 (Вы можете просто
добавить ASCII 8 к строке, содержащей новую метку, так как байт
атрибутов непосредственно следует за самой меткой).
И, наконец, во всех случаях изменения каталога, необходимо
записать каталог обратно на диск. Ошибки при этом непростительны.
;---запись измененных секторов назад на диск
MOV AX,SEG DIR_AREA ;регистры как и при чтении
MOV ES,AX ;
MOV BX,OFFSET DIR_AREA ;
MOV DL,0 ;
MOV DH,0 ;
MOV CH,0 ;
MOV CL,6 ;
MOV AL,7 ;
MOV AH,3 ;номер функции записи секторов
INT 13H ;
Программы, написанные на языках высокого уровня могут просто
открыть файл и вся подготовительная работа для операций с файлами
будет выполнена автоматически. Однако программисты на языке ас-
семблера должны создать специальные области данных, которые ис-
пользуются при операциях ввода/вывода. MS DOS использует два
метода доступа к файлам, метод управляющего блока файла (FCB) и
метод дескриптора файла. Метод FCB сохранился с тех пор, когда MS
DOS не работала с древовидной структурой каталогов, поэтому с его
помощью можно получить доступ только к файлам, находящимся в
текущем каталоге. Метод дескриптора файла позволяет получить
доступ к любому файлу, независимо от того, какой каталог является
текущим.
Поскольку теперь древовидная структура каталогов широко ис-
пользуется, то метод FCB становится анахронизмом, однако MS DOS
продолжает поддерживать этот метод, чтобы сохранить совместимость
со старым программным обеспечением и по этой причине мы рассмот-
рим и его. Однако в своих программах всегда используйте метод
дескриптора файла. Метод дескриптора файла имеет дополнительное
преимущество в том, что он требует меньше подготовительной рабо-
ты. Однако в некоторых приложениях сами операции ввода/вывода при
его использовании могут оказаться более сложными, чем в методе
FCB. Например, операции чтения файла с прямым доступом с исполь-
зованием метода дескриптора файла требуют чтобы программа вычис-
ляла смещение каждой записи в файле, в то время как соответствую-
щая функция FCB получает номер записи и делает необходимые вычис-
ления сама.
Прежде чем читать или писать данные файл должен быть открыт.
Открыть файл это значит создать и инициализировать специальную
область данных, используемую MS DOS, которая содержит важную
информацию о файле, такую как имя файла, имя накопителя, размер
записи файла и т.д. Языки высокого уровня, такие капк Бейсик,
создают эти области автоматически. Одной из таких областей яв-
ляется управляющий блок файла и когда используется метод FCB, то
программа создает этот блок, а MS DOS читает и манипулирует его
содержимым. Первоначально FCB содержит только имя файла и имя
накопителя; после того как файл открывается в него добавляется
информация о размере записи файла и о текущей позиции, с которой
к нему будет осуществляться доступ.
С другой стороны, при доступе с помощью дескриптора файла MS
DOS автоматически создает область данных для файла в произвольном
месте. Затем MS DOS создает уникальный 16-битный код номера файла
и впоследствии этот "номер" используется функциями DOS для иден-
тификации того, с каким из открытых файлов производится операция.
Все что нужно для нахождения файла - это стандартная строка пути,
в которой может быть необязательное имя накопителя и имена подка-
талогов должны быть разделены обратной косой чертой. Эти строки
отличаются от стандартного запроса MS DOS только тем, что они
должны завершаться байтом ASCII 0, с тем чтобы программа могла
найти конец строки (такие строки называются строками ASCIIZ).
Операции по пересылке данных из или в файл требуют, чтобы была
указана область памяти в которую или из которой будут направлять-
ся данные. Такой буфер определяется отведением ему места в памяти
и установкой указателя на его первый байт (т.е. на младший адрес
буфера в памяти). Если передано слишком много данных, то буфер
переполняется и может разрушить данные, расположенные в следующих
адресах памяти. Буфер может использоваться как промежуточный
буфер, работающий только с небольшой порцией данных для операций
чтения или записи. Или буфер может помещаться в область памяти, в
которой программа действительно хранит и обрабатывает данные.
Функции доступа через управляющий блок файла определяют проме-
жуточный буфер с помощью указателя, которой все время хранится
операционной системой. Этот буфер называется область обмена с
диском (disk transfer area) или DTA. К сожалению, техническая
документация по IBM PC часто называет термином DTA указатель на
буфер, хотя на самом деле правильно называть его указателем на
DTA. После того как указатель на DTA установлен с помощью спе-
циальной функции, все файловые операции используют его до тех пор
пока он не будет изменен. С другой стороны, функции, использующие
дескриптор файла, должны указывать стартовый адрес буфера обмена
каждый раз при вызове функции и они игнорируют указатель на DTA,
используемый функциями управляющего блока файла. Рисунок 5-2
показывает два метода доступа к файлам.
Программы могут экономить часть работы, назначая накопитель по
умолчанию, на котором содержатся файлы данных. Если в начале
программы запросить у пользователя какой накопитель он будет
использовать, то впоследствии не будет сомнений к какому накопи-
телю следует обращаться.
Высокий уровень.
В приведенной программе на Бейсике текущий накопитель по умол-
чанию переключается с помощью процедуры на машинном языке. Проце-
дура имеет длину всего 7 байтов. Она помещается в строку X$, а
переменная Z служит указателем на первый байт процедуры. В прило-
жении Г объясняется как вставлять ассемблерные процедуры в прог-
раммы на Бейсике. Номер накопителя устанавливается в строке 110,
причем 0 = A, 1 = B и т.д. Если назначить накопителем по умолча-
нию несуществующий накопитель, то ошибки не будет, поэтому будьте
внимательны. Не пытайтесь объединить строки 120 и 130 этой проце-
дуры, поскольку в этом случае интерпретатор Бейсика будет обраба-
тывать их неправильно.
100 DEF SEG 'сегмент на начало области Бейсика
110 NUM = 0 'выбираем накопитель A
120 X$ = CHR$(180)+CHR$(14)+CHR$(178)+CHR$(NUM)+CHR$(205)+
CHR(33)+CHR$(223)
130 Y = VARPTR(X$) 'получаем дескриптор строки (адрес в Y+1)
140 Z = PEEK(Y+1)+PEEK(Y+2)*256 'вычисляем адрес строки
150 CALL Z 'выполняем машинную процедуру
Средний уровень.
Функция EH прерывания 21H устанавливает накопитель по умолча-
нию. Надо просто поместить номер накопителя (0 = A, 1 = B и т.д.)
в DL и выполнить прерывание. Эта функция возвращает в AL число
накопителей на машине. Отметим, что когда у машины имеется только
один накопитель, то возвращается число 2. Лучший способ определе-
ния числа накопителей у машины описан в [1.1.5].
MOV AH,0EH ;номер функции
MOV DL,1 ;код для накопителя B
INT 21H ;устанавливаем накопитель по умолчанию
Функция 19H прерывания 21H сообщает какой из накопителей яв-
ляется накопителем по умолчанию. Для этой функции нет входных
регистров. При возврате в AL содержится кодовый номер, где 0 = A,
1 = B и т.д.
Можно создать файл, не помещая в него никакой информации.
Создается элемент каталога, а длина файла устанавливается равной
0. При удалении файла соответствующий элемент каталога на самом
деле не удаляется, он просто становится недействующим за счет
изменения первого байта элемента (первого символа имени файла) на
E5H. Впоследствии этот элемент может быть перезаписан при созда-
нии нового файла. Во время удаления файла вносятся также измене-
ния в таблицу размещения файлов, с тем чтобы сектора используемые
этим файлом были доступны для других файлов. Само содержимое этих
секторов при этом не стирается. Поэтому можно восстановить уда-
ленный файл - однако предупреждаем, что операции с таблицей раз-
мещения файлов надо производить очень осторожно.
Высокий уровень.
Бейсик не имеет специальной команды для создания файла. Вместо
этого при открытии файла указанное имя ищется в каталоге и, если
оно не найдено, то создается новый файл. Если открыть новый файл,
а затем закрыть его не производя в него записи, то он останется
в каталоге с длиной 1 байт и ему будет отведен кластер дискового
пространства (единственный байт - это символ Ctrl-Z - ASCII 26 -
который используется в качестве признака конца стандартного текс-
тового файла). Детали оператора OPEN см. в [5.3.3].
Наоборот, оператор CLOSE не уничтожает файл. Вместо этого для
уничтожения файла используется оператор KILL. Для того чтобы
уничтожить файл его не надо открывать. Просто поместите имя файла
в кавычках, например KILL "A:ACCOUNT.DAT". Или, если файл нахо-
дится в другом подкаталоге, то надо использовать стандартный путь
к файлу, например KILL "A:\FINANCES\ACCOUNT.DAT". В обоих случаях
имя накопителя необходимо указывать только если файл находится не