home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c072 / 1.ddi / PRG9_3.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-09-19  |  2.4 KB  |  71 lines
  1. /*Program 9_3 -- Define a new "BIOS" function for Turbo Pascal
  2.     by Stephen R. Davis, 1987
  3.  
  4.   Using more or less the same approach as we took with the other
  5.   interrupt programs, we can assign any function  we desire to
  6.   a new interrupt.  This function defines a new BIOS routine for
  7.   beeping the speaker -- included are 2 subfunctions, which we
  8.   invoke exactly like the BIOS subfunctions.
  9.  
  10.   This function can be invoked from any computer language which
  11.   can perform software interrupts.  This is one way of "linking"
  12.   Turbo C with other computer languages.
  13. */
  14.  
  15. #include <stdio.h>
  16. #include <dos.h>
  17.  
  18. #ifndef __TINY__
  19.      #error Should use TINY compilation model
  20. #endif
  21.  
  22. /*first the prototyping definitions*/
  23.  
  24. void interrupt beep (unsigned, unsigned, unsigned, unsigned,
  25.                      unsigned, unsigned, unsigned, unsigned,
  26.                      unsigned);
  27.  
  28. /*define our data structures*/
  29.  
  30. unsigned freq, duration, prev, pclock, i;
  31. #define clock ((volatile unsigned far *)0x0040006c)
  32.  
  33. /*Beep - beep the speaker.  We define 2 subfunctions according
  34.          to the value in AX:
  35.          0 - set the frequency, DX - contains the loop count
  36.          1 - beep. Duration in clock ticks is in DX*/
  37. void interrupt beep (bp, di, si, ds, es,
  38.                      dx, cx, bx, ax)
  39.      unsigned ax, bx, cx, dx, si, di, bp, ds, es;
  40. {
  41.      enable ();                      /*re-enable interrupts*/
  42.      switch (ax) {
  43.           case 0:  /*set the frequency (in arbitrary units)*/
  44.                    freq = dx;
  45.                    break;
  46.           case 1: {/*beep the speaker for 'dx' clock ticks*/
  47.                         prev = inportb (0x61);
  48.                         duration = dx;
  49.                         while (duration--) {
  50.                              pclock = *clock;
  51.                              while (pclock == *clock) {
  52.                                   /*go ahead and beep a cycle*/
  53.                                   outportb (0x61, prev & 0xfc);
  54.                                   for (i = 0; i < freq; i++);
  55.                                   outportb (0x61, prev | 0x02);
  56.                                   for (i = 0; i < freq; i++);
  57.                              }
  58.                         }
  59.                         outportb (0x61, prev);
  60.                    }
  61.            }
  62. }
  63.  
  64.  
  65. /*Main - install the above routine.*/
  66. main ()
  67. {
  68.      setvect (0x48, beep);
  69.      keep (0, 0x1000);
  70. }
  71.