Palaiologos/ti83-sdk
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
850b4987cc
ti83-sdk/tool/tilem-src/emu/z80cb.h

427 lines
12 KiB
C
Raw Blame History

/*
* libtilemcore - Graphing calculator emulation library
*
* Copyright (C) 2009 Benjamin Moody
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
* as published by the Free Software Foundation; either version 2.1 of
* the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, see
* <http://www.gnu.org/licenses/>.
*/
#if defined(PREFIX_DD) || defined(PREFIX_FD)
# define CBINST(fnc, reg) do { \
UNDOCUMENTED(16); \
tmp1 = readb(WZ); \
fnc(tmp1); \
writeb(WZ, tmp1); \
(reg) = tmp1; \
delay(19); \
} while (0)
# define CBINST_HL(fnc) do { \
tmp1 = readb(WZ); \
fnc(tmp1); \
writeb(WZ, tmp1); \
delay(19); \
} while (0)
# define CBINST_UNDOC(fnc, reg) CBINST(fnc, reg)
# define CBINST_UNDOC_HL(fnc) do { \
UNDOCUMENTED(12); \
CBINST_HL(fnc); \
} while (0)
# define CB_BIT(b, reg) do { \
UNDOCUMENTED(12); \
CB_BIT_HL(b); \
} while (0)
# define CB_BIT_HL(b) do { \
tmp1 = readb(WZ) & (1 << b); \
F = ((tmp1 & FLAG_S) /* S */ \
| (W & FLAG_XY) /* X/Y */ \
| (tmp1 ? 0 : FLAG_ZP) /* Z/P */ \
| (FLAG_H) /* H */ \
| (F & FLAG_C)); \
delay(16); \
} while (0)
# define CB_RES(b, reg) do { \
UNDOCUMENTED(16); \
tmp1 = readb(WZ) & ~(1 << b); \
writeb(WZ, tmp1); \
(reg) = tmp1; \
delay(19); \
} while (0)
# define CB_RES_HL(b) do { \
tmp1 = readb(WZ) & ~(1 << b); \
writeb(WZ, tmp1); \
delay(19); \
} while (0)
# define CB_SET(b, reg) do { \
UNDOCUMENTED(16); \
tmp1 = readb(WZ) | (1 << b); \
writeb(WZ, tmp1); \
(reg) = tmp1; \
delay(19); \
} while (0)
# define CB_SET_HL(b) do { \
tmp1 = readb(WZ) | (1 << b); \
writeb(WZ, tmp1); \
delay(19); \
} while (0)
#else /* ! PREFIX_DD, ! PREFIX_FD */
# define CBINST(fnc, reg) do { \
fnc(reg); \
delay(8); \
} while (0)
# define CBINST_HL(fnc) do { \
tmp1 = readb(HL); \
fnc(tmp1); \
writeb(HL, tmp1); \
delay(15); \
} while (0)
# define CBINST_UNDOC(fnc, reg) do { \
UNDOCUMENTED(8); \
CBINST(fnc, reg); \
} while (0)
# define CBINST_UNDOC_HL(fnc) do { \
UNDOCUMENTED(8); \
CBINST_HL(fnc); \
} while (0)
# define CB_BIT(b, reg) do { \
tmp1 = (reg) & (1 << b); \
F = ((tmp1 & FLAG_SXY) /* S/X/Y */ \
| (tmp1 ? 0 : FLAG_ZP) /* Z/P */ \
| (FLAG_H) /* H */ \
| (F & FLAG_C)); \
delay(8); \
} while (0)
# define CB_BIT_HL(b) do { \
tmp1 = readb(HL) & (1 << b); \
F = ((tmp1 & FLAG_S) /* S */ \
| (W & FLAG_XY) /* X/Y */ \
| (tmp1 ? 0 : FLAG_ZP) /* Z/P */ \
| (FLAG_H) /* H */ \
| (F & FLAG_C)); \
delay(12); \
} while (0)
# define CB_RES(b, reg) do { \
(reg) &= ~(1 << b); \
delay(8); \
} while (0)
# define CB_RES_HL(b) do { \
writeb(HL, readb(HL) & ~(1 << b)); \
delay(15); \
} while (0)
# define CB_SET(b, reg) do { \
(reg) |= (1 << b); \
delay(8); \
} while (0)
# define CB_SET_HL(b) do { \
writeb(HL, readb(HL) | (1 << b)); \
delay(15); \
} while (0)
#endif
switch (op) {
case 0x00: CBINST(rlc, B); break;
case 0x01: CBINST(rlc, C); break;
case 0x02: CBINST(rlc, D); break;
case 0x03: CBINST(rlc, E); break;
case 0x04: CBINST(rlc, H); break;
case 0x05: CBINST(rlc, L); break;
case 0x06: CBINST_HL(rlc); break;
case 0x07: CBINST(rlc, A); break;
case 0x08: CBINST(rrc, B); break;
case 0x09: CBINST(rrc, C); break;
case 0x0A: CBINST(rrc, D); break;
case 0x0B: CBINST(rrc, E); break;
case 0x0C: CBINST(rrc, H); break;
case 0x0D: CBINST(rrc, L); break;
case 0x0E: CBINST_HL(rrc); break;
case 0x0F: CBINST(rrc, A); break;
case 0x10: CBINST(rl, B); break;
case 0x11: CBINST(rl, C); break;
case 0x12: CBINST(rl, D); break;
case 0x13: CBINST(rl, E); break;
case 0x14: CBINST(rl, H); break;
case 0x15: CBINST(rl, L); break;
case 0x16: CBINST_HL(rl); break;
case 0x17: CBINST(rl, A); break;
case 0x18: CBINST(rr, B); break;
case 0x19: CBINST(rr, C); break;
case 0x1A: CBINST(rr, D); break;
case 0x1B: CBINST(rr, E); break;
case 0x1C: CBINST(rr, H); break;
case 0x1D: CBINST(rr, L); break;
case 0x1E: CBINST_HL(rr); break;
case 0x1F: CBINST(rr, A); break;
case 0x20: CBINST(sla, B); break;
case 0x21: CBINST(sla, C); break;
case 0x22: CBINST(sla, D); break;
case 0x23: CBINST(sla, E); break;
case 0x24: CBINST(sla, H); break;
case 0x25: CBINST(sla, L); break;
case 0x26: CBINST_HL(sla); break;
case 0x27: CBINST(sla, A); break;
case 0x28: CBINST(sra, B); break;
case 0x29: CBINST(sra, C); break;
case 0x2A: CBINST(sra, D); break;
case 0x2B: CBINST(sra, E); break;
case 0x2C: CBINST(sra, H); break;
case 0x2D: CBINST(sra, L); break;
case 0x2E: CBINST_HL(sra); break;
case 0x2F: CBINST(sra, A); break;
case 0x30: CBINST_UNDOC(slia, B); break;
case 0x31: CBINST_UNDOC(slia, C); break;
case 0x32: CBINST_UNDOC(slia, D); break;
case 0x33: CBINST_UNDOC(slia, E); break;
case 0x34: CBINST_UNDOC(slia, H); break;
case 0x35: CBINST_UNDOC(slia, L); break;
case 0x36: CBINST_UNDOC_HL(slia); break;
case 0x37: CBINST_UNDOC(slia, A); break;
case 0x38: CBINST(srl, B); break;
case 0x39: CBINST(srl, C); break;
case 0x3A: CBINST(srl, D); break;
case 0x3B: CBINST(srl, E); break;
case 0x3C: CBINST(srl, H); break;
case 0x3D: CBINST(srl, L); break;
case 0x3E: CBINST_HL(srl); break;
case 0x3F: CBINST(srl, A); break;
case 0x40: CB_BIT(0, B); break;
case 0x41: CB_BIT(0, C); break;
case 0x42: CB_BIT(0, D); break;
case 0x43: CB_BIT(0, E); break;
case 0x44: CB_BIT(0, H); break;
case 0x45: CB_BIT(0, L); break;
case 0x46: CB_BIT_HL(0); break;
case 0x47: CB_BIT(0, A); break;
case 0x48: CB_BIT(1, B); break;
case 0x49: CB_BIT(1, C); break;
case 0x4A: CB_BIT(1, D); break;
case 0x4B: CB_BIT(1, E); break;
case 0x4C: CB_BIT(1, H); break;
case 0x4D: CB_BIT(1, L); break;
case 0x4E: CB_BIT_HL(1); break;
case 0x4F: CB_BIT(1, A); break;
case 0x50: CB_BIT(2, B); break;
case 0x51: CB_BIT(2, C); break;
case 0x52: CB_BIT(2, D); break;
case 0x53: CB_BIT(2, E); break;
case 0x54: CB_BIT(2, H); break;
case 0x55: CB_BIT(2, L); break;
case 0x56: CB_BIT_HL(2); break;
case 0x57: CB_BIT(2, A); break;
case 0x58: CB_BIT(3, B); break;
case 0x59: CB_BIT(3, C); break;
case 0x5A: CB_BIT(3, D); break;
case 0x5B: CB_BIT(3, E); break;
case 0x5C: CB_BIT(3, H); break;
case 0x5D: CB_BIT(3, L); break;
case 0x5E: CB_BIT_HL(3); break;
case 0x5F: CB_BIT(3, A); break;
case 0x60: CB_BIT(4, B); break;
case 0x61: CB_BIT(4, C); break;
case 0x62: CB_BIT(4, D); break;
case 0x63: CB_BIT(4, E); break;
case 0x64: CB_BIT(4, H); break;
case 0x65: CB_BIT(4, L); break;
case 0x66: CB_BIT_HL(4); break;
case 0x67: CB_BIT(4, A); break;
case 0x68: CB_BIT(5, B); break;
case 0x69: CB_BIT(5, C); break;
case 0x6A: CB_BIT(5, D); break;
case 0x6B: CB_BIT(5, E); break;
case 0x6C: CB_BIT(5, H); break;
case 0x6D: CB_BIT(5, L); break;
case 0x6E: CB_BIT_HL(5); break;
case 0x6F: CB_BIT(5, A); break;
case 0x70: CB_BIT(6, B); break;
case 0x71: CB_BIT(6, C); break;
case 0x72: CB_BIT(6, D); break;
case 0x73: CB_BIT(6, E); break;
case 0x74: CB_BIT(6, H); break;
case 0x75: CB_BIT(6, L); break;
case 0x76: CB_BIT_HL(6); break;
case 0x77: CB_BIT(6, A); break;
case 0x78: CB_BIT(7, B); break;
case 0x79: CB_BIT(7, C); break;
case 0x7A: CB_BIT(7, D); break;
case 0x7B: CB_BIT(7, E); break;
case 0x7C: CB_BIT(7, H); break;
case 0x7D: CB_BIT(7, L); break;
case 0x7E: CB_BIT_HL(7); break;
case 0x7F: CB_BIT(7, A); break;
case 0x80: CB_RES(0, B); break;
case 0x81: CB_RES(0, C); break;
case 0x82: CB_RES(0, D); break;
case 0x83: CB_RES(0, E); break;
case 0x84: CB_RES(0, H); break;
case 0x85: CB_RES(0, L); break;
case 0x86: CB_RES_HL(0); break;
case 0x87: CB_RES(0, A); break;
case 0x88: CB_RES(1, B); break;
case 0x89: CB_RES(1, C); break;
case 0x8A: CB_RES(1, D); break;
case 0x8B: CB_RES(1, E); break;
case 0x8C: CB_RES(1, H); break;
case 0x8D: CB_RES(1, L); break;
case 0x8E: CB_RES_HL(1); break;
case 0x8F: CB_RES(1, A); break;
case 0x90: CB_RES(2, B); break;
case 0x91: CB_RES(2, C); break;
case 0x92: CB_RES(2, D); break;
case 0x93: CB_RES(2, E); break;
case 0x94: CB_RES(2, H); break;
case 0x95: CB_RES(2, L); break;
case 0x96: CB_RES_HL(2); break;
case 0x97: CB_RES(2, A); break;
case 0x98: CB_RES(3, B); break;
case 0x99: CB_RES(3, C); break;
case 0x9A: CB_RES(3, D); break;
case 0x9B: CB_RES(3, E); break;
case 0x9C: CB_RES(3, H); break;
case 0x9D: CB_RES(3, L); break;
case 0x9E: CB_RES_HL(3); break;
case 0x9F: CB_RES(3, A); break;
case 0xA0: CB_RES(4, B); break;
case 0xA1: CB_RES(4, C); break;
case 0xA2: CB_RES(4, D); break;
case 0xA3: CB_RES(4, E); break;
case 0xA4: CB_RES(4, H); break;
case 0xA5: CB_RES(4, L); break;
case 0xA6: CB_RES_HL(4); break;
case 0xA7: CB_RES(4, A); break;
case 0xA8: CB_RES(5, B); break;
case 0xA9: CB_RES(5, C); break;
case 0xAA: CB_RES(5, D); break;
case 0xAB: CB_RES(5, E); break;
case 0xAC: CB_RES(5, H); break;
case 0xAD: CB_RES(5, L); break;
case 0xAE: CB_RES_HL(5); break;
case 0xAF: CB_RES(5, A); break;
case 0xB0: CB_RES(6, B); break;
case 0xB1: CB_RES(6, C); break;
case 0xB2: CB_RES(6, D); break;
case 0xB3: CB_RES(6, E); break;
case 0xB4: CB_RES(6, H); break;
case 0xB5: CB_RES(6, L); break;
case 0xB6: CB_RES_HL(6); break;
case 0xB7: CB_RES(6, A); break;
case 0xB8: CB_RES(7, B); break;
case 0xB9: CB_RES(7, C); break;
case 0xBA: CB_RES(7, D); break;
case 0xBB: CB_RES(7, E); break;
case 0xBC: CB_RES(7, H); break;
case 0xBD: CB_RES(7, L); break;
case 0xBE: CB_RES_HL(7); break;
case 0xBF: CB_RES(7, A); break;
case 0xC0: CB_SET(0, B); break;
case 0xC1: CB_SET(0, C); break;
case 0xC2: CB_SET(0, D); break;
case 0xC3: CB_SET(0, E); break;
case 0xC4: CB_SET(0, H); break;
case 0xC5: CB_SET(0, L); break;
case 0xC6: CB_SET_HL(0); break;
case 0xC7: CB_SET(0, A); break;
case 0xC8: CB_SET(1, B); break;
case 0xC9: CB_SET(1, C); break;
case 0xCA: CB_SET(1, D); break;
case 0xCB: CB_SET(1, E); break;
case 0xCC: CB_SET(1, H); break;
case 0xCD: CB_SET(1, L); break;
case 0xCE: CB_SET_HL(1); break;
case 0xCF: CB_SET(1, A); break;
case 0xD0: CB_SET(2, B); break;
case 0xD1: CB_SET(2, C); break;
case 0xD2: CB_SET(2, D); break;
case 0xD3: CB_SET(2, E); break;
case 0xD4: CB_SET(2, H); break;
case 0xD5: CB_SET(2, L); break;
case 0xD6: CB_SET_HL(2); break;
case 0xD7: CB_SET(2, A); break;
case 0xD8: CB_SET(3, B); break;
case 0xD9: CB_SET(3, C); break;
case 0xDA: CB_SET(3, D); break;
case 0xDB: CB_SET(3, E); break;
case 0xDC: CB_SET(3, H); break;
case 0xDD: CB_SET(3, L); break;
case 0xDE: CB_SET_HL(3); break;
case 0xDF: CB_SET(3, A); break;
case 0xE0: CB_SET(4, B); break;
case 0xE1: CB_SET(4, C); break;
case 0xE2: CB_SET(4, D); break;
case 0xE3: CB_SET(4, E); break;
case 0xE4: CB_SET(4, H); break;
case 0xE5: CB_SET(4, L); break;
case 0xE6: CB_SET_HL(4); break;
case 0xE7: CB_SET(4, A); break;
case 0xE8: CB_SET(5, B); break;
case 0xE9: CB_SET(5, C); break;
case 0xEA: CB_SET(5, D); break;
case 0xEB: CB_SET(5, E); break;
case 0xEC: CB_SET(5, H); break;
case 0xED: CB_SET(5, L); break;
case 0xEE: CB_SET_HL(5); break;
case 0xEF: CB_SET(5, A); break;
case 0xF0: CB_SET(6, B); break;
case 0xF1: CB_SET(6, C); break;
case 0xF2: CB_SET(6, D); break;
case 0xF3: CB_SET(6, E); break;
case 0xF4: CB_SET(6, H); break;
case 0xF5: CB_SET(6, L); break;
case 0xF6: CB_SET_HL(6); break;
case 0xF7: CB_SET(6, A); break;
case 0xF8: CB_SET(7, B); break;
case 0xF9: CB_SET(7, C); break;
case 0xFA: CB_SET(7, D); break;
case 0xFB: CB_SET(7, E); break;
case 0xFC: CB_SET(7, H); break;
case 0xFD: CB_SET(7, L); break;
case 0xFE: CB_SET_HL(7); break;
case 0xFF: CB_SET(7, A); break;
}
#undef CBINST
#undef CBINST_HL
#undef CBINST_UNDOC
#undef CBINST_UNDOC_HL
#undef CB_BIT
#undef CB_BIT_HL
#undef CB_RES
#undef CB_RES_HL
#undef CB_SET
#undef CB_SET_HL
Reference in New Issue View Git Blame Copy Permalink