Archipelago » qemu

/* ADD */

    C(0x1a00, AR,      RR_a,  Z,   r1, r2, new, r1_32, add, adds32)

    C(0xb9f8, ARK,     RRF_a, DO,  r2, r3, new, r1_32, add, adds32)

    C(0x5a00, A,       RX_a,  Z,   r1, m2_32s, new, r1_32, add, adds32)

    C(0xe35a, AY,      RXY_a, LD,  r1, m2_32s, new, r1_32, add, adds32)

    C(0xb908, AGR,     RRE,   Z,   r1, r2, r1, 0, add, adds64)

    C(0xb918, AGFR,    RRE,   Z,   r1, r2_32s, r1, 0, add, adds64)

    C(0xb9e8, AGRK,    RRF_a, DO,  r2, r3, r1, 0, add, adds64)

    C(0xe308, AG,      RXY_a, Z,   r1, m2_64, r1, 0, add, adds64)

    C(0xe318, AGF,     RXY_a, Z,   r1, m2_32s, r1, 0, add, adds64)

    C(0xb30a, AEBR,    RRE,   Z,   e1, e2, new, e1, aeb, f32)

    C(0xb31a, ADBR,    RRE,   Z,   f1_o, f2_o, f1, 0, adb, f64)

    C(0xb34a, AXBR,    RRE,   Z,   0, x2_o, x1, 0, axb, f128)

    C(0xed0a, AEB,     RXE,   Z,   e1, m2_32u, new, e1, aeb, f32)

    C(0xed1a, ADB,     RXE,   Z,   f1_o, m2_64, f1, 0, adb, f64)

/* ADD IMMEDIATE */

    C(0xc209, AFI,     RIL_a, EI,  r1, i2, new, r1_32, add, adds32)

    C(0xeb6a, ASI,     SIY,   GIE, m1_32s, i2, new, m1_32, add, adds32)

    C(0xecd8, AHIK,    RIE_d, DO,  r3, i2, new, r1_32, add, adds32)

    C(0xc208, AGFI,    RIL_a, EI,  r1, i2, r1, 0, add, adds64)

    C(0xeb7a, AGSI,    SIY,   GIE, m1_64, i2, new, m1_64, add, adds64)

    C(0xecd9, AGHIK,   RIE_d, DO,  r3, i2, r1, 0, add, adds64)

/* ADD HALFWORD */

    C(0x4a00, AH,      RX_a,  Z,   r1, m2_16s, new, r1_32, add, adds32)

    C(0xe37a, AHY,     RXY_a, LD,  r1, m2_16s, new, r1_32, add, adds32)

/* ADD HALFWORD IMMEDIATE */

    C(0xa70a, AHI,     RI_a,  Z,   r1, i2, new, r1_32, add, adds32)

    C(0xa70b, AGHI,    RI_a,  Z,   r1, i2, r1, 0, add, adds64)

/* ADD LOGICAL */

    C(0x1e00, ALR,     RR_a,  Z,   r1, r2, new, r1_32, add, addu32)

    C(0xb9fa, ALRK,    RRF_a, DO,  r2, r3, new, r1_32, add, addu32)

    C(0x5e00, AL,      RX_a,  Z,   r1, m2_32u, new, r1_32, add, addu32)

    C(0xe35e, ALY,     RXY_a, LD,  r1, m2_32u, new, r1_32, add, addu32)

    C(0xb90a, ALGR,    RRE,   Z,   r1, r2, r1, 0, add, addu64)

    C(0xb91a, ALGFR,   RRE,   Z,   r1, r2_32u, r1, 0, add, addu64)

    C(0xb9ea, ALGRK,   RRF_a, DO,  r2, r3, r1, 0, add, addu64)

    C(0xe30a, ALG,     RXY_a, Z,   r1, m2_64, r1, 0, add, addu64)

    C(0xe31a, ALGF,    RXY_a, Z,   r1, m2_32u, r1, 0, add, addu64)

/* ADD LOGICAL IMMEDIATE */

    C(0xc20b, ALFI,    RIL_a, EI,  r1, i2_32u, new, r1_32, add, addu32)

    C(0xc20a, ALGFI,   RIL_a, EI,  r1, i2_32u, r1, 0, add, addu64)

/* ADD LOGICAL WITH SIGNED IMMEDIATE */

    C(0xeb6e, ALSI,    SIY,   GIE, m1_32u, i2, new, m1_32, add, addu32)

    C(0xecda, ALHSIK,  RIE_d, DO,  r3, i2, new, r1_32, add, addu32)

    C(0xeb7e, ALGSI,   SIY,   GIE, m1_64, i2, new, m1_64, add, addu64)

    C(0xecdb, ALGHSIK, RIE_d, DO,  r3, i2, r1, 0, add, addu64)

/* ADD LOGICAL WITH CARRY */

    C(0xb998, ALCR,    RRE,   Z,   r1, r2, new, r1_32, addc, addc32)

    C(0xb988, ALCGR,   RRE,   Z,   r1, r2, r1, 0, addc, addc64)

    C(0xe398, ALC,     RXY_a, Z,   r1, m2_32u, new, r1_32, addc, addc32)

    C(0xe388, ALCG,    RXY_a, Z,   r1, m2_64, r1, 0, addc, addc64)

/* AND */

    C(0x1400, NR,      RR_a,  Z,   r1, r2, new, r1_32, and, nz32)

    C(0xb9f4, NRK,     RRF_a, DO,  r2, r3, new, r1_32, and, nz32)

    C(0x5400, N,       RX_a,  Z,   r1, m2_32s, new, r1_32, and, nz32)

    C(0xe354, NY,      RXY_a, LD,  r1, m2_32s, new, r1_32, and, nz32)

    C(0xb980, NGR,     RRE,   Z,   r1, r2, r1, 0, and, nz64)

    C(0xb9e4, NGRK,    RRF_a, DO,  r2, r3, r1, 0, and, nz64)

    C(0xe380, NG,      RXY_a, Z,   r1, m2_64, r1, 0, and, nz64)

    C(0xd400, NC,      SS_a,  Z,   la1, a2, 0, 0, nc, 0)

/* AND IMMEDIATE */

    D(0xc00a, NIHF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, andi, 0, 0x2020)

    D(0xc00b, NILF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, andi, 0, 0x2000)

    D(0xa504, NIHH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, andi, 0, 0x1030)

    D(0xa505, NIHL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, andi, 0, 0x1020)

    D(0xa506, NILH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, andi, 0, 0x1010)

    D(0xa507, NILL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, andi, 0, 0x1000)

    C(0x9400, NI,      SI,    Z,   m1_8u, i2_8u, new, m1_8, and, nz64)

    C(0xeb54, NIY,     SIY,   LD,  m1_8u, i2_8u, new, m1_8, and, nz64)

/* BRANCH AND SAVE */

    C(0x0d00, BASR,    RR_a,  Z,   0, r2_nz, r1, 0, bas, 0)

    C(0x4d00, BAS,     RX_a,  Z,   0, a2, r1, 0, bas, 0)

/* BRANCH RELATIVE AND SAVE */

    C(0xa705, BRAS,    RI_b,  Z,   0, 0, r1, 0, basi, 0)

    C(0xc005, BRASL,   RIL_b, Z,   0, 0, r1, 0, basi, 0)

/* BRANCH ON CONDITION */

    C(0x0700, BCR,     RR_b,  Z,   0, r2_nz, 0, 0, bc, 0)

    C(0x4700, BC,      RX_b,  Z,   0, a2, 0, 0, bc, 0)

/* BRANCH RELATIVE ON CONDITION */

    C(0xa704, BRC,     RI_c,  Z,   0, 0, 0, 0, bc, 0)

    C(0xc004, BRCL,    RIL_c, Z,   0, 0, 0, 0, bc, 0)

