TSTBIT - test a bit in a word.
call tstbit(bit, word, value)
- is the bit within "word" to test.
- is an single word integer or real variable with the bit
- is an integer variable that will be set to the value of
the bit being tested.
TSTBIT tests a bit in a word. The most significant (left most)
bit is numbered 0, the least significant 35.
This routine is obsolete, use the intrinsic functions FLD or
Copyright © 1996, Thinkage Ltd.