ОБРАЩЕНИЕ К ФУНКЦИЯМ ОПЕРАЦИОННОЙ СИСТЕМЫ

своеобразным интерфейсом между языковыми средствами Турбо-Паскаля и функциями операционной системы.

является инициация программного прерывания.

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

из которых может активизировать одну или несколько функций MS DOS.
Одно

а всего в MS DOS имеется более 200 разнообразных функций.

и доступа к средствам операционной системы.
Ни одна из программ

процессами.

Процедуры обслуживания прерываний.

Процедуры работы с датой и временем.

Процедуры и функции

имеет возможность получать от MS-DOS информацию об окружении (environment).
Каждое

окружения:

FUNCTION EnvCount : INTEGER;

FUNCTION EnvStr(index:INTEGER) : STRING;

FUNCTION GetEnv(EnWar:

общее число переменных окружения.
Функция EnvStr

имеет один параметр и возвращает

:= 1 TO EnvCount DO WriteLn(i,' ',EnvStr(I));
ReadLn;
END.
Результат работы

COMSPEC=C:\COMMAND.СОМ
РАТН=С:\NU;C:\;D:\TOOLS;C:\NC;C:\WINDOWS;
SYMANTEC=C:\SYMANTEC
NU=C:\NU

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

Например, используя оператор WriteLn(GetEnv('PATH'))
можно получить на экране следующее:

С:\;С:\NC;\С:\ WINDOWS;D:\TOOLS;

вызов из программы любой другой программы, которую называют программой-потомком.
Важно

Так как программа, которая выполняется в данный момент, по умолчанию захватывает всю свободную динамическую память (кучу) системы, то для загрузки программы-потомка просто нет места.
Для того чтобы выделить для программы-потомка достаточное количество свободного места, необходимо в начале программы указать с помощью директивы компилятора $М минимальный размер выделяемой программе памяти, а если в программе не используется динамическая память, то вовсе не выделять ее.

размер кучи равен всей доступной памяти.
Поэтому вызов программы-потомка невозможен.

— это полный или сокращенный путь к исполняемому файлу и

Если вызов программы не произошел, то это никак не отразится на работе вызвавшей программы, т.е. она будет вести себя одинаково как при успешном, так и при неудачном вызове.

DosError.
Сразу после вызова процедуры Exec необходимо проверить значение переменной

и могут быть следующими :

завершения работы вызываемой программы установить адреса обработчиков Турбо Паскаля.

значений некоторых векторов прерываний.
К ним относятся векторы со следующими

$00, $02, $18, $23, $24, $34, $35,
$36, $37, $38, $39, $3А, $3В, 3С,
$3D, $3Е, $3F, $75.

Начальные значения этих векторов сохраняются в восемнадцати переменных с именами SaveIntXX ,
где ХХ - шестнадцатеричный номер прерывания.

нее рекомендуется вызвать библиотечную процедуру не имеющая параметров SwapVectors, которая

SwapVectors}
{$М 1024,0,0} {освобождение памяти для потомка}
USES Dos;
VAR
ProgName, CmdLine: STRING;
BEGIN
Write('Введите

типа WORD, в младшем байте которого содержится код возврата, переданный

Программа воспринимает с клавиатуры любую команду DOS, затем вызывает командный

PROGRAM ExecDemo;
{$M 1024, 0, 0}
Uses DOS;
var
st: string f79];
BEGIN
write ( ‘Введите команду DOS:’ );
read1n (st);
if st <> '' then
begin
st := '/C '+st,;
SwapVectors;
Exec (GetEnv ('COMSPEC'), st);
SwapVectors
end;
END.

используется обращение к библиотечной функции GetEnv, с помощью которой можно

набор инструментальных средств для использования возможностей MS-DOS, во многих случаях

две процедуры:
Intr и MsDos.

программное прерывание.
IntNo — номер программного прерывания;
REGISTERS — является типом

Type Registers = Record
Case Integer Of
0: (AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags : Word);
1: (AL, AH, BL, BH, CL, CH, DL, DH : Byte);
End;

Поля записи соответствуют регистрам процессора.

работы процедуры прерывания

используются следующие константы масок

регистре AX объем оперативной памяти ЭВМ
PROGRAM IntrDem; {Использование процедуры Intr}
Uses

Оно дает доступ к большому количеству функций различных функций DOS

к процедуре MsDos будет тот же, что и при обращении