/* BRANCH ON COUNT */

    C(0x0600, BCTR,    RR_a,  Z,   0, r2_nz, 0, 0, bct32, 0)

    C(0xb946, BCTGR,   RRE,   Z,   0, r2_nz, 0, 0, bct64, 0)

    C(0x4600, BCT,     RX_a,  Z,   0, a2, 0, 0, bct32, 0)

    C(0xe346, BCTG,    RXY_a, Z,   0, a2, 0, 0, bct64, 0)

/* BRANCH RELATIVE ON COUNT */

    C(0xa706, BRCT,    RI_b,  Z,   0, 0, 0, 0, bct32, 0)

    C(0xa707, BRCTG,   RI_b,  Z,   0, 0, 0, 0, bct64, 0)

/* CHECKSUM */

    C(0xb241, CKSM,    RRE,   Z,   r1_o, ra2, new, r1_32, cksm, 0)

/* COMPARE */

    C(0x1900, CR,      RR_a,  Z,   r1_o, r2_o, 0, 0, 0, cmps32)

    C(0x5900, C,       RX_a,  Z,   r1_o, m2_32s, 0, 0, 0, cmps32)

    C(0xe359, CY,      RXY_a, LD,  r1_o, m2_32s, 0, 0, 0, cmps32)

    C(0xb920, CGR,     RRE,   Z,   r1_o, r2_o, 0, 0, 0, cmps64)

    C(0xb930, CGFR,    RRE,   Z,   r1_o, r2_32s, 0, 0, 0, cmps64)

    C(0xe320, CG,      RXY_a, Z,   r1_o, m2_64, 0, 0, 0, cmps64)

    C(0xe330, CGF,     RXY_a, Z,   r1_o, m2_32s, 0, 0, 0, cmps64)

    C(0xb309, CEBR,    RRE,   Z,   e1, e2, 0, 0, ceb, 0)

    C(0xb319, CDBR,    RRE,   Z,   f1_o, f2_o, 0, 0, cdb, 0)

    C(0xb349, CXBR,    RRE,   Z,   x1_o, x2_o, 0, 0, cxb, 0)

    C(0xed09, CEB,     RXE,   Z,   e1, m2_32u, 0, 0, ceb, 0)

    C(0xed19, CDB,     RXE,   Z,   f1_o, m2_64, 0, 0, cdb, 0)

/* COMPARE IMMEDIATE */

    C(0xc20d, CFI,     RIL_a, EI,  r1, i2, 0, 0, 0, cmps32)

    C(0xc20c, CGFI,    RIL_a, EI,  r1, i2, 0, 0, 0, cmps64)

/* COMPARE HALFWORD */

    C(0x4900, CH,      RX_a,  Z,   r1_o, m2_16s, 0, 0, 0, cmps32)

    C(0xe379, CHY,     RXY_a, LD,  r1_o, m2_16s, 0, 0, 0, cmps32)

    C(0xe334, CGH,     RXY_a, GIE, r1_o, m2_16s, 0, 0, 0, cmps64)

/* COMPARE HALFWORD IMMEDIATE */

    C(0xa70e, CHI,     RI_a,  Z,   r1_o, i2, 0, 0, 0, cmps32)

    C(0xa70f, CGHI,    RI_a,  Z,   r1_o, i2, 0, 0, 0, cmps64)

    C(0xe554, CHHSI,   SIL,   GIE, m1_16s, i2, 0, 0, 0, cmps64)

    C(0xe55c, CHSI,    SIL,   GIE, m1_32s, i2, 0, 0, 0, cmps64)

    C(0xe558, CGHSI,   SIL,   GIE, m1_64, i2, 0, 0, 0, cmps64)

/* COMPARE HALFWORD RELATIVE LONG */

    C(0xc605, CHRL,    RIL_a, GIE, r1_o, mri2_32s, 0, 0, 0, cmps32)

    C(0xc604, CGHRL,   RIL_a, GIE, r1_o, mri2_64, 0, 0, 0, cmps64)

/* COMPARE LOGICAL */

    C(0x1500, CLR,     RR_a,  Z,   r1, r2, 0, 0, 0, cmpu32)

    C(0x5500, CL,      RX_a,  Z,   r1, m2_32s, 0, 0, 0, cmpu32)

    C(0xe355, CLY,     RXY_a, LD,  r1, m2_32s, 0, 0, 0, cmpu32)

    C(0xb921, CLGR,    RRE,   Z,   r1, r2, 0, 0, 0, cmpu64)

    C(0xb931, CLGFR,   RRE,   Z,   r1, r2_32u, 0, 0, 0, cmpu64)

    C(0xe321, CLG,     RXY_a, Z,   r1, m2_64, 0, 0, 0, cmpu64)

    C(0xe331, CLGF,    RXY_a, Z,   r1, m2_32u, 0, 0, 0, cmpu64)

    C(0xd500, CLC,     SS_a,  Z,   la1, a2, 0, 0, clc, 0)

/* COMPARE LOGICAL IMMEDIATE */

    C(0xc20f, CLFI,    RIL_a, EI,  r1, i2, 0, 0, 0, cmpu32)

    C(0xc20e, CLGFI,   RIL_a, EI,  r1, i2_32u, 0, 0, 0, cmpu64)

    C(0x9500, CLI,     SI,    Z,   m1_8u, i2_8u, 0, 0, 0, cmpu64)

    C(0xeb55, CLIY,    SIY,   LD,  m1_8u, i2_8u, 0, 0, 0, cmpu64)

    C(0xe555, CLHHSI,  SIL,   GIE, m1_16u, i2_16u, 0, 0, 0, cmpu64)

    C(0xe55d, CLFHSI,  SIL,   GIE, m1_32u, i2_16u, 0, 0, 0, cmpu64)

    C(0xe559, CLGHSI,  SIL,   GIE, m1_64, i2_16u, 0, 0, 0, cmpu64)

/* COMPARE LOGICAL RELATIVE LONG */

    C(0xc60f, CLRL,    RIL_b, GIE, r1_o, mri2_32u, 0, 0, 0, cmpu32)

    C(0xc60a, CLGRL,   RIL_b, GIE, r1_o, mri2_64, 0, 0, 0, cmpu64)

    C(0xc60e, CLGFRL,  RIL_b, GIE, r1_o, mri2_32u, 0, 0, 0, cmpu64)

    C(0xc607, CLHRL,   RIL_b, GIE, r1_o, mri2_16u, 0, 0, 0, cmpu32)

    C(0xc606, CLGHRL,  RIL_b, GIE, r1_o, mri2_16u, 0, 0, 0, cmpu64)

/* COMPARE LOGICAL LONG EXTENDED */

    C(0xa900, CLCLE,   RS_a,  Z,   0, a2, 0, 0, clcle, 0)

/* COMPARE LOGICAL CHARACTERS UNDER MASK */

    C(0xbd00, CLM,     RS_b,  Z,   r1_o, a2, 0, 0, clm, 0)

    C(0xeb21, CLMY,    RSY_b, LD,  r1_o, a2, 0, 0, clm, 0)

    C(0xeb20, CLMH,    RSY_b, Z,   r1_sr32, a2, 0, 0, clm, 0)

/* COMPARE LOGICAL STRING */

    C(0xb25d, CLST,    RRE,   Z,   r1_o, r2_o, 0, 0, clst, 0)

/* COMPARE AND SWAP */

    C(0xba00, CS,      RS_a,  Z,   r1_o, a2, new, r1_32, cs, 0)

    C(0xeb14, CSY,     RSY_a, LD,  r1_o, a2, new, r1_32, cs, 0)

    C(0xeb30, CSG,     RSY_a, Z,   r1_o, a2, r1, 0, csg, 0)

