Source file: /~heha/hs/vcall0.zip/VCALL0T.PAS

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.