fprm2pos
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1; /* get offset */
rm2 |= extru(ir,fprm2pos-4,1); /* add right word offset */
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1; /* get offset */
rm2 |= extru(ir,fprm2pos-4,1); /* add right word offset */
rm2 = extru(ir,fprm2pos,5) * sizeof(double)/sizeof(u_int);
rm2 = (extru(ir,fprm2pos,5)<<1)|(extru(ir,fpxrm2pos,1));