home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c072 / 1.ddi / PRG9_3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-19  |  1.7 KB  |  56 lines
  1. {Prg9_3 - Invoke the Turbo C Interrupt Beep Routine
  2.   by Stephen R. Davis, 1987
  3.  
  4.   Install the Turbo C beep routine first.  Then execute this
  5.   program.  This shows that any language capable of executing
  6.   interrupt routines can be interfaced with Turbo C.  This is
  7.   similar to the interface to BIOS routines}
  8.  
  9. program Prg9_3;
  10.  
  11. type
  12.      registers = record
  13.                   case Integer of
  14.                      1 : (ax, bx, cx, dx, bp, si,
  15.                           di, ds, es, flags : Integer);
  16.                      2 : (al, ah, bl, bh, cl, ch,
  17.                           dl, dh : Byte);
  18.                   end;
  19.  
  20. var
  21.      freq, duration : Integer;
  22.      regs : registers;
  23.  
  24. begin
  25.      WriteLn ('This is a simple test of invoking a Turbo C');
  26.      WriteLn ('interrupt routine from another language.');
  27.      WriteLn;
  28.      WriteLn ('Enter any frequency and duration desired.');
  29.      WriteLn ('Turbo Pascal will beep using the Turbo C routine.');
  30.      WriteLn ('For example: 20 10');
  31.      WriteLn ('(units of freq are loop counts -- units of duration');
  32.      WriteLn (' are clock ticks -- a duration of zero terminates)');
  33.      WriteLn;
  34.  
  35.      repeat
  36.           Write ('Enter freq and duration:');
  37.           ReadLn (freq, duration);
  38.           WriteLn;
  39.           If duration >= 18*10 then  {reduce durations of...}
  40.                duration := 18;       {...> 10 secs to 1 sec}
  41.  
  42.           regs.ax := 0;  {set the frequency}
  43.           regs.dx := freq;
  44.           intr ($48, regs);
  45.  
  46.           regs.ax := 1;  {now beep duration}
  47.           regs.dx := duration;
  48.           intr ($48, regs)
  49.  
  50.      until (duration = 0);
  51.      WriteLn;
  52.      WriteLn ('Thats all')
  53. end.
  54.  
  55. end.
  56.