/* COMPARE DOUBLE AND SWAP */

    C(0xbb00, CDS,     RS_a,  Z,   r1_D32, a2, new, r1_D32, cds, 0)

    C(0xeb31, CDSY,    RSY_a, LD,  r1_D32, a2, new, r1_D32, cds, 0)

    C(0xeb3e, CDSG,    RSY_a, Z,   0, a2, 0, 0, cdsg, 0)

/* CONVERT TO DECIMAL */

    C(0x4e00, CVD,     RX_a,  Z,   r1_o, a2, 0, 0, cvd, 0)

    C(0xe326, CVDY,    RXY_a, LD,  r1_o, a2, 0, 0, cvd, 0)

/* CONVERT TO FIXED */

    C(0xb398, CFEBR,   RRF_e, Z,   0, e2, new, r1_32, cfeb, 0)

    C(0xb399, CFDBR,   RRF_e, Z,   0, f2_o, new, r1_32, cfdb, 0)

    C(0xb39a, CFXBR,   RRF_e, Z,   0, x2_o, new, r1_32, cfxb, 0)

    C(0xb3a8, CGEBR,   RRF_e, Z,   0, e2, r1, 0, cgeb, 0)

    C(0xb3a9, CGDBR,   RRF_e, Z,   0, f2_o, r1, 0, cgdb, 0)

    C(0xb3aa, CGXBR,   RRF_e, Z,   0, x2_o, r1, 0, cgxb, 0)

/* CONVERT FROM FIXED */

    C(0xb394, CEFBR,   RRF_e, Z,   0, r2_32s, new, e1, cegb, 0)

    C(0xb395, CDFBR,   RRF_e, Z,   0, r2_32s, f1, 0, cdgb, 0)

    C(0xb396, CXFBR,   RRF_e, Z,   0, r2_32s, x1, 0, cxgb, 0)

    C(0xb3a4, CEGBR,   RRF_e, Z,   0, r2_o, new, e1, cegb, 0)

    C(0xb3a5, CDGBR,   RRF_e, Z,   0, r2_o, f1, 0, cdgb, 0)

    C(0xb3a6, CXGBR,   RRF_e, Z,   0, r2_o, x1, 0, cxgb, 0)

/* DIVIDE */

    C(0x1d00, DR,      RR_a,  Z,   r1_D32, r2_32s, new_P, r1_P32, divs32, 0)

    C(0x5d00, D,       RX_a,  Z,   r1_D32, m2_32s, new_P, r1_P32, divs32, 0)

    C(0xb30d, DEBR,    RRE,   Z,   e1, e2, new, e1, deb, 0)

    C(0xb31d, DDBR,    RRE,   Z,   f1_o, f2_o, f1, 0, ddb, 0)

    C(0xb34d, DXBR,    RRE,   Z,   0, x2_o, x1, 0, dxb, 0)

    C(0xed0d, DEB,     RXE,   Z,   e1, m2_32u, new, e1, deb, 0)

    C(0xed1d, DDB,     RXE,   Z,   f1_o, m2_64, f1, 0, ddb, 0)

/* DIVIDE LOGICAL */

    C(0xb997, DLR,     RRE,   Z,   r1_D32, r2_32u, new_P, r1_P32, divu32, 0)

    C(0xe397, DL,      RXY_a, Z,   r1_D32, m2_32u, new_P, r1_P32, divu32, 0)

    C(0xb987, DLGR,    RRE,   Z,   0, r2_o, r1_P, 0, divu64, 0)

    C(0xe387, DLG,     RXY_a, Z,   0, m2_64, r1_P, 0, divu64, 0)

/* DIVIDE SINGLE */

    C(0xb90d, DSGR,    RRE,   Z,   r1p1, r2, r1_P, 0, divs64, 0)

    C(0xb91d, DSGFR,   RRE,   Z,   r1p1, r2_32s, r1_P, 0, divs64, 0)

    C(0xe30d, DSG,     RXY_a, Z,   r1p1, m2_64, r1_P, 0, divs64, 0)

    C(0xe31d, DSGF,    RXY_a, Z,   r1p1, m2_32s, r1_P, 0, divs64, 0)

/* EXCLUSIVE OR */

    C(0x1700, XR,      RR_a,  Z,   r1, r2, new, r1_32, xor, nz32)

    C(0xb9f7, XRK,     RRF_a, DO,  r2, r3, new, r1_32, xor, nz32)

    C(0x5700, X,       RX_a,  Z,   r1, m2_32s, new, r1_32, xor, nz32)

    C(0xe357, XY,      RXY_a, LD,  r1, m2_32s, new, r1_32, xor, nz32)

    C(0xb982, XGR,     RRE,   Z,   r1, r2, r1, 0, xor, nz64)

    C(0xb9e7, XGRK,    RRF_a, DO,  r2, r3, r1, 0, xor, nz64)

    C(0xe382, XG,      RXY_a, Z,   r1, m2_64, r1, 0, xor, nz64)

    C(0xd700, XC,      SS_a,  Z,   la1, a2, 0, 0, xc, 0)

/* EXCLUSIVE OR IMMEDIATE */

    D(0xc006, XIHF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, xori, 0, 0x2020)

    D(0xc007, XILF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, xori, 0, 0x2000)

    C(0x9700, XI,      SI,    Z,   m1_8u, i2_8u, new, m1_8, xor, nz64)

    C(0xeb57, XIY,     SIY,   LD,  m1_8u, i2_8u, new, m1_8, xor, nz64)

/* EXECUTE */

    C(0x4400, EX,      RX_a,  Z,   r1_o, a2, 0, 0, ex, 0)

/* EXECUTE RELATIVE LONG */

    C(0xc600, EXRL,    RIL_b, EE,  r1_o, ri2, 0, 0, ex, 0)

/* EXTRACT ACCESS */

    C(0xb24f, EAR,     RRE,   Z,   0, 0, new, r1_32, ear, 0)

/* EXTRACT FPC */

    C(0xb38c, EFPC,    RRE,   Z,   0, 0, new, r1_32, efpc, 0)

/* FIND LEFTMOST ONE */

    C(0xb983, FLOGR,   RRE,   EI,  0, r2_o, r1_P, 0, flogr, 0)

/* INSERT CHARACTER */

    C(0x4300, IC,      RX_a,  Z,   0, m2_8u, 0, r1_8, mov2, 0)

    C(0xe373, ICY,     RXY_a, LD,  0, m2_8u, 0, r1_8, mov2, 0)

/* INSERT CHARACTERS UNDER MASK */

    D(0xbf00, ICM,     RS_b,  Z,   0, a2, r1, 0, icm, 0, 0)

    D(0xeb81, ICMY,    RSY_b, LD,  0, a2, r1, 0, icm, 0, 0)

    D(0xeb80, ICMH,    RSY_b, Z,   0, a2, r1, 0, icm, 0, 32)

/* INSERT IMMEDIATE */

    D(0xc008, IIHF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, insi, 0, 0x2020)

    D(0xc009, IILF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, insi, 0, 0x2000)

    D(0xa500, IIHH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, insi, 0, 0x1030)

    D(0xa501, IIHL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, insi, 0, 0x1020)

    D(0xa502, IILH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, insi, 0, 0x1010)

    D(0xa503, IILL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, insi, 0, 0x1000)

/* INSERT PROGRAM MASK */

    C(0xb222, IPM,     RRE,   Z,   0, 0, r1, 0, ipm, 0)

