program vcall0t;
{VCALL0-VxD-Test}
{$R-,S-,Q-}
uses VCall0;
var
counter: Integer;
function KernelService:Integer; far;
begin
KernelService:=Port[$43]; {im Ring 0 abzuarbeiten!}
end;
procedure KernelInterrupt; far;
begin
inc(counter);
end;
var
i:Integer;
begin
if VCall0_Entry=nil then WriteLn('VCall0.386 nicht resident!');
WriteLn('Version von VCALL0: ', GetVCall0Ver shr 8,'.',GetVCall0Ver and $FF);
WriteLn(Integer(Call0(@KernelService)));
if not high_freq(20000,@KernelInterrupt) then begin
writeln('kein High-Freq heute!');
end;
for i:=0 to 1000 do write('.');
high_freq(0,nil);
writeln(#13#10'counter=',counter);
end.
Detected encoding: ASCII (7 bit) | 2
|