6.14 Методика программирования обмена данными с прерыванием программы.

Содержит две части:

• Подготовка к обмену с прерываниями выполняется в фоновой программе.

• Обслуживание ВУ в режиме прерывания фоновой программы.

Подготовка к обмену с прерываниями включает:

1. Резервирование памяти для совместного использования фоновой и оперативной программ:

• Память для хранения данных. Оперативная программа использует её для ввода данных в ВУ или вывода данных из ВУ. Фоновая программа – для подготовки данных ВУ или обработки данных.

• Программный счетчик. Содержит текущее количество слов, переданное между фоновой и оперативной программами в том или ином направлении. Оперативная программа модифицирует программный счетчик в каждом цикле обмена. Фоновая – использует программный счетчик для проверки завершения обмена.

• Указатель длины массива данных. Оперативная программа в этой переменной указывает общее количество слов, предназначенных для передачи. Фоновая программа должна запретить прерывание при передаче установленного объема данных.

2. Установка ВП на оперативную программу. В

3. Разрешение прерывания ВУ. Определяет момент начала совместной работы фоновой и оперативной программ.

Обслуживание ВУ в режиме прерываний (вторая часть) выполняется оперативной программой, она в каждом цикле обмена данными должна выполнять следующие действия:

1. Сохранение регистров процессора, которые будут модифицированы.

2. Инкремент (декремент) программного счетчика.

3. Обмен данными с памятью.

4. Сброс ЗП в интерфейсе ВУ, если он не сбрасывается аппаратными средствами.

5. Восстановление регистров ЦП: СК, РСП.

6. При передаче установленного фоновой программой обмена данных оперативная программа должна запретить прерывание ВУ.

Для ЭВМ семейства IBM PC:

В регистре флагов IF=1, чтобы восстановить режим вложенных прерываний и разрешить прерывание от устройств с большими приоритетами. Оперативная программа должна сбрасывать битIS_i=0, чтобы разрешить прерывание от данного устройства и устройств с меньшими приоритетами.

6.15 Реализация методики обмена данными с прерыванием программы между в эвм в автоматизированных системах на основе эвм семейства ibm pc в средеBorland Pascal. Установка вп.

Выполняется с помощью процедуры Borland Pascalиз модуляDOS.*(* - т.к. могут быть различные режимы памяти; дляWindows– WinDOS.*).Для установки ВП в модулях имеется следующая процедура:

ProcedureSetIntVec(IntNo:byte; IntProcAddr: pointer);

Как только установили новый ВП, старый будет утерян, используем следующую процедуру, чтобы сохранить его: ProcedureGetIntVec(IntNo:byte; var OldIntProcAddr: pointer);

Процедура обслуживания прерываний: Сохранение регистров ЦП, которые будут модифицированы оперативной программой.

Procedure IntDC; interrupt;

IRET.

IRET восстанавливает СК, Flags.

6.16 Техническая реализация обмена данными с прерыванием программы.

Рис. 6.10 Схема реализации обмена данными с прерыванием программы.

За время Tдолжна завершить работу оперативная программа. Программа, обслуживающая ЗП может закончиться раньше, но не позже. Сигнал ЗП устанавливается фронтом.

Пример. Обмен с прерыванием от таймера, ввод в ОЗУ 100 точек.

Канал 32, диапазон ±5 В; режим подключения сигналов с общей землей.

Program Demo_interrupt;

Uses Dos, timer154;

Const BA=$300; {базовый адрес}

Nmas=100; {длина массива}

count: word = 0;{программный счетчик}

var U: array [0..Nmas] of integer; T: word; OldIntVec: pointer; T: word; i: integer;

Procedure IntADC; interrupt;

Begin asm sti end; {IF=1}

Inc(count);

Port[BA+4]:=$FF; {запуск АЦП на измерение}

Asm nop end;

While (port[BA+2] and 8) <> 0 do;

U[count]:=PortW[BA];

Port[$20]:=$20; {OCW2, сброс битаIR3, разрешение прерываний от этого входа и входов с высшим приоритетом}

If count=Nmas then port [$21]:=port[$21] or 8;

End;

Begin

Port[BA+$F]:=0; {ФРП=0}

Port[$21]:=Port[$21] or 8; {запрет прерывания ПКП}

Port[BA+2]:=$FF; {режим}

Wait ({задержка ≈4мкс});

GetIntVec($B, OldIntVec);

SetIntVec($B, IntADC);

Writeln(‘Укажите интервал дискретизации сигнала’); readln(T);

Set_Time(T);

Port[BA+$F]:=1; {ФРП=1}

Port[$21]:=Port[$21] and NOT 8; {IM3=0}

{Фоновая программа}

Port[BA+$F]:=0; {}

SetIntVec($B,OldIntVec);

{ Вывод данных и обработка данных }

End.