55 lines
3.2 KiB
Modula-2
55 lines
3.2 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)
|
|
/* 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 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)
|
|
|
|
/* 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)
|
|
/* 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)
|