('Версия операционной системы :’,r.АL,'.',r.АН)
END.

определить собственные алгоритмы реакции на прерывания операционной системы.
При этом обычно

Для этого Турбо Паскаль позволяет создавать процедуры специального вида —
обработчики прерываний

хотя обычно такие процедуры пишутся на языке ассемблера

INTERRUPT;
begin
. . . . . . .
end;

При активизации процедуры

указывать только необходимые из них.

обстоятельства:
Процедура обработки прерывания не должна искажать работу прерванной программы.
Для

Процедура должна строиться по принципу реентерабельности (повторной входимости)

Ее работа может быть прервана в любой момент другими прерываниями и DOS может обратиться к соответствующей функции до завершения обработки предыдущего прерывания.

В самой процедуре обработки прерывания не рекомендуется обращение к другим функциям DOS.

Так как некоторые из них, в том числе все функции ввода-вывода, нереентерабельны.

нового адреса обработчика прерывания .
IntNo — номер прерывания, которое необходимо

и определить пользовательский обработчик, SetIntVec просто изменяет запись в системной

но при этом старый вектор, т.е. адрес старой процедуры обработки прерываний, не сохраняется.

Адрес старой процедуры обработки прерываний может быть необходим, чтобы через некоторое время восстановить старую реакцию на прерывание.

или чтобы при вызове прерывания сначала срабатывал новый обработчик, который затем передавал бы управление оригинальному (старому) обработчику.

системы не нарушается, когда несколько программ перехватывают одно прерывание.
Резидентная программа

использовать процедуру
GetlntVec(IntNo :BYTE; VAR Vector :POINTER);
которая присваивает параметру-переменной Vector

векторов прерываний.
Uses DOS;
var
i : byte;
p : pointer;
BEGIN
for i := 0

управления процессами - это процедура Keep.
Keep(ExitCode: WORD);
Вызов этой процедуры

памяти, она передает управление командному процессору.
а сама как бы

Для того чтобы активизироваться в нужный момент, программа обязательно должна перехватывать какое-нибудь прерывание

например, прерывание от клавиатуры.

После нажатия нужной комбинации клавиш программа перехватывает управление и выполняет свою задачу.

= 39;
Row = 12;
Attr = $0C;
VAR
Offset : WORD;
Vector : PROCEDURE;
Activ : BOOLEAN;
{$F+} {должен

Time60, Portfo : BYTE;
BEGIN
Time60:=Port[$60); {чтение регистров портов}
Portfo:=Port[$61];
Time62:=Port[$62];
Port[$61]:=Portfo OR

вектора}
SetIntVec($09,Addr(Int09)); {установка нового вектора}
Keep(0); {выйти и остаться резидентной}
END.
Данная

Процедура Int09 перехватывает прерывание клавиатуры и активизируется после нажатия комбинации клавиш [Ctrl+Alt+R], а затем используя прямой доступ к видеопамяти, выводит скэн-коды

После нажатия клавиши [Esc] вывод кодов прекращается.

доступа к системным часам и календарю, а также дает возможность

WORD);
возвращает текущую дату, установленную в системе.
Процедура SetDate

SetDate(year,month,day : WORD);
устанавливает

1980 до 2099
month

значения от 1 до 12
day

значения от 1 до

day_of_week

значения от 0 до 6,
где 0 означает воскресенье.

ARRAY[0..6] OF STRING[11] =('Воскресенье','Понедельник','Вторник',
'Среда', 'Четверг' , 'Пятница', 'Суббота');
VAR
year,month,day,day_of_week :

даты}
Set_Date; {установка новой даты}
END.
Данная программа представляет собой аналог команды DOS DATE.

Если параметры в процедуре SetDate будут заданы некорректно, то вызов процедуры будет проигнорирован и дата не изменится.

minute, second, hund: WORD);
возвращает текущее время, установленное в

Процедура SetTime

SetTime (hour, minute, second, hund: WORD);
устанавливает текущее время в операционной системе.

0 до 23
minute

значения от 0 до 59
second

значения от 0

hund

значения от 0 до 99,
сотые доли секунды

: WORD;
PROCEDURE Get_Time;
BEGIN
GetTime(hour, minute,second,hund);
WriteLn('Текущее время',hour,':',minute,':',second,':',hund’);
END;
PROCEDURE Set_Time;
BEGIN
Write('Введите

Time:Longlnt);
возвращает время и дату создания файла.
Переменная F должна быть файловой

Время и дата возвращаются в переменной Time в упакованном формате в виде двойного слова (32 бита)

для их распаковки используется процедура UnpackTime

DT: DateTime);
преобразовывает значение, переданное в параметре Time, в запись DT

Тип DateTime описан в модуле Dos следующим образом:

