home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tsr / tsrhelp / remove.inc < prev    next >
Encoding:
Text File  |  1992-05-28  |  1.1 KB  |  31 lines
  1. ;---------------------------------------------------------------------------
  2. ; Remove:
  3. ;  This procedure sets interuppts back to the old values and clears the segment
  4. ;  found by Install_Check which is at ES.  It then exits.
  5. ;---------------------------------------------------------------------------
  6. Remove  Proc Far
  7.         Assume CS:Code,DS:Nothing,ES:Nothing
  8.         Push AX
  9.         Push BX
  10.  
  11.         Not Word Ptr CS:Start
  12.         Mov BX,[ES:Env_Ptr]                 ; Remember where the environment is.
  13.         Assume DS:Code
  14.         Mov AH,49h                          ; Free block at ES
  15.         Int 21h                             ; With ES being the found copy.
  16.         JC Err1                             ; Test for Error
  17.         Mov AH,49h
  18.         Mov ES,BX                           ; Set ES to environment location
  19.         Int 21h                             ; and Free environment.
  20.         Jmp NoErr1
  21. Err1:   
  22.         STC                                 ; Set Carry on error
  23.         
  24. NoErr1:
  25.         Pop BX
  26.         Pop AX
  27.         Ret
  28.         
  29. Remove  EndP
  30.  
  31.