extru
#define get_subop(op) extru(op,fpsubpos,3)
#define get_subop1(op) extru(op,fpclass1subpos,2)
r1 = extru(ir,fpr1pos,5) * sizeof(double)/sizeof(unsigned);
t = extru(ir,fptpos,5) * sizeof(double)/sizeof(unsigned);
fmt = extru(ir,fpfmtpos,2); /* get fmt completer */
df = extru(ir,fpdfpos,2); /* get dest format */
r2 = extru(ir, fpr2pos, 5) * sizeof(double)/sizeof(unsigned);
extru(ir,fptpos,5),status));
extru(ir,fptpos,5),status));
return(ftest(0,extru(ir,fptpos,5),
r2 = extru(ir,fpr2pos,5) * sizeof(double)/sizeof(unsigned);
r1 = ((extru(ir,fpr1pos,5)<<1)|(extru(ir,fpxr1pos,1)));
t = ((extru(ir,fptpos,5)<<1)|(extru(ir,fpxtpos,1)));
fmt = extru(ir,fpfmtpos,2);
fmt = extru(ir,fp0efmtpos,1);
df = extru(ir,fpdfpos,2); /* get dest format */
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
extru(ir,fptpos,5),status));
extru(ir,fptpos,5),status));
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
if (extru(ir,fpxpos,1)) {
fmt = extru(ir, fpmultifmt, 1); /* get sgl/dbl flag */
rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(unsigned);
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(unsigned);
tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(unsigned);
ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(unsigned);
ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(unsigned);
rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1; /* get offset */
rm1 |= extru(ir,fprm1pos-4,1); /* add right word offset */
rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1; /* get offset */
rm2 |= extru(ir,fprm2pos-4,1); /* add right word offset */
tm = (extru(ir,fptmpos,4) | 0x10 ) << 1; /* get offset */
tm |= extru(ir,fptmpos-4,1); /* add right word offset */
ra = (extru(ir,fprapos,4) | 0x10 ) << 1; /* get offset */
ra |= extru(ir,fprapos-4,1); /* add right word offset */
ta = (extru(ir,fptapos,4) | 0x10 ) << 1; /* get offset */
ta |= extru(ir,fptapos-4,1); /* add right word offset */
fmt = extru(ir, fpmultifmt, 1); /* get sgl/dbl flag */
rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(unsigned);
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(unsigned);
tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(unsigned);
ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(unsigned);
ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(unsigned);
rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1; /* get offset */
rm1 |= extru(ir,fprm1pos-4,1); /* add right word offset */
rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1; /* get offset */
rm2 |= extru(ir,fprm2pos-4,1); /* add right word offset */
tm = (extru(ir,fptmpos,4) | 0x10 ) << 1; /* get offset */
tm |= extru(ir,fptmpos-4,1); /* add right word offset */
ra = (extru(ir,fprapos,4) | 0x10 ) << 1; /* get offset */
ra |= extru(ir,fprapos-4,1); /* add right word offset */
ta = (extru(ir,fptapos,4) | 0x10 ) << 1; /* get offset */
ta |= extru(ir,fptapos-4,1); /* add right word offset */
#define get_major(op) extru(op,fpmajorpos,6)
#define get_class(op) extru(op,fpclasspos,2)