dec-08-fmja-pa	Arithmetic Shift Subroutines