`ishift'
--------

ishift(I,COUNT)
     :: bit shift

RETURN
     $B@0?t(B

I,COUNT
     $B@0?t(B

   * $B@0?t(B I $B$N@dBPCM$r(B bit $BNs$H$_$F(B shift $B$9$k(B.

   * I $B$NId9f$OL5;k$7(B, $BHsIi$NCM$rJV$9(B.

   * COUNT $B$,@5$J$i$P1&(B shift, $BIi$J$i$P:8(B shift $B$r9T$&(B.

     [0] ctrl("hex",1);
     0x1
     [1] ishift(0x1000000,12);
     0x1000
     [2] ishift(0x1000,-12);
     0x1000000
     [3] ixor(0x1248,ishift(1,-16)-1);

$B;2>H(B
     *Note `iand ior ixor': iand ior ixor.

