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