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

        mov         al,04h
        out         dx,al
    end;
end;
Procedure Volt(S:String; var State:Tp_l);
  {отображение контрольной информации вольтметра}
var i:Byte;
begin I:=l;
for I:=l to Length(S) do
   begin
       Case s[i] of
       #$32:begin
               if S[i-1]=#$46 then state[i]:=" Измерение R";
               if S[i-1]=#$42 then state[i]:=" 200 кОм";
               end;
       #$30:begin
               if S[i-1]=#$44 then state[i]:=" Внутренний";
               if S[i-1]=#$42 then state[i]:=" 20 Мом";
               end;
       #$31:begin
               if S[i-1]=#$44 then state[i]:="Bешний";
               if S[i-1]=#$42 then state[i]:=" 2000 кОм";
               end;
       #$46:state[i]:="Режим";
       #$45:state[i]:=" Конец программы";
       #$44:state[i]:="Bид запуска";
       #$42:state[i]:="Предел";
       #$36:state[i]:="ABП";
       #$35:state[i]:="200 Ом";
       #$34:state[i]:="2 кОм";
       #$33:state[i]:="20 кОм";
       #$14:state[i]:="CBУ";
       #$21:state[i]:="MAП";
       #$41:state[i]:="MAИ";
       #$00:state[i]:="Bыход";
       end;
    end;
end;
Procedure Gen(S:String; var State:Tp_2);
{отображение контрольной информации генератора}
var i:Integer;
begin
    for i:=l to Length(S) do
       begin

                                   148