usescrt;
var i,k,z,contr,l,ms:Byte;
Base : word ;
Value : byte;
t :Boolean;
Возможно вы искали - Курсовая работа: Автомобильная сигнализация
fase,freaquency:integer;
fase_r,freaquency_r,divider:real;
data:array[1..100,1..2]of real absolute $6B00:$0000;
Procedure OpenCom(Base:word ; Baudrate:word ; Config :byte);
begin
Похожий материал - Курсовая работа: Разработка микропроцессорной системы Автомобильные часы-термометр-вольтметр на базе микроконтроллера
while Port[Base+5] and $60 <> $60 do;
Port[Base+3] := $80;
Port[Base+1] := BaudRate shr 8;
Port[Base+0] := BaudRate and $FF;
Port[Base+3] := Config;
Очень интересно - Курсовая работа: Автомобільний охоронний сигналізатор на мікроконтролері
Port[Base+4] := 0;
Port[Base+1] := 0;
end;
Procedure send_char(Base : word ; Value : byte);
begin
Вам будет интересно - Реферат: Адаптивные сборочные робототехнические комплексы (РТК)
while ((Port[Base+5] and $20) = 0) do ;
Port[Base] := Byte(Value);
end;
Function get_char( Base : word ) : Boolean;
var status : word;
Похожий материал - Реферат: Адміністрування користувачів з використанням локальних і глобальних груп
begin
Status := Port[Base + 5];
if ((Status and $1E) <> 0) or ((Status and 1) = 0 ) then get_char := False
else