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