fpr1pos
r1 = extru(ir,fpr1pos,5) * sizeof(double)/sizeof(u_int);
r1 = ((extru(ir,fpr1pos,5)<<1)|(extru(ir,fpxr1pos,1)));