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

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

 Syntax
   func ulong longrotateright extern
   param value ulong 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
   longrotateright() rotates the 32 bits in uNumber to the right by the
   number specified by uBits. Bits "shifted out" are inserted at the left-
   most position.

   When uNumber has the following binary representation

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

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

   1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 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_longrotateright
   vardef
      ulong nNum
   enddef
   nNum := 00000000000000000000000000000111B
   ? nNum
   ? longrotateright( nNum, 1 )
   endproc

   proc main
   Test_longrotateright()
   endproc