616 lines
32 KiB
Modula-2
616 lines
32 KiB
Modula-2
/* 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)
|
|
|
|
/* 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 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)
|
|
|
|
/* 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 FPC */
|
|
C(0xb38c, EFPC, RRE, Z, 0, 0, new, r1_32, efpc, 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)
|
|
|
|
/* 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 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)
|
|
|
|
/* 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)
|
|
|
|
/* 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)
|
|
/* 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)
|
|
/* 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 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 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 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 */
|