г Черкассы, РАДИОАМАТОР

{$F+}

procedure IntlCnew; interrupt;

begin

if Counter < 19 then

Inc(Counter)

else

Flag:= 1;

end;

<$F-}

procedure ReadPort; assembler;

asm

                    mov              dx,379h

@wait_1

                    in al,          dx

                    test             al, 08h

                    jz               @wait_1

®wait_0

                    in al,          dx

                    test             al, 08h

                    jnz              @wait_0

end;

begin

RA:=4.7;

RB:=3900;

Flag:=0;

Counter:=0;

Тicks:=0;

К:=1.443*1000000000/(RA+2*RB);

GetIntVec ($1C Int1Cold);

SetIntVec ($1C Addr (Int1Cnew));

while Flag <> 1 do

begin

ReadPort;

Inc(Ticks);

end;

SetIntVec ($01C, Int1Cold);

Capacity:=Trunc(K/(Ticks*1.043));

    writeln('Измеренная емкость равна',Capacity,'pF');

end

Ю.С.Магда, г Черкассы, РАДИОАМАТОР № 3, 2001


Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---