home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / intbsp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-05-18  |  1.1 KB  |  49 lines
  1. (* ------------------------------------- *)
  2. (*              INTBSP.PAS               *)
  3. (* Demonstration des Ganzen anhand eines *)
  4. (*          kleinen Beispiels            *)
  5. (* ------------------------------------- *)
  6.  
  7. PROGRAM Beispiel_1;
  8.  
  9.     {$K-}
  10.     {$U-}
  11.     {$R-}
  12.     {$V-}
  13.     {$I-}
  14.     {$C-}
  15.  
  16.     {$I REGS8088.INC}
  17.     {$I CRITICAL.INC}
  18.     {$I MAKEINT.INC}
  19.  
  20.     CONST
  21.       KeyBoardOldInterrupt :
  22.         IntEntry_ = (Offset:0; Segment:0);
  23.  
  24.     PROCEDURE KeyboardInterrupt;
  25.         {$I BEGININT.INC}
  26.           WITH PgmRegs DO
  27.             BEGIN
  28.               Sound (1000);
  29.               Delay (1);
  30.               NoSound;
  31.               {$I EXITINT.INC}
  32.                 KeyBoardOldInterrupt);
  33.             END;
  34.         {$I ENDINT.INC}
  35.  
  36.  
  37.     BEGIN
  38.       WITH KeyBoardOldInterrupt DO
  39.         IntGet (IntHardwareKeyboard,
  40.                 Segment, Offset);
  41.  
  42.       IntSet (IntHardwareKeyboard, Cseg,
  43.               Ofs (KeyBoardInterrupt));
  44.  
  45.       MakeResident;
  46.     END.
  47.  
  48. (* ---------------------------------- *)
  49. (*        Ende von INTBSP.PAS         *)