CoCalc -- z80.c

GitHub Repository: alexbevi/BizHawk
Path: blob/master/waterbox/gpgx/core/z80/z80.c
² views
1
/*****************************************************************************
2
 *
3
 *   z80.c
4
 *   Portable Z80 emulator V3.9
5
 *
6
 *   Copyright Juergen Buchmueller, all rights reserved.
7
 *
8
 *   - This source code is released as freeware for non-commercial purposes.
9
 *   - You are free to use and redistribute this code in modified or
10
 *     unmodified form, provided you list me in the credits.
11
 *   - If you modify this source code, you must add a notice to each modified
12
 *     source file that it has been changed.  If you're a nice person, you
13
 *     will clearly mark each change too.  :)
14
 *   - If you wish to use this for commercial purposes, please contact me at
15
 *     [email protected]
16
 *   - The author of this copywritten work reserves the right to change the
17
 *     terms of its usage and license at any time, including retroactively
18
 *   - This entire notice must remain in the source code.
19
 *
20
 *   TODO:
21
 *    - If LD A,I or LD A,R is interrupted, P/V flag gets reset, even if IFF2
22
 *      was set before this instruction
23
 *    - Ideally, the tiny differences between Z80 types should be supported,
24
 *      currently known differences:
25
 *       - LD A,I/R P/V flag reset glitch is fixed on CMOS Z80
26
 *       - OUT (C),0 outputs 0 on NMOS Z80, $FF on CMOS Z80
27
 *       - SCF/CCF X/Y flags is ((flags | A) & 0x28) on SGS/SHARP/ZiLOG NMOS Z80,
28
 *         (flags & A & 0x28) on NEC NMOS Z80, other models unknown.
29
 *         However, people from the Speccy scene mention that SCF/CCF X/Y results
30
 *         are inconsistant and may be influenced by I and R registers.
31
 *      This Z80 emulator assumes a ZiLOG NMOS model.
32
 *
33
 *   Additional changes [Eke-Eke]:
34
 *    - Removed z80_burn function (unused)
35
 *    - Discarded multi-chip support (unused)
36
 *    - Fixed cycle counting for FD and DD prefixed instructions
37
 *    - Fixed behavior of chained FD and DD prefixes (R register should be only incremented by one
38
 *    - Implemented cycle-accurate INI/IND (needed by SMS emulation)
39
 *    - Fixed Z80 reset
40
 *    - Made SZHVC_add & SZHVC_sub tables statically allocated
41
 *   Changes in 3.9:
42
 *    - Fixed cycle counts for LD IYL/IXL/IYH/IXH,n [Marshmellow]
43
 *    - Fixed X/Y flags in CCF/SCF/BIT, ZEXALL is happy now [hap]
44
 *    - Simplified DAA, renamed MEMPTR (3.8) to WZ, added TODO [hap]
45
 *    - Fixed IM2 interrupt cycles [eke]
46
 *   Changes in 3.8 [Miodrag Milanovic]:
47
 *   - Added MEMPTR register (according to informations provided
48
 *     by Vladimir Kladov
49
 *   - BIT n,(HL) now return valid values due to use of MEMPTR
50
 *   - Fixed BIT 6,(XY+o) undocumented instructions
51
 *   Changes in 3.7 [Aaron Giles]:
52
 *   - Changed NMI handling. NMIs are now latched in set_irq_state
53
 *     but are not taken there. Instead they are taken at the start of the
54
 *     execute loop.
55
 *   - Changed IRQ handling. IRQ state is set in set_irq_state but not taken
56
 *     except during the inner execute loop.
57
 *   - Removed x86 assembly hacks and obsolete timing loop catchers.
58
 *   Changes in 3.6:
59
 *   - Got rid of the code that would inexactly emulate a Z80, i.e. removed
60
 *     all the #if Z80_EXACT #else branches.
61
 *   - Removed leading underscores from local register name shortcuts as
62
 *     this violates the C99 standard.
63
 *   - Renamed the registers inside the Z80 context to lower case to avoid
64
 *     ambiguities (shortcuts would have had the same names as the fields
65
 *     of the structure).
66
 *   Changes in 3.5:
67
 *   - Implemented OTIR, INIR, etc. without look-up table for PF flag.
68
 *     [Ramsoft, Sean Young]
69
 *   Changes in 3.4:
70
 *   - Removed Z80-MSX specific code as it's not needed any more.
71
 *   - Implemented DAA without look-up table [Ramsoft, Sean Young]
72
 *   Changes in 3.3:
73
 *   - Fixed undocumented flags XF & YF in the non-asm versions of CP,
74
 *     and all the 16 bit arithmetic instructions. [Sean Young]
75
 *   Changes in 3.2:
76
 *   - Fixed undocumented flags XF & YF of RRCA, and CF and HF of
77
 *     INI/IND/OUTI/OUTD/INIR/INDR/OTIR/OTDR [Sean Young]
78
 *   Changes in 3.1:
79
 *   - removed the REPEAT_AT_ONCE execution of LDIR/CPIR etc. opcodes
80
 *     for readabilities sake and because the implementation was buggy
81
 *     (and I was not able to find the difference)
82
 *   Changes in 3.0:
83
 *   - 'finished' switch to dynamically overrideable cycle count tables
84
 *   Changes in 2.9:
85
 *   - added methods to access and override the cycle count tables
86
 *   - fixed handling and timing of multiple DD/FD prefixed opcodes
87
 *   Changes in 2.8:
88
 *   - OUTI/OUTD/OTIR/OTDR also pre-decrement the B register now.
89
 *     This was wrong because of a bug fix on the wrong side
90
 *     (astrocade sound driver).
91
 *   Changes in 2.7:
92
 *    - removed z80_vm specific code, it's not needed (and never was).
93
 *   Changes in 2.6:
94
 *    - BUSY_LOOP_HACKS needed to call change_pc() earlier, before
95
 *    checking the opcodes at the new address, because otherwise they
96
 *    might access the old (wrong or even NULL) banked memory region.
97
 *    Thanks to Sean Young for finding this nasty bug.
98
 *   Changes in 2.5:
99
 *    - Burning cycles always adjusts the ICount by a multiple of 4.
100
 *    - In REPEAT_AT_ONCE cases the R register wasn't incremented twice
101
 *    per repetition as it should have been. Those repeated opcodes
102
 *    could also underflow the ICount.
103
 *    - Simplified TIME_LOOP_HACKS for BC and added two more for DE + HL
104
 *    timing loops. I think those hacks weren't endian safe before too.
105
 *   Changes in 2.4:
106
 *    - z80_reset zaps the entire context, sets IX and IY to 0xffff(!) and
107
 *    sets the Z flag. With these changes the Tehkan World Cup driver
108
 *    _seems_ to work again.
109
 *   Changes in 2.3:
110
 *    - External termination of the execution loop calls z80_burn() and
111
 *    z80_vm_burn() to burn an amount of cycles (R adjustment)
112
 *    - Shortcuts which burn CPU cycles (BUSY_LOOP_HACKS and TIME_LOOP_HACKS)
113
 *    now also adjust the R register depending on the skipped opcodes.
114
 *   Changes in 2.2:
115
 *    - Fixed bugs in CPL, SCF and CCF instructions flag handling.
116
 *    - Changed variable EA and ARG16() function to UINT32; this
117
 *    produces slightly more efficient code.
118
 *    - The DD/FD XY CB opcodes where XY is 40-7F and Y is not 6/E
119
 *    are changed to calls to the X6/XE opcodes to reduce object size.
120
 *    They're hardly ever used so this should not yield a speed penalty.
121
 *   New in 2.0:
122
 *    - Optional more exact Z80 emulation (#define Z80_EXACT 1) according
123
 *    to a detailed description by Sean Young which can be found at:
124
 *      http://www.msxnet.org/tech/z80-documented.pdf
125
 *****************************************************************************/
126
#include "shared.h"
127
#include "z80.h"
128

129
#include "../cinterface/callbacks.h"
130

131
/* execute main opcodes inside a big switch statement */
132
#define BIG_SWITCH 1
133

134
#define VERBOSE 0
135

136
#if VERBOSE
137
#define LOG(x)  logerror x
138
#else
139
#define LOG(x)
140
#endif
141

142
#define cpu_readop(a)     z80_readmap[(a) >> 10][(a) & 0x03FF]
143
#define cpu_readop_arg(a) z80_readmap[(a) >> 10][(a) & 0x03FF]
144

145
#define CF  0x01
146
#define NF  0x02
147
#define PF  0x04
148
#define VF  PF
149
#define XF  0x08
150
#define HF  0x10
151
#define YF  0x20
152
#define ZF  0x40
153
#define SF  0x80
154

155
#define INT_IRQ 0x01
156
#define NMI_IRQ 0x02
157

158
#define PCD  Z80.pc.d
159
#define PC Z80.pc.w.l
160

161
#define SPD Z80.sp.d
162
#define SP Z80.sp.w.l
163

164
#define AFD Z80.af.d
165
#define AF Z80.af.w.l
166
#define A Z80.af.b.h
167
#define F Z80.af.b.l
168

169
#define BCD Z80.bc.d
170
#define BC Z80.bc.w.l
171
#define B Z80.bc.b.h
172
#define C Z80.bc.b.l
173

174
#define DED Z80.de.d
175
#define DE Z80.de.w.l
176
#define D Z80.de.b.h
177
#define E Z80.de.b.l
178

179
#define HLD Z80.hl.d
180
#define HL Z80.hl.w.l
181
#define H Z80.hl.b.h
182
#define L Z80.hl.b.l
183

184
#define IXD Z80.ix.d
185
#define IX Z80.ix.w.l
186
#define HX Z80.ix.b.h
187
#define LX Z80.ix.b.l
188

189
#define IYD Z80.iy.d
190
#define IY Z80.iy.w.l
191
#define HY Z80.iy.b.h
192
#define LY Z80.iy.b.l
193

194
#define WZ   Z80.wz.w.l
195
#define WZ_H Z80.wz.b.h
196
#define WZ_L Z80.wz.b.l
197

198
#define I Z80.i
199
#define R Z80.r
200
#define R2 Z80.r2
201
#define IM Z80.im
202
#define IFF1 Z80.iff1
203
#define IFF2 Z80.iff2
204
#define HALT Z80.halt
205

206
Z80_Regs Z80;
207

208
unsigned char *z80_readmap[64];
209
unsigned char *z80_writemap[64];
210

211
void (*z80_writemem)(unsigned int address, unsigned char data);
212
unsigned char (*z80_readmem)(unsigned int address);
213
void (*z80_writeport)(unsigned int port, unsigned char data);
214
unsigned char (*z80_readport)(unsigned int port);
215

216
static UINT32 EA;
217

218
static UINT8 SZ[256];       /* zero and sign flags */
219
static UINT8 SZ_BIT[256];   /* zero, sign and parity/overflow (=zero) flags for BIT opcode */
220
static UINT8 SZP[256];      /* zero, sign and parity flags */
221
static UINT8 SZHV_inc[256]; /* zero, sign, half carry and overflow flags INC r8 */
222
static UINT8 SZHV_dec[256]; /* zero, sign, half carry and overflow flags DEC r8 */
223

224
UINT8 *SZHVC_add; /* flags for ADD opcode */
225
UINT8 *SZHVC_sub; /* flags for SUB opcode */
226

227
static const UINT16 cc_op[0x100] = {
228
   4*15,10*15, 7*15, 6*15, 4*15, 4*15, 7*15, 4*15, 4*15,11*15, 7*15, 6*15, 4*15, 4*15, 7*15, 4*15,
229
   8*15,10*15, 7*15, 6*15, 4*15, 4*15, 7*15, 4*15,12*15,11*15, 7*15, 6*15, 4*15, 4*15, 7*15, 4*15,
230
   7*15,10*15,16*15, 6*15, 4*15, 4*15, 7*15, 4*15, 7*15,11*15,16*15, 6*15, 4*15, 4*15, 7*15, 4*15,
231
   7*15,10*15,13*15, 6*15,11*15,11*15,10*15, 4*15, 7*15,11*15,13*15, 6*15, 4*15, 4*15, 7*15, 4*15,
232
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
233
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
234
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
235
   7*15, 7*15, 7*15, 7*15, 7*15, 7*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
236
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
237
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
238
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
239
   4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 7*15, 4*15,
240
   5*15,10*15,10*15,10*15,10*15,11*15, 7*15,11*15, 5*15,10*15,10*15, 0*15,10*15,17*15, 7*15,11*15,
241
   5*15,10*15,10*15,11*15,10*15,11*15, 7*15,11*15, 5*15, 4*15,10*15,11*15,10*15, 0*15, 7*15,11*15,
242
   5*15,10*15,10*15,19*15,10*15,11*15, 7*15,11*15, 5*15, 4*15,10*15, 4*15,10*15, 0*15, 7*15,11*15,
243
   5*15,10*15,10*15, 4*15,10*15,11*15, 7*15,11*15, 5*15, 6*15,10*15, 4*15,10*15, 0*15, 7*15,11*15};
244

245
static const UINT16 cc_cb[0x100] = {
246
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
247
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
248
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
249
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
250
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15,
251
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15,
252
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15,
253
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,12*15, 8*15,
254
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
255
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
256
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
257
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
258
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
259
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
260
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15,
261
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,15*15, 8*15};
262

263
static const UINT16 cc_ed[0x100] = {
264
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
265
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
266
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
267
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
268
  12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 9*15,12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 9*15,
269
  12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 9*15,12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 9*15,
270
  12*15,12*15,15*15,20*15, 8*15,14*15, 8*15,18*15,12*15,12*15,15*15,20*15, 8*15,14*15, 8*15,18*15,
271
  12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 8*15,12*15,12*15,15*15,20*15, 8*15,14*15, 8*15, 8*15,
272
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
273
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
274
  16*15,16*15,16*15,16*15, 8*15, 8*15, 8*15, 8*15,16*15,16*15,16*15,16*15, 8*15, 8*15, 8*15, 8*15,
275
  16*15,16*15,16*15,16*15, 8*15, 8*15, 8*15, 8*15,16*15,16*15,16*15,16*15, 8*15, 8*15, 8*15, 8*15,
276
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
277
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
278
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15,
279
   8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15, 8*15};
280

281
/*static const UINT8 cc_xy[0x100] = {
282
 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,15*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,
283
 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,15*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,
284
 4*15,14*15,20*15,10*15, 9*15, 9*15,11*15, 4*15, 4*15,15*15,20*15,10*15, 9*15, 9*15,11*15, 4*15,
285
 4*15, 4*15, 4*15, 4*15,23*15,23*15,19*15, 4*15, 4*15,15*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,
286
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
287
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
288
 9*15, 9*15, 9*15, 9*15, 9*15, 9*15,19*15, 9*15, 9*15, 9*15, 9*15, 9*15, 9*15, 9*15,19*15, 9*15,
289
19*15,19*15,19*15,19*15,19*15,19*15, 4*15,19*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
290
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
291
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
292
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
293
 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15, 4*15, 4*15, 4*15, 4*15, 9*15, 9*15,19*15, 4*15,
294
 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 0*15, 4*15, 4*15, 4*15, 4*15,
295
 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,
296
 4*15,14*15, 4*15,23*15, 4*15,15*15, 4*15, 4*15, 4*15, 8*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,
297
 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15,10*15, 4*15, 4*15, 4*15, 4*15, 4*15, 4*15};
298
*/
299

300
/* illegal combo should return 4 + cc_op[i] */
301
static const UINT16 cc_xy[0x100] ={
302
   8*15,14*15,11*15,10*15, 8*15, 8*15,11*15, 8*15, 8*15,15*15,11*15,10*15, 8*15, 8*15,11*15, 8*15,
303
  12*15,14*15,11*15,10*15, 8*15, 8*15,11*15, 8*15,16*15,15*15,11*15,10*15, 8*15, 8*15,11*15, 8*15,
304
  11*15,14*15,20*15,10*15, 9*15, 9*15,12*15, 8*15,11*15,15*15,20*15,10*15, 9*15, 9*15,12*15, 8*15,
305
  11*15,14*15,17*15,10*15,23*15,23*15,19*15, 8*15,11*15,15*15,17*15,10*15, 8*15, 8*15,11*15, 8*15,
306
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
307
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
308
   9*15, 9*15, 9*15, 9*15, 9*15, 9*15,19*15, 9*15, 9*15, 9*15, 9*15, 9*15, 9*15, 9*15,19*15, 9*15,
309
  19*15,19*15,19*15,19*15,19*15,19*15, 8*15,19*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
310
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
311
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
312
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
313
   8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15, 8*15, 8*15, 8*15, 8*15, 9*15, 9*15,19*15, 8*15,
314
   9*15,14*15,14*15,14*15,14*15,15*15,11*15,15*15, 9*15,14*15,14*15, 0*15,14*15,21*15,11*15,15*15,
315
   9*15,14*15,14*15,15*15,14*15,15*15,11*15,15*15, 9*15, 8*15,14*15,15*15,14*15, 4*15,11*15,15*15,
316
   9*15,14*15,14*15,23*15,14*15,15*15,11*15,15*15, 9*15, 8*15,14*15, 8*15,14*15, 4*15,11*15,15*15,
317
   9*15,14*15,14*15, 8*15,14*15,15*15,11*15,15*15, 9*15,10*15,14*15, 8*15,14*15, 4*15,11*15,15*15};
318

319
static const UINT16 cc_xycb[0x100] = {
320
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
321
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
322
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
323
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
324
  20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,
325
  20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,
326
  20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,
327
  20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,20*15,
328
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
329
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
330
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
331
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
332
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
333
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
334
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,
335
  23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15,23*15};
336

337
/* extra cycles if jr/jp/call taken and 'interrupt latency' on rst 0-7 */
338
static const UINT16 cc_ex[0x100] = {
339
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
340
 5*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,  /* DJNZ */
341
 5*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 5*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,  /* JR NZ/JR Z */
342
 5*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 5*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,  /* JR NC/JR C */
343
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
344
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
345
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
346
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
347
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
348
 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15,
349
 0*15, 0*15, 4*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 0*15, 4*15, 0*15, 0*15, 0*15, 0*15, 0*15,  /* INI/IND (cycle-accurate I/O port reads) */
350
 5*15, 5*15, 5*15, 5*15, 0*15, 0*15, 0*15, 0*15, 5*15, 5*15, 5*15, 5*15, 0*15, 0*15, 0*15, 0*15,  /* LDIR/CPIR/INIR/OTIR LDDR/CPDR/INDR/OTDR */
351
 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15, 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15,
352
 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15, 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15,
353
 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15, 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15,
354
 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15, 6*15, 0*15, 0*15, 0*15, 7*15, 0*15, 0*15, 2*15};
355

356
static const UINT16 *cc[6];
357
#define Z80_TABLE_dd  Z80_TABLE_xy
358
#define Z80_TABLE_fd  Z80_TABLE_xy
359

360
typedef void (*funcptr)(void);
361

362
#define PROTOTYPES(tablename,prefix) \
363
  INLINE void prefix##_00(void); INLINE void prefix##_01(void); INLINE void prefix##_02(void); INLINE void prefix##_03(void); \
364
  INLINE void prefix##_04(void); INLINE void prefix##_05(void); INLINE void prefix##_06(void); INLINE void prefix##_07(void); \
365
  INLINE void prefix##_08(void); INLINE void prefix##_09(void); INLINE void prefix##_0a(void); INLINE void prefix##_0b(void); \
366
  INLINE void prefix##_0c(void); INLINE void prefix##_0d(void); INLINE void prefix##_0e(void); INLINE void prefix##_0f(void); \
367
  INLINE void prefix##_10(void); INLINE void prefix##_11(void); INLINE void prefix##_12(void); INLINE void prefix##_13(void); \
368
  INLINE void prefix##_14(void); INLINE void prefix##_15(void); INLINE void prefix##_16(void); INLINE void prefix##_17(void); \
369
  INLINE void prefix##_18(void); INLINE void prefix##_19(void); INLINE void prefix##_1a(void); INLINE void prefix##_1b(void); \
370
  INLINE void prefix##_1c(void); INLINE void prefix##_1d(void); INLINE void prefix##_1e(void); INLINE void prefix##_1f(void); \
371
  INLINE void prefix##_20(void); INLINE void prefix##_21(void); INLINE void prefix##_22(void); INLINE void prefix##_23(void); \
372
  INLINE void prefix##_24(void); INLINE void prefix##_25(void); INLINE void prefix##_26(void); INLINE void prefix##_27(void); \
373
  INLINE void prefix##_28(void); INLINE void prefix##_29(void); INLINE void prefix##_2a(void); INLINE void prefix##_2b(void); \
374
  INLINE void prefix##_2c(void); INLINE void prefix##_2d(void); INLINE void prefix##_2e(void); INLINE void prefix##_2f(void); \
375
  INLINE void prefix##_30(void); INLINE void prefix##_31(void); INLINE void prefix##_32(void); INLINE void prefix##_33(void); \
376
  INLINE void prefix##_34(void); INLINE void prefix##_35(void); INLINE void prefix##_36(void); INLINE void prefix##_37(void); \
377
  INLINE void prefix##_38(void); INLINE void prefix##_39(void); INLINE void prefix##_3a(void); INLINE void prefix##_3b(void); \
378
  INLINE void prefix##_3c(void); INLINE void prefix##_3d(void); INLINE void prefix##_3e(void); INLINE void prefix##_3f(void); \
379
  INLINE void prefix##_40(void); INLINE void prefix##_41(void); INLINE void prefix##_42(void); INLINE void prefix##_43(void); \
380
  INLINE void prefix##_44(void); INLINE void prefix##_45(void); INLINE void prefix##_46(void); INLINE void prefix##_47(void); \
381
  INLINE void prefix##_48(void); INLINE void prefix##_49(void); INLINE void prefix##_4a(void); INLINE void prefix##_4b(void); \
382
  INLINE void prefix##_4c(void); INLINE void prefix##_4d(void); INLINE void prefix##_4e(void); INLINE void prefix##_4f(void); \
383
  INLINE void prefix##_50(void); INLINE void prefix##_51(void); INLINE void prefix##_52(void); INLINE void prefix##_53(void); \
384
  INLINE void prefix##_54(void); INLINE void prefix##_55(void); INLINE void prefix##_56(void); INLINE void prefix##_57(void); \
385
  INLINE void prefix##_58(void); INLINE void prefix##_59(void); INLINE void prefix##_5a(void); INLINE void prefix##_5b(void); \
386
  INLINE void prefix##_5c(void); INLINE void prefix##_5d(void); INLINE void prefix##_5e(void); INLINE void prefix##_5f(void); \
387
  INLINE void prefix##_60(void); INLINE void prefix##_61(void); INLINE void prefix##_62(void); INLINE void prefix##_63(void); \
388
  INLINE void prefix##_64(void); INLINE void prefix##_65(void); INLINE void prefix##_66(void); INLINE void prefix##_67(void); \
389
  INLINE void prefix##_68(void); INLINE void prefix##_69(void); INLINE void prefix##_6a(void); INLINE void prefix##_6b(void); \
390
  INLINE void prefix##_6c(void); INLINE void prefix##_6d(void); INLINE void prefix##_6e(void); INLINE void prefix##_6f(void); \
391
  INLINE void prefix##_70(void); INLINE void prefix##_71(void); INLINE void prefix##_72(void); INLINE void prefix##_73(void); \
392
  INLINE void prefix##_74(void); INLINE void prefix##_75(void); INLINE void prefix##_76(void); INLINE void prefix##_77(void); \
393
  INLINE void prefix##_78(void); INLINE void prefix##_79(void); INLINE void prefix##_7a(void); INLINE void prefix##_7b(void); \
394
  INLINE void prefix##_7c(void); INLINE void prefix##_7d(void); INLINE void prefix##_7e(void); INLINE void prefix##_7f(void); \
395
  INLINE void prefix##_80(void); INLINE void prefix##_81(void); INLINE void prefix##_82(void); INLINE void prefix##_83(void); \
396
  INLINE void prefix##_84(void); INLINE void prefix##_85(void); INLINE void prefix##_86(void); INLINE void prefix##_87(void); \
397
  INLINE void prefix##_88(void); INLINE void prefix##_89(void); INLINE void prefix##_8a(void); INLINE void prefix##_8b(void); \
398
  INLINE void prefix##_8c(void); INLINE void prefix##_8d(void); INLINE void prefix##_8e(void); INLINE void prefix##_8f(void); \
399
  INLINE void prefix##_90(void); INLINE void prefix##_91(void); INLINE void prefix##_92(void); INLINE void prefix##_93(void); \
400
  INLINE void prefix##_94(void); INLINE void prefix##_95(void); INLINE void prefix##_96(void); INLINE void prefix##_97(void); \
401
  INLINE void prefix##_98(void); INLINE void prefix##_99(void); INLINE void prefix##_9a(void); INLINE void prefix##_9b(void); \
402
  INLINE void prefix##_9c(void); INLINE void prefix##_9d(void); INLINE void prefix##_9e(void); INLINE void prefix##_9f(void); \
403
  INLINE void prefix##_a0(void); INLINE void prefix##_a1(void); INLINE void prefix##_a2(void); INLINE void prefix##_a3(void); \
404
  INLINE void prefix##_a4(void); INLINE void prefix##_a5(void); INLINE void prefix##_a6(void); INLINE void prefix##_a7(void); \
405
  INLINE void prefix##_a8(void); INLINE void prefix##_a9(void); INLINE void prefix##_aa(void); INLINE void prefix##_ab(void); \
406
  INLINE void prefix##_ac(void); INLINE void prefix##_ad(void); INLINE void prefix##_ae(void); INLINE void prefix##_af(void); \
407
  INLINE void prefix##_b0(void); INLINE void prefix##_b1(void); INLINE void prefix##_b2(void); INLINE void prefix##_b3(void); \
408
  INLINE void prefix##_b4(void); INLINE void prefix##_b5(void); INLINE void prefix##_b6(void); INLINE void prefix##_b7(void); \
409
  INLINE void prefix##_b8(void); INLINE void prefix##_b9(void); INLINE void prefix##_ba(void); INLINE void prefix##_bb(void); \
410
  INLINE void prefix##_bc(void); INLINE void prefix##_bd(void); INLINE void prefix##_be(void); INLINE void prefix##_bf(void); \
411
  INLINE void prefix##_c0(void); INLINE void prefix##_c1(void); INLINE void prefix##_c2(void); INLINE void prefix##_c3(void); \
412
  INLINE void prefix##_c4(void); INLINE void prefix##_c5(void); INLINE void prefix##_c6(void); INLINE void prefix##_c7(void); \
413
  INLINE void prefix##_c8(void); INLINE void prefix##_c9(void); INLINE void prefix##_ca(void); INLINE void prefix##_cb(void); \
414
  INLINE void prefix##_cc(void); INLINE void prefix##_cd(void); INLINE void prefix##_ce(void); INLINE void prefix##_cf(void); \
415
  INLINE void prefix##_d0(void); INLINE void prefix##_d1(void); INLINE void prefix##_d2(void); INLINE void prefix##_d3(void); \
416
  INLINE void prefix##_d4(void); INLINE void prefix##_d5(void); INLINE void prefix##_d6(void); INLINE void prefix##_d7(void); \
417
  INLINE void prefix##_d8(void); INLINE void prefix##_d9(void); INLINE void prefix##_da(void); INLINE void prefix##_db(void); \
418
  INLINE void prefix##_dc(void); INLINE void prefix##_dd(void); INLINE void prefix##_de(void); INLINE void prefix##_df(void); \
419
  INLINE void prefix##_e0(void); INLINE void prefix##_e1(void); INLINE void prefix##_e2(void); INLINE void prefix##_e3(void); \
420
  INLINE void prefix##_e4(void); INLINE void prefix##_e5(void); INLINE void prefix##_e6(void); INLINE void prefix##_e7(void); \
421
  INLINE void prefix##_e8(void); INLINE void prefix##_e9(void); INLINE void prefix##_ea(void); INLINE void prefix##_eb(void); \
422
  INLINE void prefix##_ec(void); INLINE void prefix##_ed(void); INLINE void prefix##_ee(void); INLINE void prefix##_ef(void); \
423
  INLINE void prefix##_f0(void); INLINE void prefix##_f1(void); INLINE void prefix##_f2(void); INLINE void prefix##_f3(void); \
424
  INLINE void prefix##_f4(void); INLINE void prefix##_f5(void); INLINE void prefix##_f6(void); INLINE void prefix##_f7(void); \
425
  INLINE void prefix##_f8(void); INLINE void prefix##_f9(void); INLINE void prefix##_fa(void); INLINE void prefix##_fb(void); \
426
  INLINE void prefix##_fc(void); INLINE void prefix##_fd(void); INLINE void prefix##_fe(void); INLINE void prefix##_ff(void); \
