Измерительно-вычислительные комплексы (канал общего пользования). Петросьянц В.В. - 151 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

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

Рубрика: 

150
out dx,al
mov ai,04h
out dx,al
end;
{вывод программных данных}
SOut(S,I);
asm
{УП=1}
mov al,0Eh
mov dx,Port_B
out dx,al
mov al,06h
out dx,al
end;
{вывод программных данных}
SOut(S,I);
asm
{УП=0}
mov al,0Ch
mov dx,Port_B
out dx,al
mov al,04h
out dx,al
end;
{Вывод команды МАИ}
SOut(S,I);
end;
end;
Procedure GenInit(S:string);
{вывод на индикатор генератора}
var
I:Byte;
begin
I:=4;
while I<Length(S) do begin
asm
{ УП=1}
mov al,0Eh
mov dx,Port_B
out dx,al
mov al,06h
out dx,al
end;
{вывод данных} 
           out     dx,al
           mov       ai,04h
           out     dx,al
           end;
           {вывод программных данных}
           SOut(S,I);
           asm
           {УП=1}
           mov al,0Eh
           mov dx,Port_B
           out dx,al
           mov al,06h
           out dx,al
           end;
           {вывод программных данных}
           SOut(S,I);
           asm
           {УП=0}
           mov al,0Ch
           mov dx,Port_B
           out dx,al
           mov al,04h
           out dx,al
           end;
           {Вывод команды МАИ}
           SOut(S,I);
           end;
end;
Procedure GenInit(S:string);
  {вывод на индикатор генератора}
   var
       I:Byte;
   begin
       I:=4;
   while I

Страницы