home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
t
/
tsrhelp.zip
/
REMOVE.INC
< prev
next >
Wrap
Text File
|
1992-05-29
|
1KB
|
31 lines
;---------------------------------------------------------------------------
; Remove:
; This procedure sets interuppts back to the old values and clears the segment
; found by Install_Check which is at ES. It then exits.
;---------------------------------------------------------------------------
Remove Proc Far
Assume CS:Code,DS:Nothing,ES:Nothing
Push AX
Push BX
Not Word Ptr CS:Start
Mov BX,[ES:Env_Ptr] ; Remember where the environment is.
Assume DS:Code
Mov AH,49h ; Free block at ES
Int 21h ; With ES being the found copy.
JC Err1 ; Test for Error
Mov AH,49h
Mov ES,BX ; Set ES to environment location
Int 21h ; and Free environment.
Jmp NoErr1
Err1:
STC ; Set Carry on error
NoErr1:
Pop BX
Pop AX
Ret
Remove EndP