427
static const funcptr tablename[0x100] = {  \
428
  prefix##_00,prefix##_01,prefix##_02,prefix##_03,prefix##_04,prefix##_05,prefix##_06,prefix##_07, \
429
  prefix##_08,prefix##_09,prefix##_0a,prefix##_0b,prefix##_0c,prefix##_0d,prefix##_0e,prefix##_0f, \
430
  prefix##_10,prefix##_11,prefix##_12,prefix##_13,prefix##_14,prefix##_15,prefix##_16,prefix##_17, \
431
  prefix##_18,prefix##_19,prefix##_1a,prefix##_1b,prefix##_1c,prefix##_1d,prefix##_1e,prefix##_1f, \
432
  prefix##_20,prefix##_21,prefix##_22,prefix##_23,prefix##_24,prefix##_25,prefix##_26,prefix##_27, \
433
  prefix##_28,prefix##_29,prefix##_2a,prefix##_2b,prefix##_2c,prefix##_2d,prefix##_2e,prefix##_2f, \
434
  prefix##_30,prefix##_31,prefix##_32,prefix##_33,prefix##_34,prefix##_35,prefix##_36,prefix##_37, \
435
  prefix##_38,prefix##_39,prefix##_3a,prefix##_3b,prefix##_3c,prefix##_3d,prefix##_3e,prefix##_3f, \
436
  prefix##_40,prefix##_41,prefix##_42,prefix##_43,prefix##_44,prefix##_45,prefix##_46,prefix##_47, \
437
  prefix##_48,prefix##_49,prefix##_4a,prefix##_4b,prefix##_4c,prefix##_4d,prefix##_4e,prefix##_4f, \
438
  prefix##_50,prefix##_51,prefix##_52,prefix##_53,prefix##_54,prefix##_55,prefix##_56,prefix##_57, \
439
  prefix##_58,prefix##_59,prefix##_5a,prefix##_5b,prefix##_5c,prefix##_5d,prefix##_5e,prefix##_5f, \
440
  prefix##_60,prefix##_61,prefix##_62,prefix##_63,prefix##_64,prefix##_65,prefix##_66,prefix##_67, \
441
  prefix##_68,prefix##_69,prefix##_6a,prefix##_6b,prefix##_6c,prefix##_6d,prefix##_6e,prefix##_6f, \
442
  prefix##_70,prefix##_71,prefix##_72,prefix##_73,prefix##_74,prefix##_75,prefix##_76,prefix##_77, \
443
  prefix##_78,prefix##_79,prefix##_7a,prefix##_7b,prefix##_7c,prefix##_7d,prefix##_7e,prefix##_7f, \
444
  prefix##_80,prefix##_81,prefix##_82,prefix##_83,prefix##_84,prefix##_85,prefix##_86,prefix##_87, \
445
  prefix##_88,prefix##_89,prefix##_8a,prefix##_8b,prefix##_8c,prefix##_8d,prefix##_8e,prefix##_8f, \
446
  prefix##_90,prefix##_91,prefix##_92,prefix##_93,prefix##_94,prefix##_95,prefix##_96,prefix##_97, \
447
  prefix##_98,prefix##_99,prefix##_9a,prefix##_9b,prefix##_9c,prefix##_9d,prefix##_9e,prefix##_9f, \
448
  prefix##_a0,prefix##_a1,prefix##_a2,prefix##_a3,prefix##_a4,prefix##_a5,prefix##_a6,prefix##_a7, \
449
  prefix##_a8,prefix##_a9,prefix##_aa,prefix##_ab,prefix##_ac,prefix##_ad,prefix##_ae,prefix##_af, \
450
  prefix##_b0,prefix##_b1,prefix##_b2,prefix##_b3,prefix##_b4,prefix##_b5,prefix##_b6,prefix##_b7, \
451
  prefix##_b8,prefix##_b9,prefix##_ba,prefix##_bb,prefix##_bc,prefix##_bd,prefix##_be,prefix##_bf, \
452
  prefix##_c0,prefix##_c1,prefix##_c2,prefix##_c3,prefix##_c4,prefix##_c5,prefix##_c6,prefix##_c7, \
453
  prefix##_c8,prefix##_c9,prefix##_ca,prefix##_cb,prefix##_cc,prefix##_cd,prefix##_ce,prefix##_cf, \
454
  prefix##_d0,prefix##_d1,prefix##_d2,prefix##_d3,prefix##_d4,prefix##_d5,prefix##_d6,prefix##_d7, \
455
  prefix##_d8,prefix##_d9,prefix##_da,prefix##_db,prefix##_dc,prefix##_dd,prefix##_de,prefix##_df, \
456
  prefix##_e0,prefix##_e1,prefix##_e2,prefix##_e3,prefix##_e4,prefix##_e5,prefix##_e6,prefix##_e7, \
457
  prefix##_e8,prefix##_e9,prefix##_ea,prefix##_eb,prefix##_ec,prefix##_ed,prefix##_ee,prefix##_ef, \
458
  prefix##_f0,prefix##_f1,prefix##_f2,prefix##_f3,prefix##_f4,prefix##_f5,prefix##_f6,prefix##_f7, \
459
  prefix##_f8,prefix##_f9,prefix##_fa,prefix##_fb,prefix##_fc,prefix##_fd,prefix##_fe,prefix##_ff  \
460
}
461

462
PROTOTYPES(Z80op,op);
463
PROTOTYPES(Z80cb,cb);
464
PROTOTYPES(Z80dd,dd);
465
PROTOTYPES(Z80ed,ed);
466
PROTOTYPES(Z80fd,fd);
467
PROTOTYPES(Z80xycb,xycb);
468

469
/****************************************************************************/
470
/* Burn an odd amount of cycles, that is instructions taking something    */
471
/* different from 4 T-states per opcode (and R increment)          */
472
/****************************************************************************/
473
INLINE void BURNODD(int cycles, int opcodes, int cyclesum)
474
{
475
  if( cycles > 0 )
476
  {
477
    R += (cycles / cyclesum) * opcodes;
478
    Z80.cycles += (cycles / cyclesum) * cyclesum * 15;
479
  }
480
}
481

482
/***************************************************************
483
 * define an opcode function
484
 ***************************************************************/
485
#define OP(prefix,opcode)  INLINE void prefix##_##opcode(void)
486

487
/***************************************************************
488
 * adjust cycle count by n T-states
489
 ***************************************************************/
490
#define CC(prefix,opcode) Z80.cycles += cc[Z80_TABLE_##prefix][opcode]
491

492
/***************************************************************
493
 * execute an opcode
494
 ***************************************************************/
495
#define EXEC(prefix,opcode)      \
496
{                                \
497
  unsigned op = opcode;          \
498
  CC(prefix,op);                 \
499
  (*Z80##prefix[op])();          \
500
}
501

502
#if BIG_SWITCH
503
#define EXEC_INLINE(prefix,opcode)  \
504
{                                   \
505
  unsigned op = opcode;             \
506
  CC(prefix,op);                    \
507
  switch(op)                        \
508
  {                                 \
509
  case 0x00:prefix##_##00();break; case 0x01:prefix##_##01();break; case 0x02:prefix##_##02();break; case 0x03:prefix##_##03();break; \
510
  case 0x04:prefix##_##04();break; case 0x05:prefix##_##05();break; case 0x06:prefix##_##06();break; case 0x07:prefix##_##07();break; \
511
  case 0x08:prefix##_##08();break; case 0x09:prefix##_##09();break; case 0x0a:prefix##_##0a();break; case 0x0b:prefix##_##0b();break; \
512
  case 0x0c:prefix##_##0c();break; case 0x0d:prefix##_##0d();break; case 0x0e:prefix##_##0e();break; case 0x0f:prefix##_##0f();break; \
513
  case 0x10:prefix##_##10();break; case 0x11:prefix##_##11();break; case 0x12:prefix##_##12();break; case 0x13:prefix##_##13();break; \
514
  case 0x14:prefix##_##14();break; case 0x15:prefix##_##15();break; case 0x16:prefix##_##16();break; case 0x17:prefix##_##17();break; \
515
  case 0x18:prefix##_##18();break; case 0x19:prefix##_##19();break; case 0x1a:prefix##_##1a();break; case 0x1b:prefix##_##1b();break; \
516
  case 0x1c:prefix##_##1c();break; case 0x1d:prefix##_##1d();break; case 0x1e:prefix##_##1e();break; case 0x1f:prefix##_##1f();break; \
517
  case 0x20:prefix##_##20();break; case 0x21:prefix##_##21();break; case 0x22:prefix##_##22();break; case 0x23:prefix##_##23();break; \
518
  case 0x24:prefix##_##24();break; case 0x25:prefix##_##25();break; case 0x26:prefix##_##26();break; case 0x27:prefix##_##27();break; \
519
  case 0x28:prefix##_##28();break; case 0x29:prefix##_##29();break; case 0x2a:prefix##_##2a();break; case 0x2b:prefix##_##2b();break; \
520
  case 0x2c:prefix##_##2c();break; case 0x2d:prefix##_##2d();break; case 0x2e:prefix##_##2e();break; case 0x2f:prefix##_##2f();break; \
521
  case 0x30:prefix##_##30();break; case 0x31:prefix##_##31();break; case 0x32:prefix##_##32();break; case 0x33:prefix##_##33();break; \
522
  case 0x34:prefix##_##34();break; case 0x35:prefix##_##35();break; case 0x36:prefix##_##36();break; case 0x37:prefix##_##37();break; \
523
  case 0x38:prefix##_##38();break; case 0x39:prefix##_##39();break; case 0x3a:prefix##_##3a();break; case 0x3b:prefix##_##3b();break; \
524
  case 0x3c:prefix##_##3c();break; case 0x3d:prefix##_##3d();break; case 0x3e:prefix##_##3e();break; case 0x3f:prefix##_##3f();break; \
525
  case 0x40:prefix##_##40();break; case 0x41:prefix##_##41();break; case 0x42:prefix##_##42();break; case 0x43:prefix##_##43();break; \
526
  case 0x44:prefix##_##44();break; case 0x45:prefix##_##45();break; case 0x46:prefix##_##46();break; case 0x47:prefix##_##47();break; \
527
  case 0x48:prefix##_##48();break; case 0x49:prefix##_##49();break; case 0x4a:prefix##_##4a();break; case 0x4b:prefix##_##4b();break; \
528
  case 0x4c:prefix##_##4c();break; case 0x4d:prefix##_##4d();break; case 0x4e:prefix##_##4e();break; case 0x4f:prefix##_##4f();break; \
529
  case 0x50:prefix##_##50();break; case 0x51:prefix##_##51();break; case 0x52:prefix##_##52();break; case 0x53:prefix##_##53();break; \
530
  case 0x54:prefix##_##54();break; case 0x55:prefix##_##55();break; case 0x56:prefix##_##56();break; case 0x57:prefix##_##57();break; \
531
  case 0x58:prefix##_##58();break; case 0x59:prefix##_##59();break; case 0x5a:prefix##_##5a();break; case 0x5b:prefix##_##5b();break; \
532
  case 0x5c:prefix##_##5c();break; case 0x5d:prefix##_##5d();break; case 0x5e:prefix##_##5e();break; case 0x5f:prefix##_##5f();break; \
533
  case 0x60:prefix##_##60();break; case 0x61:prefix##_##61();break; case 0x62:prefix##_##62();break; case 0x63:prefix##_##63();break; \
534
  case 0x64:prefix##_##64();break; case 0x65:prefix##_##65();break; case 0x66:prefix##_##66();break; case 0x67:prefix##_##67();break; \
535
  case 0x68:prefix##_##68();break; case 0x69:prefix##_##69();break; case 0x6a:prefix##_##6a();break; case 0x6b:prefix##_##6b();break; \
536
  case 0x6c:prefix##_##6c();break; case 0x6d:prefix##_##6d();break; case 0x6e:prefix##_##6e();break; case 0x6f:prefix##_##6f();break; \
537
  case 0x70:prefix##_##70();break; case 0x71:prefix##_##71();break; case 0x72:prefix##_##72();break; case 0x73:prefix##_##73();break; \
538
  case 0x74:prefix##_##74();break; case 0x75:prefix##_##75();break; case 0x76:prefix##_##76();break; case 0x77:prefix##_##77();break; \
539
  case 0x78:prefix##_##78();break; case 0x79:prefix##_##79();break; case 0x7a:prefix##_##7a();break; case 0x7b:prefix##_##7b();break; \
540
  case 0x7c:prefix##_##7c();break; case 0x7d:prefix##_##7d();break; case 0x7e:prefix##_##7e();break; case 0x7f:prefix##_##7f();break; \
541
  case 0x80:prefix##_##80();break; case 0x81:prefix##_##81();break; case 0x82:prefix##_##82();break; case 0x83:prefix##_##83();break; \
542
  case 0x84:prefix##_##84();break; case 0x85:prefix##_##85();break; case 0x86:prefix##_##86();break; case 0x87:prefix##_##87();break; \
543
  case 0x88:prefix##_##88();break; case 0x89:prefix##_##89();break; case 0x8a:prefix##_##8a();break; case 0x8b:prefix##_##8b();break; \
544
  case 0x8c:prefix##_##8c();break; case 0x8d:prefix##_##8d();break; case 0x8e:prefix##_##8e();break; case 0x8f:prefix##_##8f();break; \
545
  case 0x90:prefix##_##90();break; case 0x91:prefix##_##91();break; case 0x92:prefix##_##92();break; case 0x93:prefix##_##93();break; \
546
  case 0x94:prefix##_##94();break; case 0x95:prefix##_##95();break; case 0x96:prefix##_##96();break; case 0x97:prefix##_##97();break; \
547
  case 0x98:prefix##_##98();break; case 0x99:prefix##_##99();break; case 0x9a:prefix##_##9a();break; case 0x9b:prefix##_##9b();break; \
548
  case 0x9c:prefix##_##9c();break; case 0x9d:prefix##_##9d();break; case 0x9e:prefix##_##9e();break; case 0x9f:prefix##_##9f();break; \
549
  case 0xa0:prefix##_##a0();break; case 0xa1:prefix##_##a1();break; case 0xa2:prefix##_##a2();break; case 0xa3:prefix##_##a3();break; \
550
  case 0xa4:prefix##_##a4();break; case 0xa5:prefix##_##a5();break; case 0xa6:prefix##_##a6();break; case 0xa7:prefix##_##a7();break; \
551
  case 0xa8:prefix##_##a8();break; case 0xa9:prefix##_##a9();break; case 0xaa:prefix##_##aa();break; case 0xab:prefix##_##ab();break; \
552
  case 0xac:prefix##_##ac();break; case 0xad:prefix##_##ad();break; case 0xae:prefix##_##ae();break; case 0xaf:prefix##_##af();break; \
553
  case 0xb0:prefix##_##b0();break; case 0xb1:prefix##_##b1();break; case 0xb2:prefix##_##b2();break; case 0xb3:prefix##_##b3();break; \
554
  case 0xb4:prefix##_##b4();break; case 0xb5:prefix##_##b5();break; case 0xb6:prefix##_##b6();break; case 0xb7:prefix##_##b7();break; \
555
  case 0xb8:prefix##_##b8();break; case 0xb9:prefix##_##b9();break; case 0xba:prefix##_##ba();break; case 0xbb:prefix##_##bb();break; \
556
  case 0xbc:prefix##_##bc();break; case 0xbd:prefix##_##bd();break; case 0xbe:prefix##_##be();break; case 0xbf:prefix##_##bf();break; \
557
  case 0xc0:prefix##_##c0();break; case 0xc1:prefix##_##c1();break; case 0xc2:prefix##_##c2();break; case 0xc3:prefix##_##c3();break; \
558
  case 0xc4:prefix##_##c4();break; case 0xc5:prefix##_##c5();break; case 0xc6:prefix##_##c6();break; case 0xc7:prefix##_##c7();break; \
559
  case 0xc8:prefix##_##c8();break; case 0xc9:prefix##_##c9();break; case 0xca:prefix##_##ca();break; case 0xcb:prefix##_##cb();break; \
560
  case 0xcc:prefix##_##cc();break; case 0xcd:prefix##_##cd();break; case 0xce:prefix##_##ce();break; case 0xcf:prefix##_##cf();break; \
561
  case 0xd0:prefix##_##d0();break; case 0xd1:prefix##_##d1();break; case 0xd2:prefix##_##d2();break; case 0xd3:prefix##_##d3();break; \
562
  case 0xd4:prefix##_##d4();break; case 0xd5:prefix##_##d5();break; case 0xd6:prefix##_##d6();break; case 0xd7:prefix##_##d7();break; \
563
  case 0xd8:prefix##_##d8();break; case 0xd9:prefix##_##d9();break; case 0xda:prefix##_##da();break; case 0xdb:prefix##_##db();break; \
564
  case 0xdc:prefix##_##dc();break; case 0xdd:prefix##_##dd();break; case 0xde:prefix##_##de();break; case 0xdf:prefix##_##df();break; \
565
  case 0xe0:prefix##_##e0();break; case 0xe1:prefix##_##e1();break; case 0xe2:prefix##_##e2();break; case 0xe3:prefix##_##e3();break; \
566
  case 0xe4:prefix##_##e4();break; case 0xe5:prefix##_##e5();break; case 0xe6:prefix##_##e6();break; case 0xe7:prefix##_##e7();break; \
567
  case 0xe8:prefix##_##e8();break; case 0xe9:prefix##_##e9();break; case 0xea:prefix##_##ea();break; case 0xeb:prefix##_##eb();break; \
568
  case 0xec:prefix##_##ec();break; case 0xed:prefix##_##ed();break; case 0xee:prefix##_##ee();break; case 0xef:prefix##_##ef();break; \
569
  case 0xf0:prefix##_##f0();break; case 0xf1:prefix##_##f1();break; case 0xf2:prefix##_##f2();break; case 0xf3:prefix##_##f3();break; \
570
  case 0xf4:prefix##_##f4();break; case 0xf5:prefix##_##f5();break; case 0xf6:prefix##_##f6();break; case 0xf7:prefix##_##f7();break; \
571
  case 0xf8:prefix##_##f8();break; case 0xf9:prefix##_##f9();break; case 0xfa:prefix##_##fa();break; case 0xfb:prefix##_##fb();break; \
572
  case 0xfc:prefix##_##fc();break; case 0xfd:prefix##_##fd();break; case 0xfe:prefix##_##fe();break; case 0xff:prefix##_##ff();break; \
573
  }                                                                                                                                   \
574
}
575
#else
576
#define EXEC_INLINE EXEC
577
#endif
578

579

580
void CDLog68k(uint addr, uint flags);
581

582
void CDLogZ80(uint addr, uint flags)
583
{
584
	//in case we wrap around while reading a u16 from FFFF...
585
	addr &= 0xFFFF;
586

587
	if(addr < 0x4000)
588
	{
589
		addr &= 0x1FFF;
590
		biz_cdcallback(addr, eCDLog_AddrType_RAMZ80, flags);
591
		return;
592
	}
593

594
	if(addr >= 0x8000)
595
	{
596
    addr = zbank | (addr & 0x7FFF);
597
    if (zbank_memory_map[addr >> 16].read)
598
    {
599
			//special memory maps are hard to support here.
600
			//hopefully, most carts aren't setting this CB for simple accesses to ROMs 
601
      return;
602
    }
603

604
		//punt to 68k mapper
605
		CDLog68k(addr, flags);
606
    return;
607
	}
608
}
609

610
INLINE unsigned char CDLogZ80_RM(uint addr)
611
{
612
	if(biz_cdcallback)
613
		CDLogZ80(addr,eCDLog_Flags_DataZ80);
614
	return z80_readmem(addr);
615
}
616

617
/***************************************************************
618
 * Enter HALT state; write 1 to fake port on first execution
619
 ***************************************************************/
620
#define ENTER_HALT {                          \
621
  PC--;                                       \
622
  HALT = 1;                                   \
623
}
624

625
/***************************************************************
626
 * Leave HALT state; write 0 to fake port
627
 ***************************************************************/
628
#define LEAVE_HALT {                          \
629
  if( HALT )                                  \
630
  {                                           \
631
    HALT = 0;                                 \
632
    PC++;                                     \
633
  }                                           \
634
}
635

636
/***************************************************************
637
 * Input a byte from given I/O port
638
 ***************************************************************/
639
#define IN(port) z80_readport(port)
640

641
/***************************************************************
642
 * Output a byte to given I/O port
643
 ***************************************************************/
644
#define OUT(port,value) z80_writeport(port,value)
645

646
/***************************************************************
647
 * Read a byte from given memory location
648
 ***************************************************************/
649
#define RM(addr) CDLogZ80_RM(addr)
650

651
/***************************************************************
652
 * Write a byte to given memory location
653
 ***************************************************************/
654
#define WM(addr,value) z80_writemem(addr,value)
655

656
/***************************************************************
657
 * Read a word from given memory location
658
 ***************************************************************/
659
INLINE void RM16( UINT32 addr, PAIR *r )
660
{
661
  r->b.l = RM(addr);
662
  r->b.h = RM((addr+1)&0xffff);
663
}
664

665
/***************************************************************
666
 * Write a word to given memory location
667
 ***************************************************************/
668
INLINE void WM16( UINT32 addr, PAIR *r )
669
{
670
  WM(addr,r->b.l);
671
  WM((addr+1)&0xffff,r->b.h);
672
}
673

674
/***************************************************************
675
 * ROP() is identical to RM() except it is used for
676
 * reading opcodes. In case of system with memory mapped I/O,
677
 * this function can be used to greatly speed up emulation
678
 ***************************************************************/
679
INLINE UINT8 ROP(void)
680
{
681
  unsigned pc = PCD;
682
  PC++;
683

684
	if(biz_cdcallback)
685
		CDLogZ80(PC,eCDLog_Flags_ExecZ80First);
686

687
  return cpu_readop(pc);
688
}
689

690
/****************************************************************
691
 * ARG() is identical to ROP() except it is used
692
 * for reading opcode arguments. This difference can be used to
693
 * support systems that use different encoding mechanisms for
694
 * opcodes and opcode arguments
695
 ***************************************************************/
696
INLINE UINT8 ARG(void)
697
{
698
  unsigned pc = PCD;
699
  PC++;
700

701
	if(biz_cdcallback)
702
		CDLogZ80(pc,eCDLog_Flags_ExecZ80Operand);
703

704
  return cpu_readop_arg(pc);
705
}
706

707
INLINE UINT32 ARG16(void)
708
{
709
  unsigned pc = PCD;
710
  PC += 2;
711

712
	if(biz_cdcallback)
713
	{
714
		CDLogZ80(pc,eCDLog_Flags_ExecZ80Operand);
715
		CDLogZ80(pc+1,eCDLog_Flags_ExecZ80Operand);
716
	}
717

718
  return cpu_readop_arg(pc) | (cpu_readop_arg((pc+1)&0xffff) << 8);
719
}
720

721
/***************************************************************
722
 * Calculate the effective address EA of an opcode using
723
 * IX+offset resp. IY+offset addressing.
724
 ***************************************************************/
725
#define EAX   do { EA = (UINT32)(UINT16)(IX + (INT8)ARG()); WZ = EA; } while (0)
726
#define EAY   do { EA = (UINT32)(UINT16)(IY + (INT8)ARG()); WZ = EA; } while (0)
727

728
/***************************************************************
729
 * POP
730
 ***************************************************************/
731
#define POP(DR) do { RM16( SPD, &Z80.DR ); SP += 2; } while (0)
732

733
/***************************************************************
734
 * PUSH
735
 ***************************************************************/
736
#define PUSH(SR) do { SP -= 2; WM16( SPD, &Z80.SR ); } while (0)
737

738
/***************************************************************
739
 * JP
740
 ***************************************************************/
741
#define JP {                                    \
742
  PCD = ARG16();                                \
743
  WZ = PCD;                                     \
744
}
745

746
/***************************************************************
747
 * JP_COND
748
 ***************************************************************/
749
#define JP_COND(cond) {                         \
750
  if (cond)                                     \
751
  {                                             \
752
    PCD = ARG16();                              \
753
    WZ = PCD;                                   \
754
  }                                             \
755
  else                                          \
756
  {                                             \
757
    WZ = ARG16(); /* implicit do PC += 2 */     \
758
  }                                             \
759
}
760

761
/***************************************************************
762
 * JR
763
 ***************************************************************/
764
#define JR() {                                            \
765
  INT8 arg = (INT8)ARG(); /* ARG() also increments PC */  \
766
  PC += arg;        /* so don't do PC += ARG() */         \
767
  WZ = PC;                                                \
768
}
769

770
/***************************************************************
771
 * JR_COND
772
 ***************************************************************/
773
#define JR_COND(cond, opcode) {   \
774
  if (cond)                       \
775
  {                               \
776
    JR();                         \
777
    CC(ex, opcode);               \
778
  }                               \
779
  else PC++;                      \
780
}
781

782
/***************************************************************
783
 * CALL
784
 ***************************************************************/
785
#define CALL() {                  \
786
  EA = ARG16();                   \
787
  WZ = EA;                        \
788
  PUSH(pc);                       \
789
  PCD = EA;                       \
790
}
791

792
/***************************************************************
793
 * CALL_COND
794
 ***************************************************************/
795
#define CALL_COND(cond, opcode) { \
796
  if (cond)                       \
797
  {                               \
798
    EA = ARG16();                 \
799
    WZ = EA;                      \
800
    PUSH(pc);                     \
801
    PCD = EA;                     \
802
    CC(ex, opcode);               \
803
  }                               \
804
  else                            \
805
  {                               \
806
    WZ = ARG16();  /* implicit call PC+=2;   */ \
807
  }                               \
808
}
809

810
/***************************************************************
811
 * RET_COND
812
 ***************************************************************/
813
#define RET_COND(cond, opcode) do { \
814
  if (cond)                         \
815
  {                                 \
816
    POP(pc);                        \
817
    WZ = PC;                        \
818
    CC(ex, opcode);                 \
819
  }                                 \
820
} while (0)
821

822
/***************************************************************
823
 * RETN
824
 ***************************************************************/
825
#define RETN do { \
826
  LOG(("Z80 #%d RETN IFF1:%d IFF2:%d\n", cpu_getactivecpu(), IFF1, IFF2)); \
827
  POP( pc ); \
828
  WZ = PC; \
829
  IFF1 = IFF2; \
830
} while (0)
831

832
/***************************************************************
833
 * RETI
834
 ***************************************************************/
835
#define RETI { \
836
  POP( pc ); \
837
  WZ = PC; \
838
/* according to http://www.msxnet.org/tech/z80-documented.pdf */ \
839
  IFF1 = IFF2; \
840
}
841

842
/***************************************************************
843
 * LD  R,A
844
 ***************************************************************/
845
#define LD_R_A {  \
846
  R = A;  \
847
  R2 = A & 0x80;  /* keep bit 7 of R */ \
848
}
849

850
/***************************************************************
851
 * LD  A,R
852
 ***************************************************************/
853
#define LD_A_R {  \
854
  A = (R & 0x7f) | R2;  \
855
  F = (F & CF) | SZ[A] | ( IFF2 << 2 ); \
856
}
857

858
/***************************************************************
859
 * LD  I,A
860
 ***************************************************************/
861
#define LD_I_A {  \
862
  I = A;  \
863
}
864

865
/***************************************************************
866
 * LD  A,I
867
 ***************************************************************/
868
#define LD_A_I {  \
869
  A = I;  \
870
  F = (F & CF) | SZ[A] | ( IFF2 << 2 ); \
871
}
872

873
/***************************************************************
874
 * RST
875
 ***************************************************************/
876
#define RST(addr) \
877
  PUSH( pc ); \
878
  PCD = addr; \
879
  WZ = PC;  \
880

881
/***************************************************************
882
 * INC  r8
883
 ***************************************************************/
884
INLINE UINT8 INC(UINT8 value)
885
{
886
  UINT8 res = value + 1;
887
  F = (F & CF) | SZHV_inc[res];
888
  return (UINT8)res;
889
}
890

891
/***************************************************************
892
 * DEC  r8
893
 ***************************************************************/
894
INLINE UINT8 DEC(UINT8 value)
895
{
896
  UINT8 res = value - 1;
897
  F = (F & CF) | SZHV_dec[res];
898
  return res;
899
}
900

901
/***************************************************************
902
 * RLCA
903
 ***************************************************************/
904
#define RLCA                                        \
905
  A = (A << 1) | (A >> 7);                          \
906
  F = (F & (SF | ZF | PF)) | (A & (YF | XF | CF))
907

908
/***************************************************************
909
 * RRCA
910
 ***************************************************************/
911
#define RRCA                                        \
912
  F = (F & (SF | ZF | PF)) | (A & CF);              \
913
  A = (A >> 1) | (A << 7);                          \
914
  F |= (A & (YF | XF) )
915

916
/***************************************************************
917
 * RLA
918
 ***************************************************************/
919
#define RLA {                                       \
920
  UINT8 res = (A << 1) | (F & CF);                  \
921
  UINT8 c = (A & 0x80) ? CF : 0;                    \
922
  F = (F & (SF | ZF | PF)) | c | (res & (YF | XF)); \
923
  A = res;                                          \
924
}
925

926
/***************************************************************
927
 * RRA
928
 ***************************************************************/
929
#define RRA {                                       \
930
  UINT8 res = (A >> 1) | (F << 7);                  \
931
  UINT8 c = (A & 0x01) ? CF : 0;                    \
932
  F = (F & (SF | ZF | PF)) | c | (res & (YF | XF)); \
933
  A = res;                                          \
934
}
935

936
/***************************************************************
937
 * RRD
938
 ***************************************************************/
939
#define RRD {                                       \
940
  UINT8 n = RM(HL);                                 \
941
  WZ = HL+1;                                        \
942
  WM( HL, (n >> 4) | (A << 4) );                    \
943
  A = (A & 0xf0) | (n & 0x0f);                      \
944
  F = (F & CF) | SZP[A];                            \
945
}
946

947
/***************************************************************
948
 * RLD
949
 ***************************************************************/
950
#define RLD {                                       \
951
  UINT8 n = RM(HL);                                 \
952
  WZ = HL+1;                                        \
953
  WM( HL, (n << 4) | (A & 0x0f) );                  \
954
  A = (A & 0xf0) | (n >> 4);                        \
955
  F = (F & CF) | SZP[A];                            \
956
}
957

958
/***************************************************************
959
 * ADD  A,n
960
 ***************************************************************/
961
#define ADD(value)                                  \
962
{                                                   \
963
  UINT32 ah = AFD & 0xff00;                         \
964
  UINT32 res = (UINT8)((ah >> 8) + value);          \
965
  F = SZHVC_add[ah | res];                          \
966
  A = res;                                          \
967
}
968

969
/***************************************************************
970
 * ADC  A,n
971
 ***************************************************************/
