Сопряжение компьютеров с внешними устройствами в стандарте КАМАК. Заярный В.П - 50 стр.

UptoLike

ВУЗ: 

ВолГУ | Волгоград

Составители: 

Рубрика: 

50
const n=500;
adcaddr=10;
Необходимо выделить память под массив данных и счетчик цикла
var d:array[1..n] of word;
i:word;
а также описать, что в программе будут использоваться модули dos для об-
ращения к портам, graph для работы с графикой, и crt для обработки нажа-
тия клавиши.
uses dos,crt,graph;
Инициализация системы
Инициализация системы выполняется путем выдачи на магистраль
КАМАК сигнала Z. Согласно таблице
портов контроллера СС-08, это про-
исходит при выдаче в порт 103Н числа 1. Поэтому описание процедуры init
будет таким:
procedure init;
begin
port[$103]:=1;
end;
Оцифровка сигнала
Для того чтобы АЦП мог оцифровать сигнал, необходимо:
а) выдать на магистраль слово состояния, содержащее необходимые
данные для регистра АЦП;
б) считать его в регистр с магистрали;
в) дать АЦП команду на оцифровку. Составим для каждой из этих опе-
раций процедуру, и тогда процедура оцифровки сигнала будет выглядеть так:
procedure adc;
begin
delay(1);
cc2mag(128); {cлово сост. — > магистраль}
delay(10);
writeRC; {магистраль — > регистр}
delay(10);
Fzapusk; {Запуск АЦП}
delay(10);
init; {Повторная инициализация для устой-
чивой работы системы}
end;

Страницы