TYPE
DataTime = RECORD
Year, Month, Day, Hour, Min, Sec : WORD;
END;

время и дату создания файла.
Процедура PackTime

PackTime(VAR T: DateTime; VAR

узнать из переменной DosError.
В случае успешного завершения переменная DosError будет

должен быть открыт для чтения.
Если файл открыт процедурой Rewrite, то

TEXT;
hour, minute, second, hund : WORD; {переменные для GetTime}
FileTime : LongInt;

minute,second,hund);
WriteLn('Текущее время',FZero(hour),':',FZero(minute),':‘,FZero(second));
Rewrite(ff); {создание нового файла}
GetFTime(ff,filetime); {получение времени создания}

и процедур для работы с диском.
С их помощью можно

:Longlnt;
возвращает количество свободных байтов на указанном диске.
Drive — задает номер

и так далее …..

1.
Таким образом, всегда есть возможность проконтролировать правильность вызова функции.

:Longlnt;
возвращает общее количество байтов на указанном диске.
Drive — задает номер

и так далее …..

USES Dos;
BEGIN
WriteLn('Объем вашего диска ', DiskSize(0) DIV 1024,' Kb');
WriteIn('Ha

BOOLEAN);
используется для получения значения флага проверки DOS.
Если VERIFY находится во

Процедура SetVerify

SetVerify( Verify: BOOLEAN);
устанавливает или отменяет флаг проверки в зависимости от параметра значения параметра Verify.

: BOOLEAN;
OffOn : STRING[14];
BEGIN
GetVerify(f);
If f Then OffOn :=

Данная программа получает флаг проверки и изменяет его значение на противоположное.

Паскале приводит к необходимости использования терминологии и средств MS-DOS.
Иногда

модуле Dos определены следующие процедуры и функции :

:WORD; VAR S :SearchRec);
Поиск первого файла с заданным именем и

Path — путь и имя для поиска;
Attr — задаваемые атрибуты файла;
S — переменная типа SearchRec.

Процедура FindNext

FindNext( VAR S :SearchRec);
Поиск следующего файла с заданным именем в указанном каталоге.

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

TYPE
SearchRec = RECORD
Fill : ARRAY[1..21] OF BYTE;
Attr : BYTE;
Time : Longlnt;
Size : Longlnt;
Name : STRING[12];
END;

при вызове FindFirst, если имя файла было задано шаблоном.
Если

SearchRec;
Function FZero(d : WORD) : STRING;
var t : STRING;
Begin
Str(d:0,t);
IF Length(t)=1

DirList : STRING) : PathStr;
Поиск файла в

Path — путь и имя файла, который необходимо найти;
Dirlist — это список каталогов, в которых будет проводиться поиск;
Тип PathStr описан в модуле Dos, как строковый тип STRING[79].

Каталоги в списке должны быть разделены точкой с запятой.

аналогично тому, как это делается в команде MS-DOS PATH.

Поиск всегда начинается с текущего каталога текущего диска.

В случае удачного поиска функция возвращает строку, в которой содержится полное имя файла (путь и имя).
В случае неудачи возвращается пустая строка.

переменная PATH для поиска}
IF F = ' ' THEN

Для поиска применяется переменная окружения DOS PATH.
Поиск проводится в каталогах, перечисленных в этой переменной, но можно задать и свой список каталогов.

var Dir : DirStr; var Name :Namestr; var ExtrExtStr);
позволяет разбить

Типы для работы с именами файлов определены в модуле Dos следующим образом:

ТУРЕ
ComStr = STRING[127];
PathStr = STRING[79];
DirStr = STRING[67];
NameStr = STRING[8];
ExtStr = STRING[4] ;

ExtStr;
BEGIN
P:=FSearch('NDD.EXE', GetEnv('PATH')); {поиск файла}
If P ='' Then WriteLn('NDD.EXE

'); ReadLn(FileName);
Assign(F, FileName);
GetFAttr(F, Attr); {получение атрибутов файла}
IF DosError

чтения, 2- скрытый файл,');
WriteLn('3- системный файл, 4- метка тома, '

и функций, не рассмотренных нами.
Это функция Dos-Version и процедуры

DOS.
В старшем байте содержится целая часть номера версии например 6,

DOS ', Lo(V), '.',Hi(V));
END.

переменной MS-DOS BREAK.
Процедура SetCBreak

SetCBreak(BREAK: BOOLEAN);
устанавливает системную переменную MS-DOS BREAK.
Если

f THEN OffOn:='ON - включен'
ELSE