972
#define ADC(value)                                  \
973
{                                                   \
974
  UINT32 ah = AFD & 0xff00, c = AFD & 1;            \
975
  UINT32 res = (UINT8)((ah >> 8) + value + c);      \
976
  F = SZHVC_add[(c << 16) | ah | res];              \
977
  A = res;                                          \
978
}
979

980
/***************************************************************
981
 * SUB  n
982
 ***************************************************************/
983
#define SUB(value)                                  \
984
{                                                   \
985
  UINT32 ah = AFD & 0xff00;                         \
986
  UINT32 res = (UINT8)((ah >> 8) - value);          \
987
  F = SZHVC_sub[ah | res];                          \
988
  A = res;                                          \
989
}
990

991
/***************************************************************
992
 * SBC  A,n
993
 ***************************************************************/
994
#define SBC(value)                                  \
995
{                                                   \
996
  UINT32 ah = AFD & 0xff00, c = AFD & 1;            \
997
  UINT32 res = (UINT8)((ah >> 8) - value - c);      \
998
  F = SZHVC_sub[(c<<16) | ah | res];                \
999
  A = res;                                          \
1000
}
1001

1002
/***************************************************************
1003
 * NEG
1004
 ***************************************************************/
1005
#define NEG {                                       \
1006
  UINT8 value = A;                                  \
1007
  A = 0;                                            \
1008
  SUB(value);                                       \
1009
}
1010

1011
/***************************************************************
1012
 * DAA
1013
 ***************************************************************/
1014
#define DAA {                                       \
1015
  UINT8 a = A;                                      \
1016
  if (F & NF) {                                     \
1017
    if ((F&HF) | ((A&0xf)>9)) a-=6;                 \
1018
    if ((F&CF) | (A>0x99)) a-=0x60;                 \
1019
  }                                                 \
1020
  else {                                            \
1021
    if ((F&HF) | ((A&0xf)>9)) a+=6;                 \
1022
    if ((F&CF) | (A>0x99)) a+=0x60;                 \
1023
  }                                                 \
1024
                                                    \
1025
  F = (F&(CF|NF)) | (A>0x99) | ((A^a)&HF) | SZP[a]; \
1026
  A = a;                                            \
1027
}
1028

1029
/***************************************************************
1030
 * AND  n
1031
 ***************************************************************/
1032
#define AND(value)  \
1033
  A &= value;       \
1034
  F = SZP[A] | HF
1035

1036
/***************************************************************
1037
 * OR  n
1038
 ***************************************************************/
1039
#define OR(value)   \
1040
  A |= value;       \
1041
  F = SZP[A]
1042

1043
/***************************************************************
1044
 * XOR  n
1045
 ***************************************************************/
1046
#define XOR(value)  \
1047
  A ^= value;       \
1048
  F = SZP[A]
1049

1050
/***************************************************************
1051
 * CP  n
1052
 ***************************************************************/
1053
#define CP(value)                                             \
1054
{                                                             \
1055
  unsigned val = value;                                       \
1056
  UINT32 ah = AFD & 0xff00;                                   \
1057
  UINT32 res = (UINT8)((ah >> 8) - val);                      \
1058
  F = (SZHVC_sub[ah | res] & ~(YF | XF)) | (val & (YF | XF)); \
1059
}
1060

1061
/***************************************************************
1062
 * EX  AF,AF'
1063
 ***************************************************************/
1064
#define EX_AF                                       \
1065
{                                                   \
1066
  PAIR tmp;                                         \
1067
  tmp = Z80.af; Z80.af = Z80.af2; Z80.af2 = tmp;    \
1068
}
1069

1070
/***************************************************************
1071
 * EX  DE,HL
1072
 ***************************************************************/
1073
#define EX_DE_HL                                    \
1074
{                                                   \
1075
  PAIR tmp;                                         \
1076
  tmp = Z80.de; Z80.de = Z80.hl; Z80.hl = tmp;      \
1077
}
1078

1079
/***************************************************************
1080
 * EXX
1081
 ***************************************************************/
1082
#define EXX                                         \
1083
{                                                   \
1084
  PAIR tmp;                                         \
1085
  tmp = Z80.bc; Z80.bc = Z80.bc2; Z80.bc2 = tmp;    \
1086
  tmp = Z80.de; Z80.de = Z80.de2; Z80.de2 = tmp;    \
1087
  tmp = Z80.hl; Z80.hl = Z80.hl2; Z80.hl2 = tmp;    \
1088
}
1089

1090
/***************************************************************
1091
 * EX  (SP),r16
1092
 ***************************************************************/
1093
#define EXSP(DR)                                    \
1094
{                                                   \
1095
  PAIR tmp = { { 0, 0, 0, 0 } };                    \
1096
  RM16( SPD, &tmp );                                \
1097
  WM16( SPD, &Z80.DR );                             \
1098
  Z80.DR = tmp;                                     \
1099
  WZ = Z80.DR.d;                                    \
1100
}
1101

1102

1103
/***************************************************************
1104
 * ADD16
1105
 ***************************************************************/
1106
#define ADD16(DR,SR)                                \
1107
{                                                   \
1108
  UINT32 res = Z80.DR.d + Z80.SR.d;                 \
1109
  WZ = Z80.DR.d + 1;                                \
1110
  F = (F & (SF | ZF | VF)) |                        \
1111
    (((Z80.DR.d ^ res ^ Z80.SR.d) >> 8) & HF) |     \
1112
    ((res >> 16) & CF) | ((res >> 8) & (YF | XF));  \
1113
  Z80.DR.w.l = (UINT16)res;                         \
1114
}
1115

1116
/***************************************************************
1117
 * ADC  r16,r16
1118
 ***************************************************************/
1119
#define ADC16(Reg)                                                      \
1120
{                                                                       \
1121
  UINT32 res = HLD + Z80.Reg.d + (F & CF);                              \
1122
  WZ = HL + 1;                                                          \
1123
  F = (((HLD ^ res ^ Z80.Reg.d) >> 8) & HF) |                           \
1124
    ((res >> 16) & CF) |                                                \
1125
    ((res >> 8) & (SF | YF | XF)) |                                     \
1126
    ((res & 0xffff) ? 0 : ZF) |                                         \
1127
    (((Z80.Reg.d ^ HLD ^ 0x8000) & (Z80.Reg.d ^ res) & 0x8000) >> 13);  \
1128
  HL = (UINT16)res;                                                     \
1129
}
1130

1131
/***************************************************************
1132
 * SBC  r16,r16
1133
 ***************************************************************/
1134
#define SBC16(Reg)                                      \
1135
{                                                       \
1136
  UINT32 res = HLD - Z80.Reg.d - (F & CF);              \
1137
  WZ = HL + 1;                                          \
1138
  F = (((HLD ^ res ^ Z80.Reg.d) >> 8) & HF) | NF |      \
1139
    ((res >> 16) & CF) |                                \
1140
    ((res >> 8) & (SF | YF | XF)) |                     \
1141
    ((res & 0xffff) ? 0 : ZF) |                         \
1142
    (((Z80.Reg.d ^ HLD) & (HLD ^ res) &0x8000) >> 13);  \
1143
  HL = (UINT16)res;                                     \
1144
}
1145

1146
/***************************************************************
1147
 * RLC  r8
1148
 ***************************************************************/
1149
INLINE UINT8 RLC(UINT8 value)
1150
{
1151
  unsigned res = value;
1152
  unsigned c = (res & 0x80) ? CF : 0;
1153
  res = ((res << 1) | (res >> 7)) & 0xff;
1154
  F = SZP[res] | c;
1155
  return res;
1156
}
1157

1158
/***************************************************************
1159
 * RRC  r8
1160
 ***************************************************************/
1161
INLINE UINT8 RRC(UINT8 value)
1162
{
1163
  unsigned res = value;
1164
  unsigned c = (res & 0x01) ? CF : 0;
1165
  res = ((res >> 1) | (res << 7)) & 0xff;
1166
  F = SZP[res] | c;
1167
  return res;
1168
}
1169

1170
/***************************************************************
1171
 * RL  r8
1172
 ***************************************************************/
1173
INLINE UINT8 RL(UINT8 value)
1174
{
1175
  unsigned res = value;
1176
  unsigned c = (res & 0x80) ? CF : 0;
1177
  res = ((res << 1) | (F & CF)) & 0xff;
1178
  F = SZP[res] | c;
1179
  return res;
1180
}
1181

1182
/***************************************************************
1183
 * RR  r8
1184
 ***************************************************************/
1185
INLINE UINT8 RR(UINT8 value)
1186
{
1187
  unsigned res = value;
1188
  unsigned c = (res & 0x01) ? CF : 0;
1189
  res = ((res >> 1) | (F << 7)) & 0xff;
1190
  F = SZP[res] | c;
1191
  return res;
1192
}
1193

1194
/***************************************************************
1195
 * SLA  r8
1196
 ***************************************************************/
1197
INLINE UINT8 SLA(UINT8 value)
1198
{
1199
  unsigned res = value;
1200
  unsigned c = (res & 0x80) ? CF : 0;
1201
  res = (res << 1) & 0xff;
1202
  F = SZP[res] | c;
1203
  return res;
1204
}
1205

1206
/***************************************************************
1207
 * SRA  r8
1208
 ***************************************************************/
1209
INLINE UINT8 SRA(UINT8 value)
1210
{
1211
  unsigned res = value;
1212
  unsigned c = (res & 0x01) ? CF : 0;
1213
  res = ((res >> 1) | (res & 0x80)) & 0xff;
1214
  F = SZP[res] | c;
1215
  return res;
1216
}
1217

1218
/***************************************************************
1219
 * SLL  r8
1220
 ***************************************************************/
1221
INLINE UINT8 SLL(UINT8 value)
1222
{
1223
  unsigned res = value;
1224
  unsigned c = (res & 0x80) ? CF : 0;
1225
  res = ((res << 1) | 0x01) & 0xff;
1226
  F = SZP[res] | c;
1227
  return res;
1228
}
1229

1230
/***************************************************************
1231
 * SRL  r8
1232
 ***************************************************************/
1233
INLINE UINT8 SRL(UINT8 value)
1234
{
1235
  unsigned res = value;
1236
  unsigned c = (res & 0x01) ? CF : 0;
1237
  res = (res >> 1) & 0xff;
1238
  F = SZP[res] | c;
1239
  return res;
1240
}
1241

1242
/***************************************************************
1243
 * BIT  bit,r8
1244
 ***************************************************************/
1245
#undef BIT
1246
#define BIT(bit,reg)    \
1247
  F = (F & CF) | HF | (SZ_BIT[reg & (1<<bit)] & ~(YF|XF)) | (reg & (YF|XF))
1248

1249
/***************************************************************
1250
 * BIT  bit,(HL)
1251
 ***************************************************************/
1252
#define BIT_HL(bit,reg) \
1253
  F = (F & CF) | HF | (SZ_BIT[reg & (1<<bit)] & ~(YF|XF)) | (WZ_H & (YF|XF))
1254

1255
/***************************************************************
1256
 * BIT  bit,(IX/Y+o)
1257
 ***************************************************************/
1258
#define BIT_XY(bit,reg) \
1259
  F = (F & CF) | HF | (SZ_BIT[reg & (1<<bit)] & ~(YF|XF)) | ((EA>>8) & (YF|XF))
1260

1261
/***************************************************************
1262
 * RES  bit,r8
1263
 ***************************************************************/
1264
INLINE UINT8 RES(UINT8 bit, UINT8 value)
1265
{
1266
  return value & ~(1<<bit);
1267
}
1268

1269
/***************************************************************
1270
 * SET  bit,r8
1271
 ***************************************************************/
1272
INLINE UINT8 SET(UINT8 bit, UINT8 value)
1273
{
1274
  return value | (1<<bit);
1275
}
1276

1277
/***************************************************************
1278
 * LDI
1279
 ***************************************************************/
1280
#define LDI {                                           \
1281
  UINT8 io = RM(HL);                                    \
1282
  WM( DE, io );                                         \
1283
  F &= SF | ZF | CF;                                    \
1284
  if( (A + io) & 0x02 ) F |= YF; /* bit 1 -> flag 5 */  \
1285
  if( (A + io) & 0x08 ) F |= XF; /* bit 3 -> flag 3 */  \
1286
  HL++; DE++; BC--;                                     \
1287
  if( BC ) F |= VF;                                     \
1288
}
1289

1290
/***************************************************************
1291
 * CPI
1292
 ***************************************************************/
1293
#define CPI {                                                 \
1294
  UINT8 val = RM(HL);                                         \
1295
  UINT8 res = A - val;                                        \
1296
  WZ++;                                                       \
1297
  HL++; BC--;                                                 \
1298
  F = (F & CF) | (SZ[res]&~(YF|XF)) | ((A^val^res)&HF) | NF;  \
1299
  if( F & HF ) res -= 1;                                      \
1300
  if( res & 0x02 ) F |= YF; /* bit 1 -> flag 5 */             \
1301
  if( res & 0x08 ) F |= XF; /* bit 3 -> flag 3 */             \
1302
  if( BC ) F |= VF;                                           \
1303
}
1304

1305
/***************************************************************
1306
 * INI
1307
 ***************************************************************/
1308
#define INI {                                           \
1309
  unsigned t;                                           \
1310
  UINT8 io = IN(BC);                                    \
1311
  WZ = BC + 1;                                          \
1312
  CC(ex,0xa2);                                          \
1313
  B--;                                                  \
1314
  WM( HL, io );                                         \
1315
  HL++;                                                 \
1316
  F = SZ[B];                                            \
1317
  t = (unsigned)((C + 1) & 0xff) + (unsigned)io;        \
1318
  if( io & SF ) F |= NF;                                \
1319
  if( t & 0x100 ) F |= HF | CF;                         \
1320
  F |= SZP[(UINT8)(t & 0x07) ^ B] & PF;                 \
1321
}
1322

1323
/***************************************************************
1324
 * OUTI
1325
 ***************************************************************/
1326
#define OUTI {                                          \
1327
  unsigned t;                                           \
1328
  UINT8 io = RM(HL);                                    \
1329
  B--;                                                  \
1330
  WZ = BC + 1;                                          \
1331
  OUT( BC, io );                                        \
1332
  HL++;                                                 \
1333
  F = SZ[B];                                            \
1334
  t = (unsigned)L + (unsigned)io;                       \
1335
  if( io & SF ) F |= NF;                                \
1336
  if( t & 0x100 ) F |= HF | CF;                         \
1337
  F |= SZP[(UINT8)(t & 0x07) ^ B] & PF;                 \
1338
}
1339

1340
/***************************************************************
1341
 * LDD
1342
 ***************************************************************/
1343
#define LDD {                                           \
1344
  UINT8 io = RM(HL);                                    \
1345
  WM( DE, io );                                         \
1346
  F &= SF | ZF | CF;                                    \
1347
  if( (A + io) & 0x02 ) F |= YF; /* bit 1 -> flag 5 */  \
1348
  if( (A + io) & 0x08 ) F |= XF; /* bit 3 -> flag 3 */  \
1349
  HL--; DE--; BC--;                                     \
1350
  if( BC ) F |= VF;                                     \
1351
}
1352

1353
/***************************************************************
1354
 * CPD
1355
 ***************************************************************/
1356
#define CPD {                                                 \
1357
  UINT8 val = RM(HL);                                         \
1358
  UINT8 res = A - val;                                        \
1359
  WZ--;                                                       \
1360
  HL--; BC--;                                                 \
1361
  F = (F & CF) | (SZ[res]&~(YF|XF)) | ((A^val^res)&HF) | NF;  \
1362
  if( F & HF ) res -= 1;                                      \
1363
  if( res & 0x02 ) F |= YF; /* bit 1 -> flag 5 */             \
1364
  if( res & 0x08 ) F |= XF; /* bit 3 -> flag 3 */             \
1365
  if( BC ) F |= VF;                                           \
1366
}
1367

1368
/***************************************************************
1369
 * IND
1370
 ***************************************************************/
1371
#define IND {                                           \
1372
  unsigned t;                                           \
1373
  UINT8 io = IN(BC);                                    \
1374
  WZ = BC - 1;                                          \
1375
  CC(ex,0xaa);                                          \
1376
  B--;                                                  \
1377
  WM( HL, io );                                         \
1378
  HL--;                                                 \
1379
  F = SZ[B];                                            \
1380
  t = ((unsigned)(C - 1) & 0xff) + (unsigned)io;        \
1381
  if( io & SF ) F |= NF;                                \
1382
  if( t & 0x100 ) F |= HF | CF;                         \
1383
  F |= SZP[(UINT8)(t & 0x07) ^ B] & PF;                 \
1384
}
1385

1386
/***************************************************************
1387
 * OUTD
1388
 ***************************************************************/
1389
#define OUTD {                                          \
1390
  unsigned t;                                           \
1391
  UINT8 io = RM(HL);                                    \
1392
  B--;                                                  \
1393
  WZ = BC - 1;                                          \
1394
  OUT( BC, io );                                        \
1395
  HL--;                                                 \
1396
  F = SZ[B];                                            \
1397
  t = (unsigned)L + (unsigned)io;                       \
1398
  if( io & SF ) F |= NF;                                \
1399
  if( t & 0x100 ) F |= HF | CF;                         \
1400
  F |= SZP[(UINT8)(t & 0x07) ^ B] & PF;                 \
1401
}
1402

1403
/***************************************************************
1404
 * LDIR
1405
 ***************************************************************/
1406
#define LDIR            \
1407
  LDI;                  \
1408
  if( BC )              \
1409
  {                     \
1410
    PC -= 2;            \
1411
    WZ = PC + 1;        \
1412
    CC(ex,0xb0);        \
1413
  }
1414

1415
/***************************************************************
1416
 * CPIR
1417
 ***************************************************************/
1418
#define CPIR            \
1419
  CPI;                  \
1420
  if( BC && !(F & ZF) ) \
1421
  {                     \
1422
    PC -= 2;            \
1423
   WZ = PC + 1;         \
1424
    CC(ex,0xb1);        \
1425
  }
1426

1427
/***************************************************************
1428
 * INIR
1429
 ***************************************************************/
1430
#define INIR      \
1431
  INI;            \
1432
  if( B )         \
1433
  {               \
1434
    PC -= 2;      \
1435
    CC(ex,0xb2);  \
1436
  }
1437

1438
/***************************************************************
1439
 * OTIR
1440
 ***************************************************************/
1441
#define OTIR      \
1442
  OUTI;           \
1443
  if( B )         \
1444
  {               \
1445
    PC -= 2;      \
1446
    CC(ex,0xb3);  \
1447
  }
1448

1449
/***************************************************************
1450
 * LDDR
1451
 ***************************************************************/
1452
#define LDDR            \
1453
  LDD;                  \
1454
  if( BC )              \
1455
  {                     \
1456
    PC -= 2;            \
1457
    WZ = PC + 1;        \
1458
    CC(ex,0xb8);        \
1459
  }
1460

1461
/***************************************************************
1462
 * CPDR
1463
 ***************************************************************/
1464
#define CPDR            \
1465
  CPD;                  \
1466
  if( BC && !(F & ZF) ) \
1467
  {                     \
1468
    PC -= 2;            \
1469
   WZ = PC + 1;         \
1470
    CC(ex,0xb9);        \
1471
  }
1472

1473
/***************************************************************
1474
 * INDR
1475
 ***************************************************************/
1476
#define INDR      \
1477
  IND;            \
1478
  if( B )         \
1479
  {               \
1480
    PC -= 2;      \
1481
    CC(ex,0xba);  \
1482
  }
1483

1484
/***************************************************************
1485
 * OTDR
1486
 ***************************************************************/
1487
#define OTDR      \
1488
  OUTD;           \
1489
  if( B )         \
1490
  {               \
1491
    PC -= 2;      \
1492
    CC(ex,0xbb);  \
1493
  }
1494

1495
/***************************************************************
1496
 * EI
1497
 ***************************************************************/
1498
#define EI {            \
1499
  IFF1 = IFF2 = 1;      \
1500
  Z80.after_ei = TRUE;  \
1501
}
1502

1503
/**********************************************************
1504
 * opcodes with CB prefix
1505
 * rotate, shift and bit operations
1506
 **********************************************************/
1507
OP(cb,00) { B = RLC(B);                      } /* RLC  B           */
1508
OP(cb,01) { C = RLC(C);                      } /* RLC  C           */
1509
OP(cb,02) { D = RLC(D);                      } /* RLC  D           */
1510
OP(cb,03) { E = RLC(E);                      } /* RLC  E           */
1511
OP(cb,04) { H = RLC(H);                      } /* RLC  H           */
1512
OP(cb,05) { L = RLC(L);                      } /* RLC  L           */
1513
OP(cb,06) { WM( HL, RLC(RM(HL)) );           } /* RLC  (HL)        */
1514
OP(cb,07) { A = RLC(A);                      } /* RLC  A           */
1515

1516
OP(cb,08) { B = RRC(B);                      } /* RRC  B           */
1517
OP(cb,09) { C = RRC(C);                      } /* RRC  C           */
1518
OP(cb,0a) { D = RRC(D);                      } /* RRC  D           */
1519
OP(cb,0b) { E = RRC(E);                      } /* RRC  E           */
1520
OP(cb,0c) { H = RRC(H);                      } /* RRC  H           */
1521
OP(cb,0d) { L = RRC(L);                      } /* RRC  L           */
1522
OP(cb,0e) { WM( HL, RRC(RM(HL)) );           } /* RRC  (HL)        */
1523
OP(cb,0f) { A = RRC(A);                      } /* RRC  A           */
1524

1525
OP(cb,10) { B = RL(B);                       } /* RL   B           */
1526
OP(cb,11) { C = RL(C);                       } /* RL   C           */
1527
OP(cb,12) { D = RL(D);                       } /* RL   D           */
1528
OP(cb,13) { E = RL(E);                       } /* RL   E           */
1529
OP(cb,14) { H = RL(H);                       } /* RL   H           */
1530
OP(cb,15) { L = RL(L);                       } /* RL   L           */
1531
OP(cb,16) { WM( HL, RL(RM(HL)) );            } /* RL   (HL)        */
1532
OP(cb,17) { A = RL(A);                       } /* RL   A           */
1533

1534
OP(cb,18) { B = RR(B);                       } /* RR   B           */
1535
OP(cb,19) { C = RR(C);                       } /* RR   C           */
1536
OP(cb,1a) { D = RR(D);                       } /* RR   D           */
1537
OP(cb,1b) { E = RR(E);                       } /* RR   E           */
1538
OP(cb,1c) { H = RR(H);                       } /* RR   H           */
1539
OP(cb,1d) { L = RR(L);                       } /* RR   L           */
1540
OP(cb,1e) { WM( HL, RR(RM(HL)) );            } /* RR   (HL)        */
1541
OP(cb,1f) { A = RR(A);                       } /* RR   A           */
1542

1543
OP(cb,20) { B = SLA(B);                      } /* SLA  B           */
1544
OP(cb,21) { C = SLA(C);                      } /* SLA  C           */
1545
OP(cb,22) { D = SLA(D);                      } /* SLA  D           */
1546
OP(cb,23) { E = SLA(E);                      } /* SLA  E           */
1547
OP(cb,24) { H = SLA(H);                      } /* SLA  H           */
1548
OP(cb,25) { L = SLA(L);                      } /* SLA  L           */
1549
OP(cb,26) { WM( HL, SLA(RM(HL)) );           } /* SLA  (HL)        */
1550
OP(cb,27) { A = SLA(A);                      } /* SLA  A           */
1551

1552
OP(cb,28) { B = SRA(B);                      } /* SRA  B           */
1553
OP(cb,29) { C = SRA(C);                      } /* SRA  C           */
1554
OP(cb,2a) { D = SRA(D);                      } /* SRA  D           */
1555
OP(cb,2b) { E = SRA(E);                      } /* SRA  E           */
1556
OP(cb,2c) { H = SRA(H);                      } /* SRA  H           */
1557
OP(cb,2d) { L = SRA(L);                      } /* SRA  L           */
1558
OP(cb,2e) { WM( HL, SRA(RM(HL)) );           } /* SRA  (HL)        */
1559
OP(cb,2f) { A = SRA(A);                      } /* SRA  A           */
1560

1561
OP(cb,30) { B = SLL(B);                      } /* SLL  B           */
1562
OP(cb,31) { C = SLL(C);                      } /* SLL  C           */
1563
OP(cb,32) { D = SLL(D);                      } /* SLL  D           */
1564
OP(cb,33) { E = SLL(E);                      } /* SLL  E           */
1565
OP(cb,34) { H = SLL(H);                      } /* SLL  H           */
1566
OP(cb,35) { L = SLL(L);                      } /* SLL  L           */
1567
OP(cb,36) { WM( HL, SLL(RM(HL)) );           } /* SLL  (HL)        */
1568
OP(cb,37) { A = SLL(A);                      } /* SLL  A           */
1569

1570
OP(cb,38) { B = SRL(B);                      } /* SRL  B           */
1571
OP(cb,39) { C = SRL(C);                      } /* SRL  C           */
1572
OP(cb,3a) { D = SRL(D);                      } /* SRL  D           */
1573
OP(cb,3b) { E = SRL(E);                      } /* SRL  E           */
1574
OP(cb,3c) { H = SRL(H);                      } /* SRL  H           */
1575
OP(cb,3d) { L = SRL(L);                      } /* SRL  L           */
1576
OP(cb,3e) { WM( HL, SRL(RM(HL)) );           } /* SRL  (HL)        */
1577
OP(cb,3f) { A = SRL(A);                      } /* SRL  A           */
1578

1579
OP(cb,40) { BIT(0,B);                        } /* BIT  0,B         */
1580
OP(cb,41) { BIT(0,C);                        } /* BIT  0,C         */
1581
OP(cb,42) { BIT(0,D);                        } /* BIT  0,D         */
1582
OP(cb,43) { BIT(0,E);                        } /* BIT  0,E         */
1583
OP(cb,44) { BIT(0,H);                        } /* BIT  0,H         */
1584
OP(cb,45) { BIT(0,L);                        } /* BIT  0,L         */
1585
OP(cb,46) { BIT_HL(0,RM(HL));                } /* BIT  0,(HL)      */
1586
OP(cb,47) { BIT(0,A);                        } /* BIT  0,A         */
1587

1588
OP(cb,48) { BIT(1,B);                        } /* BIT  1,B         */
1589
OP(cb,49) { BIT(1,C);                        } /* BIT  1,C         */
1590
OP(cb,4a) { BIT(1,D);                        } /* BIT  1,D         */
1591
OP(cb,4b) { BIT(1,E);                        } /* BIT  1,E         */
1592
OP(cb,4c) { BIT(1,H);                        } /* BIT  1,H         */
1593
OP(cb,4d) { BIT(1,L);                        } /* BIT  1,L         */
1594
OP(cb,4e) { BIT_HL(1,RM(HL));                } /* BIT  1,(HL)      */
1595
OP(cb,4f) { BIT(1,A);                        } /* BIT  1,A         */
1596

1597
OP(cb,50) { BIT(2,B);                        } /* BIT  2,B         */
1598
OP(cb,51) { BIT(2,C);                        } /* BIT  2,C         */
1599
OP(cb,52) { BIT(2,D);                        } /* BIT  2,D         */
1600
OP(cb,53) { BIT(2,E);                        } /* BIT  2,E         */
1601
OP(cb,54) { BIT(2,H);                        } /* BIT  2,H         */
1602
OP(cb,55) { BIT(2,L);                        } /* BIT  2,L         */
1603
OP(cb,56) { BIT_HL(2,RM(HL));                } /* BIT  2,(HL)      */
1604
OP(cb,57) { BIT(2,A);                        } /* BIT  2,A         */
1605

1606
OP(cb,58) { BIT(3,B);                        } /* BIT  3,B         */
1607
OP(cb,59) { BIT(3,C);                        } /* BIT  3,C         */
1608
OP(cb,5a) { BIT(3,D);                        } /* BIT  3,D         */
1609
OP(cb,5b) { BIT(3,E);                        } /* BIT  3,E         */
1610
OP(cb,5c) { BIT(3,H);                        } /* BIT  3,H         */
1611
OP(cb,5d) { BIT(3,L);                        } /* BIT  3,L         */
1612
OP(cb,5e) { BIT_HL(3,RM(HL));                } /* BIT  3,(HL)      */
1613
OP(cb,5f) { BIT(3,A);                        } /* BIT  3,A         */
1614

1615
OP(cb,60) { BIT(4,B);                        } /* BIT  4,B         */
1616
OP(cb,61) { BIT(4,C);                        } /* BIT  4,C         */
1617
OP(cb,62) { BIT(4,D);                        } /* BIT  4,D         */
1618
OP(cb,63) { BIT(4,E);                        } /* BIT  4,E         */
1619
OP(cb,64) { BIT(4,H);                        } /* BIT  4,H         */
1620
OP(cb,65) { BIT(4,L);                        } /* BIT  4,L         */
1621
OP(cb,66) { BIT_HL(4,RM(HL));                } /* BIT  4,(HL)      */
1622
OP(cb,67) { BIT(4,A);                        } /* BIT  4,A         */
1623

1624
OP(cb,68) { BIT(5,B);                        } /* BIT  5,B         */
1625
OP(cb,69) { BIT(5,C);                        } /* BIT  5,C         */
1626
OP(cb,6a) { BIT(5,D);                        } /* BIT  5,D         */
1627
OP(cb,6b) { BIT(5,E);                        } /* BIT  5,E         */
1628
OP(cb,6c) { BIT(5,H);                        } /* BIT  5,H         */
1629
OP(cb,6d) { BIT(5,L);                        } /* BIT  5,L         */
1630
OP(cb,6e) { BIT_HL(5,RM(HL));                } /* BIT  5,(HL)      */
1631
OP(cb,6f) { BIT(5,A);                        } /* BIT  5,A         */
1632