/* LOAD */

    C(0x1800, LR,      RR_a,  Z,   0, r2_o, 0, cond_r1r2_32, mov2, 0)

    C(0x5800, L,       RX_a,  Z,   0, a2, new, r1_32, ld32s, 0)

    C(0xe358, LY,      RXY_a, Z,   0, a2, new, r1_32, ld32s, 0)

    C(0xb904, LGR,     RRE,   Z,   0, r2_o, 0, r1, mov2, 0)

    C(0xb914, LGFR,    RRE,   Z,   0, r2_32s, 0, r1, mov2, 0)

    C(0xe304, LG,      RXY_a, Z,   0, a2, r1, 0, ld64, 0)

    C(0xe314, LGF,     RXY_a, Z,   0, a2, r1, 0, ld32s, 0)

    C(0x2800, LDR,     RR_a,  Z,   0, f2_o, 0, f1, mov2, 0)

    C(0x6800, LD,      RX_a,  Z,   0, m2_64, 0, f1, mov2, 0)

    C(0xed65, LDY,     RXY_a, LD,  0, m2_64, 0, f1, mov2, 0)

    C(0x3800, LER,     RR_a,  Z,   0, e2, 0, cond_e1e2, mov2, 0)

    C(0x7800, LE,      RX_a,  Z,   0, m2_32u, 0, e1, mov2, 0)

    C(0xed64, LEY,     RXY_a, LD,  0, m2_32u, 0, e1, mov2, 0)

    C(0xb365, LXR,     RRE,   Z,   0, x2_o, 0, x1, movx, 0)

/* LOAD IMMEDIATE */

    C(0xc001, LGFI,    RIL_a, EI,  0, i2, 0, r1, mov2, 0)

/* LOAD RELATIVE LONG */

    C(0xc40d, LRL,     RIL_b, GIE, 0, ri2, new, r1_32, ld32s, 0)

    C(0xc408, LGRL,    RIL_b, GIE, 0, ri2, r1, 0, ld64, 0)

    C(0xc40c, LGFRL,   RIL_b, GIE, 0, ri2, r1, 0, ld32s, 0)

/* LOAD ADDRESS */

    C(0x4100, LA,      RX_a,  Z,   0, a2, 0, r1, mov2, 0)

    C(0xe371, LAY,     RXY_a, LD,  0, a2, 0, r1, mov2, 0)

/* LOAD ADDRESS RELATIVE LONG */

    C(0xc000, LARL,    RIL_b, Z,   0, ri2, 0, r1, mov2, 0)

/* LOAD AND TEST */

    C(0x1200, LTR,     RR_a,  Z,   0, r2_o, 0, cond_r1r2_32, mov2, s32)

    C(0xb902, LTGR,    RRE,   Z,   0, r2_o, 0, r1, mov2, s64)

    C(0xb912, LTGFR,   RRE,   Z,   0, r2_32s, 0, r1, mov2, s64)

    C(0xe312, LT,      RXY_a, EI,  0, a2, new, r1_32, ld32s, s64)

    C(0xe302, LTG,     RXY_a, EI,  0, a2, r1, 0, ld64, s64)

    C(0xe332, LTGF,    RXY_a, GIE, 0, a2, r1, 0, ld32s, s64)

    C(0xb302, LTEBR,   RRE,   Z,   0, e2, 0, cond_e1e2, mov2, f32)

    C(0xb312, LTDBR,   RRE,   Z,   0, f2_o, 0, f1, mov2, f64)

    C(0xb342, LTXBR,   RRE,   Z,   0, x2_o, 0, x1, movx, f128)

/* LOAD BYTE */

    C(0xb926, LBR,     RRE,   EI,  0, r2_8s, 0, r1_32, mov2, 0)

    C(0xb906, LGBR,    RRE,   EI,  0, r2_8s, 0, r1, mov2, 0)

    C(0xe376, LB,      RXY_a, LD,  0, a2, new, r1_32, ld8s, 0)

    C(0xe377, LGB,     RXY_a, LD,  0, a2, r1, 0, ld8s, 0)

/* LOAD COMPLEMENT */

    C(0x1300, LCR,     RR_a,  Z,   0, r2, new, r1_32, neg, neg32)

    C(0xb903, LCGR,    RRE,   Z,   0, r2, r1, 0, neg, neg64)

    C(0xb913, LCGFR,   RRE,   Z,   0, r2_32s, r1, 0, neg, neg64)

    C(0xb303, LCEBR,   RRE,   Z,   0, e2, new, e1, negf32, f32)

    C(0xb313, LCDBR,   RRE,   Z,   0, f2_o, f1, 0, negf64, f64)

    C(0xb343, LCXBR,   RRE,   Z,   0, x2_o, x1, 0, negf128, f128)

/* LOAD HALFWORD */

    C(0xb927, LHR,     RRE,   EI,  0, r2_16s, 0, r1_32, mov2, 0)

    C(0xb907, LGHR,    RRE,   EI,  0, r2_16s, 0, r1, mov2, 0)

    C(0x4800, LH,      RX_a,  Z,   0, a2, new, r1_32, ld16s, 0)

    C(0xe378, LHY,     RXY_a, LD,  0, a2, new, r1_32, ld16s, 0)

    C(0xe315, LGH,     RXY_a, Z,   0, a2, r1, 0, ld16s, 0)

/* LOAD HALFWORD IMMEDIATE */

    C(0xa708, LHI,     RI_a,  Z,   0, i2, 0, r1_32, mov2, 0)

    C(0xa709, LGHI,    RI_a,  Z,   0, i2, 0, r1, mov2, 0)

/* LOAD HALFWORD RELATIVE LONG */

    C(0xc405, LHRL,    RIL_b, GIE, 0, ri2, new, r1_32, ld16s, 0)

    C(0xc404, LGHRL,   RIL_b, GIE, 0, ri2, r1, 0, ld16s, 0)

/* LOAD LOGICAL */

    C(0xb916, LLGFR,   RRE,   Z,   0, r2_32u, 0, r1, mov2, 0)

    C(0xe316, LLGF,    RXY_a, Z,   0, a2, r1, 0, ld32u, 0)

/* LOAD LOGICAL RELATIVE LONG */

    C(0xc40e, LLGFRL,  RIL_b, GIE, 0, ri2, r1, 0, ld32u, 0)

/* LOAD LOGICAL CHARACTER */

    C(0xb994, LLCR,    RRE,   EI,  0, r2_8u, 0, r1_32, mov2, 0)

    C(0xb984, LLGCR,   RRE,   EI,  0, r2_8u, 0, r1, mov2, 0)

    C(0xe394, LLC,     RXY_a, EI,  0, a2, new, r1_32, ld8u, 0)

    C(0xe390, LLGC,    RXY_a, Z,   0, a2, r1, 0, ld8u, 0)

/* LOAD LOGICAL HALFWORD */

    C(0xb995, LLHR,    RRE,   EI,  0, r2_16u, 0, r1_32, mov2, 0)

    C(0xb985, LLGHR,   RRE,   EI,  0, r2_16u, 0, r1, mov2, 0)

    C(0xe395, LLH,     RXY_a, EI,  0, a2, new, r1_32, ld16u, 0)

    C(0xe391, LLGH,    RXY_a, Z,   0, a2, r1, 0, ld16u, 0)

/* LOAD LOGICAL HALFWORD RELATIVE LONG */

    C(0xc402, LLHRL,   RIL_b, GIE, 0, ri2, new, r1_32, ld16u, 0)

    C(0xc406, LLGHRL,  RIL_b, GIE, 0, ri2, r1, 0, ld16u, 0)

