home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t4_upd / break.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-02-24  |  1.1 KB  |  45 lines
  1. (*********************************************************)
  2. (*                      BREAK.PAS                        *)
  3. (* Abbrechen eines Turbo-Pascal-4.0-Prog. mit Ctrl-Break *)
  4. (* (c) 1988  Karsten Gieselmann  &  PASCAL International *)
  5. (* !! Die UNIT sollte als letzte in der USES-Anweisung   *)
  6. (* aufgeführt werden !                                   *)
  7. (*********************************************************)
  8.  
  9. UNIT Break;
  10.  
  11.  
  12. INTERFACE
  13.  
  14. USES Dos;
  15.  
  16.  
  17. IMPLEMENTATION
  18.  
  19. VAR
  20.   Int1BSave :POINTER;
  21.               (* Zwischenspeicher für alten Int1B-Vektor *)
  22.  
  23.  
  24. {$F+}
  25. PROCEDURE Int1B; INTERRUPT;
  26.  
  27.                 (* I-Flag setzen und Int-Chip freigeben: *)
  28.   PROCEDURE EnableInterrupts;
  29.     INLINE ($FB/$B0/$20/$E6/$20);
  30.  
  31. BEGIN
  32.   SetIntVec ($1B, Int1BSave);     (* Vektor zurücksetzen *)
  33.   EnableInterrupts;           (* Interrupts zulassen.... *)
  34.   Halt         (* ....und Programm ordnungsgemäß beenden *)
  35. END;
  36. {$F-}
  37.  
  38.  
  39. BEGIN
  40.                         (* alten Int1B-Vektor sichern... *)
  41.   GetIntVec ($1B, Int1BSave);
  42.                      (* ....und eigene Routine einsetzen *)
  43.   SetIntVec ($1B, @Int1B);
  44. END.
  45.