Return to bit.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libF77

Annotation of 42BSD/usr.lib/libF77/bit.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  *     "@(#)bit.c      1.1"
                      3:  *
                      4:  * bit set, clear, test routines
                      5:  *
                      6:  * calling sequences:
                      7:  *     logical l, bit, state
                      8:  *     call bis (bitnum, word)
                      9:  *     call bic (bitnum, word)
                     10:  *     call setbit (bitnum, word, state)
                     11:  *     l = bit (bitnum, word)
                     12:  * where:
                     13:  *     bis(bic) sets(clears) bitnum in word
                     14:  *     setbit sets bitnum in word to 1 if state is .true.
                     15:  *     bit tests bitnum in word and returns a logical (t/f) value
                     16:  */
                     17: 
                     18: long bis_(n, w)
                     19: long *n, *w;
                     20: {
                     21:        if (*n >= 0 && *n <= 31)
                     22:                *w |= (1L << (*n));
                     23: }
                     24: 
                     25: long bic_(n, w)
                     26: long *n, *w;
                     27: {
                     28:        if (*n >= 0 && *n <= 31)
                     29:                *w &= ~(1L << (*n));
                     30: }
                     31: 
                     32: long bit_(n, w)
                     33: long *n, *w;
                     34: {
                     35:        if (*n < 0 || *n > 31)
                     36:                return(0);
                     37:        return((*w & (1L << (*n))) != 0);
                     38: }
                     39: 
                     40: setbit_(n, w, s)
                     41: long *n, *w, *s;
                     42: {
                     43:        if (*s)
                     44:                bis_(n, w);
                     45:        else
                     46:                bic_(n, w);
                     47: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.