{***********************************************************************}
{									}
{ __ResetInt  Reestablish the intervention code filter vectors		}
{									}
{ function  __ResetIsr(Ident : _IdentStr) : word;			}
{									}
{	      Ident	The intervention code identification.  It must	}
{			match exactly the string specified when the	}
{			intervention code was installed.		}
{									}
{ Description This function checks for the presence of an installed	}
{	      intervention code using the function _IsInsInt.  If the	}
{	      code is found, the previous filter vectors are reestab-	}
{	      lished.  In this case, the program segment (not a 	}
{	      pointer) is returned as the function value.  If		}
{	      __IsInsInt cannot detect the presence of the intervention }
{	      code, the function value is zero. 			}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function __ResetInt(Ident : _IdentStr) : word;

  var
    PSPPtr,EnvPtr : pointer;
    Vectors	  : _IntVect;

  begin {__ResetInt}

    if (__IsInsInt(Ident,Vectors,PSPPtr,EnvPtr)) then
       with Vectors do
	 begin
	   SetIntVec($08,_TimerPtr);
	   SetIntVec($09,_KeyBdPtr);
	   SetIntVec($0B,_COM2Ptr);
	   SetIntVec($0C,_COM1Ptr);
	   SetIntVec($13,_DiskPtr);
	   SetIntVec($21,_DOSPtr);
	   SetIntVec($28,_IdlePtr);
	 __ResetInt := _VectorAddr(PSPPtr)._Seg
       end
    else
       __ResetInt := 0

  end;	{__ResetInt}
