{***********************************************************************}
{									}
{ __SetDtFil  Set the disk transfer area (DTA) address			}
{									}
{ procedure __SetDtFil(DTAAddress : pointer);				}
{									}
{	      DTAAddress  The address of the disk transfer area to be	}
{			  installed.					}
{									}
{ Description This procedure simply sets the disk transfer area to the	}
{	      area in memory pointed to by DtaAddress.	The DTA is used }
{	      by DOS for file control block (FCB) type disk I/O 	}
{	      operations.  In general the DTA address need not be	}
{	      altered because the file handle function do not used it,	}
{	      but it is required for the __SetVlFil and __RetVlFil	}
{	      functions.						}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __SetDTFil(DTAAddress : pointer);

  var
    Reg : registers;

  begin {__SetDTFil}

    with Reg do
      begin
	AH := $1A;		       { Set Disk Transfer Area 	}
	DS := _VectorAddr(DTAAddress)._Seg;
	DX := _VectorAddr(DTAAddress)._Ofs
      end;
    Intr(_DOS,Reg)

  end;	{__SetDTFil}
