SHIFT - supplied Fortran shift functions.

Use:

ILS( i, j ): Left shift "i" by "j" bit positions.
IRS( i, j ): Arithmetic right shift "i" by "j" bit positions.
ILR( i, j ): Left Rotate "i" by "j" bit positions.
IRL( i, j ): Logical right shift "i" by "j" bit positions.

Description:

All of the above are integer functions with integer arguments. The result is returned as the value of the function.

The DPS-8 word size is 36 bits.

IRS is an arithmetic right shift; the vacated bits are filled with the sign bit (bit 0). Use IRL if you want to fill vacated bits with zeroes when doing a right shift.

ILS fills vacated bits with zeroes.