Port [$61] := Port [$61] and not 1;

{Считываются последовательно младший, затем старший байты счетного элемента в переменную Count:}

Count := Port [$42];

Count := (Port [$42] shl 8) + Count;

Port [$61] := Port [$61] or 1;

{Чтение без остановки счета «на лету»} CountF := Port [$42];

CountF := (Port [$42] shl 8) + CountF;

{команда «Защелка»} Port [$43]:= $80; Count2 := Port [$42];

Count2 := (Port [$42] shl 8) + Count2;

{Чтение состояния второго канала таймера} Port [$43]:= $C8;

Status := Port [$42];

CountL := Port [$42];

CountL := (Port [$42] shl 8) + CountL;

Writeln(Count,’ ’,CountF,’ ’,Count2,’ ’, CountL);

end;

end.

Задание №2

6.Выполнить вновь инициализацию второго канала ПИТ: установить: режим 3 работы канала (генератор меандра), период сигнала на выходе OUT2 указанный в табл. 2.2 в зависимости от варианта задания.

7.Разработать алгоритм и программу:

2

а) ввода в реальном времени массива данных из модуля АЦП (канал мультиплексора выбирается из табл. 2.2) в ОЗУ ЭВМ 100 мгновенных значений сигнала с интервалом дискретизации сигнала, установленным в предыдущем пункте;

Выполнение

Частота сигнала для варианта 8:

F = 1/320 мкс = 1/0,00032 с = 3125 Гц Рассчитываем константу пересчета:

N = 1193182/3125 = 1193182*0,00032 ≈ 382 = $17Е

Старший байт: $01, младший байт: $7Е

var

i,U:word;

Begin

Port[$302]:=$E3; delay(1);

Port [$61] := Port [$61] and not 3; Port [$43] := $B6;

Port [$42] := $7Е;

Port [$42] := $01;

Port [$61] := Port [$61] or 1; for i:=1 to 100 do begin:

While (Port [$61] AND $20) <> 0 do; While (Port [$61] AND $20) = 0 do; Port[$304]:=$FF;

asm NOP end;

while (Port[$302]>=$F8) do ; U:=Port[$300];

write(U,’ ’);

if i mod 5 = 0 then writeln;

end;

end.

3