{***********************************************************************}
{									}
{ __SetIDUtl  Set the current process identification			}
{									}
{ procedure __SetIDUtl(ProgSeg : word); 				}
{									}
{	      ProgSeg  The segment value to install as the current	}
{		       process identification.				}
{									}
{ Description DOS keeps track of the currently executing process by	}
{	      recording its program segment.  This is important 	}
{	      because the PSP is used to keep track of open files	}
{	      and for a scratch area for some DOS functions.  This	}
{	      procedure allows you to alter the process identification. }
{	      Its most natural use is by a memory resident program	}
{	      after gaining control from a foreground process.		}
{									}
{	      For DOS 3.00 and later, __SetIDUtl can be called at any	}
{	      time, but for earlier versions it cannot be called if	}
{	      DOS is executing (that is, the InDOS flag must be clear). }
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __SetIDUtl(ProgSeg : word);

  var
    Reg : registers;

  begin {__SetIDUtl}

    with Reg do
      begin			       { DOS function call $50		}
	AH := $50;
	BX := ProgSeg;
	Intr(_DOS,Reg)
      end

  end;	{__SetIDUtl}