/* LOAD LOGICAL IMMEDATE */

    D(0xc00e, LLIHF,   RIL_a, EI, 0, i2_32u_shl, 0, r1, mov2, 0, 32)

    D(0xc00f, LLILF,   RIL_a, EI, 0, i2_32u_shl, 0, r1, mov2, 0, 0)

    D(0xa50c, LLIHH,   RI_a,  Z,  0, i2_16u_shl, 0, r1, mov2, 0, 48)

    D(0xa50d, LLIHL,   RI_a,  Z,  0, i2_16u_shl, 0, r1, mov2, 0, 32)

    D(0xa50e, LLILH,   RI_a,  Z,  0, i2_16u_shl, 0, r1, mov2, 0, 16)

    D(0xa50f, LLILL,   RI_a,  Z,  0, i2_16u_shl, 0, r1, mov2, 0, 0)

/* LOAD LOGICAL THIRTY ONE BITS */

    C(0xb917, LLGTR,   RRE,   Z,  0, r2_o, r1, 0, llgt, 0)

    C(0xe317, LLGT,    RXY_a, Z,  0, m2_32u, r1, 0, llgt, 0)

/* LOAD NEGATIVE */

    C(0x1100, LNR,     RR_a,  Z,   0, r2_32s, new, r1_32, nabs, nabs32)

    C(0xb901, LNGR,    RRE,   Z,   0, r2, r1, 0, nabs, nabs64)

    C(0xb911, LNGFR,   RRE,   Z,   0, r2_32s, r1, 0, nabs, nabs64)

    C(0xb301, LNEBR,   RRE,   Z,   0, e2, new, e1, nabsf32, f32)

    C(0xb311, LNDBR,   RRE,   Z,   0, f2_o, f1, 0, nabsf64, f64)

    C(0xb341, LNXBR,   RRE,   Z,   0, x2_o, x1, 0, nabsf128, f128)

/* LOAD POSITIVE */

    C(0x1000, LPR,     RR_a,  Z,   0, r2_32s, new, r1_32, abs, abs32)

    C(0xb900, LPGR,    RRE,   Z,   0, r2, r1, 0, abs, abs64)

    C(0xb910, LPGFR,   RRE,   Z,   0, r2_32s, r1, 0, abs, abs64)

    C(0xb300, LPEBR,   RRE,   Z,   0, e2, new, e1, absf32, f32)

    C(0xb310, LPDBR,   RRE,   Z,   0, f2_o, f1, 0, absf64, f64)

    C(0xb340, LPXBR,   RRE,   Z,   0, x2_o, x1, 0, absf128, f128)

/* LOAD REVERSED */

    C(0xb91f, LRVR,    RRE,   Z,   0, r2_32u, new, r1_32, rev32, 0)

    C(0xb90f, LRVGR,   RRE,   Z,   0, r2_o, r1, 0, rev64, 0)

    C(0xe31f, LRVH,    RXY_a, Z,   0, m2_16u, new, r1_16, rev16, 0)

    C(0xe31e, LRV,     RXY_a, Z,   0, m2_32u, new, r1_32, rev32, 0)

    C(0xe30f, LRVG,    RXY_a, Z,   0, m2_64, r1, 0, rev64, 0)

/* LOAD ZERO */

    C(0xb374, LZER,    RRE,   Z,   0, 0, 0, e1, zero, 0)

    C(0xb375, LZDR,    RRE,   Z,   0, 0, 0, f1, zero, 0)

    C(0xb376, LZXR,    RRE,   Z,   0, 0, 0, x1, zero2, 0)

/* LOAD FPC */

    C(0xb29d, LFPC,    S,     Z,   0, m2_32u, 0, 0, sfpc, 0)

/* LOAD LENGTHENED */

    C(0xb304, LDEBR,   RRE,   Z,   0, e2, f1, 0, ldeb, 0)

    C(0xb305, LXDBR,   RRE,   Z,   0, f2_o, x1, 0, lxdb, 0)

    C(0xb306, LXEBR,   RRE,   Z,   0, e2, x1, 0, lxeb, 0)

    C(0xed04, LDEB,    RXE,   Z,   0, m2_32u, f1, 0, ldeb, 0)

    C(0xed05, LXDB,    RXE,   Z,   0, m2_64, x1, 0, lxdb, 0)

    C(0xed06, LXEB,    RXE,   Z,   0, m2_32u, x1, 0, lxeb, 0)

/* LOAD ROUNDED */

    C(0xb344, LEDBR,   RRE,   Z,   0, f2_o, new, e1, ledb, 0)

    C(0xb345, LDXBR,   RRE,   Z,   0, x2_o, f1, 0, ldxb, 0)

    C(0xb346, LEXBR,   RRE,   Z,   0, x2_o, new, e1, lexb, 0)

/* LOAD MULTIPLE */

    C(0x9800, LM,      RS_a,  Z,   0, a2, 0, 0, lm32, 0)

    C(0xeb98, LMY,     RSY_a, LD,  0, a2, 0, 0, lm32, 0)

    C(0xeb04, LMG,     RSY_a, Z,   0, a2, 0, 0, lm64, 0)

/* LOAD MULTIPLE HIGH */

    C(0xeb96, LMH,     RSY_a, Z,   0, a2, 0, 0, lmh, 0)

/* LOAD ACCESS MULTIPLE */

    C(0x9a00, LAM,     RS_a,  Z,   0, a2, 0, 0, lam, 0)

    C(0xeb9a, LAMY,    RSY_a, LD,  0, a2, 0, 0, lam, 0)

/* MOVE */

    C(0xd200, MVC,     SS_a,  Z,   la1, a2, 0, 0, mvc, 0)

    C(0xe544, MVHHI,   SIL,   GIE, la1, i2, 0, m1_16, mov2, 0)

    C(0xe54c, MVHI,    SIL,   GIE, la1, i2, 0, m1_32, mov2, 0)

    C(0xe548, MVGHI,   SIL,   GIE, la1, i2, 0, m1_64, mov2, 0)

    C(0x9200, MVI,     SI,    Z,   la1, i2, 0, m1_8, mov2, 0)

    C(0xeb52, MVIY,    SIY,   LD,  la1, i2, 0, m1_8, mov2, 0)

/* MOVE LONG */

    C(0x0e00, MVCL,    RR_a,  Z,   0, 0, 0, 0, mvcl, 0)

/* MOVE LONG EXTENDED */

    C(0xa800, MVCLE,   RS_a,  Z,   0, a2, 0, 0, mvcle, 0)

/* MOVE PAGE */

    C(0xb254, MVPG,    RRE,   Z,   r1_o, r2_o, 0, 0, mvpg, 0)

/* MOVE STRING */

    C(0xb255, MVST,    RRE,   Z,   r1_o, r2_o, 0, 0, mvst, 0)

/* MULTIPLY */

    C(0x1c00, MR,      RR_a,  Z,   r1p1_32s, r2_32s, new, r1_D32, mul, 0)

    C(0x5c00, M,       RX_a,  Z,   r1p1_32s, m2_32s, new, r1_D32, mul, 0)

    C(0xe35c, MFY,     RXY_a, GIE, r1p1_32s, m2_32s, new, r1_D32, mul, 0)

    C(0xb317, MEEBR,   RRE,   Z,   e1, e2, new, e1, meeb, 0)

    C(0xb31c, MDBR,    RRE,   Z,   f1_o, f2_o, f1, 0, mdb, 0)

    C(0xb34c, MXBR,    RRE,   Z,   0, x2_o, x1, 0, mxb, 0)

    C(0xb30c, MDEBR,   RRE,   Z,   f1_o, e2, f1, 0, mdeb, 0)

    C(0xb307, MXDBR,   RRE,   Z,   0, f2_o, x1, 0, mxdb, 0)

    C(0xed17, MEEB,    RXE,   Z,   e1, m2_32u, new, e1, meeb, 0)

    C(0xed1c, MDB,     RXE,   Z,   f1_o, m2_64, f1, 0, mdb, 0)

    C(0xed0c, MDEB,    RXE,   Z,   f1_o, m2_32u, f1, 0, mdeb, 0)

    C(0xed07, MXDB,    RXE,   Z,   0, m2_64, x1, 0, mxdb, 0)

