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