bit - and, or, xor, not, rshift, lshift, bic, bis, bit, setbit functions
(generic) function and (word1, word2)
(generic) function or (word1, word2)
(generic) function xor (word1, word2)
(generic) function not (word)
(generic) function rshift (word, nbits)
(generic) function lshift (word, nbits)
subroutine bic (bitnum, word) integer*4 bitnum, word
subroutine bis (bitnum, word) integer*4 bitnum, word
subroutine setbit (bitnum, word, state) integer*4 bitnum, word, state
logical function bit (bitnum, word) integer*4 bitnum, word
The and, or, xor, not, rshift, and lshift functions are generic functions expanded inline by the compiler. Their arguments must be integer or logical values, short or long. The returned value has the data type of the first argument.
Bits are numbered such that bit 0 is the least significant bit, and bit 31 is the most significant. This routine works for all Oracle Developer Studio supported architectures, even though some number bytes differently.
Computes the bitwise `and' of its arguments.
Computes the bitwise `or' of its arguments.
Computes the bitwise `exclusive or' of its arguments.
Returns the bitwise complement of its argument.
Is a logical left shift with no end around carry.
Is an arithmetic right shift with sign extension. No test is made for a reasonable value of nbits.
bic, bis, and setbit are external subroutines which operate on INTEGER*4 arguments.
Sets bitnum in word.
Clears bitnum in word.
Sets bitnum in word to 1 if state is nonzero, and clears it otherwise.
Is an external function which tests bitnum in word. It returns .true. if bitnum is a 1 (one), and returns .false. if bitnum is a 0 (zero).
libfsu.a