1633
OP(cb,70) { BIT(6,B);                        } /* BIT  6,B         */
1634
OP(cb,71) { BIT(6,C);                        } /* BIT  6,C         */
1635
OP(cb,72) { BIT(6,D);                        } /* BIT  6,D         */
1636
OP(cb,73) { BIT(6,E);                        } /* BIT  6,E         */
1637
OP(cb,74) { BIT(6,H);                        } /* BIT  6,H         */
1638
OP(cb,75) { BIT(6,L);                        } /* BIT  6,L         */
1639
OP(cb,76) { BIT_HL(6,RM(HL));                } /* BIT  6,(HL)      */
1640
OP(cb,77) { BIT(6,A);                        } /* BIT  6,A         */
1641

1642
OP(cb,78) { BIT(7,B);                        } /* BIT  7,B         */
1643
OP(cb,79) { BIT(7,C);                        } /* BIT  7,C         */
1644
OP(cb,7a) { BIT(7,D);                        } /* BIT  7,D         */
1645
OP(cb,7b) { BIT(7,E);                        } /* BIT  7,E         */
1646
OP(cb,7c) { BIT(7,H);                        } /* BIT  7,H         */
1647
OP(cb,7d) { BIT(7,L);                        } /* BIT  7,L         */
1648
OP(cb,7e) { BIT_HL(7,RM(HL));                } /* BIT  7,(HL)      */
1649
OP(cb,7f) { BIT(7,A);                        } /* BIT  7,A         */
1650

1651
OP(cb,80) { B = RES(0,B);                    } /* RES  0,B         */
1652
OP(cb,81) { C = RES(0,C);                    } /* RES  0,C         */
1653
OP(cb,82) { D = RES(0,D);                    } /* RES  0,D         */
1654
OP(cb,83) { E = RES(0,E);                    } /* RES  0,E         */
1655
OP(cb,84) { H = RES(0,H);                    } /* RES  0,H         */
1656
OP(cb,85) { L = RES(0,L);                    } /* RES  0,L         */
1657
OP(cb,86) { WM( HL, RES(0,RM(HL)) );         } /* RES  0,(HL)      */
1658
OP(cb,87) { A = RES(0,A);                    } /* RES  0,A         */
1659

1660
OP(cb,88) { B = RES(1,B);                    } /* RES  1,B         */
1661
OP(cb,89) { C = RES(1,C);                    } /* RES  1,C         */
1662
OP(cb,8a) { D = RES(1,D);                    } /* RES  1,D         */
1663
OP(cb,8b) { E = RES(1,E);                    } /* RES  1,E         */
1664
OP(cb,8c) { H = RES(1,H);                    } /* RES  1,H         */
1665
OP(cb,8d) { L = RES(1,L);                    } /* RES  1,L         */
1666
OP(cb,8e) { WM( HL, RES(1,RM(HL)) );         } /* RES  1,(HL)      */
1667
OP(cb,8f) { A = RES(1,A);                    } /* RES  1,A         */
1668

1669
OP(cb,90) { B = RES(2,B);                    } /* RES  2,B         */
1670
OP(cb,91) { C = RES(2,C);                    } /* RES  2,C         */
1671
OP(cb,92) { D = RES(2,D);                    } /* RES  2,D         */
1672
OP(cb,93) { E = RES(2,E);                    } /* RES  2,E         */
1673
OP(cb,94) { H = RES(2,H);                    } /* RES  2,H         */
1674
OP(cb,95) { L = RES(2,L);                    } /* RES  2,L         */
1675
OP(cb,96) { WM( HL, RES(2,RM(HL)) );         } /* RES  2,(HL)      */
1676
OP(cb,97) { A = RES(2,A);                    } /* RES  2,A         */
1677

1678
OP(cb,98) { B = RES(3,B);                    } /* RES  3,B         */
1679
OP(cb,99) { C = RES(3,C);                    } /* RES  3,C         */
1680
OP(cb,9a) { D = RES(3,D);                    } /* RES  3,D         */
1681
OP(cb,9b) { E = RES(3,E);                    } /* RES  3,E         */
1682
OP(cb,9c) { H = RES(3,H);                    } /* RES  3,H         */
1683
OP(cb,9d) { L = RES(3,L);                    } /* RES  3,L         */
1684
OP(cb,9e) { WM( HL, RES(3,RM(HL)) );         } /* RES  3,(HL)      */
1685
OP(cb,9f) { A = RES(3,A);                    } /* RES  3,A         */
1686

1687
OP(cb,a0) { B = RES(4,B);                    } /* RES  4,B         */
1688
OP(cb,a1) { C = RES(4,C);                    } /* RES  4,C         */
1689
OP(cb,a2) { D = RES(4,D);                    } /* RES  4,D         */
1690
OP(cb,a3) { E = RES(4,E);                    } /* RES  4,E         */
1691
OP(cb,a4) { H = RES(4,H);                    } /* RES  4,H         */
1692
OP(cb,a5) { L = RES(4,L);                    } /* RES  4,L         */
1693
OP(cb,a6) { WM( HL, RES(4,RM(HL)) );         } /* RES  4,(HL)      */
1694
OP(cb,a7) { A = RES(4,A);                    } /* RES  4,A         */
1695

1696
OP(cb,a8) { B = RES(5,B);                    } /* RES  5,B         */
1697
OP(cb,a9) { C = RES(5,C);                    } /* RES  5,C         */
1698
OP(cb,aa) { D = RES(5,D);                    } /* RES  5,D         */
1699
OP(cb,ab) { E = RES(5,E);                    } /* RES  5,E         */
1700
OP(cb,ac) { H = RES(5,H);                    } /* RES  5,H         */
1701
OP(cb,ad) { L = RES(5,L);                    } /* RES  5,L         */
1702
OP(cb,ae) { WM( HL, RES(5,RM(HL)) );         } /* RES  5,(HL)      */
1703
OP(cb,af) { A = RES(5,A);                    } /* RES  5,A         */
1704

1705
OP(cb,b0) { B = RES(6,B);                    } /* RES  6,B         */
1706
OP(cb,b1) { C = RES(6,C);                    } /* RES  6,C         */
1707
OP(cb,b2) { D = RES(6,D);                    } /* RES  6,D         */
1708
OP(cb,b3) { E = RES(6,E);                    } /* RES  6,E         */
1709
OP(cb,b4) { H = RES(6,H);                    } /* RES  6,H         */
1710
OP(cb,b5) { L = RES(6,L);                    } /* RES  6,L         */
1711
OP(cb,b6) { WM( HL, RES(6,RM(HL)) );         } /* RES  6,(HL)      */
1712
OP(cb,b7) { A = RES(6,A);                    } /* RES  6,A         */
1713

1714
OP(cb,b8) { B = RES(7,B);                    } /* RES  7,B         */
1715
OP(cb,b9) { C = RES(7,C);                    } /* RES  7,C         */
1716
OP(cb,ba) { D = RES(7,D);                    } /* RES  7,D         */
1717
OP(cb,bb) { E = RES(7,E);                    } /* RES  7,E         */
1718
OP(cb,bc) { H = RES(7,H);                    } /* RES  7,H         */
1719
OP(cb,bd) { L = RES(7,L);                    } /* RES  7,L         */
1720
OP(cb,be) { WM( HL, RES(7,RM(HL)) );         } /* RES  7,(HL)      */
1721
OP(cb,bf) { A = RES(7,A);                    } /* RES  7,A         */
1722

1723
OP(cb,c0) { B = SET(0,B);                    } /* SET  0,B         */
1724
OP(cb,c1) { C = SET(0,C);                    } /* SET  0,C         */
1725
OP(cb,c2) { D = SET(0,D);                    } /* SET  0,D         */
1726
OP(cb,c3) { E = SET(0,E);                    } /* SET  0,E         */
1727
OP(cb,c4) { H = SET(0,H);                    } /* SET  0,H         */
1728
OP(cb,c5) { L = SET(0,L);                    } /* SET  0,L         */
1729
OP(cb,c6) { WM( HL, SET(0,RM(HL)) );         } /* SET  0,(HL)      */
1730
OP(cb,c7) { A = SET(0,A);                    } /* SET  0,A         */
1731

1732
OP(cb,c8) { B = SET(1,B);                    } /* SET  1,B         */
1733
OP(cb,c9) { C = SET(1,C);                    } /* SET  1,C         */
1734
OP(cb,ca) { D = SET(1,D);                    } /* SET  1,D         */
1735
OP(cb,cb) { E = SET(1,E);                    } /* SET  1,E         */
1736
OP(cb,cc) { H = SET(1,H);                    } /* SET  1,H         */
1737
OP(cb,cd) { L = SET(1,L);                    } /* SET  1,L         */
1738
OP(cb,ce) { WM( HL, SET(1,RM(HL)) );         } /* SET  1,(HL)      */
1739
OP(cb,cf) { A = SET(1,A);                    } /* SET  1,A         */
1740

1741
OP(cb,d0) { B = SET(2,B);                    } /* SET  2,B         */
1742
OP(cb,d1) { C = SET(2,C);                    } /* SET  2,C         */
1743
OP(cb,d2) { D = SET(2,D);                    } /* SET  2,D         */
1744
OP(cb,d3) { E = SET(2,E);                    } /* SET  2,E         */
1745
OP(cb,d4) { H = SET(2,H);                    } /* SET  2,H         */
1746
OP(cb,d5) { L = SET(2,L);                    } /* SET  2,L         */
1747
OP(cb,d6) { WM( HL, SET(2,RM(HL)) );         } /* SET  2,(HL)      */
1748
OP(cb,d7) { A = SET(2,A);                    } /* SET  2,A         */
1749

1750
OP(cb,d8) { B = SET(3,B);                    } /* SET  3,B         */
1751
OP(cb,d9) { C = SET(3,C);                    } /* SET  3,C         */
1752
OP(cb,da) { D = SET(3,D);                    } /* SET  3,D         */
1753
OP(cb,db) { E = SET(3,E);                    } /* SET  3,E         */
1754
OP(cb,dc) { H = SET(3,H);                    } /* SET  3,H         */
1755
OP(cb,dd) { L = SET(3,L);                    } /* SET  3,L         */
1756
OP(cb,de) { WM( HL, SET(3,RM(HL)) );         } /* SET  3,(HL)      */
1757
OP(cb,df) { A = SET(3,A);                    } /* SET  3,A         */
1758

1759
OP(cb,e0) { B = SET(4,B);                    } /* SET  4,B         */
1760
OP(cb,e1) { C = SET(4,C);                    } /* SET  4,C         */
1761
OP(cb,e2) { D = SET(4,D);                    } /* SET  4,D         */
1762
OP(cb,e3) { E = SET(4,E);                    } /* SET  4,E         */
1763
OP(cb,e4) { H = SET(4,H);                    } /* SET  4,H         */
1764
OP(cb,e5) { L = SET(4,L);                    } /* SET  4,L         */
1765
OP(cb,e6) { WM( HL, SET(4,RM(HL)) );         } /* SET  4,(HL)      */
1766
OP(cb,e7) { A = SET(4,A);                    } /* SET  4,A         */
1767

1768
OP(cb,e8) { B = SET(5,B);                    } /* SET  5,B         */
1769
OP(cb,e9) { C = SET(5,C);                    } /* SET  5,C         */
1770
OP(cb,ea) { D = SET(5,D);                    } /* SET  5,D         */
1771
OP(cb,eb) { E = SET(5,E);                    } /* SET  5,E         */
1772
OP(cb,ec) { H = SET(5,H);                    } /* SET  5,H         */
1773
OP(cb,ed) { L = SET(5,L);                    } /* SET  5,L         */
1774
OP(cb,ee) { WM( HL, SET(5,RM(HL)) );         } /* SET  5,(HL)      */
1775
OP(cb,ef) { A = SET(5,A);                    } /* SET  5,A         */
1776

1777
OP(cb,f0) { B = SET(6,B);                    } /* SET  6,B         */
1778
OP(cb,f1) { C = SET(6,C);                    } /* SET  6,C         */
1779
OP(cb,f2) { D = SET(6,D);                    } /* SET  6,D         */
1780
OP(cb,f3) { E = SET(6,E);                    } /* SET  6,E         */
1781
OP(cb,f4) { H = SET(6,H);                    } /* SET  6,H         */
1782
OP(cb,f5) { L = SET(6,L);                    } /* SET  6,L         */
1783
OP(cb,f6) { WM( HL, SET(6,RM(HL)) );         } /* SET  6,(HL)      */
1784
OP(cb,f7) { A = SET(6,A);                    } /* SET  6,A         */
1785

1786
OP(cb,f8) { B = SET(7,B);                    } /* SET  7,B         */
1787
OP(cb,f9) { C = SET(7,C);                    } /* SET  7,C         */
1788
OP(cb,fa) { D = SET(7,D);                    } /* SET  7,D         */
1789
OP(cb,fb) { E = SET(7,E);                    } /* SET  7,E         */
1790
OP(cb,fc) { H = SET(7,H);                    } /* SET  7,H         */
1791
OP(cb,fd) { L = SET(7,L);                    } /* SET  7,L         */
1792
OP(cb,fe) { WM( HL, SET(7,RM(HL)) );         } /* SET  7,(HL)      */
1793
OP(cb,ff) { A = SET(7,A);                    } /* SET  7,A         */
1794

1795

1796
/**********************************************************
1797
* opcodes with DD/FD CB prefix
1798
* rotate, shift and bit operations with (IX+o)
1799
**********************************************************/
1800
OP(xycb,00) { B = RLC( RM(EA) ); WM( EA,B );            } /* RLC  B=(XY+o)    */
1801
OP(xycb,01) { C = RLC( RM(EA) ); WM( EA,C );            } /* RLC  C=(XY+o)    */
1802
OP(xycb,02) { D = RLC( RM(EA) ); WM( EA,D );            } /* RLC  D=(XY+o)    */
1803
OP(xycb,03) { E = RLC( RM(EA) ); WM( EA,E );            } /* RLC  E=(XY+o)    */
1804
OP(xycb,04) { H = RLC( RM(EA) ); WM( EA,H );            } /* RLC  H=(XY+o)    */
1805
OP(xycb,05) { L = RLC( RM(EA) ); WM( EA,L );            } /* RLC  L=(XY+o)    */
1806
OP(xycb,06) { WM( EA, RLC( RM(EA) ) );                  } /* RLC  (XY+o)      */
1807
OP(xycb,07) { A = RLC( RM(EA) ); WM( EA,A );            } /* RLC  A=(XY+o)    */
1808

1809
OP(xycb,08) { B = RRC( RM(EA) ); WM( EA,B );            } /* RRC  B=(XY+o)    */
1810
OP(xycb,09) { C = RRC( RM(EA) ); WM( EA,C );            } /* RRC  C=(XY+o)    */
1811
OP(xycb,0a) { D = RRC( RM(EA) ); WM( EA,D );            } /* RRC  D=(XY+o)    */
1812
OP(xycb,0b) { E = RRC( RM(EA) ); WM( EA,E );            } /* RRC  E=(XY+o)    */
1813
OP(xycb,0c) { H = RRC( RM(EA) ); WM( EA,H );            } /* RRC  H=(XY+o)    */
1814
OP(xycb,0d) { L = RRC( RM(EA) ); WM( EA,L );            } /* RRC  L=(XY+o)    */
1815
OP(xycb,0e) { WM( EA,RRC( RM(EA) ) );                   } /* RRC  (XY+o)      */
1816
OP(xycb,0f) { A = RRC( RM(EA) ); WM( EA,A );            } /* RRC  A=(XY+o)    */
1817

1818
OP(xycb,10) { B = RL( RM(EA) ); WM( EA,B );             } /* RL   B=(XY+o)    */
1819
OP(xycb,11) { C = RL( RM(EA) ); WM( EA,C );             } /* RL   C=(XY+o)    */
1820
OP(xycb,12) { D = RL( RM(EA) ); WM( EA,D );             } /* RL   D=(XY+o)    */
1821
OP(xycb,13) { E = RL( RM(EA) ); WM( EA,E );             } /* RL   E=(XY+o)    */
1822
OP(xycb,14) { H = RL( RM(EA) ); WM( EA,H );             } /* RL   H=(XY+o)    */
1823
OP(xycb,15) { L = RL( RM(EA) ); WM( EA,L );             } /* RL   L=(XY+o)    */
1824
OP(xycb,16) { WM( EA,RL( RM(EA) ) );                    } /* RL   (XY+o)      */
1825
OP(xycb,17) { A = RL( RM(EA) ); WM( EA,A );             } /* RL   A=(XY+o)    */
1826

1827
OP(xycb,18) { B = RR( RM(EA) ); WM( EA,B );             } /* RR   B=(XY+o)    */
1828
OP(xycb,19) { C = RR( RM(EA) ); WM( EA,C );             } /* RR   C=(XY+o)    */
1829
OP(xycb,1a) { D = RR( RM(EA) ); WM( EA,D );             } /* RR   D=(XY+o)    */
1830
OP(xycb,1b) { E = RR( RM(EA) ); WM( EA,E );             } /* RR   E=(XY+o)    */
1831
OP(xycb,1c) { H = RR( RM(EA) ); WM( EA,H );             } /* RR   H=(XY+o)    */
1832
OP(xycb,1d) { L = RR( RM(EA) ); WM( EA,L );             } /* RR   L=(XY+o)    */
1833
OP(xycb,1e) { WM( EA,RR( RM(EA) ) );                    } /* RR   (XY+o)      */
1834
OP(xycb,1f) { A = RR( RM(EA) ); WM( EA,A );             } /* RR   A=(XY+o)    */
1835

1836
OP(xycb,20) { B = SLA( RM(EA) ); WM( EA,B );            } /* SLA  B=(XY+o)    */
1837
OP(xycb,21) { C = SLA( RM(EA) ); WM( EA,C );            } /* SLA  C=(XY+o)    */
1838
OP(xycb,22) { D = SLA( RM(EA) ); WM( EA,D );            } /* SLA  D=(XY+o)    */
1839
OP(xycb,23) { E = SLA( RM(EA) ); WM( EA,E );            } /* SLA  E=(XY+o)    */
1840
OP(xycb,24) { H = SLA( RM(EA) ); WM( EA,H );            } /* SLA  H=(XY+o)    */
1841
OP(xycb,25) { L = SLA( RM(EA) ); WM( EA,L );            } /* SLA  L=(XY+o)    */
1842
OP(xycb,26) { WM( EA,SLA( RM(EA) ) );                   } /* SLA  (XY+o)      */
1843
OP(xycb,27) { A = SLA( RM(EA) ); WM( EA,A );            } /* SLA  A=(XY+o)    */
1844

1845
OP(xycb,28) { B = SRA( RM(EA) ); WM( EA,B );            } /* SRA  B=(XY+o)    */
1846
OP(xycb,29) { C = SRA( RM(EA) ); WM( EA,C );            } /* SRA  C=(XY+o)    */
1847
OP(xycb,2a) { D = SRA( RM(EA) ); WM( EA,D );            } /* SRA  D=(XY+o)    */
1848
OP(xycb,2b) { E = SRA( RM(EA) ); WM( EA,E );            } /* SRA  E=(XY+o)    */
1849
OP(xycb,2c) { H = SRA( RM(EA) ); WM( EA,H );            } /* SRA  H=(XY+o)    */
1850
OP(xycb,2d) { L = SRA( RM(EA) ); WM( EA,L );            } /* SRA  L=(XY+o)    */
1851
OP(xycb,2e) { WM( EA,SRA( RM(EA) ) );                   } /* SRA  (XY+o)      */
1852
OP(xycb,2f) { A = SRA( RM(EA) ); WM( EA,A );            } /* SRA  A=(XY+o)    */
1853

1854
OP(xycb,30) { B = SLL( RM(EA) ); WM( EA,B );            } /* SLL  B=(XY+o)    */
1855
OP(xycb,31) { C = SLL( RM(EA) ); WM( EA,C );            } /* SLL  C=(XY+o)    */
1856
OP(xycb,32) { D = SLL( RM(EA) ); WM( EA,D );            } /* SLL  D=(XY+o)    */
1857
OP(xycb,33) { E = SLL( RM(EA) ); WM( EA,E );            } /* SLL  E=(XY+o)    */
1858
OP(xycb,34) { H = SLL( RM(EA) ); WM( EA,H );            } /* SLL  H=(XY+o)    */
1859
OP(xycb,35) { L = SLL( RM(EA) ); WM( EA,L );            } /* SLL  L=(XY+o)    */
1860
OP(xycb,36) { WM( EA,SLL( RM(EA) ) );                   } /* SLL  (XY+o)      */
1861
OP(xycb,37) { A = SLL( RM(EA) ); WM( EA,A );            } /* SLL  A=(XY+o)    */
1862

1863
OP(xycb,38) { B = SRL( RM(EA) ); WM( EA,B );            } /* SRL  B=(XY+o)    */
1864
OP(xycb,39) { C = SRL( RM(EA) ); WM( EA,C );            } /* SRL  C=(XY+o)    */
1865
OP(xycb,3a) { D = SRL( RM(EA) ); WM( EA,D );            } /* SRL  D=(XY+o)    */
1866
OP(xycb,3b) { E = SRL( RM(EA) ); WM( EA,E );            } /* SRL  E=(XY+o)    */
1867
OP(xycb,3c) { H = SRL( RM(EA) ); WM( EA,H );            } /* SRL  H=(XY+o)    */
1868
OP(xycb,3d) { L = SRL( RM(EA) ); WM( EA,L );            } /* SRL  L=(XY+o)    */
1869
OP(xycb,3e) { WM( EA,SRL( RM(EA) ) );                   } /* SRL  (XY+o)      */
1870
OP(xycb,3f) { A = SRL( RM(EA) ); WM( EA,A );            } /* SRL  A=(XY+o)    */
1871

1872
OP(xycb,40) { xycb_46();                                } /* BIT  0,(XY+o)    */
1873
OP(xycb,41) { xycb_46();                                } /* BIT  0,(XY+o)    */
1874
OP(xycb,42) { xycb_46();                                } /* BIT  0,(XY+o)    */
1875
OP(xycb,43) { xycb_46();                                } /* BIT  0,(XY+o)    */
1876
OP(xycb,44) { xycb_46();                                } /* BIT  0,(XY+o)    */
1877
OP(xycb,45) { xycb_46();                                } /* BIT  0,(XY+o)    */
1878
OP(xycb,46) { BIT_XY(0,RM(EA));                         } /* BIT  0,(XY+o)    */
1879
OP(xycb,47) { xycb_46();                                } /* BIT  0,(XY+o)    */
1880

1881
OP(xycb,48) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1882
OP(xycb,49) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1883
OP(xycb,4a) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1884
OP(xycb,4b) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1885
OP(xycb,4c) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1886
OP(xycb,4d) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1887
OP(xycb,4e) { BIT_XY(1,RM(EA));                         } /* BIT  1,(XY+o)    */
1888
OP(xycb,4f) { xycb_4e();                                } /* BIT  1,(XY+o)    */
1889

1890
OP(xycb,50) { xycb_56();                                } /* BIT  2,(XY+o)    */
1891
OP(xycb,51) { xycb_56();                                } /* BIT  2,(XY+o)    */
1892
OP(xycb,52) { xycb_56();                                } /* BIT  2,(XY+o)    */
1893
OP(xycb,53) { xycb_56();                                } /* BIT  2,(XY+o)    */
1894
OP(xycb,54) { xycb_56();                                } /* BIT  2,(XY+o)    */
1895
OP(xycb,55) { xycb_56();                                } /* BIT  2,(XY+o)    */
1896
OP(xycb,56) { BIT_XY(2,RM(EA));                         } /* BIT  2,(XY+o)    */
1897
OP(xycb,57) { xycb_56();                                } /* BIT  2,(XY+o)    */
1898

1899
OP(xycb,58) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1900
OP(xycb,59) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1901
OP(xycb,5a) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1902
OP(xycb,5b) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1903
OP(xycb,5c) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1904
OP(xycb,5d) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1905
OP(xycb,5e) { BIT_XY(3,RM(EA));                         } /* BIT  3,(XY+o)    */
1906
OP(xycb,5f) { xycb_5e();                                } /* BIT  3,(XY+o)    */
1907

1908
OP(xycb,60) { xycb_66();                                } /* BIT  4,(XY+o)    */
1909
OP(xycb,61) { xycb_66();                                } /* BIT  4,(XY+o)    */
1910
OP(xycb,62) { xycb_66();                                } /* BIT  4,(XY+o)    */
1911
OP(xycb,63) { xycb_66();                                } /* BIT  4,(XY+o)    */
1912
OP(xycb,64) { xycb_66();                                } /* BIT  4,(XY+o)    */
1913
OP(xycb,65) { xycb_66();                                } /* BIT  4,(XY+o)    */
1914
OP(xycb,66) { BIT_XY(4,RM(EA));                         } /* BIT  4,(XY+o)    */
1915
OP(xycb,67) { xycb_66();                                } /* BIT  4,(XY+o)    */
1916

1917
OP(xycb,68) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1918
OP(xycb,69) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1919
OP(xycb,6a) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1920
OP(xycb,6b) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1921
OP(xycb,6c) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1922
OP(xycb,6d) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1923
OP(xycb,6e) { BIT_XY(5,RM(EA));                         } /* BIT  5,(XY+o)    */
1924
OP(xycb,6f) { xycb_6e();                                } /* BIT  5,(XY+o)    */
1925

1926
OP(xycb,70) { xycb_76();                                } /* BIT  6,(XY+o)    */
1927
OP(xycb,71) { xycb_76();                                } /* BIT  6,(XY+o)    */
1928
OP(xycb,72) { xycb_76();                                } /* BIT  6,(XY+o)    */
1929
OP(xycb,73) { xycb_76();                                } /* BIT  6,(XY+o)    */
1930
OP(xycb,74) { xycb_76();                                } /* BIT  6,(XY+o)    */
1931
OP(xycb,75) { xycb_76();                                } /* BIT  6,(XY+o)    */
1932
OP(xycb,76) { BIT_XY(6,RM(EA));                         } /* BIT  6,(XY+o)    */
1933
OP(xycb,77) { xycb_76();                                } /* BIT  6,(XY+o)    */
1934

1935
OP(xycb,78) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1936
OP(xycb,79) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1937
OP(xycb,7a) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1938
OP(xycb,7b) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1939
OP(xycb,7c) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1940
OP(xycb,7d) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1941
OP(xycb,7e) { BIT_XY(7,RM(EA));                         } /* BIT  7,(XY+o)    */
1942
OP(xycb,7f) { xycb_7e();                                } /* BIT  7,(XY+o)    */
1943

1944
OP(xycb,80) { B = RES(0, RM(EA) ); WM( EA,B );          } /* RES  0,B=(XY+o)  */
1945
OP(xycb,81) { C = RES(0, RM(EA) ); WM( EA,C );          } /* RES  0,C=(XY+o)  */
1946
OP(xycb,82) { D = RES(0, RM(EA) ); WM( EA,D );          } /* RES  0,D=(XY+o)  */
1947
OP(xycb,83) { E = RES(0, RM(EA) ); WM( EA,E );          } /* RES  0,E=(XY+o)  */
1948
OP(xycb,84) { H = RES(0, RM(EA) ); WM( EA,H );          } /* RES  0,H=(XY+o)  */
1949
OP(xycb,85) { L = RES(0, RM(EA) ); WM( EA,L );          } /* RES  0,L=(XY+o)  */
1950
OP(xycb,86) { WM( EA, RES(0,RM(EA)) );                  } /* RES  0,(XY+o)    */
1951
OP(xycb,87) { A = RES(0, RM(EA) ); WM( EA,A );          } /* RES  0,A=(XY+o)  */
1952

1953
OP(xycb,88) { B = RES(1, RM(EA) ); WM( EA,B );          } /* RES  1,B=(XY+o)  */
1954
OP(xycb,89) { C = RES(1, RM(EA) ); WM( EA,C );          } /* RES  1,C=(XY+o)  */
1955
OP(xycb,8a) { D = RES(1, RM(EA) ); WM( EA,D );          } /* RES  1,D=(XY+o)  */
1956
OP(xycb,8b) { E = RES(1, RM(EA) ); WM( EA,E );          } /* RES  1,E=(XY+o)  */
1957
OP(xycb,8c) { H = RES(1, RM(EA) ); WM( EA,H );          } /* RES  1,H=(XY+o)  */
1958
OP(xycb,8d) { L = RES(1, RM(EA) ); WM( EA,L );          } /* RES  1,L=(XY+o)  */
1959
OP(xycb,8e) { WM( EA, RES(1,RM(EA)) );                  } /* RES  1,(XY+o)    */
1960
OP(xycb,8f) { A = RES(1, RM(EA) ); WM( EA,A );          } /* RES  1,A=(XY+o)  */
1961

1962
OP(xycb,90) { B = RES(2, RM(EA) ); WM( EA,B );          } /* RES  2,B=(XY+o)  */
1963
OP(xycb,91) { C = RES(2, RM(EA) ); WM( EA,C );          } /* RES  2,C=(XY+o)  */
1964
OP(xycb,92) { D = RES(2, RM(EA) ); WM( EA,D );          } /* RES  2,D=(XY+o)  */
1965
OP(xycb,93) { E = RES(2, RM(EA) ); WM( EA,E );          } /* RES  2,E=(XY+o)  */
1966
OP(xycb,94) { H = RES(2, RM(EA) ); WM( EA,H );          } /* RES  2,H=(XY+o)  */
1967
OP(xycb,95) { L = RES(2, RM(EA) ); WM( EA,L );          } /* RES  2,L=(XY+o)  */
1968
OP(xycb,96) { WM( EA, RES(2,RM(EA)) );                  } /* RES  2,(XY+o)    */
1969
OP(xycb,97) { A = RES(2, RM(EA) ); WM( EA,A );          } /* RES  2,A=(XY+o)  */
1970

