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

 shiftleft()         Shift left the bits in a uint by the given number
------------------------------------------------------------------------------
 Declaration
   bit.hdr

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

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

 Return
   The result of the shift operation.

 Description
   shiftleft() shifts the 16 bits in uNumber to the left by the number
   specified by uBits. Rightmost bits are set to 0; bits "shifted out" are
   lost.

   When uNumber contains 7, it's binary representation is

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

   shiftleft( uNumber, 2 ) returns a result having the following binary
   representation:

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

   If uNumber has the following binary representation:

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

   shiftleft( uNumber, 1 ) returns the following binary result:

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

   The leading "1" is lost.

 Example
   #define EXAMPLE_MATH
   #include example.hdr

   proc Test_shiftleft
   vardef
      uint nNum
      uint n
   enddef
   // Multiply a uint by 4
   nNum := 0000000000000111B
   ? nNum                          // outputs  7
   ? shiftleft( nNum, 2 )          // outputs 28
   ?
   nNum := 0000000000000001B
   for n := 0 to 16
      ? n, shiftleft( nNum, n )
   next
   endproc

   proc main
   Test_shiftleft()
   endproc