home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / testbit.c < prev    next >
Text File  |  1989-02-08  |  542b  |  25 lines
  1. /*--------------------------------------*/
  2. /*                    */
  3. /*            TESTBIT(X,X)        */
  4. /*                    */
  5. /* Functionality:            */
  6. /*    Checks a bit in an integer to    */
  7. /*    see if it's on or off.        */
  8. /* Arguments:                */
  9. /*    0: The integer to be used.    */
  10. /*    1: The bit to be tested.    */
  11. /* Returns: 0: If bit is off        */
  12. /*        -1: If bit is on        */
  13. /* Author: John Callicotte        */
  14. /* Date created/modified: 09/01/88    */
  15. /*                    */
  16. /*--------------------------------------*/
  17.  
  18. testbit(h,a)
  19. int a,h;
  20. {
  21.     int d;
  22.     d=(h<<(15-a))>>15;
  23.     return(d);
  24. }
  25.