home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
sonderh1
/
intbsp.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-05-18
|
1KB
|
49 lines
(* ------------------------------------- *)
(* INTBSP.PAS *)
(* Demonstration des Ganzen anhand eines *)
(* kleinen Beispiels *)
(* ------------------------------------- *)
PROGRAM Beispiel_1;
{$K-}
{$U-}
{$R-}
{$V-}
{$I-}
{$C-}
{$I REGS8088.INC}
{$I CRITICAL.INC}
{$I MAKEINT.INC}
CONST
KeyBoardOldInterrupt :
IntEntry_ = (Offset:0; Segment:0);
PROCEDURE KeyboardInterrupt;
{$I BEGININT.INC}
WITH PgmRegs DO
BEGIN
Sound (1000);
Delay (1);
NoSound;
{$I EXITINT.INC}
KeyBoardOldInterrupt);
END;
{$I ENDINT.INC}
BEGIN
WITH KeyBoardOldInterrupt DO
IntGet (IntHardwareKeyboard,
Segment, Offset);
IntSet (IntHardwareKeyboard, Cseg,
Ofs (KeyBoardInterrupt));
MakeResident;
END.
(* ---------------------------------- *)
(* Ende von INTBSP.PAS *)