1971
OP(xycb,98) { B = RES(3, RM(EA) ); WM( EA,B );          } /* RES  3,B=(XY+o)  */
1972
OP(xycb,99) { C = RES(3, RM(EA) ); WM( EA,C );          } /* RES  3,C=(XY+o)  */
1973
OP(xycb,9a) { D = RES(3, RM(EA) ); WM( EA,D );          } /* RES  3,D=(XY+o)  */
1974
OP(xycb,9b) { E = RES(3, RM(EA) ); WM( EA,E );          } /* RES  3,E=(XY+o)  */
1975
OP(xycb,9c) { H = RES(3, RM(EA) ); WM( EA,H );          } /* RES  3,H=(XY+o)  */
1976
OP(xycb,9d) { L = RES(3, RM(EA) ); WM( EA,L );          } /* RES  3,L=(XY+o)  */
1977
OP(xycb,9e) { WM( EA, RES(3,RM(EA)) );                  } /* RES  3,(XY+o)    */
1978
OP(xycb,9f) { A = RES(3, RM(EA) ); WM( EA,A );          } /* RES  3,A=(XY+o)  */
1979

1980
OP(xycb,a0) { B = RES(4, RM(EA) ); WM( EA,B );          } /* RES  4,B=(XY+o)  */
1981
OP(xycb,a1) { C = RES(4, RM(EA) ); WM( EA,C );          } /* RES  4,C=(XY+o)  */
1982
OP(xycb,a2) { D = RES(4, RM(EA) ); WM( EA,D );          } /* RES  4,D=(XY+o)  */
1983
OP(xycb,a3) { E = RES(4, RM(EA) ); WM( EA,E );          } /* RES  4,E=(XY+o)  */
1984
OP(xycb,a4) { H = RES(4, RM(EA) ); WM( EA,H );          } /* RES  4,H=(XY+o)  */
1985
OP(xycb,a5) { L = RES(4, RM(EA) ); WM( EA,L );          } /* RES  4,L=(XY+o)  */
1986
OP(xycb,a6) { WM( EA, RES(4,RM(EA)) );                  } /* RES  4,(XY+o)    */
1987
OP(xycb,a7) { A = RES(4, RM(EA) ); WM( EA,A );          } /* RES  4,A=(XY+o)  */
1988

1989
OP(xycb,a8) { B = RES(5, RM(EA) ); WM( EA,B );          } /* RES  5,B=(XY+o)  */
1990
OP(xycb,a9) { C = RES(5, RM(EA) ); WM( EA,C );          } /* RES  5,C=(XY+o)  */
1991
OP(xycb,aa) { D = RES(5, RM(EA) ); WM( EA,D );          } /* RES  5,D=(XY+o)  */
1992
OP(xycb,ab) { E = RES(5, RM(EA) ); WM( EA,E );          } /* RES  5,E=(XY+o)  */
1993
OP(xycb,ac) { H = RES(5, RM(EA) ); WM( EA,H );          } /* RES  5,H=(XY+o)  */
1994
OP(xycb,ad) { L = RES(5, RM(EA) ); WM( EA,L );          } /* RES  5,L=(XY+o)  */
1995
OP(xycb,ae) { WM( EA, RES(5,RM(EA)) );                  } /* RES  5,(XY+o)    */
1996
OP(xycb,af) { A = RES(5, RM(EA) ); WM( EA,A );          } /* RES  5,A=(XY+o)  */
1997

1998
OP(xycb,b0) { B = RES(6, RM(EA) ); WM( EA,B );          } /* RES  6,B=(XY+o)  */
1999
OP(xycb,b1) { C = RES(6, RM(EA) ); WM( EA,C );          } /* RES  6,C=(XY+o)  */
2000
OP(xycb,b2) { D = RES(6, RM(EA) ); WM( EA,D );          } /* RES  6,D=(XY+o)  */
2001
OP(xycb,b3) { E = RES(6, RM(EA) ); WM( EA,E );          } /* RES  6,E=(XY+o)  */
2002
OP(xycb,b4) { H = RES(6, RM(EA) ); WM( EA,H );          } /* RES  6,H=(XY+o)  */
2003
OP(xycb,b5) { L = RES(6, RM(EA) ); WM( EA,L );          } /* RES  6,L=(XY+o)  */
2004
OP(xycb,b6) { WM( EA, RES(6,RM(EA)) );                  } /* RES  6,(XY+o)    */
2005
OP(xycb,b7) { A = RES(6, RM(EA) ); WM( EA,A );          } /* RES  6,A=(XY+o)  */
2006

2007
OP(xycb,b8) { B = RES(7, RM(EA) ); WM( EA,B );          } /* RES  7,B=(XY+o)  */
2008
OP(xycb,b9) { C = RES(7, RM(EA) ); WM( EA,C );          } /* RES  7,C=(XY+o)  */
2009
OP(xycb,ba) { D = RES(7, RM(EA) ); WM( EA,D );          } /* RES  7,D=(XY+o)  */
2010
OP(xycb,bb) { E = RES(7, RM(EA) ); WM( EA,E );          } /* RES  7,E=(XY+o)  */
2011
OP(xycb,bc) { H = RES(7, RM(EA) ); WM( EA,H );          } /* RES  7,H=(XY+o)  */
2012
OP(xycb,bd) { L = RES(7, RM(EA) ); WM( EA,L );          } /* RES  7,L=(XY+o)  */
2013
OP(xycb,be) { WM( EA, RES(7,RM(EA)) );                  } /* RES  7,(XY+o)    */
2014
OP(xycb,bf) { A = RES(7, RM(EA) ); WM( EA,A );          } /* RES  7,A=(XY+o)  */
2015

2016
OP(xycb,c0) { B = SET(0, RM(EA) ); WM( EA,B );          } /* SET  0,B=(XY+o)  */
2017
OP(xycb,c1) { C = SET(0, RM(EA) ); WM( EA,C );          } /* SET  0,C=(XY+o)  */
2018
OP(xycb,c2) { D = SET(0, RM(EA) ); WM( EA,D );          } /* SET  0,D=(XY+o)  */
2019
OP(xycb,c3) { E = SET(0, RM(EA) ); WM( EA,E );          } /* SET  0,E=(XY+o)  */
2020
OP(xycb,c4) { H = SET(0, RM(EA) ); WM( EA,H );          } /* SET  0,H=(XY+o)  */
2021
OP(xycb,c5) { L = SET(0, RM(EA) ); WM( EA,L );          } /* SET  0,L=(XY+o)  */
2022
OP(xycb,c6) { WM( EA, SET(0,RM(EA)) );                  } /* SET  0,(XY+o)    */
2023
OP(xycb,c7) { A = SET(0, RM(EA) ); WM( EA,A );          } /* SET  0,A=(XY+o)  */
2024

2025
OP(xycb,c8) { B = SET(1, RM(EA) ); WM( EA,B );          } /* SET  1,B=(XY+o)  */
2026
OP(xycb,c9) { C = SET(1, RM(EA) ); WM( EA,C );          } /* SET  1,C=(XY+o)  */
2027
OP(xycb,ca) { D = SET(1, RM(EA) ); WM( EA,D );          } /* SET  1,D=(XY+o)  */
2028
OP(xycb,cb) { E = SET(1, RM(EA) ); WM( EA,E );          } /* SET  1,E=(XY+o)  */
2029
OP(xycb,cc) { H = SET(1, RM(EA) ); WM( EA,H );          } /* SET  1,H=(XY+o)  */
2030
OP(xycb,cd) { L = SET(1, RM(EA) ); WM( EA,L );          } /* SET  1,L=(XY+o)  */
2031
OP(xycb,ce) { WM( EA, SET(1,RM(EA)) );                  } /* SET  1,(XY+o)    */
2032
OP(xycb,cf) { A = SET(1, RM(EA) ); WM( EA,A );          } /* SET  1,A=(XY+o)  */
2033

2034
OP(xycb,d0) { B = SET(2, RM(EA) ); WM( EA,B );          } /* SET  2,B=(XY+o)  */
2035
OP(xycb,d1) { C = SET(2, RM(EA) ); WM( EA,C );          } /* SET  2,C=(XY+o)  */
2036
OP(xycb,d2) { D = SET(2, RM(EA) ); WM( EA,D );          } /* SET  2,D=(XY+o)  */
2037
OP(xycb,d3) { E = SET(2, RM(EA) ); WM( EA,E );          } /* SET  2,E=(XY+o)  */
2038
OP(xycb,d4) { H = SET(2, RM(EA) ); WM( EA,H );          } /* SET  2,H=(XY+o)  */
2039
OP(xycb,d5) { L = SET(2, RM(EA) ); WM( EA,L );          } /* SET  2,L=(XY+o)  */
2040
OP(xycb,d6) { WM( EA, SET(2,RM(EA)) );                  } /* SET  2,(XY+o)    */
2041
OP(xycb,d7) { A = SET(2, RM(EA) ); WM( EA,A );          } /* SET  2,A=(XY+o)  */
2042

2043
OP(xycb,d8) { B = SET(3, RM(EA) ); WM( EA,B );          } /* SET  3,B=(XY+o)  */
2044
OP(xycb,d9) { C = SET(3, RM(EA) ); WM( EA,C );          } /* SET  3,C=(XY+o)  */
2045
OP(xycb,da) { D = SET(3, RM(EA) ); WM( EA,D );          } /* SET  3,D=(XY+o)  */
2046
OP(xycb,db) { E = SET(3, RM(EA) ); WM( EA,E );          } /* SET  3,E=(XY+o)  */
2047
OP(xycb,dc) { H = SET(3, RM(EA) ); WM( EA,H );          } /* SET  3,H=(XY+o)  */
2048
OP(xycb,dd) { L = SET(3, RM(EA) ); WM( EA,L );          } /* SET  3,L=(XY+o)  */
2049
OP(xycb,de) { WM( EA, SET(3,RM(EA)) );                  } /* SET  3,(XY+o)    */
2050
OP(xycb,df) { A = SET(3, RM(EA) ); WM( EA,A );          } /* SET  3,A=(XY+o)  */
2051

2052
OP(xycb,e0) { B = SET(4, RM(EA) ); WM( EA,B );          } /* SET  4,B=(XY+o)  */
2053
OP(xycb,e1) { C = SET(4, RM(EA) ); WM( EA,C );          } /* SET  4,C=(XY+o)  */
2054
OP(xycb,e2) { D = SET(4, RM(EA) ); WM( EA,D );          } /* SET  4,D=(XY+o)  */
2055
OP(xycb,e3) { E = SET(4, RM(EA) ); WM( EA,E );          } /* SET  4,E=(XY+o)  */
2056
OP(xycb,e4) { H = SET(4, RM(EA) ); WM( EA,H );          } /* SET  4,H=(XY+o)  */
2057
OP(xycb,e5) { L = SET(4, RM(EA) ); WM( EA,L );          } /* SET  4,L=(XY+o)  */
2058
OP(xycb,e6) { WM( EA, SET(4,RM(EA)) );                  } /* SET  4,(XY+o)    */
2059
OP(xycb,e7) { A = SET(4, RM(EA) ); WM( EA,A );          } /* SET  4,A=(XY+o)  */
2060

2061
OP(xycb,e8) { B = SET(5, RM(EA) ); WM( EA,B );          } /* SET  5,B=(XY+o)  */
2062
OP(xycb,e9) { C = SET(5, RM(EA) ); WM( EA,C );          } /* SET  5,C=(XY+o)  */
2063
OP(xycb,ea) { D = SET(5, RM(EA) ); WM( EA,D );          } /* SET  5,D=(XY+o)  */
2064
OP(xycb,eb) { E = SET(5, RM(EA) ); WM( EA,E );          } /* SET  5,E=(XY+o)  */
2065
OP(xycb,ec) { H = SET(5, RM(EA) ); WM( EA,H );          } /* SET  5,H=(XY+o)  */
2066
OP(xycb,ed) { L = SET(5, RM(EA) ); WM( EA,L );          } /* SET  5,L=(XY+o)  */
2067
OP(xycb,ee) { WM( EA, SET(5,RM(EA)) );                  } /* SET  5,(XY+o)    */
2068
OP(xycb,ef) { A = SET(5, RM(EA) ); WM( EA,A );          } /* SET  5,A=(XY+o)  */
2069

2070
OP(xycb,f0) { B = SET(6, RM(EA) ); WM( EA,B );          } /* SET  6,B=(XY+o)  */
2071
OP(xycb,f1) { C = SET(6, RM(EA) ); WM( EA,C );          } /* SET  6,C=(XY+o)  */
2072
OP(xycb,f2) { D = SET(6, RM(EA) ); WM( EA,D );          } /* SET  6,D=(XY+o)  */
2073
OP(xycb,f3) { E = SET(6, RM(EA) ); WM( EA,E );          } /* SET  6,E=(XY+o)  */
2074
OP(xycb,f4) { H = SET(6, RM(EA) ); WM( EA,H );          } /* SET  6,H=(XY+o)  */
2075
OP(xycb,f5) { L = SET(6, RM(EA) ); WM( EA,L );          } /* SET  6,L=(XY+o)  */
2076
OP(xycb,f6) { WM( EA, SET(6,RM(EA)) );                  } /* SET  6,(XY+o)    */
2077
OP(xycb,f7) { A = SET(6, RM(EA) ); WM( EA,A );          } /* SET  6,A=(XY+o)  */
2078

2079
OP(xycb,f8) { B = SET(7, RM(EA) ); WM( EA,B );          } /* SET  7,B=(XY+o)  */
2080
OP(xycb,f9) { C = SET(7, RM(EA) ); WM( EA,C );          } /* SET  7,C=(XY+o)  */
2081
OP(xycb,fa) { D = SET(7, RM(EA) ); WM( EA,D );          } /* SET  7,D=(XY+o)  */
2082
OP(xycb,fb) { E = SET(7, RM(EA) ); WM( EA,E );          } /* SET  7,E=(XY+o)  */
2083
OP(xycb,fc) { H = SET(7, RM(EA) ); WM( EA,H );          } /* SET  7,H=(XY+o)  */
2084
OP(xycb,fd) { L = SET(7, RM(EA) ); WM( EA,L );          } /* SET  7,L=(XY+o)  */
2085
OP(xycb,fe) { WM( EA, SET(7,RM(EA)) );                  } /* SET  7,(XY+o)    */
2086
OP(xycb,ff) { A = SET(7, RM(EA) ); WM( EA,A );          } /* SET  7,A=(XY+o)  */
2087

2088
OP(illegal,1) {
2089
#if VERBOSE
2090
  logerror("Z80 #%d ill. opcode $%02x $%02x\n",
2091
      cpu_getactivecpu(), cpu_readop((PCD-1)&0xffff), cpu_readop(PCD));
2092
#endif
2093
}
2094
/**********************************************************
2095
 * IX register related opcodes (DD prefix)
2096
 **********************************************************/
2097
OP(dd,00) { illegal_1(); op_00();                             } /* DB   DD       */
2098
OP(dd,01) { illegal_1(); op_01();                             } /* DB   DD       */
2099
OP(dd,02) { illegal_1(); op_02();                             } /* DB   DD       */
2100
OP(dd,03) { illegal_1(); op_03();                             } /* DB   DD       */
2101
OP(dd,04) { illegal_1(); op_04();                             } /* DB   DD       */
2102
OP(dd,05) { illegal_1(); op_05();                             } /* DB   DD       */
2103
OP(dd,06) { illegal_1(); op_06();                             } /* DB   DD       */
2104
OP(dd,07) { illegal_1(); op_07();                             } /* DB   DD       */
2105

2106
OP(dd,08) { illegal_1(); op_08();                             } /* DB   DD       */
2107
OP(dd,09) { ADD16(ix,bc);                                     } /* ADD  IX,BC    */
2108
OP(dd,0a) { illegal_1(); op_0a();                             } /* DB   DD       */
2109
OP(dd,0b) { illegal_1(); op_0b();                             } /* DB   DD       */
2110
OP(dd,0c) { illegal_1(); op_0c();                             } /* DB   DD       */
2111
OP(dd,0d) { illegal_1(); op_0d();                             } /* DB   DD       */
2112
OP(dd,0e) { illegal_1(); op_0e();                             } /* DB   DD       */
2113
OP(dd,0f) { illegal_1(); op_0f();                             } /* DB   DD       */
2114

2115
OP(dd,10) { illegal_1(); op_10();                             } /* DB   DD       */
2116
OP(dd,11) { illegal_1(); op_11();                             } /* DB   DD       */
2117
OP(dd,12) { illegal_1(); op_12();                             } /* DB   DD       */
2118
OP(dd,13) { illegal_1(); op_13();                             } /* DB   DD       */
2119
OP(dd,14) { illegal_1(); op_14();                             } /* DB   DD       */
2120
OP(dd,15) { illegal_1(); op_15();                             } /* DB   DD       */
2121
OP(dd,16) { illegal_1(); op_16();                             } /* DB   DD       */
2122
OP(dd,17) { illegal_1(); op_17();                             } /* DB   DD       */
2123

2124
OP(dd,18) { illegal_1(); op_18();                             } /* DB   DD       */
2125
OP(dd,19) { ADD16(ix,de);                                     } /* ADD  IX,DE    */
2126
OP(dd,1a) { illegal_1(); op_1a();                             } /* DB   DD       */
2127
OP(dd,1b) { illegal_1(); op_1b();                             } /* DB   DD       */
2128
OP(dd,1c) { illegal_1(); op_1c();                             } /* DB   DD       */
2129
OP(dd,1d) { illegal_1(); op_1d();                             } /* DB   DD       */
2130
OP(dd,1e) { illegal_1(); op_1e();                             } /* DB   DD       */
2131
OP(dd,1f) { illegal_1(); op_1f();                             } /* DB   DD       */
2132

2133
OP(dd,20) { illegal_1(); op_20();                             } /* DB   DD       */
2134
OP(dd,21) { IX = ARG16();                                     } /* LD   IX,w     */
2135
OP(dd,22) { EA = ARG16(); WM16( EA, &Z80.ix ); WZ = EA+1;     } /* LD   (w),IX   */
2136
OP(dd,23) { IX++;                                             } /* INC  IX       */
2137
OP(dd,24) { HX = INC(HX);                                     } /* INC  HX       */
2138
OP(dd,25) { HX = DEC(HX);                                     } /* DEC  HX       */
2139
OP(dd,26) { HX = ARG();                                       } /* LD   HX,n     */
2140
OP(dd,27) { illegal_1(); op_27();                             } /* DB   DD       */
2141

2142
OP(dd,28) { illegal_1(); op_28();                             } /* DB   DD       */
2143
OP(dd,29) { ADD16(ix,ix);                                     } /* ADD  IX,IX    */
2144
OP(dd,2a) { EA = ARG16(); RM16( EA, &Z80.ix ); WZ = EA+1;     } /* LD   IX,(w)   */
2145
OP(dd,2b) { IX--;                                             } /* DEC  IX       */
2146
OP(dd,2c) { LX = INC(LX);                                     } /* INC  LX       */
2147
OP(dd,2d) { LX = DEC(LX);                                     } /* DEC  LX       */
2148
OP(dd,2e) { LX = ARG();                                       } /* LD   LX,n     */
2149
OP(dd,2f) { illegal_1(); op_2f();                             } /* DB   DD       */
2150

2151
OP(dd,30) { illegal_1(); op_30();                             } /* DB   DD       */
2152
OP(dd,31) { illegal_1(); op_31();                             } /* DB   DD       */
2153
OP(dd,32) { illegal_1(); op_32();                             } /* DB   DD       */
2154
OP(dd,33) { illegal_1(); op_33();                             } /* DB   DD       */
2155
OP(dd,34) { EAX; WM( EA, INC(RM(EA)) );                       } /* INC  (IX+o)   */
2156
OP(dd,35) { EAX; WM( EA, DEC(RM(EA)) );                       } /* DEC  (IX+o)   */
2157
OP(dd,36) { EAX; WM( EA, ARG() );                             } /* LD   (IX+o),n */
2158
OP(dd,37) { illegal_1(); op_37();                             } /* DB   DD       */
2159

2160
OP(dd,38) { illegal_1(); op_38();                             } /* DB   DD       */
2161
OP(dd,39) { ADD16(ix,sp);                                     } /* ADD  IX,SP    */
2162
OP(dd,3a) { illegal_1(); op_3a();                             } /* DB   DD       */
2163
OP(dd,3b) { illegal_1(); op_3b();                             } /* DB   DD       */
2164
OP(dd,3c) { illegal_1(); op_3c();                             } /* DB   DD       */
2165
OP(dd,3d) { illegal_1(); op_3d();                             } /* DB   DD       */
2166
OP(dd,3e) { illegal_1(); op_3e();                             } /* DB   DD       */
2167
OP(dd,3f) { illegal_1(); op_3f();                             } /* DB   DD       */
2168

2169
OP(dd,40) { illegal_1(); op_40();                             } /* DB   DD       */
2170
OP(dd,41) { illegal_1(); op_41();                             } /* DB   DD       */
2171
OP(dd,42) { illegal_1(); op_42();                             } /* DB   DD       */
2172
OP(dd,43) { illegal_1(); op_43();                             } /* DB   DD       */
2173
OP(dd,44) { B = HX;                                           } /* LD   B,HX     */
2174
OP(dd,45) { B = LX;                                           } /* LD   B,LX     */
2175
OP(dd,46) { EAX; B = RM(EA);                                  } /* LD   B,(IX+o) */
2176
OP(dd,47) { illegal_1(); op_47();                             } /* DB   DD       */
2177

2178
OP(dd,48) { illegal_1(); op_48();                             } /* DB   DD       */
2179
OP(dd,49) { illegal_1(); op_49();                             } /* DB   DD       */
2180
OP(dd,4a) { illegal_1(); op_4a();                             } /* DB   DD       */
2181
OP(dd,4b) { illegal_1(); op_4b();                             } /* DB   DD       */
2182
OP(dd,4c) { C = HX;                                           } /* LD   C,HX     */
2183
OP(dd,4d) { C = LX;                                           } /* LD   C,LX     */
2184
OP(dd,4e) { EAX; C = RM(EA);                                  } /* LD   C,(IX+o) */
2185
OP(dd,4f) { illegal_1(); op_4f();                             } /* DB   DD       */
2186

2187
OP(dd,50) { illegal_1(); op_50();                             } /* DB   DD       */
2188
OP(dd,51) { illegal_1(); op_51();                             } /* DB   DD       */
2189
OP(dd,52) { illegal_1(); op_52();                             } /* DB   DD       */
2190
OP(dd,53) { illegal_1(); op_53();                             } /* DB   DD       */
2191
OP(dd,54) { D = HX;                                           } /* LD   D,HX     */
2192
OP(dd,55) { D = LX;                                           } /* LD   D,LX     */
2193
OP(dd,56) { EAX; D = RM(EA);                                  } /* LD   D,(IX+o) */
2194
OP(dd,57) { illegal_1(); op_57();                             } /* DB   DD       */
2195

2196
OP(dd,58) { illegal_1(); op_58();                             } /* DB   DD       */
2197
OP(dd,59) { illegal_1(); op_59();                             } /* DB   DD       */
2198
OP(dd,5a) { illegal_1(); op_5a();                             } /* DB   DD       */
2199
OP(dd,5b) { illegal_1(); op_5b();                             } /* DB   DD       */
2200
OP(dd,5c) { E = HX;                                           } /* LD   E,HX     */
2201
OP(dd,5d) { E = LX;                                           } /* LD   E,LX     */
2202
OP(dd,5e) { EAX; E = RM(EA);                                  } /* LD   E,(IX+o) */
2203
OP(dd,5f) { illegal_1(); op_5f();                             } /* DB   DD       */
2204

2205
OP(dd,60) { HX = B;                                           } /* LD   HX,B     */
2206
OP(dd,61) { HX = C;                                           } /* LD   HX,C     */
2207
OP(dd,62) { HX = D;                                           } /* LD   HX,D     */
2208
OP(dd,63) { HX = E;                                           } /* LD   HX,E     */
2209
OP(dd,64) {                                                   } /* LD   HX,HX    */
2210
OP(dd,65) { HX = LX;                                          } /* LD   HX,LX    */
2211
OP(dd,66) { EAX; H = RM(EA);                                  } /* LD   H,(IX+o) */
2212
OP(dd,67) { HX = A;                                           } /* LD   HX,A     */
2213

2214
OP(dd,68) { LX = B;                                           } /* LD   LX,B     */
2215
OP(dd,69) { LX = C;                                           } /* LD   LX,C     */
2216
OP(dd,6a) { LX = D;                                           } /* LD   LX,D     */
2217
OP(dd,6b) { LX = E;                                           } /* LD   LX,E     */
2218
OP(dd,6c) { LX = HX;                                          } /* LD   LX,HX    */
2219
OP(dd,6d) {                                                   } /* LD   LX,LX    */
2220
OP(dd,6e) { EAX; L = RM(EA);                                  } /* LD   L,(IX+o) */
2221
OP(dd,6f) { LX = A;                                           } /* LD   LX,A     */
2222

2223
OP(dd,70) { EAX; WM( EA, B );                                 } /* LD   (IX+o),B */
2224
OP(dd,71) { EAX; WM( EA, C );                                 } /* LD   (IX+o),C */
2225
OP(dd,72) { EAX; WM( EA, D );                                 } /* LD   (IX+o),D */
2226
OP(dd,73) { EAX; WM( EA, E );                                 } /* LD   (IX+o),E */
2227
OP(dd,74) { EAX; WM( EA, H );                                 } /* LD   (IX+o),H */
2228
OP(dd,75) { EAX; WM( EA, L );                                 } /* LD   (IX+o),L */
2229
OP(dd,76) { illegal_1(); op_76();                             } /* DB   DD       */
2230
OP(dd,77) { EAX; WM( EA, A );                                 } /* LD   (IX+o),A */
2231

2232
OP(dd,78) { illegal_1(); op_78();                             } /* DB   DD       */
2233
OP(dd,79) { illegal_1(); op_79();                             } /* DB   DD       */
2234
OP(dd,7a) { illegal_1(); op_7a();                             } /* DB   DD       */
2235
OP(dd,7b) { illegal_1(); op_7b();                             } /* DB   DD       */
2236
OP(dd,7c) { A = HX;                                           } /* LD   A,HX     */
2237
OP(dd,7d) { A = LX;                                           } /* LD   A,LX     */
2238
OP(dd,7e) { EAX; A = RM(EA);                                  } /* LD   A,(IX+o) */
2239
OP(dd,7f) { illegal_1(); op_7f();                             } /* DB   DD       */
2240

2241
OP(dd,80) { illegal_1(); op_80();                             } /* DB   DD       */
2242
OP(dd,81) { illegal_1(); op_81();                             } /* DB   DD       */
2243
OP(dd,82) { illegal_1(); op_82();                             } /* DB   DD       */
2244
OP(dd,83) { illegal_1(); op_83();                             } /* DB   DD       */
2245
OP(dd,84) { ADD(HX);                                          } /* ADD  A,HX     */
2246
OP(dd,85) { ADD(LX);                                          } /* ADD  A,LX     */
2247
OP(dd,86) { EAX; ADD(RM(EA));                                 } /* ADD  A,(IX+o) */
2248
OP(dd,87) { illegal_1(); op_87();                             } /* DB   DD       */
2249

2250
OP(dd,88) { illegal_1(); op_88();                             } /* DB   DD       */
2251
OP(dd,89) { illegal_1(); op_89();                             } /* DB   DD       */
2252
OP(dd,8a) { illegal_1(); op_8a();                             } /* DB   DD       */
2253
OP(dd,8b) { illegal_1(); op_8b();                             } /* DB   DD       */
2254
OP(dd,8c) { ADC(HX);                                          } /* ADC  A,HX     */
2255
OP(dd,8d) { ADC(LX);                                          } /* ADC  A,LX     */
2256
OP(dd,8e) { EAX; ADC(RM(EA));                                 } /* ADC  A,(IX+o) */
2257
OP(dd,8f) { illegal_1(); op_8f();                             } /* DB   DD       */
2258

2259
OP(dd,90) { illegal_1(); op_90();                             } /* DB   DD       */
2260
OP(dd,91) { illegal_1(); op_91();                             } /* DB   DD       */
2261
OP(dd,92) { illegal_1(); op_92();                             } /* DB   DD       */
2262
OP(dd,93) { illegal_1(); op_93();                             } /* DB   DD       */
2263
OP(dd,94) { SUB(HX);                                          } /* SUB  HX       */
2264
OP(dd,95) { SUB(LX);                                          } /* SUB  LX       */
2265
OP(dd,96) { EAX; SUB(RM(EA));                                 } /* SUB  (IX+o)   */
2266
OP(dd,97) { illegal_1(); op_97();                             } /* DB   DD       */
2267

2268
OP(dd,98) { illegal_1(); op_98();                             } /* DB   DD       */
2269
OP(dd,99) { illegal_1(); op_99();                             } /* DB   DD       */
2270
OP(dd,9a) { illegal_1(); op_9a();                             } /* DB   DD       */
2271
OP(dd,9b) { illegal_1(); op_9b();                             } /* DB   DD       */
2272
OP(dd,9c) { SBC(HX);                                          } /* SBC  A,HX     */
2273
OP(dd,9d) { SBC(LX);                                          } /* SBC  A,LX     */
2274
OP(dd,9e) { EAX; SBC(RM(EA));                                 } /* SBC  A,(IX+o) */
2275
OP(dd,9f) { illegal_1(); op_9f();                             } /* DB   DD       */
2276

