Section 11,51: ISHFT

 ISHFT (a1,a2)

 Bitwise logical shift - a1 is an integer, a2 is the no-of-positions

 A function that logically shifts a1 left (if a2 is positive) or
 right (if a2 is negative) by ABS(a2) bits.  If ABS(a2) is greater
 than or equal to the length in bits of a1, the result is 0.
 +------+---------+----------+------------+-------------+        
 | Args | Generic | Specific |  Argument  | Result Type |
 +------+---------+----------+------------+-------------+
 |  2   |  ISHFT  |   --     | INTEGER*1  | INTEGER*1   |
 |      |         | IISHFT   | INTEGER*2  | INTEGER*2   |
 |      |         | JISHFT   | INTEGER*4  | INTEGER*4   |
 |      |see note | KISHFT   | INTEGER*8  | INTEGER*8   |
 +------+---------+----------+------------+-------------+

 NOTE: KISHFT is only available on AXP systems.