extru
extru \r, 31-(\sa), 32-(\sa), \t
extru \r, \p, \len, \t
&fpregs[r2],extru(ir,fptpos,5),
&fpregs[r2],extru(ir,fptpos,5),
#define get_major(op) extru(op,fpmajorpos,6)
&fpregs[r2],extru(ir,fptpos,5),
r2 = (extru(ir,fpr2pos,5)<<1);
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
#define get_class(op) extru(op,fpclasspos,2)
if (extru(ir,fpxpos,1)) {
#define get_subop(op) extru(op,fpsubpos,3)
fmt = extru(ir, fpmultifmt, 1); /* get sgl/dbl flag */
rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(u_int);
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
#define get_subop1_PA1_1(op) extru(op,fpclass1subpos,2) /* PA89 (1.1) fmt */
tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(u_int);
ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(u_int);
ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(u_int);
#define get_subop1_PA2_0(op) extru(op,fpclass1subpos,3) /* PA 2.0 fmt */
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(u_int);
rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(u_int);
ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(u_int);
ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(u_int);
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,fpfmtpos,1); /* get fmt completer */
rm1 = extru(ir,fprm1pos,5) * sizeof(double)/sizeof(u_int);
rm2 = extru(ir,fprm2pos,5) * sizeof(double)/sizeof(u_int);
ra = ((extru(ir,fpraupos,3)<<2)|(extru(ir,fpralpos,3)>>1)) *
t = extru(ir,fptpos,5) * sizeof(double)/sizeof(u_int);
if (extru(ir,fpfusedsubop,1)) { /* fmpyfadd or fmpynfadd? */
rm1 = (extru(ir,fprm1pos,5)<<1)|(extru(ir,fpxrm1pos,1));
rm2 = (extru(ir,fprm2pos,5)<<1)|(extru(ir,fpxrm2pos,1));
ra = (extru(ir,fpraupos,3)<<3)|extru(ir,fpralpos,3);
t = ((extru(ir,fptpos,5)<<1)|(extru(ir,fpxtpos,1)));
if (extru(ir,fpfusedsubop,1)) { /* fmpyfadd or fmpynfadd? */
r1 = extru(ir,fpr1pos,5) * sizeof(double)/sizeof(u_int);
t = extru(ir,fptpos,5) * sizeof(double)/sizeof(u_int);
fmt = extru(ir,fpfmtpos,2); /* get fmt completer */
df = extru(ir,fpdfpos,2); /* get dest format */
r2 = extru(ir, fpr2pos, 5) * sizeof(double)/sizeof(u_int);
if (extru(ir, fpnulpos, 1)) { /* FTEST */
&fpregs[r2],extru(ir,fptpos,5),
&fpregs[r2],extru(ir,fptpos,5),
&fpregs[r2],extru(ir,fptpos,5),
&fpregs[r2],extru(ir,fptpos,5),
r2 = extru(ir,fpr2pos,5) * sizeof(double)/sizeof(u_int);
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);
r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
if (extru(ir, fpnulpos, 1)) { /* FTEST */
&fpregs[r2],extru(ir,fptpos,5),