Click above to get retro games delivered to your door ever month!

 rotateright()       Rotate right the bits in a uint by the given number
------------------------------------------------------------------------------
 Declaration
   bit.hdr

 Syntax
   func uint rotateright extern
   param value uint uNumber, ;
         value uint uBits

 Arguments
   uNumber is a numeric expression.
   uBits is the number of bits to rotate.

 Return
   The result of the rotate operation.

 Description
   rotateright() rotates the 16 bits in uNumber to the right by the number
   specified by uBits. Bits "shifted out" are inserted at the leftmost
   position.

   When uNumber has the following binary representation

   1 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1

   rotateright( uNumber, 1 ) returns a result having the following binary
   representation:

   1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 1

   The trailing "1" was moved to the leftmost position, and the other bits
   were shifted to the right.

 Example
   #define EXAMPLE_MATH
   #include example.hdr

   proc Test_rotateright
   vardef
      uint nNum
   enddef
   nNum := 1000000000000111B
   ? nNum
   ? rotateright( nNum, 1 )
   endproc

   proc main
   Test_rotateright()
   endproc