2277
OP(dd,a0) { illegal_1(); op_a0();                             } /* DB   DD       */
2278
OP(dd,a1) { illegal_1(); op_a1();                             } /* DB   DD       */
2279
OP(dd,a2) { illegal_1(); op_a2();                             } /* DB   DD       */
2280
OP(dd,a3) { illegal_1(); op_a3();                             } /* DB   DD       */
2281
OP(dd,a4) { AND(HX);                                          } /* AND  HX       */
2282
OP(dd,a5) { AND(LX);                                          } /* AND  LX       */
2283
OP(dd,a6) { EAX; AND(RM(EA));                                 } /* AND  (IX+o)   */
2284
OP(dd,a7) { illegal_1(); op_a7();                             } /* DB   DD       */
2285

2286
OP(dd,a8) { illegal_1(); op_a8();                             } /* DB   DD       */
2287
OP(dd,a9) { illegal_1(); op_a9();                             } /* DB   DD       */
2288
OP(dd,aa) { illegal_1(); op_aa();                             } /* DB   DD       */
2289
OP(dd,ab) { illegal_1(); op_ab();                             } /* DB   DD       */
2290
OP(dd,ac) { XOR(HX);                                          } /* XOR  HX       */
2291
OP(dd,ad) { XOR(LX);                                          } /* XOR  LX       */
2292
OP(dd,ae) { EAX; XOR(RM(EA));                                 } /* XOR  (IX+o)   */
2293
OP(dd,af) { illegal_1(); op_af();                             } /* DB   DD       */
2294

2295
OP(dd,b0) { illegal_1(); op_b0();                             } /* DB   DD       */
2296
OP(dd,b1) { illegal_1(); op_b1();                             } /* DB   DD       */
2297
OP(dd,b2) { illegal_1(); op_b2();                             } /* DB   DD       */
2298
OP(dd,b3) { illegal_1(); op_b3();                             } /* DB   DD       */
2299
OP(dd,b4) { OR(HX);                                           } /* OR   HX       */
2300
OP(dd,b5) { OR(LX);                                           } /* OR   LX       */
2301
OP(dd,b6) { EAX; OR(RM(EA));                                  } /* OR   (IX+o)   */
2302
OP(dd,b7) { illegal_1(); op_b7();                             } /* DB   DD       */
2303

2304
OP(dd,b8) { illegal_1(); op_b8();                             } /* DB   DD       */
2305
OP(dd,b9) { illegal_1(); op_b9();                             } /* DB   DD       */
2306
OP(dd,ba) { illegal_1(); op_ba();                             } /* DB   DD       */
2307
OP(dd,bb) { illegal_1(); op_bb();                             } /* DB   DD       */
2308
OP(dd,bc) { CP(HX);                                           } /* CP   HX       */
2309
OP(dd,bd) { CP(LX);                                           } /* CP   LX       */
2310
OP(dd,be) { EAX; CP(RM(EA));                                  } /* CP   (IX+o)   */
2311
OP(dd,bf) { illegal_1(); op_bf();                             } /* DB   DD       */
2312

2313
OP(dd,c0) { illegal_1(); op_c0();                             } /* DB   DD       */
2314
OP(dd,c1) { illegal_1(); op_c1();                             } /* DB   DD       */
2315
OP(dd,c2) { illegal_1(); op_c2();                             } /* DB   DD       */
2316
OP(dd,c3) { illegal_1(); op_c3();                             } /* DB   DD       */
2317
OP(dd,c4) { illegal_1(); op_c4();                             } /* DB   DD       */
2318
OP(dd,c5) { illegal_1(); op_c5();                             } /* DB   DD       */
2319
OP(dd,c6) { illegal_1(); op_c6();                             } /* DB   DD       */
2320
OP(dd,c7) { illegal_1(); op_c7();                             } /* DB   DD       */
2321

2322
OP(dd,c8) { illegal_1(); op_c8();                             } /* DB   DD       */
2323
OP(dd,c9) { illegal_1(); op_c9();                             } /* DB   DD       */
2324
OP(dd,ca) { illegal_1(); op_ca();                             } /* DB   DD       */
2325
OP(dd,cb) { EAX; EXEC(xycb,ARG());                            } /* **** DD CB xx */
2326
OP(dd,cc) { illegal_1(); op_cc();                             } /* DB   DD       */
2327
OP(dd,cd) { illegal_1(); op_cd();                             } /* DB   DD       */
2328
OP(dd,ce) { illegal_1(); op_ce();                             } /* DB   DD       */
2329
OP(dd,cf) { illegal_1(); op_cf();                             } /* DB   DD       */
2330

2331
OP(dd,d0) { illegal_1(); op_d0();                             } /* DB   DD       */
2332
OP(dd,d1) { illegal_1(); op_d1();                             } /* DB   DD       */
2333
OP(dd,d2) { illegal_1(); op_d2();                             } /* DB   DD       */
2334
OP(dd,d3) { illegal_1(); op_d3();                             } /* DB   DD       */
2335
OP(dd,d4) { illegal_1(); op_d4();                             } /* DB   DD       */
2336
OP(dd,d5) { illegal_1(); op_d5();                             } /* DB   DD       */
2337
OP(dd,d6) { illegal_1(); op_d6();                             } /* DB   DD       */
2338
OP(dd,d7) { illegal_1(); op_d7();                             } /* DB   DD       */
2339

2340
OP(dd,d8) { illegal_1(); op_d8();                             } /* DB   DD       */
2341
OP(dd,d9) { illegal_1(); op_d9();                             } /* DB   DD       */
2342
OP(dd,da) { illegal_1(); op_da();                             } /* DB   DD       */
2343
OP(dd,db) { illegal_1(); op_db();                             } /* DB   DD       */
2344
OP(dd,dc) { illegal_1(); op_dc();                             } /* DB   DD       */
2345
OP(dd,dd) { EXEC(dd,ROP());                                   } /* **** DD DD xx */
2346
OP(dd,de) { illegal_1(); op_de();                             } /* DB   DD       */
2347
OP(dd,df) { illegal_1(); op_df();                             } /* DB   DD       */
2348

2349
OP(dd,e0) { illegal_1(); op_e0();                             } /* DB   DD       */
2350
OP(dd,e1) { POP( ix );                                        } /* POP  IX       */
2351
OP(dd,e2) { illegal_1(); op_e2();                             } /* DB   DD       */
2352
OP(dd,e3) { EXSP( ix );                                       } /* EX   (SP),IX  */
2353
OP(dd,e4) { illegal_1(); op_e4();                             } /* DB   DD       */
2354
OP(dd,e5) { PUSH( ix );                                       } /* PUSH IX       */
2355
OP(dd,e6) { illegal_1(); op_e6();                             } /* DB   DD       */
2356
OP(dd,e7) { illegal_1(); op_e7();                             } /* DB   DD       */
2357

2358
OP(dd,e8) { illegal_1(); op_e8();                             } /* DB   DD       */
2359
OP(dd,e9) { PC = IX;                                          } /* JP   (IX)     */
2360
OP(dd,ea) { illegal_1(); op_ea();                             } /* DB   DD       */
2361
OP(dd,eb) { illegal_1(); op_eb();                             } /* DB   DD       */
2362
OP(dd,ec) { illegal_1(); op_ec();                             } /* DB   DD       */
2363
OP(dd,ed) { illegal_1(); op_ed();                             } /* DB   DD       */
2364
OP(dd,ee) { illegal_1(); op_ee();                             } /* DB   DD       */
2365
OP(dd,ef) { illegal_1(); op_ef();                             } /* DB   DD       */
2366

2367
OP(dd,f0) { illegal_1(); op_f0();                             } /* DB   DD       */
2368
OP(dd,f1) { illegal_1(); op_f1();                             } /* DB   DD       */
2369
OP(dd,f2) { illegal_1(); op_f2();                             } /* DB   DD       */
2370
OP(dd,f3) { illegal_1(); op_f3();                             } /* DB   DD       */
2371
OP(dd,f4) { illegal_1(); op_f4();                             } /* DB   DD       */
2372
OP(dd,f5) { illegal_1(); op_f5();                             } /* DB   DD       */
2373
OP(dd,f6) { illegal_1(); op_f6();                             } /* DB   DD       */
2374
OP(dd,f7) { illegal_1(); op_f7();                             } /* DB   DD       */
2375

2376
OP(dd,f8) { illegal_1(); op_f8();                             } /* DB   DD       */
2377
OP(dd,f9) { SP = IX;                                          } /* LD   SP,IX    */
2378
OP(dd,fa) { illegal_1(); op_fa();                             } /* DB   DD       */
2379
OP(dd,fb) { illegal_1(); op_fb();                             } /* DB   DD       */
2380
OP(dd,fc) { illegal_1(); op_fc();                             } /* DB   DD       */
2381
OP(dd,fd) { EXEC(fd,ROP());                                   } /* **** DD FD xx */
2382
OP(dd,fe) { illegal_1(); op_fe();                             } /* DB   DD       */
2383
OP(dd,ff) { illegal_1(); op_ff();                             } /* DB   DD       */
2384

2385
/**********************************************************
2386
 * IY register related opcodes (FD prefix)
2387
 **********************************************************/
2388
OP(fd,00) { illegal_1(); op_00();                             } /* DB   FD       */
2389
OP(fd,01) { illegal_1(); op_01();                             } /* DB   FD       */
2390
OP(fd,02) { illegal_1(); op_02();                             } /* DB   FD       */
2391
OP(fd,03) { illegal_1(); op_03();                             } /* DB   FD       */
2392
OP(fd,04) { illegal_1(); op_04();                             } /* DB   FD       */
2393
OP(fd,05) { illegal_1(); op_05();                             } /* DB   FD       */
2394
OP(fd,06) { illegal_1(); op_06();                             } /* DB   FD       */
2395
OP(fd,07) { illegal_1(); op_07();                             } /* DB   FD       */
2396

2397
OP(fd,08) { illegal_1(); op_08();                             } /* DB   FD       */
2398
OP(fd,09) { ADD16(iy,bc);                                     } /* ADD  IY,BC    */
2399
OP(fd,0a) { illegal_1(); op_0a();                             } /* DB   FD       */
2400
OP(fd,0b) { illegal_1(); op_0b();                             } /* DB   FD       */
2401
OP(fd,0c) { illegal_1(); op_0c();                             } /* DB   FD       */
2402
OP(fd,0d) { illegal_1(); op_0d();                             } /* DB   FD       */
2403
OP(fd,0e) { illegal_1(); op_0e();                             } /* DB   FD       */
2404
OP(fd,0f) { illegal_1(); op_0f();                             } /* DB   FD       */
2405

2406
OP(fd,10) { illegal_1(); op_10();                             } /* DB   FD       */
2407
OP(fd,11) { illegal_1(); op_11();                             } /* DB   FD       */
2408
OP(fd,12) { illegal_1(); op_12();                             } /* DB   FD       */
2409
OP(fd,13) { illegal_1(); op_13();                             } /* DB   FD       */
2410
OP(fd,14) { illegal_1(); op_14();                             } /* DB   FD       */
2411
OP(fd,15) { illegal_1(); op_15();                             } /* DB   FD       */
2412
OP(fd,16) { illegal_1(); op_16();                             } /* DB   FD       */
2413
OP(fd,17) { illegal_1(); op_17();                             } /* DB   FD       */
2414

2415
OP(fd,18) { illegal_1(); op_18();                             } /* DB   FD       */
2416
OP(fd,19) { ADD16(iy,de);                                     } /* ADD  IY,DE    */
2417
OP(fd,1a) { illegal_1(); op_1a();                             } /* DB   FD       */
2418
OP(fd,1b) { illegal_1(); op_1b();                             } /* DB   FD       */
2419
OP(fd,1c) { illegal_1(); op_1c();                             } /* DB   FD       */
2420
OP(fd,1d) { illegal_1(); op_1d();                             } /* DB   FD       */
2421
OP(fd,1e) { illegal_1(); op_1e();                             } /* DB   FD       */
2422
OP(fd,1f) { illegal_1(); op_1f();                             } /* DB   FD       */
2423

2424
OP(fd,20) { illegal_1(); op_20();                             } /* DB   FD       */
2425
OP(fd,21) { IY = ARG16();                                     } /* LD   IY,w     */
2426
OP(fd,22) { EA = ARG16(); WM16( EA, &Z80.iy ); WZ = EA+1;     } /* LD   (w),IY   */
2427
OP(fd,23) { IY++;                                             } /* INC  IY       */
2428
OP(fd,24) { HY = INC(HY);                                     } /* INC  HY       */
2429
OP(fd,25) { HY = DEC(HY);                                     } /* DEC  HY       */
2430
OP(fd,26) { HY = ARG();                                       } /* LD   HY,n     */
2431
OP(fd,27) { illegal_1(); op_27();                             } /* DB   FD       */
2432

2433
OP(fd,28) { illegal_1(); op_28();                             } /* DB   FD       */
2434
OP(fd,29) { ADD16(iy,iy);                                     } /* ADD  IY,IY    */
2435
OP(fd,2a) { EA = ARG16(); RM16( EA, &Z80.iy ); WZ = EA+1;     } /* LD   IY,(w)   */
2436
OP(fd,2b) { IY--;                                             } /* DEC  IY       */
2437
OP(fd,2c) { LY = INC(LY);                                     } /* INC  LY       */
2438
OP(fd,2d) { LY = DEC(LY);                                     } /* DEC  LY       */
2439
OP(fd,2e) { LY = ARG();                                       } /* LD   LY,n     */
2440
OP(fd,2f) { illegal_1(); op_2f();                             } /* DB   FD       */
2441

2442
OP(fd,30) { illegal_1(); op_30();                             } /* DB   FD       */
2443
OP(fd,31) { illegal_1(); op_31();                             } /* DB   FD       */
2444
OP(fd,32) { illegal_1(); op_32();                             } /* DB   FD       */
2445
OP(fd,33) { illegal_1(); op_33();                             } /* DB   FD       */
2446
OP(fd,34) { EAY; WM( EA, INC(RM(EA)) );                       } /* INC  (IY+o)   */
2447
OP(fd,35) { EAY; WM( EA, DEC(RM(EA)) );                       } /* DEC  (IY+o)   */
2448
OP(fd,36) { EAY; WM( EA, ARG() );                             } /* LD   (IY+o),n */
2449
OP(fd,37) { illegal_1(); op_37();                             } /* DB   FD       */
2450

2451
OP(fd,38) { illegal_1(); op_38();                             } /* DB   FD       */
2452
OP(fd,39) { ADD16(iy,sp);                                     } /* ADD  IY,SP    */
2453
OP(fd,3a) { illegal_1(); op_3a();                             } /* DB   FD       */
2454
OP(fd,3b) { illegal_1(); op_3b();                             } /* DB   FD       */
2455
OP(fd,3c) { illegal_1(); op_3c();                             } /* DB   FD       */
2456
OP(fd,3d) { illegal_1(); op_3d();                             } /* DB   FD       */
2457
OP(fd,3e) { illegal_1(); op_3e();                             } /* DB   FD       */
2458
OP(fd,3f) { illegal_1(); op_3f();                             } /* DB   FD       */
2459

2460
OP(fd,40) { illegal_1(); op_40();                             } /* DB   FD       */
2461
OP(fd,41) { illegal_1(); op_41();                             } /* DB   FD       */
2462
OP(fd,42) { illegal_1(); op_42();                             } /* DB   FD       */
2463
OP(fd,43) { illegal_1(); op_43();                             } /* DB   FD       */
2464
OP(fd,44) { B = HY;                                           } /* LD   B,HY     */
2465
OP(fd,45) { B = LY;                                           } /* LD   B,LY     */
2466
OP(fd,46) { EAY; B = RM(EA);                                  } /* LD   B,(IY+o) */
2467
OP(fd,47) { illegal_1(); op_47();                             } /* DB   FD       */
2468

2469
OP(fd,48) { illegal_1(); op_48();                             } /* DB   FD       */
2470
OP(fd,49) { illegal_1(); op_49();                             } /* DB   FD       */
2471
OP(fd,4a) { illegal_1(); op_4a();                             } /* DB   FD       */
2472
OP(fd,4b) { illegal_1(); op_4b();                             } /* DB   FD       */
2473
OP(fd,4c) { C = HY;                                           } /* LD   C,HY     */
2474
OP(fd,4d) { C = LY;                                           } /* LD   C,LY     */
2475
OP(fd,4e) { EAY; C = RM(EA);                                  } /* LD   C,(IY+o) */
2476
OP(fd,4f) { illegal_1(); op_4f();                             } /* DB   FD       */
2477

2478
OP(fd,50) { illegal_1(); op_50();                             } /* DB   FD       */
2479
OP(fd,51) { illegal_1(); op_51();                             } /* DB   FD       */
2480
OP(fd,52) { illegal_1(); op_52();                             } /* DB   FD       */
2481
OP(fd,53) { illegal_1(); op_53();                             } /* DB   FD       */
2482
OP(fd,54) { D = HY;                                           } /* LD   D,HY     */
2483
OP(fd,55) { D = LY;                                           } /* LD   D,LY     */
2484
OP(fd,56) { EAY; D = RM(EA);                                  } /* LD   D,(IY+o) */
2485
OP(fd,57) { illegal_1(); op_57();                             } /* DB   FD       */
2486

2487
OP(fd,58) { illegal_1(); op_58();                             } /* DB   FD       */
2488
OP(fd,59) { illegal_1(); op_59();                             } /* DB   FD       */
2489
OP(fd,5a) { illegal_1(); op_5a();                             } /* DB   FD       */
2490
OP(fd,5b) { illegal_1(); op_5b();                             } /* DB   FD       */
2491
OP(fd,5c) { E = HY;                                           } /* LD   E,HY     */
2492
OP(fd,5d) { E = LY;                                           } /* LD   E,LY     */
2493
OP(fd,5e) { EAY; E = RM(EA);                                  } /* LD   E,(IY+o) */
2494
OP(fd,5f) { illegal_1(); op_5f();                             } /* DB   FD       */
2495

2496
OP(fd,60) { HY = B;                                           } /* LD   HY,B     */
2497
OP(fd,61) { HY = C;                                           } /* LD   HY,C     */
2498
OP(fd,62) { HY = D;                                           } /* LD   HY,D     */
2499
OP(fd,63) { HY = E;                                           } /* LD   HY,E     */
2500
OP(fd,64) {                                                   } /* LD   HY,HY    */
2501
OP(fd,65) { HY = LY;                                          } /* LD   HY,LY    */
2502
OP(fd,66) { EAY; H = RM(EA);                                  } /* LD   H,(IY+o) */
2503
OP(fd,67) { HY = A;                                           } /* LD   HY,A     */
2504

2505
OP(fd,68) { LY = B;                                           } /* LD   LY,B     */
2506
OP(fd,69) { LY = C;                                           } /* LD   LY,C     */
2507
OP(fd,6a) { LY = D;                                           } /* LD   LY,D     */
2508
OP(fd,6b) { LY = E;                                           } /* LD   LY,E     */
2509
OP(fd,6c) { LY = HY;                                          } /* LD   LY,HY    */
2510
OP(fd,6d) {                                                   } /* LD   LY,LY    */
2511
OP(fd,6e) { EAY; L = RM(EA);                                  } /* LD   L,(IY+o) */
2512
OP(fd,6f) { LY = A;                                           } /* LD   LY,A     */
2513

2514
OP(fd,70) { EAY; WM( EA, B );                                 } /* LD   (IY+o),B */
2515
OP(fd,71) { EAY; WM( EA, C );                                 } /* LD   (IY+o),C */
2516
OP(fd,72) { EAY; WM( EA, D );                                 } /* LD   (IY+o),D */
2517
OP(fd,73) { EAY; WM( EA, E );                                 } /* LD   (IY+o),E */
2518
OP(fd,74) { EAY; WM( EA, H );                                 } /* LD   (IY+o),H */
2519
OP(fd,75) { EAY; WM( EA, L );                                 } /* LD   (IY+o),L */
2520
OP(fd,76) { illegal_1(); op_76();                             } /* DB   FD       */
2521
OP(fd,77) { EAY; WM( EA, A );                                 } /* LD   (IY+o),A */
2522

2523
OP(fd,78) { illegal_1(); op_78();                             } /* DB   FD       */
2524
OP(fd,79) { illegal_1(); op_79();                             } /* DB   FD       */
2525
OP(fd,7a) { illegal_1(); op_7a();                             } /* DB   FD       */
2526
OP(fd,7b) { illegal_1(); op_7b();                             } /* DB   FD       */
2527
OP(fd,7c) { A = HY;                                           } /* LD   A,HY     */
2528
OP(fd,7d) { A = LY;                                           } /* LD   A,LY     */
2529
OP(fd,7e) { EAY; A = RM(EA);                                  } /* LD   A,(IY+o) */
2530
OP(fd,7f) { illegal_1(); op_7f();                             } /* DB   FD       */
2531

2532
OP(fd,80) { illegal_1(); op_80();                             } /* DB   FD       */
2533
OP(fd,81) { illegal_1(); op_81();                             } /* DB   FD       */
2534
OP(fd,82) { illegal_1(); op_82();                             } /* DB   FD       */
2535
OP(fd,83) { illegal_1(); op_83();                             } /* DB   FD       */
2536
OP(fd,84) { ADD(HY);                                          } /* ADD  A,HY     */
2537
OP(fd,85) { ADD(LY);                                          } /* ADD  A,LY     */
2538
OP(fd,86) { EAY; ADD(RM(EA));                                 } /* ADD  A,(IY+o) */
2539
OP(fd,87) { illegal_1(); op_87();                             } /* DB   FD       */
2540

2541
OP(fd,88) { illegal_1(); op_88();                             } /* DB   FD       */
2542
OP(fd,89) { illegal_1(); op_89();                             } /* DB   FD       */
2543
OP(fd,8a) { illegal_1(); op_8a();                             } /* DB   FD       */
2544
OP(fd,8b) { illegal_1(); op_8b();                             } /* DB   FD       */
2545
OP(fd,8c) { ADC(HY);                                          } /* ADC  A,HY     */
2546
OP(fd,8d) { ADC(LY);                                          } /* ADC  A,LY     */
2547
OP(fd,8e) { EAY; ADC(RM(EA));                                 } /* ADC  A,(IY+o) */
2548
OP(fd,8f) { illegal_1(); op_8f();                             } /* DB   FD       */
2549

2550
OP(fd,90) { illegal_1(); op_90();                             } /* DB   FD       */
2551
OP(fd,91) { illegal_1(); op_91();                             } /* DB   FD       */
2552
OP(fd,92) { illegal_1(); op_92();                             } /* DB   FD       */
2553
OP(fd,93) { illegal_1(); op_93();                             } /* DB   FD       */
2554
OP(fd,94) { SUB(HY);                                          } /* SUB  HY       */
2555
OP(fd,95) { SUB(LY);                                          } /* SUB  LY       */
2556
OP(fd,96) { EAY; SUB(RM(EA));                                 } /* SUB  (IY+o)   */
2557
OP(fd,97) { illegal_1(); op_97();                             } /* DB   FD       */
2558

2559
OP(fd,98) { illegal_1(); op_98();                             } /* DB   FD       */
2560
OP(fd,99) { illegal_1(); op_99();                             } /* DB   FD       */
2561
OP(fd,9a) { illegal_1(); op_9a();                             } /* DB   FD       */
2562
OP(fd,9b) { illegal_1(); op_9b();                             } /* DB   FD       */
2563
OP(fd,9c) { SBC(HY);                                          } /* SBC  A,HY     */
2564
OP(fd,9d) { SBC(LY);                                          } /* SBC  A,LY     */
2565
OP(fd,9e) { EAY; SBC(RM(EA));                                 } /* SBC  A,(IY+o) */
2566
OP(fd,9f) { illegal_1(); op_9f();                             } /* DB   FD       */
2567

2568
OP(fd,a0) { illegal_1(); op_a0();                             } /* DB   FD       */
2569
OP(fd,a1) { illegal_1(); op_a1();                             } /* DB   FD       */
2570
OP(fd,a2) { illegal_1(); op_a2();                             } /* DB   FD       */
2571
OP(fd,a3) { illegal_1(); op_a3();                             } /* DB   FD       */
2572
OP(fd,a4) { AND(HY);                                          } /* AND  HY       */
2573
OP(fd,a5) { AND(LY);                                          } /* AND  LY       */
2574
OP(fd,a6) { EAY; AND(RM(EA));                                 } /* AND  (IY+o)   */
2575
OP(fd,a7) { illegal_1(); op_a7();                             } /* DB   FD       */
2576

2577
OP(fd,a8) { illegal_1(); op_a8();                             } /* DB   FD       */
2578
OP(fd,a9) { illegal_1(); op_a9();                             } /* DB   FD       */
2579
OP(fd,aa) { illegal_1(); op_aa();                             } /* DB   FD       */
2580
OP(fd,ab) { illegal_1(); op_ab();                             } /* DB   FD       */
2581
OP(fd,ac) { XOR(HY);                                          } /* XOR  HY       */
2582
OP(fd,ad) { XOR(LY);                                          } /* XOR  LY       */
2583
OP(fd,ae) { EAY; XOR(RM(EA));                                 } /* XOR  (IY+o)   */
2584
OP(fd,af) { illegal_1(); op_af();                             } /* DB   FD       */
2585

2586
OP(fd,b0) { illegal_1(); op_b0();                             } /* DB   FD       */
2587
OP(fd,b1) { illegal_1(); op_b1();                             } /* DB   FD       */
2588
OP(fd,b2) { illegal_1(); op_b2();                             } /* DB   FD       */
2589
OP(fd,b3) { illegal_1(); op_b3();                             } /* DB   FD       */
2590
OP(fd,b4) { OR(HY);                                           } /* OR   HY       */
2591
OP(fd,b5) { OR(LY);                                           } /* OR   LY       */
2592
OP(fd,b6) { EAY; OR(RM(EA));                                  } /* OR   (IY+o)   */
2593
OP(fd,b7) { illegal_1(); op_b7();                             } /* DB   FD       */
2594

2595
OP(fd,b8) { illegal_1(); op_b8();                             } /* DB   FD       */
2596
OP(fd,b9) { illegal_1(); op_b9();                             } /* DB   FD       */
2597
OP(fd,ba) { illegal_1(); op_ba();                             } /* DB   FD       */
2598
OP(fd,bb) { illegal_1(); op_bb();                             } /* DB   FD       */
2599
OP(fd,bc) { CP(HY);                                           } /* CP   HY       */
2600
OP(fd,bd) { CP(LY);                                           } /* CP   LY       */
2601
OP(fd,be) { EAY; CP(RM(EA));                                  } /* CP   (IY+o)   */
2602
OP(fd,bf) { illegal_1(); op_bf();                             } /* DB   FD       */
2603

2604
OP(fd,c0) { illegal_1(); op_c0();                             } /* DB   FD       */
2605
OP(fd,c1) { illegal_1(); op_c1();                             } /* DB   FD       */
2606
OP(fd,c2) { illegal_1(); op_c2();                             } /* DB   FD       */
2607
OP(fd,c3) { illegal_1(); op_c3();                             } /* DB   FD       */
2608
OP(fd,c4) { illegal_1(); op_c4();                             } /* DB   FD       */
2609
OP(fd,c5) { illegal_1(); op_c5();                             } /* DB   FD       */
2610
OP(fd,c6) { illegal_1(); op_c6();                             } /* DB   FD       */
2611
OP(fd,c7) { illegal_1(); op_c7();                             } /* DB   FD       */
2612

2613
OP(fd,c8) { illegal_1(); op_c8();                             } /* DB   FD       */
2614
OP(fd,c9) { illegal_1(); op_c9();                             } /* DB   FD       */
2615
OP(fd,ca) { illegal_1(); op_ca();                             } /* DB   FD       */
2616
OP(fd,cb) { EAY; EXEC(xycb,ARG());                            } /* **** FD CB xx */
2617
OP(fd,cc) { illegal_1(); op_cc();                             } /* DB   FD       */
2618
OP(fd,cd) { illegal_1(); op_cd();                             } /* DB   FD       */
2619
OP(fd,ce) { illegal_1(); op_ce();                             } /* DB   FD       */
2620
OP(fd,cf) { illegal_1(); op_cf();                             } /* DB   FD       */
2621

2622
OP(fd,d0) { illegal_1(); op_d0();                             } /* DB   FD       */
2623
OP(fd,d1) { illegal_1(); op_d1();                             } /* DB   FD       */
2624
OP(fd,d2) { illegal_1(); op_d2();                             } /* DB   FD       */
2625
OP(fd,d3) { illegal_1(); op_d3();                             } /* DB   FD       */
2626
OP(fd,d4) { illegal_1(); op_d4();                             } /* DB   FD       */
2627
OP(fd,d5) { illegal_1(); op_d5();                             } /* DB   FD       */
2628
OP(fd,d6) { illegal_1(); op_d6();                             } /* DB   FD       */
2629
OP(fd,d7) { illegal_1(); op_d7();                             } /* DB   FD       */
2630

2631
OP(fd,d8) { illegal_1(); op_d8();                             } /* DB   FD       */
2632
OP(fd,d9) { illegal_1(); op_d9();                             } /* DB   FD       */
2633
OP(fd,da) { illegal_1(); op_da();                             } /* DB   FD       */
2634
OP(fd,db) { illegal_1(); op_db();                             } /* DB   FD       */
2635
OP(fd,dc) { illegal_1(); op_dc();                             } /* DB   FD       */
2636
OP(fd,dd) { EXEC(dd,ROP());                                   } /* **** FD DD xx */
2637
OP(fd,de) { illegal_1(); op_de();                             } /* DB   FD       */
2638
OP(fd,df) { illegal_1(); op_df();                             } /* DB   FD       */
2639

