home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t3_tsr / reinstal.inc < prev    next >
Encoding:
Text File  |  1988-02-24  |  515 b   |  17 lines
  1. (* ------------------------------------------------------ *)
  2. (*                 REINSTALL.INC                          *)
  3.  
  4. PROCEDURE ReInstall;
  5. VAR Segm,Offs : INTEGER;
  6. BEGIN
  7.   IntGet (TSR_Int,Segm,Offs);
  8.   IntSet (IntKeyBoard,Segm,Offs);
  9.   MemW[$00:TSR_Int*4] := 0;
  10.   MemW[$00:TSR_Int*4+2] := 0;
  11.   Segm := MFree(MemW[Cseg:$2C]);
  12.   Segm := MFree(Cseg);
  13.   Intr($20,Regs);
  14. END;
  15.  
  16. (* ------------------------------------------------------ *)
  17. (*                Ende von REINSTALL.INC                  *)