fprm1pos
rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(unsigned);
rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1; /* get offset */
rm1 |= extru(ir,fprm1pos-4,1); /* add right word offset */
rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(unsigned);
rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1; /* get offset */
rm1 |= extru(ir,fprm1pos-4,1); /* add right word offset */