/* MULTIPLY HALFWORD */

    C(0x4c00, MH,      RX_a,  Z,   r1_o, m2_16s, new, r1_32, mul, 0)

    C(0xe37c, MHY,     RXY_a, GIE, r1_o, m2_16s, new, r1_32, mul, 0)

/* MULTIPLY HALFWORD IMMEDIATE */

    C(0xa70c, MHI,     RI_a,  Z,   r1_o, i2, new, r1_32, mul, 0)

    C(0xa70d, MGHI,    RI_a,  Z,   r1_o, i2, r1, 0, mul, 0)

/* MULTIPLY LOGICAL */

    C(0xb996, MLR,     RRE,   Z,   r1p1_32u, r2_32u, new, r1_D32, mul, 0)

    C(0xe396, ML,      RXY_a, Z,   r1p1_32u, m2_32u, new, r1_D32, mul, 0)

    C(0xb986, MLGR,    RRE,   Z,   r1p1, r2_o, r1_P, 0, mul128, 0)

    C(0xe386, MLG,     RXY_a, Z,   r1p1, m2_64, r1_P, 0, mul128, 0)

/* MULTIPLY SINGLE */

    C(0xb252, MSR,     RRE,   Z,   r1_o, r2_o, new, r1_32, mul, 0)

    C(0x7100, MS,      RX_a,  Z,   r1_o, m2_32s, new, r1_32, mul, 0)

    C(0xe351, MSY,     RXY_a, LD,  r1_o, m2_32s, new, r1_32, mul, 0)

    C(0xb90c, MSGR,    RRE,   Z,   r1_o, r2_o, r1, 0, mul, 0)

    C(0xb91c, MSGFR,   RRE,   Z,   r1_o, r2_32s, r1, 0, mul, 0)

    C(0xe30c, MSG,     RXY_a, Z,   r1_o, m2_64, r1, 0, mul, 0)

    C(0xe31c, MSGF,    RXY_a, Z,   r1_o, m2_32s, r1, 0, mul, 0)

/* MULTIPLY SINGLE IMMEDIATE */

    C(0xc201, MSFI,    RIL_a, GIE, r1_o, i2, new, r1_32, mul, 0)

    C(0xc200, MSGFI,   RIL_a, GIE, r1_o, i2, r1, 0, mul, 0)

/* MULTIPLY AND ADD */

    C(0xb30e, MAEBR,   RRD,   Z,   e1, e2, new, e1, maeb, 0)

    C(0xb31e, MADBR,   RRD,   Z,   f1_o, f2_o, f1, 0, madb, 0)

    C(0xed0e, MAEB,    RXF,   Z,   e1, m2_32u, new, e1, maeb, 0)

    C(0xed1e, MADB,    RXF,   Z,   f1_o, m2_64, f1, 0, madb, 0)

/* MULTIPLY AND SUBTRACT */

    C(0xb30f, MSEBR,   RRD,   Z,   e1, e2, new, e1, mseb, 0)

    C(0xb31f, MSDBR,   RRD,   Z,   f1_o, f2_o, f1, 0, msdb, 0)

    C(0xed0f, MSEB,    RXF,   Z,   e1, m2_32u, new, e1, mseb, 0)

    C(0xed1f, MSDB,    RXF,   Z,   f1_o, m2_64, f1, 0, msdb, 0)

/* OR */

    C(0x1600, OR,      RR_a,  Z,   r1, r2, new, r1_32, or, nz32)

    C(0xb9f6, ORK,     RRF_a, DO,  r2, r3, new, r1_32, or, nz32)

    C(0x5600, O,       RX_a,  Z,   r1, m2_32s, new, r1_32, or, nz32)

    C(0xe356, OY,      RXY_a, LD,  r1, m2_32s, new, r1_32, or, nz32)

    C(0xb981, OGR,     RRE,   Z,   r1, r2, r1, 0, or, nz64)

    C(0xb9e6, OGRK,    RRF_a, DO,  r2, r3, r1, 0, or, nz64)

    C(0xe381, OG,      RXY_a, Z,   r1, m2_64, r1, 0, or, nz64)

    C(0xd600, OC,      SS_a,  Z,   la1, a2, 0, 0, oc, 0)

/* OR IMMEDIATE */

    D(0xc00c, OIHF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, ori, 0, 0x2020)

    D(0xc00d, OILF,    RIL_a, EI,  r1_o, i2_32u, r1, 0, ori, 0, 0x2000)

    D(0xa508, OIHH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, ori, 0, 0x1030)

    D(0xa509, OIHL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, ori, 0, 0x1020)

    D(0xa50a, OILH,    RI_a,  Z,   r1_o, i2_16u, r1, 0, ori, 0, 0x1010)

    D(0xa50b, OILL,    RI_a,  Z,   r1_o, i2_16u, r1, 0, ori, 0, 0x1000)

    C(0x9600, OI,      SI,    Z,   m1_8u, i2_8u, new, m1_8, or, nz64)

    C(0xeb56, OIY,     SIY,   LD,  m1_8u, i2_8u, new, m1_8, or, nz64)

/* ROTATE LEFT SINGLE LOGICAL */

    C(0xeb1d, RLL,     RSY_a, Z,   r3_o, sh32, new, r1_32, rll32, 0)

    C(0xeb1c, RLLG,    RSY_a, Z,   r3_o, sh64, r1, 0, rll64, 0)

/* SEARCH STRING */

    C(0xb25e, SRST,    RRE,   Z,   r1_o, r2_o, 0, 0, srst, 0)

/* SET ACCESS */

    C(0xb24e, SAR,     RRE,   Z,   0, r2_o, 0, 0, sar, 0)

/* SET FPC */

    C(0xb384, SFPC,    RRE,   Z,   0, r1_o, 0, 0, sfpc, 0)

/* SHIFT LEFT SINGLE */

    D(0x8b00, SLA,     RS_a,  Z,   r1, sh32, new, r1_32, sla, 0, 31)

    D(0xebdd, SLAK,    RSY_a, DO,  r3, sh32, new, r1_32, sla, 0, 31)

    D(0xeb0b, SLAG,    RSY_a, Z,   r3, sh64, r1, 0, sla, 0, 63)

/* SHIFT LEFT SINGLE LOGICAL */

    C(0x8900, SLL,     RS_a,  Z,   r1_o, sh32, new, r1_32, sll, 0)

    C(0xebdf, SLLK,    RSY_a, DO,  r3_o, sh32, new, r1_32, sll, 0)

    C(0xeb0d, SLLG,    RSY_a, Z,   r3_o, sh64, r1, 0, sll, 0)

/* SHIFT RIGHT SINGLE */

    C(0x8a00, SRA,     RS_a,  Z,   r1_32s, sh32, new, r1_32, sra, s32)

    C(0xebdc, SRAK,    RSY_a, DO,  r3_32s, sh32, new, r1_32, sra, s32)

    C(0xeb0a, SRAG,    RSY_a, Z,   r3_o, sh64, r1, 0, sra, s64)

/* SHIFT RIGHT SINGLE LOGICAL */

    C(0x8800, SRL,     RS_a,  Z,   r1_32u, sh32, new, r1_32, srl, 0)

    C(0xebde, SRLK,    RSY_a, DO,  r3_32u, sh32, new, r1_32, srl, 0)

    C(0xeb0c, SRLG,    RSY_a, Z,   r3_o, sh64, r1, 0, srl, 0)