2640
OP(fd,e0) { illegal_1(); op_e0();                             } /* DB   FD       */
2641
OP(fd,e1) { POP( iy );                                        } /* POP  IY       */
2642
OP(fd,e2) { illegal_1(); op_e2();                             } /* DB   FD       */
2643
OP(fd,e3) { EXSP( iy );                                       } /* EX   (SP),IY  */
2644
OP(fd,e4) { illegal_1(); op_e4();                             } /* DB   FD       */
2645
OP(fd,e5) { PUSH( iy );                                       } /* PUSH IY       */
2646
OP(fd,e6) { illegal_1(); op_e6();                             } /* DB   FD       */
2647
OP(fd,e7) { illegal_1(); op_e7();                             } /* DB   FD       */
2648

2649
OP(fd,e8) { illegal_1(); op_e8();                             } /* DB   FD       */
2650
OP(fd,e9) { PC = IY;                                          } /* JP   (IY)     */
2651
OP(fd,ea) { illegal_1(); op_ea();                             } /* DB   FD       */
2652
OP(fd,eb) { illegal_1(); op_eb();                             } /* DB   FD       */
2653
OP(fd,ec) { illegal_1(); op_ec();                             } /* DB   FD       */
2654
OP(fd,ed) { illegal_1(); op_ed();                             } /* DB   FD       */
2655
OP(fd,ee) { illegal_1(); op_ee();                             } /* DB   FD       */
2656
OP(fd,ef) { illegal_1(); op_ef();                             } /* DB   FD       */
2657

2658
OP(fd,f0) { illegal_1(); op_f0();                             } /* DB   FD       */
2659
OP(fd,f1) { illegal_1(); op_f1();                             } /* DB   FD       */
2660
OP(fd,f2) { illegal_1(); op_f2();                             } /* DB   FD       */
2661
OP(fd,f3) { illegal_1(); op_f3();                             } /* DB   FD       */
2662
OP(fd,f4) { illegal_1(); op_f4();                             } /* DB   FD       */
2663
OP(fd,f5) { illegal_1(); op_f5();                             } /* DB   FD       */
2664
OP(fd,f6) { illegal_1(); op_f6();                             } /* DB   FD       */
2665
OP(fd,f7) { illegal_1(); op_f7();                             } /* DB   FD       */
2666

2667
OP(fd,f8) { illegal_1(); op_f8();                             } /* DB   FD       */
2668
OP(fd,f9) { SP = IY;                                          } /* LD   SP,IY    */
2669
OP(fd,fa) { illegal_1(); op_fa();                             } /* DB   FD       */
2670
OP(fd,fb) { illegal_1(); op_fb();                             } /* DB   FD       */
2671
OP(fd,fc) { illegal_1(); op_fc();                             } /* DB   FD       */
2672
OP(fd,fd) { EXEC(fd,ROP());                                   } /* **** FD FD xx */
2673
OP(fd,fe) { illegal_1(); op_fe();                             } /* DB   FD       */
2674
OP(fd,ff) { illegal_1(); op_ff();                             } /* DB   FD       */
2675

2676
OP(illegal,2)
2677
{
2678
#if VERBOSE
2679
logerror("Z80 #%d ill. opcode $ed $%02x\n",
2680
      cpu_getactivecpu(), cpu_readop((PCD-1)&0xffff));
2681
#endif
2682
}
2683

2684
/**********************************************************
2685
 * special opcodes (ED prefix)
2686
 **********************************************************/
2687
OP(ed,00) { illegal_2();                                      } /* DB   ED      */
2688
OP(ed,01) { illegal_2();                                      } /* DB   ED      */
2689
OP(ed,02) { illegal_2();                                      } /* DB   ED      */
2690
OP(ed,03) { illegal_2();                                      } /* DB   ED      */
2691
OP(ed,04) { illegal_2();                                      } /* DB   ED      */
2692
OP(ed,05) { illegal_2();                                      } /* DB   ED      */
2693
OP(ed,06) { illegal_2();                                      } /* DB   ED      */
2694
OP(ed,07) { illegal_2();                                      } /* DB   ED      */
2695

2696
OP(ed,08) { illegal_2();                                      } /* DB   ED      */
2697
OP(ed,09) { illegal_2();                                      } /* DB   ED      */
2698
OP(ed,0a) { illegal_2();                                      } /* DB   ED      */
2699
OP(ed,0b) { illegal_2();                                      } /* DB   ED      */
2700
OP(ed,0c) { illegal_2();                                      } /* DB   ED      */
2701
OP(ed,0d) { illegal_2();                                      } /* DB   ED      */
2702
OP(ed,0e) { illegal_2();                                      } /* DB   ED      */
2703
OP(ed,0f) { illegal_2();                                      } /* DB   ED      */
2704

2705
OP(ed,10) { illegal_2();                                      } /* DB   ED      */
2706
OP(ed,11) { illegal_2();                                      } /* DB   ED      */
2707
OP(ed,12) { illegal_2();                                      } /* DB   ED      */
2708
OP(ed,13) { illegal_2();                                      } /* DB   ED      */
2709
OP(ed,14) { illegal_2();                                      } /* DB   ED      */
2710
OP(ed,15) { illegal_2();                                      } /* DB   ED      */
2711
OP(ed,16) { illegal_2();                                      } /* DB   ED      */
2712
OP(ed,17) { illegal_2();                                      } /* DB   ED      */
2713

2714
OP(ed,18) { illegal_2();                                      } /* DB   ED      */
2715
OP(ed,19) { illegal_2();                                      } /* DB   ED      */
2716
OP(ed,1a) { illegal_2();                                      } /* DB   ED      */
2717
OP(ed,1b) { illegal_2();                                      } /* DB   ED      */
2718
OP(ed,1c) { illegal_2();                                      } /* DB   ED      */
2719
OP(ed,1d) { illegal_2();                                      } /* DB   ED      */
2720
OP(ed,1e) { illegal_2();                                      } /* DB   ED      */
2721
OP(ed,1f) { illegal_2();                                      } /* DB   ED      */
2722

2723
OP(ed,20) { illegal_2();                                      } /* DB   ED      */
2724
OP(ed,21) { illegal_2();                                      } /* DB   ED      */
2725
OP(ed,22) { illegal_2();                                      } /* DB   ED      */
2726
OP(ed,23) { illegal_2();                                      } /* DB   ED      */
2727
OP(ed,24) { illegal_2();                                      } /* DB   ED      */
2728
OP(ed,25) { illegal_2();                                      } /* DB   ED      */
2729
OP(ed,26) { illegal_2();                                      } /* DB   ED      */
2730
OP(ed,27) { illegal_2();                                      } /* DB   ED      */
2731

2732
OP(ed,28) { illegal_2();                                      } /* DB   ED      */
2733
OP(ed,29) { illegal_2();                                      } /* DB   ED      */
2734
OP(ed,2a) { illegal_2();                                      } /* DB   ED      */
2735
OP(ed,2b) { illegal_2();                                      } /* DB   ED      */
2736
OP(ed,2c) { illegal_2();                                      } /* DB   ED      */
2737
OP(ed,2d) { illegal_2();                                      } /* DB   ED      */
2738
OP(ed,2e) { illegal_2();                                      } /* DB   ED      */
2739
OP(ed,2f) { illegal_2();                                      } /* DB   ED      */
2740

2741
OP(ed,30) { illegal_2();                                      } /* DB   ED      */
2742
OP(ed,31) { illegal_2();                                      } /* DB   ED      */
2743
OP(ed,32) { illegal_2();                                      } /* DB   ED      */
2744
OP(ed,33) { illegal_2();                                      } /* DB   ED      */
2745
OP(ed,34) { illegal_2();                                      } /* DB   ED      */
2746
OP(ed,35) { illegal_2();                                      } /* DB   ED      */
2747
OP(ed,36) { illegal_2();                                      } /* DB   ED      */
2748
OP(ed,37) { illegal_2();                                      } /* DB   ED      */
2749

2750
OP(ed,38) { illegal_2();                                      } /* DB   ED      */
2751
OP(ed,39) { illegal_2();                                      } /* DB   ED      */
2752
OP(ed,3a) { illegal_2();                                      } /* DB   ED      */
2753
OP(ed,3b) { illegal_2();                                      } /* DB   ED      */
2754
OP(ed,3c) { illegal_2();                                      } /* DB   ED      */
2755
OP(ed,3d) { illegal_2();                                      } /* DB   ED      */
2756
OP(ed,3e) { illegal_2();                                      } /* DB   ED      */
2757
OP(ed,3f) { illegal_2();                                      } /* DB   ED      */
2758

2759
OP(ed,40) { B = IN(BC); F = (F & CF) | SZP[B];                } /* IN   B,(C)   */
2760
OP(ed,41) { OUT(BC, B);                                       } /* OUT  (C),B   */
2761
OP(ed,42) { SBC16( bc );                                      } /* SBC  HL,BC   */
2762
OP(ed,43) { EA = ARG16(); WM16( EA, &Z80.bc ); WZ = EA+1;     } /* LD   (w),BC  */
2763
OP(ed,44) { NEG;                                              } /* NEG          */
2764
OP(ed,45) { RETN;                                             } /* RETN;        */
2765
OP(ed,46) { IM = 0;                                           } /* IM   0       */
2766
OP(ed,47) { LD_I_A;                                           } /* LD   I,A     */
2767

2768
OP(ed,48) { C = IN(BC); F = (F & CF) | SZP[C];                } /* IN   C,(C)   */
2769
OP(ed,49) { OUT(BC, C);                                       } /* OUT  (C),C   */
2770
OP(ed,4a) { ADC16( bc );                                      } /* ADC  HL,BC   */
2771
OP(ed,4b) { EA = ARG16(); RM16( EA, &Z80.bc ); WZ = EA+1;     } /* LD   BC,(w)  */
2772
OP(ed,4c) { NEG;                                              } /* NEG          */
2773
OP(ed,4d) { RETI;                                             } /* RETI         */
2774
OP(ed,4e) { IM = 0;                                           } /* IM   0       */
2775
OP(ed,4f) { LD_R_A;                                           } /* LD   R,A     */
2776

2777
OP(ed,50) { D = IN(BC); F = (F & CF) | SZP[D];                } /* IN   D,(C)   */
2778
OP(ed,51) { OUT(BC, D);                                       } /* OUT  (C),D   */
2779
OP(ed,52) { SBC16( de );                                      } /* SBC  HL,DE   */
2780
OP(ed,53) { EA = ARG16(); WM16( EA, &Z80.de ); WZ = EA+1;     } /* LD   (w),DE  */
2781
OP(ed,54) { NEG;                                              } /* NEG          */
2782
OP(ed,55) { RETN;                                             } /* RETN;        */
2783
OP(ed,56) { IM = 1;                                           } /* IM   1       */
2784
OP(ed,57) { LD_A_I;                                           } /* LD   A,I     */
2785

2786
OP(ed,58) { E = IN(BC); F = (F & CF) | SZP[E];                } /* IN   E,(C)   */
2787
OP(ed,59) { OUT(BC, E);                                       } /* OUT  (C),E   */
2788
OP(ed,5a) { ADC16( de );                                      } /* ADC  HL,DE   */
2789
OP(ed,5b) { EA = ARG16(); RM16( EA, &Z80.de ); WZ = EA+1;     } /* LD   DE,(w)  */
2790
OP(ed,5c) { NEG;                                              } /* NEG          */
2791
OP(ed,5d) { RETI;                                             } /* RETI         */
2792
OP(ed,5e) { IM = 2;                                           } /* IM   2       */
2793
OP(ed,5f) { LD_A_R;                                           } /* LD   A,R     */
2794

2795
OP(ed,60) { H = IN(BC); F = (F & CF) | SZP[H];                } /* IN   H,(C)   */
2796
OP(ed,61) { OUT(BC, H);                                       } /* OUT  (C),H   */
2797
OP(ed,62) { SBC16( hl );                                      } /* SBC  HL,HL   */
2798
OP(ed,63) { EA = ARG16(); WM16( EA, &Z80.hl ); WZ = EA+1;     } /* LD   (w),HL  */
2799
OP(ed,64) { NEG;                                              } /* NEG          */
2800
OP(ed,65) { RETN;                                             } /* RETN;        */
2801
OP(ed,66) { IM = 0;                                           } /* IM   0       */
2802
OP(ed,67) { RRD;                                              } /* RRD  (HL)    */
2803

2804
OP(ed,68) { L = IN(BC); F = (F & CF) | SZP[L];                } /* IN   L,(C)   */
2805
OP(ed,69) { OUT(BC, L);                                       } /* OUT  (C),L   */
2806
OP(ed,6a) { ADC16( hl );                                      } /* ADC  HL,HL   */
2807
OP(ed,6b) { EA = ARG16(); RM16( EA, &Z80.hl ); WZ = EA+1;     } /* LD   HL,(w)  */
2808
OP(ed,6c) { NEG;                                              } /* NEG          */
2809
OP(ed,6d) { RETI;                                             } /* RETI         */
2810
OP(ed,6e) { IM = 0;                                           } /* IM   0       */
2811
OP(ed,6f) { RLD;                                              } /* RLD  (HL)    */
2812

2813
OP(ed,70) { UINT8 res = IN(BC); F = (F & CF) | SZP[res];      } /* IN   0,(C)   */
2814
OP(ed,71) { OUT(BC, 0);                                       } /* OUT  (C),0   */
2815
OP(ed,72) { SBC16( sp );                                      } /* SBC  HL,SP   */
2816
OP(ed,73) { EA = ARG16(); WM16( EA, &Z80.sp ); WZ = EA+1;     } /* LD   (w),SP  */
2817
OP(ed,74) { NEG;                                              } /* NEG          */
2818
OP(ed,75) { RETN;                                             } /* RETN;        */
2819
OP(ed,76) { IM = 1;                                           } /* IM   1       */
2820
OP(ed,77) { illegal_2();                                      } /* DB   ED,77   */
2821

2822
OP(ed,78) { A = IN(BC); F = (F & CF) | SZP[A]; WZ = BC+1;     } /* IN   E,(C)   */
2823
OP(ed,79) { OUT(BC, A); WZ = BC + 1;                          } /* OUT  (C),A   */
2824
OP(ed,7a) { ADC16( sp );                                      } /* ADC  HL,SP   */
2825
OP(ed,7b) { EA = ARG16(); RM16( EA, &Z80.sp ); WZ = EA+1; } /* LD   SP,(w)  */
2826
OP(ed,7c) { NEG;                                              } /* NEG          */
2827
OP(ed,7d) { RETI;                                             } /* RETI         */
2828
OP(ed,7e) { IM = 2;                                           } /* IM   2       */
2829
OP(ed,7f) { illegal_2();                                      } /* DB   ED,7F   */
2830

2831
OP(ed,80) { illegal_2();                                      } /* DB   ED      */
2832
OP(ed,81) { illegal_2();                                      } /* DB   ED      */
2833
OP(ed,82) { illegal_2();                                      } /* DB   ED      */
2834
OP(ed,83) { illegal_2();                                      } /* DB   ED      */
2835
OP(ed,84) { illegal_2();                                      } /* DB   ED      */
2836
OP(ed,85) { illegal_2();                                      } /* DB   ED      */
2837
OP(ed,86) { illegal_2();                                      } /* DB   ED      */
2838
OP(ed,87) { illegal_2();                                      } /* DB   ED      */
2839

2840
OP(ed,88) { illegal_2();                                      } /* DB   ED      */
2841
OP(ed,89) { illegal_2();                                      } /* DB   ED      */
2842
OP(ed,8a) { illegal_2();                                      } /* DB   ED      */
2843
OP(ed,8b) { illegal_2();                                      } /* DB   ED      */
2844
OP(ed,8c) { illegal_2();                                      } /* DB   ED      */
2845
OP(ed,8d) { illegal_2();                                      } /* DB   ED      */
2846
OP(ed,8e) { illegal_2();                                      } /* DB   ED      */
2847
OP(ed,8f) { illegal_2();                                      } /* DB   ED      */
2848

2849
OP(ed,90) { illegal_2();                                      } /* DB   ED      */
2850
OP(ed,91) { illegal_2();                                      } /* DB   ED      */
2851
OP(ed,92) { illegal_2();                                      } /* DB   ED      */
2852
OP(ed,93) { illegal_2();                                      } /* DB   ED      */
2853
OP(ed,94) { illegal_2();                                      } /* DB   ED      */
2854
OP(ed,95) { illegal_2();                                      } /* DB   ED      */
2855
OP(ed,96) { illegal_2();                                      } /* DB   ED      */
2856
OP(ed,97) { illegal_2();                                      } /* DB   ED      */
2857

2858
OP(ed,98) { illegal_2();                                      } /* DB   ED      */
2859
OP(ed,99) { illegal_2();                                      } /* DB   ED      */
2860
OP(ed,9a) { illegal_2();                                      } /* DB   ED      */
2861
OP(ed,9b) { illegal_2();                                      } /* DB   ED      */
2862
OP(ed,9c) { illegal_2();                                      } /* DB   ED      */
2863
OP(ed,9d) { illegal_2();                                      } /* DB   ED      */
2864
OP(ed,9e) { illegal_2();                                      } /* DB   ED      */
2865
OP(ed,9f) { illegal_2();                                      } /* DB   ED      */
2866

2867
OP(ed,a0) { LDI;                                              } /* LDI          */
2868
OP(ed,a1) { CPI;                                              } /* CPI          */
2869
OP(ed,a2) { INI;                                              } /* INI          */
2870
OP(ed,a3) { OUTI;                                             } /* OUTI         */
2871
OP(ed,a4) { illegal_2();                                      } /* DB   ED      */
2872
OP(ed,a5) { illegal_2();                                      } /* DB   ED      */
2873
OP(ed,a6) { illegal_2();                                      } /* DB   ED      */
2874
OP(ed,a7) { illegal_2();                                      } /* DB   ED      */
2875

2876
OP(ed,a8) { LDD;                                              } /* LDD          */
2877
OP(ed,a9) { CPD;                                              } /* CPD          */
2878
OP(ed,aa) { IND;                                              } /* IND          */
2879
OP(ed,ab) { OUTD;                                             } /* OUTD         */
2880
OP(ed,ac) { illegal_2();                                      } /* DB   ED      */
2881
OP(ed,ad) { illegal_2();                                      } /* DB   ED      */
2882
OP(ed,ae) { illegal_2();                                      } /* DB   ED      */
2883
OP(ed,af) { illegal_2();                                      } /* DB   ED      */
2884

2885
OP(ed,b0) { LDIR;                                             } /* LDIR         */
2886
OP(ed,b1) { CPIR;                                             } /* CPIR         */
2887
OP(ed,b2) { INIR;                                             } /* INIR         */
2888
OP(ed,b3) { OTIR;                                             } /* OTIR         */
2889
OP(ed,b4) { illegal_2();                                      } /* DB   ED      */
2890
OP(ed,b5) { illegal_2();                                      } /* DB   ED      */
2891
OP(ed,b6) { illegal_2();                                      } /* DB   ED      */
2892
OP(ed,b7) { illegal_2();                                      } /* DB   ED      */
2893

2894
OP(ed,b8) { LDDR;                                             } /* LDDR         */
2895
OP(ed,b9) { CPDR;                                             } /* CPDR         */
2896
OP(ed,ba) { INDR;                                             } /* INDR         */
2897
OP(ed,bb) { OTDR;                                             } /* OTDR         */
2898
OP(ed,bc) { illegal_2();                                      } /* DB   ED      */
2899
OP(ed,bd) { illegal_2();                                      } /* DB   ED      */
2900
OP(ed,be) { illegal_2();                                      } /* DB   ED      */
2901
OP(ed,bf) { illegal_2();                                      } /* DB   ED      */
2902

2903
OP(ed,c0) { illegal_2();                                      } /* DB   ED      */
2904
OP(ed,c1) { illegal_2();                                      } /* DB   ED      */
2905
OP(ed,c2) { illegal_2();                                      } /* DB   ED      */
2906
OP(ed,c3) { illegal_2();                                      } /* DB   ED      */
2907
OP(ed,c4) { illegal_2();                                      } /* DB   ED      */
2908
OP(ed,c5) { illegal_2();                                      } /* DB   ED      */
2909
OP(ed,c6) { illegal_2();                                      } /* DB   ED      */
2910
OP(ed,c7) { illegal_2();                                      } /* DB   ED      */
2911

2912
OP(ed,c8) { illegal_2();                                      } /* DB   ED      */
2913
OP(ed,c9) { illegal_2();                                      } /* DB   ED      */
2914
OP(ed,ca) { illegal_2();                                      } /* DB   ED      */
2915
OP(ed,cb) { illegal_2();                                      } /* DB   ED      */
2916
OP(ed,cc) { illegal_2();                                      } /* DB   ED      */
2917
OP(ed,cd) { illegal_2();                                      } /* DB   ED      */
2918
OP(ed,ce) { illegal_2();                                      } /* DB   ED      */
2919
OP(ed,cf) { illegal_2();                                      } /* DB   ED      */
2920

2921
OP(ed,d0) { illegal_2();                                      } /* DB   ED      */
2922
OP(ed,d1) { illegal_2();                                      } /* DB   ED      */
2923
OP(ed,d2) { illegal_2();                                      } /* DB   ED      */
2924
OP(ed,d3) { illegal_2();                                      } /* DB   ED      */
2925
OP(ed,d4) { illegal_2();                                      } /* DB   ED      */
2926
OP(ed,d5) { illegal_2();                                      } /* DB   ED      */
2927
OP(ed,d6) { illegal_2();                                      } /* DB   ED      */
2928
OP(ed,d7) { illegal_2();                                      } /* DB   ED      */
2929

2930
OP(ed,d8) { illegal_2();                                      } /* DB   ED      */
2931
OP(ed,d9) { illegal_2();                                      } /* DB   ED      */
2932
OP(ed,da) { illegal_2();                                      } /* DB   ED      */
2933
OP(ed,db) { illegal_2();                                      } /* DB   ED      */
2934
OP(ed,dc) { illegal_2();                                      } /* DB   ED      */
2935
OP(ed,dd) { illegal_2();                                      } /* DB   ED      */
2936
OP(ed,de) { illegal_2();                                      } /* DB   ED      */
2937
OP(ed,df) { illegal_2();                                      } /* DB   ED      */
2938

2939
OP(ed,e0) { illegal_2();                                      } /* DB   ED      */
2940
OP(ed,e1) { illegal_2();                                      } /* DB   ED      */
2941
OP(ed,e2) { illegal_2();                                      } /* DB   ED      */
2942
OP(ed,e3) { illegal_2();                                      } /* DB   ED      */
2943
OP(ed,e4) { illegal_2();                                      } /* DB   ED      */
2944
OP(ed,e5) { illegal_2();                                      } /* DB   ED      */
2945
OP(ed,e6) { illegal_2();                                      } /* DB   ED      */
2946
OP(ed,e7) { illegal_2();                                      } /* DB   ED      */
2947

2948
OP(ed,e8) { illegal_2();                                      } /* DB   ED      */
2949
OP(ed,e9) { illegal_2();                                      } /* DB   ED      */
2950
OP(ed,ea) { illegal_2();                                      } /* DB   ED      */
2951
OP(ed,eb) { illegal_2();                                      } /* DB   ED      */
2952
OP(ed,ec) { illegal_2();                                      } /* DB   ED      */
2953
OP(ed,ed) { illegal_2();                                      } /* DB   ED      */
2954
OP(ed,ee) { illegal_2();                                      } /* DB   ED      */
2955
OP(ed,ef) { illegal_2();                                      } /* DB   ED      */
2956

2957
OP(ed,f0) { illegal_2();                                      } /* DB   ED      */
2958
OP(ed,f1) { illegal_2();                                      } /* DB   ED      */
2959
OP(ed,f2) { illegal_2();                                      } /* DB   ED      */
2960
OP(ed,f3) { illegal_2();                                      } /* DB   ED      */
2961
OP(ed,f4) { illegal_2();                                      } /* DB   ED      */
2962
OP(ed,f5) { illegal_2();                                      } /* DB   ED      */
2963
OP(ed,f6) { illegal_2();                                      } /* DB   ED      */
2964
OP(ed,f7) { illegal_2();                                      } /* DB   ED      */
2965

2966
OP(ed,f8) { illegal_2();                                      } /* DB   ED      */
2967
OP(ed,f9) { illegal_2();                                      } /* DB   ED      */
2968
OP(ed,fa) { illegal_2();                                      } /* DB   ED      */
2969
OP(ed,fb) { illegal_2();                                      } /* DB   ED      */
2970
OP(ed,fc) { illegal_2();                                      } /* DB   ED      */
2971
OP(ed,fd) { illegal_2();                                      } /* DB   ED      */
2972
OP(ed,fe) { illegal_2();                                      } /* DB   ED      */
2973
OP(ed,ff) { illegal_2();                                      } /* DB   ED      */
2974

2975

2976
/**********************************************************
2977
 * main opcodes
2978
 **********************************************************/
2979
OP(op,00) {                                                                                                } /* NOP              */
2980
OP(op,01) { BC = ARG16();                                                                                  } /* LD   BC,w        */
2981
OP(op,02) { WM( BC, A ); WZ_L = (BC + 1) & 0xFF;  WZ_H = A;                                                } /* LD   (BC),A      */
2982
OP(op,03) { BC++;                                                                                          } /* INC  BC          */
2983
OP(op,04) { B = INC(B);                                                                                    } /* INC  B           */
2984
OP(op,05) { B = DEC(B);                                                                                    } /* DEC  B           */
2985
OP(op,06) { B = ARG();                                                                                     } /* LD   B,n         */
2986
OP(op,07) { RLCA;                                                                                          } /* RLCA             */
2987

2988
OP(op,08) { EX_AF;                                                                                         } /* EX   AF,AF'      */
2989
OP(op,09) { ADD16(hl, bc);                                                                                 } /* ADD  HL,BC       */
2990
OP(op,0a) { A = RM( BC ); WZ=BC+1;                                                                         } /* LD   A,(BC)      */
2991
OP(op,0b) { BC--;                                                                                          } /* DEC  BC          */
2992
OP(op,0c) { C = INC(C);                                                                                    } /* INC  C           */
2993
OP(op,0d) { C = DEC(C);                                                                                    } /* DEC  C           */
2994
OP(op,0e) { C = ARG();                                                                                     } /* LD   C,n         */
2995
OP(op,0f) { RRCA;                                                                                          } /* RRCA             */
2996

2997
OP(op,10) { B--; JR_COND( B, 0x10 );                                                                       } /* DJNZ o           */
2998
OP(op,11) { DE = ARG16();                                                                                  } /* LD   DE,w        */
2999
OP(op,12) { WM( DE, A ); WZ_L = (DE + 1) & 0xFF;  WZ_H = A;                                                } /* LD   (DE),A      */
3000
OP(op,13) { DE++;                                                                                          } /* INC  DE          */
3001
OP(op,14) { D = INC(D);                                                                                    } /* INC  D           */
3002
OP(op,15) { D = DEC(D);                                                                                    } /* DEC  D           */
3003
OP(op,16) { D = ARG();                                                                                     } /* LD   D,n         */
3004
OP(op,17) { RLA;                                                                                           } /* RLA              */
3005

3006
OP(op,18) { JR();                                                                                          } /* JR   o           */
3007
OP(op,19) { ADD16(hl, de);                                                                                 } /* ADD  HL,DE       */
3008
OP(op,1a) { A = RM( DE ); WZ=DE+1;                                                                         } /* LD   A,(DE)      */
3009
OP(op,1b) { DE--;                                                                                          } /* DEC  DE          */
3010
OP(op,1c) { E = INC(E);                                                                                    } /* INC  E           */
3011
OP(op,1d) { E = DEC(E);                                                                                    } /* DEC  E           */
3012
OP(op,1e) { E = ARG();                                                                                     } /* LD   E,n         */
3013
OP(op,1f) { RRA;                                                                                           } /* RRA              */
3014

3015
OP(op,20) { JR_COND( !(F & ZF), 0x20 );                                                                    } /* JR   NZ,o        */
3016
OP(op,21) { HL = ARG16();                                                                                  } /* LD   HL,w        */
3017
OP(op,22) { EA = ARG16(); WM16( EA, &Z80.hl ); WZ = EA+1;                                                  } /* LD   (w),HL      */
3018
OP(op,23) { HL++;                                                                                          } /* INC  HL          */
3019
OP(op,24) { H = INC(H);                                                                                    } /* INC  H           */
3020
OP(op,25) { H = DEC(H);                                                                                    } /* DEC  H           */
3021
OP(op,26) { H = ARG();                                                                                     } /* LD   H,n         */
3022
OP(op,27) { DAA;                                                                                           } /* DAA              */
3023

3024
OP(op,28) { JR_COND( F & ZF, 0x28 );                                                                       } /* JR   Z,o         */
3025
OP(op,29) { ADD16(hl, hl);                                                                                 } /* ADD  HL,HL       */
3026
OP(op,2a) { EA = ARG16(); RM16( EA, &Z80.hl ); WZ = EA+1;                                                  } /* LD   HL,(w)      */
3027
OP(op,2b) { HL--;                                                                                          } /* DEC  HL          */
3028
OP(op,2c) { L = INC(L);                                                                                    } /* INC  L           */
3029
OP(op,2d) { L = DEC(L);                                                                                    } /* DEC  L           */
3030
OP(op,2e) { L = ARG();                                                                                     } /* LD   L,n         */
3031
OP(op,2f) { A ^= 0xff; F = (F&(SF|ZF|PF|CF))|HF|NF|(A&(YF|XF));                                            } /* CPL              */
3032

