{***********************************************************************}
{									}
{ __RetDTFil  Return the disk transfer area (DTA) address		}
{									}
{ function  __RetDTFil : pointer;					}
{									}
{ Description This function simply returns a pointer to the DTA.	}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __RetDTFil : pointer;

  var
    Reg : registers;

  begin {__RetDTFil}

    with Reg do
      begin
	AH := $2F;		       { Get Disk Transfer Area (DTA)	}
	Intr(_DOS,Reg);
	__RetDTFil := Ptr(ES,BX)
      end

  end;	{__RetDTFil}