/* SHIFT LEFT DOUBLE */

    D(0x8f00, SLDA,    RS_a,  Z,   r1_D32, sh64, new, r1_D32, sla, 0, 31)

/* SHIFT LEFT DOUBLE LOGICAL */

    C(0x8d00, SLDL,    RS_a,  Z,   r1_D32, sh64, new, r1_D32, sll, 0)

/* SHIFT RIGHT DOUBLE */

    C(0x8e00, SRDA,    RS_a,  Z,   r1_D32, sh64, new, r1_D32, sra, s64)

/* SHIFT RIGHT DOUBLE LOGICAL */

    C(0x8c00, SRDL,    RS_a,  Z,   r1_D32, sh64, new, r1_D32, srl, 0)

/* SQUARE ROOT */

    C(0xb314, SQEBR,   RRE,   Z,   0, e2, new, e1, sqeb, 0)

    C(0xb315, SQDBR,   RRE,   Z,   0, f2_o, f1, 0, sqdb, 0)

    C(0xb316, SQXBR,   RRE,   Z,   0, x2_o, x1, 0, sqxb, 0)

    C(0xed14, SQEB,    RXE,   Z,   0, m2_32u, new, e1, sqeb, 0)

    C(0xed15, SQDB,    RXE,   Z,   0, m2_64, f1, 0, sqdb, 0)

/* STORE */

    C(0x5000, ST,      RX_a,  Z,   r1_o, a2, 0, 0, st32, 0)

    C(0xe350, STY,     RXY_a, LD,  r1_o, a2, 0, 0, st32, 0)

    C(0xe324, STG,     RXY_a, Z,   r1_o, a2, 0, 0, st64, 0)

    C(0x6000, STD,     RX_a,  Z,   f1_o, a2, 0, 0, st64, 0)

    C(0xed67, STDY,    RXY_a, LD,  f1_o, a2, 0, 0, st64, 0)

    C(0x7000, STE,     RX_a,  Z,   e1, a2, 0, 0, st32, 0)

    C(0xed66, STEY,    RXY_a, LD,  e1, a2, 0, 0, st32, 0)

/* STORE RELATIVE LONG */

    C(0xc40f, STRL,    RIL_b, GIE, r1_o, ri2, 0, 0, st32, 0)

    C(0xc40b, STGRL,   RIL_b, GIE, r1_o, ri2, 0, 0, st64, 0)

/* STORE CHARACTER */

    C(0x4200, STC,     RX_a,  Z,   r1_o, a2, 0, 0, st8, 0)

    C(0xe372, STCY,    RXY_a, LD,  r1_o, a2, 0, 0, st8, 0)

/* STORE CHARACTERS UNDER MASK */

    D(0xbe00, STCM,    RS_b,  Z,   r1_o, a2, 0, 0, stcm, 0, 0)

    D(0xeb2d, STCMY,   RSY_b, LD,  r1_o, a2, 0, 0, stcm, 0, 0)

    D(0xeb2c, STCMH,   RSY_b, LD,  r1_o, a2, 0, 0, stcm, 0, 32)

/* STORE HALFWORD */

    C(0x4000, STH,     RX_a,  Z,   r1_o, a2, 0, 0, st16, 0)

    C(0xe370, STHY,    RXY_a, LD,  r1_o, a2, 0, 0, st16, 0)

/* STORE HALFWORD RELATIVE LONG */

    C(0xc407, STHRL,   RIL_b, GIE, r1_o, ri2, 0, 0, st16, 0)

/* STORE REVERSED */

    C(0xe33f, STRVH,   RXY_a, Z,   la2, r1_16u, new, m1_16, rev16, 0)

    C(0xe33e, STRV,    RXY_a, Z,   la2, r1_32u, new, m1_32, rev32, 0)

    C(0xe32f, STRVG,   RXY_a, Z,   la2, r1_o, new, m1_64, rev64, 0)

/* STORE FPC */

    C(0xb29c, STFPC,   S,     Z,   0, a2, new, m2_32, efpc, 0)

/* STORE MULTIPLE */

    D(0x9000, STM,     RS_a,  Z,   0, a2, 0, 0, stm, 0, 4)

    D(0xeb90, STMY,    RSY_a, LD,  0, a2, 0, 0, stm, 0, 4)

    D(0xeb24, STMG,    RSY_a, Z,   0, a2, 0, 0, stm, 0, 8)

/* STORE MULTIPLE HIGH */

    C(0xeb26, STMH,    RSY_a, Z,   0, a2, 0, 0, stmh, 0)

/* STORE ACCESS MULTIPLE */

    C(0x9b00, STAM,    RS_a,  Z,   0, a2, 0, 0, stam, 0)

    C(0xeb9b, STAMY,   RSY_a, LD,  0, a2, 0, 0, stam, 0)

/* SUBTRACT */

    C(0x1b00, SR,      RR_a,  Z,   r1, r2, new, r1_32, sub, subs32)

    C(0xb9f9, SRK,     RRF_a, DO,  r2, r3, new, r1_32, sub, subs32)

    C(0x5b00, S,       RX_a,  Z,   r1, m2_32s, new, r1_32, sub, subs32)

    C(0xe35b, SY,      RXY_a, LD,  r1, m2_32s, new, r1_32, sub, subs32)

    C(0xb909, SGR,     RRE,   Z,   r1, r2, r1, 0, sub, subs64)

    C(0xb919, SGFR,    RRE,   Z,   r1, r2_32s, r1, 0, sub, subs64)

    C(0xb9e9, SGRK,    RRF_a, DO,  r2, r3, r1, 0, sub, subs64)

    C(0xe309, SG,      RXY_a, Z,   r1, m2_64, r1, 0, sub, subs64)

    C(0xe319, SGF,     RXY_a, Z,   r1, m2_32s, r1, 0, sub, subs64)

    C(0xb30b, SEBR,    RRE,   Z,   e1, e2, new, e1, seb, f32)

    C(0xb31b, SDBR,    RRE,   Z,   f1_o, f2_o, f1, 0, sdb, f64)

    C(0xb34b, SXBR,    RRE,   Z,   0, x2_o, x1, 0, sxb, f128)

    C(0xed0b, SEB,     RXE,   Z,   e1, m2_32u, new, e1, seb, f32)

    C(0xed1b, SDB,     RXE,   Z,   f1_o, m2_64, f1, 0, sdb, f64)

/* SUBTRACT HALFWORD */

    C(0x4b00, SH,      RX_a,  Z,   r1, m2_16s, new, r1_32, sub, subs32)

    C(0xe37b, SHY,     RXY_a, LD,  r1, m2_16s, new, r1_32, sub, subs32)

/* SUBTRACT LOGICAL */

    C(0x1f00, SLR,     RR_a,  Z,   r1, r2, new, r1_32, sub, subu32)

    C(0xb9fb, SLRK,    RRF_a, DO,  r2, r3, new, r1_32, sub, subu32)

    C(0x5f00, SL,      RX_a,  Z,   r1, m2_32u, new, r1_32, sub, subu32)

    C(0xe35f, SLY,     RXY_a, LD,  r1, m2_32u, new, r1_32, sub, subu32)

    C(0xb90b, SLGR,    RRE,   Z,   r1, r2, r1, 0, sub, subu64)

    C(0xb91b, SLGFR,   RRE,   Z,   r1, r2_32u, r1, 0, sub, subu64)

    C(0xb9eb, SLGRK,   RRF_a, DO,  r2, r3, r1, 0, sub, subu64)

    C(0xe30b, SLG,     RXY_a, Z,   r1, m2_64, r1, 0, sub, subu64)

    C(0xe31b, SLGF,    RXY_a, Z,   r1, m2_32u, r1, 0, sub, subu64)

