module impprocs;

exports

imports arith from arith;
imports stack from stack;

procedure dummy;
procedure qindiag(lp,gp,acb,adiags:fsbit32;DDISP,mode,diag,asize,first:long;
                  var newacb:fsbit32);
                  
private
procedure dummy;
begin
end;

procedure qindiag;
begin
writeln(curout^,'entering dummy qindiag');
end.