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

UptoLike

ВУЗ: 

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

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

Рубрика: 

149
Case s[i] of
#S00: state[i]:= "Выход";
#$14: state[i]:= "СБУ";
#$22: state[i]:= "МАП";
#$30: state[i]:= "0";
#$31: state[i]:= "1";
#$32: state[i]:= "2";
#$33: state[i]:= "3";
#$34: stateli]:= "4";
#$35: state[i]:= "5";
#$36: state[i]:= "6";
#$37: state[i]:= "7";
#$38: state[i]:= "8";
#$39: state[i]:- "9";
#$46: state[i]:= "Установка f"
#$45: state[i]:= "Установка U;
#$44: state[i]:= "Hz";
#$48: state[i]:= "kHz";
#$42: state[i]:= "MHz";
#S43: state[i]:= "mV";
#S47: state[i]:= "Очистить табло";
#$2E: state[i]:= "Набор точки";
end;
end;
end;
Procedure VoltInit(S:string);
{программирование вольтметра}
var
I:Byte;
begin I:=l;
while I<Length(S) do begin
asm
{режим порта 88-вывод}
mov al,88h
mov dx,Port_M
out dx,al
{ ОИ=0}
mov al,08h
mov dx,Porl_B
out dx,al
mov al,00h
out dx,al
{ОИ=1, УП=0}
mov al,0Ch 
             Case s[i] of
               #S00: state[i]:= "Выход";
               #$14: state[i]:= "СБУ";
               #$22: state[i]:= "МАП";
               #$30: state[i]:= "0";
               #$31: state[i]:= "1";
               #$32: state[i]:= "2";
               #$33: state[i]:= "3";
               #$34: stateli]:= "4";
               #$35: state[i]:= "5";
               #$36: state[i]:= "6";
               #$37: state[i]:= "7";
               #$38: state[i]:= "8";
               #$39: state[i]:- "9";
               #$46: state[i]:= "Установка f"
               #$45: state[i]:= "Установка U;
               #$44: state[i]:= "Hz";
               #$48: state[i]:= "kHz";
               #$42: state[i]:= "MHz";
               #S43: state[i]:= "mV";
               #S47: state[i]:= "Очистить табло";
               #$2E: state[i]:= "Набор точки";
            end;
         end;
    end;
    Procedure VoltInit(S:string);
    {программирование вольтметра}
    var
        I:Byte;
    begin I:=l;
    while I

Страницы