/* SUBTRACT LOGICAL IMMEDIATE */

    C(0xc205, SLFI,    RIL_a, EI,  r1, i2_32u, new, r1_32, sub, subu32)

    C(0xc204, SLGFI,   RIL_a, EI,  r1, i2_32u, r1, 0, sub, subu64)

/* SUBTRACT LOGICAL WITH BORROW */

    C(0xb999, SLBR,    RRE,   Z,   r1, r2, new, r1_32, subb, subb32)

    C(0xb989, SLBGR,   RRE,   Z,   r1, r2, r1, 0, subb, subb64)

    C(0xe399, SLB,     RXY_a, Z,   r1, m2_32u, new, r1_32, subb, subb32)

    C(0xe389, SLBG,    RXY_a, Z,   r1, m2_64, r1, 0, subb, subb64)

/* SUPERVISOR CALL */

    C(0x0a00, SVC,     I,     Z,   0, 0, 0, 0, svc, 0)

/* TEST DATA CLASS */

    C(0xed10, TCEB,    RXE,   Z,   e1, a2, 0, 0, tceb, 0)

    C(0xed11, TCDB,    RXE,   Z,   f1_o, a2, 0, 0, tcdb, 0)

    C(0xed12, TCXB,    RXE,   Z,   x1_o, a2, 0, 0, tcxb, 0)

/* TEST UNDER MASK */

    C(0x9100, TM,      SI,    Z,   m1_8u, i2_8u, 0, 0, 0, tm32)

    C(0xeb51, TMY,     SIY,   LD,  m1_8u, i2_8u, 0, 0, 0, tm32)

    D(0xa702, TMHH,    RI_a,  Z,   r1_o, i2_16u_shl, 0, 0, 0, tm64, 48)

    D(0xa703, TMHL,    RI_a,  Z,   r1_o, i2_16u_shl, 0, 0, 0, tm64, 32)

    D(0xa700, TMLH,    RI_a,  Z,   r1_o, i2_16u_shl, 0, 0, 0, tm64, 16)

    D(0xa701, TMLL,    RI_a,  Z,   r1_o, i2_16u_shl, 0, 0, 0, tm64, 0)

/* TRANSLATE */

    C(0xdc00, TR,      SS_a,  Z,   la1, a2, 0, 0, tr, 0)

/* UNPACK */

    /* Really format SS_b, but we pack both lengths into one argument

       for the helper call, so we might as well leave one 8-bit field.  */

    C(0xf300, UNPK,    SS_a,  Z,   la1, a2, 0, 0, unpk, 0)

#ifndef CONFIG_USER_ONLY

/* DIAGNOSE (KVM hypercall) */

    C(0x8300, DIAG,    RX_a,  Z,   0, 0, 0, 0, diag, 0)

/* INSERT STORAGE KEY EXTENDED */

    C(0xb229, ISKE,    RRE,   Z,   0, r2_o, new, r1_8, iske, 0)

/* INVALIDATE PAGE TABLE ENTRY */

    C(0xb221, IPTE,    RRF_a, Z,   r1_o, r2_o, 0, 0, ipte, 0)

/* LOAD CONTROL */

    C(0xb700, LCTL,    RS_a,  Z,   0, a2, 0, 0, lctl, 0)

    C(0xeb2f, LCTLG,   RSY_a, Z,   0, a2, 0, 0, lctlg, 0)

/* LOAD PSW */

    C(0x8200, LPSW,    S,     Z,   0, a2, 0, 0, lpsw, 0)

/* LOAD REAL ADDRESS */

    C(0xb100, LRA,     RX_a,  Z,   0, a2, r1, 0, lra, 0)

    C(0xe313, LRAY,    RXY_a, LD,  0, a2, r1, 0, lra, 0)

    C(0xe303, LRAG,    RXY_a, Z,   0, a2, r1, 0, lra, 0)

/* MOVE TO PRIMARY */

    C(0xda00, MVCP,    SS_d,  Z,   la1, a2, 0, 0, mvcp, 0)

/* MOVE TO SECONDARY */

    C(0xdb00, MVCS,    SS_d,  Z,   la1, a2, 0, 0, mvcs, 0)

/* PURGE TLB */

    C(0xb20d, PTLB,    S,     Z,   0, 0, 0, 0, ptlb, 0)

/* RESET REFERENCE BIT EXTENDED */

    C(0xb22a, RRBE,    RRE,   Z,   0, r2_o, 0, 0, rrbe, 0)

/* SET ADDRESSING MODE */

    /* We only do 64-bit, so accept this as a no-op.

       Let SAM24 and SAM31 signal illegal instruction.  */

    C(0x010e, SAM64,   E,     Z,   0, 0, 0, 0, 0, 0)

/* SET CLOCK */

    /* ??? Not implemented - is it necessary? */

    C(0xb204, SCK,     S,     Z,   0, 0, 0, 0, 0, 0)

/* SET CLOCK COMPARATOR */

    C(0xb206, SCKC,    S,     Z,   0, m2_64, 0, 0, sckc, 0)

/* SET CPU TIMER */

    C(0xb208, SPT,     S,     Z,   0, m2_64, 0, 0, spt, 0)

/* SET PREFIX */

    C(0xb210, SPX,     S,     Z,   0, m2_32u, 0, 0, spx, 0)

/* SET PSW KEY FROM ADDRESS */

    C(0xb20a, SPKA,    S,     Z,   0, a2, 0, 0, spka, 0)

/* SET STORAGE KEY EXTENDED */

    C(0xb22b, SSKE,    RRF_c, Z,   r1_o, r2_o, 0, 0, sske, 0)

/* SET SYSTEM MASK */

    C(0x8000, SSM,     S,     Z,   0, m2_8u, 0, 0, ssm, 0)

/* SIGNAL PROCESSOR */

    C(0xae00, SIGP,    RS_a,  Z,   r3_o, a2, 0, 0, sigp, 0)

/* STORE CLOCK */

    C(0xb205, STCK,    S,     Z,   la2, 0, new, m1_64, stck, 0)

    C(0xb27c, STCKF,   S,     Z,   la2, 0, new, m1_64, stck, 0)

/* STORE CLOCK COMPARATOR */

    C(0xb207, STCKC,   S,     Z,   la2, 0, new, m1_64, stckc, 0)

/* STORE CONTROL */

    C(0xb600, STCTL,   RS_a,  Z,   0, a2, 0, 0, stctl, 0)

    C(0xeb25, STCTG,   RSY_a, Z,   0, a2, 0, 0, stctg, 0)

/* STORE CPU ADDRESS */

    C(0xb212, STAP,    S,     Z,   la2, 0, new, m1_16, stap, 0)

/* STORE CPU ID */

    C(0xb202, STIDP,   S,     Z,   la2, 0, new, m1_64, stidp, 0)

/* STORE CPU TIMER */

    C(0xb209, STPT,    S,     Z,   la2, 0, new, m1_64, stpt, 0)

/* STORE PREFIX */

    C(0xb211, STPX,    S,     Z,   la2, 0, new, m1_32, stpx, 0)

/* STORE THEN AND SYSTEM MASK */

    C(0xac00, STNSM,   SI,    Z,   la1, 0, 0, 0, stnosm, 0)

/* STORE THEN OR SYSTEM MASK */

    C(0xad00, STOSM,   SI,    Z,   la1, 0, 0, 0, stnosm, 0)

/* TEST PROTECTION */

    C(0xe501, TPROT,   SSE,   Z,   la1, a2, 0, 0, tprot, 0)

#endif /* CONFIG_USER_ONLY */