#define RSHIFT(i,n) (signed)((unsigned)i&0x8000|((unsigned)i&0x7fff)>>n)