home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / tsr / reinstal.inc < prev    next >
Encoding:
Text File  |  1987-06-03  |  1.0 KB  |  19 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                            REINSTAL.PAS                                 *)
  3. (*     Prozedur, die den von TSR.COM reservierten Speicherplatz wieder     *)
  4. (*      freigibt. Muss aus 'TSRPgm' heraus aufgerufen werden.              *)
  5. (* ----------------------------------------------------------------------- *)
  6. PROCEDURE ReInstall;
  7. VAR Segm, Offs: INTEGER;
  8. BEGIN
  9.   IntGet(TSR_Int,Segm,Offs);        (* Original Keyboard-Int.-Vektor holen *)
  10.   IntSet(IntKeyBoard,Segm,Offs);    (* und wieder einsetzen...             *)
  11.   MemW[$00:TSR_Int*4] := 0;           (* Interruptvector wiederherstellen  *)
  12.   MemW[$00:TSR_Int*4+2] := 0;
  13.   Segm := MFree(MemW[Cseg:$2C]);              (* Speicher wieder freigeben *)
  14.   Segm := MFree(Cseg);
  15.   Intr($20,Regs);                                        (* zurueck zu DOS *)
  16. END;
  17. (* ----------------------------------------------------------------------- *)
  18. (*                          Ende von REINSTAL.PAS                          *)
  19.