3033
OP(op,30) { JR_COND( !(F & CF), 0x30 );                                                                    } /* JR   NC,o        */
3034
OP(op,31) { SP = ARG16();                                                                                  } /* LD   SP,w        */
3035
OP(op,32) { EA = ARG16(); WM( EA, A ); WZ_L=(EA+1)&0xFF;WZ_H=A;                                            } /* LD   (w),A       */
3036
OP(op,33) { SP++;                                                                                          } /* INC  SP          */
3037
OP(op,34) { WM( HL, INC(RM(HL)) );                                                                         } /* INC  (HL)        */
3038
OP(op,35) { WM( HL, DEC(RM(HL)) );                                                                         } /* DEC  (HL)        */
3039
OP(op,36) { WM( HL, ARG() );                                                                               } /* LD   (HL),n      */
3040
OP(op,37) { F = (F & (SF|ZF|YF|XF|PF)) | CF | (A & (YF|XF));                                               } /* SCF              */
3041

3042
OP(op,38) { JR_COND( F & CF, 0x38 );                                                                       } /* JR   C,o         */
3043
OP(op,39) { ADD16(hl, sp);                                                                                 } /* ADD  HL,SP       */
3044
OP(op,3a) { EA = ARG16(); A = RM( EA ); WZ = EA+1;                                                         } /* LD   A,(w)       */
3045
OP(op,3b) { SP--;                                                                                          } /* DEC  SP          */
3046
OP(op,3c) { A = INC(A);                                                                                    } /* INC  A           */
3047
OP(op,3d) { A = DEC(A);                                                                                    } /* DEC  A           */
3048
OP(op,3e) { A = ARG();                                                                                     } /* LD   A,n         */
3049
OP(op,3f) { F = ((F&(SF|ZF|YF|XF|PF|CF))|((F&CF)<<4)|(A&(YF|XF)))^CF;                                      } /* CCF              */
3050

3051
OP(op,40) {                                                                                                } /* LD   B,B         */
3052
OP(op,41) { B = C;                                                                                         } /* LD   B,C         */
3053
OP(op,42) { B = D;                                                                                         } /* LD   B,D         */
3054
OP(op,43) { B = E;                                                                                         } /* LD   B,E         */
3055
OP(op,44) { B = H;                                                                                         } /* LD   B,H         */
3056
OP(op,45) { B = L;                                                                                         } /* LD   B,L         */
3057
OP(op,46) { B = RM(HL);                                                                                    } /* LD   B,(HL)      */
3058
OP(op,47) { B = A;                                                                                         } /* LD   B,A         */
3059

3060
OP(op,48) { C = B;                                                                                         } /* LD   C,B         */
3061
OP(op,49) {                                                                                                } /* LD   C,C         */
3062
OP(op,4a) { C = D;                                                                                         } /* LD   C,D         */
3063
OP(op,4b) { C = E;                                                                                         } /* LD   C,E         */
3064
OP(op,4c) { C = H;                                                                                         } /* LD   C,H         */
3065
OP(op,4d) { C = L;                                                                                         } /* LD   C,L         */
3066
OP(op,4e) { C = RM(HL);                                                                                    } /* LD   C,(HL)      */
3067
OP(op,4f) { C = A;                                                                                         } /* LD   C,A         */
3068

3069
OP(op,50) { D = B;                                                                                         } /* LD   D,B         */
3070
OP(op,51) { D = C;                                                                                         } /* LD   D,C         */
3071
OP(op,52) {                                                                                                } /* LD   D,D         */
3072
OP(op,53) { D = E;                                                                                         } /* LD   D,E         */
3073
OP(op,54) { D = H;                                                                                         } /* LD   D,H         */
3074
OP(op,55) { D = L;                                                                                         } /* LD   D,L         */
3075
OP(op,56) { D = RM(HL);                                                                                    } /* LD   D,(HL)      */
3076
OP(op,57) { D = A;                                                                                         } /* LD   D,A         */
3077

3078
OP(op,58) { E = B;                                                                                         } /* LD   E,B         */
3079
OP(op,59) { E = C;                                                                                         } /* LD   E,C         */
3080
OP(op,5a) { E = D;                                                                                         } /* LD   E,D         */
3081
OP(op,5b) {                                                                                                } /* LD   E,E         */
3082
OP(op,5c) { E = H;                                                                                         } /* LD   E,H         */
3083
OP(op,5d) { E = L;                                                                                         } /* LD   E,L         */
3084
OP(op,5e) { E = RM(HL);                                                                                    } /* LD   E,(HL)      */
3085
OP(op,5f) { E = A;                                                                                         } /* LD   E,A         */
3086

3087
OP(op,60) { H = B;                                                                                         } /* LD   H,B         */
3088
OP(op,61) { H = C;                                                                                         } /* LD   H,C         */
3089
OP(op,62) { H = D;                                                                                         } /* LD   H,D         */
3090
OP(op,63) { H = E;                                                                                         } /* LD   H,E         */
3091
OP(op,64) {                                                                                                } /* LD   H,H         */
3092
OP(op,65) { H = L;                                                                                         } /* LD   H,L         */
3093
OP(op,66) { H = RM(HL);                                                                                    } /* LD   H,(HL)      */
3094
OP(op,67) { H = A;                                                                                         } /* LD   H,A         */
3095

3096
OP(op,68) { L = B;                                                                                         } /* LD   L,B         */
3097
OP(op,69) { L = C;                                                                                         } /* LD   L,C         */
3098
OP(op,6a) { L = D;                                                                                         } /* LD   L,D         */
3099
OP(op,6b) { L = E;                                                                                         } /* LD   L,E         */
3100
OP(op,6c) { L = H;                                                                                         } /* LD   L,H         */
3101
OP(op,6d) {                                                                                                } /* LD   L,L         */
3102
OP(op,6e) { L = RM(HL);                                                                                    } /* LD   L,(HL)      */
3103
OP(op,6f) { L = A;                                                                                         } /* LD   L,A         */
3104

3105
OP(op,70) { WM( HL, B );                                                                                   } /* LD   (HL),B      */
3106
OP(op,71) { WM( HL, C );                                                                                   } /* LD   (HL),C      */
3107
OP(op,72) { WM( HL, D );                                                                                   } /* LD   (HL),D      */
3108
OP(op,73) { WM( HL, E );                                                                                   } /* LD   (HL),E      */
3109
OP(op,74) { WM( HL, H );                                                                                   } /* LD   (HL),H      */
3110
OP(op,75) { WM( HL, L );                                                                                   } /* LD   (HL),L      */
3111
OP(op,76) { ENTER_HALT;                                                                                    } /* HALT             */
3112
OP(op,77) { WM( HL, A );                                                                                   } /* LD   (HL),A      */
3113

3114
OP(op,78) { A = B;                                                                                         } /* LD   A,B         */
3115
OP(op,79) { A = C;                                                                                         } /* LD   A,C         */
3116
OP(op,7a) { A = D;                                                                                         } /* LD   A,D         */
3117
OP(op,7b) { A = E;                                                                                         } /* LD   A,E         */
3118
OP(op,7c) { A = H;                                                                                         } /* LD   A,H         */
3119
OP(op,7d) { A = L;                                                                                         } /* LD   A,L         */
3120
OP(op,7e) { A = RM(HL);                                                                                    } /* LD   A,(HL)      */
3121
OP(op,7f) {                                                                                                } /* LD   A,A         */
3122

3123
OP(op,80) { ADD(B);                                                                                        } /* ADD  A,B         */
3124
OP(op,81) { ADD(C);                                                                                        } /* ADD  A,C         */
3125
OP(op,82) { ADD(D);                                                                                        } /* ADD  A,D         */
3126
OP(op,83) { ADD(E);                                                                                        } /* ADD  A,E         */
3127
OP(op,84) { ADD(H);                                                                                        } /* ADD  A,H         */
3128
OP(op,85) { ADD(L);                                                                                        } /* ADD  A,L         */
3129
OP(op,86) { ADD(RM(HL));                                                                                   } /* ADD  A,(HL)      */
3130
OP(op,87) { ADD(A);                                                                                        } /* ADD  A,A         */
3131

3132
OP(op,88) { ADC(B);                                                                                        } /* ADC  A,B         */
3133
OP(op,89) { ADC(C);                                                                                        } /* ADC  A,C         */
3134
OP(op,8a) { ADC(D);                                                                                        } /* ADC  A,D         */
3135
OP(op,8b) { ADC(E);                                                                                        } /* ADC  A,E         */
3136
OP(op,8c) { ADC(H);                                                                                        } /* ADC  A,H         */
3137
OP(op,8d) { ADC(L);                                                                                        } /* ADC  A,L         */
3138
OP(op,8e) { ADC(RM(HL));                                                                                   } /* ADC  A,(HL)      */
3139
OP(op,8f) { ADC(A);                                                                                        } /* ADC  A,A         */
3140

3141
OP(op,90) { SUB(B);                                                                                        } /* SUB  B           */
3142
OP(op,91) { SUB(C);                                                                                        } /* SUB  C           */
3143
OP(op,92) { SUB(D);                                                                                        } /* SUB  D           */
3144
OP(op,93) { SUB(E);                                                                                        } /* SUB  E           */
3145
OP(op,94) { SUB(H);                                                                                        } /* SUB  H           */
3146
OP(op,95) { SUB(L);                                                                                        } /* SUB  L           */
3147
OP(op,96) { SUB(RM(HL));                                                                                   } /* SUB  (HL)        */
3148
OP(op,97) { SUB(A);                                                                                        } /* SUB  A           */
3149

3150
OP(op,98) { SBC(B);                                                                                        } /* SBC  A,B         */
3151
OP(op,99) { SBC(C);                                                                                        } /* SBC  A,C         */
3152
OP(op,9a) { SBC(D);                                                                                        } /* SBC  A,D         */
3153
OP(op,9b) { SBC(E);                                                                                        } /* SBC  A,E         */
3154
OP(op,9c) { SBC(H);                                                                                        } /* SBC  A,H         */
3155
OP(op,9d) { SBC(L);                                                                                        } /* SBC  A,L         */
3156
OP(op,9e) { SBC(RM(HL));                                                                                   } /* SBC  A,(HL)      */
3157
OP(op,9f) { SBC(A);                                                                                        } /* SBC  A,A         */
3158

3159
OP(op,a0) { AND(B);                                                                                        } /* AND  B           */
3160
OP(op,a1) { AND(C);                                                                                        } /* AND  C           */
3161
OP(op,a2) { AND(D);                                                                                        } /* AND  D           */
3162
OP(op,a3) { AND(E);                                                                                        } /* AND  E           */
3163
OP(op,a4) { AND(H);                                                                                        } /* AND  H           */
3164
OP(op,a5) { AND(L);                                                                                        } /* AND  L           */
3165
OP(op,a6) { AND(RM(HL));                                                                                   } /* AND  (HL)        */
3166
OP(op,a7) { AND(A);                                                                                        } /* AND  A           */
3167

3168
OP(op,a8) { XOR(B);                                                                                        } /* XOR  B           */
3169
OP(op,a9) { XOR(C);                                                                                        } /* XOR  C           */
3170
OP(op,aa) { XOR(D);                                                                                        } /* XOR  D           */
3171
OP(op,ab) { XOR(E);                                                                                        } /* XOR  E           */
3172
OP(op,ac) { XOR(H);                                                                                        } /* XOR  H           */
3173
OP(op,ad) { XOR(L);                                                                                        } /* XOR  L           */
3174
OP(op,ae) { XOR(RM(HL));                                                                                   } /* XOR  (HL)        */
3175
OP(op,af) { XOR(A);                                                                                        } /* XOR  A           */
3176

3177
OP(op,b0) { OR(B);                                                                                         } /* OR   B           */
3178
OP(op,b1) { OR(C);                                                                                         } /* OR   C           */
3179
OP(op,b2) { OR(D);                                                                                         } /* OR   D           */
3180
OP(op,b3) { OR(E);                                                                                         } /* OR   E           */
3181
OP(op,b4) { OR(H);                                                                                         } /* OR   H           */
3182
OP(op,b5) { OR(L);                                                                                         } /* OR   L           */
3183
OP(op,b6) { OR(RM(HL));                                                                                    } /* OR   (HL)        */
3184
OP(op,b7) { OR(A);                                                                                         } /* OR   A           */
3185

3186
OP(op,b8) { CP(B);                                                                                         } /* CP   B           */
3187
OP(op,b9) { CP(C);                                                                                         } /* CP   C           */
3188
OP(op,ba) { CP(D);                                                                                         } /* CP   D           */
3189
OP(op,bb) { CP(E);                                                                                         } /* CP   E           */
3190
OP(op,bc) { CP(H);                                                                                         } /* CP   H           */
3191
OP(op,bd) { CP(L);                                                                                         } /* CP   L           */
3192
OP(op,be) { CP(RM(HL));                                                                                    } /* CP   (HL)        */
3193
OP(op,bf) { CP(A);                                                                                         } /* CP   A           */
3194

3195
OP(op,c0) { RET_COND( !(F & ZF), 0xc0 );                                                                   } /* RET  NZ          */
3196
OP(op,c1) { POP( bc );                                                                                     } /* POP  BC          */
3197
OP(op,c2) { JP_COND( !(F & ZF) );                                                                          } /* JP   NZ,a        */
3198
OP(op,c3) { JP;                                                                                            } /* JP   a           */
3199
OP(op,c4) { CALL_COND( !(F & ZF), 0xc4 );                                                                  } /* CALL NZ,a        */
3200
OP(op,c5) { PUSH( bc );                                                                                    } /* PUSH BC          */
3201
OP(op,c6) { ADD(ARG());                                                                                    } /* ADD  A,n         */
3202
OP(op,c7) { RST(0x00);                                                                                     } /* RST  0           */
3203

3204
OP(op,c8) { RET_COND( F & ZF, 0xc8 );                                                                      } /* RET  Z           */
3205
OP(op,c9) { POP( pc ); WZ=PCD;                                                                             } /* RET              */
3206
OP(op,ca) { JP_COND( F & ZF );                                                                             } /* JP   Z,a         */
3207
OP(op,cb) { R++; EXEC(cb,ROP());                                                                           } /* **** CB xx       */
3208
OP(op,cc) { CALL_COND( F & ZF, 0xcc );                                                                     } /* CALL Z,a         */
3209
OP(op,cd) { CALL();                                                                                        } /* CALL a           */
3210
OP(op,ce) { ADC(ARG());                                                                                    } /* ADC  A,n         */
3211
OP(op,cf) { RST(0x08);                                                                                     } /* RST  1           */
3212

3213
OP(op,d0) { RET_COND( !(F & CF), 0xd0 );                                                                   } /* RET  NC          */
3214
OP(op,d1) { POP( de );                                                                                     } /* POP  DE          */
3215
OP(op,d2) { JP_COND( !(F & CF) );                                                                          } /* JP   NC,a        */
3216
OP(op,d3) { unsigned n = ARG() | (A << 8); OUT( n, A ); WZ_L = ((n & 0xff) + 1) & 0xff;  WZ_H = A; } /* OUT  (n),A       */
3217
OP(op,d4) { CALL_COND( !(F & CF), 0xd4 );                                                                  } /* CALL NC,a        */
3218
OP(op,d5) { PUSH( de );                                                                                    } /* PUSH DE          */
3219
OP(op,d6) { SUB(ARG());                                                                                    } /* SUB  n           */
3220
OP(op,d7) { RST(0x10);                                                                                     } /* RST  2           */
3221

3222
OP(op,d8) { RET_COND( F & CF, 0xd8 );                                                                      } /* RET  C           */
3223
OP(op,d9) { EXX;                                                                                           } /* EXX              */
3224
OP(op,da) { JP_COND( F & CF );                                                                             } /* JP   C,a         */
3225
OP(op,db) { unsigned n = ARG() | (A << 8); A = IN( n ); WZ = n + 1;                                        } /* IN   A,(n)       */
3226
OP(op,dc) { CALL_COND( F & CF, 0xdc );                                                                     } /* CALL C,a         */
3227
OP(op,dd) { R++; EXEC(dd,ROP());                                                                           } /* **** DD xx       */
3228
OP(op,de) { SBC(ARG());                                                                                    } /* SBC  A,n         */
3229
OP(op,df) { RST(0x18);                                                                                     } /* RST  3           */
3230

3231
OP(op,e0) { RET_COND( !(F & PF), 0xe0 );                                                                   } /* RET  PO          */
3232
OP(op,e1) { POP( hl );                                                                                     } /* POP  HL          */
3233
OP(op,e2) { JP_COND( !(F & PF) );                                                                          } /* JP   PO,a        */
3234
OP(op,e3) { EXSP( hl );                                                                                    } /* EX   HL,(SP)     */
3235
OP(op,e4) { CALL_COND( !(F & PF), 0xe4 );                                                                  } /* CALL PO,a        */
3236
OP(op,e5) { PUSH( hl );                                                                                    } /* PUSH HL          */
3237
OP(op,e6) { AND(ARG());                                                                                    } /* AND  n           */
3238
OP(op,e7) { RST(0x20);                                                                                     } /* RST  4           */
3239

3240
OP(op,e8) { RET_COND( F & PF, 0xe8 );                                                                      } /* RET  PE          */
3241
OP(op,e9) { PC = HL;                                                                                       } /* JP   (HL)        */
3242
OP(op,ea) { JP_COND( F & PF );                                                                             } /* JP   PE,a        */
3243
OP(op,eb) { EX_DE_HL;                                                                                      } /* EX   DE,HL       */
3244
OP(op,ec) { CALL_COND( F & PF, 0xec );                                                                     } /* CALL PE,a        */
3245
OP(op,ed) { R++; EXEC(ed,ROP());                                                                           } /* **** ED xx       */
3246
OP(op,ee) { XOR(ARG());                                                                                    } /* XOR  n           */
3247
OP(op,ef) { RST(0x28);                                                                                     } /* RST  5           */
3248

3249
OP(op,f0) { RET_COND( !(F & SF), 0xf0 );                                                                   } /* RET  P           */
3250
OP(op,f1) { POP( af );                                                                                     } /* POP  AF          */
3251
OP(op,f2) { JP_COND( !(F & SF) );                                                                          } /* JP   P,a         */
3252
OP(op,f3) { IFF1 = IFF2 = 0;                                                                               } /* DI               */
3253
OP(op,f4) { CALL_COND( !(F & SF), 0xf4 );                                                                  } /* CALL P,a         */
3254
OP(op,f5) { PUSH( af );                                                                                    } /* PUSH AF          */
3255
OP(op,f6) { OR(ARG());                                                                                     } /* OR   n           */
3256
OP(op,f7) { RST(0x30);                                                                                     } /* RST  6           */
3257

3258
OP(op,f8) { RET_COND( F & SF, 0xf8 );                                                                      } /* RET  M           */
3259
OP(op,f9) { SP = HL;                                                                                       } /* LD   SP,HL       */
3260
OP(op,fa) { JP_COND(F & SF);                                                                               } /* JP   M,a         */
3261
OP(op,fb) { EI;                                                                                            } /* EI               */
3262
OP(op,fc) { CALL_COND( F & SF, 0xfc );                                                                     } /* CALL M,a         */
3263
OP(op,fd) { R++; EXEC(fd,ROP());                                                                           } /* **** FD xx       */
3264
OP(op,fe) { CP(ARG());                                                                                     } /* CP   n           */
3265
OP(op,ff) { RST(0x38);                                                                                     } /* RST  7           */
3266

3267

3268
static void take_interrupt(void)
3269
{
3270
  /* Check if processor was halted */
3271
  LEAVE_HALT;
3272

3273
  /* Clear both interrupt flip flops */
3274
  IFF1 = IFF2 = 0;
3275

3276
  LOG(("Z80 #%d single int. irq_vector $%02x\n", cpu_getactivecpu(), irq_vector));
3277

3278
  /* Interrupt mode 1. RST 38h */
3279
  if( IM == 1 )
3280
  {
3281
    LOG(("Z80 #%d IM1 $0038\n",cpu_getactivecpu() ));
3282
    PUSH( pc );
3283
    PCD = 0x0038;
3284
    /* RST $38 + 'interrupt latency' cycles */
3285
    Z80.cycles += cc[Z80_TABLE_op][0xff] + cc[Z80_TABLE_ex][0xff];
3286
  }
3287
  else
3288
  {
3289
    /* call back the cpu interface to retrieve the vector */
3290
    int irq_vector = (*Z80.irq_callback)(0);
3291

3292
    /* Interrupt mode 2. Call [Z80.i:databyte] */
3293
    if( IM == 2 )
3294
    {
3295
      irq_vector = (irq_vector & 0xff) | (I << 8);
3296
      PUSH( pc );
3297
      RM16( irq_vector, &Z80.pc );
3298
      LOG(("Z80 #%d IM2 [$%04x] = $%04x\n",cpu_getactivecpu() , irq_vector, PCD));
3299
        /* CALL $xxxx + 'interrupt latency' cycles */
3300
      Z80.cycles += cc[Z80_TABLE_op][0xcd] + cc[Z80_TABLE_ex][0xff];
3301
    }
3302
    else
3303
    {
3304
      /* Interrupt mode 0. We check for CALL and JP instructions, */
3305
      /* if neither of these were found we assume a 1 byte opcode */
3306
      /* was placed on the databus                */
3307
      LOG(("Z80 #%d IM0 $%04x\n",cpu_getactivecpu() , irq_vector));
3308
      switch (irq_vector & 0xff0000)
3309
      {
3310
        case 0xcd0000:  /* call */
3311
        PUSH( pc );
3312
        PCD = irq_vector & 0xffff;
3313
           /* CALL $xxxx + 'interrupt latency' cycles */
3314
        Z80.cycles += cc[Z80_TABLE_op][0xcd] + cc[Z80_TABLE_ex][0xff];
3315
          break;
3316
        case 0xc30000:  /* jump */
3317
        PCD = irq_vector & 0xffff;
3318
          /* JP $xxxx + 2 cycles */
3319
        Z80.cycles += cc[Z80_TABLE_op][0xc3] + cc[Z80_TABLE_ex][0xff];
3320
          break;
3321
        default:    /* rst (or other opcodes?) */
3322
        PUSH( pc );
3323
        PCD = irq_vector & 0x0038;
3324
          /* RST $xx + 2 cycles */
3325
        Z80.cycles += cc[Z80_TABLE_op][0xff] + cc[Z80_TABLE_ex][0xff];
3326
          break;
3327
      }
3328
    }
3329
  }
3330
  WZ=PCD;
3331
}
3332

3333
/****************************************************************************
3334
 * Processor initialization
3335
 ****************************************************************************/
3336
void z80_init(const void *config, int (*irqcallback)(int))
3337
{
3338
  int i, p;
3339

3340
  int oldval, newval, val;
3341
  UINT8 *padd = &SZHVC_add[  0*256];
3342
  UINT8 *padc = &SZHVC_add[256*256];
3343
  UINT8 *psub = &SZHVC_sub[  0*256];
3344
  UINT8 *psbc = &SZHVC_sub[256*256];
3345
  for (oldval = 0; oldval < 256; oldval++)
3346
  {
3347
    for (newval = 0; newval < 256; newval++)
3348
    {
3349
      /* add or adc w/o carry set */
3350
      val = newval - oldval;
3351
      *padd = (newval) ? ((newval & 0x80) ? SF : 0) : ZF;
3352
      *padd |= (newval & (YF | XF));  /* undocumented flag bits 5+3 */
3353
      if( (newval & 0x0f) < (oldval & 0x0f) ) *padd |= HF;
3354
      if( newval < oldval ) *padd |= CF;
3355
      if( (val^oldval^0x80) & (val^newval) & 0x80 ) *padd |= VF;
3356
      padd++;
3357

3358
      /* adc with carry set */
3359
      val = newval - oldval - 1;
3360
      *padc = (newval) ? ((newval & 0x80) ? SF : 0) : ZF;
3361
      *padc |= (newval & (YF | XF));  /* undocumented flag bits 5+3 */
3362
      if( (newval & 0x0f) <= (oldval & 0x0f) ) *padc |= HF;
3363
      if( newval <= oldval ) *padc |= CF;
3364
      if( (val^oldval^0x80) & (val^newval) & 0x80 ) *padc |= VF;
3365
      padc++;
3366

3367
      /* cp, sub or sbc w/o carry set */
3368
      val = oldval - newval;
3369
      *psub = NF | ((newval) ? ((newval & 0x80) ? SF : 0) : ZF);
3370
      *psub |= (newval & (YF | XF));  /* undocumented flag bits 5+3 */
3371
      if( (newval & 0x0f) > (oldval & 0x0f) ) *psub |= HF;
3372
      if( newval > oldval ) *psub |= CF;
3373
      if( (val^oldval) & (oldval^newval) & 0x80 ) *psub |= VF;
3374
      psub++;
3375

3376
      /* sbc with carry set */
3377
      val = oldval - newval - 1;
3378
      *psbc = NF | ((newval) ? ((newval & 0x80) ? SF : 0) : ZF);
3379
      *psbc |= (newval & (YF | XF));  /* undocumented flag bits 5+3 */
3380
      if( (newval & 0x0f) >= (oldval & 0x0f) ) *psbc |= HF;
3381
      if( newval >= oldval ) *psbc |= CF;
3382
      if( (val^oldval) & (oldval^newval) & 0x80 ) *psbc |= VF;
3383
      psbc++;
3384
    }
3385
  }
3386

3387
  for (i = 0; i < 256; i++)
3388
  {
3389
    p = 0;
3390
    if( i&0x01 ) ++p;
3391
    if( i&0x02 ) ++p;
3392
    if( i&0x04 ) ++p;
3393
    if( i&0x08 ) ++p;
3394
    if( i&0x10 ) ++p;
3395
    if( i&0x20 ) ++p;
3396
    if( i&0x40 ) ++p;
3397
    if( i&0x80 ) ++p;
3398
    SZ[i] = i ? i & SF : ZF;
3399
    SZ[i] |= (i & (YF | XF));    /* undocumented flag bits 5+3 */
3400
    SZ_BIT[i] = i ? i & SF : ZF | PF;
3401
    SZ_BIT[i] |= (i & (YF | XF));  /* undocumented flag bits 5+3 */
3402
    SZP[i] = SZ[i] | ((p & 1) ? 0 : PF);
3403
    SZHV_inc[i] = SZ[i];
3404
    if( i == 0x80 ) SZHV_inc[i] |= VF;
3405
    if( (i & 0x0f) == 0x00 ) SZHV_inc[i] |= HF;
3406
    SZHV_dec[i] = SZ[i] | NF;
3407
    if( i == 0x7f ) SZHV_dec[i] |= VF;
3408
    if( (i & 0x0f) == 0x0f ) SZHV_dec[i] |= HF;
3409
  }
3410

3411
  /* Initialize Z80 */
3412
  memset(&Z80, 0, sizeof(Z80));
3413
  Z80.daisy = config;
3414
  Z80.irq_callback = irqcallback;
3415

3416
  /* Clear registers values (NB: should be random on real hardware ?) */
3417
  AF = BC = DE = HL = SP = IX = IY =0;
3418
  F = ZF; /* Zero flag is set */
3419

3420
  /* setup cycle tables */
3421
  cc[Z80_TABLE_op] = cc_op;
3422
  cc[Z80_TABLE_cb] = cc_cb;
3423
  cc[Z80_TABLE_ed] = cc_ed;
3424
  cc[Z80_TABLE_xy] = cc_xy;
3425
  cc[Z80_TABLE_xycb] = cc_xycb;
3426
  cc[Z80_TABLE_ex] = cc_ex;
3427
}
3428

3429
/****************************************************************************
3430
 * Do a reset
3431
 ****************************************************************************/
3432
void z80_reset(void)
3433
{
3434
  PC = 0x0000;
3435
  I = 0;
3436
  R = 0;
3437
  R2 = 0;
3438
  IM = 0;
3439
  IFF1 = IFF2 = 0;
3440
  HALT = 0;
3441

3442
  Z80.after_ei = FALSE;
3443

3444
  WZ=PCD;
3445
}
3446

3447
/****************************************************************************
3448
 * Run until given cycle count
3449
 ****************************************************************************/
3450
void z80_run(unsigned int cycles)
3451
{
3452
  while( Z80.cycles < cycles )
3453
  {
3454
    /* check for IRQs before each instruction */
3455
    if (Z80.irq_state && IFF1 && !Z80.after_ei)
3456
    {
3457
      take_interrupt();
3458
      if (Z80.cycles >= cycles) return;
3459
    }
3460

3461
    Z80.after_ei = FALSE;
3462
    R++;
3463
    EXEC_INLINE(op,ROP());
3464
  }
3465
}
3466

3467
/****************************************************************************
3468
 * Get all registers in given buffer
3469
 ****************************************************************************/
3470
void z80_get_context (void *dst)
3471
{
3472
  if( dst )
3473
    *(Z80_Regs*)dst = Z80;
3474
}
3475

3476
/****************************************************************************
3477
 * Set all registers to given values
3478
 ****************************************************************************/
3479
void z80_set_context (void *src)
3480
{
3481
  if( src )
3482
    Z80 = *(Z80_Regs*)src;
3483
}
3484

3485
/****************************************************************************
3486
 * Set IRQ lines
3487
 ****************************************************************************/
3488
void z80_set_irq_line(unsigned int state)
3489
{
3490
  Z80.irq_state = state;
3491
}
3492

3493
void z80_set_nmi_line(unsigned int state)
3494
{
3495
  /* mark an NMI pending on the rising edge */
3496
  if (Z80.nmi_state == CLEAR_LINE && state != CLEAR_LINE)
3497
  {
3498
    LOG(("Z80 #%d take NMI\n", cpu_getactivecpu()));
3499
    LEAVE_HALT;      /* Check if processor was halted */
3500

3501
    IFF1 = 0;
3502
    PUSH( pc );
3503
    PCD = 0x0066;
3504
    WZ=PCD;
3505

3506
    Z80.cycles += 11*15;
3507
  }
3508

3509
  Z80.nmi_state = state;
3510
}
3511

3512

3513
Product

Resources

Company
