diff options
Diffstat (limited to 'plugins/ao/eng_qsf')
| -rw-r--r-- | plugins/ao/eng_qsf/kabuki.c | 156 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/qsound.c | 442 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/qsound.h | 117 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/z80.c | 4425 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/z80.h | 117 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/z80dasm.c | 597 | ||||
| -rw-r--r-- | plugins/ao/eng_qsf/z80dasm.h | 2 |
7 files changed, 0 insertions, 5856 deletions
diff --git a/plugins/ao/eng_qsf/kabuki.c b/plugins/ao/eng_qsf/kabuki.c deleted file mode 100644 index 61100304..00000000 --- a/plugins/ao/eng_qsf/kabuki.c +++ /dev/null @@ -1,156 +0,0 @@ -/*************************************************************************** - -"Kabuki" Z80 encryption - - -The "Kabuki" is a custom Z80 module which runs encrypted code. The encryption -key is stored in some battery-backed RAM, therefore the chip has the annoying -habit of stopping working every few years, when the battery dies. -Check at the bottom of this text to see a list of all the known games which -use this chip. - - -How it works: -The base operation is a bit swap which affects couples of adjacent bits. -Each of the 4 couples may or may not be swapped, depending on the address of -the byte and on whether it is an opcode or data. -The decryption consists of these steps: -- bitswap -- ROL -- bitswap -- XOR with a key -- ROL -- bitswap -- ROL -- bitswap - -To know how to apply the bit swap, take the address of the byte to decode and: -- if the byte is an opcode, add addr_key to the address -- if the byte is data, XOR the address with 1FC0, add 1, and then add addr_key -You'll get a 16-bit word. The first two bitswaps depend on bits 0-7 of that -word, while the second two on bits 8-15. When a bit in the word is 1, swap the -two bits, oherwise don't. The exact couple of bits affected depends on the -game and is identified in this file with two keys: swap_key1 and swap_key2 -(which are just permutations of the numbers 0-7, not full 32-bit integers). - - -Key space size: -- swap_key1 8! = 40320 -- swap_key2 8! = 40320 -- addr_key 2^16 = 65536 -- xor_key 2^8 = 256 -- total 2.7274 * 10^16 - - -Weaknesses: -- 0x00 and 0xff, having all the bits set to the same value, are not affected - by bit permutations after the XOR. Therefore, their encryption is the same - regardless of the high 8 bits of the address, and of the value of - swap_key2. If there is a long stream of 0x00 or 0xff in the original data, - this can be used to find by brute force all the candidates for swap_key1, - xor_key, and for the low 8 bits of addr_key. This is a serious weakness - which dramatically reduces the security of the encryption. -- A 0x00 is always encrypted as a byte with as many 1s as xor_key; a 0xff is - always encrypted as a byte with as many 0s as xor_key has 1s. So you just - need to know one 0x00 or 0xff in the unencrypted data to know how many 1s - there are in xor_key. -- Once you have restricted the range for swap_key1 and you know the number of - 1s in the xor_key, you can easily use known plaintext attacks and brute - force to find the remaining keys. Long strings like THIS GAME IS FOR USE IN - and ABCDEFGHIJKLMNOPQRSTUVWXYZ can be found by comparing the number of 1s - in the clear and encrypted data, taking xor_key into account. When you have - found where the string is, use brute force to reduce the key space. - - -Known games: - swap_key1 swap_key2 addr_key xor_key -Mahjong Gakuen 2 Gakuen-chou no Fukushuu 76543210 01234567 aa55 a5 -Poker Ladies " " " " "" "" -Dokaben " " " " "" "" -Dokaben 2 unknown -Pang / Buster Bros / Pomping World 01234567 76543210 6548 24 -Capcom Baseball " " " " "" "" -Capcom World 04152637 40516273 5751 43 -Adventure Quiz 2 Hatena ? no Dai-Bouken 45670123 45670123 5751 43 -Super Pang 45670123 45670123 5852 43 -Super Buster Bros 45670123 45670123 2130 12 -Super Marukin-Ban 54321076 54321076 4854 4f -Quiz Tonosama no Yabou 12345670 12345670 1111 11 -Ashita Tenki ni Naare unknown -Quiz Sangokushi 23456701 23456701 1828 18 -Block Block 02461357 64207531 0002 01 - -Warriors of Fate 01234567 54163072 5151 51 -Cadillacs and Dinosaurs 76543210 24601357 4343 43 -Punisher 67452103 75316024 2222 22 -Slam Masters 54321076 65432107 3131 19 - -***************************************************************************/ - -#include "cpuintrf.h" - -static int bitswap1(int src,int key,int sel) -{ - if (sel & (1 << ((key >> 0) & 7))) - src = (src & 0xfc) | ((src & 0x01) << 1) | ((src & 0x02) >> 1); - if (sel & (1 << ((key >> 4) & 7))) - src = (src & 0xf3) | ((src & 0x04) << 1) | ((src & 0x08) >> 1); - if (sel & (1 << ((key >> 8) & 7))) - src = (src & 0xcf) | ((src & 0x10) << 1) | ((src & 0x20) >> 1); - if (sel & (1 << ((key >>12) & 7))) - src = (src & 0x3f) | ((src & 0x40) << 1) | ((src & 0x80) >> 1); - - return src; -} - -static int bitswap2(int src,int key,int sel) -{ - if (sel & (1 << ((key >>12) & 7))) - src = (src & 0xfc) | ((src & 0x01) << 1) | ((src & 0x02) >> 1); - if (sel & (1 << ((key >> 8) & 7))) - src = (src & 0xf3) | ((src & 0x04) << 1) | ((src & 0x08) >> 1); - if (sel & (1 << ((key >> 4) & 7))) - src = (src & 0xcf) | ((src & 0x10) << 1) | ((src & 0x20) >> 1); - if (sel & (1 << ((key >> 0) & 7))) - src = (src & 0x3f) | ((src & 0x40) << 1) | ((src & 0x80) >> 1); - - return src; -} - -static int bytedecode(int src,int swap_key1,int swap_key2,int xor_key,int sel) -{ - src = bitswap1(src,swap_key1 & 0xffff,sel & 0xff); - src = ((src & 0x7f) << 1) | ((src & 0x80) >> 7); - src = bitswap2(src,swap_key1 >> 16,sel & 0xff); - src ^= xor_key; - src = ((src & 0x7f) << 1) | ((src & 0x80) >> 7); - src = bitswap2(src,swap_key2 & 0xffff,sel >> 8); - src = ((src & 0x7f) << 1) | ((src & 0x80) >> 7); - src = bitswap1(src,swap_key2 >> 16,sel >> 8); - return src; -} - -static void kabuki_decode(unsigned char *src,unsigned char *dest_op,unsigned char *dest_data, - int base_addr,int length,int swap_key1,int swap_key2,int addr_key,int xor_key) -{ - int A; - int sel; - - for (A = 0; A < length; A++) - { - /* decode opcodes */ - sel = (A + base_addr) + addr_key; - dest_op[A] = bytedecode(src[A],swap_key1,swap_key2,xor_key,sel); - - /* decode data */ - sel = ((A + base_addr) ^ 0x1fc0) + addr_key + 1; - dest_data[A] = bytedecode(src[A],swap_key1,swap_key2,xor_key,sel); - } -} - -void cps1_decode(unsigned char *rom, int swap_key1,int swap_key2,int addr_key,int xor_key) -{ - int diff = (512*1024)/2; - - kabuki_decode(rom, rom+diff, rom, 0x0000, 0x8000, swap_key1, swap_key2, addr_key, xor_key); -} diff --git a/plugins/ao/eng_qsf/qsound.c b/plugins/ao/eng_qsf/qsound.c deleted file mode 100644 index b11829d4..00000000 --- a/plugins/ao/eng_qsf/qsound.c +++ /dev/null @@ -1,442 +0,0 @@ -/*************************************************************************** - - Capcom System QSound(tm) - ======================== - - Driver by Paul Leaman (paul@vortexcomputing.demon.co.uk) - and Miguel Angel Horna (mahorna@teleline.es) - - A 16 channel stereo sample player. - - QSpace position is simulated by panning the sound in the stereo space. - - Register - 0 xxbb xx = unknown bb = start high address - 1 ssss ssss = sample start address - 2 pitch - 3 unknown (always 0x8000) - 4 loop offset from end address - 5 end - 6 master channel volume - 7 not used - 8 Balance (left=0x0110 centre=0x0120 right=0x0130) - 9 unknown (most fixed samples use 0 for this register) - - Many thanks to CAB (the author of Amuse), without whom this probably would - never have been finished. - - If anybody has some information about this hardware, please send it to me - to mahorna@teleline.es or 432937@cepsz.unizar.es. - http://teleline.terra.es/personal/mahorna - -***************************************************************************/ - -#include <math.h> -#include "cpuintrf.h" -#include "qsound.h" - -#if 0 -#if QSOUND_DRIVER2 -void setchannel(int channel,signed short *buffer,int length,int vol,int pan); -void setchloop(int channel,int loops,int loope); -void stopchan(int channel); -void calcula_mix(int channel); -#endif -#endif - -qsound_state_t *qsound_sh_start( struct QSound_interface *qsintf ) -{ - qsound_state_t *qs = malloc (sizeof (qsound_state_t)); - memset (qs, 0, sizeof (qsound_state_t)); - memcpy (&qs->intf, qsintf, sizeof (struct QSound_interface)); - - int i; - - qs->qsound_sample_rom = (QSOUND_SRC_SAMPLE *)qs->intf.sample_rom; - - memset(qs->qsound_channel, 0, sizeof(qs->qsound_channel)); - -#if QSOUND_DRIVER1 - qs->qsound_frq_ratio = ((float)qs->intf.clock / (float)QSOUND_CLOCKDIV) / - (float) 44100; - qs->qsound_frq_ratio *= 16.0; - - /* Create pan table */ - for (i=0; i<33; i++) - { - qs->qsound_pan_table[i]=(int)((256/sqrt(32)) * sqrt(i)); - } -#else - i=0; -#endif - -#if LOG_QSOUND - logerror("Pan table\n"); - for (i=0; i<33; i++) - logerror("%02x ", qs->qsound_pan_table[i]); -#endif -#if 0 - { - /* Allocate stream */ -#define CHANNELS ( 2 ) - char buf[CHANNELS][40]; - const char *name[CHANNELS]; - int vol[2]; - name[0] = buf[0]; - name[1] = buf[1]; - sprintf( buf[0], "%s L", sound_name(msound) ); - sprintf( buf[1], "%s R", sound_name(msound) ); - vol[0]=MIXER(intf->mixing_level[0], MIXER_PAN_LEFT); - vol[1]=MIXER(intf->mixing_level[1], MIXER_PAN_RIGHT); - qsound_stream = stream_init_multi( - CHANNELS, - name, - vol, - Machine->sample_rate, - 0, - qsound_update ); - } -#endif -#if LOG_WAVE - qs->fpRawDataR=fopen("qsoundr.raw", "w+b"); - qs->fpRawDataL=fopen("qsoundl.raw", "w+b"); - if (!qs->fpRawDataR || !qs->fpRawDataL) - { - return NULL; - } -#endif - - return qs; -} - -void qsound_sh_stop (qsound_state_t *qs) -{ - if (qs) { -#if LOG_WAVE - if (qs->fpRawDataR) - { - fclose(qs->fpRawDataR); - } - if (qs->fpRawDataL) - { - fclose(qs->fpRawDataL); - } -#endif - free (qs); - } -} - -void qsound_data_h_w(qsound_state_t *qs, int data) -{ - qs->qsound_data=(qs->qsound_data&0xff)|(data<<8); -} - -void qsound_data_l_w(qsound_state_t *qs, int data) -{ - qs->qsound_data=(qs->qsound_data&0xff00)|data; -} - -void qsound_cmd_w(qsound_state_t *qs, int data) -{ -// printf("QS: cmd %x, data %x\n", data, qs->qsound_data); - qsound_set_command(qs, data, qs->qsound_data); -} - -int qsound_status_r(qsound_state_t *qs) -{ - /* Port ready bit (0x80 if ready) */ - return 0x80; -} - -void qsound_set_command(qsound_state_t *qs, int data, int value) -{ - int ch=0,reg=0; - if (data < 0x80) - { - ch=data>>3; - reg=data & 0x07; - } - else - { - if (data < 0x90) - { - ch=data-0x80; - reg=8; - } - else - { - if (data >= 0xba && data < 0xca) - { - ch=data-0xba; - reg=9; - } - else - { - /* Unknown registers */ - ch=99; - reg=99; - } - } - } - - switch (reg) - { - case 0: /* Bank */ - ch=(ch+1)&0x0f; /* strange ... */ - qs->qsound_channel[ch].bank=(value&0x7f)<<16; - qs->qsound_channel[ch].bank /= LENGTH_DIV; -#ifdef MAME_DEBUG - if (!value & 0x8000) - { - char baf[40]; - sprintf(baf,"Register3=%04x",value); - usrintf_showmessage(baf); - } -#endif - - break; - case 1: /* start */ -// printf("QS: key on ch %02d\n", ch); - qs->qsound_channel[ch].address=value; - qs->qsound_channel[ch].address/=LENGTH_DIV; - break; - case 2: /* pitch */ -#if QSOUND_DRIVER1 - qs->qsound_channel[ch].pitch=(long) - ((float)value * qs->qsound_frq_ratio ); - qs->qsound_channel[ch].pitch/=LENGTH_DIV; -#else - qs->qsound_channel[ch].factor=((float) (value*(6/LENGTH_DIV)) / - (float) Machine->sample_rate)*256.0; - -#endif - if (!value) - { - /* Key off */ -// printf("QS: key off ch %02d\n", ch); - qs->qsound_channel[ch].key=0; - } - break; - case 3: /* unknown */ - qs->qsound_channel[ch].reg3=value; -#ifdef MAME_DEBUG - if (value != 0x8000) - { - char baf[40]; - sprintf(baf,"Register3=%04x",value); - usrintf_showmessage(baf); - } -#endif - break; - case 4: /* loop offset */ - qs->qsound_channel[ch].loop=value/LENGTH_DIV; - break; - case 5: /* end */ - qs->qsound_channel[ch].end=value/LENGTH_DIV; - break; - case 6: /* master volume */ - if (value==0) - { - /* Key off */ - qs->qsound_channel[ch].key=0; - } - else if (qs->qsound_channel[ch].key==0) - { - /* Key on */ - qs->qsound_channel[ch].key=1; -#if QSOUND_DRIVER1 - qs->qsound_channel[ch].offset=0; - qs->qsound_channel[ch].lastdt=0; -#else - qs->qsound_channel[ch].cursor=qs->qsound_channel[ch].address <<8 ; - qs->qsound_channel[ch].buffer=qsound_sample_rom+ - qs->qsound_channel[ch].bank; -#endif - } - qs->qsound_channel[ch].vol=value; -#if QSOUND_DRIVER2 - calcula_mix(ch); -#endif - break; - - case 7: /* unused */ -#ifdef MAME_DEBUG - { - char baf[40]; - sprintf(baf,"UNUSED QSOUND REG 7=%04x",value); - usrintf_showmessage(baf); - } -#endif - - break; - case 8: - { -#if QSOUND_DRIVER1 - int pandata=(value-0x10)&0x3f; - if (pandata > 32) - { - pandata=32; - } - qs->qsound_channel[ch].rvol=qs->qsound_pan_table[pandata]; - qs->qsound_channel[ch].lvol=qs->qsound_pan_table[32-pandata]; -#endif - qs->qsound_channel[ch].pan = value; -#if QSOUND_DRIVER2 - calcula_mix(ch); -#endif - } - break; - case 9: - qs->qsound_channel[ch].reg9=value; -/* -#ifdef MAME_DEBUG - { - char baf[40]; - sprintf(baf,"QSOUND REG 9=%04x",value); - usrintf_showmessage(baf); - } -#endif -*/ - break; - } -#if LOG_QSOUND - logerror("QSOUND WRITE %02x CH%02d-R%02d =%04x\n", data, ch, reg, value); -#endif -} - -#if QSOUND_DRIVER1 - -/* Driver 1 - based on the Amuse source */ - -void qsound_update(qsound_state_t *qs, int num, INT16 **buffer, int length ) -{ - int i,j; - int rvol, lvol, count; - struct QSOUND_CHANNEL *pC=&qs->qsound_channel[0]; - QSOUND_SRC_SAMPLE * pST; - QSOUND_SAMPLE *datap[2]; - - datap[0] = buffer[0]; - datap[1] = buffer[1]; - memset( datap[0], 0x00, length * sizeof(QSOUND_SAMPLE) ); - memset( datap[1], 0x00, length * sizeof(QSOUND_SAMPLE) ); - - - for (i=0; i<QSOUND_CHANNELS; i++) - { - if (pC->key) - { - QSOUND_SAMPLE *pOutL=datap[0]; - QSOUND_SAMPLE *pOutR=datap[1]; - pST=qs->qsound_sample_rom+pC->bank; - - rvol=(pC->rvol*pC->vol)>>(8*LENGTH_DIV); - lvol=(pC->lvol*pC->vol)>>(8*LENGTH_DIV); - - for (j=length-1; j>=0; j--) - { - count=(pC->offset)>>16; - pC->offset &= 0xffff; - if (count) - { - pC->address += count; - if (pC->address >= pC->end) - { - if (!pC->loop) - { - /* Reached the end of a non-looped sample */ - pC->key=0; - break; - } - /* Reached the end, restart the loop */ - pC->address = (pC->end - pC->loop) & 0xffff; - } - pC->lastdt = pST[pC->address]; - } - - (*pOutL) += ((pC->lastdt * lvol) >> 6); - (*pOutR) += ((pC->lastdt * rvol) >> 6); - pOutL++; - pOutR++; - pC->offset += pC->pitch; - } - } - pC++; - } - -#if LOG_WAVE - fwrite(datap[0], length*sizeof(QSOUND_SAMPLE), 1, fpRawDataL); - fwrite(datap[1], length*sizeof(QSOUND_SAMPLE), 1, fpRawDataR); -#endif -} - -#else - -/* ---------------------------------------------------------------- - QSound Sample Mixer (Slow) - Miguel Angel Horna mahorna@teleline.es - - ------------------------------------------------------------------ */ - - -void calcula_mix(int channel) -{ - int factl,factr; - struct qs->qsound_channel *pC=&qs->qsound_channel[channel]; - int vol=pC->vol>>5; - int pan=((pC->pan&0xFF)-0x10)<<3; - pC->mixl=vol; - pC->mixr=vol; - factr=pan; - factl=255-factr; - pC->mixl=(pC->mixl * factl)>>8; - pC->mixr=(pC->mixr * factr)>>8; -#if QSOUND_8BIT_SAMPLES - pC->mixl<<=8; - pC->mixr<<=8; -#endif -} - -void qsound_update(int num,void **buffer,int length) -{ - int i,j; - QSOUND_SAMPLE *bufL,*bufR, sample; - struct qs->qsound_channel *pC=qs->qsound_channel; - - memset( buffer[0], 0x00, length * sizeof(QSOUND_SAMPLE) ); - memset( buffer[1], 0x00, length * sizeof(QSOUND_SAMPLE) ); - - for(j=0;j<qs->qsound_channelS;++j) - { - bufL=(QSOUND_SAMPLE *) buffer[0]; - bufR=(QSOUND_SAMPLE *) buffer[1]; - if(pC->key) - { - for(i=0;i<length;++i) - { - int pos=pC->cursor>>8; - if(pos!=pC->lpos) /*next sample*/ - { - sample=pC->buffer[pos]; - pC->lastsaml=(sample*pC->mixl)>>8; - pC->lastsamr=(sample*pC->mixr)>>8; - pC->lpos=pos; - } - (*bufL++)+=pC->lastsaml; - (*bufR++)+=pC->lastsamr; - pC->cursor+=pC->factor; - if(pC->loop && (pC->cursor>>8) > pC->end) - { - pC->cursor=(pC->end-pC->loop)<<8; - } - else if((pC->cursor>>8) > pC->end) - pC->key=0; - } - } - pC++; - } -} -#endif - - -/**************** end of file ****************/ diff --git a/plugins/ao/eng_qsf/qsound.h b/plugins/ao/eng_qsf/qsound.h deleted file mode 100644 index 3d4538a6..00000000 --- a/plugins/ao/eng_qsf/qsound.h +++ /dev/null @@ -1,117 +0,0 @@ -/********************************************************* - - Capcom Q-Sound system - -*********************************************************/ - -#ifndef __QSOUND_H__ -#define __QSOUND_H__ - -#define QSOUND_CLOCK 4000000 /* default 4MHz clock */ - -struct QSound_interface -{ - int clock; /* clock */ - char *sample_rom; /* sample data */ -}; - - -/* -Two Q sound drivers: -DRIVER1 Based on the Amuse source -DRIVER2 Miguel Angel Horna (mahorna@teleline.es) -*/ -#define QSOUND_DRIVER1 1 -/* -I don't know whether this system uses 8 bit or 16 bit samples. -If it uses 16 bit samples then the sample ROM loading macros need -to be modified to work with non-intel machines. -*/ -#define QSOUND_8BIT_SAMPLES 1 - -/* -Debug defines -*/ -#define LOG_WAVE 0 -#define LOG_QSOUND 0 - -/* Typedefs & defines */ - -#define QSOUND_DRIVER2 !QSOUND_DRIVER1 - -#if QSOUND_8BIT_SAMPLES -/* 8 bit source ROM samples */ -typedef signed char QSOUND_SRC_SAMPLE; -#define LENGTH_DIV 1 -#else -/* 8 bit source ROM samples */ -typedef signed short QSOUND_SRC_SAMPLE; -#define LENGTH_DIV 2 -#endif - -#define QSOUND_CLOCKDIV 166 /* Clock divider */ -#define QSOUND_CHANNELS 16 -typedef INT16 QSOUND_SAMPLE; - -struct QSOUND_CHANNEL -{ - int bank; /* bank (x16) */ - int address; /* start address */ - int pitch; /* pitch */ - int reg3; /* unknown (always 0x8000) */ - int loop; /* loop address */ - int end; /* end address */ - int vol; /* master volume */ - int pan; /* Pan value */ - int reg9; /* unknown */ - - /* Work variables */ - int key; /* Key on / key off */ - -#if QSOUND_DRIVER1 - int lvol; /* left volume */ - int rvol; /* right volume */ - int lastdt; /* last sample value */ - int offset; /* current offset counter */ -#else - QSOUND_SRC_SAMPLE *buffer; - int factor; /*step factor (fixed point 8-bit)*/ - int mixl,mixr; /*mixing factor (fixed point)*/ - int cursor; /*current sample position (fixed point)*/ - int lpos; /*last cursor pos*/ - int lastsaml; /*last left sample (to avoid any calculation)*/ - int lastsamr; /*last right sample*/ -#endif -}; - - -typedef struct { - /* Private variables */ - struct QSound_interface intf; /* Interface */ - int qsound_stream; /* Audio stream */ - struct QSOUND_CHANNEL qsound_channel[QSOUND_CHANNELS]; - int qsound_data; /* register latch data */ - QSOUND_SRC_SAMPLE *qsound_sample_rom; /* Q sound sample ROM */ - -#if QSOUND_DRIVER1 - int qsound_pan_table[33]; /* Pan volume table */ - float qsound_frq_ratio; /* Frequency ratio */ -#endif - -#if LOG_WAVE - FILE *fpRawDataL; - FILE *fpRawDataR; -#endif -} qsound_state_t; - -qsound_state_t *qsound_sh_start(struct QSound_interface *qsintf); -void qsound_sh_stop(qsound_state_t *qs); - -void qsound_data_h_w(qsound_state_t *qs, int data); -void qsound_data_l_w(qsound_state_t *qs, int data); -void qsound_cmd_w(qsound_state_t *qs, int data); -int qsound_status_r(qsound_state_t *qs); -void qsound_update(qsound_state_t *qs, int num, INT16 **buffer, int length); -void qsound_set_command(qsound_state_t *qs, int data, int value); - -#endif /* __QSOUND_H__ */ diff --git a/plugins/ao/eng_qsf/z80.c b/plugins/ao/eng_qsf/z80.c deleted file mode 100644 index 91e873a3..00000000 --- a/plugins/ao/eng_qsf/z80.c +++ /dev/null @@ -1,4425 +0,0 @@ -/***************************************************************************** - * - * z80.c - * Portable Z80 emulator V3.5 - * - * Copyright (C) 1998,1999,2000 Juergen Buchmueller, all rights reserved. - * - * - This source code is released as freeware for non-commercial purposes. - * - You are free to use and redistribute this code in modified or - * unmodified form, provided you list me in the credits. - * - If you modify this source code, you must add a notice to each modified - * source file that it has been changed. If you're a nice person, you - * will clearly mark each change too. :) - * - If you wish to use this for commercial purposes, please contact me at - * pullmoll@t-online.de - * - The author of this copywritten work reserves the right to change the - * terms of its usage and license at any time, including retroactively - * - This entire notice must remain in the source code. - * - * Changes in 3.5 - * - Implemented OTIR, INIR, etc. without look-up table for PF flag. - * [Ramsoft, Sean Young] - * Changes in 3.4 - * - Removed Z80-MSX specific code as it's not needed any more. - * - Implemented DAA without look-up table [Ramsoft, Sean Young] - * Changes in 3.3 - * - Fixed undocumented flags XF & YF in the non-asm versions of CP, - * and all the 16 bit arithmetic instructions. [Sean Young] - * Changes in 3.2 - * - Fixed undocumented flags XF & YF of RRCA, and CF and HF of - * INI/IND/OUTI/OUTD/INIR/INDR/OTIR/OTDR [Sean Young] - * Changes in 3.1 - * - removed the REPEAT_AT_ONCE execution of LDIR/CPIR etc. opcodes - * for readabilities sake and because the implementation was buggy - * (and I was not able to find the difference) - * Changes in 3.0 - * - 'finished' switch to dynamically overrideable cycle count tables - * Changes in 2.9: - * - added methods to access and override the cycle count tables - * - fixed handling and timing of multiple DD/FD prefixed opcodes - * Changes in 2.8: - * - OUTI/OUTD/OTIR/OTDR also pre-decrement the B register now. - * This was wrong because of a bug fix on the wrong side - * (astrocade sound driver). - * Changes in 2.7: - * - removed z80_vm specific code, it's not needed (and never was). - * Changes in 2.6: - * - BUSY_LOOP_HACKS needed to call change_pc16() earlier, before - * checking the opcodes at the new address, because otherwise they - * might access the old (wrong or even NULL) banked memory region. - * Thanks to Sean Young for finding this nasty bug. - * Changes in 2.5: - * - Burning cycles always adjusts the ICount by a multiple of 4. - * - In REPEAT_AT_ONCE cases the R register wasn't incremented twice - * per repetition as it should have been. Those repeated opcodes - * could also underflow the ICount. - * - Simplified TIME_LOOP_HACKS for BC and added two more for DE + HL - * timing loops. I think those hacks weren't endian safe before too. - * Changes in 2.4: - * - z80_reset zaps the entire context, sets IX and IY to 0xffff(!) and - * sets the Z flag. With these changes the Tehkan World Cup driver - * _seems_ to work again. - * Changes in 2.3: - * - External termination of the execution loop calls z80_burn() and - * z80_vm_burn() to burn an amount of cycles (R adjustment) - * - Shortcuts which burn CPU cycles (BUSY_LOOP_HACKS and TIME_LOOP_HACKS) - * now also adjust the R register depending on the skipped opcodes. - * Changes in 2.2: - * - Fixed bugs in CPL, SCF and CCF instructions flag handling. - * - Changed variable EA and ARG16() function to UINT32; this - * produces slightly more efficient code. - * - The DD/FD XY CB opcodes where XY is 40-7F and Y is not 6/E - * are changed to calls to the X6/XE opcodes to reduce object size. - * They're hardly ever used so this should not yield a speed penalty. - * New in 2.0: - * - Optional more exact Z80 emulation (#define Z80_EXACT 1) according - * to a detailed description by Sean Young which can be found at: - * http://www.msxnet.org/tech/z80-documented.pdf - *****************************************************************************/ - -#include "ao.h" - -#include "cpuintrf.h" -#include "z80.h" - -#include "mem.h" - -static UINT8 z80_reg_layout[] = { - Z80_PC, Z80_SP, Z80_AF, Z80_BC, Z80_DE, Z80_HL, -1, - Z80_IX, Z80_IY, Z80_AF2,Z80_BC2,Z80_DE2,Z80_HL2,-1, - Z80_R, Z80_I, Z80_IM, Z80_IFF1,Z80_IFF2, -1, - Z80_NMI_STATE,Z80_IRQ_STATE,Z80_DC0,Z80_DC1,Z80_DC2,Z80_DC3, 0 -}; - -static UINT8 z80_win_layout[] = { - 27, 0,53, 4, /* register window (top rows) */ - 0, 0,26,22, /* disassembler window (left colums) */ - 27, 5,53, 8, /* memory #1 window (right, upper middle) */ - 27,14,53, 8, /* memory #2 window (right, lower middle) */ - 0,23,80, 1, /* command line window (bottom rows) */ -}; - -#define CF 0x01 -#define NF 0x02 -#define PF 0x04 -#define VF PF -#define XF 0x08 -#define HF 0x10 -#define YF 0x20 -#define ZF 0x40 -#define SF 0x80 - -#define INT_IRQ 0x01 -#define NMI_IRQ 0x02 - -#define _PPC z80->Z80.PREPC.d /* previous program counter */ - -#define _PCD z80->Z80.PC.d -#define _PC z80->Z80.PC.w.l - -#define _SPD z80->Z80.SP.d -#define _SP z80->Z80.SP.w.l - -#define _AFD z80->Z80.AF.d -#define _AF z80->Z80.AF.w.l -#define _Z80_A z80->Z80.AF.b.h -#define _F z80->Z80.AF.b.l - -#define _BCD z80->Z80.BC.d -#define _BC z80->Z80.BC.w.l -#define _Z80_B z80->Z80.BC.b.h -#define _Z80_C z80->Z80.BC.b.l - -#define _DED z80->Z80.DE.d -#define _DE z80->Z80.DE.w.l -#define _Z80_D z80->Z80.DE.b.h -#define _Z80_E z80->Z80.DE.b.l - -#define _HLD z80->Z80.HL.d -#define _HL z80->Z80.HL.w.l -#define _Z80_H z80->Z80.HL.b.h -#define _Z80_L z80->Z80.HL.b.l - -#define _IXD z80->Z80.IX.d -#define _IX z80->Z80.IX.w.l -#define _HX z80->Z80.IX.b.h -#define _LX z80->Z80.IX.b.l - -#define _IYD z80->Z80.IY.d -#define _IY z80->Z80.IY.w.l -#define _HY z80->Z80.IY.b.h -#define _LY z80->Z80.IY.b.l - -#define _Z80_I z80->Z80.I -#define _Z80_R z80->Z80.R -#define _R2 z80->Z80.R2 -#define _IM z80->Z80.IM -#define _IFF1 z80->Z80.IFF1 -#define _IFF2 z80->Z80.IFF2 -#define _HALT z80->Z80.HALT - -static const UINT8 cc_op[0x100] = { - 4,10, 7, 6, 4, 4, 7, 4, 4,11, 7, 6, 4, 4, 7, 4, - 8,10, 7, 6, 4, 4, 7, 4,12,11, 7, 6, 4, 4, 7, 4, - 7,10,16, 6, 4, 4, 7, 4, 7,11,16, 6, 4, 4, 7, 4, - 7,10,13, 6,11,11,10, 4, 7,11,13, 6, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 7, 7, 7, 7, 7, 7, 4, 7, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 4, 4, 4, 4, 4, 4, 7, 4, 4, 4, 4, 4, 4, 4, 7, 4, - 5,10,10,10,10,11, 7,11, 5,10,10, 0,10,17, 7,11, - 5,10,10,11,10,11, 7,11, 5, 4,10,11,10, 0, 7,11, - 5,10,10,19,10,11, 7,11, 5, 4,10, 4,10, 0, 7,11, - 5,10,10, 4,10,11, 7,11, 5, 6,10, 4,10, 0, 7,11}; - -static const UINT8 cc_cb[0x100] = { - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8, - 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8, - 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8, - 8, 8, 8, 8, 8, 8,12, 8, 8, 8, 8, 8, 8, 8,12, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8, - 8, 8, 8, 8, 8, 8,15, 8, 8, 8, 8, 8, 8, 8,15, 8}; - -static const UINT8 cc_ed[0x100] = { - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, -12,12,15,20, 8, 8, 8, 9,12,12,15,20, 8, 8, 8, 9, -12,12,15,20, 8, 8, 8, 9,12,12,15,20, 8, 8, 8, 9, -12,12,15,20, 8, 8, 8,18,12,12,15,20, 8, 8, 8,18, -12,12,15,20, 8, 8, 8, 8,12,12,15,20, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, -16,16,16,16, 8, 8, 8, 8,16,16,16,16, 8, 8, 8, 8, -16,16,16,16, 8, 8, 8, 8,16,16,16,16, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, - 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8}; - -static const UINT8 cc_xy[0x100] = { - 4, 4, 4, 4, 4, 4, 4, 4, 4,15, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4,15, 4, 4, 4, 4, 4, 4, - 4,14,20,10, 9, 9, 9, 4, 4,15,20,10, 9, 9, 9, 4, - 4, 4, 4, 4,23,23,19, 4, 4,15, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 9, 9, 9, 9, 9, 9,19, 9, 9, 9, 9, 9, 9, 9,19, 9, -19,19,19,19,19,19, 4,19, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 9, 9,19, 4, 4, 4, 4, 4, 9, 9,19, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 0, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, - 4,14, 4,23, 4,15, 4, 4, 4, 8, 4, 4, 4, 4, 4, 4, - 4, 4, 4, 4, 4, 4, 4, 4, 4,10, 4, 4, 4, 4, 4, 4}; - -static const UINT8 cc_xycb[0x100] = { -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, -20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, -20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, -20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, -23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23}; - -/* extra cycles if jr/jp/call taken and 'interrupt latency' on rst 0-7 */ -static const UINT8 cc_ex[0x100] = { - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* DJNZ */ - 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, /* JR NZ/JR Z */ - 5, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, 0, /* JR NC/JR C */ - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 5, 5, 5, 5, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 0, /* LDIR/CPIR/INIR/OTIR LDDR/CPDR/INDR/OTDR */ - 6, 0, 0, 0, 7, 0, 0, 2, 6, 0, 0, 0, 7, 0, 0, 2, - 6, 0, 0, 0, 7, 0, 0, 2, 6, 0, 0, 0, 7, 0, 0, 2, - 6, 0, 0, 0, 7, 0, 0, 2, 6, 0, 0, 0, 7, 0, 0, 2, - 6, 0, 0, 0, 7, 0, 0, 2, 6, 0, 0, 0, 7, 0, 0, 2}; - -static const UINT8 *cc[6] = { cc_op, cc_cb, cc_ed, cc_xy, cc_xycb, cc_ex }; -#define Z80_TABLE_dd Z80_TABLE_xy -#define Z80_TABLE_fd Z80_TABLE_xy - -static void take_interrupt(z80_state_t *z80); - -typedef void (*funcptr)(z80_state_t *z80); - -#define PROTOTYPES(tablename,prefix) \ - static INLINE void prefix##_00(z80_state_t *z80); static INLINE void prefix##_01(z80_state_t *z80); static INLINE void prefix##_02(z80_state_t *z80); static INLINE void prefix##_03(z80_state_t *z80); \ - static INLINE void prefix##_04(z80_state_t *z80); static INLINE void prefix##_05(z80_state_t *z80); static INLINE void prefix##_06(z80_state_t *z80); static INLINE void prefix##_07(z80_state_t *z80); \ - static INLINE void prefix##_08(z80_state_t *z80); static INLINE void prefix##_09(z80_state_t *z80); static INLINE void prefix##_0a(z80_state_t *z80); static INLINE void prefix##_0b(z80_state_t *z80); \ - static INLINE void prefix##_0c(z80_state_t *z80); static INLINE void prefix##_0d(z80_state_t *z80); static INLINE void prefix##_0e(z80_state_t *z80); static INLINE void prefix##_0f(z80_state_t *z80); \ - static INLINE void prefix##_10(z80_state_t *z80); static INLINE void prefix##_11(z80_state_t *z80); static INLINE void prefix##_12(z80_state_t *z80); static INLINE void prefix##_13(z80_state_t *z80); \ - static INLINE void prefix##_14(z80_state_t *z80); static INLINE void prefix##_15(z80_state_t *z80); static INLINE void prefix##_16(z80_state_t *z80); static INLINE void prefix##_17(z80_state_t *z80); \ - static INLINE void prefix##_18(z80_state_t *z80); static INLINE void prefix##_19(z80_state_t *z80); static INLINE void prefix##_1a(z80_state_t *z80); static INLINE void prefix##_1b(z80_state_t *z80); \ - static INLINE void prefix##_1c(z80_state_t *z80); static INLINE void prefix##_1d(z80_state_t *z80); static INLINE void prefix##_1e(z80_state_t *z80); static INLINE void prefix##_1f(z80_state_t *z80); \ - static INLINE void prefix##_20(z80_state_t *z80); static INLINE void prefix##_21(z80_state_t *z80); static INLINE void prefix##_22(z80_state_t *z80); static INLINE void prefix##_23(z80_state_t *z80); \ - static INLINE void prefix##_24(z80_state_t *z80); static INLINE void prefix##_25(z80_state_t *z80); static INLINE void prefix##_26(z80_state_t *z80); static INLINE void prefix##_27(z80_state_t *z80); \ - static INLINE void prefix##_28(z80_state_t *z80); static INLINE void prefix##_29(z80_state_t *z80); static INLINE void prefix##_2a(z80_state_t *z80); static INLINE void prefix##_2b(z80_state_t *z80); \ - static INLINE void prefix##_2c(z80_state_t *z80); static INLINE void prefix##_2d(z80_state_t *z80); static INLINE void prefix##_2e(z80_state_t *z80); static INLINE void prefix##_2f(z80_state_t *z80); \ - static INLINE void prefix##_30(z80_state_t *z80); static INLINE void prefix##_31(z80_state_t *z80); static INLINE void prefix##_32(z80_state_t *z80); static INLINE void prefix##_33(z80_state_t *z80); \ - static INLINE void prefix##_34(z80_state_t *z80); static INLINE void prefix##_35(z80_state_t *z80); static INLINE void prefix##_36(z80_state_t *z80); static INLINE void prefix##_37(z80_state_t *z80); \ - static INLINE void prefix##_38(z80_state_t *z80); static INLINE void prefix##_39(z80_state_t *z80); static INLINE void prefix##_3a(z80_state_t *z80); static INLINE void prefix##_3b(z80_state_t *z80); \ - static INLINE void prefix##_3c(z80_state_t *z80); static INLINE void prefix##_3d(z80_state_t *z80); static INLINE void prefix##_3e(z80_state_t *z80); static INLINE void prefix##_3f(z80_state_t *z80); \ - static INLINE void prefix##_40(z80_state_t *z80); static INLINE void prefix##_41(z80_state_t *z80); static INLINE void prefix##_42(z80_state_t *z80); static INLINE void prefix##_43(z80_state_t *z80); \ - static INLINE void prefix##_44(z80_state_t *z80); static INLINE void prefix##_45(z80_state_t *z80); static INLINE void prefix##_46(z80_state_t *z80); static INLINE void prefix##_47(z80_state_t *z80); \ - static INLINE void prefix##_48(z80_state_t *z80); static INLINE void prefix##_49(z80_state_t *z80); static INLINE void prefix##_4a(z80_state_t *z80); static INLINE void prefix##_4b(z80_state_t *z80); \ - static INLINE void prefix##_4c(z80_state_t *z80); static INLINE void prefix##_4d(z80_state_t *z80); static INLINE void prefix##_4e(z80_state_t *z80); static INLINE void prefix##_4f(z80_state_t *z80); \ - static INLINE void prefix##_50(z80_state_t *z80); static INLINE void prefix##_51(z80_state_t *z80); static INLINE void prefix##_52(z80_state_t *z80); static INLINE void prefix##_53(z80_state_t *z80); \ - static INLINE void prefix##_54(z80_state_t *z80); static INLINE void prefix##_55(z80_state_t *z80); static INLINE void prefix##_56(z80_state_t *z80); static INLINE void prefix##_57(z80_state_t *z80); \ - static INLINE void prefix##_58(z80_state_t *z80); static INLINE void prefix##_59(z80_state_t *z80); static INLINE void prefix##_5a(z80_state_t *z80); static INLINE void prefix##_5b(z80_state_t *z80); \ - static INLINE void prefix##_5c(z80_state_t *z80); static INLINE void prefix##_5d(z80_state_t *z80); static INLINE void prefix##_5e(z80_state_t *z80); static INLINE void prefix##_5f(z80_state_t *z80); \ - static INLINE void prefix##_60(z80_state_t *z80); static INLINE void prefix##_61(z80_state_t *z80); static INLINE void prefix##_62(z80_state_t *z80); static INLINE void prefix##_63(z80_state_t *z80); \ - static INLINE void prefix##_64(z80_state_t *z80); static INLINE void prefix##_65(z80_state_t *z80); static INLINE void prefix##_66(z80_state_t *z80); static INLINE void prefix##_67(z80_state_t *z80); \ - static INLINE void prefix##_68(z80_state_t *z80); static INLINE void prefix##_69(z80_state_t *z80); static INLINE void prefix##_6a(z80_state_t *z80); static INLINE void prefix##_6b(z80_state_t *z80); \ - static INLINE void prefix##_6c(z80_state_t *z80); static INLINE void prefix##_6d(z80_state_t *z80); static INLINE void prefix##_6e(z80_state_t *z80); static INLINE void prefix##_6f(z80_state_t *z80); \ - static INLINE void prefix##_70(z80_state_t *z80); static INLINE void prefix##_71(z80_state_t *z80); static INLINE void prefix##_72(z80_state_t *z80); static INLINE void prefix##_73(z80_state_t *z80); \ - static INLINE void prefix##_74(z80_state_t *z80); static INLINE void prefix##_75(z80_state_t *z80); static INLINE void prefix##_76(z80_state_t *z80); static INLINE void prefix##_77(z80_state_t *z80); \ - static INLINE void prefix##_78(z80_state_t *z80); static INLINE void prefix##_79(z80_state_t *z80); static INLINE void prefix##_7a(z80_state_t *z80); static INLINE void prefix##_7b(z80_state_t *z80); \ - static INLINE void prefix##_7c(z80_state_t *z80); static INLINE void prefix##_7d(z80_state_t *z80); static INLINE void prefix##_7e(z80_state_t *z80); static INLINE void prefix##_7f(z80_state_t *z80); \ - static INLINE void prefix##_80(z80_state_t *z80); static INLINE void prefix##_81(z80_state_t *z80); static INLINE void prefix##_82(z80_state_t *z80); static INLINE void prefix##_83(z80_state_t *z80); \ - static INLINE void prefix##_84(z80_state_t *z80); static INLINE void prefix##_85(z80_state_t *z80); static INLINE void prefix##_86(z80_state_t *z80); static INLINE void prefix##_87(z80_state_t *z80); \ - static INLINE void prefix##_88(z80_state_t *z80); static INLINE void prefix##_89(z80_state_t *z80); static INLINE void prefix##_8a(z80_state_t *z80); static INLINE void prefix##_8b(z80_state_t *z80); \ - static INLINE void prefix##_8c(z80_state_t *z80); static INLINE void prefix##_8d(z80_state_t *z80); static INLINE void prefix##_8e(z80_state_t *z80); static INLINE void prefix##_8f(z80_state_t *z80); \ - static INLINE void prefix##_90(z80_state_t *z80); static INLINE void prefix##_91(z80_state_t *z80); static INLINE void prefix##_92(z80_state_t *z80); static INLINE void prefix##_93(z80_state_t *z80); \ - static INLINE void prefix##_94(z80_state_t *z80); static INLINE void prefix##_95(z80_state_t *z80); static INLINE void prefix##_96(z80_state_t *z80); static INLINE void prefix##_97(z80_state_t *z80); \ - static INLINE void prefix##_98(z80_state_t *z80); static INLINE void prefix##_99(z80_state_t *z80); static INLINE void prefix##_9a(z80_state_t *z80); static INLINE void prefix##_9b(z80_state_t *z80); \ - static INLINE void prefix##_9c(z80_state_t *z80); static INLINE void prefix##_9d(z80_state_t *z80); static INLINE void prefix##_9e(z80_state_t *z80); static INLINE void prefix##_9f(z80_state_t *z80); \ - static INLINE void prefix##_a0(z80_state_t *z80); static INLINE void prefix##_a1(z80_state_t *z80); static INLINE void prefix##_a2(z80_state_t *z80); static INLINE void prefix##_a3(z80_state_t *z80); \ - static INLINE void prefix##_a4(z80_state_t *z80); static INLINE void prefix##_a5(z80_state_t *z80); static INLINE void prefix##_a6(z80_state_t *z80); static INLINE void prefix##_a7(z80_state_t *z80); \ - static INLINE void prefix##_a8(z80_state_t *z80); static INLINE void prefix##_a9(z80_state_t *z80); static INLINE void prefix##_aa(z80_state_t *z80); static INLINE void prefix##_ab(z80_state_t *z80); \ - static INLINE void prefix##_ac(z80_state_t *z80); static INLINE void prefix##_ad(z80_state_t *z80); static INLINE void prefix##_ae(z80_state_t *z80); static INLINE void prefix##_af(z80_state_t *z80); \ - static INLINE void prefix##_b0(z80_state_t *z80); static INLINE void prefix##_b1(z80_state_t *z80); static INLINE void prefix##_b2(z80_state_t *z80); static INLINE void prefix##_b3(z80_state_t *z80); \ - static INLINE void prefix##_b4(z80_state_t *z80); static INLINE void prefix##_b5(z80_state_t *z80); static INLINE void prefix##_b6(z80_state_t *z80); static INLINE void prefix##_b7(z80_state_t *z80); \ - static INLINE void prefix##_b8(z80_state_t *z80); static INLINE void prefix##_b9(z80_state_t *z80); static INLINE void prefix##_ba(z80_state_t *z80); static INLINE void prefix##_bb(z80_state_t *z80); \ - static INLINE void prefix##_bc(z80_state_t *z80); static INLINE void prefix##_bd(z80_state_t *z80); static INLINE void prefix##_be(z80_state_t *z80); static INLINE void prefix##_bf(z80_state_t *z80); \ - static INLINE void prefix##_c0(z80_state_t *z80); static INLINE void prefix##_c1(z80_state_t *z80); static INLINE void prefix##_c2(z80_state_t *z80); static INLINE void prefix##_c3(z80_state_t *z80); \ - static INLINE void prefix##_c4(z80_state_t *z80); static INLINE void prefix##_c5(z80_state_t *z80); static INLINE void prefix##_c6(z80_state_t *z80); static INLINE void prefix##_c7(z80_state_t *z80); \ - static INLINE void prefix##_c8(z80_state_t *z80); static INLINE void prefix##_c9(z80_state_t *z80); static INLINE void prefix##_ca(z80_state_t *z80); static INLINE void prefix##_cb(z80_state_t *z80); \ - static INLINE void prefix##_cc(z80_state_t *z80); static INLINE void prefix##_cd(z80_state_t *z80); static INLINE void prefix##_ce(z80_state_t *z80); static INLINE void prefix##_cf(z80_state_t *z80); \ - static INLINE void prefix##_d0(z80_state_t *z80); static INLINE void prefix##_d1(z80_state_t *z80); static INLINE void prefix##_d2(z80_state_t *z80); static INLINE void prefix##_d3(z80_state_t *z80); \ - static INLINE void prefix##_d4(z80_state_t *z80); static INLINE void prefix##_d5(z80_state_t *z80); static INLINE void prefix##_d6(z80_state_t *z80); static INLINE void prefix##_d7(z80_state_t *z80); \ - static INLINE void prefix##_d8(z80_state_t *z80); static INLINE void prefix##_d9(z80_state_t *z80); static INLINE void prefix##_da(z80_state_t *z80); static INLINE void prefix##_db(z80_state_t *z80); \ - static INLINE void prefix##_dc(z80_state_t *z80); static INLINE void prefix##_dd(z80_state_t *z80); static INLINE void prefix##_de(z80_state_t *z80); static INLINE void prefix##_df(z80_state_t *z80); \ - static INLINE void prefix##_e0(z80_state_t *z80); static INLINE void prefix##_e1(z80_state_t *z80); static INLINE void prefix##_e2(z80_state_t *z80); static INLINE void prefix##_e3(z80_state_t *z80); \ - static INLINE void prefix##_e4(z80_state_t *z80); static INLINE void prefix##_e5(z80_state_t *z80); static INLINE void prefix##_e6(z80_state_t *z80); static INLINE void prefix##_e7(z80_state_t *z80); \ - static INLINE void prefix##_e8(z80_state_t *z80); static INLINE void prefix##_e9(z80_state_t *z80); static INLINE void prefix##_ea(z80_state_t *z80); static INLINE void prefix##_eb(z80_state_t *z80); \ - static INLINE void prefix##_ec(z80_state_t *z80); static INLINE void prefix##_ed(z80_state_t *z80); static INLINE void prefix##_ee(z80_state_t *z80); static INLINE void prefix##_ef(z80_state_t *z80); \ - static INLINE void prefix##_f0(z80_state_t *z80); static INLINE void prefix##_f1(z80_state_t *z80); static INLINE void prefix##_f2(z80_state_t *z80); static INLINE void prefix##_f3(z80_state_t *z80); \ - static INLINE void prefix##_f4(z80_state_t *z80); static INLINE void prefix##_f5(z80_state_t *z80); static INLINE void prefix##_f6(z80_state_t *z80); static INLINE void prefix##_f7(z80_state_t *z80); \ - static INLINE void prefix##_f8(z80_state_t *z80); static INLINE void prefix##_f9(z80_state_t *z80); static INLINE void prefix##_fa(z80_state_t *z80); static INLINE void prefix##_fb(z80_state_t *z80); \ - static INLINE void prefix##_fc(z80_state_t *z80); static INLINE void prefix##_fd(z80_state_t *z80); static INLINE void prefix##_fe(z80_state_t *z80); static INLINE void prefix##_ff(z80_state_t *z80); \ -static const funcptr tablename[0x100] = { \ - prefix##_00,prefix##_01,prefix##_02,prefix##_03,prefix##_04,prefix##_05,prefix##_06,prefix##_07, \ - prefix##_08,prefix##_09,prefix##_0a,prefix##_0b,prefix##_0c,prefix##_0d,prefix##_0e,prefix##_0f, \ - prefix##_10,prefix##_11,prefix##_12,prefix##_13,prefix##_14,prefix##_15,prefix##_16,prefix##_17, \ - prefix##_18,prefix##_19,prefix##_1a,prefix##_1b,prefix##_1c,prefix##_1d,prefix##_1e,prefix##_1f, \ - prefix##_20,prefix##_21,prefix##_22,prefix##_23,prefix##_24,prefix##_25,prefix##_26,prefix##_27, \ - prefix##_28,prefix##_29,prefix##_2a,prefix##_2b,prefix##_2c,prefix##_2d,prefix##_2e,prefix##_2f, \ - prefix##_30,prefix##_31,prefix##_32,prefix##_33,prefix##_34,prefix##_35,prefix##_36,prefix##_37, \ - prefix##_38,prefix##_39,prefix##_3a,prefix##_3b,prefix##_3c,prefix##_3d,prefix##_3e,prefix##_3f, \ - prefix##_40,prefix##_41,prefix##_42,prefix##_43,prefix##_44,prefix##_45,prefix##_46,prefix##_47, \ - prefix##_48,prefix##_49,prefix##_4a,prefix##_4b,prefix##_4c,prefix##_4d,prefix##_4e,prefix##_4f, \ - prefix##_50,prefix##_51,prefix##_52,prefix##_53,prefix##_54,prefix##_55,prefix##_56,prefix##_57, \ - prefix##_58,prefix##_59,prefix##_5a,prefix##_5b,prefix##_5c,prefix##_5d,prefix##_5e,prefix##_5f, \ - prefix##_60,prefix##_61,prefix##_62,prefix##_63,prefix##_64,prefix##_65,prefix##_66,prefix##_67, \ - prefix##_68,prefix##_69,prefix##_6a,prefix##_6b,prefix##_6c,prefix##_6d,prefix##_6e,prefix##_6f, \ - prefix##_70,prefix##_71,prefix##_72,prefix##_73,prefix##_74,prefix##_75,prefix##_76,prefix##_77, \ - prefix##_78,prefix##_79,prefix##_7a,prefix##_7b,prefix##_7c,prefix##_7d,prefix##_7e,prefix##_7f, \ - prefix##_80,prefix##_81,prefix##_82,prefix##_83,prefix##_84,prefix##_85,prefix##_86,prefix##_87, \ - prefix##_88,prefix##_89,prefix##_8a,prefix##_8b,prefix##_8c,prefix##_8d,prefix##_8e,prefix##_8f, \ - prefix##_90,prefix##_91,prefix##_92,prefix##_93,prefix##_94,prefix##_95,prefix##_96,prefix##_97, \ - prefix##_98,prefix##_99,prefix##_9a,prefix##_9b,prefix##_9c,prefix##_9d,prefix##_9e,prefix##_9f, \ - prefix##_a0,prefix##_a1,prefix##_a2,prefix##_a3,prefix##_a4,prefix##_a5,prefix##_a6,prefix##_a7, \ - prefix##_a8,prefix##_a9,prefix##_aa,prefix##_ab,prefix##_ac,prefix##_ad,prefix##_ae,prefix##_af, \ - prefix##_b0,prefix##_b1,prefix##_b2,prefix##_b3,prefix##_b4,prefix##_b5,prefix##_b6,prefix##_b7, \ - prefix##_b8,prefix##_b9,prefix##_ba,prefix##_bb,prefix##_bc,prefix##_bd,prefix##_be,prefix##_bf, \ - prefix##_c0,prefix##_c1,prefix##_c2,prefix##_c3,prefix##_c4,prefix##_c5,prefix##_c6,prefix##_c7, \ - prefix##_c8,prefix##_c9,prefix##_ca,prefix##_cb,prefix##_cc,prefix##_cd,prefix##_ce,prefix##_cf, \ - prefix##_d0,prefix##_d1,prefix##_d2,prefix##_d3,prefix##_d4,prefix##_d5,prefix##_d6,prefix##_d7, \ - prefix##_d8,prefix##_d9,prefix##_da,prefix##_db,prefix##_dc,prefix##_dd,prefix##_de,prefix##_df, \ - prefix##_e0,prefix##_e1,prefix##_e2,prefix##_e3,prefix##_e4,prefix##_e5,prefix##_e6,prefix##_e7, \ - prefix##_e8,prefix##_e9,prefix##_ea,prefix##_eb,prefix##_ec,prefix##_ed,prefix##_ee,prefix##_ef, \ - prefix##_f0,prefix##_f1,prefix##_f2,prefix##_f3,prefix##_f4,prefix##_f5,prefix##_f6,prefix##_f7, \ - prefix##_f8,prefix##_f9,prefix##_fa,prefix##_fb,prefix##_fc,prefix##_fd,prefix##_fe,prefix##_ff \ -} - -PROTOTYPES(Z80op,op); -PROTOTYPES(Z80cb,cb); -PROTOTYPES(Z80dd,dd); -PROTOTYPES(Z80ed,ed); -PROTOTYPES(Z80fd,fd); -PROTOTYPES(Z80xycb,xycb); - -/****************************************************************************/ -/* Burn an odd amount of cycles, that is instructions taking something */ -/* different from 4 T-states per opcode (and R increment) */ -/****************************************************************************/ -static INLINE void BURNODD(z80_state_t *z80, int cycles, int opcodes, int cyclesum) -{ - if( cycles > 0 ) - { - _Z80_R += (cycles / cyclesum) * opcodes; - z80->z80_ICount -= (cycles / cyclesum) * cyclesum; - } -} - -/*************************************************************** - * define an opcode function - ***************************************************************/ -#define OP(prefix,opcode) static INLINE void prefix##_##opcode(z80_state_t *z80) - -/*************************************************************** - * adjust cycle count by n T-states - ***************************************************************/ -#define CC(prefix,opcode) z80->z80_ICount -= cc[Z80_TABLE_##prefix][opcode] - -/*************************************************************** - * execute an opcode - ***************************************************************/ -#define EXEC(prefix,opcode) \ -{ \ - unsigned op = opcode; \ - CC(prefix,op); \ - (*Z80##prefix[op])(z80); \ -} - -#if BIG_SWITCH -#define EXEC_INLINE(prefix,opcode) \ -{ \ - unsigned op = opcode; \ - CC(prefix,op); \ - switch(op) \ - { \ - case 0x00:prefix##_##00(z80);break; case 0x01:prefix##_##01(z80);break; case 0x02:prefix##_##02(z80);break; case 0x03:prefix##_##03(z80);break; \ - case 0x04:prefix##_##04(z80);break; case 0x05:prefix##_##05(z80);break; case 0x06:prefix##_##06(z80);break; case 0x07:prefix##_##07(z80);break; \ - case 0x08:prefix##_##08(z80);break; case 0x09:prefix##_##09(z80);break; case 0x0a:prefix##_##0a(z80);break; case 0x0b:prefix##_##0b(z80);break; \ - case 0x0c:prefix##_##0c(z80);break; case 0x0d:prefix##_##0d(z80);break; case 0x0e:prefix##_##0e(z80);break; case 0x0f:prefix##_##0f(z80);break; \ - case 0x10:prefix##_##10(z80);break; case 0x11:prefix##_##11(z80);break; case 0x12:prefix##_##12(z80);break; case 0x13:prefix##_##13(z80);break; \ - case 0x14:prefix##_##14(z80);break; case 0x15:prefix##_##15(z80);break; case 0x16:prefix##_##16(z80);break; case 0x17:prefix##_##17(z80);break; \ - case 0x18:prefix##_##18(z80);break; case 0x19:prefix##_##19(z80);break; case 0x1a:prefix##_##1a(z80);break; case 0x1b:prefix##_##1b(z80);break; \ - case 0x1c:prefix##_##1c(z80);break; case 0x1d:prefix##_##1d(z80);break; case 0x1e:prefix##_##1e(z80);break; case 0x1f:prefix##_##1f(z80);break; \ - case 0x20:prefix##_##20(z80);break; case 0x21:prefix##_##21(z80);break; case 0x22:prefix##_##22(z80);break; case 0x23:prefix##_##23(z80);break; \ - case 0x24:prefix##_##24(z80);break; case 0x25:prefix##_##25(z80);break; case 0x26:prefix##_##26(z80);break; case 0x27:prefix##_##27(z80);break; \ - case 0x28:prefix##_##28(z80);break; case 0x29:prefix##_##29(z80);break; case 0x2a:prefix##_##2a(z80);break; case 0x2b:prefix##_##2b(z80);break; \ - case 0x2c:prefix##_##2c(z80);break; case 0x2d:prefix##_##2d(z80);break; case 0x2e:prefix##_##2e(z80);break; case 0x2f:prefix##_##2f(z80);break; \ - case 0x30:prefix##_##30(z80);break; case 0x31:prefix##_##31(z80);break; case 0x32:prefix##_##32(z80);break; case 0x33:prefix##_##33(z80);break; \ - case 0x34:prefix##_##34(z80);break; case 0x35:prefix##_##35(z80);break; case 0x36:prefix##_##36(z80);break; case 0x37:prefix##_##37(z80);break; \ - case 0x38:prefix##_##38(z80);break; case 0x39:prefix##_##39(z80);break; case 0x3a:prefix##_##3a(z80);break; case 0x3b:prefix##_##3b(z80);break; \ - case 0x3c:prefix##_##3c(z80);break; case 0x3d:prefix##_##3d(z80);break; case 0x3e:prefix##_##3e(z80);break; case 0x3f:prefix##_##3f(z80);break; \ - case 0x40:prefix##_##40(z80);break; case 0x41:prefix##_##41(z80);break; case 0x42:prefix##_##42(z80);break; case 0x43:prefix##_##43(z80);break; \ - case 0x44:prefix##_##44(z80);break; case 0x45:prefix##_##45(z80);break; case 0x46:prefix##_##46(z80);break; case 0x47:prefix##_##47(z80);break; \ - case 0x48:prefix##_##48(z80);break; case 0x49:prefix##_##49(z80);break; case 0x4a:prefix##_##4a(z80);break; case 0x4b:prefix##_##4b(z80);break; \ - case 0x4c:prefix##_##4c(z80);break; case 0x4d:prefix##_##4d(z80);break; case 0x4e:prefix##_##4e(z80);break; case 0x4f:prefix##_##4f(z80);break; \ - case 0x50:prefix##_##50(z80);break; case 0x51:prefix##_##51(z80);break; case 0x52:prefix##_##52(z80);break; case 0x53:prefix##_##53(z80);break; \ - case 0x54:prefix##_##54(z80);break; case 0x55:prefix##_##55(z80);break; case 0x56:prefix##_##56(z80);break; case 0x57:prefix##_##57(z80);break; \ - case 0x58:prefix##_##58(z80);break; case 0x59:prefix##_##59(z80);break; case 0x5a:prefix##_##5a(z80);break; case 0x5b:prefix##_##5b(z80);break; \ - case 0x5c:prefix##_##5c(z80);break; case 0x5d:prefix##_##5d(z80);break; case 0x5e:prefix##_##5e(z80);break; case 0x5f:prefix##_##5f(z80);break; \ - case 0x60:prefix##_##60(z80);break; case 0x61:prefix##_##61(z80);break; case 0x62:prefix##_##62(z80);break; case 0x63:prefix##_##63(z80);break; \ - case 0x64:prefix##_##64(z80);break; case 0x65:prefix##_##65(z80);break; case 0x66:prefix##_##66(z80);break; case 0x67:prefix##_##67(z80);break; \ - case 0x68:prefix##_##68(z80);break; case 0x69:prefix##_##69(z80);break; case 0x6a:prefix##_##6a(z80);break; case 0x6b:prefix##_##6b(z80);break; \ - case 0x6c:prefix##_##6c(z80);break; case 0x6d:prefix##_##6d(z80);break; case 0x6e:prefix##_##6e(z80);break; case 0x6f:prefix##_##6f(z80);break; \ - case 0x70:prefix##_##70(z80);break; case 0x71:prefix##_##71(z80);break; case 0x72:prefix##_##72(z80);break; case 0x73:prefix##_##73(z80);break; \ - case 0x74:prefix##_##74(z80);break; case 0x75:prefix##_##75(z80);break; case 0x76:prefix##_##76(z80);break; case 0x77:prefix##_##77(z80);break; \ - case 0x78:prefix##_##78(z80);break; case 0x79:prefix##_##79(z80);break; case 0x7a:prefix##_##7a(z80);break; case 0x7b:prefix##_##7b(z80);break; \ - case 0x7c:prefix##_##7c(z80);break; case 0x7d:prefix##_##7d(z80);break; case 0x7e:prefix##_##7e(z80);break; case 0x7f:prefix##_##7f(z80);break; \ - case 0x80:prefix##_##80(z80);break; case 0x81:prefix##_##81(z80);break; case 0x82:prefix##_##82(z80);break; case 0x83:prefix##_##83(z80);break; \ - case 0x84:prefix##_##84(z80);break; case 0x85:prefix##_##85(z80);break; case 0x86:prefix##_##86(z80);break; case 0x87:prefix##_##87(z80);break; \ - case 0x88:prefix##_##88(z80);break; case 0x89:prefix##_##89(z80);break; case 0x8a:prefix##_##8a(z80);break; case 0x8b:prefix##_##8b(z80);break; \ - case 0x8c:prefix##_##8c(z80);break; case 0x8d:prefix##_##8d(z80);break; case 0x8e:prefix##_##8e(z80);break; case 0x8f:prefix##_##8f(z80);break; \ - case 0x90:prefix##_##90(z80);break; case 0x91:prefix##_##91(z80);break; case 0x92:prefix##_##92(z80);break; case 0x93:prefix##_##93(z80);break; \ - case 0x94:prefix##_##94(z80);break; case 0x95:prefix##_##95(z80);break; case 0x96:prefix##_##96(z80);break; case 0x97:prefix##_##97(z80);break; \ - case 0x98:prefix##_##98(z80);break; case 0x99:prefix##_##99(z80);break; case 0x9a:prefix##_##9a(z80);break; case 0x9b:prefix##_##9b(z80);break; \ - case 0x9c:prefix##_##9c(z80);break; case 0x9d:prefix##_##9d(z80);break; case 0x9e:prefix##_##9e(z80);break; case 0x9f:prefix##_##9f(z80);break; \ - case 0xa0:prefix##_##a0(z80);break; case 0xa1:prefix##_##a1(z80);break; case 0xa2:prefix##_##a2(z80);break; case 0xa3:prefix##_##a3(z80);break; \ - case 0xa4:prefix##_##a4(z80);break; case 0xa5:prefix##_##a5(z80);break; case 0xa6:prefix##_##a6(z80);break; case 0xa7:prefix##_##a7(z80);break; \ - case 0xa8:prefix##_##a8(z80);break; case 0xa9:prefix##_##a9(z80);break; case 0xaa:prefix##_##aa(z80);break; case 0xab:prefix##_##ab(z80);break; \ - case 0xac:prefix##_##ac(z80);break; case 0xad:prefix##_##ad(z80);break; case 0xae:prefix##_##ae(z80);break; case 0xaf:prefix##_##af(z80);break; \ - case 0xb0:prefix##_##b0(z80);break; case 0xb1:prefix##_##b1(z80);break; case 0xb2:prefix##_##b2(z80);break; case 0xb3:prefix##_##b3(z80);break; \ - case 0xb4:prefix##_##b4(z80);break; case 0xb5:prefix##_##b5(z80);break; case 0xb6:prefix##_##b6(z80);break; case 0xb7:prefix##_##b7(z80);break; \ - case 0xb8:prefix##_##b8(z80);break; case 0xb9:prefix##_##b9(z80);break; case 0xba:prefix##_##ba(z80);break; case 0xbb:prefix##_##bb(z80);break; \ - case 0xbc:prefix##_##bc(z80);break; case 0xbd:prefix##_##bd(z80);break; case 0xbe:prefix##_##be(z80);break; case 0xbf:prefix##_##bf(z80);break; \ - case 0xc0:prefix##_##c0(z80);break; case 0xc1:prefix##_##c1(z80);break; case 0xc2:prefix##_##c2(z80);break; case 0xc3:prefix##_##c3(z80);break; \ - case 0xc4:prefix##_##c4(z80);break; case 0xc5:prefix##_##c5(z80);break; case 0xc6:prefix##_##c6(z80);break; case 0xc7:prefix##_##c7(z80);break; \ - case 0xc8:prefix##_##c8(z80);break; case 0xc9:prefix##_##c9(z80);break; case 0xca:prefix##_##ca(z80);break; case 0xcb:prefix##_##cb(z80);break; \ - case 0xcc:prefix##_##cc(z80);break; case 0xcd:prefix##_##cd(z80);break; case 0xce:prefix##_##ce(z80);break; case 0xcf:prefix##_##cf(z80);break; \ - case 0xd0:prefix##_##d0(z80);break; case 0xd1:prefix##_##d1(z80);break; case 0xd2:prefix##_##d2(z80);break; case 0xd3:prefix##_##d3(z80);break; \ - case 0xd4:prefix##_##d4(z80);break; case 0xd5:prefix##_##d5(z80);break; case 0xd6:prefix##_##d6(z80);break; case 0xd7:prefix##_##d7(z80);break; \ - case 0xd8:prefix##_##d8(z80);break; case 0xd9:prefix##_##d9(z80);break; case 0xda:prefix##_##da(z80);break; case 0xdb:prefix##_##db(z80);break; \ - case 0xdc:prefix##_##dc(z80);break; case 0xdd:prefix##_##dd(z80);break; case 0xde:prefix##_##de(z80);break; case 0xdf:prefix##_##df(z80);break; \ - case 0xe0:prefix##_##e0(z80);break; case 0xe1:prefix##_##e1(z80);break; case 0xe2:prefix##_##e2(z80);break; case 0xe3:prefix##_##e3(z80);break; \ - case 0xe4:prefix##_##e4(z80);break; case 0xe5:prefix##_##e5(z80);break; case 0xe6:prefix##_##e6(z80);break; case 0xe7:prefix##_##e7(z80);break; \ - case 0xe8:prefix##_##e8(z80);break; case 0xe9:prefix##_##e9(z80);break; case 0xea:prefix##_##ea(z80);break; case 0xeb:prefix##_##eb(z80);break; \ - case 0xec:prefix##_##ec(z80);break; case 0xed:prefix##_##ed(z80);break; case 0xee:prefix##_##ee(z80);break; case 0xef:prefix##_##ef(z80);break; \ - case 0xf0:prefix##_##f0(z80);break; case 0xf1:prefix##_##f1(z80);break; case 0xf2:prefix##_##f2(z80);break; case 0xf3:prefix##_##f3(z80);break; \ - case 0xf4:prefix##_##f4(z80);break; case 0xf5:prefix##_##f5(z80);break; case 0xf6:prefix##_##f6(z80);break; case 0xf7:prefix##_##f7(z80);break; \ - case 0xf8:prefix##_##f8(z80);break; case 0xf9:prefix##_##f9(z80);break; case 0xfa:prefix##_##fa(z80);break; case 0xfb:prefix##_##fb(z80);break; \ - case 0xfc:prefix##_##fc(z80);break; case 0xfd:prefix##_##fd(z80);break; case 0xfe:prefix##_##fe(z80);break; case 0xff:prefix##_##ff(z80);break; \ - } \ -} -#else -#define EXEC_INLINE EXEC -#endif - - -/*************************************************************** - * Enter HALT state; write 1 to fake port on first execution - ***************************************************************/ -#define ENTER_HALT { \ - _PC--; \ - _HALT = 1; \ - if( !z80->after_EI ) \ - z80_burn( z80, z80->z80_ICount ); \ -} - -/*************************************************************** - * Leave HALT state; write 0 to fake port - ***************************************************************/ -#define LEAVE_HALT { \ - if( _HALT ) \ - { \ - _HALT = 0; \ - _PC++; \ - } \ -} - -/*************************************************************** - * Input a byte from given I/O port - ***************************************************************/ -#define IN(port) ((UINT8)cpu_readport16(z80->userdata,port)) - -/*************************************************************** - * Output a byte to given I/O port - ***************************************************************/ -#define OUT(port,value) cpu_writeport16(z80->userdata,port,value) - -/*************************************************************** - * Read a byte from given memory location - ***************************************************************/ -#define RM(addr) (UINT8)cpu_readmem16(z80->userdata,addr) - -/*************************************************************** - * Read a word from given memory location - ***************************************************************/ -static INLINE void RM16( z80_state_t *z80, UINT32 addr, PAIR *r ) -{ - r->b.l = RM(addr); - r->b.h = RM((addr+1)&0xffff); -} - -/*************************************************************** - * Write a byte to given memory location - ***************************************************************/ -#define WM(addr,value) cpu_writemem16(z80->userdata,addr,value) - -/*************************************************************** - * Write a word to given memory location - ***************************************************************/ -static INLINE void WM16( z80_state_t *z80, UINT32 addr, PAIR *r ) -{ - WM(addr,r->b.l); - WM((addr+1)&0xffff,r->b.h); -} - -/*************************************************************** - * ROP() is identical to RM() except it is used for - * reading opcodes. In case of system with memory mapped I/O, - * this function can be used to greatly speed up emulation - ***************************************************************/ -static INLINE UINT8 ROP(z80_state_t *z80) -{ - unsigned pc = _PCD; - _PC++; - return cpu_readop(z80->userdata,pc); -} - -/**************************************************************** - * ARG() is identical to ROP() except it is used - * for reading opcode arguments. This difference can be used to - * support systems that use different encoding mechanisms for - * opcodes and opcode arguments - ***************************************************************/ -static INLINE UINT8 ARG(z80_state_t *z80) -{ - unsigned pc = _PCD; - _PC++; - return cpu_readop_arg(z80->userdata, pc); -} - -static INLINE UINT32 ARG16(z80_state_t *z80) -{ - unsigned pc = _PCD; - _PC += 2; - return cpu_readop_arg(z80->userdata,pc) | (cpu_readop_arg(z80->userdata,(pc+1)&0xffff) << 8); -} - -/*************************************************************** - * Calculate the effective address EA of an opcode using - * IX+offset resp. IY+offset addressing. - ***************************************************************/ -#define EAX z80->EA = (UINT32)(UINT16)(_IX+(INT8)ARG(z80)) -#define EAY z80->EA = (UINT32)(UINT16)(_IY+(INT8)ARG(z80)) - -/*************************************************************** - * POP - ***************************************************************/ -#define POP(DR) { RM16(z80, _SPD, &z80->Z80.DR ); _SP += 2; } - -/*************************************************************** - * PUSH - ***************************************************************/ -#define PUSH(SR) { _SP -= 2; WM16( z80, _SPD, &z80->Z80.SR ); } - -/*************************************************************** - * JP - ***************************************************************/ -#if BUSY_LOOP_HACKS -#define JP { \ - unsigned oldpc = _PCD-1; \ - _PCD = ARG16(z80); \ - change_pc16(_PCD); \ - /* speed up busy loop */ \ - if( _PCD == oldpc ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount, 1, cc[Z80_TABLE_op][0xc3] ); \ - } \ - else \ - { \ - UINT8 op = cpu_readop(z80->userdata,_PCD); \ - if( _PCD == oldpc-1 ) \ - { \ - /* NOP - JP $-1 or EI - JP $-1 */ \ - if ( op == 0x00 || op == 0xfb ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount-cc[Z80_TABLE_op][0x00], \ - 2, cc[Z80_TABLE_op][0x00]+cc[Z80_TABLE_op][0xc3]); \ - } \ - } \ - else \ - /* LD SP,#xxxx - JP $-3 (Galaga) */ \ - if( _PCD == oldpc-3 && op == 0x31 ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount-cc[Z80_TABLE_op][0x31], \ - 2, cc[Z80_TABLE_op][0x31]+cc[Z80_TABLE_op][0xc3]); \ - } \ - } \ -} -#else -#define JP { \ - _PCD = ARG16(z80); \ - change_pc16(_PCD); \ -} -#endif - -/*************************************************************** - * JP_COND - ***************************************************************/ - -#define JP_COND(cond) \ - if( cond ) \ - { \ - _PCD = ARG16(z80); \ - change_pc16(_PCD); \ - } \ - else \ - { \ - _PC += 2; \ - } - -/*************************************************************** - * JR - ***************************************************************/ -#define JR() \ -{ \ - unsigned oldpc = _PCD-1; \ - INT8 arg = (INT8)ARG(z80); /* ARG() also increments _PC */ \ - _PC += arg; /* so don't do _PC += ARG() */ \ - change_pc16(_PCD); \ - /* speed up busy loop */ \ - if( _PCD == oldpc ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount, 1, cc[Z80_TABLE_op][0x18] ); \ - } \ - else \ - { \ - UINT8 op = cpu_readop(z80->userdata,_PCD); \ - if( _PCD == oldpc-1 ) \ - { \ - /* NOP - JR $-1 or EI - JR $-1 */ \ - if ( op == 0x00 || op == 0xfb ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount-cc[Z80_TABLE_op][0x00], \ - 2, cc[Z80_TABLE_op][0x00]+cc[Z80_TABLE_op][0x18]); \ - } \ - } \ - else \ - /* LD SP,#xxxx - JR $-3 */ \ - if( _PCD == oldpc-3 && op == 0x31 ) \ - { \ - if( !z80->after_EI ) \ - BURNODD( z80, z80->z80_ICount-cc[Z80_TABLE_op][0x31], \ - 2, cc[Z80_TABLE_op][0x31]+cc[Z80_TABLE_op][0x18]); \ - } \ - } \ -} - -/*************************************************************** - * JR_COND - ***************************************************************/ -#define JR_COND(cond,opcode) \ - if( cond ) \ - { \ - INT8 arg = (INT8)ARG(z80); /* ARG() also increments _PC */ \ - _PC += arg; /* so don't do _PC += ARG() */ \ - CC(ex,opcode); \ - change_pc16(_PCD); \ - } \ - else _PC++; \ - -/*************************************************************** - * CALL - ***************************************************************/ -#define CALL() \ - z80->EA = ARG16(z80); \ - PUSH( PC ); \ - _PCD = z80->EA; \ - change_pc16(_PCD) - -/*************************************************************** - * CALL_COND - ***************************************************************/ -#define CALL_COND(cond,opcode) \ - if( cond ) \ - { \ - z80->EA = ARG16(z80); \ - PUSH( PC ); \ - _PCD = z80->EA; \ - CC(ex,opcode); \ - change_pc16(_PCD); \ - } \ - else \ - { \ - _PC+=2; \ - } - -/*************************************************************** - * RET_COND - ***************************************************************/ -#define RET_COND(cond,opcode) \ - if( cond ) \ - { \ - POP(PC); \ - change_pc16(_PCD); \ - CC(ex,opcode); \ - } - -/*************************************************************** - * RETN - ***************************************************************/ -#define RETN { \ - POP(PC); \ - change_pc16(_PCD); \ - if( _IFF1 == 0 && _IFF2 == 1 ) \ - { \ - _IFF1 = 1; \ - if( z80->Z80.irq_state != CLEAR_LINE || \ - z80->Z80.request_irq >= 0 ) \ - { \ - take_interrupt(z80); \ - } \ - } \ - else _IFF1 = _IFF2; \ -} - -/*************************************************************** - * RETI - ***************************************************************/ -#define RETI { \ - int device = z80->Z80.service_irq; \ - POP(PC); \ - change_pc16(_PCD); \ -/* according to http://www.msxnet.org/tech/z80-documented.pdf */\ -/* _IFF1 = _IFF2; */ \ - if( device >= 0 ) \ - { \ - z80->Z80.irq[device].interrupt_reti(z80->Z80.irq[device].irq_param); \ - } \ -} - -/*************************************************************** - * LD R,A - ***************************************************************/ -#define LD_R_A { \ - _Z80_R = _Z80_A; \ - _R2 = _Z80_A & 0x80; /* keep bit 7 of R */ \ -} - -/*************************************************************** - * LD A,R - ***************************************************************/ -#define LD_A_R { \ - _Z80_A = (_Z80_R & 0x7f) | _R2; \ - _F = (_F & CF) | z80->SZ[_Z80_A] | ( _IFF2 << 2 ); \ -} - -/*************************************************************** - * LD I,A - ***************************************************************/ -#define LD_I_A { \ - _Z80_I = _Z80_A; \ -} - -/*************************************************************** - * LD A,I - ***************************************************************/ -#define LD_A_I { \ - _Z80_A = _Z80_I; \ - _F = (_F & CF) | z80->SZ[_Z80_A] | ( _IFF2 << 2 ); \ -} - -/*************************************************************** - * RST - ***************************************************************/ -#define RST(addr) \ - PUSH( PC ); \ - _PCD = addr; \ - change_pc16(_PCD) - -/*************************************************************** - * INC r8 - ***************************************************************/ -static INLINE UINT8 INC(z80_state_t *z80, UINT8 value) -{ - UINT8 res = value + 1; - _F = (_F & CF) | z80->SZHV_inc[res]; - return (UINT8)res; -} - -/*************************************************************** - * DEC r8 - ***************************************************************/ -static INLINE UINT8 DEC(z80_state_t *z80, UINT8 value) -{ - UINT8 res = value - 1; - _F = (_F & CF) | z80->SZHV_dec[res]; - return res; -} - -/*************************************************************** - * RLCA - ***************************************************************/ -#if Z80_EXACT -#define RLCA \ - _Z80_A = (_Z80_A << 1) | (_Z80_A >> 7); \ - _F = (_F & (SF | ZF | PF)) | (_Z80_A & (YF | XF | CF)) -#else -#define RLCA \ - _Z80_A = (_Z80_A << 1) | (_Z80_A >> 7); \ - _F = (_F & (SF | ZF | YF | XF | PF)) | (_Z80_A & CF) -#endif - -/*************************************************************** - * RRCA - ***************************************************************/ -#if Z80_EXACT -#define RRCA \ - _F = (_F & (SF | ZF | PF)) | (_Z80_A & CF); \ - _Z80_A = (_Z80_A >> 1) | (_Z80_A << 7); \ - _F |= (_Z80_A & (YF | XF) ) -#else -#define RRCA \ - _F = (_F & (SF | ZF | YF | XF | PF)) | (_Z80_A & CF); \ - _Z80_A = (_Z80_A >> 1) | (_Z80_A << 7) -#endif - -/*************************************************************** - * RLA - ***************************************************************/ -#if Z80_EXACT -#define RLA { \ - UINT8 res = (_Z80_A << 1) | (_F & CF); \ - UINT8 c = (_Z80_A & 0x80) ? CF : 0; \ - _F = (_F & (SF | ZF | PF)) | c | (res & (YF | XF)); \ - _Z80_A = res; \ -} -#else -#define RLA { \ - UINT8 res = (_Z80_A << 1) | (_F & CF); \ - UINT8 c = (_Z80_A & 0x80) ? CF : 0; \ - _F = (_F & (SF | ZF | YF | XF | PF)) | c; \ - _Z80_A = res; \ -} -#endif - -/*************************************************************** - * RRA - ***************************************************************/ -#if Z80_EXACT -#define RRA { \ - UINT8 res = (_Z80_A >> 1) | (_F << 7); \ - UINT8 c = (_Z80_A & 0x01) ? CF : 0; \ - _F = (_F & (SF | ZF | PF)) | c | (res & (YF | XF)); \ - _Z80_A = res; \ -} -#else -#define RRA { \ - UINT8 res = (_Z80_A >> 1) | (_F << 7); \ - UINT8 c = (_Z80_A & 0x01) ? CF : 0; \ - _F = (_F & (SF | ZF | YF | XF | PF)) | c; \ - _Z80_A = res; \ -} -#endif - -/*************************************************************** - * RRD - ***************************************************************/ -#define RRD { \ - UINT8 n = RM(_HL); \ - WM( _HL, (n >> 4) | (_Z80_A << 4) ); \ - _Z80_A = (_Z80_A & 0xf0) | (n & 0x0f); \ - _F = (_F & CF) | z80->SZP[_Z80_A]; \ -} - -/*************************************************************** - * RLD - ***************************************************************/ -#define RLD { \ - UINT8 n = RM(_HL); \ - WM( _HL, (n << 4) | (_Z80_A & 0x0f) ); \ - _Z80_A = (_Z80_A & 0xf0) | (n >> 4); \ - _F = (_F & CF) | z80->SZP[_Z80_A]; \ -} - -/*************************************************************** - * ADD A,n - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define ADD(value) \ - asm ( \ - " addb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " addb %1,%1 \n" \ - " addb %1,%1 \n" /* shift to P/V bit position */ \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" \ - " movb %0,%%ah \n" /* get result */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#else -#define ADD(value) \ - asm ( \ - " addb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " addb %1,%1 \n" \ - " addb %1,%1 \n" /* shift to P/V bit position */ \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#endif -#else -#if BIG_FLAGS_ARRAY -#define ADD(z80,value) \ -{ \ - UINT32 ah = _AFD & 0xff00; \ - UINT32 res = (UINT8)((ah >> 8) + value); \ - _F = z80->SZHVC_add[ah | res]; \ - _Z80_A = res; \ -} -#else -#define ADD(value) \ -{ \ - unsigned val = value; \ - unsigned res = _Z80_A + val; \ - _F = SZ[(UINT8)res] | ((res >> 8) & CF) | \ - ((_Z80_A ^ res ^ val) & HF) | \ - (((val ^ _Z80_A ^ 0x80) & (val ^ res) & 0x80) >> 5); \ - _Z80_A = (UINT8)res; \ -} -#endif -#endif - -/*************************************************************** - * ADC A,n - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define ADC(value) \ - asm ( \ - " shrb $1,%1 \n" \ - " adcb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " addb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - " movb %0,%%ah \n" /* get result */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#else -#define ADC(value) \ - asm ( \ - " shrb $1,%1 \n" \ - " adcb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " addb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#endif -#else -#if BIG_FLAGS_ARRAY -#define ADC(value) \ -{ \ - UINT32 ah = _AFD & 0xff00, c = _AFD & 1; \ - UINT32 res = (UINT8)((ah >> 8) + value + c); \ - _F = z80->SZHVC_add[(c << 16) | ah | res]; \ - _Z80_A = res; \ -} -#else -#define ADC(value) \ -{ \ - unsigned val = value; \ - unsigned res = _Z80_A + val + (_F & CF); \ - _F = SZ[res & 0xff] | ((res >> 8) & CF) | \ - ((_Z80_A ^ res ^ val) & HF) | \ - (((val ^ _Z80_A ^ 0x80) & (val ^ res) & 0x80) >> 5); \ - _Z80_A = res; \ -} -#endif -#endif - -/*************************************************************** - * SUB n - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define SUB(value) \ - asm ( \ - " subb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - " movb %0,%%ah \n" /* get result */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#else -#define SUB(value) \ - asm ( \ - " subb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#endif -#else -#if BIG_FLAGS_ARRAY -#define SUB(value) \ -{ \ - UINT32 ah = _AFD & 0xff00; \ - UINT32 res = (UINT8)((ah >> 8) - value); \ - _F = z80->SZHVC_sub[ah | res]; \ - _Z80_A = res; \ -} -#else -#define SUB(value) \ -{ \ - unsigned val = value; \ - unsigned res = _Z80_A - val; \ - _F = SZ[res & 0xff] | ((res >> 8) & CF) | NF | \ - ((_Z80_A ^ res ^ val) & HF) | \ - (((val ^ _Z80_A) & (_Z80_A ^ res) & 0x80) >> 5); \ - _Z80_A = res; \ -} -#endif -#endif - -/*************************************************************** - * SBC A,n - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define SBC(value) \ - asm ( \ - " shrb $1,%1 \n" \ - " sbbb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - " movb %0,%%ah \n" /* get result */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#else -#define SBC(value) \ - asm ( \ - " shrb $1,%1 \n" \ - " sbbb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#endif -#else -#if BIG_FLAGS_ARRAY -#define SBC(value) \ -{ \ - UINT32 ah = _AFD & 0xff00, c = _AFD & 1; \ - UINT32 res = (UINT8)((ah >> 8) - value - c); \ - _F = z80->SZHVC_sub[(c<<16) | ah | res]; \ - _Z80_A = res; \ -} -#else -#define SBC(value) \ -{ \ - unsigned val = value; \ - unsigned res = _Z80_A - val - (_F & CF); \ - _F = SZ[res & 0xff] | ((res >> 8) & CF) | NF | \ - ((_Z80_A ^ res ^ val) & HF) | \ - (((val ^ _Z80_A) & (_Z80_A ^ res) & 0x80) >> 5); \ - _Z80_A = res; \ -} -#endif -#endif - -/*************************************************************** - * NEG - ***************************************************************/ -#define NEG { \ - UINT8 value = _Z80_A; \ - _Z80_A = 0; \ - SUB(value); \ -} - -/*************************************************************** - * DAA - ***************************************************************/ -#define DAA { \ - UINT8 cf, nf, hf, lo, hi, diff; \ - cf = _F & CF; \ - nf = _F & NF; \ - hf = _F & HF; \ - lo = _Z80_A & 15; \ - hi = _Z80_A / 16; \ - \ - if (cf) \ - { \ - diff = (lo <= 9 && !hf) ? 0x60 : 0x66; \ - } \ - else \ - { \ - if (lo >= 10) \ - { \ - diff = hi <= 8 ? 0x06 : 0x66; \ - } \ - else \ - { \ - if (hi >= 10) \ - { \ - diff = hf ? 0x66 : 0x60; \ - } \ - else \ - { \ - diff = hf ? 0x06 : 0x00; \ - } \ - } \ - } \ - if (nf) _Z80_A -= diff; \ - else _Z80_A += diff; \ - \ - _F = z80->SZP[_Z80_A] | (_F & NF); \ - if (cf || (lo <= 9 ? hi >= 10 : hi >= 9)) _F |= CF; \ - if (nf ? hf && lo <= 5 : lo >= 10) _F |= HF; \ -} - -/*************************************************************** - * AND n - ***************************************************************/ -#define AND(value) \ - _Z80_A &= value; \ - _F = z80->SZP[_Z80_A] | HF - -/*************************************************************** - * OR n - ***************************************************************/ -#define OR(value) \ - _Z80_A |= value; \ - _F = z80->SZP[_Z80_A] - -/*************************************************************** - * XOR n - ***************************************************************/ -#define XOR(value) \ - _Z80_A ^= value; \ - _F = z80->SZP[_Z80_A] - -/*************************************************************** - * CP n - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define CP(value) \ - asm ( \ - " cmpb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - " movb %2,%%ah \n" /* get result */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#else -#define CP(value) \ - asm ( \ - " cmpb %2,%0 \n" \ - " lahf \n" \ - " setob %1 \n" /* al = 1 if overflow */ \ - " stc \n" /* prepare to set N flag */ \ - " adcb %1,%1 \n" /* shift to P/V bit position */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign, zero, half carry, carry */ \ - " orb %%ah,%1 \n" /* combine with P/V */ \ - :"=q" (_Z80_A), "=q" (_F) \ - :"q" (value), "1" (_F), "0" (_Z80_A) \ - ) -#endif -#else -#if BIG_FLAGS_ARRAY -#define CP(value) \ -{ \ - unsigned val = value; \ - UINT32 ah = _AFD & 0xff00; \ - UINT32 res = (UINT8)((ah >> 8) - val); \ - _F = (z80->SZHVC_sub[ah | res] & ~(YF | XF)) | \ - (val & (YF | XF)); \ -} -#else -#define CP(value) \ -{ \ - unsigned val = value; \ - unsigned res = _Z80_A - val; \ - _F = (SZ[res & 0xff] & (SF | ZF)) | \ - (val & (YF | XF)) | ((res >> 8) & CF) | NF | \ - ((_Z80_A ^ res ^ val) & HF) | \ - ((((val ^ _Z80_A) & (_Z80_A ^ res)) >> 5) & VF); \ -} -#endif -#endif - -/*************************************************************** - * EX AF,AF' - ***************************************************************/ -#define EX_AF { \ - PAIR tmp; \ - tmp = z80->Z80.AF; z80->Z80.AF = z80->Z80.AF2; z80->Z80.AF2 = tmp; \ -} - -/*************************************************************** - * EX DE,HL - ***************************************************************/ -#define EX_DE_HL { \ - PAIR tmp; \ - tmp = z80->Z80.DE; z80->Z80.DE = z80->Z80.HL; z80->Z80.HL = tmp; \ -} - -/*************************************************************** - * EXX - ***************************************************************/ -#define EXX { \ - PAIR tmp; \ - tmp = z80->Z80.BC; z80->Z80.BC = z80->Z80.BC2; z80->Z80.BC2 = tmp; \ - tmp = z80->Z80.DE; z80->Z80.DE = z80->Z80.DE2; z80->Z80.DE2 = tmp; \ - tmp = z80->Z80.HL; z80->Z80.HL = z80->Z80.HL2; z80->Z80.HL2 = tmp; \ -} - -/*************************************************************** - * EX (SP),r16 - ***************************************************************/ -#define EXSP(DR) \ -{ \ - PAIR tmp = { { 0, 0, 0, 0 } }; \ - RM16(z80, _SPD, &tmp ); \ - WM16( z80, _SPD, &z80->Z80.DR ); \ - z80->Z80.DR = tmp; \ -} - - -/*************************************************************** - * ADD16 - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define ADD16(z80,DR,SR) \ - asm ( \ - " andb $0xc4,%1 \n" \ - " addb %%dl,%%cl \n" \ - " adcb %%dh,%%ch \n" \ - " lahf \n" \ - " andb $0x11,%%ah \n" \ - " orb %%ah,%1 \n" \ - " movb %%ch,%%ah \n" /* get result MSB */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=c" (z80->Z80.DR.d), "=q" (_F) \ - :"0" (z80->Z80.DR.d), "1" (_F), "d" (Z80.SR.d) \ - ) -#else -#define ADD16(z80,DR,SR) \ - asm ( \ - " andb $0xc4,%1 \n" \ - " addb %%dl,%%cl \n" \ - " adcb %%dh,%%ch \n" \ - " lahf \n" \ - " andb $0x11,%%ah \n" \ - " orb %%ah,%1 \n" \ - :"=c" (z80->Z80.DR.d), "=q" (_F) \ - :"0" (z80->Z80.DR.d), "1" (_F), "d" (Z80.SR.d) \ - ) -#endif -#else -#define ADD16(z80,DR,SR) \ -{ \ - UINT32 res = z80->Z80.DR.d + z80->Z80.SR.d; \ - _F = (_F & (SF | ZF | VF)) | \ - (((z80->Z80.DR.d ^ res ^ z80->Z80.SR.d) >> 8) & HF) | \ - ((res >> 16) & CF) | ((res >> 8) & (YF | XF)); \ - z80->Z80.DR.w.l = (UINT16)res; \ -} -#endif - -/*************************************************************** - * ADC r16,r16 - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define ADC16(Reg) \ - asm ( \ - " shrb $1,%1 \n" \ - " adcb %%dl,%%cl \n" \ - " lahf \n" \ - " movb %%ah,%%dl \n" \ - " adcb %%dh,%%ch \n" \ - " lahf \n" \ - " setob %1 \n" \ - " orb $0xbf,%%dl \n" /* set all but zero */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign,zero,half carry and carry */\ - " addb %1,%1 \n" \ - " orb %%ah,%1 \n" /* overflow into P/V */ \ - " andb %%dl,%1 \n" /* mask zero */ \ - " movb %%ch,%%ah \n" /* get result MSB */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=c" (_HLD), "=q" (_F) \ - :"0" (_HLD), "1" (_F), "d" (Z80.Reg.d) \ - ) -#else -#define ADC16(Reg) \ - asm ( \ - " shrb $1,%1 \n" \ - " adcb %%dl,%%cl \n" \ - " lahf \n" \ - " movb %%ah,%%dl \n" \ - " adcb %%dh,%%ch \n" \ - " lahf \n" \ - " setob %1 \n" \ - " orb $0xbf,%%dl \n" /* set all but zero */ \ - " addb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign,zero,half carry and carry */\ - " addb %1,%1 \n" \ - " orb %%ah,%1 \n" /* overflow into P/V */ \ - " andb %%dl,%1 \n" /* mask zero */ \ - :"=c" (_HLD), "=q" (_F) \ - :"0" (_HLD), "1" (_F), "d" (Z80.Reg.d) \ - ) -#endif -#else -#define ADC16(Reg) \ -{ \ - UINT32 res = _HLD + z80->Z80.Reg.d + (_F & CF); \ - _F = (((_HLD ^ res ^ z80->Z80.Reg.d) >> 8) & HF) | \ - ((res >> 16) & CF) | \ - ((res >> 8) & (SF | YF | XF)) | \ - ((res & 0xffff) ? 0 : ZF) | \ - (((z80->Z80.Reg.d ^ _HLD ^ 0x8000) & (z80->Z80.Reg.d ^ res) & 0x8000) >> 13); \ - _HL = (UINT16)res; \ -} -#endif - -/*************************************************************** - * SBC r16,r16 - ***************************************************************/ -#ifdef X86_ASM -#if Z80_EXACT -#define SBC16(Reg) \ -asm ( \ - " shrb $1,%1 \n" \ - " sbbb %%dl,%%cl \n" \ - " lahf \n" \ - " movb %%ah,%%dl \n" \ - " sbbb %%dh,%%ch \n" \ - " lahf \n" \ - " setob %1 \n" \ - " orb $0xbf,%%dl \n" /* set all but zero */ \ - " stc \n" \ - " adcb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign,zero,half carry and carry */\ - " addb %1,%1 \n" \ - " orb %%ah,%1 \n" /* overflow into P/V */ \ - " andb %%dl,%1 \n" /* mask zero */ \ - " movb %%ch,%%ah \n" /* get result MSB */ \ - " andb $0x28,%%ah \n" /* maks flags 5+3 */ \ - " orb %%ah,%1 \n" /* put them into flags */ \ - :"=c" (_HLD), "=q" (_F) \ - :"0" (_HLD), "1" (_F), "d" (Z80.Reg.d) \ - ) -#else -#define SBC16(Reg) \ -asm ( \ - " shrb $1,%1 \n" \ - " sbbb %%dl,%%cl \n" \ - " lahf \n" \ - " movb %%ah,%%dl \n" \ - " sbbb %%dh,%%ch \n" \ - " lahf \n" \ - " setob %1 \n" \ - " orb $0xbf,%%dl \n" /* set all but zero */ \ - " stc \n" \ - " adcb %1,%1 \n" \ - " andb $0xd1,%%ah \n" /* sign,zero,half carry and carry */\ - " addb %1,%1 \n" \ - " orb %%ah,%1 \n" /* overflow into P/V */ \ - " andb %%dl,%1 \n" /* mask zero */ \ - :"=c" (_HLD), "=q" (_F) \ - :"0" (_HLD), "1" (_F), "d" (Z80.Reg.d) \ - ) -#endif -#else -#define SBC16(Reg) \ -{ \ - UINT32 res = _HLD - z80->Z80.Reg.d - (_F & CF); \ - _F = (((_HLD ^ res ^ z80->Z80.Reg.d) >> 8) & HF) | NF | \ - ((res >> 16) & CF) | \ - ((res >> 8) & (SF | YF | XF)) | \ - ((res & 0xffff) ? 0 : ZF) | \ - (((z80->Z80.Reg.d ^ _HLD) & (_HLD ^ res) &0x8000) >> 13); \ - _HL = (UINT16)res; \ -} -#endif - -/*************************************************************** - * RLC r8 - ***************************************************************/ -static INLINE UINT8 RLC(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x80) ? CF : 0; - res = ((res << 1) | (res >> 7)) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * RRC r8 - ***************************************************************/ -static INLINE UINT8 RRC(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x01) ? CF : 0; - res = ((res >> 1) | (res << 7)) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * RL r8 - ***************************************************************/ -static INLINE UINT8 RL(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x80) ? CF : 0; - res = ((res << 1) | (_F & CF)) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * RR r8 - ***************************************************************/ -static INLINE UINT8 RR(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x01) ? CF : 0; - res = ((res >> 1) | (_F << 7)) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * SLA r8 - ***************************************************************/ -static INLINE UINT8 SLA(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x80) ? CF : 0; - res = (res << 1) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * SRA r8 - ***************************************************************/ -static INLINE UINT8 SRA(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x01) ? CF : 0; - res = ((res >> 1) | (res & 0x80)) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * SLL r8 - ***************************************************************/ -static INLINE UINT8 SLL(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x80) ? CF : 0; - res = ((res << 1) | 0x01) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * SRL r8 - ***************************************************************/ -static INLINE UINT8 SRL(z80_state_t *z80, UINT8 value) -{ - unsigned res = value; - unsigned c = (res & 0x01) ? CF : 0; - res = (res >> 1) & 0xff; - _F = z80->SZP[res] | c; - return res; -} - -/*************************************************************** - * BIT bit,r8 - ***************************************************************/ -#undef BIT -#define BIT(z80,bit,reg) \ - _F = (_F & CF) | HF | z80->SZ_BIT[reg & (1<<bit)] - -/*************************************************************** - * BIT bit,(IX/Y+o) - ***************************************************************/ -#if Z80_EXACT -#define BIT_XY(z80,bit,reg) \ - _F = (_F & CF) | HF | (z80->SZ_BIT[reg & (1<<bit)] & ~(YF|XF)) | ((z80->EA>>8) & (YF|XF)) -#else -#define BIT_XY BIT -#endif - -/*************************************************************** - * RES bit,r8 - ***************************************************************/ -static INLINE UINT8 RES(z80_state_t *z80, UINT8 bit, UINT8 value) -{ - return value & ~(1<<bit); -} - -/*************************************************************** - * SET bit,r8 - ***************************************************************/ -static INLINE UINT8 SET(z80_state_t *z80, UINT8 bit, UINT8 value) -{ - return value | (1<<bit); -} - -/*************************************************************** - * LDI - ***************************************************************/ -#if Z80_EXACT -#define LDI { \ - UINT8 io = RM(_HL); \ - WM( _DE, io ); \ - _F &= SF | ZF | CF; \ - if( (_Z80_A + io) & 0x02 ) _F |= YF; /* bit 1 -> flag 5 */ \ - if( (_Z80_A + io) & 0x08 ) _F |= XF; /* bit 3 -> flag 3 */ \ - _HL++; _DE++; _BC--; \ - if( _BC ) _F |= VF; \ -} -#else -#define LDI { \ - WM( _DE, RM(_HL) ); \ - _F &= SF | ZF | YF | XF | CF; \ - _HL++; _DE++; _BC--; \ - if( _BC ) _F |= VF; \ -} -#endif - -/*************************************************************** - * CPI - ***************************************************************/ -#if Z80_EXACT -#define CPI { \ - UINT8 val = RM(_HL); \ - UINT8 res = _Z80_A - val; \ - _HL++; _BC--; \ - _F = (_F & CF) | (z80->SZ[res] & ~(YF|XF)) | ((_Z80_A ^ val ^ res) & HF) | NF; \ - if( _F & HF ) res -= 1; \ - if( res & 0x02 ) _F |= YF; /* bit 1 -> flag 5 */ \ - if( res & 0x08 ) _F |= XF; /* bit 3 -> flag 3 */ \ - if( _BC ) _F |= VF; \ -} -#else -#define CPI { \ - UINT8 val = RM(_HL); \ - UINT8 res = _Z80_A - val; \ - _HL++; _BC--; \ - _F = (_F & CF) | z80->SZ[res] | ((_Z80_A ^ val ^ res) & HF) | NF; \ - if( _BC ) _F |= VF; \ -} -#endif - -/*************************************************************** - * INI - ***************************************************************/ -#if Z80_EXACT -#define INI { \ - unsigned t; \ - UINT8 io = IN(_BC); \ - _Z80_B--; \ - WM( _HL, io ); \ - _HL++; \ - _F = z80->SZ[_Z80_B]; \ - t = (unsigned)((_Z80_C + 1) & 0xff) + (unsigned)io; \ - if( io & SF ) _F |= NF; \ - if( t & 0x100 ) _F |= HF | CF; \ - _F |= z80->SZP[(UINT8)(t & 0x07) ^ _Z80_B] & PF; \ -} -#else -#define INI { \ - _Z80_B--; \ - WM( _HL, IN(_BC) ); \ - _HL++; \ - _F = (_Z80_B) ? NF : NF | ZF; \ -} -#endif - -/*************************************************************** - * OUTI - ***************************************************************/ -#if Z80_EXACT -#define OUTI { \ - unsigned t; \ - UINT8 io = RM(_HL); \ - _Z80_B--; \ - OUT( _BC, io ); \ - _HL++; \ - _F = z80->SZ[_Z80_B]; \ - t = (unsigned)_Z80_L + (unsigned)io; \ - if( io & SF ) _F |= NF; \ - if( t & 0x100 ) _F |= HF | CF; \ - _F |= z80->SZP[(UINT8)(t & 0x07) ^ _Z80_B] & PF; \ -} -#else -#define OUTI { \ - _Z80_B--; \ - OUT( _BC, RM(_HL) ); \ - _HL++; \ - _F = (_Z80_B) ? NF : NF | ZF; \ -} -#endif - -/*************************************************************** - * LDD - ***************************************************************/ -#if Z80_EXACT -#define LDD { \ - UINT8 io = RM(_HL); \ - WM( _DE, io ); \ - _F &= SF | ZF | CF; \ - if( (_Z80_A + io) & 0x02 ) _F |= YF; /* bit 1 -> flag 5 */ \ - if( (_Z80_A + io) & 0x08 ) _F |= XF; /* bit 3 -> flag 3 */ \ - _HL--; _DE--; _BC--; \ - if( _BC ) _F |= VF; \ -} -#else -#define LDD { \ - WM( _DE, RM(_HL) ); \ - _F &= SF | ZF | YF | XF | CF; \ - _HL--; _DE--; _BC--; \ - if( _BC ) _F |= VF; \ -} -#endif - -/*************************************************************** - * CPD - ***************************************************************/ -#if Z80_EXACT -#define CPD { \ - UINT8 val = RM(_HL); \ - UINT8 res = _Z80_A - val; \ - _HL--; _BC--; \ - _F = (_F & CF) | (z80->SZ[res] & ~(YF|XF)) | ((_Z80_A ^ val ^ res) & HF) | NF; \ - if( _F & HF ) res -= 1; \ - if( res & 0x02 ) _F |= YF; /* bit 1 -> flag 5 */ \ - if( res & 0x08 ) _F |= XF; /* bit 3 -> flag 3 */ \ - if( _BC ) _F |= VF; \ -} -#else -#define CPD { \ - UINT8 val = RM(_HL); \ - UINT8 res = _Z80_A - val; \ - _HL--; _BC--; \ - _F = (_F & CF) | z80->SZ[res] | ((_Z80_A ^ val ^ res) & HF) | NF; \ - if( _BC ) _F |= VF; \ -} -#endif - -/*************************************************************** - * IND - ***************************************************************/ -#if Z80_EXACT -#define IND { \ - unsigned t; \ - UINT8 io = IN(_BC); \ - _Z80_B--; \ - WM( _HL, io ); \ - _HL--; \ - _F = z80->SZ[_Z80_B]; \ - t = ((unsigned)(_Z80_C - 1) & 0xff) + (unsigned)io; \ - if( io & SF ) _F |= NF; \ - if( t & 0x100 ) _F |= HF | CF; \ - _F |= z80->SZP[(UINT8)(t & 0x07) ^ _Z80_B] & PF; \ -} -#else -#define IND { \ - _Z80_B--; \ - WM( _HL, IN(_BC) ); \ - _HL--; \ - _F = (_Z80_B) ? NF : NF | ZF; \ -} -#endif - -/*************************************************************** - * OUTD - ***************************************************************/ -#if Z80_EXACT -#define OUTD { \ - unsigned t; \ - UINT8 io = RM(_HL); \ - _Z80_B--; \ - OUT( _BC, io ); \ - _HL--; \ - _F = z80->SZ[_Z80_B]; \ - t = (unsigned)_Z80_L + (unsigned)io; \ - if( io & SF ) _F |= NF; \ - if( t & 0x100 ) _F |= HF | CF; \ - _F |= z80->SZP[(UINT8)(t & 0x07) ^ _Z80_B] & PF; \ -} -#else -#define OUTD { \ - _Z80_B--; \ - OUT( _BC, RM(_HL) ); \ - _HL--; \ - _F = (_Z80_B) ? NF : NF | ZF; \ -} -#endif - -/*************************************************************** - * LDIR - ***************************************************************/ -#define LDIR \ - LDI; \ - if( _BC ) \ - { \ - _PC -= 2; \ - CC(ex,0xb0); \ - } - -/*************************************************************** - * CPIR - ***************************************************************/ -#define CPIR \ - CPI; \ - if( _BC && !(_F & ZF) ) \ - { \ - _PC -= 2; \ - CC(ex,0xb1); \ - } - -/*************************************************************** - * INIR - ***************************************************************/ -#define INIR \ - INI; \ - if( _Z80_B ) \ - { \ - _PC -= 2; \ - CC(ex,0xb2); \ - } - -/*************************************************************** - * OTIR - ***************************************************************/ -#define OTIR \ - OUTI; \ - if( _Z80_B ) \ - { \ - _PC -= 2; \ - CC(ex,0xb3); \ - } - -/*************************************************************** - * LDDR - ***************************************************************/ -#define LDDR \ - LDD; \ - if( _BC ) \ - { \ - _PC -= 2; \ - CC(ex,0xb8); \ - } - -/*************************************************************** - * CPDR - ***************************************************************/ -#define CPDR \ - CPD; \ - if( _BC && !(_F & ZF) ) \ - { \ - _PC -= 2; \ - CC(ex,0xb9); \ - } - -/*************************************************************** - * INDR - ***************************************************************/ -#define INDR \ - IND; \ - if( _Z80_B ) \ - { \ - _PC -= 2; \ - CC(ex,0xba); \ - } - -/*************************************************************** - * OTDR - ***************************************************************/ -#define OTDR \ - OUTD; \ - if( _Z80_B ) \ - { \ - _PC -= 2; \ - CC(ex,0xbb); \ - } - -/*************************************************************** - * EI - ***************************************************************/ -#define EI { \ - /* If interrupts were disabled, execute one more \ - * instruction and check the IRQ line. \ - * If not, simply set interrupt flip-flop 2 \ - */ \ - if( _IFF1 == 0 ) \ - { \ - _IFF1 = _IFF2 = 1; \ - _PPC = _PCD; \ - CALL_MAME_DEBUG; \ - _Z80_R++; \ - while( cpu_readop(z80->userdata,_PCD) == 0xfb ) /* more EIs? */ \ - { \ - CC(op,0xfb); \ - _PPC =_PCD; \ - CALL_MAME_DEBUG; \ - _PC++; \ - _Z80_R++; \ - } \ - if( z80->Z80.irq_state != CLEAR_LINE || \ - z80->Z80.request_irq >= 0 ) \ - { \ - z80->after_EI = 1; /* avoid cycle skip hacks */ \ - EXEC(op,ROP(z80)); \ - z80->after_EI = 0; \ - take_interrupt(z80); \ - } else EXEC(op,ROP(z80)); \ - } else _IFF2 = 1; \ -} - -/********************************************************** - * opcodes with CB prefix - * rotate, shift and bit operations - **********************************************************/ -OP(cb,00) { _Z80_B = RLC(z80, _Z80_B); } /* RLC B */ -OP(cb,01) { _Z80_C = RLC(z80, _Z80_C); } /* RLC C */ -OP(cb,02) { _Z80_D = RLC(z80, _Z80_D); } /* RLC D */ -OP(cb,03) { _Z80_E = RLC(z80, _Z80_E); } /* RLC E */ -OP(cb,04) { _Z80_H = RLC(z80, _Z80_H); } /* RLC H */ -OP(cb,05) { _Z80_L = RLC(z80, _Z80_L); } /* RLC L */ -OP(cb,06) { WM( _HL, RLC(z80, RM(_HL)) ); } /* RLC (HL) */ -OP(cb,07) { _Z80_A = RLC(z80, _Z80_A); } /* RLC A */ - -OP(cb,08) { _Z80_B = RRC(z80, _Z80_B); } /* RRC B */ -OP(cb,09) { _Z80_C = RRC(z80, _Z80_C); } /* RRC C */ -OP(cb,0a) { _Z80_D = RRC(z80, _Z80_D); } /* RRC D */ -OP(cb,0b) { _Z80_E = RRC(z80, _Z80_E); } /* RRC E */ -OP(cb,0c) { _Z80_H = RRC(z80, _Z80_H); } /* RRC H */ -OP(cb,0d) { _Z80_L = RRC(z80, _Z80_L); } /* RRC L */ -OP(cb,0e) { WM( _HL, RRC(z80, RM(_HL)) ); } /* RRC (HL) */ -OP(cb,0f) { _Z80_A = RRC(z80, _Z80_A); } /* RRC A */ - -OP(cb,10) { _Z80_B = RL(z80, _Z80_B); } /* RL B */ -OP(cb,11) { _Z80_C = RL(z80, _Z80_C); } /* RL C */ -OP(cb,12) { _Z80_D = RL(z80, _Z80_D); } /* RL D */ -OP(cb,13) { _Z80_E = RL(z80, _Z80_E); } /* RL E */ -OP(cb,14) { _Z80_H = RL(z80, _Z80_H); } /* RL H */ -OP(cb,15) { _Z80_L = RL(z80, _Z80_L); } /* RL L */ -OP(cb,16) { WM( _HL, RL(z80, RM(_HL)) ); } /* RL (HL) */ -OP(cb,17) { _Z80_A = RL(z80, _Z80_A); } /* RL A */ - -OP(cb,18) { _Z80_B = RR(z80, _Z80_B); } /* RR B */ -OP(cb,19) { _Z80_C = RR(z80, _Z80_C); } /* RR C */ -OP(cb,1a) { _Z80_D = RR(z80, _Z80_D); } /* RR D */ -OP(cb,1b) { _Z80_E = RR(z80, _Z80_E); } /* RR E */ -OP(cb,1c) { _Z80_H = RR(z80, _Z80_H); } /* RR H */ -OP(cb,1d) { _Z80_L = RR(z80, _Z80_L); } /* RR L */ -OP(cb,1e) { WM( _HL, RR(z80, RM(_HL)) ); } /* RR (HL) */ -OP(cb,1f) { _Z80_A = RR(z80, _Z80_A); } /* RR A */ - -OP(cb,20) { _Z80_B = SLA(z80, _Z80_B); } /* SLA B */ -OP(cb,21) { _Z80_C = SLA(z80, _Z80_C); } /* SLA C */ -OP(cb,22) { _Z80_D = SLA(z80, _Z80_D); } /* SLA D */ -OP(cb,23) { _Z80_E = SLA(z80, _Z80_E); } /* SLA E */ -OP(cb,24) { _Z80_H = SLA(z80, _Z80_H); } /* SLA H */ -OP(cb,25) { _Z80_L = SLA(z80, _Z80_L); } /* SLA L */ -OP(cb,26) { WM( _HL, SLA(z80, RM(_HL)) ); } /* SLA (HL) */ -OP(cb,27) { _Z80_A = SLA(z80, _Z80_A); } /* SLA A */ - -OP(cb,28) { _Z80_B = SRA(z80, _Z80_B); } /* SRA B */ -OP(cb,29) { _Z80_C = SRA(z80, _Z80_C); } /* SRA C */ -OP(cb,2a) { _Z80_D = SRA(z80, _Z80_D); } /* SRA D */ -OP(cb,2b) { _Z80_E = SRA(z80, _Z80_E); } /* SRA E */ -OP(cb,2c) { _Z80_H = SRA(z80, _Z80_H); } /* SRA H */ -OP(cb,2d) { _Z80_L = SRA(z80, _Z80_L); } /* SRA L */ -OP(cb,2e) { WM( _HL, SRA(z80, RM(_HL)) ); } /* SRA (HL) */ -OP(cb,2f) { _Z80_A = SRA(z80, _Z80_A); } /* SRA A */ - -OP(cb,30) { _Z80_B = SLL(z80, _Z80_B); } /* SLL B */ -OP(cb,31) { _Z80_C = SLL(z80, _Z80_C); } /* SLL C */ -OP(cb,32) { _Z80_D = SLL(z80, _Z80_D); } /* SLL D */ -OP(cb,33) { _Z80_E = SLL(z80, _Z80_E); } /* SLL E */ -OP(cb,34) { _Z80_H = SLL(z80, _Z80_H); } /* SLL H */ -OP(cb,35) { _Z80_L = SLL(z80, _Z80_L); } /* SLL L */ -OP(cb,36) { WM( _HL, SLL(z80, RM(_HL)) ); } /* SLL (HL) */ -OP(cb,37) { _Z80_A = SLL(z80, _Z80_A); } /* SLL A */ - -OP(cb,38) { _Z80_B = SRL(z80, _Z80_B); } /* SRL B */ -OP(cb,39) { _Z80_C = SRL(z80, _Z80_C); } /* SRL C */ -OP(cb,3a) { _Z80_D = SRL(z80, _Z80_D); } /* SRL D */ -OP(cb,3b) { _Z80_E = SRL(z80, _Z80_E); } /* SRL E */ -OP(cb,3c) { _Z80_H = SRL(z80, _Z80_H); } /* SRL H */ -OP(cb,3d) { _Z80_L = SRL(z80, _Z80_L); } /* SRL L */ -OP(cb,3e) { WM( _HL, SRL(z80, RM(_HL)) ); } /* SRL (HL) */ -OP(cb,3f) { _Z80_A = SRL(z80, _Z80_A); } /* SRL A */ - -OP(cb,40) { BIT(z80, 0,_Z80_B); } /* BIT 0,B */ -OP(cb,41) { BIT(z80, 0,_Z80_C); } /* BIT 0,C */ -OP(cb,42) { BIT(z80, 0,_Z80_D); } /* BIT 0,D */ -OP(cb,43) { BIT(z80, 0,_Z80_E); } /* BIT 0,E */ -OP(cb,44) { BIT(z80, 0,_Z80_H); } /* BIT 0,H */ -OP(cb,45) { BIT(z80, 0,_Z80_L); } /* BIT 0,L */ -OP(cb,46) { BIT(z80, 0,RM(_HL)); } /* BIT 0,(HL) */ -OP(cb,47) { BIT(z80, 0,_Z80_A); } /* BIT 0,A */ - -OP(cb,48) { BIT(z80, 1,_Z80_B); } /* BIT 1,B */ -OP(cb,49) { BIT(z80, 1,_Z80_C); } /* BIT 1,C */ -OP(cb,4a) { BIT(z80, 1,_Z80_D); } /* BIT 1,D */ -OP(cb,4b) { BIT(z80, 1,_Z80_E); } /* BIT 1,E */ -OP(cb,4c) { BIT(z80, 1,_Z80_H); } /* BIT 1,H */ -OP(cb,4d) { BIT(z80, 1,_Z80_L); } /* BIT 1,L */ -OP(cb,4e) { BIT(z80, 1,RM(_HL)); } /* BIT 1,(HL) */ -OP(cb,4f) { BIT(z80, 1,_Z80_A); } /* BIT 1,A */ - -OP(cb,50) { BIT(z80, 2,_Z80_B); } /* BIT 2,B */ -OP(cb,51) { BIT(z80, 2,_Z80_C); } /* BIT 2,C */ -OP(cb,52) { BIT(z80, 2,_Z80_D); } /* BIT 2,D */ -OP(cb,53) { BIT(z80, 2,_Z80_E); } /* BIT 2,E */ -OP(cb,54) { BIT(z80, 2,_Z80_H); } /* BIT 2,H */ -OP(cb,55) { BIT(z80, 2,_Z80_L); } /* BIT 2,L */ -OP(cb,56) { BIT(z80, 2,RM(_HL)); } /* BIT 2,(HL) */ -OP(cb,57) { BIT(z80, 2,_Z80_A); } /* BIT 2,A */ - -OP(cb,58) { BIT(z80, 3,_Z80_B); } /* BIT 3,B */ -OP(cb,59) { BIT(z80, 3,_Z80_C); } /* BIT 3,C */ -OP(cb,5a) { BIT(z80, 3,_Z80_D); } /* BIT 3,D */ -OP(cb,5b) { BIT(z80, 3,_Z80_E); } /* BIT 3,E */ -OP(cb,5c) { BIT(z80, 3,_Z80_H); } /* BIT 3,H */ -OP(cb,5d) { BIT(z80, 3,_Z80_L); } /* BIT 3,L */ -OP(cb,5e) { BIT(z80, 3,RM(_HL)); } /* BIT 3,(HL) */ -OP(cb,5f) { BIT(z80, 3,_Z80_A); } /* BIT 3,A */ - -OP(cb,60) { BIT(z80, 4,_Z80_B); } /* BIT 4,B */ -OP(cb,61) { BIT(z80, 4,_Z80_C); } /* BIT 4,C */ -OP(cb,62) { BIT(z80, 4,_Z80_D); } /* BIT 4,D */ -OP(cb,63) { BIT(z80, 4,_Z80_E); } /* BIT 4,E */ -OP(cb,64) { BIT(z80, 4,_Z80_H); } /* BIT 4,H */ -OP(cb,65) { BIT(z80, 4,_Z80_L); } /* BIT 4,L */ -OP(cb,66) { BIT(z80, 4,RM(_HL)); } /* BIT 4,(HL) */ -OP(cb,67) { BIT(z80, 4,_Z80_A); } /* BIT 4,A */ - -OP(cb,68) { BIT(z80, 5,_Z80_B); } /* BIT 5,B */ -OP(cb,69) { BIT(z80, 5,_Z80_C); } /* BIT 5,C */ -OP(cb,6a) { BIT(z80, 5,_Z80_D); } /* BIT 5,D */ -OP(cb,6b) { BIT(z80, 5,_Z80_E); } /* BIT 5,E */ -OP(cb,6c) { BIT(z80, 5,_Z80_H); } /* BIT 5,H */ -OP(cb,6d) { BIT(z80, 5,_Z80_L); } /* BIT 5,L */ -OP(cb,6e) { BIT(z80, 5,RM(_HL)); } /* BIT 5,(HL) */ -OP(cb,6f) { BIT(z80, 5,_Z80_A); } /* BIT 5,A */ - -OP(cb,70) { BIT(z80, 6,_Z80_B); } /* BIT 6,B */ -OP(cb,71) { BIT(z80, 6,_Z80_C); } /* BIT 6,C */ -OP(cb,72) { BIT(z80, 6,_Z80_D); } /* BIT 6,D */ -OP(cb,73) { BIT(z80, 6,_Z80_E); } /* BIT 6,E */ -OP(cb,74) { BIT(z80, 6,_Z80_H); } /* BIT 6,H */ -OP(cb,75) { BIT(z80, 6,_Z80_L); } /* BIT 6,L */ -OP(cb,76) { BIT(z80, 6,RM(_HL)); } /* BIT 6,(HL) */ -OP(cb,77) { BIT(z80, 6,_Z80_A); } /* BIT 6,A */ - -OP(cb,78) { BIT(z80, 7,_Z80_B); } /* BIT 7,B */ -OP(cb,79) { BIT(z80, 7,_Z80_C); } /* BIT 7,C */ -OP(cb,7a) { BIT(z80, 7,_Z80_D); } /* BIT 7,D */ -OP(cb,7b) { BIT(z80, 7,_Z80_E); } /* BIT 7,E */ -OP(cb,7c) { BIT(z80, 7,_Z80_H); } /* BIT 7,H */ -OP(cb,7d) { BIT(z80, 7,_Z80_L); } /* BIT 7,L */ -OP(cb,7e) { BIT(z80, 7,RM(_HL)); } /* BIT 7,(HL) */ -OP(cb,7f) { BIT(z80, 7,_Z80_A); } /* BIT 7,A */ - -OP(cb,80) { _Z80_B = RES(z80, 0,_Z80_B); } /* RES 0,B */ -OP(cb,81) { _Z80_C = RES(z80, 0,_Z80_C); } /* RES 0,C */ -OP(cb,82) { _Z80_D = RES(z80, 0,_Z80_D); } /* RES 0,D */ -OP(cb,83) { _Z80_E = RES(z80, 0,_Z80_E); } /* RES 0,E */ -OP(cb,84) { _Z80_H = RES(z80, 0,_Z80_H); } /* RES 0,H */ -OP(cb,85) { _Z80_L = RES(z80, 0,_Z80_L); } /* RES 0,L */ -OP(cb,86) { WM( _HL, RES(z80, 0,RM(_HL)) ); } /* RES 0,(HL) */ -OP(cb,87) { _Z80_A = RES(z80, 0,_Z80_A); } /* RES 0,A */ - -OP(cb,88) { _Z80_B = RES(z80, 1,_Z80_B); } /* RES 1,B */ -OP(cb,89) { _Z80_C = RES(z80, 1,_Z80_C); } /* RES 1,C */ -OP(cb,8a) { _Z80_D = RES(z80, 1,_Z80_D); } /* RES 1,D */ -OP(cb,8b) { _Z80_E = RES(z80, 1,_Z80_E); } /* RES 1,E */ -OP(cb,8c) { _Z80_H = RES(z80, 1,_Z80_H); } /* RES 1,H */ -OP(cb,8d) { _Z80_L = RES(z80, 1,_Z80_L); } /* RES 1,L */ -OP(cb,8e) { WM( _HL, RES(z80, 1,RM(_HL)) ); } /* RES 1,(HL) */ -OP(cb,8f) { _Z80_A = RES(z80, 1,_Z80_A); } /* RES 1,A */ - -OP(cb,90) { _Z80_B = RES(z80, 2,_Z80_B); } /* RES 2,B */ -OP(cb,91) { _Z80_C = RES(z80, 2,_Z80_C); } /* RES 2,C */ -OP(cb,92) { _Z80_D = RES(z80, 2,_Z80_D); } /* RES 2,D */ -OP(cb,93) { _Z80_E = RES(z80, 2,_Z80_E); } /* RES 2,E */ -OP(cb,94) { _Z80_H = RES(z80, 2,_Z80_H); } /* RES 2,H */ -OP(cb,95) { _Z80_L = RES(z80, 2,_Z80_L); } /* RES 2,L */ -OP(cb,96) { WM( _HL, RES(z80, 2,RM(_HL)) ); } /* RES 2,(HL) */ -OP(cb,97) { _Z80_A = RES(z80, 2,_Z80_A); } /* RES 2,A */ - -OP(cb,98) { _Z80_B = RES(z80, 3,_Z80_B); } /* RES 3,B */ -OP(cb,99) { _Z80_C = RES(z80, 3,_Z80_C); } /* RES 3,C */ -OP(cb,9a) { _Z80_D = RES(z80, 3,_Z80_D); } /* RES 3,D */ -OP(cb,9b) { _Z80_E = RES(z80, 3,_Z80_E); } /* RES 3,E */ -OP(cb,9c) { _Z80_H = RES(z80, 3,_Z80_H); } /* RES 3,H */ -OP(cb,9d) { _Z80_L = RES(z80, 3,_Z80_L); } /* RES 3,L */ -OP(cb,9e) { WM( _HL, RES(z80, 3,RM(_HL)) ); } /* RES 3,(HL) */ -OP(cb,9f) { _Z80_A = RES(z80, 3,_Z80_A); } /* RES 3,A */ - -OP(cb,a0) { _Z80_B = RES(z80, 4,_Z80_B); } /* RES 4,B */ -OP(cb,a1) { _Z80_C = RES(z80, 4,_Z80_C); } /* RES 4,C */ -OP(cb,a2) { _Z80_D = RES(z80, 4,_Z80_D); } /* RES 4,D */ -OP(cb,a3) { _Z80_E = RES(z80, 4,_Z80_E); } /* RES 4,E */ -OP(cb,a4) { _Z80_H = RES(z80, 4,_Z80_H); } /* RES 4,H */ -OP(cb,a5) { _Z80_L = RES(z80, 4,_Z80_L); } /* RES 4,L */ -OP(cb,a6) { WM( _HL, RES(z80, 4,RM(_HL)) ); } /* RES 4,(HL) */ -OP(cb,a7) { _Z80_A = RES(z80, 4,_Z80_A); } /* RES 4,A */ - -OP(cb,a8) { _Z80_B = RES(z80, 5,_Z80_B); } /* RES 5,B */ -OP(cb,a9) { _Z80_C = RES(z80, 5,_Z80_C); } /* RES 5,C */ -OP(cb,aa) { _Z80_D = RES(z80, 5,_Z80_D); } /* RES 5,D */ -OP(cb,ab) { _Z80_E = RES(z80, 5,_Z80_E); } /* RES 5,E */ -OP(cb,ac) { _Z80_H = RES(z80, 5,_Z80_H); } /* RES 5,H */ -OP(cb,ad) { _Z80_L = RES(z80, 5,_Z80_L); } /* RES 5,L */ -OP(cb,ae) { WM( _HL, RES(z80, 5,RM(_HL)) ); } /* RES 5,(HL) */ -OP(cb,af) { _Z80_A = RES(z80, 5,_Z80_A); } /* RES 5,A */ - -OP(cb,b0) { _Z80_B = RES(z80, 6,_Z80_B); } /* RES 6,B */ -OP(cb,b1) { _Z80_C = RES(z80, 6,_Z80_C); } /* RES 6,C */ -OP(cb,b2) { _Z80_D = RES(z80, 6,_Z80_D); } /* RES 6,D */ -OP(cb,b3) { _Z80_E = RES(z80, 6,_Z80_E); } /* RES 6,E */ -OP(cb,b4) { _Z80_H = RES(z80, 6,_Z80_H); } /* RES 6,H */ -OP(cb,b5) { _Z80_L = RES(z80, 6,_Z80_L); } /* RES 6,L */ -OP(cb,b6) { WM( _HL, RES(z80, 6,RM(_HL)) ); } /* RES 6,(HL) */ -OP(cb,b7) { _Z80_A = RES(z80, 6,_Z80_A); } /* RES 6,A */ - -OP(cb,b8) { _Z80_B = RES(z80, 7,_Z80_B); } /* RES 7,B */ -OP(cb,b9) { _Z80_C = RES(z80, 7,_Z80_C); } /* RES 7,C */ -OP(cb,ba) { _Z80_D = RES(z80, 7,_Z80_D); } /* RES 7,D */ -OP(cb,bb) { _Z80_E = RES(z80, 7,_Z80_E); } /* RES 7,E */ -OP(cb,bc) { _Z80_H = RES(z80, 7,_Z80_H); } /* RES 7,H */ -OP(cb,bd) { _Z80_L = RES(z80, 7,_Z80_L); } /* RES 7,L */ -OP(cb,be) { WM( _HL, RES(z80, 7,RM(_HL)) ); } /* RES 7,(HL) */ -OP(cb,bf) { _Z80_A = RES(z80, 7,_Z80_A); } /* RES 7,A */ - -OP(cb,c0) { _Z80_B = SET(z80, 0,_Z80_B); } /* SET 0,B */ -OP(cb,c1) { _Z80_C = SET(z80, 0,_Z80_C); } /* SET 0,C */ -OP(cb,c2) { _Z80_D = SET(z80, 0,_Z80_D); } /* SET 0,D */ -OP(cb,c3) { _Z80_E = SET(z80, 0,_Z80_E); } /* SET 0,E */ -OP(cb,c4) { _Z80_H = SET(z80, 0,_Z80_H); } /* SET 0,H */ -OP(cb,c5) { _Z80_L = SET(z80, 0,_Z80_L); } /* SET 0,L */ -OP(cb,c6) { WM( _HL, SET(z80, 0,RM(_HL)) ); } /* SET 0,(HL) */ -OP(cb,c7) { _Z80_A = SET(z80, 0,_Z80_A); } /* SET 0,A */ - -OP(cb,c8) { _Z80_B = SET(z80, 1,_Z80_B); } /* SET 1,B */ -OP(cb,c9) { _Z80_C = SET(z80, 1,_Z80_C); } /* SET 1,C */ -OP(cb,ca) { _Z80_D = SET(z80, 1,_Z80_D); } /* SET 1,D */ -OP(cb,cb) { _Z80_E = SET(z80, 1,_Z80_E); } /* SET 1,E */ -OP(cb,cc) { _Z80_H = SET(z80, 1,_Z80_H); } /* SET 1,H */ -OP(cb,cd) { _Z80_L = SET(z80, 1,_Z80_L); } /* SET 1,L */ -OP(cb,ce) { WM( _HL, SET(z80, 1,RM(_HL)) ); } /* SET 1,(HL) */ -OP(cb,cf) { _Z80_A = SET(z80, 1,_Z80_A); } /* SET 1,A */ - -OP(cb,d0) { _Z80_B = SET(z80, 2,_Z80_B); } /* SET 2,B */ -OP(cb,d1) { _Z80_C = SET(z80, 2,_Z80_C); } /* SET 2,C */ -OP(cb,d2) { _Z80_D = SET(z80, 2,_Z80_D); } /* SET 2,D */ -OP(cb,d3) { _Z80_E = SET(z80, 2,_Z80_E); } /* SET 2,E */ -OP(cb,d4) { _Z80_H = SET(z80, 2,_Z80_H); } /* SET 2,H */ -OP(cb,d5) { _Z80_L = SET(z80, 2,_Z80_L); } /* SET 2,L */ -OP(cb,d6) { WM( _HL, SET(z80, 2,RM(_HL)) ); }/* SET 2,(HL) */ -OP(cb,d7) { _Z80_A = SET(z80, 2,_Z80_A); } /* SET 2,A */ - -OP(cb,d8) { _Z80_B = SET(z80, 3,_Z80_B); } /* SET 3,B */ -OP(cb,d9) { _Z80_C = SET(z80, 3,_Z80_C); } /* SET 3,C */ -OP(cb,da) { _Z80_D = SET(z80, 3,_Z80_D); } /* SET 3,D */ -OP(cb,db) { _Z80_E = SET(z80, 3,_Z80_E); } /* SET 3,E */ -OP(cb,dc) { _Z80_H = SET(z80, 3,_Z80_H); } /* SET 3,H */ -OP(cb,dd) { _Z80_L = SET(z80, 3,_Z80_L); } /* SET 3,L */ -OP(cb,de) { WM( _HL, SET(z80, 3,RM(_HL)) ); } /* SET 3,(HL) */ -OP(cb,df) { _Z80_A = SET(z80, 3,_Z80_A); } /* SET 3,A */ - -OP(cb,e0) { _Z80_B = SET(z80, 4,_Z80_B); } /* SET 4,B */ -OP(cb,e1) { _Z80_C = SET(z80, 4,_Z80_C); } /* SET 4,C */ -OP(cb,e2) { _Z80_D = SET(z80, 4,_Z80_D); } /* SET 4,D */ -OP(cb,e3) { _Z80_E = SET(z80, 4,_Z80_E); } /* SET 4,E */ -OP(cb,e4) { _Z80_H = SET(z80, 4,_Z80_H); } /* SET 4,H */ -OP(cb,e5) { _Z80_L = SET(z80, 4,_Z80_L); } /* SET 4,L */ -OP(cb,e6) { WM( _HL, SET(z80, 4,RM(_HL)) ); } /* SET 4,(HL) */ -OP(cb,e7) { _Z80_A = SET(z80, 4,_Z80_A); } /* SET 4,A */ - -OP(cb,e8) { _Z80_B = SET(z80, 5,_Z80_B); } /* SET 5,B */ -OP(cb,e9) { _Z80_C = SET(z80, 5,_Z80_C); } /* SET 5,C */ -OP(cb,ea) { _Z80_D = SET(z80, 5,_Z80_D); } /* SET 5,D */ -OP(cb,eb) { _Z80_E = SET(z80, 5,_Z80_E); } /* SET 5,E */ -OP(cb,ec) { _Z80_H = SET(z80, 5,_Z80_H); } /* SET 5,H */ -OP(cb,ed) { _Z80_L = SET(z80, 5,_Z80_L); } /* SET 5,L */ -OP(cb,ee) { WM( _HL, SET(z80, 5,RM(_HL)) ); } /* SET 5,(HL) */ -OP(cb,ef) { _Z80_A = SET(z80, 5,_Z80_A); } /* SET 5,A */ - -OP(cb,f0) { _Z80_B = SET(z80, 6,_Z80_B); } /* SET 6,B */ -OP(cb,f1) { _Z80_C = SET(z80, 6,_Z80_C); } /* SET 6,C */ -OP(cb,f2) { _Z80_D = SET(z80, 6,_Z80_D); } /* SET 6,D */ -OP(cb,f3) { _Z80_E = SET(z80, 6,_Z80_E); } /* SET 6,E */ -OP(cb,f4) { _Z80_H = SET(z80, 6,_Z80_H); } /* SET 6,H */ -OP(cb,f5) { _Z80_L = SET(z80, 6,_Z80_L); } /* SET 6,L */ -OP(cb,f6) { WM( _HL, SET(z80, 6,RM(_HL)) ); } /* SET 6,(HL) */ -OP(cb,f7) { _Z80_A = SET(z80, 6,_Z80_A); } /* SET 6,A */ - -OP(cb,f8) { _Z80_B = SET(z80, 7,_Z80_B); } /* SET 7,B */ -OP(cb,f9) { _Z80_C = SET(z80, 7,_Z80_C); } /* SET 7,C */ -OP(cb,fa) { _Z80_D = SET(z80, 7,_Z80_D); } /* SET 7,D */ -OP(cb,fb) { _Z80_E = SET(z80, 7,_Z80_E); } /* SET 7,E */ -OP(cb,fc) { _Z80_H = SET(z80, 7,_Z80_H); } /* SET 7,H */ -OP(cb,fd) { _Z80_L = SET(z80, 7,_Z80_L); } /* SET 7,L */ -OP(cb,fe) { WM( _HL, SET(z80, 7,RM(_HL)) ); } /* SET 7,(HL) */ -OP(cb,ff) { _Z80_A = SET(z80, 7,_Z80_A); } /* SET 7,A */ - - -/********************************************************** -* opcodes with DD/FD CB prefix -* rotate, shift and bit operations with (IX+o) -**********************************************************/ -OP(xycb,00) { _Z80_B = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RLC B=(XY+o) */ -OP(xycb,01) { _Z80_C = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RLC C=(XY+o) */ -OP(xycb,02) { _Z80_D = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RLC D=(XY+o) */ -OP(xycb,03) { _Z80_E = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RLC E=(XY+o) */ -OP(xycb,04) { _Z80_H = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RLC H=(XY+o) */ -OP(xycb,05) { _Z80_L = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RLC L=(XY+o) */ -OP(xycb,06) { WM( z80->EA, RLC(z80, RM(z80->EA) ) ); } /* RLC (XY+o) */ -OP(xycb,07) { _Z80_A = RLC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RLC A=(XY+o) */ - -OP(xycb,08) { _Z80_B = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RRC B=(XY+o) */ -OP(xycb,09) { _Z80_C = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RRC C=(XY+o) */ -OP(xycb,0a) { _Z80_D = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RRC D=(XY+o) */ -OP(xycb,0b) { _Z80_E = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RRC E=(XY+o) */ -OP(xycb,0c) { _Z80_H = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RRC H=(XY+o) */ -OP(xycb,0d) { _Z80_L = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RRC L=(XY+o) */ -OP(xycb,0e) { WM( z80->EA,RRC(z80, RM(z80->EA) ) ); } /* RRC (XY+o) */ -OP(xycb,0f) { _Z80_A = RRC(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RRC A=(XY+o) */ - -OP(xycb,10) { _Z80_B = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RL B=(XY+o) */ -OP(xycb,11) { _Z80_C = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RL C=(XY+o) */ -OP(xycb,12) { _Z80_D = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RL D=(XY+o) */ -OP(xycb,13) { _Z80_E = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RL E=(XY+o) */ -OP(xycb,14) { _Z80_H = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RL H=(XY+o) */ -OP(xycb,15) { _Z80_L = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RL L=(XY+o) */ -OP(xycb,16) { WM( z80->EA,RL(z80, RM(z80->EA) ) ); } /* RL (XY+o) */ -OP(xycb,17) { _Z80_A = RL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RL A=(XY+o) */ - -OP(xycb,18) { _Z80_B = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RR B=(XY+o) */ -OP(xycb,19) { _Z80_C = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RR C=(XY+o) */ -OP(xycb,1a) { _Z80_D = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RR D=(XY+o) */ -OP(xycb,1b) { _Z80_E = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RR E=(XY+o) */ -OP(xycb,1c) { _Z80_H = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RR H=(XY+o) */ -OP(xycb,1d) { _Z80_L = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RR L=(XY+o) */ -OP(xycb,1e) { WM( z80->EA,RR(z80, RM(z80->EA) ) ); } /* RR (XY+o) */ -OP(xycb,1f) { _Z80_A = RR(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RR A=(XY+o) */ - -OP(xycb,20) { _Z80_B = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SLA B=(XY+o) */ -OP(xycb,21) { _Z80_C = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SLA C=(XY+o) */ -OP(xycb,22) { _Z80_D = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SLA D=(XY+o) */ -OP(xycb,23) { _Z80_E = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SLA E=(XY+o) */ -OP(xycb,24) { _Z80_H = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SLA H=(XY+o) */ -OP(xycb,25) { _Z80_L = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SLA L=(XY+o) */ -OP(xycb,26) { WM( z80->EA,SLA(z80, RM(z80->EA) ) ); } /* SLA (XY+o) */ -OP(xycb,27) { _Z80_A = SLA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SLA A=(XY+o) */ - -OP(xycb,28) { _Z80_B = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SRA B=(XY+o) */ -OP(xycb,29) { _Z80_C = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SRA C=(XY+o) */ -OP(xycb,2a) { _Z80_D = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SRA D=(XY+o) */ -OP(xycb,2b) { _Z80_E = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SRA E=(XY+o) */ -OP(xycb,2c) { _Z80_H = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SRA H=(XY+o) */ -OP(xycb,2d) { _Z80_L = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SRA L=(XY+o) */ -OP(xycb,2e) { WM( z80->EA,SRA(z80, RM(z80->EA) ) ); } /* SRA (XY+o) */ -OP(xycb,2f) { _Z80_A = SRA(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SRA A=(XY+o) */ - -OP(xycb,30) { _Z80_B = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SLL B=(XY+o) */ -OP(xycb,31) { _Z80_C = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SLL C=(XY+o) */ -OP(xycb,32) { _Z80_D = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SLL D=(XY+o) */ -OP(xycb,33) { _Z80_E = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SLL E=(XY+o) */ -OP(xycb,34) { _Z80_H = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SLL H=(XY+o) */ -OP(xycb,35) { _Z80_L = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SLL L=(XY+o) */ -OP(xycb,36) { WM( z80->EA,SLL(z80, RM(z80->EA) ) ); } /* SLL (XY+o) */ -OP(xycb,37) { _Z80_A = SLL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SLL A=(XY+o) */ - -OP(xycb,38) { _Z80_B = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SRL B=(XY+o) */ -OP(xycb,39) { _Z80_C = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SRL C=(XY+o) */ -OP(xycb,3a) { _Z80_D = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SRL D=(XY+o) */ -OP(xycb,3b) { _Z80_E = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SRL E=(XY+o) */ -OP(xycb,3c) { _Z80_H = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SRL H=(XY+o) */ -OP(xycb,3d) { _Z80_L = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SRL L=(XY+o) */ -OP(xycb,3e) { WM( z80->EA,SRL(z80, RM(z80->EA) ) ); } /* SRL (XY+o) */ -OP(xycb,3f) { _Z80_A = SRL(z80, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SRL A=(XY+o) */ - -OP(xycb,40) { xycb_46(z80); } /* BIT 0,B=(XY+o) */ -OP(xycb,41) { xycb_46(z80); } /* BIT 0,C=(XY+o) */ -OP(xycb,42) { xycb_46(z80); } /* BIT 0,D=(XY+o) */ -OP(xycb,43) { xycb_46(z80); } /* BIT 0,E=(XY+o) */ -OP(xycb,44) { xycb_46(z80); } /* BIT 0,H=(XY+o) */ -OP(xycb,45) { xycb_46(z80); } /* BIT 0,L=(XY+o) */ -OP(xycb,46) { BIT_XY(z80,0,RM(z80->EA)); } /* BIT 0,(XY+o) */ -OP(xycb,47) { xycb_46(z80); } /* BIT 0,A=(XY+o) */ - -OP(xycb,48) { xycb_4e(z80); } /* BIT 1,B=(XY+o) */ -OP(xycb,49) { xycb_4e(z80); } /* BIT 1,C=(XY+o) */ -OP(xycb,4a) { xycb_4e(z80); } /* BIT 1,D=(XY+o) */ -OP(xycb,4b) { xycb_4e(z80); } /* BIT 1,E=(XY+o) */ -OP(xycb,4c) { xycb_4e(z80); } /* BIT 1,H=(XY+o) */ -OP(xycb,4d) { xycb_4e(z80); } /* BIT 1,L=(XY+o) */ -OP(xycb,4e) { BIT_XY(z80,1,RM(z80->EA)); } /* BIT 1,(XY+o) */ -OP(xycb,4f) { xycb_4e(z80); } /* BIT 1,A=(XY+o) */ - -OP(xycb,50) { xycb_56(z80); } /* BIT 2,B=(XY+o) */ -OP(xycb,51) { xycb_56(z80); } /* BIT 2,C=(XY+o) */ -OP(xycb,52) { xycb_56(z80); } /* BIT 2,D=(XY+o) */ -OP(xycb,53) { xycb_56(z80); } /* BIT 2,E=(XY+o) */ -OP(xycb,54) { xycb_56(z80); } /* BIT 2,H=(XY+o) */ -OP(xycb,55) { xycb_56(z80); } /* BIT 2,L=(XY+o) */ -OP(xycb,56) { BIT_XY(z80,2,RM(z80->EA)); } /* BIT 2,(XY+o) */ -OP(xycb,57) { xycb_56(z80); } /* BIT 2,A=(XY+o) */ - -OP(xycb,58) { xycb_5e(z80); } /* BIT 3,B=(XY+o) */ -OP(xycb,59) { xycb_5e(z80); } /* BIT 3,C=(XY+o) */ -OP(xycb,5a) { xycb_5e(z80); } /* BIT 3,D=(XY+o) */ -OP(xycb,5b) { xycb_5e(z80); } /* BIT 3,E=(XY+o) */ -OP(xycb,5c) { xycb_5e(z80); } /* BIT 3,H=(XY+o) */ -OP(xycb,5d) { xycb_5e(z80); } /* BIT 3,L=(XY+o) */ -OP(xycb,5e) { BIT_XY(z80,3,RM(z80->EA)); } /* BIT 3,(XY+o) */ -OP(xycb,5f) { xycb_5e(z80); } /* BIT 3,A=(XY+o) */ - -OP(xycb,60) { xycb_66(z80); } /* BIT 4,B=(XY+o) */ -OP(xycb,61) { xycb_66(z80); } /* BIT 4,C=(XY+o) */ -OP(xycb,62) { xycb_66(z80); } /* BIT 4,D=(XY+o) */ -OP(xycb,63) { xycb_66(z80); } /* BIT 4,E=(XY+o) */ -OP(xycb,64) { xycb_66(z80); } /* BIT 4,H=(XY+o) */ -OP(xycb,65) { xycb_66(z80); } /* BIT 4,L=(XY+o) */ -OP(xycb,66) { BIT_XY(z80,4,RM(z80->EA)); } /* BIT 4,(XY+o) */ -OP(xycb,67) { xycb_66(z80); } /* BIT 4,A=(XY+o) */ - -OP(xycb,68) { xycb_6e(z80); } /* BIT 5,B=(XY+o) */ -OP(xycb,69) { xycb_6e(z80); } /* BIT 5,C=(XY+o) */ -OP(xycb,6a) { xycb_6e(z80); } /* BIT 5,D=(XY+o) */ -OP(xycb,6b) { xycb_6e(z80); } /* BIT 5,E=(XY+o) */ -OP(xycb,6c) { xycb_6e(z80); } /* BIT 5,H=(XY+o) */ -OP(xycb,6d) { xycb_6e(z80); } /* BIT 5,L=(XY+o) */ -OP(xycb,6e) { BIT_XY(z80,5,RM(z80->EA)); } /* BIT 5,(XY+o) */ -OP(xycb,6f) { xycb_6e(z80); } /* BIT 5,A=(XY+o) */ - -OP(xycb,70) { xycb_76(z80); } /* BIT 6,B=(XY+o) */ -OP(xycb,71) { xycb_76(z80); } /* BIT 6,C=(XY+o) */ -OP(xycb,72) { xycb_76(z80); } /* BIT 6,D=(XY+o) */ -OP(xycb,73) { xycb_76(z80); } /* BIT 6,E=(XY+o) */ -OP(xycb,74) { xycb_76(z80); } /* BIT 6,H=(XY+o) */ -OP(xycb,75) { xycb_76(z80); } /* BIT 6,L=(XY+o) */ -OP(xycb,76) { BIT_XY(z80,6,RM(z80->EA)); } /* BIT 6,(XY+o) */ -OP(xycb,77) { xycb_76(z80); } /* BIT 6,A=(XY+o) */ - -OP(xycb,78) { xycb_7e(z80); } /* BIT 7,B=(XY+o) */ -OP(xycb,79) { xycb_7e(z80); } /* BIT 7,C=(XY+o) */ -OP(xycb,7a) { xycb_7e(z80); } /* BIT 7,D=(XY+o) */ -OP(xycb,7b) { xycb_7e(z80); } /* BIT 7,E=(XY+o) */ -OP(xycb,7c) { xycb_7e(z80); } /* BIT 7,H=(XY+o) */ -OP(xycb,7d) { xycb_7e(z80); } /* BIT 7,L=(XY+o) */ -OP(xycb,7e) { BIT_XY(z80,7,RM(z80->EA)); } /* BIT 7,(XY+o) */ -OP(xycb,7f) { xycb_7e(z80); } /* BIT 7,A=(XY+o) */ - -OP(xycb,80) { _Z80_B = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 0,B=(XY+o) */ -OP(xycb,81) { _Z80_C = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 0,C=(XY+o) */ -OP(xycb,82) { _Z80_D = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 0,D=(XY+o) */ -OP(xycb,83) { _Z80_E = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 0,E=(XY+o) */ -OP(xycb,84) { _Z80_H = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 0,H=(XY+o) */ -OP(xycb,85) { _Z80_L = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 0,L=(XY+o) */ -OP(xycb,86) { WM( z80->EA, RES(z80, 0,RM(z80->EA)) ); } /* RES 0,(XY+o) */ -OP(xycb,87) { _Z80_A = RES(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 0,A=(XY+o) */ - -OP(xycb,88) { _Z80_B = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 1,B=(XY+o) */ -OP(xycb,89) { _Z80_C = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 1,C=(XY+o) */ -OP(xycb,8a) { _Z80_D = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 1,D=(XY+o) */ -OP(xycb,8b) { _Z80_E = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 1,E=(XY+o) */ -OP(xycb,8c) { _Z80_H = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 1,H=(XY+o) */ -OP(xycb,8d) { _Z80_L = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 1,L=(XY+o) */ -OP(xycb,8e) { WM( z80->EA, RES(z80, 1,RM(z80->EA)) ); } /* RES 1,(XY+o) */ -OP(xycb,8f) { _Z80_A = RES(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 1,A=(XY+o) */ - -OP(xycb,90) { _Z80_B = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 2,B=(XY+o) */ -OP(xycb,91) { _Z80_C = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 2,C=(XY+o) */ -OP(xycb,92) { _Z80_D = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 2,D=(XY+o) */ -OP(xycb,93) { _Z80_E = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 2,E=(XY+o) */ -OP(xycb,94) { _Z80_H = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 2,H=(XY+o) */ -OP(xycb,95) { _Z80_L = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 2,L=(XY+o) */ -OP(xycb,96) { WM( z80->EA, RES(z80, 2,RM(z80->EA)) ); } /* RES 2,(XY+o) */ -OP(xycb,97) { _Z80_A = RES(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 2,A=(XY+o) */ - -OP(xycb,98) { _Z80_B = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 3,B=(XY+o) */ -OP(xycb,99) { _Z80_C = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 3,C=(XY+o) */ -OP(xycb,9a) { _Z80_D = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 3,D=(XY+o) */ -OP(xycb,9b) { _Z80_E = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 3,E=(XY+o) */ -OP(xycb,9c) { _Z80_H = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 3,H=(XY+o) */ -OP(xycb,9d) { _Z80_L = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 3,L=(XY+o) */ -OP(xycb,9e) { WM( z80->EA, RES(z80, 3,RM(z80->EA)) ); } /* RES 3,(XY+o) */ -OP(xycb,9f) { _Z80_A = RES(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 3,A=(XY+o) */ - -OP(xycb,a0) { _Z80_B = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 4,B=(XY+o) */ -OP(xycb,a1) { _Z80_C = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 4,C=(XY+o) */ -OP(xycb,a2) { _Z80_D = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 4,D=(XY+o) */ -OP(xycb,a3) { _Z80_E = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 4,E=(XY+o) */ -OP(xycb,a4) { _Z80_H = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 4,H=(XY+o) */ -OP(xycb,a5) { _Z80_L = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 4,L=(XY+o) */ -OP(xycb,a6) { WM( z80->EA, RES(z80, 4,RM(z80->EA)) ); } /* RES 4,(XY+o) */ -OP(xycb,a7) { _Z80_A = RES(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 4,A=(XY+o) */ - -OP(xycb,a8) { _Z80_B = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 5,B=(XY+o) */ -OP(xycb,a9) { _Z80_C = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 5,C=(XY+o) */ -OP(xycb,aa) { _Z80_D = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 5,D=(XY+o) */ -OP(xycb,ab) { _Z80_E = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 5,E=(XY+o) */ -OP(xycb,ac) { _Z80_H = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 5,H=(XY+o) */ -OP(xycb,ad) { _Z80_L = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 5,L=(XY+o) */ -OP(xycb,ae) { WM( z80->EA, RES(z80, 5,RM(z80->EA)) ); } /* RES 5,(XY+o) */ -OP(xycb,af) { _Z80_A = RES(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 5,A=(XY+o) */ - -OP(xycb,b0) { _Z80_B = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 6,B=(XY+o) */ -OP(xycb,b1) { _Z80_C = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 6,C=(XY+o) */ -OP(xycb,b2) { _Z80_D = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 6,D=(XY+o) */ -OP(xycb,b3) { _Z80_E = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 6,E=(XY+o) */ -OP(xycb,b4) { _Z80_H = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 6,H=(XY+o) */ -OP(xycb,b5) { _Z80_L = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 6,L=(XY+o) */ -OP(xycb,b6) { WM( z80->EA, RES(z80, 6,RM(z80->EA)) ); } /* RES 6,(XY+o) */ -OP(xycb,b7) { _Z80_A = RES(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 6,A=(XY+o) */ - -OP(xycb,b8) { _Z80_B = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* RES 7,B=(XY+o) */ -OP(xycb,b9) { _Z80_C = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* RES 7,C=(XY+o) */ -OP(xycb,ba) { _Z80_D = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* RES 7,D=(XY+o) */ -OP(xycb,bb) { _Z80_E = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* RES 7,E=(XY+o) */ -OP(xycb,bc) { _Z80_H = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* RES 7,H=(XY+o) */ -OP(xycb,bd) { _Z80_L = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* RES 7,L=(XY+o) */ -OP(xycb,be) { WM( z80->EA, RES(z80, 7,RM(z80->EA)) ); } /* RES 7,(XY+o) */ -OP(xycb,bf) { _Z80_A = RES(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* RES 7,A=(XY+o) */ - -OP(xycb,c0) { _Z80_B = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 0,B=(XY+o) */ -OP(xycb,c1) { _Z80_C = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 0,C=(XY+o) */ -OP(xycb,c2) { _Z80_D = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 0,D=(XY+o) */ -OP(xycb,c3) { _Z80_E = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 0,E=(XY+o) */ -OP(xycb,c4) { _Z80_H = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 0,H=(XY+o) */ -OP(xycb,c5) { _Z80_L = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 0,L=(XY+o) */ -OP(xycb,c6) { WM( z80->EA, SET(z80, 0,RM(z80->EA)) ); } /* SET 0,(XY+o) */ -OP(xycb,c7) { _Z80_A = SET(z80, 0, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 0,A=(XY+o) */ - -OP(xycb,c8) { _Z80_B = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 1,B=(XY+o) */ -OP(xycb,c9) { _Z80_C = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 1,C=(XY+o) */ -OP(xycb,ca) { _Z80_D = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 1,D=(XY+o) */ -OP(xycb,cb) { _Z80_E = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 1,E=(XY+o) */ -OP(xycb,cc) { _Z80_H = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 1,H=(XY+o) */ -OP(xycb,cd) { _Z80_L = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 1,L=(XY+o) */ -OP(xycb,ce) { WM( z80->EA, SET(z80, 1,RM(z80->EA)) ); } /* SET 1,(XY+o) */ -OP(xycb,cf) { _Z80_A = SET(z80, 1, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 1,A=(XY+o) */ - -OP(xycb,d0) { _Z80_B = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 2,B=(XY+o) */ -OP(xycb,d1) { _Z80_C = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 2,C=(XY+o) */ -OP(xycb,d2) { _Z80_D = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 2,D=(XY+o) */ -OP(xycb,d3) { _Z80_E = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 2,E=(XY+o) */ -OP(xycb,d4) { _Z80_H = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 2,H=(XY+o) */ -OP(xycb,d5) { _Z80_L = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 2,L=(XY+o) */ -OP(xycb,d6) { WM( z80->EA, SET(z80, 2,RM(z80->EA)) ); } /* SET 2,(XY+o) */ -OP(xycb,d7) { _Z80_A = SET(z80, 2, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 2,A=(XY+o) */ - -OP(xycb,d8) { _Z80_B = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 3,B=(XY+o) */ -OP(xycb,d9) { _Z80_C = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 3,C=(XY+o) */ -OP(xycb,da) { _Z80_D = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 3,D=(XY+o) */ -OP(xycb,db) { _Z80_E = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 3,E=(XY+o) */ -OP(xycb,dc) { _Z80_H = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 3,H=(XY+o) */ -OP(xycb,dd) { _Z80_L = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 3,L=(XY+o) */ -OP(xycb,de) { WM( z80->EA, SET(z80, 3,RM(z80->EA)) ); } /* SET 3,(XY+o) */ -OP(xycb,df) { _Z80_A = SET(z80, 3, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 3,A=(XY+o) */ - -OP(xycb,e0) { _Z80_B = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 4,B=(XY+o) */ -OP(xycb,e1) { _Z80_C = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 4,C=(XY+o) */ -OP(xycb,e2) { _Z80_D = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 4,D=(XY+o) */ -OP(xycb,e3) { _Z80_E = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 4,E=(XY+o) */ -OP(xycb,e4) { _Z80_H = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 4,H=(XY+o) */ -OP(xycb,e5) { _Z80_L = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 4,L=(XY+o) */ -OP(xycb,e6) { WM( z80->EA, SET(z80, 4,RM(z80->EA)) ); } /* SET 4,(XY+o) */ -OP(xycb,e7) { _Z80_A = SET(z80, 4, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 4,A=(XY+o) */ - -OP(xycb,e8) { _Z80_B = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 5,B=(XY+o) */ -OP(xycb,e9) { _Z80_C = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 5,C=(XY+o) */ -OP(xycb,ea) { _Z80_D = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 5,D=(XY+o) */ -OP(xycb,eb) { _Z80_E = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 5,E=(XY+o) */ -OP(xycb,ec) { _Z80_H = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 5,H=(XY+o) */ -OP(xycb,ed) { _Z80_L = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 5,L=(XY+o) */ -OP(xycb,ee) { WM( z80->EA, SET(z80, 5,RM(z80->EA)) ); } /* SET 5,(XY+o) */ -OP(xycb,ef) { _Z80_A = SET(z80, 5, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 5,A=(XY+o) */ - -OP(xycb,f0) { _Z80_B = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 6,B=(XY+o) */ -OP(xycb,f1) { _Z80_C = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 6,C=(XY+o) */ -OP(xycb,f2) { _Z80_D = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 6,D=(XY+o) */ -OP(xycb,f3) { _Z80_E = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 6,E=(XY+o) */ -OP(xycb,f4) { _Z80_H = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 6,H=(XY+o) */ -OP(xycb,f5) { _Z80_L = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 6,L=(XY+o) */ -OP(xycb,f6) { WM( z80->EA, SET(z80, 6,RM(z80->EA)) ); } /* SET 6,(XY+o) */ -OP(xycb,f7) { _Z80_A = SET(z80, 6, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 6,A=(XY+o) */ - -OP(xycb,f8) { _Z80_B = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_B ); } /* SET 7,B=(XY+o) */ -OP(xycb,f9) { _Z80_C = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_C ); } /* SET 7,C=(XY+o) */ -OP(xycb,fa) { _Z80_D = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_D ); } /* SET 7,D=(XY+o) */ -OP(xycb,fb) { _Z80_E = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_E ); } /* SET 7,E=(XY+o) */ -OP(xycb,fc) { _Z80_H = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_H ); } /* SET 7,H=(XY+o) */ -OP(xycb,fd) { _Z80_L = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_L ); } /* SET 7,L=(XY+o) */ -OP(xycb,fe) { WM( z80->EA, SET(z80, 7,RM(z80->EA)) ); } /* SET 7,(XY+o) */ -OP(xycb,ff) { _Z80_A = SET(z80, 7, RM(z80->EA) ); WM( z80->EA,_Z80_A ); } /* SET 7,A=(XY+o) */ - -OP(illegal,1) { - logerror("Z80 #%d ill. opcode $%02x $%02x\n", - cpu_getactivecpu(), cpu_readop(z80->userdata,(_PCD-1)&0xffff), cpu_readop(z80->userdata,_PCD)); -} - -/********************************************************** - * IX register related opcodes (DD prefix) - **********************************************************/ -OP(dd,00) { illegal_1(z80); op_00(z80); } /* DB DD */ -OP(dd,01) { illegal_1(z80); op_01(z80); } /* DB DD */ -OP(dd,02) { illegal_1(z80); op_02(z80); } /* DB DD */ -OP(dd,03) { illegal_1(z80); op_03(z80); } /* DB DD */ -OP(dd,04) { illegal_1(z80); op_04(z80); } /* DB DD */ -OP(dd,05) { illegal_1(z80); op_05(z80); } /* DB DD */ -OP(dd,06) { illegal_1(z80); op_06(z80); } /* DB DD */ -OP(dd,07) { illegal_1(z80); op_07(z80); } /* DB DD */ - -OP(dd,08) { illegal_1(z80); op_08(z80); } /* DB DD */ -OP(dd,09) { _Z80_R++; ADD16(z80,IX,BC); } /* ADD IX,BC */ -OP(dd,0a) { illegal_1(z80); op_0a(z80); } /* DB DD */ -OP(dd,0b) { illegal_1(z80); op_0b(z80); } /* DB DD */ -OP(dd,0c) { illegal_1(z80); op_0c(z80); } /* DB DD */ -OP(dd,0d) { illegal_1(z80); op_0d(z80); } /* DB DD */ -OP(dd,0e) { illegal_1(z80); op_0e(z80); } /* DB DD */ -OP(dd,0f) { illegal_1(z80); op_0f(z80); } /* DB DD */ - -OP(dd,10) { illegal_1(z80); op_10(z80); } /* DB DD */ -OP(dd,11) { illegal_1(z80); op_11(z80); } /* DB DD */ -OP(dd,12) { illegal_1(z80); op_12(z80); } /* DB DD */ -OP(dd,13) { illegal_1(z80); op_13(z80); } /* DB DD */ -OP(dd,14) { illegal_1(z80); op_14(z80); } /* DB DD */ -OP(dd,15) { illegal_1(z80); op_15(z80); } /* DB DD */ -OP(dd,16) { illegal_1(z80); op_16(z80); } /* DB DD */ -OP(dd,17) { illegal_1(z80); op_17(z80); } /* DB DD */ - -OP(dd,18) { illegal_1(z80); op_18(z80); } /* DB DD */ -OP(dd,19) { _Z80_R++; ADD16(z80,IX,DE); } /* ADD IX,DE */ -OP(dd,1a) { illegal_1(z80); op_1a(z80); } /* DB DD */ -OP(dd,1b) { illegal_1(z80); op_1b(z80); } /* DB DD */ -OP(dd,1c) { illegal_1(z80); op_1c(z80); } /* DB DD */ -OP(dd,1d) { illegal_1(z80); op_1d(z80); } /* DB DD */ -OP(dd,1e) { illegal_1(z80); op_1e(z80); } /* DB DD */ -OP(dd,1f) { illegal_1(z80); op_1f(z80); } /* DB DD */ - -OP(dd,20) { illegal_1(z80); op_20(z80); } /* DB DD */ -OP(dd,21) { _Z80_R++; _IX = ARG16(z80); } /* LD IX,w */ -OP(dd,22) { _Z80_R++; z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.IX ); } /* LD (w),IX */ -OP(dd,23) { _Z80_R++; _IX++; } /* INC IX */ -OP(dd,24) { _Z80_R++; _HX = INC(z80,_HX); } /* INC HX */ -OP(dd,25) { _Z80_R++; _HX = DEC(z80,_HX); } /* DEC HX */ -OP(dd,26) { _Z80_R++; _HX = ARG(z80); } /* LD HX,n */ -OP(dd,27) { illegal_1(z80); op_27(z80); } /* DB DD */ - -OP(dd,28) { illegal_1(z80); op_28(z80); } /* DB DD */ -OP(dd,29) { _Z80_R++; ADD16(z80,IX,IX); } /* ADD IX,IX */ -OP(dd,2a) { _Z80_R++; z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.IX ); } /* LD IX,(w) */ -OP(dd,2b) { _Z80_R++; _IX--; } /* DEC IX */ -OP(dd,2c) { _Z80_R++; _LX = INC(z80,_LX); } /* INC LX */ -OP(dd,2d) { _Z80_R++; _LX = DEC(z80,_LX); } /* DEC LX */ -OP(dd,2e) { _Z80_R++; _LX = ARG(z80); } /* LD LX,n */ -OP(dd,2f) { illegal_1(z80); op_2f(z80); } /* DB DD */ - -OP(dd,30) { illegal_1(z80); op_30(z80); } /* DB DD */ -OP(dd,31) { illegal_1(z80); op_31(z80); } /* DB DD */ -OP(dd,32) { illegal_1(z80); op_32(z80); } /* DB DD */ -OP(dd,33) { illegal_1(z80); op_33(z80); } /* DB DD */ -OP(dd,34) { _Z80_R++; EAX; WM( z80->EA, INC(z80,RM(z80->EA)) ); } /* INC (IX+o) */ -OP(dd,35) { _Z80_R++; EAX; WM( z80->EA, DEC(z80,RM(z80->EA)) ); } /* DEC (IX+o) */ -OP(dd,36) { _Z80_R++; EAX; WM( z80->EA, ARG(z80) ); } /* LD (IX+o),n */ -OP(dd,37) { illegal_1(z80); op_37(z80); } /* DB DD */ - -OP(dd,38) { illegal_1(z80); op_38(z80); } /* DB DD */ -OP(dd,39) { _Z80_R++; ADD16(z80,IX,SP); } /* ADD IX,SP */ -OP(dd,3a) { illegal_1(z80); op_3a(z80); } /* DB DD */ -OP(dd,3b) { illegal_1(z80); op_3b(z80); } /* DB DD */ -OP(dd,3c) { illegal_1(z80); op_3c(z80); } /* DB DD */ -OP(dd,3d) { illegal_1(z80); op_3d(z80); } /* DB DD */ -OP(dd,3e) { illegal_1(z80); op_3e(z80); } /* DB DD */ -OP(dd,3f) { illegal_1(z80); op_3f(z80); } /* DB DD */ - -OP(dd,40) { illegal_1(z80); op_40(z80); } /* DB DD */ -OP(dd,41) { illegal_1(z80); op_41(z80); } /* DB DD */ -OP(dd,42) { illegal_1(z80); op_42(z80); } /* DB DD */ -OP(dd,43) { illegal_1(z80); op_43(z80); } /* DB DD */ -OP(dd,44) { _Z80_R++; _Z80_B = _HX; } /* LD B,HX */ -OP(dd,45) { _Z80_R++; _Z80_B = _LX; } /* LD B,LX */ -OP(dd,46) { _Z80_R++; EAX; _Z80_B = RM(z80->EA); } /* LD B,(IX+o) */ -OP(dd,47) { illegal_1(z80); op_47(z80); } /* DB DD */ - -OP(dd,48) { illegal_1(z80); op_48(z80); } /* DB DD */ -OP(dd,49) { illegal_1(z80); op_49(z80); } /* DB DD */ -OP(dd,4a) { illegal_1(z80); op_4a(z80); } /* DB DD */ -OP(dd,4b) { illegal_1(z80); op_4b(z80); } /* DB DD */ -OP(dd,4c) { _Z80_R++; _Z80_C = _HX; } /* LD C,HX */ -OP(dd,4d) { _Z80_R++; _Z80_C = _LX; } /* LD C,LX */ -OP(dd,4e) { _Z80_R++; EAX; _Z80_C = RM(z80->EA); } /* LD C,(IX+o) */ -OP(dd,4f) { illegal_1(z80); op_4f(z80); } /* DB DD */ - -OP(dd,50) { illegal_1(z80); op_50(z80); } /* DB DD */ -OP(dd,51) { illegal_1(z80); op_51(z80); } /* DB DD */ -OP(dd,52) { illegal_1(z80); op_52(z80); } /* DB DD */ -OP(dd,53) { illegal_1(z80); op_53(z80); } /* DB DD */ -OP(dd,54) { _Z80_R++; _Z80_D = _HX; } /* LD D,HX */ -OP(dd,55) { _Z80_R++; _Z80_D = _LX; } /* LD D,LX */ -OP(dd,56) { _Z80_R++; EAX; _Z80_D = RM(z80->EA); } /* LD D,(IX+o) */ -OP(dd,57) { illegal_1(z80); op_57(z80); } /* DB DD */ - -OP(dd,58) { illegal_1(z80); op_58(z80); } /* DB DD */ -OP(dd,59) { illegal_1(z80); op_59(z80); } /* DB DD */ -OP(dd,5a) { illegal_1(z80); op_5a(z80); } /* DB DD */ -OP(dd,5b) { illegal_1(z80); op_5b(z80); } /* DB DD */ -OP(dd,5c) { _Z80_R++; _Z80_E = _HX; } /* LD E,HX */ -OP(dd,5d) { _Z80_R++; _Z80_E = _LX; } /* LD E,LX */ -OP(dd,5e) { _Z80_R++; EAX; _Z80_E = RM(z80->EA); } /* LD E,(IX+o) */ -OP(dd,5f) { illegal_1(z80); op_5f(z80); } /* DB DD */ - -OP(dd,60) { _Z80_R++; _HX = _Z80_B; } /* LD HX,B */ -OP(dd,61) { _Z80_R++; _HX = _Z80_C; } /* LD HX,C */ -OP(dd,62) { _Z80_R++; _HX = _Z80_D; } /* LD HX,D */ -OP(dd,63) { _Z80_R++; _HX = _Z80_E; } /* LD HX,E */ -OP(dd,64) { } /* LD HX,HX */ -OP(dd,65) { _Z80_R++; _HX = _LX; } /* LD HX,LX */ -OP(dd,66) { _Z80_R++; EAX; _Z80_H = RM(z80->EA); } /* LD H,(IX+o) */ -OP(dd,67) { _Z80_R++; _HX = _Z80_A; } /* LD HX,A */ - -OP(dd,68) { _Z80_R++; _LX = _Z80_B; } /* LD LX,B */ -OP(dd,69) { _Z80_R++; _LX = _Z80_C; } /* LD LX,C */ -OP(dd,6a) { _Z80_R++; _LX = _Z80_D; } /* LD LX,D */ -OP(dd,6b) { _Z80_R++; _LX = _Z80_E; } /* LD LX,E */ -OP(dd,6c) { _Z80_R++; _LX = _HX; } /* LD LX,HX */ -OP(dd,6d) { } /* LD LX,LX */ -OP(dd,6e) { _Z80_R++; EAX; _Z80_L = RM(z80->EA); } /* LD L,(IX+o) */ -OP(dd,6f) { _Z80_R++; _LX = _Z80_A; } /* LD LX,A */ - -OP(dd,70) { _Z80_R++; EAX; WM( z80->EA, _Z80_B ); } /* LD (IX+o),B */ -OP(dd,71) { _Z80_R++; EAX; WM( z80->EA, _Z80_C ); } /* LD (IX+o),C */ -OP(dd,72) { _Z80_R++; EAX; WM( z80->EA, _Z80_D ); } /* LD (IX+o),D */ -OP(dd,73) { _Z80_R++; EAX; WM( z80->EA, _Z80_E ); } /* LD (IX+o),E */ -OP(dd,74) { _Z80_R++; EAX; WM( z80->EA, _Z80_H ); } /* LD (IX+o),H */ -OP(dd,75) { _Z80_R++; EAX; WM( z80->EA, _Z80_L ); } /* LD (IX+o),L */ -OP(dd,76) { illegal_1(z80); op_76(z80); } /* DB DD */ -OP(dd,77) { _Z80_R++; EAX; WM( z80->EA, _Z80_A ); } /* LD (IX+o),A */ - -OP(dd,78) { illegal_1(z80); op_78(z80); } /* DB DD */ -OP(dd,79) { illegal_1(z80); op_79(z80); } /* DB DD */ -OP(dd,7a) { illegal_1(z80); op_7a(z80); } /* DB DD */ -OP(dd,7b) { illegal_1(z80); op_7b(z80); } /* DB DD */ -OP(dd,7c) { _Z80_R++; _Z80_A = _HX; } /* LD A,HX */ -OP(dd,7d) { _Z80_R++; _Z80_A = _LX; } /* LD A,LX */ -OP(dd,7e) { _Z80_R++; EAX; _Z80_A = RM(z80->EA); } /* LD A,(IX+o) */ -OP(dd,7f) { illegal_1(z80); op_7f(z80); } /* DB DD */ - -OP(dd,80) { illegal_1(z80); op_80(z80); } /* DB DD */ -OP(dd,81) { illegal_1(z80); op_81(z80); } /* DB DD */ -OP(dd,82) { illegal_1(z80); op_82(z80); } /* DB DD */ -OP(dd,83) { illegal_1(z80); op_83(z80); } /* DB DD */ -OP(dd,84) { _Z80_R++; ADD(z80,_HX); } /* ADD A,HX */ -OP(dd,85) { _Z80_R++; ADD(z80,_LX); } /* ADD A,LX */ -OP(dd,86) { _Z80_R++; EAX; ADD(z80,RM(z80->EA)); } /* ADD A,(IX+o) */ -OP(dd,87) { illegal_1(z80); op_87(z80); } /* DB DD */ - -OP(dd,88) { illegal_1(z80); op_88(z80); } /* DB DD */ -OP(dd,89) { illegal_1(z80); op_89(z80); } /* DB DD */ -OP(dd,8a) { illegal_1(z80); op_8a(z80); } /* DB DD */ -OP(dd,8b) { illegal_1(z80); op_8b(z80); } /* DB DD */ -OP(dd,8c) { _Z80_R++; ADC(_HX); } /* ADC A,HX */ -OP(dd,8d) { _Z80_R++; ADC(_LX); } /* ADC A,LX */ -OP(dd,8e) { _Z80_R++; EAX; ADC(RM(z80->EA)); } /* ADC A,(IX+o) */ -OP(dd,8f) { illegal_1(z80); op_8f(z80); } /* DB DD */ - -OP(dd,90) { illegal_1(z80); op_90(z80); } /* DB DD */ -OP(dd,91) { illegal_1(z80); op_91(z80); } /* DB DD */ -OP(dd,92) { illegal_1(z80); op_92(z80); } /* DB DD */ -OP(dd,93) { illegal_1(z80); op_93(z80); } /* DB DD */ -OP(dd,94) { _Z80_R++; SUB(_HX); } /* SUB HX */ -OP(dd,95) { _Z80_R++; SUB(_LX); } /* SUB LX */ -OP(dd,96) { _Z80_R++; EAX; SUB(RM(z80->EA)); } /* SUB (IX+o) */ -OP(dd,97) { illegal_1(z80); op_97(z80); } /* DB DD */ - -OP(dd,98) { illegal_1(z80); op_98(z80); } /* DB DD */ -OP(dd,99) { illegal_1(z80); op_99(z80); } /* DB DD */ -OP(dd,9a) { illegal_1(z80); op_9a(z80); } /* DB DD */ -OP(dd,9b) { illegal_1(z80); op_9b(z80); } /* DB DD */ -OP(dd,9c) { _Z80_R++; SBC(_HX); } /* SBC A,HX */ -OP(dd,9d) { _Z80_R++; SBC(_LX); } /* SBC A,LX */ -OP(dd,9e) { _Z80_R++; EAX; SBC(RM(z80->EA)); } /* SBC A,(IX+o) */ -OP(dd,9f) { illegal_1(z80); op_9f(z80); } /* DB DD */ - -OP(dd,a0) { illegal_1(z80); op_a0(z80); } /* DB DD */ -OP(dd,a1) { illegal_1(z80); op_a1(z80); } /* DB DD */ -OP(dd,a2) { illegal_1(z80); op_a2(z80); } /* DB DD */ -OP(dd,a3) { illegal_1(z80); op_a3(z80); } /* DB DD */ -OP(dd,a4) { _Z80_R++; AND(_HX); } /* AND HX */ -OP(dd,a5) { _Z80_R++; AND(_LX); } /* AND LX */ -OP(dd,a6) { _Z80_R++; EAX; AND(RM(z80->EA)); } /* AND (IX+o) */ -OP(dd,a7) { illegal_1(z80); op_a7(z80); } /* DB DD */ - -OP(dd,a8) { illegal_1(z80); op_a8(z80); } /* DB DD */ -OP(dd,a9) { illegal_1(z80); op_a9(z80); } /* DB DD */ -OP(dd,aa) { illegal_1(z80); op_aa(z80); } /* DB DD */ -OP(dd,ab) { illegal_1(z80); op_ab(z80); } /* DB DD */ -OP(dd,ac) { _Z80_R++; XOR(_HX); } /* XOR HX */ -OP(dd,ad) { _Z80_R++; XOR(_LX); } /* XOR LX */ -OP(dd,ae) { _Z80_R++; EAX; XOR(RM(z80->EA)); } /* XOR (IX+o) */ -OP(dd,af) { illegal_1(z80); op_af(z80); } /* DB DD */ - -OP(dd,b0) { illegal_1(z80); op_b0(z80); } /* DB DD */ -OP(dd,b1) { illegal_1(z80); op_b1(z80); } /* DB DD */ -OP(dd,b2) { illegal_1(z80); op_b2(z80); } /* DB DD */ -OP(dd,b3) { illegal_1(z80); op_b3(z80); } /* DB DD */ -OP(dd,b4) { _Z80_R++; OR(_HX); } /* OR HX */ -OP(dd,b5) { _Z80_R++; OR(_LX); } /* OR LX */ -OP(dd,b6) { _Z80_R++; EAX; OR(RM(z80->EA)); } /* OR (IX+o) */ -OP(dd,b7) { illegal_1(z80); op_b7(z80); } /* DB DD */ - -OP(dd,b8) { illegal_1(z80); op_b8(z80); } /* DB DD */ -OP(dd,b9) { illegal_1(z80); op_b9(z80); } /* DB DD */ -OP(dd,ba) { illegal_1(z80); op_ba(z80); } /* DB DD */ -OP(dd,bb) { illegal_1(z80); op_bb(z80); } /* DB DD */ -OP(dd,bc) { _Z80_R++; CP(_HX); } /* CP HX */ -OP(dd,bd) { _Z80_R++; CP(_LX); } /* CP LX */ -OP(dd,be) { _Z80_R++; EAX; CP(RM(z80->EA)); } /* CP (IX+o) */ -OP(dd,bf) { illegal_1(z80); op_bf(z80); } /* DB DD */ - -OP(dd,c0) { illegal_1(z80); op_c0(z80); } /* DB DD */ -OP(dd,c1) { illegal_1(z80); op_c1(z80); } /* DB DD */ -OP(dd,c2) { illegal_1(z80); op_c2(z80); } /* DB DD */ -OP(dd,c3) { illegal_1(z80); op_c3(z80); } /* DB DD */ -OP(dd,c4) { illegal_1(z80); op_c4(z80); } /* DB DD */ -OP(dd,c5) { illegal_1(z80); op_c5(z80); } /* DB DD */ -OP(dd,c6) { illegal_1(z80); op_c6(z80); } /* DB DD */ -OP(dd,c7) { illegal_1(z80); op_c7(z80); } /* DB DD */ - -OP(dd,c8) { illegal_1(z80); op_c8(z80); } /* DB DD */ -OP(dd,c9) { illegal_1(z80); op_c9(z80); } /* DB DD */ -OP(dd,ca) { illegal_1(z80); op_ca(z80); } /* DB DD */ -OP(dd,cb) { _Z80_R++; EAX; EXEC(xycb,ARG(z80)); } /* ** DD CB xx */ -OP(dd,cc) { illegal_1(z80); op_cc(z80); } /* DB DD */ -OP(dd,cd) { illegal_1(z80); op_cd(z80); } /* DB DD */ -OP(dd,ce) { illegal_1(z80); op_ce(z80); } /* DB DD */ -OP(dd,cf) { illegal_1(z80); op_cf(z80); } /* DB DD */ - -OP(dd,d0) { illegal_1(z80); op_d0(z80); } /* DB DD */ -OP(dd,d1) { illegal_1(z80); op_d1(z80); } /* DB DD */ -OP(dd,d2) { illegal_1(z80); op_d2(z80); } /* DB DD */ -OP(dd,d3) { illegal_1(z80); op_d3(z80); } /* DB DD */ -OP(dd,d4) { illegal_1(z80); op_d4(z80); } /* DB DD */ -OP(dd,d5) { illegal_1(z80); op_d5(z80); } /* DB DD */ -OP(dd,d6) { illegal_1(z80); op_d6(z80); } /* DB DD */ -OP(dd,d7) { illegal_1(z80); op_d7(z80); } /* DB DD */ - -OP(dd,d8) { illegal_1(z80); op_d8(z80); } /* DB DD */ -OP(dd,d9) { illegal_1(z80); op_d9(z80); } /* DB DD */ -OP(dd,da) { illegal_1(z80); op_da(z80); } /* DB DD */ -OP(dd,db) { illegal_1(z80); op_db(z80); } /* DB DD */ -OP(dd,dc) { illegal_1(z80); op_dc(z80); } /* DB DD */ -OP(dd,dd) { illegal_1(z80); op_dd(z80); } /* DB DD */ -OP(dd,de) { illegal_1(z80); op_de(z80); } /* DB DD */ -OP(dd,df) { illegal_1(z80); op_df(z80); } /* DB DD */ - -OP(dd,e0) { illegal_1(z80); op_e0(z80); } /* DB DD */ -OP(dd,e1) { _Z80_R++; POP(IX); } /* POP IX */ -OP(dd,e2) { illegal_1(z80); op_e2(z80); } /* DB DD */ -OP(dd,e3) { _Z80_R++; EXSP(IX); } /* EX (SP),IX */ -OP(dd,e4) { illegal_1(z80); op_e4(z80); } /* DB DD */ -OP(dd,e5) { _Z80_R++; PUSH( IX ); } /* PUSH IX */ -OP(dd,e6) { illegal_1(z80); op_e6(z80); } /* DB DD */ -OP(dd,e7) { illegal_1(z80); op_e7(z80); } /* DB DD */ - -OP(dd,e8) { illegal_1(z80); op_e8(z80); } /* DB DD */ -OP(dd,e9) { _Z80_R++; _PC = _IX; change_pc16(_PCD); } /* JP (IX) */ -OP(dd,ea) { illegal_1(z80); op_ea(z80); } /* DB DD */ -OP(dd,eb) { illegal_1(z80); op_eb(z80); } /* DB DD */ -OP(dd,ec) { illegal_1(z80); op_ec(z80); } /* DB DD */ -OP(dd,ed) { illegal_1(z80); op_ed(z80); } /* DB DD */ -OP(dd,ee) { illegal_1(z80); op_ee(z80); } /* DB DD */ -OP(dd,ef) { illegal_1(z80); op_ef(z80); } /* DB DD */ - -OP(dd,f0) { illegal_1(z80); op_f0(z80); } /* DB DD */ -OP(dd,f1) { illegal_1(z80); op_f1(z80); } /* DB DD */ -OP(dd,f2) { illegal_1(z80); op_f2(z80); } /* DB DD */ -OP(dd,f3) { illegal_1(z80); op_f3(z80); } /* DB DD */ -OP(dd,f4) { illegal_1(z80); op_f4(z80); } /* DB DD */ -OP(dd,f5) { illegal_1(z80); op_f5(z80); } /* DB DD */ -OP(dd,f6) { illegal_1(z80); op_f6(z80); } /* DB DD */ -OP(dd,f7) { illegal_1(z80); op_f7(z80); } /* DB DD */ - -OP(dd,f8) { illegal_1(z80); op_f8(z80); } /* DB DD */ -OP(dd,f9) { _Z80_R++; _SP = _IX; } /* LD SP,IX */ -OP(dd,fa) { illegal_1(z80); op_fa(z80); } /* DB DD */ -OP(dd,fb) { illegal_1(z80); op_fb(z80); } /* DB DD */ -OP(dd,fc) { illegal_1(z80); op_fc(z80); } /* DB DD */ -OP(dd,fd) { illegal_1(z80); op_fd(z80); } /* DB DD */ -OP(dd,fe) { illegal_1(z80); op_fe(z80); } /* DB DD */ -OP(dd,ff) { illegal_1(z80); op_ff(z80); } /* DB DD */ - -/********************************************************** - * IY register related opcodes (FD prefix) - **********************************************************/ -OP(fd,00) { illegal_1(z80); op_00(z80); } /* DB FD */ -OP(fd,01) { illegal_1(z80); op_01(z80); } /* DB FD */ -OP(fd,02) { illegal_1(z80); op_02(z80); } /* DB FD */ -OP(fd,03) { illegal_1(z80); op_03(z80); } /* DB FD */ -OP(fd,04) { illegal_1(z80); op_04(z80); } /* DB FD */ -OP(fd,05) { illegal_1(z80); op_05(z80); } /* DB FD */ -OP(fd,06) { illegal_1(z80); op_06(z80); } /* DB FD */ -OP(fd,07) { illegal_1(z80); op_07(z80); } /* DB FD */ - -OP(fd,08) { illegal_1(z80); op_08(z80); } /* DB FD */ -OP(fd,09) { _Z80_R++; ADD16(z80,IY,BC); } /* ADD IY,BC */ -OP(fd,0a) { illegal_1(z80); op_0a(z80); } /* DB FD */ -OP(fd,0b) { illegal_1(z80); op_0b(z80); } /* DB FD */ -OP(fd,0c) { illegal_1(z80); op_0c(z80); } /* DB FD */ -OP(fd,0d) { illegal_1(z80); op_0d(z80); } /* DB FD */ -OP(fd,0e) { illegal_1(z80); op_0e(z80); } /* DB FD */ -OP(fd,0f) { illegal_1(z80); op_0f(z80); } /* DB FD */ - -OP(fd,10) { illegal_1(z80); op_10(z80); } /* DB FD */ -OP(fd,11) { illegal_1(z80); op_11(z80); } /* DB FD */ -OP(fd,12) { illegal_1(z80); op_12(z80); } /* DB FD */ -OP(fd,13) { illegal_1(z80); op_13(z80); } /* DB FD */ -OP(fd,14) { illegal_1(z80); op_14(z80); } /* DB FD */ -OP(fd,15) { illegal_1(z80); op_15(z80); } /* DB FD */ -OP(fd,16) { illegal_1(z80); op_16(z80); } /* DB FD */ -OP(fd,17) { illegal_1(z80); op_17(z80); } /* DB FD */ - -OP(fd,18) { illegal_1(z80); op_18(z80); } /* DB FD */ -OP(fd,19) { _Z80_R++; ADD16(z80,IY,DE); } /* ADD IY,DE */ -OP(fd,1a) { illegal_1(z80); op_1a(z80); } /* DB FD */ -OP(fd,1b) { illegal_1(z80); op_1b(z80); } /* DB FD */ -OP(fd,1c) { illegal_1(z80); op_1c(z80); } /* DB FD */ -OP(fd,1d) { illegal_1(z80); op_1d(z80); } /* DB FD */ -OP(fd,1e) { illegal_1(z80); op_1e(z80); } /* DB FD */ -OP(fd,1f) { illegal_1(z80); op_1f(z80); } /* DB FD */ - -OP(fd,20) { illegal_1(z80); op_20(z80); } /* DB FD */ -OP(fd,21) { _Z80_R++; _IY = ARG16(z80); } /* LD IY,w */ -OP(fd,22) { _Z80_R++; z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.IY ); } /* LD (w),IY */ -OP(fd,23) { _Z80_R++; _IY++; } /* INC IY */ -OP(fd,24) { _Z80_R++; _HY = INC(z80,_HY); } /* INC HY */ -OP(fd,25) { _Z80_R++; _HY = DEC(z80,_HY); } /* DEC HY */ -OP(fd,26) { _Z80_R++; _HY = ARG(z80); } /* LD HY,n */ -OP(fd,27) { illegal_1(z80); op_27(z80); } /* DB FD */ - -OP(fd,28) { illegal_1(z80); op_28(z80); } /* DB FD */ -OP(fd,29) { _Z80_R++; ADD16(z80,IY,IY); } /* ADD IY,IY */ -OP(fd,2a) { _Z80_R++; z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.IY ); } /* LD IY,(w) */ -OP(fd,2b) { _Z80_R++; _IY--; } /* DEC IY */ -OP(fd,2c) { _Z80_R++; _LY = INC(z80,_LY); } /* INC LY */ -OP(fd,2d) { _Z80_R++; _LY = DEC(z80,_LY); } /* DEC LY */ -OP(fd,2e) { _Z80_R++; _LY = ARG(z80); } /* LD LY,n */ -OP(fd,2f) { illegal_1(z80); op_2f(z80); } /* DB FD */ - -OP(fd,30) { illegal_1(z80); op_30(z80); } /* DB FD */ -OP(fd,31) { illegal_1(z80); op_31(z80); } /* DB FD */ -OP(fd,32) { illegal_1(z80); op_32(z80); } /* DB FD */ -OP(fd,33) { illegal_1(z80); op_33(z80); } /* DB FD */ -OP(fd,34) { _Z80_R++; EAY; WM( z80->EA, INC(z80,RM(z80->EA)) ); } /* INC (IY+o) */ -OP(fd,35) { _Z80_R++; EAY; WM( z80->EA, DEC(z80,RM(z80->EA)) ); } /* DEC (IY+o) */ -OP(fd,36) { _Z80_R++; EAY; WM( z80->EA, ARG(z80) ); } /* LD (IY+o),n */ -OP(fd,37) { illegal_1(z80); op_37(z80); } /* DB FD */ - -OP(fd,38) { illegal_1(z80); op_38(z80); } /* DB FD */ -OP(fd,39) { _Z80_R++; ADD16(z80,IY,SP); } /* ADD IY,SP */ -OP(fd,3a) { illegal_1(z80); op_3a(z80); } /* DB FD */ -OP(fd,3b) { illegal_1(z80); op_3b(z80); } /* DB FD */ -OP(fd,3c) { illegal_1(z80); op_3c(z80); } /* DB FD */ -OP(fd,3d) { illegal_1(z80); op_3d(z80); } /* DB FD */ -OP(fd,3e) { illegal_1(z80); op_3e(z80); } /* DB FD */ -OP(fd,3f) { illegal_1(z80); op_3f(z80); } /* DB FD */ - -OP(fd,40) { illegal_1(z80); op_40(z80); } /* DB FD */ -OP(fd,41) { illegal_1(z80); op_41(z80); } /* DB FD */ -OP(fd,42) { illegal_1(z80); op_42(z80); } /* DB FD */ -OP(fd,43) { illegal_1(z80); op_43(z80); } /* DB FD */ -OP(fd,44) { _Z80_R++; _Z80_B = _HY; } /* LD B,HY */ -OP(fd,45) { _Z80_R++; _Z80_B = _LY; } /* LD B,LY */ -OP(fd,46) { _Z80_R++; EAY; _Z80_B = RM(z80->EA); } /* LD B,(IY+o) */ -OP(fd,47) { illegal_1(z80); op_47(z80); } /* DB FD */ - -OP(fd,48) { illegal_1(z80); op_48(z80); } /* DB FD */ -OP(fd,49) { illegal_1(z80); op_49(z80); } /* DB FD */ -OP(fd,4a) { illegal_1(z80); op_4a(z80); } /* DB FD */ -OP(fd,4b) { illegal_1(z80); op_4b(z80); } /* DB FD */ -OP(fd,4c) { _Z80_R++; _Z80_C = _HY; } /* LD C,HY */ -OP(fd,4d) { _Z80_R++; _Z80_C = _LY; } /* LD C,LY */ -OP(fd,4e) { _Z80_R++; EAY; _Z80_C = RM(z80->EA); } /* LD C,(IY+o) */ -OP(fd,4f) { illegal_1(z80); op_4f(z80); } /* DB FD */ - -OP(fd,50) { illegal_1(z80); op_50(z80); } /* DB FD */ -OP(fd,51) { illegal_1(z80); op_51(z80); } /* DB FD */ -OP(fd,52) { illegal_1(z80); op_52(z80); } /* DB FD */ -OP(fd,53) { illegal_1(z80); op_53(z80); } /* DB FD */ -OP(fd,54) { _Z80_R++; _Z80_D = _HY; } /* LD D,HY */ -OP(fd,55) { _Z80_R++; _Z80_D = _LY; } /* LD D,LY */ -OP(fd,56) { _Z80_R++; EAY; _Z80_D = RM(z80->EA); } /* LD D,(IY+o) */ -OP(fd,57) { illegal_1(z80); op_57(z80); } /* DB FD */ - -OP(fd,58) { illegal_1(z80); op_58(z80); } /* DB FD */ -OP(fd,59) { illegal_1(z80); op_59(z80); } /* DB FD */ -OP(fd,5a) { illegal_1(z80); op_5a(z80); } /* DB FD */ -OP(fd,5b) { illegal_1(z80); op_5b(z80); } /* DB FD */ -OP(fd,5c) { _Z80_R++; _Z80_E = _HY; } /* LD E,HY */ -OP(fd,5d) { _Z80_R++; _Z80_E = _LY; } /* LD E,LY */ -OP(fd,5e) { _Z80_R++; EAY; _Z80_E = RM(z80->EA); } /* LD E,(IY+o) */ -OP(fd,5f) { illegal_1(z80); op_5f(z80); } /* DB FD */ - -OP(fd,60) { _Z80_R++; _HY = _Z80_B; } /* LD HY,B */ -OP(fd,61) { _Z80_R++; _HY = _Z80_C; } /* LD HY,C */ -OP(fd,62) { _Z80_R++; _HY = _Z80_D; } /* LD HY,D */ -OP(fd,63) { _Z80_R++; _HY = _Z80_E; } /* LD HY,E */ -OP(fd,64) { _Z80_R++; } /* LD HY,HY */ -OP(fd,65) { _Z80_R++; _HY = _LY; } /* LD HY,LY */ -OP(fd,66) { _Z80_R++; EAY; _Z80_H = RM(z80->EA); } /* LD H,(IY+o) */ -OP(fd,67) { _Z80_R++; _HY = _Z80_A; } /* LD HY,A */ - -OP(fd,68) { _Z80_R++; _LY = _Z80_B; } /* LD LY,B */ -OP(fd,69) { _Z80_R++; _LY = _Z80_C; } /* LD LY,C */ -OP(fd,6a) { _Z80_R++; _LY = _Z80_D; } /* LD LY,D */ -OP(fd,6b) { _Z80_R++; _LY = _Z80_E; } /* LD LY,E */ -OP(fd,6c) { _Z80_R++; _LY = _HY; } /* LD LY,HY */ -OP(fd,6d) { _Z80_R++; } /* LD LY,LY */ -OP(fd,6e) { _Z80_R++; EAY; _Z80_L = RM(z80->EA); } /* LD L,(IY+o) */ -OP(fd,6f) { _Z80_R++; _LY = _Z80_A; } /* LD LY,A */ - -OP(fd,70) { _Z80_R++; EAY; WM( z80->EA, _Z80_B ); } /* LD (IY+o),B */ -OP(fd,71) { _Z80_R++; EAY; WM( z80->EA, _Z80_C ); } /* LD (IY+o),C */ -OP(fd,72) { _Z80_R++; EAY; WM( z80->EA, _Z80_D ); } /* LD (IY+o),D */ -OP(fd,73) { _Z80_R++; EAY; WM( z80->EA, _Z80_E ); } /* LD (IY+o),E */ -OP(fd,74) { _Z80_R++; EAY; WM( z80->EA, _Z80_H ); } /* LD (IY+o),H */ -OP(fd,75) { _Z80_R++; EAY; WM( z80->EA, _Z80_L ); } /* LD (IY+o),L */ -OP(fd,76) { illegal_1(z80); op_76(z80); } /* DB FD */ -OP(fd,77) { _Z80_R++; EAY; WM( z80->EA, _Z80_A ); } /* LD (IY+o),A */ - -OP(fd,78) { illegal_1(z80); op_78(z80); } /* DB FD */ -OP(fd,79) { illegal_1(z80); op_79(z80); } /* DB FD */ -OP(fd,7a) { illegal_1(z80); op_7a(z80); } /* DB FD */ -OP(fd,7b) { illegal_1(z80); op_7b(z80); } /* DB FD */ -OP(fd,7c) { _Z80_R++; _Z80_A = _HY; } /* LD A,HY */ -OP(fd,7d) { _Z80_R++; _Z80_A = _LY; } /* LD A,LY */ -OP(fd,7e) { _Z80_R++; EAY; _Z80_A = RM(z80->EA); } /* LD A,(IY+o) */ -OP(fd,7f) { illegal_1(z80); op_7f(z80); } /* DB FD */ - -OP(fd,80) { illegal_1(z80); op_80(z80); } /* DB FD */ -OP(fd,81) { illegal_1(z80); op_81(z80); } /* DB FD */ -OP(fd,82) { illegal_1(z80); op_82(z80); } /* DB FD */ -OP(fd,83) { illegal_1(z80); op_83(z80); } /* DB FD */ -OP(fd,84) { _Z80_R++; ADD(z80,_HY); } /* ADD A,HY */ -OP(fd,85) { _Z80_R++; ADD(z80,_LY); } /* ADD A,LY */ -OP(fd,86) { _Z80_R++; EAY; ADD(z80,RM(z80->EA)); } /* ADD A,(IY+o) */ -OP(fd,87) { illegal_1(z80); op_87(z80); } /* DB FD */ - -OP(fd,88) { illegal_1(z80); op_88(z80); } /* DB FD */ -OP(fd,89) { illegal_1(z80); op_89(z80); } /* DB FD */ -OP(fd,8a) { illegal_1(z80); op_8a(z80); } /* DB FD */ -OP(fd,8b) { illegal_1(z80); op_8b(z80); } /* DB FD */ -OP(fd,8c) { _Z80_R++; ADC(_HY); } /* ADC A,HY */ -OP(fd,8d) { _Z80_R++; ADC(_LY); } /* ADC A,LY */ -OP(fd,8e) { _Z80_R++; EAY; ADC(RM(z80->EA)); } /* ADC A,(IY+o) */ -OP(fd,8f) { illegal_1(z80); op_8f(z80); } /* DB FD */ - -OP(fd,90) { illegal_1(z80); op_90(z80); } /* DB FD */ -OP(fd,91) { illegal_1(z80); op_91(z80); } /* DB FD */ -OP(fd,92) { illegal_1(z80); op_92(z80); } /* DB FD */ -OP(fd,93) { illegal_1(z80); op_93(z80); } /* DB FD */ -OP(fd,94) { _Z80_R++; SUB(_HY); } /* SUB HY */ -OP(fd,95) { _Z80_R++; SUB(_LY); } /* SUB LY */ -OP(fd,96) { _Z80_R++; EAY; SUB(RM(z80->EA)); } /* SUB (IY+o) */ -OP(fd,97) { illegal_1(z80); op_97(z80); } /* DB FD */ - -OP(fd,98) { illegal_1(z80); op_98(z80); } /* DB FD */ -OP(fd,99) { illegal_1(z80); op_99(z80); } /* DB FD */ -OP(fd,9a) { illegal_1(z80); op_9a(z80); } /* DB FD */ -OP(fd,9b) { illegal_1(z80); op_9b(z80); } /* DB FD */ -OP(fd,9c) { _Z80_R++; SBC(_HY); } /* SBC A,HY */ -OP(fd,9d) { _Z80_R++; SBC(_LY); } /* SBC A,LY */ -OP(fd,9e) { _Z80_R++; EAY; SBC(RM(z80->EA)); } /* SBC A,(IY+o) */ -OP(fd,9f) { illegal_1(z80); op_9f(z80); } /* DB FD */ - -OP(fd,a0) { illegal_1(z80); op_a0(z80); } /* DB FD */ -OP(fd,a1) { illegal_1(z80); op_a1(z80); } /* DB FD */ -OP(fd,a2) { illegal_1(z80); op_a2(z80); } /* DB FD */ -OP(fd,a3) { illegal_1(z80); op_a3(z80); } /* DB FD */ -OP(fd,a4) { _Z80_R++; AND(_HY); } /* AND HY */ -OP(fd,a5) { _Z80_R++; AND(_LY); } /* AND LY */ -OP(fd,a6) { _Z80_R++; EAY; AND(RM(z80->EA)); } /* AND (IY+o) */ -OP(fd,a7) { illegal_1(z80); op_a7(z80); } /* DB FD */ - -OP(fd,a8) { illegal_1(z80); op_a8(z80); } /* DB FD */ -OP(fd,a9) { illegal_1(z80); op_a9(z80); } /* DB FD */ -OP(fd,aa) { illegal_1(z80); op_aa(z80); } /* DB FD */ -OP(fd,ab) { illegal_1(z80); op_ab(z80); } /* DB FD */ -OP(fd,ac) { _Z80_R++; XOR(_HY); } /* XOR HY */ -OP(fd,ad) { _Z80_R++; XOR(_LY); } /* XOR LY */ -OP(fd,ae) { _Z80_R++; EAY; XOR(RM(z80->EA)); } /* XOR (IY+o) */ -OP(fd,af) { illegal_1(z80); op_af(z80); } /* DB FD */ - -OP(fd,b0) { illegal_1(z80); op_b0(z80); } /* DB FD */ -OP(fd,b1) { illegal_1(z80); op_b1(z80); } /* DB FD */ -OP(fd,b2) { illegal_1(z80); op_b2(z80); } /* DB FD */ -OP(fd,b3) { illegal_1(z80); op_b3(z80); } /* DB FD */ -OP(fd,b4) { _Z80_R++; OR(_HY); } /* OR HY */ -OP(fd,b5) { _Z80_R++; OR(_LY); } /* OR LY */ -OP(fd,b6) { _Z80_R++; EAY; OR(RM(z80->EA)); } /* OR (IY+o) */ -OP(fd,b7) { illegal_1(z80); op_b7(z80); } /* DB FD */ - -OP(fd,b8) { illegal_1(z80); op_b8(z80); } /* DB FD */ -OP(fd,b9) { illegal_1(z80); op_b9(z80); } /* DB FD */ -OP(fd,ba) { illegal_1(z80); op_ba(z80); } /* DB FD */ -OP(fd,bb) { illegal_1(z80); op_bb(z80); } /* DB FD */ -OP(fd,bc) { _Z80_R++; CP(_HY); } /* CP HY */ -OP(fd,bd) { _Z80_R++; CP(_LY); } /* CP LY */ -OP(fd,be) { _Z80_R++; EAY; CP(RM(z80->EA)); } /* CP (IY+o) */ -OP(fd,bf) { illegal_1(z80); op_bf(z80); } /* DB FD */ - -OP(fd,c0) { illegal_1(z80); op_c0(z80); } /* DB FD */ -OP(fd,c1) { illegal_1(z80); op_c1(z80); } /* DB FD */ -OP(fd,c2) { illegal_1(z80); op_c2(z80); } /* DB FD */ -OP(fd,c3) { illegal_1(z80); op_c3(z80); } /* DB FD */ -OP(fd,c4) { illegal_1(z80); op_c4(z80); } /* DB FD */ -OP(fd,c5) { illegal_1(z80); op_c5(z80); } /* DB FD */ -OP(fd,c6) { illegal_1(z80); op_c6(z80); } /* DB FD */ -OP(fd,c7) { illegal_1(z80); op_c7(z80); } /* DB FD */ - -OP(fd,c8) { illegal_1(z80); op_c8(z80); } /* DB FD */ -OP(fd,c9) { illegal_1(z80); op_c9(z80); } /* DB FD */ -OP(fd,ca) { illegal_1(z80); op_ca(z80); } /* DB FD */ -OP(fd,cb) { _Z80_R++; EAY; EXEC(xycb,ARG(z80)); } /* ** FD CB xx */ -OP(fd,cc) { illegal_1(z80); op_cc(z80); } /* DB FD */ -OP(fd,cd) { illegal_1(z80); op_cd(z80); } /* DB FD */ -OP(fd,ce) { illegal_1(z80); op_ce(z80); } /* DB FD */ -OP(fd,cf) { illegal_1(z80); op_cf(z80); } /* DB FD */ - -OP(fd,d0) { illegal_1(z80); op_d0(z80); } /* DB FD */ -OP(fd,d1) { illegal_1(z80); op_d1(z80); } /* DB FD */ -OP(fd,d2) { illegal_1(z80); op_d2(z80); } /* DB FD */ -OP(fd,d3) { illegal_1(z80); op_d3(z80); } /* DB FD */ -OP(fd,d4) { illegal_1(z80); op_d4(z80); } /* DB FD */ -OP(fd,d5) { illegal_1(z80); op_d5(z80); } /* DB FD */ -OP(fd,d6) { illegal_1(z80); op_d6(z80); } /* DB FD */ -OP(fd,d7) { illegal_1(z80); op_d7(z80); } /* DB FD */ - -OP(fd,d8) { illegal_1(z80); op_d8(z80); } /* DB FD */ -OP(fd,d9) { illegal_1(z80); op_d9(z80); } /* DB FD */ -OP(fd,da) { illegal_1(z80); op_da(z80); } /* DB FD */ -OP(fd,db) { illegal_1(z80); op_db(z80); } /* DB FD */ -OP(fd,dc) { illegal_1(z80); op_dc(z80); } /* DB FD */ -OP(fd,dd) { illegal_1(z80); op_dd(z80); } /* DB FD */ -OP(fd,de) { illegal_1(z80); op_de(z80); } /* DB FD */ -OP(fd,df) { illegal_1(z80); op_df(z80); } /* DB FD */ - -OP(fd,e0) { illegal_1(z80); op_e0(z80); } /* DB FD */ -OP(fd,e1) { _Z80_R++; POP(IY); } /* POP IY */ -OP(fd,e2) { illegal_1(z80); op_e2(z80); } /* DB FD */ -OP(fd,e3) { _Z80_R++; EXSP(IY); } /* EX (SP),IY */ -OP(fd,e4) { illegal_1(z80); op_e4(z80); } /* DB FD */ -OP(fd,e5) { _Z80_R++; PUSH( IY ); } /* PUSH IY */ -OP(fd,e6) { illegal_1(z80); op_e6(z80); } /* DB FD */ -OP(fd,e7) { illegal_1(z80); op_e7(z80); } /* DB FD */ - -OP(fd,e8) { illegal_1(z80); op_e8(z80); } /* DB FD */ -OP(fd,e9) { _Z80_R++; _PC = _IY; change_pc16(_PCD); } /* JP (IY) */ -OP(fd,ea) { illegal_1(z80); op_ea(z80); } /* DB FD */ -OP(fd,eb) { illegal_1(z80); op_eb(z80); } /* DB FD */ -OP(fd,ec) { illegal_1(z80); op_ec(z80); } /* DB FD */ -OP(fd,ed) { illegal_1(z80); op_ed(z80); } /* DB FD */ -OP(fd,ee) { illegal_1(z80); op_ee(z80); } /* DB FD */ -OP(fd,ef) { illegal_1(z80); op_ef(z80); } /* DB FD */ - -OP(fd,f0) { illegal_1(z80); op_f0(z80); } /* DB FD */ -OP(fd,f1) { illegal_1(z80); op_f1(z80); } /* DB FD */ -OP(fd,f2) { illegal_1(z80); op_f2(z80); } /* DB FD */ -OP(fd,f3) { illegal_1(z80); op_f3(z80); } /* DB FD */ -OP(fd,f4) { illegal_1(z80); op_f4(z80); } /* DB FD */ -OP(fd,f5) { illegal_1(z80); op_f5(z80); } /* DB FD */ -OP(fd,f6) { illegal_1(z80); op_f6(z80); } /* DB FD */ -OP(fd,f7) { illegal_1(z80); op_f7(z80); } /* DB FD */ - -OP(fd,f8) { illegal_1(z80); op_f8(z80); } /* DB FD */ -OP(fd,f9) { _Z80_R++; _SP = _IY; } /* LD SP,IY */ -OP(fd,fa) { illegal_1(z80); op_fa(z80); } /* DB FD */ -OP(fd,fb) { illegal_1(z80); op_fb(z80); } /* DB FD */ -OP(fd,fc) { illegal_1(z80); op_fc(z80); } /* DB FD */ -OP(fd,fd) { illegal_1(z80); op_fd(z80); } /* DB FD */ -OP(fd,fe) { illegal_1(z80); op_fe(z80); } /* DB FD */ -OP(fd,ff) { illegal_1(z80); op_ff(z80); } /* DB FD */ - -OP(illegal,2) -{ - logerror("Z80 #%d ill. opcode $ed $%02x\n", - cpu_getactivecpu(), cpu_readop(z80->userdata,(_PCD-1)&0xffff)); -} - -/********************************************************** - * special opcodes (ED prefix) - **********************************************************/ -OP(ed,00) { illegal_2(z80); } /* DB ED */ -OP(ed,01) { illegal_2(z80); } /* DB ED */ -OP(ed,02) { illegal_2(z80); } /* DB ED */ -OP(ed,03) { illegal_2(z80); } /* DB ED */ -OP(ed,04) { illegal_2(z80); } /* DB ED */ -OP(ed,05) { illegal_2(z80); } /* DB ED */ -OP(ed,06) { illegal_2(z80); } /* DB ED */ -OP(ed,07) { illegal_2(z80); } /* DB ED */ - -OP(ed,08) { illegal_2(z80); } /* DB ED */ -OP(ed,09) { illegal_2(z80); } /* DB ED */ -OP(ed,0a) { illegal_2(z80); } /* DB ED */ -OP(ed,0b) { illegal_2(z80); } /* DB ED */ -OP(ed,0c) { illegal_2(z80); } /* DB ED */ -OP(ed,0d) { illegal_2(z80); } /* DB ED */ -OP(ed,0e) { illegal_2(z80); } /* DB ED */ -OP(ed,0f) { illegal_2(z80); } /* DB ED */ - -OP(ed,10) { illegal_2(z80); } /* DB ED */ -OP(ed,11) { illegal_2(z80); } /* DB ED */ -OP(ed,12) { illegal_2(z80); } /* DB ED */ -OP(ed,13) { illegal_2(z80); } /* DB ED */ -OP(ed,14) { illegal_2(z80); } /* DB ED */ -OP(ed,15) { illegal_2(z80); } /* DB ED */ -OP(ed,16) { illegal_2(z80); } /* DB ED */ -OP(ed,17) { illegal_2(z80); } /* DB ED */ - -OP(ed,18) { illegal_2(z80); } /* DB ED */ -OP(ed,19) { illegal_2(z80); } /* DB ED */ -OP(ed,1a) { illegal_2(z80); } /* DB ED */ -OP(ed,1b) { illegal_2(z80); } /* DB ED */ -OP(ed,1c) { illegal_2(z80); } /* DB ED */ -OP(ed,1d) { illegal_2(z80); } /* DB ED */ -OP(ed,1e) { illegal_2(z80); } /* DB ED */ -OP(ed,1f) { illegal_2(z80); } /* DB ED */ - -OP(ed,20) { illegal_2(z80); } /* DB ED */ -OP(ed,21) { illegal_2(z80); } /* DB ED */ -OP(ed,22) { illegal_2(z80); } /* DB ED */ -OP(ed,23) { illegal_2(z80); } /* DB ED */ -OP(ed,24) { illegal_2(z80); } /* DB ED */ -OP(ed,25) { illegal_2(z80); } /* DB ED */ -OP(ed,26) { illegal_2(z80); } /* DB ED */ -OP(ed,27) { illegal_2(z80); } /* DB ED */ - -OP(ed,28) { illegal_2(z80); } /* DB ED */ -OP(ed,29) { illegal_2(z80); } /* DB ED */ -OP(ed,2a) { illegal_2(z80); } /* DB ED */ -OP(ed,2b) { illegal_2(z80); } /* DB ED */ -OP(ed,2c) { illegal_2(z80); } /* DB ED */ -OP(ed,2d) { illegal_2(z80); } /* DB ED */ -OP(ed,2e) { illegal_2(z80); } /* DB ED */ -OP(ed,2f) { illegal_2(z80); } /* DB ED */ - -OP(ed,30) { illegal_2(z80); } /* DB ED */ -OP(ed,31) { illegal_2(z80); } /* DB ED */ -OP(ed,32) { illegal_2(z80); } /* DB ED */ -OP(ed,33) { illegal_2(z80); } /* DB ED */ -OP(ed,34) { illegal_2(z80); } /* DB ED */ -OP(ed,35) { illegal_2(z80); } /* DB ED */ -OP(ed,36) { illegal_2(z80); } /* DB ED */ -OP(ed,37) { illegal_2(z80); } /* DB ED */ - -OP(ed,38) { illegal_2(z80); } /* DB ED */ -OP(ed,39) { illegal_2(z80); } /* DB ED */ -OP(ed,3a) { illegal_2(z80); } /* DB ED */ -OP(ed,3b) { illegal_2(z80); } /* DB ED */ -OP(ed,3c) { illegal_2(z80); } /* DB ED */ -OP(ed,3d) { illegal_2(z80); } /* DB ED */ -OP(ed,3e) { illegal_2(z80); } /* DB ED */ -OP(ed,3f) { illegal_2(z80); } /* DB ED */ - -OP(ed,40) { _Z80_B = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_B]; } /* IN B,(C) */ -OP(ed,41) { OUT(_BC,_Z80_B); } /* OUT (C),B */ -OP(ed,42) { SBC16( BC ); } /* SBC HL,BC */ -OP(ed,43) { z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.BC ); } /* LD (w),BC */ -OP(ed,44) { NEG; } /* NEG */ -OP(ed,45) { RETN; } /* RETN; */ -OP(ed,46) { _IM = 0; } /* IM 0 */ -OP(ed,47) { LD_I_A; } /* LD I,A */ - -OP(ed,48) { _Z80_C = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_C]; } /* IN C,(C) */ -OP(ed,49) { OUT(_BC,_Z80_C); } /* OUT (C),C */ -OP(ed,4a) { ADC16( BC ); } /* ADC HL,BC */ -OP(ed,4b) { z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.BC ); } /* LD BC,(w) */ -OP(ed,4c) { NEG; } /* NEG */ -OP(ed,4d) { RETI; } /* RETI */ -OP(ed,4e) { _IM = 0; } /* IM 0 */ -OP(ed,4f) { LD_R_A; } /* LD R,A */ - -OP(ed,50) { _Z80_D = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_D]; } /* IN D,(C) */ -OP(ed,51) { OUT(_BC,_Z80_D); } /* OUT (C),D */ -OP(ed,52) { SBC16( DE ); } /* SBC HL,DE */ -OP(ed,53) { z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.DE ); } /* LD (w),DE */ -OP(ed,54) { NEG; } /* NEG */ -OP(ed,55) { RETN; } /* RETN; */ -OP(ed,56) { _IM = 1; } /* IM 1 */ -OP(ed,57) { LD_A_I; } /* LD A,I */ - -OP(ed,58) { _Z80_E = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_E]; } /* IN E,(C) */ -OP(ed,59) { OUT(_BC,_Z80_E); } /* OUT (C),E */ -OP(ed,5a) { ADC16( DE ); } /* ADC HL,DE */ -OP(ed,5b) { z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.DE ); } /* LD DE,(w) */ -OP(ed,5c) { NEG; } /* NEG */ -OP(ed,5d) { RETI; } /* RETI */ -OP(ed,5e) { _IM = 2; } /* IM 2 */ -OP(ed,5f) { LD_A_R; } /* LD A,R */ - -OP(ed,60) { _Z80_H = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_H]; } /* IN H,(C) */ -OP(ed,61) { OUT(_BC,_Z80_H); } /* OUT (C),H */ -OP(ed,62) { SBC16( HL ); } /* SBC HL,HL */ -OP(ed,63) { z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.HL ); } /* LD (w),HL */ -OP(ed,64) { NEG; } /* NEG */ -OP(ed,65) { RETN; } /* RETN; */ -OP(ed,66) { _IM = 0; } /* IM 0 */ -OP(ed,67) { RRD; } /* RRD (HL) */ - -OP(ed,68) { _Z80_L = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_L]; } /* IN L,(C) */ -OP(ed,69) { OUT(_BC,_Z80_L); } /* OUT (C),L */ -OP(ed,6a) { ADC16( HL ); } /* ADC HL,HL */ -OP(ed,6b) { z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.HL ); } /* LD HL,(w) */ -OP(ed,6c) { NEG; } /* NEG */ -OP(ed,6d) { RETI; } /* RETI */ -OP(ed,6e) { _IM = 0; } /* IM 0 */ -OP(ed,6f) { RLD; } /* RLD (HL) */ - -OP(ed,70) { UINT8 res = IN(_BC); _F = (_F & CF) | z80->SZP[res]; } /* IN 0,(C) */ -OP(ed,71) { OUT(_BC,0); } /* OUT (C),0 */ -OP(ed,72) { SBC16( SP ); } /* SBC HL,SP */ -OP(ed,73) { z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.SP ); } /* LD (w),SP */ -OP(ed,74) { NEG; } /* NEG */ -OP(ed,75) { RETN; } /* RETN; */ -OP(ed,76) { _IM = 1; } /* IM 1 */ -OP(ed,77) { illegal_2(z80); } /* DB ED,77 */ - -OP(ed,78) { _Z80_A = IN(_BC); _F = (_F & CF) | z80->SZP[_Z80_A]; } /* IN E,(C) */ -OP(ed,79) { OUT(_BC,_Z80_A); } /* OUT (C),E */ -OP(ed,7a) { ADC16( SP ); } /* ADC HL,SP */ -OP(ed,7b) { z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.SP ); } /* LD SP,(w) */ -OP(ed,7c) { NEG; } /* NEG */ -OP(ed,7d) { RETI; } /* RETI */ -OP(ed,7e) { _IM = 2; } /* IM 2 */ -OP(ed,7f) { illegal_2(z80); } /* DB ED,7F */ - -OP(ed,80) { illegal_2(z80); } /* DB ED */ -OP(ed,81) { illegal_2(z80); } /* DB ED */ -OP(ed,82) { illegal_2(z80); } /* DB ED */ -OP(ed,83) { illegal_2(z80); } /* DB ED */ -OP(ed,84) { illegal_2(z80); } /* DB ED */ -OP(ed,85) { illegal_2(z80); } /* DB ED */ -OP(ed,86) { illegal_2(z80); } /* DB ED */ -OP(ed,87) { illegal_2(z80); } /* DB ED */ - -OP(ed,88) { illegal_2(z80); } /* DB ED */ -OP(ed,89) { illegal_2(z80); } /* DB ED */ -OP(ed,8a) { illegal_2(z80); } /* DB ED */ -OP(ed,8b) { illegal_2(z80); } /* DB ED */ -OP(ed,8c) { illegal_2(z80); } /* DB ED */ -OP(ed,8d) { illegal_2(z80); } /* DB ED */ -OP(ed,8e) { illegal_2(z80); } /* DB ED */ -OP(ed,8f) { illegal_2(z80); } /* DB ED */ - -OP(ed,90) { illegal_2(z80); } /* DB ED */ -OP(ed,91) { illegal_2(z80); } /* DB ED */ -OP(ed,92) { illegal_2(z80); } /* DB ED */ -OP(ed,93) { illegal_2(z80); } /* DB ED */ -OP(ed,94) { illegal_2(z80); } /* DB ED */ -OP(ed,95) { illegal_2(z80); } /* DB ED */ -OP(ed,96) { illegal_2(z80); } /* DB ED */ -OP(ed,97) { illegal_2(z80); } /* DB ED */ - -OP(ed,98) { illegal_2(z80); } /* DB ED */ -OP(ed,99) { illegal_2(z80); } /* DB ED */ -OP(ed,9a) { illegal_2(z80); } /* DB ED */ -OP(ed,9b) { illegal_2(z80); } /* DB ED */ -OP(ed,9c) { illegal_2(z80); } /* DB ED */ -OP(ed,9d) { illegal_2(z80); } /* DB ED */ -OP(ed,9e) { illegal_2(z80); } /* DB ED */ -OP(ed,9f) { illegal_2(z80); } /* DB ED */ - -OP(ed,a0) { LDI; } /* LDI */ -OP(ed,a1) { CPI; } /* CPI */ -OP(ed,a2) { INI; } /* INI */ -OP(ed,a3) { OUTI; } /* OUTI */ -OP(ed,a4) { illegal_2(z80); } /* DB ED */ -OP(ed,a5) { illegal_2(z80); } /* DB ED */ -OP(ed,a6) { illegal_2(z80); } /* DB ED */ -OP(ed,a7) { illegal_2(z80); } /* DB ED */ - -OP(ed,a8) { LDD; } /* LDD */ -OP(ed,a9) { CPD; } /* CPD */ -OP(ed,aa) { IND; } /* IND */ -OP(ed,ab) { OUTD; } /* OUTD */ -OP(ed,ac) { illegal_2(z80); } /* DB ED */ -OP(ed,ad) { illegal_2(z80); } /* DB ED */ -OP(ed,ae) { illegal_2(z80); } /* DB ED */ -OP(ed,af) { illegal_2(z80); } /* DB ED */ - -OP(ed,b0) { LDIR; } /* LDIR */ -OP(ed,b1) { CPIR; } /* CPIR */ -OP(ed,b2) { INIR; } /* INIR */ -OP(ed,b3) { OTIR; } /* OTIR */ -OP(ed,b4) { illegal_2(z80); } /* DB ED */ -OP(ed,b5) { illegal_2(z80); } /* DB ED */ -OP(ed,b6) { illegal_2(z80); } /* DB ED */ -OP(ed,b7) { illegal_2(z80); } /* DB ED */ - -OP(ed,b8) { LDDR; } /* LDDR */ -OP(ed,b9) { CPDR; } /* CPDR */ -OP(ed,ba) { INDR; } /* INDR */ -OP(ed,bb) { OTDR; } /* OTDR */ -OP(ed,bc) { illegal_2(z80); } /* DB ED */ -OP(ed,bd) { illegal_2(z80); } /* DB ED */ -OP(ed,be) { illegal_2(z80); } /* DB ED */ -OP(ed,bf) { illegal_2(z80); } /* DB ED */ - -OP(ed,c0) { illegal_2(z80); } /* DB ED */ -OP(ed,c1) { illegal_2(z80); } /* DB ED */ -OP(ed,c2) { illegal_2(z80); } /* DB ED */ -OP(ed,c3) { illegal_2(z80); } /* DB ED */ -OP(ed,c4) { illegal_2(z80); } /* DB ED */ -OP(ed,c5) { illegal_2(z80); } /* DB ED */ -OP(ed,c6) { illegal_2(z80); } /* DB ED */ -OP(ed,c7) { illegal_2(z80); } /* DB ED */ - -OP(ed,c8) { illegal_2(z80); } /* DB ED */ -OP(ed,c9) { illegal_2(z80); } /* DB ED */ -OP(ed,ca) { illegal_2(z80); } /* DB ED */ -OP(ed,cb) { illegal_2(z80); } /* DB ED */ -OP(ed,cc) { illegal_2(z80); } /* DB ED */ -OP(ed,cd) { illegal_2(z80); } /* DB ED */ -OP(ed,ce) { illegal_2(z80); } /* DB ED */ -OP(ed,cf) { illegal_2(z80); } /* DB ED */ - -OP(ed,d0) { illegal_2(z80); } /* DB ED */ -OP(ed,d1) { illegal_2(z80); } /* DB ED */ -OP(ed,d2) { illegal_2(z80); } /* DB ED */ -OP(ed,d3) { illegal_2(z80); } /* DB ED */ -OP(ed,d4) { illegal_2(z80); } /* DB ED */ -OP(ed,d5) { illegal_2(z80); } /* DB ED */ -OP(ed,d6) { illegal_2(z80); } /* DB ED */ -OP(ed,d7) { illegal_2(z80); } /* DB ED */ - -OP(ed,d8) { illegal_2(z80); } /* DB ED */ -OP(ed,d9) { illegal_2(z80); } /* DB ED */ -OP(ed,da) { illegal_2(z80); } /* DB ED */ -OP(ed,db) { illegal_2(z80); } /* DB ED */ -OP(ed,dc) { illegal_2(z80); } /* DB ED */ -OP(ed,dd) { illegal_2(z80); } /* DB ED */ -OP(ed,de) { illegal_2(z80); } /* DB ED */ -OP(ed,df) { illegal_2(z80); } /* DB ED */ - -OP(ed,e0) { illegal_2(z80); } /* DB ED */ -OP(ed,e1) { illegal_2(z80); } /* DB ED */ -OP(ed,e2) { illegal_2(z80); } /* DB ED */ -OP(ed,e3) { illegal_2(z80); } /* DB ED */ -OP(ed,e4) { illegal_2(z80); } /* DB ED */ -OP(ed,e5) { illegal_2(z80); } /* DB ED */ -OP(ed,e6) { illegal_2(z80); } /* DB ED */ -OP(ed,e7) { illegal_2(z80); } /* DB ED */ - -OP(ed,e8) { illegal_2(z80); } /* DB ED */ -OP(ed,e9) { illegal_2(z80); } /* DB ED */ -OP(ed,ea) { illegal_2(z80); } /* DB ED */ -OP(ed,eb) { illegal_2(z80); } /* DB ED */ -OP(ed,ec) { illegal_2(z80); } /* DB ED */ -OP(ed,ed) { illegal_2(z80); } /* DB ED */ -OP(ed,ee) { illegal_2(z80); } /* DB ED */ -OP(ed,ef) { illegal_2(z80); } /* DB ED */ - -OP(ed,f0) { illegal_2(z80); } /* DB ED */ -OP(ed,f1) { illegal_2(z80); } /* DB ED */ -OP(ed,f2) { illegal_2(z80); } /* DB ED */ -OP(ed,f3) { illegal_2(z80); } /* DB ED */ -OP(ed,f4) { illegal_2(z80); } /* DB ED */ -OP(ed,f5) { illegal_2(z80); } /* DB ED */ -OP(ed,f6) { illegal_2(z80); } /* DB ED */ -OP(ed,f7) { illegal_2(z80); } /* DB ED */ - -OP(ed,f8) { illegal_2(z80); } /* DB ED */ -OP(ed,f9) { illegal_2(z80); } /* DB ED */ -OP(ed,fa) { illegal_2(z80); } /* DB ED */ -OP(ed,fb) { illegal_2(z80); } /* DB ED */ -OP(ed,fc) { illegal_2(z80); } /* DB ED */ -OP(ed,fd) { illegal_2(z80); } /* DB ED */ -OP(ed,fe) { illegal_2(z80); } /* DB ED */ -OP(ed,ff) { illegal_2(z80); } /* DB ED */ - -#if TIME_LOOP_HACKS - -#define CHECK_BC_LOOP \ -if( _BC > 1 && _PCD < 0xfffc ) { \ - UINT8 op1 = cpu_readop(z80->userdata,_PCD); \ - UINT8 op2 = cpu_readop(z80->userdata,_PCD+1); \ - if( (op1==0x78 && op2==0xb1) || (op1==0x79 && op2==0xb0) ) \ - { \ - UINT8 op3 = cpu_readop(z80->userdata,_PCD+2); \ - UINT8 op4 = cpu_readop(z80->userdata,_PCD+3); \ - if( op3==0x20 && op4==0xfb ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x78] + \ - cc[Z80_TABLE_op][0xb1] + \ - cc[Z80_TABLE_op][0x20] + \ - cc[Z80_TABLE_ex][0x20]; \ - while( _BC > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _BC--; \ - } \ - } \ - else \ - if( op3 == 0xc2 ) \ - { \ - UINT8 ad1 = cpu_readop_arg(z80->userdata,_PCD+3); \ - UINT8 ad2 = cpu_readop_arg(z80->userdata,_PCD+4); \ - if( (ad1 + 256 * ad2) == (_PCD - 1) ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x78] + \ - cc[Z80_TABLE_op][0xb1] + \ - cc[Z80_TABLE_op][0xc2] + \ - cc[Z80_TABLE_ex][0xc2]; \ - while( _BC > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _BC--; \ - } \ - } \ - } \ - } \ -} - -#define CHECK_DE_LOOP \ -if( _DE > 1 && _PCD < 0xfffc ) { \ - UINT8 op1 = cpu_readop(z80->userdata,_PCD); \ - UINT8 op2 = cpu_readop(z80->userdata,_PCD+1); \ - if( (op1==0x7a && op2==0xb3) || (op1==0x7b && op2==0xb2) ) \ - { \ - UINT8 op3 = cpu_readop(z80->userdata,_PCD+2); \ - UINT8 op4 = cpu_readop(z80->userdata,_PCD+3); \ - if( op3==0x20 && op4==0xfb ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x7a] + \ - cc[Z80_TABLE_op][0xb3] + \ - cc[Z80_TABLE_op][0x20] + \ - cc[Z80_TABLE_ex][0x20]; \ - while( _DE > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _DE--; \ - } \ - } \ - else \ - if( op3==0xc2 ) \ - { \ - UINT8 ad1 = cpu_readop_arg(z80->userdata,_PCD+3); \ - UINT8 ad2 = cpu_readop_arg(z80->userdata,_PCD+4); \ - if( (ad1 + 256 * ad2) == (_PCD - 1) ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x7a] + \ - cc[Z80_TABLE_op][0xb3] + \ - cc[Z80_TABLE_op][0xc2] + \ - cc[Z80_TABLE_ex][0xc2]; \ - while( _DE > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _DE--; \ - } \ - } \ - } \ - } \ -} - -#define CHECK_HL_LOOP \ -if( _HL > 1 && _PCD < 0xfffc ) { \ - UINT8 op1 = cpu_readop(z80->userdata,_PCD); \ - UINT8 op2 = cpu_readop(z80->userdata,_PCD+1); \ - if( (op1==0x7c && op2==0xb5) || (op1==0x7d && op2==0xb4) ) \ - { \ - UINT8 op3 = cpu_readop(z80->userdata,_PCD+2); \ - UINT8 op4 = cpu_readop(z80->userdata,_PCD+3); \ - if( op3==0x20 && op4==0xfb ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x7c] + \ - cc[Z80_TABLE_op][0xb5] + \ - cc[Z80_TABLE_op][0x20] + \ - cc[Z80_TABLE_ex][0x20]; \ - while( _HL > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _HL--; \ - } \ - } \ - else \ - if( op3==0xc2 ) \ - { \ - UINT8 ad1 = cpu_readop_arg(z80->userdata,_PCD+3); \ - UINT8 ad2 = cpu_readop_arg(z80->userdata,_PCD+4); \ - if( (ad1 + 256 * ad2) == (_PCD - 1) ) \ - { \ - int cnt = \ - cc[Z80_TABLE_op][0x7c] + \ - cc[Z80_TABLE_op][0xb5] + \ - cc[Z80_TABLE_op][0xc2] + \ - cc[Z80_TABLE_ex][0xc2]; \ - while( _HL > 0 && z80->z80_ICount > cnt ) \ - { \ - BURNODD( z80, cnt, 4, cnt ); \ - _HL--; \ - } \ - } \ - } \ - } \ -} - -#else - -#define CHECK_BC_LOOP -#define CHECK_DE_LOOP -#define CHECK_HL_LOOP - -#endif - -/********************************************************** - * main opcodes - **********************************************************/ -OP(op,00) { } /* NOP */ -OP(op,01) { _BC = ARG16(z80); } /* LD BC,w */ -OP(op,02) { WM( _BC, _Z80_A ); } /* LD (BC),A */ -OP(op,03) { _BC++; } /* INC BC */ -OP(op,04) { _Z80_B = INC(z80,_Z80_B); } /* INC B */ -OP(op,05) { _Z80_B = DEC(z80,_Z80_B); } /* DEC B */ -OP(op,06) { _Z80_B = ARG(z80); } /* LD B,n */ -OP(op,07) { RLCA; } /* RLCA */ - -OP(op,08) { EX_AF; } /* EX AF,AF' */ -OP(op,09) { ADD16(z80,HL,BC); } /* ADD HL,BC */ -OP(op,0a) { _Z80_A = RM(_BC); } /* LD A,(BC) */ -OP(op,0b) { _BC--; CHECK_BC_LOOP; } /* DEC BC */ -OP(op,0c) { _Z80_C = INC(z80,_Z80_C); } /* INC C */ -OP(op,0d) { _Z80_C = DEC(z80,_Z80_C); } /* DEC C */ -OP(op,0e) { _Z80_C = ARG(z80); } /* LD C,n */ -OP(op,0f) { RRCA; } /* RRCA */ - -OP(op,10) { _Z80_B--; JR_COND( _Z80_B, 0x10 ); } /* DJNZ o */ -OP(op,11) { _DE = ARG16(z80); } /* LD DE,w */ -OP(op,12) { WM( _DE, _Z80_A ); } /* LD (DE),A */ -OP(op,13) { _DE++; } /* INC DE */ -OP(op,14) { _Z80_D = INC(z80,_Z80_D); } /* INC D */ -OP(op,15) { _Z80_D = DEC(z80,_Z80_D); } /* DEC D */ -OP(op,16) { _Z80_D = ARG(z80); } /* LD D,n */ -OP(op,17) { RLA; } /* RLA */ - -OP(op,18) { JR(); } /* JR o */ -OP(op,19) { ADD16(z80,HL,DE); } /* ADD HL,DE */ -OP(op,1a) { _Z80_A = RM(_DE); } /* LD A,(DE) */ -OP(op,1b) { _DE--; CHECK_DE_LOOP; } /* DEC DE */ -OP(op,1c) { _Z80_E = INC(z80,_Z80_E); } /* INC E */ -OP(op,1d) { _Z80_E = DEC(z80,_Z80_E); } /* DEC E */ -OP(op,1e) { _Z80_E = ARG(z80); } /* LD E,n */ -OP(op,1f) { RRA; } /* RRA */ - -OP(op,20) { JR_COND( !(_F & ZF), 0x20 ); } /* JR NZ,o */ -OP(op,21) { _HL = ARG16(z80); } /* LD HL,w */ -OP(op,22) { z80->EA = ARG16(z80); WM16(z80, z80->EA, &z80->Z80.HL ); } /* LD (w),HL */ -OP(op,23) { _HL++; } /* INC HL */ -OP(op,24) { _Z80_H = INC(z80,_Z80_H); } /* INC H */ -OP(op,25) { _Z80_H = DEC(z80,_Z80_H); } /* DEC H */ -OP(op,26) { _Z80_H = ARG(z80); } /* LD H,n */ -OP(op,27) { DAA; } /* DAA */ - -OP(op,28) { JR_COND( _F & ZF, 0x28 ); } /* JR Z,o */ -OP(op,29) { ADD16(z80,HL,HL); } /* ADD HL,HL */ -OP(op,2a) { z80->EA = ARG16(z80); RM16(z80, z80->EA, &z80->Z80.HL ); } /* LD HL,(w) */ -OP(op,2b) { _HL--; CHECK_HL_LOOP; } /* DEC HL */ -OP(op,2c) { _Z80_L = INC(z80,_Z80_L); } /* INC L */ -OP(op,2d) { _Z80_L = DEC(z80,_Z80_L); } /* DEC L */ -OP(op,2e) { _Z80_L = ARG(z80); } /* LD L,n */ -OP(op,2f) { _Z80_A ^= 0xff; _F = (_F&(SF|ZF|PF|CF))|HF|NF|(_Z80_A&(YF|XF)); } /* CPL */ - -OP(op,30) { JR_COND( !(_F & CF), 0x30 ); } /* JR NC,o */ -OP(op,31) { _SP = ARG16(z80); } /* LD SP,w */ -OP(op,32) { z80->EA = ARG16(z80); WM( z80->EA, _Z80_A ); } /* LD (w),A */ -OP(op,33) { _SP++; } /* INC SP */ -OP(op,34) { WM( _HL, INC(z80,RM(_HL)) ); } /* INC (HL) */ -OP(op,35) { WM( _HL, DEC(z80,RM(_HL)) ); } /* DEC (HL) */ -OP(op,36) { WM( _HL, ARG(z80) ); } /* LD (HL),n */ -OP(op,37) { _F = (_F & (SF|ZF|PF)) | CF | (_Z80_A & (YF|XF)); } /* SCF */ - -OP(op,38) { JR_COND( _F & CF, 0x38 ); } /* JR C,o */ -OP(op,39) { ADD16(z80,HL,SP); } /* ADD HL,SP */ -OP(op,3a) { z80->EA = ARG16(z80); _Z80_A = RM( z80->EA ); } /* LD A,(w) */ -OP(op,3b) { _SP--; } /* DEC SP */ -OP(op,3c) { _Z80_A = INC(z80,_Z80_A); } /* INC A */ -OP(op,3d) { _Z80_A = DEC(z80,_Z80_A); } /* DEC A */ -OP(op,3e) { _Z80_A = ARG(z80); } /* LD A,n */ -OP(op,3f) { _F = ((_F&(SF|ZF|PF|CF))|((_F&CF)<<4)|(_Z80_A&(YF|XF)))^CF; } /* CCF */ -/*OP(op,3f) { _F = ((_F & ~(HF|NF)) | ((_F & CF)<<4)) ^ CF; } CCF */ - -OP(op,40) { } /* LD B,B */ -OP(op,41) { _Z80_B = _Z80_C; } /* LD B,C */ -OP(op,42) { _Z80_B = _Z80_D; } /* LD B,D */ -OP(op,43) { _Z80_B = _Z80_E; } /* LD B,E */ -OP(op,44) { _Z80_B = _Z80_H; } /* LD B,H */ -OP(op,45) { _Z80_B = _Z80_L; } /* LD B,L */ -OP(op,46) { _Z80_B = RM(_HL); } /* LD B,(HL) */ -OP(op,47) { _Z80_B = _Z80_A; } /* LD B,A */ - -OP(op,48) { _Z80_C = _Z80_B; } /* LD C,B */ -OP(op,49) { } /* LD C,C */ -OP(op,4a) { _Z80_C = _Z80_D; } /* LD C,D */ -OP(op,4b) { _Z80_C = _Z80_E; } /* LD C,E */ -OP(op,4c) { _Z80_C = _Z80_H; } /* LD C,H */ -OP(op,4d) { _Z80_C = _Z80_L; } /* LD C,L */ -OP(op,4e) { _Z80_C = RM(_HL); } /* LD C,(HL) */ -OP(op,4f) { _Z80_C = _Z80_A; } /* LD C,A */ - -OP(op,50) { _Z80_D = _Z80_B; } /* LD D,B */ -OP(op,51) { _Z80_D = _Z80_C; } /* LD D,C */ -OP(op,52) { } /* LD D,D */ -OP(op,53) { _Z80_D = _Z80_E; } /* LD D,E */ -OP(op,54) { _Z80_D = _Z80_H; } /* LD D,H */ -OP(op,55) { _Z80_D = _Z80_L; } /* LD D,L */ -OP(op,56) { _Z80_D = RM(_HL); } /* LD D,(HL) */ -OP(op,57) { _Z80_D = _Z80_A; } /* LD D,A */ - -OP(op,58) { _Z80_E = _Z80_B; } /* LD E,B */ -OP(op,59) { _Z80_E = _Z80_C; } /* LD E,C */ -OP(op,5a) { _Z80_E = _Z80_D; } /* LD E,D */ -OP(op,5b) { } /* LD E,E */ -OP(op,5c) { _Z80_E = _Z80_H; } /* LD E,H */ -OP(op,5d) { _Z80_E = _Z80_L; } /* LD E,L */ -OP(op,5e) { _Z80_E = RM(_HL); } /* LD E,(HL) */ -OP(op,5f) { _Z80_E = _Z80_A; } /* LD E,A */ - -OP(op,60) { _Z80_H = _Z80_B; } /* LD H,B */ -OP(op,61) { _Z80_H = _Z80_C; } /* LD H,C */ -OP(op,62) { _Z80_H = _Z80_D; } /* LD H,D */ -OP(op,63) { _Z80_H = _Z80_E; } /* LD H,E */ -OP(op,64) { } /* LD H,H */ -OP(op,65) { _Z80_H = _Z80_L; } /* LD H,L */ -OP(op,66) { _Z80_H = RM(_HL); } /* LD H,(HL) */ -OP(op,67) { _Z80_H = _Z80_A; } /* LD H,A */ - -OP(op,68) { _Z80_L = _Z80_B; } /* LD L,B */ -OP(op,69) { _Z80_L = _Z80_C; } /* LD L,C */ -OP(op,6a) { _Z80_L = _Z80_D; } /* LD L,D */ -OP(op,6b) { _Z80_L = _Z80_E; } /* LD L,E */ -OP(op,6c) { _Z80_L = _Z80_H; } /* LD L,H */ -OP(op,6d) { } /* LD L,L */ -OP(op,6e) { _Z80_L = RM(_HL); } /* LD L,(HL) */ -OP(op,6f) { _Z80_L = _Z80_A; } /* LD L,A */ - -OP(op,70) { WM( _HL, _Z80_B ); } /* LD (HL),B */ -OP(op,71) { WM( _HL, _Z80_C ); } /* LD (HL),C */ -OP(op,72) { WM( _HL, _Z80_D ); } /* LD (HL),D */ -OP(op,73) { WM( _HL, _Z80_E ); } /* LD (HL),E */ -OP(op,74) { WM( _HL, _Z80_H ); } /* LD (HL),H */ -OP(op,75) { WM( _HL, _Z80_L ); } /* LD (HL),L */ -OP(op,76) { ENTER_HALT; } /* HALT */ -OP(op,77) { WM( _HL, _Z80_A ); } /* LD (HL),A */ - -OP(op,78) { _Z80_A = _Z80_B; } /* LD A,B */ -OP(op,79) { _Z80_A = _Z80_C; } /* LD A,C */ -OP(op,7a) { _Z80_A = _Z80_D; } /* LD A,D */ -OP(op,7b) { _Z80_A = _Z80_E; } /* LD A,E */ -OP(op,7c) { _Z80_A = _Z80_H; } /* LD A,H */ -OP(op,7d) { _Z80_A = _Z80_L; } /* LD A,L */ -OP(op,7e) { _Z80_A = RM(_HL); } /* LD A,(HL) */ -OP(op,7f) { } /* LD A,A */ - -OP(op,80) { ADD(z80,_Z80_B); } /* ADD A,B */ -OP(op,81) { ADD(z80,_Z80_C); } /* ADD A,C */ -OP(op,82) { ADD(z80,_Z80_D); } /* ADD A,D */ -OP(op,83) { ADD(z80,_Z80_E); } /* ADD A,E */ -OP(op,84) { ADD(z80,_Z80_H); } /* ADD A,H */ -OP(op,85) { ADD(z80,_Z80_L); } /* ADD A,L */ -OP(op,86) { ADD(z80,RM(_HL)); } /* ADD A,(HL) */ -OP(op,87) { ADD(z80,_Z80_A); } /* ADD A,A */ - -OP(op,88) { ADC(_Z80_B); } /* ADC A,B */ -OP(op,89) { ADC(_Z80_C); } /* ADC A,C */ -OP(op,8a) { ADC(_Z80_D); } /* ADC A,D */ -OP(op,8b) { ADC(_Z80_E); } /* ADC A,E */ -OP(op,8c) { ADC(_Z80_H); } /* ADC A,H */ -OP(op,8d) { ADC(_Z80_L); } /* ADC A,L */ -OP(op,8e) { ADC(RM(_HL)); } /* ADC A,(HL) */ -OP(op,8f) { ADC(_Z80_A); } /* ADC A,A */ - -OP(op,90) { SUB(_Z80_B); } /* SUB B */ -OP(op,91) { SUB(_Z80_C); } /* SUB C */ -OP(op,92) { SUB(_Z80_D); } /* SUB D */ -OP(op,93) { SUB(_Z80_E); } /* SUB E */ -OP(op,94) { SUB(_Z80_H); } /* SUB H */ -OP(op,95) { SUB(_Z80_L); } /* SUB L */ -OP(op,96) { SUB(RM(_HL)); } /* SUB (HL) */ -OP(op,97) { SUB(_Z80_A); } /* SUB A */ - -OP(op,98) { SBC(_Z80_B); } /* SBC A,B */ -OP(op,99) { SBC(_Z80_C); } /* SBC A,C */ -OP(op,9a) { SBC(_Z80_D); } /* SBC A,D */ -OP(op,9b) { SBC(_Z80_E); } /* SBC A,E */ -OP(op,9c) { SBC(_Z80_H); } /* SBC A,H */ -OP(op,9d) { SBC(_Z80_L); } /* SBC A,L */ -OP(op,9e) { SBC(RM(_HL)); } /* SBC A,(HL) */ -OP(op,9f) { SBC(_Z80_A); } /* SBC A,A */ - -OP(op,a0) { AND(_Z80_B); } /* AND B */ -OP(op,a1) { AND(_Z80_C); } /* AND C */ -OP(op,a2) { AND(_Z80_D); } /* AND D */ -OP(op,a3) { AND(_Z80_E); } /* AND E */ -OP(op,a4) { AND(_Z80_H); } /* AND H */ -OP(op,a5) { AND(_Z80_L); } /* AND L */ -OP(op,a6) { AND(RM(_HL)); } /* AND (HL) */ -OP(op,a7) { AND(_Z80_A); } /* AND A */ - -OP(op,a8) { XOR(_Z80_B); } /* XOR B */ -OP(op,a9) { XOR(_Z80_C); } /* XOR C */ -OP(op,aa) { XOR(_Z80_D); } /* XOR D */ -OP(op,ab) { XOR(_Z80_E); } /* XOR E */ -OP(op,ac) { XOR(_Z80_H); } /* XOR H */ -OP(op,ad) { XOR(_Z80_L); } /* XOR L */ -OP(op,ae) { XOR(RM(_HL)); } /* XOR (HL) */ -OP(op,af) { XOR(_Z80_A); } /* XOR A */ - -OP(op,b0) { OR(_Z80_B); } /* OR B */ -OP(op,b1) { OR(_Z80_C); } /* OR C */ -OP(op,b2) { OR(_Z80_D); } /* OR D */ -OP(op,b3) { OR(_Z80_E); } /* OR E */ -OP(op,b4) { OR(_Z80_H); } /* OR H */ -OP(op,b5) { OR(_Z80_L); } /* OR L */ -OP(op,b6) { OR(RM(_HL)); } /* OR (HL) */ -OP(op,b7) { OR(_Z80_A); } /* OR A */ - -OP(op,b8) { CP(_Z80_B); } /* CP B */ -OP(op,b9) { CP(_Z80_C); } /* CP C */ -OP(op,ba) { CP(_Z80_D); } /* CP D */ -OP(op,bb) { CP(_Z80_E); } /* CP E */ -OP(op,bc) { CP(_Z80_H); } /* CP H */ -OP(op,bd) { CP(_Z80_L); } /* CP L */ -OP(op,be) { CP(RM(_HL)); } /* CP (HL) */ -OP(op,bf) { CP(_Z80_A); } /* CP A */ - -OP(op,c0) { RET_COND( !(_F & ZF), 0xc0 ); } /* RET NZ */ -OP(op,c1) { POP(BC); } /* POP BC */ -OP(op,c2) { JP_COND( !(_F & ZF) ); } /* JP NZ,a */ -OP(op,c3) { JP; } /* JP a */ -OP(op,c4) { CALL_COND( !(_F & ZF), 0xc4 ); } /* CALL NZ,a */ -OP(op,c5) { PUSH( BC ); } /* PUSH BC */ -OP(op,c6) { ADD(z80,ARG(z80)); } /* ADD A,n */ -OP(op,c7) { RST(0x00); } /* RST 0 */ - -OP(op,c8) { RET_COND( _F & ZF, 0xc8 ); } /* RET Z */ -OP(op,c9) { POP(PC); change_pc16(_PCD); } /* RET */ -OP(op,ca) { JP_COND( _F & ZF ); } /* JP Z,a */ -OP(op,cb) { _Z80_R++; EXEC(cb,ROP(z80)); } /* **** CB xx */ -OP(op,cc) { CALL_COND( _F & ZF, 0xcc ); } /* CALL Z,a */ -OP(op,cd) { CALL(); } /* CALL a */ -OP(op,ce) { ADC(ARG(z80)); } /* ADC A,n */ -OP(op,cf) { RST(0x08); } /* RST 1 */ - -OP(op,d0) { RET_COND( !(_F & CF), 0xd0 ); } /* RET NC */ -OP(op,d1) { POP(DE); } /* POP DE */ -OP(op,d2) { JP_COND( !(_F & CF) ); } /* JP NC,a */ -OP(op,d3) { unsigned n = ARG(z80) | (_Z80_A << 8); OUT( n, _Z80_A ); } /* OUT (n),A */ -OP(op,d4) { CALL_COND( !(_F & CF), 0xd4 ); } /* CALL NC,a */ -OP(op,d5) { PUSH( DE ); } /* PUSH DE */ -OP(op,d6) { SUB(ARG(z80)); } /* SUB n */ -OP(op,d7) { RST(0x10); } /* RST 2 */ - -OP(op,d8) { RET_COND( _F & CF, 0xd8 ); } /* RET C */ -OP(op,d9) { EXX; } /* EXX */ -OP(op,da) { JP_COND( _F & CF ); } /* JP C,a */ -OP(op,db) { unsigned n = ARG(z80) | (_Z80_A << 8); _Z80_A = IN( n ); } /* IN A,(n) */ -OP(op,dc) { CALL_COND( _F & CF, 0xdc ); } /* CALL C,a */ -OP(op,dd) { _Z80_R++; EXEC(dd,ROP(z80)); } /* **** DD xx */ -OP(op,de) { SBC(ARG(z80)); } /* SBC A,n */ -OP(op,df) { RST(0x18); } /* RST 3 */ - -OP(op,e0) { RET_COND( !(_F & PF), 0xe0 ); } /* RET PO */ -OP(op,e1) { POP(HL); } /* POP HL */ -OP(op,e2) { JP_COND( !(_F & PF) ); } /* JP PO,a */ -OP(op,e3) { EXSP(HL); } /* EX HL,(SP) */ -OP(op,e4) { CALL_COND( !(_F & PF), 0xe4 ); } /* CALL PO,a */ -OP(op,e5) { PUSH( HL ); } /* PUSH HL */ -OP(op,e6) { AND(ARG(z80)); } /* AND n */ -OP(op,e7) { RST(0x20); } /* RST 4 */ - -OP(op,e8) { RET_COND( _F & PF, 0xe8 ); } /* RET PE */ -OP(op,e9) { _PC = _HL; change_pc16(_PCD); } /* JP (HL) */ -OP(op,ea) { JP_COND( _F & PF ); } /* JP PE,a */ -OP(op,eb) { EX_DE_HL; } /* EX DE,HL */ -OP(op,ec) { CALL_COND( _F & PF, 0xec ); } /* CALL PE,a */ -OP(op,ed) { _Z80_R++; EXEC(ed,ROP(z80)); } /* **** ED xx */ -OP(op,ee) { XOR(ARG(z80)); } /* XOR n */ -OP(op,ef) { RST(0x28); } /* RST 5 */ - -OP(op,f0) { RET_COND( !(_F & SF), 0xf0 ); } /* RET P */ -OP(op,f1) { POP(AF); } /* POP AF */ -OP(op,f2) { JP_COND( !(_F & SF) ); } /* JP P,a */ -OP(op,f3) { _IFF1 = _IFF2 = 0; } /* DI */ -OP(op,f4) { CALL_COND( !(_F & SF), 0xf4 ); } /* CALL P,a */ -OP(op,f5) { PUSH( AF ); } /* PUSH AF */ -OP(op,f6) { OR(ARG(z80)); } /* OR n */ -OP(op,f7) { RST(0x30); } /* RST 6 */ - -OP(op,f8) { RET_COND( _F & SF, 0xf8 ); } /* RET M */ -OP(op,f9) { _SP = _HL; } /* LD SP,HL */ -OP(op,fa) { JP_COND(_F & SF); } /* JP M,a */ -OP(op,fb) { EI; } /* EI */ -OP(op,fc) { CALL_COND( _F & SF, 0xfc ); } /* CALL M,a */ -OP(op,fd) { _Z80_R++; EXEC(fd,ROP(z80)); } /* **** FD xx */ -OP(op,fe) { CP(ARG(z80)); } /* CP n */ -OP(op,ff) { RST(0x38); } /* RST 7 */ - - -static void take_interrupt(z80_state_t *z80) -{ - if( _IFF1 ) - { - int irq_vector; - - /* there isn't a valid previous program counter */ - _PPC = -1; - - /* Check if processor was halted */ - LEAVE_HALT; - - if( z80->Z80.irq_max ) /* daisy chain mode */ - { - if( z80->Z80.request_irq >= 0 ) - { - /* Clear both interrupt flip flops */ - _IFF1 = _IFF2 = 0; - irq_vector = z80->Z80.irq[z80->Z80.request_irq].interrupt_entry(z80->Z80.irq[z80->Z80.request_irq].irq_param); - LOG(("Z80 #%d daisy chain irq_vector $%02x\n", cpu_getactivecpu(), irq_vector)); - z80->Z80.request_irq = -1; - } else return; - } - else - { - /* Clear both interrupt flip flops */ - _IFF1 = _IFF2 = 0; - /* call back the cpu interface to retrieve the vector */ - irq_vector = (*z80->Z80.irq_callback)(0); - LOG(("Z80 #%d single int. irq_vector $%02x\n", cpu_getactivecpu(), irq_vector)); - } - - /* Interrupt mode 2. Call [z80->Z80.I:databyte] */ - if( _IM == 2 ) - { - irq_vector = (irq_vector & 0xff) | (_Z80_I << 8); - PUSH( PC ); - RM16(z80, irq_vector, &z80->Z80.PC ); - LOG(("Z80 #%d IM2 [$%04x] = $%04x\n",cpu_getactivecpu() , irq_vector, _PCD)); - /* CALL opcode timing */ - z80->Z80.extra_cycles += cc[Z80_TABLE_op][0xcd]; - } - else - /* Interrupt mode 1. RST 38h */ - if( _IM == 1 ) - { - LOG(("Z80 #%d IM1 $0038\n",cpu_getactivecpu() )); - PUSH( PC ); - _PCD = 0x0038; - /* RST $38 + 'interrupt latency' cycles */ - z80->Z80.extra_cycles += cc[Z80_TABLE_op][0xff] + cc[Z80_TABLE_ex][0xff]; - } - else - { - /* Interrupt mode 0. We check for CALL and JP instructions, */ - /* if neither of these were found we assume a 1 byte opcode */ - /* was placed on the databus */ - LOG(("Z80 #%d IM0 $%04x\n",cpu_getactivecpu() , irq_vector)); - switch (irq_vector & 0xff0000) - { - case 0xcd0000: /* call */ - PUSH( PC ); - _PCD = irq_vector & 0xffff; - /* CALL $xxxx + 'interrupt latency' cycles */ - z80->Z80.extra_cycles += cc[Z80_TABLE_op][0xcd] + cc[Z80_TABLE_ex][0xff]; - break; - case 0xc30000: /* jump */ - _PCD = irq_vector & 0xffff; - /* JP $xxxx + 2 cycles */ - z80->Z80.extra_cycles += cc[Z80_TABLE_op][0xc3] + cc[Z80_TABLE_ex][0xff]; - break; - default: /* rst (or other opcodes?) */ - PUSH( PC ); - _PCD = irq_vector & 0x0038; - /* RST $xx + 2 cycles */ - z80->Z80.extra_cycles += cc[Z80_TABLE_op][_PCD] + cc[Z80_TABLE_ex][_PCD]; - break; - } - } - change_pc16(_PCD); - } -} - -/**************************************************************************** - * Processor initialization - ****************************************************************************/ -z80_state_t *z80_init(void) -{ -// int cpu = 0;//cpu_getactivecpu(); - int i, p; - z80_state_t *z80 = malloc (sizeof (z80_state_t)); - memset (z80, 0, sizeof (z80_state_t)); -#if BIG_FLAGS_ARRAY - if( !z80->SZHVC_add || !z80->SZHVC_sub ) - { - int oldval, newval, val; - UINT8 *padd, *padc, *psub, *psbc; - /* allocate big flag arrays once */ - z80->SZHVC_add = (UINT8 *)malloc(2*256*256); - z80->SZHVC_sub = (UINT8 *)malloc(2*256*256); - if( !z80->SZHVC_add || !z80->SZHVC_sub ) - { - LOG(("Z80: failed to allocate 2 * 128K flags arrays!!!\n")); - exit(1); - } - padd = &z80->SZHVC_add[ 0*256]; - padc = &z80->SZHVC_add[256*256]; - psub = &z80->SZHVC_sub[ 0*256]; - psbc = &z80->SZHVC_sub[256*256]; - for (oldval = 0; oldval < 256; oldval++) - { - for (newval = 0; newval < 256; newval++) - { - /* add or adc w/o carry set */ - val = newval - oldval; - *padd = (newval) ? ((newval & 0x80) ? SF : 0) : ZF; -#if Z80_EXACT - *padd |= (newval & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - if( (newval & 0x0f) < (oldval & 0x0f) ) *padd |= HF; - if( newval < oldval ) *padd |= CF; - if( (val^oldval^0x80) & (val^newval) & 0x80 ) *padd |= VF; - padd++; - - /* adc with carry set */ - val = newval - oldval - 1; - *padc = (newval) ? ((newval & 0x80) ? SF : 0) : ZF; -#if Z80_EXACT - *padc |= (newval & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - if( (newval & 0x0f) <= (oldval & 0x0f) ) *padc |= HF; - if( newval <= oldval ) *padc |= CF; - if( (val^oldval^0x80) & (val^newval) & 0x80 ) *padc |= VF; - padc++; - - /* cp, sub or sbc w/o carry set */ - val = oldval - newval; - *psub = NF | ((newval) ? ((newval & 0x80) ? SF : 0) : ZF); -#if Z80_EXACT - *psub |= (newval & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - if( (newval & 0x0f) > (oldval & 0x0f) ) *psub |= HF; - if( newval > oldval ) *psub |= CF; - if( (val^oldval) & (oldval^newval) & 0x80 ) *psub |= VF; - psub++; - - /* sbc with carry set */ - val = oldval - newval - 1; - *psbc = NF | ((newval) ? ((newval & 0x80) ? SF : 0) : ZF); -#if Z80_EXACT - *psbc |= (newval & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - if( (newval & 0x0f) >= (oldval & 0x0f) ) *psbc |= HF; - if( newval >= oldval ) *psbc |= CF; - if( (val^oldval) & (oldval^newval) & 0x80 ) *psbc |= VF; - psbc++; - } - } - } -#endif - for (i = 0; i < 256; i++) - { - p = 0; - if( i&0x01 ) ++p; - if( i&0x02 ) ++p; - if( i&0x04 ) ++p; - if( i&0x08 ) ++p; - if( i&0x10 ) ++p; - if( i&0x20 ) ++p; - if( i&0x40 ) ++p; - if( i&0x80 ) ++p; - z80->SZ[i] = i ? i & SF : ZF; -#if Z80_EXACT - z80->SZ[i] |= (i & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - z80->SZ_BIT[i] = i ? i & SF : ZF | PF; -#if Z80_EXACT - z80->SZ_BIT[i] |= (i & (YF | XF)); /* undocumented flag bits 5+3 */ -#endif - z80->SZP[i] = z80->SZ[i] | ((p & 1) ? 0 : PF); - z80->SZHV_inc[i] = z80->SZ[i]; - if( i == 0x80 ) z80->SZHV_inc[i] |= VF; - if( (i & 0x0f) == 0x00 ) z80->SZHV_inc[i] |= HF; - z80->SZHV_dec[i] = z80->SZ[i] | NF; - if( i == 0x7f ) z80->SZHV_dec[i] |= VF; - if( (i & 0x0f) == 0x0f ) z80->SZHV_dec[i] |= HF; - } - -/* - state_save_register_UINT16("z80", cpu, "AF", &z80->Z80.AF.w.l, 1); - state_save_register_UINT16("z80", cpu, "BC", &z80->Z80.BC.w.l, 1); - state_save_register_UINT16("z80", cpu, "DE", &z80->Z80.DE.w.l, 1); - state_save_register_UINT16("z80", cpu, "HL", &z80->Z80.HL.w.l, 1); - state_save_register_UINT16("z80", cpu, "IX", &z80->Z80.IX.w.l, 1); - state_save_register_UINT16("z80", cpu, "IY", &z80->Z80.IY.w.l, 1); - state_save_register_UINT16("z80", cpu, "PC", &z80->Z80.PC.w.l, 1); - state_save_register_UINT16("z80", cpu, "SP", &z80->Z80.SP.w.l, 1); - state_save_register_UINT16("z80", cpu, "AF2", &z80->Z80.AF2.w.l, 1); - state_save_register_UINT16("z80", cpu, "BC2", &z80->Z80.BC2.w.l, 1); - state_save_register_UINT16("z80", cpu, "DE2", &z80->Z80.DE2.w.l, 1); - state_save_register_UINT16("z80", cpu, "HL2", &z80->Z80.HL2.w.l, 1); - state_save_register_UINT8("z80", cpu, "R", &z80->Z80.R, 1); - state_save_register_UINT8("z80", cpu, "R2", &z80->Z80.R2, 1); - state_save_register_UINT8("z80", cpu, "IFF1", &z80->Z80.IFF1, 1); - state_save_register_UINT8("z80", cpu, "IFF2", &z80->Z80.IFF2, 1); - state_save_register_UINT8("z80", cpu, "HALT", &z80->Z80.HALT, 1); - state_save_register_UINT8("z80", cpu, "IM", &z80->Z80.IM, 1); - state_save_register_UINT8("z80", cpu, "I", &z80->Z80.I, 1); - state_save_register_UINT8("z80", cpu, "irq_max", &z80->Z80.irq_max, 1); - state_save_register_INT8("z80", cpu, "request_irq", &z80->Z80.request_irq, 1); - state_save_register_INT8("z80", cpu, "service_irq", &z80->Z80.service_irq, 1); - state_save_register_UINT8("z80", cpu, "int_state", z80->Z80.int_state, 4); - state_save_register_UINT8("z80", cpu, "nmi_state", &z80->Z80.nmi_state, 1); - state_save_register_UINT8("z80", cpu, "irq_state", &z80->Z80.irq_state, 1); -*/ - /* daisy chain needs to be saved by z80ctc.c somehow */ - - return z80; -} - -void z80_free (z80_state_t *z80) { - if (z80) { - if( z80->SZHVC_add) { - free (z80->SZHVC_add); - } - if (z80->SZHVC_sub) { - free (z80->SZHVC_sub); - } - free (z80); - } -} - -/**************************************************************************** - * Reset registers to their initial values - ****************************************************************************/ -void z80_reset(z80_state_t *z80, void *param) -{ - Z80_DaisyChain *daisy_chain = (Z80_DaisyChain *)param; - memset(&z80->Z80, 0, sizeof(z80->Z80)); - _IX = _IY = 0xffff; /* IX and IY are FFFF after a reset! */ - _F = ZF; /* Zero flag is set */ - z80->Z80.request_irq = -1; - z80->Z80.service_irq = -1; - z80->Z80.nmi_state = CLEAR_LINE; - z80->Z80.irq_state = CLEAR_LINE; - - if( daisy_chain ) - { - while( daisy_chain->irq_param != -1 && z80->Z80.irq_max < Z80_MAXDAISY ) - { - /* set callbackhandler after reti */ - z80->Z80.irq[z80->Z80.irq_max] = *daisy_chain; - /* device reset */ - if( z80->Z80.irq[z80->Z80.irq_max].reset ) - z80->Z80.irq[z80->Z80.irq_max].reset(z80->Z80.irq[z80->Z80.irq_max].irq_param); - z80->Z80.irq_max++; - daisy_chain++; - } - } - - change_pc16(_PCD); -} - -void z80_exit(z80_state_t *z80) -{ -#if BIG_FLAGS_ARRAY - if (z80->SZHVC_add) free(z80->SZHVC_add); - z80->SZHVC_add = NULL; - if (z80->SZHVC_sub) free(z80->SZHVC_sub); - z80->SZHVC_sub = NULL; -#endif -} - -/**************************************************************************** - * Execute 'cycles' T-states. Return number of T-states really executed - ****************************************************************************/ -int z80_execute(z80_state_t *z80, int cycles) -{ - z80->z80_ICount = cycles - z80->Z80.extra_cycles; - z80->Z80.extra_cycles = 0; - - do - { - _PPC = _PCD; - CALL_MAME_DEBUG; - _Z80_R++; - EXEC_INLINE(op,ROP(z80)); - } while( z80->z80_ICount > 0 ); - - z80->z80_ICount -= z80->Z80.extra_cycles; - z80->Z80.extra_cycles = 0; - - return cycles - z80->z80_ICount; -} - -/**************************************************************************** - * Burn 'cycles' T-states. Adjust R register for the lost time - ****************************************************************************/ -void z80_burn(z80_state_t *z80, int cycles) -{ - if( cycles > 0 ) - { - /* NOP takes 4 cycles per instruction */ - int n = (cycles + 3) / 4; - _Z80_R += n; - z80->z80_ICount -= 4 * n; - } -} - -/**************************************************************************** - * Get all registers in given buffer - ****************************************************************************/ -unsigned z80_get_context (z80_state_t *z80, void *dst) -{ - if( dst ) - *(Z80_Regs*)dst = z80->Z80; - return sizeof(Z80_Regs); -} - -/**************************************************************************** - * Set all registers to given values - ****************************************************************************/ -void z80_set_context (z80_state_t *z80, void *src) -{ - if( src ) - z80->Z80 = *(Z80_Regs*)src; - change_pc16(_PCD); -} - -/**************************************************************************** - * Get a pointer to a cycle count table - ****************************************************************************/ -const void *z80_get_cycle_table (z80_state_t *z80, int which) -{ - if (which >= 0 && which <= Z80_TABLE_xycb) - return cc[which]; - return NULL; -} - -/**************************************************************************** - * Set a new cycle count table - ****************************************************************************/ -void z80_set_cycle_table (z80_state_t *z80, int which, void *new_table) -{ - if (which >= 0 && which <= Z80_TABLE_ex) - cc[which] = new_table; -} - -/**************************************************************************** - * Return a specific register - ****************************************************************************/ -unsigned z80_get_reg (z80_state_t *z80, int regnum) -{ - switch( regnum ) - { - //case REG_PC: return _PCD; - case Z80_PC: return z80->Z80.PC.w.l; - //case REG_SP: return _SPD; - case Z80_SP: return z80->Z80.SP.w.l; - case Z80_AF: return z80->Z80.AF.w.l; - case Z80_BC: return z80->Z80.BC.w.l; - case Z80_DE: return z80->Z80.DE.w.l; - case Z80_HL: return z80->Z80.HL.w.l; - case Z80_IX: return z80->Z80.IX.w.l; - case Z80_IY: return z80->Z80.IY.w.l; - case Z80_R: return (z80->Z80.R & 0x7f) | (z80->Z80.R2 & 0x80); - case Z80_I: return z80->Z80.I; - case Z80_AF2: return z80->Z80.AF2.w.l; - case Z80_BC2: return z80->Z80.BC2.w.l; - case Z80_DE2: return z80->Z80.DE2.w.l; - case Z80_HL2: return z80->Z80.HL2.w.l; - case Z80_IM: return z80->Z80.IM; - case Z80_IFF1: return z80->Z80.IFF1; - case Z80_IFF2: return z80->Z80.IFF2; - case Z80_HALT: return z80->Z80.HALT; - case Z80_NMI_STATE: return z80->Z80.nmi_state; - case Z80_IRQ_STATE: return z80->Z80.irq_state; - case Z80_DC0: return z80->Z80.int_state[0]; - case Z80_DC1: return z80->Z80.int_state[1]; - case Z80_DC2: return z80->Z80.int_state[2]; - case Z80_DC3: return z80->Z80.int_state[3]; - case REG_PREVIOUSPC: return z80->Z80.PREPC.w.l; - default: - if( regnum <= REG_SP_CONTENTS ) - { - unsigned offset = _SPD + 2 * (REG_SP_CONTENTS - regnum); - if( offset < 0xffff ) - return RM( offset ) | ( RM( offset + 1) << 8 ); - } - } - return 0; -} - -/**************************************************************************** - * Set a specific register - ****************************************************************************/ -void z80_set_reg (z80_state_t *z80, int regnum, unsigned val) -{ - switch( regnum ) - { - //case REG_PC: _PC = val; change_pc16(_PCD); break; - case Z80_PC: z80->Z80.PC.w.l = val; break; - //case REG_SP: _SP = val; break; - case Z80_SP: z80->Z80.SP.w.l = val; break; - case Z80_AF: z80->Z80.AF.w.l = val; break; - case Z80_BC: z80->Z80.BC.w.l = val; break; - case Z80_DE: z80->Z80.DE.w.l = val; break; - case Z80_HL: z80->Z80.HL.w.l = val; break; - case Z80_IX: z80->Z80.IX.w.l = val; break; - case Z80_IY: z80->Z80.IY.w.l = val; break; - case Z80_R: z80->Z80.R = val; z80->Z80.R2 = val & 0x80; break; - case Z80_I: z80->Z80.I = val; break; - case Z80_AF2: z80->Z80.AF2.w.l = val; break; - case Z80_BC2: z80->Z80.BC2.w.l = val; break; - case Z80_DE2: z80->Z80.DE2.w.l = val; break; - case Z80_HL2: z80->Z80.HL2.w.l = val; break; - case Z80_IM: z80->Z80.IM = val; break; - case Z80_IFF1: z80->Z80.IFF1 = val; break; - case Z80_IFF2: z80->Z80.IFF2 = val; break; - case Z80_HALT: z80->Z80.HALT = val; break; - case Z80_NMI_STATE: z80_set_irq_line(z80,IRQ_LINE_NMI,val); break; - case Z80_IRQ_STATE: z80_set_irq_line(z80,0,val); break; - case Z80_DC0: z80->Z80.int_state[0] = val; break; - case Z80_DC1: z80->Z80.int_state[1] = val; break; - case Z80_DC2: z80->Z80.int_state[2] = val; break; - case Z80_DC3: z80->Z80.int_state[3] = val; break; - default: - if( regnum <= REG_SP_CONTENTS ) - { - unsigned offset = _SPD + 2 * (REG_SP_CONTENTS - regnum); - if( offset < 0xffff ) - { - WM( offset, val & 0xff ); - WM( offset+1, (val >> 8) & 0xff ); - } - } - } -} - -/**************************************************************************** - * Set IRQ line state - ****************************************************************************/ -void z80_set_irq_line(z80_state_t *z80, int irqline, int state) -{ - if (irqline == IRQ_LINE_NMI) - { - if( z80->Z80.nmi_state == state ) return; - - LOG(("Z80 #%d set_irq_line (NMI) %d\n", cpu_getactivecpu(), state)); - z80->Z80.nmi_state = state; - if( state == CLEAR_LINE ) return; - - LOG(("Z80 #%d take NMI\n", cpu_getactivecpu())); - _PPC = -1; /* there isn't a valid previous program counter */ - LEAVE_HALT; /* Check if processor was halted */ - - _IFF1 = 0; - PUSH( PC ); - _PCD = 0x0066; - z80->Z80.extra_cycles += 11; - } - else - { - LOG(("Z80 #%d set_irq_line %d\n",cpu_getactivecpu() , state)); - z80->Z80.irq_state = state; - if( state == CLEAR_LINE ) return; - - if( z80->Z80.irq_max ) - { - int daisychain, device, int_state; - daisychain = (*z80->Z80.irq_callback)(irqline); - device = daisychain >> 8; - int_state = daisychain & 0xff; - LOG(("Z80 #%d daisy chain $%04x -> device %d, state $%02x",cpu_getactivecpu(), daisychain, device, int_state)); - - if( z80->Z80.int_state[device] != int_state ) - { - LOG((" change\n")); - /* set new interrupt status */ - z80->Z80.int_state[device] = int_state; - /* check interrupt status */ - z80->Z80.request_irq = z80->Z80.service_irq = -1; - - /* search higher IRQ or IEO */ - for( device = 0 ; device < z80->Z80.irq_max ; device ++ ) - { - /* IEO = disable ? */ - if( z80->Z80.int_state[device] & Z80_INT_IEO ) - { - z80->Z80.request_irq = -1; /* if IEO is disable , masking lower IRQ */ - z80->Z80.service_irq = device; /* set highest interrupt service device */ - } - /* IRQ = request ? */ - if( z80->Z80.int_state[device] & Z80_INT_REQ ) - z80->Z80.request_irq = device; - } - LOG(("Z80 #%d daisy chain service_irq $%02x, request_irq $%02x\n", cpu_getactivecpu(), z80->Z80.service_irq, z80->Z80.request_irq)); - if( z80->Z80.request_irq < 0 ) return; - } - else - { - LOG((" no change\n")); - return; - } - } - take_interrupt(z80); - } -} - -/**************************************************************************** - * Set IRQ vector callback - ****************************************************************************/ -void z80_set_irq_callback(z80_state_t *z80, int (*callback)(int)) -{ - LOG(("Z80 #%d set_irq_callback $%08x\n",cpu_getactivecpu() , (int)callback)); - z80->Z80.irq_callback = callback; -} - -/**************************************************************************** - * Return a formatted string for a register - ****************************************************************************/ -const char *z80_info(z80_state_t *z80, void *context, int regnum) -{ - static char buffer[32][47+1]; - static int which = 0; - Z80_Regs *r = context; - - which = (which+1) % 32; - buffer[which][0] = '\0'; - if( !context ) - r = &z80->Z80; - - switch( regnum ) - { - case CPU_INFO_REG+Z80_PC: sprintf(buffer[which], "PC:%04X", r->PC.w.l); break; - case CPU_INFO_REG+Z80_SP: sprintf(buffer[which], "SP:%04X", r->SP.w.l); break; - case CPU_INFO_REG+Z80_AF: sprintf(buffer[which], "AF:%04X", r->AF.w.l); break; - case CPU_INFO_REG+Z80_BC: sprintf(buffer[which], "BC:%04X", r->BC.w.l); break; - case CPU_INFO_REG+Z80_DE: sprintf(buffer[which], "DE:%04X", r->DE.w.l); break; - case CPU_INFO_REG+Z80_HL: sprintf(buffer[which], "HL:%04X", r->HL.w.l); break; - case CPU_INFO_REG+Z80_IX: sprintf(buffer[which], "IX:%04X", r->IX.w.l); break; - case CPU_INFO_REG+Z80_IY: sprintf(buffer[which], "IY:%04X", r->IY.w.l); break; - case CPU_INFO_REG+Z80_R: sprintf(buffer[which], "R:%02X", (r->R & 0x7f) | (r->R2 & 0x80)); break; - case CPU_INFO_REG+Z80_I: sprintf(buffer[which], "I:%02X", r->I); break; - case CPU_INFO_REG+Z80_AF2: sprintf(buffer[which], "AF'%04X", r->AF2.w.l); break; - case CPU_INFO_REG+Z80_BC2: sprintf(buffer[which], "BC'%04X", r->BC2.w.l); break; - case CPU_INFO_REG+Z80_DE2: sprintf(buffer[which], "DE'%04X", r->DE2.w.l); break; - case CPU_INFO_REG+Z80_HL2: sprintf(buffer[which], "HL'%04X", r->HL2.w.l); break; - case CPU_INFO_REG+Z80_IM: sprintf(buffer[which], "IM:%X", r->IM); break; - case CPU_INFO_REG+Z80_IFF1: sprintf(buffer[which], "IFF1:%X", r->IFF1); break; - case CPU_INFO_REG+Z80_IFF2: sprintf(buffer[which], "IFF2:%X", r->IFF2); break; - case CPU_INFO_REG+Z80_HALT: sprintf(buffer[which], "HALT:%X", r->HALT); break; - case CPU_INFO_REG+Z80_NMI_STATE: sprintf(buffer[which], "NMI:%X", r->nmi_state); break; - case CPU_INFO_REG+Z80_IRQ_STATE: sprintf(buffer[which], "IRQ:%X", r->irq_state); break; - case CPU_INFO_REG+Z80_DC0: if(z80->Z80.irq_max >= 1) sprintf(buffer[which], "DC0:%X", r->int_state[0]); break; - case CPU_INFO_REG+Z80_DC1: if(z80->Z80.irq_max >= 2) sprintf(buffer[which], "DC1:%X", r->int_state[1]); break; - case CPU_INFO_REG+Z80_DC2: if(z80->Z80.irq_max >= 3) sprintf(buffer[which], "DC2:%X", r->int_state[2]); break; - case CPU_INFO_REG+Z80_DC3: if(z80->Z80.irq_max >= 4) sprintf(buffer[which], "DC3:%X", r->int_state[3]); break; - case CPU_INFO_FLAGS: - sprintf(buffer[which], "%c%c%c%c%c%c%c%c", - r->AF.b.l & 0x80 ? 'S':'.', - r->AF.b.l & 0x40 ? 'Z':'.', - r->AF.b.l & 0x20 ? '5':'.', - r->AF.b.l & 0x10 ? 'H':'.', - r->AF.b.l & 0x08 ? '3':'.', - r->AF.b.l & 0x04 ? 'P':'.', - r->AF.b.l & 0x02 ? 'N':'.', - r->AF.b.l & 0x01 ? 'C':'.'); - break; - case CPU_INFO_NAME: return "Z80"; - case CPU_INFO_FAMILY: return "Zilog Z80"; - case CPU_INFO_VERSION: return "3.5"; - case CPU_INFO_FILE: return __FILE__; - case CPU_INFO_CREDITS: return "Copyright (C) 1998,1999,2000 Juergen Buchmueller, all rights reserved."; - case CPU_INFO_REG_LAYOUT: return (const char *)z80_reg_layout; - case CPU_INFO_WIN_LAYOUT: return (const char *)z80_win_layout; - } - return buffer[which]; -} - -unsigned z80_dasm( z80_state_t *z80, char *buffer, unsigned pc ) -{ -#ifdef MAME_DEBUG - return DasmZ80( buffer, pc ); -#else - sprintf( buffer, "$%02X", cpu_readop(z80->userdata,pc) ); - return 1; -#endif -} - diff --git a/plugins/ao/eng_qsf/z80.h b/plugins/ao/eng_qsf/z80.h deleted file mode 100644 index 17808cfc..00000000 --- a/plugins/ao/eng_qsf/z80.h +++ /dev/null @@ -1,117 +0,0 @@ -#ifndef Z80_H
-#define Z80_H
-
-#include "cpuintrf.h"
-#include "osd_cpu.h"
-
-#undef VERBOSE
-#define VERBOSE 0
-
-#if VERBOSE
-#define LOG(x) logerror x
-#else
-#define LOG(x)
-#endif
-
-/* execute main opcodes inside a big switch statement */
-#ifndef BIG_SWITCH
-#define BIG_SWITCH 1
-#endif
-
-/* big flags array for ADD/ADC/SUB/SBC/CP results */
-#define BIG_FLAGS_ARRAY 1
-
-/* Set to 1 for a more exact (but somewhat slower) Z80 emulation */
-#define Z80_EXACT 1
-
-/* on JP and JR opcodes check for tight loops */
-#define BUSY_LOOP_HACKS 1
-
-/* check for delay loops counting down BC */
-#define TIME_LOOP_HACKS 1
-
-#ifdef X86_ASM
-#undef BIG_FLAGS_ARRAY
-#define BIG_FLAGS_ARRAY 0
-#endif
-
-enum {
- Z80_PC=1, Z80_SP, Z80_AF, Z80_BC, Z80_DE, Z80_HL,
- Z80_IX, Z80_IY, Z80_AF2, Z80_BC2, Z80_DE2, Z80_HL2,
- Z80_R, Z80_I, Z80_IM, Z80_IFF1, Z80_IFF2, Z80_HALT,
- Z80_NMI_STATE, Z80_IRQ_STATE, Z80_DC0, Z80_DC1, Z80_DC2, Z80_DC3
-};
-
-enum {
- Z80_TABLE_op,
- Z80_TABLE_cb,
- Z80_TABLE_ed,
- Z80_TABLE_xy,
- Z80_TABLE_xycb,
- Z80_TABLE_ex /* cycles counts for taken jr/jp/call and interrupt latency (rst opcodes) */
-};
-
-/****************************************************************************/
-/* The Z80 registers. HALT is set to 1 when the CPU is halted, the refresh */
-/* register is calculated as follows: refresh=(Regs.R&127)|(Regs.R2&128) */
-/****************************************************************************/
-typedef struct {
-/* 00 */ PAIR PREPC,PC,SP,AF,BC,DE,HL,IX,IY;
-/* 24 */ PAIR AF2,BC2,DE2,HL2;
-/* 34 */ UINT8 R,R2,IFF1,IFF2,HALT,IM,I;
-/* 3B */ UINT8 irq_max; /* number of daisy chain devices */
-/* 3C */ INT8 request_irq; /* daisy chain next request device */
-/* 3D */ INT8 service_irq; /* daisy chain next reti handling device */
-/* 3E */ UINT8 nmi_state; /* nmi line state */
-/* 3F */ UINT8 irq_state; /* irq line state */
-/* 40 */ UINT8 int_state[Z80_MAXDAISY];
-/* 44 */ Z80_DaisyChain irq[Z80_MAXDAISY];
-/* 84 */ int (*irq_callback)(int irqline);
-/* 88 */ int extra_cycles; /* extra cycles for interrupts */
-} Z80_Regs;
-
-
-typedef struct {
- int z80_ICount; /* T-state count */
- Z80_Regs Z80;
- UINT32 EA;
- int after_EI;
-
- UINT8 SZ[256]; /* zero and sign flags */
- UINT8 SZ_BIT[256]; /* zero, sign and parity/overflow (=zero) flags for BIT opcode */
- UINT8 SZP[256]; /* zero, sign and parity flags */
- UINT8 SZHV_inc[256]; /* zero, sign, half carry and overflow flags INC r8 */
- UINT8 SZHV_dec[256]; /* zero, sign, half carry and overflow flags DEC r8 */
-
-#if BIG_FLAGS_ARRAY
- UINT8 *SZHVC_add;
- UINT8 *SZHVC_sub;
-#endif
-
- void *userdata;
-} z80_state_t;
-
-z80_state_t *z80_init(void);
-void z80_free (z80_state_t *z80);
-void z80_reset (z80_state_t *z80, void *param);
-void z80_exit (z80_state_t *z80);
-int z80_execute(z80_state_t *z80, int cycles);
-void z80_burn(z80_state_t *z80, int cycles);
-unsigned z80_get_context (z80_state_t *z80, void *dst);
-void z80_set_context (z80_state_t *z80, void *src);
-const void *z80_get_cycle_table (z80_state_t *z80, int which);
-void z80_set_cycle_table (z80_state_t *z80, int which, void *new_tbl);
-unsigned z80_get_reg (z80_state_t *z80, int regnum);
-void z80_set_reg (z80_state_t *z80, int regnum, unsigned val);
-void z80_set_irq_line(z80_state_t *z80, int irqline, int state);
-void z80_set_irq_callback(z80_state_t *z80, int (*irq_callback)(int));
-const char *z80_info(z80_state_t *z80, void *context, int regnum);
-unsigned z80_dasm(z80_state_t *z80, char *buffer, unsigned pc);
-
-#ifdef MAME_DEBUG
-unsigned DasmZ80(z80_state_t *z80, char *buffer, unsigned pc);
-#endif
-
-void cps1_decode(unsigned char *rom, int swap_key1,int swap_key2,int addr_key,int xor_key);
-#endif
-
diff --git a/plugins/ao/eng_qsf/z80dasm.c b/plugins/ao/eng_qsf/z80dasm.c deleted file mode 100644 index 29cbb769..00000000 --- a/plugins/ao/eng_qsf/z80dasm.c +++ /dev/null @@ -1,597 +0,0 @@ -/***************************************************************************** - * - * z80dasm.c - * Portable Z80 disassembler - * - * Copyright (C) 1998 Juergen Buchmueller, all rights reserved. - * - * - This source code is released as freeware for non-commercial purposes. - * - You are free to use and redistribute this code in modified or - * unmodified form, provided you list me in the credits. - * - If you modify this source code, you must add a notice to each modified - * source file that it has been changed. If you're a nice person, you - * will clearly mark each change too. :) - * - If you wish to use this for commercial purposes, please contact me at - * pullmoll@t-online.de - * - The author of this copywritten work reserves the right to change the - * terms of its usage and license at any time, including retroactively - * - This entire notice must remain in the source code. - * - *****************************************************************************/ - -#include <stdio.h> -#include <string.h> -#ifdef MAME_DEBUG -#include "driver.h" -#include "mamedbg.h" -#include "z80.h" - -enum e_mnemonics { - zADC ,zADD ,zAND ,zBIT ,zCALL ,zCCF ,zCP ,zCPD , - zCPDR ,zCPI ,zCPIR ,zCPL ,zDAA ,zDB ,zDEC ,zDI , - zDJNZ ,zEI ,zEX ,zEXX ,zHLT ,zIM ,zIN ,zINC , - zIND ,zINDR ,zINI ,zINIR ,zJP ,zJR ,zLD ,zLDD , - zLDDR ,zLDI ,zLDIR ,zNEG ,zNOP ,zOR ,zOTDR ,zOTIR , - zOUT ,zOUTD ,zOUTI ,zPOP ,zPUSH ,zRES ,zRET ,zRETI , - zRETN ,zRL ,zRLA ,zRLC ,zRLCA ,zRLD ,zRR ,zRRA , - zRRC ,zRRCA ,zRRD ,zRST ,zSBC ,zSCF ,zSET ,zSLA , - zSLL ,zSRA ,zSRL ,zSUB ,zXOR -}; - -static const char *s_mnemonic[] = { - "adc", "add", "and", "bit", "call","ccf", "cp", "cpd", - "cpdr","cpi", "cpir","cpl", "daa", "db", "dec", "di", - "djnz","ei", "ex", "exx", "halt","im", "in", "inc", - "ind", "indr","ini", "inir","jp", "jr", "ld", "ldd", - "lddr","ldi", "ldir","neg", "nop", "or", "otdr","otir", - "out", "outd","outi","pop", "push","res", "ret", "reti", - "retn","rl", "rla", "rlc", "rlca","rld", "rr", "rra", - "rrc", "rrca","rrd", "rst", "sbc", "scf", "set", "sla", - "sll", "sra", "srl", "sub", "xor " -}; - -typedef struct { - UINT8 access; - UINT8 mnemonic; - const char *arguments; -} z80dasm; - -#define _0 EA_NONE -#define _JP EA_ABS_PC -#define _JR EA_REL_PC -#define _RM EA_MEM_RD -#define _WM EA_MEM_WR -#define _RW EA_MEM_RDWR -#define _RP EA_PORT_RD -#define _WP EA_PORT_WR - -static z80dasm mnemonic_xx_cb[256]= { - {_RW,zRLC,"b=Y"}, {_RW,zRLC,"c=Y"}, {_RW,zRLC,"d=Y"}, {_RW,zRLC,"e=Y"}, - {_RW,zRLC,"h=Y"}, {_RW,zRLC,"l=Y"}, {_RW,zRLC,"Y"}, {_RW,zRLC,"a=Y"}, - {_RW,zRRC,"b=Y"}, {_RW,zRRC,"c=Y"}, {_RW,zRRC,"d=Y"}, {_RW,zRRC,"e=Y"}, - {_RW,zRRC,"h=Y"}, {_RW,zRRC,"l=Y"}, {_RW,zRRC,"Y"}, {_RW,zRRC,"a=Y"}, - {_RW,zRL,"b=Y"}, {_RW,zRL,"c=Y"}, {_RW,zRL,"d=Y"}, {_RW,zRL,"e=Y"}, - {_RW,zRL,"h=Y"}, {_RW,zRL,"l=Y"}, {_RW,zRL,"Y"}, {_RW,zRL,"a=Y"}, - {_RW,zRR,"b=Y"}, {_RW,zRR,"c=Y"}, {_RW,zRR,"d=Y"}, {_RW,zRR,"e=Y"}, - {_RW,zRR,"h=Y"}, {_RW,zRR,"l=Y"}, {_RW,zRR,"Y"}, {_RW,zRR,"a=Y"}, - {_RW,zSLA,"b=Y"}, {_RW,zSLA,"c=Y"}, {_RW,zSLA,"d=Y"}, {_RW,zSLA,"e=Y"}, - {_RW,zSLA,"h=Y"}, {_RW,zSLA,"l=Y"}, {_RW,zSLA,"Y"}, {_RW,zSLA,"a=Y"}, - {_RW,zSRA,"b=Y"}, {_RW,zSRA,"c=Y"}, {_RW,zSRA,"d=Y"}, {_RW,zSRA,"e=Y"}, - {_RW,zSRA,"h=Y"}, {_RW,zSRA,"l=Y"}, {_RW,zSRA,"Y"}, {_RW,zSRA,"a=Y"}, - {_RW,zSLL,"b=Y"}, {_RW,zSLL,"c=Y"}, {_RW,zSLL,"d=Y"}, {_RW,zSLL,"e=Y"}, - {_RW,zSLL,"h=Y"}, {_RW,zSLL,"l=Y"}, {_RW,zSLL,"Y"}, {_RW,zSLL,"a=Y"}, - {_RW,zSRL,"b=Y"}, {_RW,zSRL,"c=Y"}, {_RW,zSRL,"d=Y"}, {_RW,zSRL,"e=Y"}, - {_RW,zSRL,"h=Y"}, {_RW,zSRL,"l=Y"}, {_RW,zSRL,"Y"}, {_RW,zSRL,"a=Y"}, - {_RM,zBIT,"b=0,Y"}, {_RM,zBIT,"c=0,Y"}, {_RM,zBIT,"d=0,Y"}, {_RM,zBIT,"e=0,Y"}, - {_RM,zBIT,"h=0,Y"}, {_RM,zBIT,"l=0,Y"}, {_RM,zBIT,"0,Y"}, {_RM,zBIT,"a=0,Y"}, - {_RM,zBIT,"b=1,Y"}, {_RM,zBIT,"c=1,Y"}, {_RM,zBIT,"d=1,Y"}, {_RM,zBIT,"e=1,Y"}, - {_RM,zBIT,"h=1,Y"}, {_RM,zBIT,"l=1,Y"}, {_RM,zBIT,"1,Y"}, {_RM,zBIT,"a=1,Y"}, - {_RM,zBIT,"b=2,Y"}, {_RM,zBIT,"c=2,Y"}, {_RM,zBIT,"d=2,Y"}, {_RM,zBIT,"e=2,Y"}, - {_RM,zBIT,"h=2,Y"}, {_RM,zBIT,"l=2,Y"}, {_RM,zBIT,"2,Y"}, {_RM,zBIT,"a=2,Y"}, - {_RM,zBIT,"b=3,Y"}, {_RM,zBIT,"c=3,Y"}, {_RM,zBIT,"d=3,Y"}, {_RM,zBIT,"e=3,Y"}, - {_RM,zBIT,"h=3,Y"}, {_RM,zBIT,"l=3,Y"}, {_RM,zBIT,"3,Y"}, {_RM,zBIT,"a=3,Y"}, - {_RM,zBIT,"b=4,Y"}, {_RM,zBIT,"c=4,Y"}, {_RM,zBIT,"d=4,Y"}, {_RM,zBIT,"e=4,Y"}, - {_RM,zBIT,"h=4,Y"}, {_RM,zBIT,"l=4,Y"}, {_RM,zBIT,"4,Y"}, {_RM,zBIT,"a=4,Y"}, - {_RM,zBIT,"b=5,Y"}, {_RM,zBIT,"c=5,Y"}, {_RM,zBIT,"d=5,Y"}, {_RM,zBIT,"e=5,Y"}, - {_RM,zBIT,"h=5,Y"}, {_RM,zBIT,"l=5,Y"}, {_RM,zBIT,"5,Y"}, {_RM,zBIT,"a=5,Y"}, - {_RM,zBIT,"b=6,Y"}, {_RM,zBIT,"c=6,Y"}, {_RM,zBIT,"d=6,Y"}, {_RM,zBIT,"e=6,Y"}, - {_RM,zBIT,"h=6,Y"}, {_RM,zBIT,"l=6,Y"}, {_RM,zBIT,"6,Y"}, {_RM,zBIT,"a=6,Y"}, - {_RM,zBIT,"b=7,Y"}, {_RM,zBIT,"c=7,Y"}, {_RM,zBIT,"d=7,Y"}, {_RM,zBIT,"e=7,Y"}, - {_RM,zBIT,"h=7,Y"}, {_RM,zBIT,"l=7,Y"}, {_RM,zBIT,"7,Y"}, {_RM,zBIT,"a=7,Y"}, - {_WM,zRES,"b=0,Y"}, {_WM,zRES,"c=0,Y"}, {_WM,zRES,"d=0,Y"}, {_WM,zRES,"e=0,Y"}, - {_WM,zRES,"h=0,Y"}, {_WM,zRES,"l=0,Y"}, {_WM,zRES,"0,Y"}, {_WM,zRES,"a=0,Y"}, - {_WM,zRES,"b=1,Y"}, {_WM,zRES,"c=1,Y"}, {_WM,zRES,"d=1,Y"}, {_WM,zRES,"e=1,Y"}, - {_WM,zRES,"h=1,Y"}, {_WM,zRES,"l=1,Y"}, {_WM,zRES,"1,Y"}, {_WM,zRES,"a=1,Y"}, - {_WM,zRES,"b=2,Y"}, {_WM,zRES,"c=2,Y"}, {_WM,zRES,"d=2,Y"}, {_WM,zRES,"e=2,Y"}, - {_WM,zRES,"h=2,Y"}, {_WM,zRES,"l=2,Y"}, {_WM,zRES,"2,Y"}, {_WM,zRES,"a=2,Y"}, - {_WM,zRES,"b=3,Y"}, {_WM,zRES,"c=3,Y"}, {_WM,zRES,"d=3,Y"}, {_WM,zRES,"e=3,Y"}, - {_WM,zRES,"h=3,Y"}, {_WM,zRES,"l=3,Y"}, {_WM,zRES,"3,Y"}, {_WM,zRES,"a=3,Y"}, - {_WM,zRES,"b=4,Y"}, {_WM,zRES,"c=4,Y"}, {_WM,zRES,"d=4,Y"}, {_WM,zRES,"e=4,Y"}, - {_WM,zRES,"h=4,Y"}, {_WM,zRES,"l=4,Y"}, {_WM,zRES,"4,Y"}, {_WM,zRES,"a=4,Y"}, - {_WM,zRES,"b=5,Y"}, {_WM,zRES,"c=5,Y"}, {_WM,zRES,"d=5,Y"}, {_WM,zRES,"e=5,Y"}, - {_WM,zRES,"h=5,Y"}, {_WM,zRES,"l=5,Y"}, {_WM,zRES,"5,Y"}, {_WM,zRES,"a=5,Y"}, - {_WM,zRES,"b=6,Y"}, {_WM,zRES,"c=6,Y"}, {_WM,zRES,"d=6,Y"}, {_WM,zRES,"e=6,Y"}, - {_WM,zRES,"h=6,Y"}, {_WM,zRES,"l=6,Y"}, {_WM,zRES,"6,Y"}, {_WM,zRES,"a=6,Y"}, - {_WM,zRES,"b=7,Y"}, {_WM,zRES,"c=7,Y"}, {_WM,zRES,"d=7,Y"}, {_WM,zRES,"e=7,Y"}, - {_WM,zRES,"h=7,Y"}, {_WM,zRES,"l=7,Y"}, {_WM,zRES,"7,Y"}, {_WM,zRES,"a=7,Y"}, - {_WM,zSET,"b=0,Y"}, {_WM,zSET,"c=0,Y"}, {_WM,zSET,"d=0,Y"}, {_WM,zSET,"e=0,Y"}, - {_WM,zSET,"h=0,Y"}, {_WM,zSET,"l=0,Y"}, {_WM,zSET,"0,Y"}, {_WM,zSET,"a=0,Y"}, - {_WM,zSET,"b=1,Y"}, {_WM,zSET,"c=1,Y"}, {_WM,zSET,"d=1,Y"}, {_WM,zSET,"e=1,Y"}, - {_WM,zSET,"h=1,Y"}, {_WM,zSET,"l=1,Y"}, {_WM,zSET,"1,Y"}, {_WM,zSET,"a=1,Y"}, - {_WM,zSET,"b=2,Y"}, {_WM,zSET,"c=2,Y"}, {_WM,zSET,"d=2,Y"}, {_WM,zSET,"e=2,Y"}, - {_WM,zSET,"h=2,Y"}, {_WM,zSET,"l=2,Y"}, {_WM,zSET,"2,Y"}, {_WM,zSET,"a=2,Y"}, - {_WM,zSET,"b=3,Y"}, {_WM,zSET,"c=3,Y"}, {_WM,zSET,"d=3,Y"}, {_WM,zSET,"e=3,Y"}, - {_WM,zSET,"h=3,Y"}, {_WM,zSET,"l=3,Y"}, {_WM,zSET,"3,Y"}, {_WM,zSET,"a=3,Y"}, - {_WM,zSET,"b=4,Y"}, {_WM,zSET,"c=4,Y"}, {_WM,zSET,"d=4,Y"}, {_WM,zSET,"e=4,Y"}, - {_WM,zSET,"h=4,Y"}, {_WM,zSET,"l=4,Y"}, {_WM,zSET,"4,Y"}, {_WM,zSET,"a=4,Y"}, - {_WM,zSET,"b=5,Y"}, {_WM,zSET,"c=5,Y"}, {_WM,zSET,"d=5,Y"}, {_WM,zSET,"e=5,Y"}, - {_WM,zSET,"h=5,Y"}, {_WM,zSET,"l=5,Y"}, {_WM,zSET,"5,Y"}, {_WM,zSET,"a=5,Y"}, - {_WM,zSET,"b=6,Y"}, {_WM,zSET,"c=6,Y"}, {_WM,zSET,"d=6,Y"}, {_WM,zSET,"e=6,Y"}, - {_WM,zSET,"h=6,Y"}, {_WM,zSET,"l=6,Y"}, {_WM,zSET,"6,Y"}, {_WM,zSET,"a=6,Y"}, - {_WM,zSET,"b=7,Y"}, {_WM,zSET,"c=7,Y"}, {_WM,zSET,"d=7,Y"}, {_WM,zSET,"e=7,Y"}, - {_WM,zSET,"h=7,Y"}, {_WM,zSET,"l=7,Y"}, {_WM,zSET,"7,Y"}, {_WM,zSET,"a=7,Y"} -}; - -static z80dasm mnemonic_cb[256] = { - {_0, zRLC,"b"}, {_0, zRLC,"c"}, {_0, zRLC,"d"}, {_0, zRLC,"e"}, - {_0, zRLC,"h"}, {_0, zRLC,"l"}, {_RW,zRLC,"(hl)"}, {_0, zRLC,"a"}, - {_0, zRRC,"b"}, {_0, zRRC,"c"}, {_0, zRRC,"d"}, {_0, zRRC,"e"}, - {_0, zRRC,"h"}, {_0, zRRC,"l"}, {_RW,zRRC,"(hl)"}, {_0, zRRC,"a"}, - {_0, zRL,"b"}, {_0, zRL,"c"}, {_0, zRL,"d"}, {_0, zRL,"e"}, - {_0, zRL,"h"}, {_0, zRL,"l"}, {_RW,zRL,"(hl)"}, {_0, zRL,"a"}, - {_0, zRR,"b"}, {_0, zRR,"c"}, {_0, zRR,"d"}, {_0, zRR,"e"}, - {_0, zRR,"h"}, {_0, zRR,"l"}, {_RW,zRR,"(hl)"}, {_0, zRR,"a"}, - {_0, zSLA,"b"}, {_0, zSLA,"c"}, {_0, zSLA,"d"}, {_0, zSLA,"e"}, - {_0, zSLA,"h"}, {_0, zSLA,"l"}, {_RW,zSLA,"(hl)"}, {_0, zSLA,"a"}, - {_0, zSRA,"b"}, {_0, zSRA,"c"}, {_0, zSRA,"d"}, {_0, zSRA,"e"}, - {_0, zSRA,"h"}, {_0, zSRA,"l"}, {_RW,zSRA,"(hl)"}, {_0, zSRA,"a"}, - {_0, zSLL,"b"}, {_0, zSLL,"c"}, {_0, zSLL,"d"}, {_0, zSLL,"e"}, - {_0, zSLL,"h"}, {_0, zSLL,"l"}, {_RW,zSLL,"(hl)"}, {_0, zSLL,"a"}, - {_0, zSRL,"b"}, {_0, zSRL,"c"}, {_0, zSRL,"d"}, {_0, zSRL,"e"}, - {_0, zSRL,"h"}, {_0, zSRL,"l"}, {_RW,zSRL,"(hl)"}, {_0, zSRL,"a"}, - {_0, zBIT,"0,b"}, {_0, zBIT,"0,c"}, {_0, zBIT,"0,d"}, {_0, zBIT,"0,e"}, - {_0, zBIT,"0,h"}, {_0, zBIT,"0,l"}, {_RM,zBIT,"0,(hl)"},{_0, zBIT,"0,a"}, - {_0, zBIT,"1,b"}, {_0, zBIT,"1,c"}, {_0, zBIT,"1,d"}, {_0, zBIT,"1,e"}, - {_0, zBIT,"1,h"}, {_0, zBIT,"1,l"}, {_RM,zBIT,"1,(hl)"},{_0, zBIT,"1,a"}, - {_0, zBIT,"2,b"}, {_0, zBIT,"2,c"}, {_0, zBIT,"2,d"}, {_0, zBIT,"2,e"}, - {_0, zBIT,"2,h"}, {_0, zBIT,"2,l"}, {_RM,zBIT,"2,(hl)"},{_0, zBIT,"2,a"}, - {_0, zBIT,"3,b"}, {_0, zBIT,"3,c"}, {_0, zBIT,"3,d"}, {_0, zBIT,"3,e"}, - {_0, zBIT,"3,h"}, {_0, zBIT,"3,l"}, {_RM,zBIT,"3,(hl)"},{_0, zBIT,"3,a"}, - {_0, zBIT,"4,b"}, {_0, zBIT,"4,c"}, {_0, zBIT,"4,d"}, {_0, zBIT,"4,e"}, - {_0, zBIT,"4,h"}, {_0, zBIT,"4,l"}, {_RM,zBIT,"4,(hl)"},{_0, zBIT,"4,a"}, - {_0, zBIT,"5,b"}, {_0, zBIT,"5,c"}, {_0, zBIT,"5,d"}, {_0, zBIT,"5,e"}, - {_0, zBIT,"5,h"}, {_0, zBIT,"5,l"}, {_RM,zBIT,"5,(hl)"},{_0, zBIT,"5,a"}, - {_0, zBIT,"6,b"}, {_0, zBIT,"6,c"}, {_0, zBIT,"6,d"}, {_0, zBIT,"6,e"}, - {_0, zBIT,"6,h"}, {_0, zBIT,"6,l"}, {_RM,zBIT,"6,(hl)"},{_0, zBIT,"6,a"}, - {_0, zBIT,"7,b"}, {_0, zBIT,"7,c"}, {_0, zBIT,"7,d"}, {_0, zBIT,"7,e"}, - {_0, zBIT,"7,h"}, {_0, zBIT,"7,l"}, {_RM,zBIT,"7,(hl)"},{_0, zBIT,"7,a"}, - {_0, zRES,"0,b"}, {_0, zRES,"0,c"}, {_0, zRES,"0,d"}, {_0, zRES,"0,e"}, - {_0, zRES,"0,h"}, {_0, zRES,"0,l"}, {_WM,zRES,"0,(hl)"},{_0, zRES,"0,a"}, - {_0, zRES,"1,b"}, {_0, zRES,"1,c"}, {_0, zRES,"1,d"}, {_0, zRES,"1,e"}, - {_0, zRES,"1,h"}, {_0, zRES,"1,l"}, {_WM,zRES,"1,(hl)"},{_0, zRES,"1,a"}, - {_0, zRES,"2,b"}, {_0, zRES,"2,c"}, {_0, zRES,"2,d"}, {_0, zRES,"2,e"}, - {_0, zRES,"2,h"}, {_0, zRES,"2,l"}, {_WM,zRES,"2,(hl)"},{_0, zRES,"2,a"}, - {_0, zRES,"3,b"}, {_0, zRES,"3,c"}, {_0, zRES,"3,d"}, {_0, zRES,"3,e"}, - {_0, zRES,"3,h"}, {_0, zRES,"3,l"}, {_WM,zRES,"3,(hl)"},{_0, zRES,"3,a"}, - {_0, zRES,"4,b"}, {_0, zRES,"4,c"}, {_0, zRES,"4,d"}, {_0, zRES,"4,e"}, - {_0, zRES,"4,h"}, {_0, zRES,"4,l"}, {_WM,zRES,"4,(hl)"},{_0, zRES,"4,a"}, - {_0, zRES,"5,b"}, {_0, zRES,"5,c"}, {_0, zRES,"5,d"}, {_0, zRES,"5,e"}, - {_0, zRES,"5,h"}, {_0, zRES,"5,l"}, {_WM,zRES,"5,(hl)"},{_0, zRES,"5,a"}, - {_0, zRES,"6,b"}, {_0, zRES,"6,c"}, {_0, zRES,"6,d"}, {_0, zRES,"6,e"}, - {_0, zRES,"6,h"}, {_0, zRES,"6,l"}, {_WM,zRES,"6,(hl)"},{_0, zRES,"6,a"}, - {_0, zRES,"7,b"}, {_0, zRES,"7,c"}, {_0, zRES,"7,d"}, {_0, zRES,"7,e"}, - {_0, zRES,"7,h"}, {_0, zRES,"7,l"}, {_WM,zRES,"7,(hl)"},{_0, zRES,"7,a"}, - {_0, zSET,"0,b"}, {_0, zSET,"0,c"}, {_0, zSET,"0,d"}, {_0, zSET,"0,e"}, - {_0, zSET,"0,h"}, {_0, zSET,"0,l"}, {_WM,zSET,"0,(hl)"},{_0, zSET,"0,a"}, - {_0, zSET,"1,b"}, {_0, zSET,"1,c"}, {_0, zSET,"1,d"}, {_0, zSET,"1,e"}, - {_0, zSET,"1,h"}, {_0, zSET,"1,l"}, {_WM,zSET,"1,(hl)"},{_0, zSET,"1,a"}, - {_0, zSET,"2,b"}, {_0, zSET,"2,c"}, {_0, zSET,"2,d"}, {_0, zSET,"2,e"}, - {_0, zSET,"2,h"}, {_0, zSET,"2,l"}, {_WM,zSET,"2,(hl)"},{_0, zSET,"2,a"}, - {_0, zSET,"3,b"}, {_0, zSET,"3,c"}, {_0, zSET,"3,d"}, {_0, zSET,"3,e"}, - {_0, zSET,"3,h"}, {_0, zSET,"3,l"}, {_WM,zSET,"3,(hl)"},{_0, zSET,"3,a"}, - {_0, zSET,"4,b"}, {_0, zSET,"4,c"}, {_0, zSET,"4,d"}, {_0, zSET,"4,e"}, - {_0, zSET,"4,h"}, {_0, zSET,"4,l"}, {_WM,zSET,"4,(hl)"},{_0, zSET,"4,a"}, - {_0, zSET,"5,b"}, {_0, zSET,"5,c"}, {_0, zSET,"5,d"}, {_0, zSET,"5,e"}, - {_0, zSET,"5,h"}, {_0, zSET,"5,l"}, {_WM,zSET,"5,(hl)"},{_0, zSET,"5,a"}, - {_0, zSET,"6,b"}, {_0, zSET,"6,c"}, {_0, zSET,"6,d"}, {_0, zSET,"6,e"}, - {_0, zSET,"6,h"}, {_0, zSET,"6,l"}, {_WM,zSET,"6,(hl)"},{_0, zSET,"6,a"}, - {_0, zSET,"7,b"}, {_0, zSET,"7,c"}, {_0, zSET,"7,d"}, {_0, zSET,"7,e"}, - {_0, zSET,"7,h"}, {_0, zSET,"7,l"}, {_WM,zSET,"7,(hl)"},{_0, zSET,"7,a"} -}; - -static z80dasm mnemonic_ed[256]= { - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RP,zIN,"b,(c)"}, {_WP,zOUT,"(c),b"}, {_0, zSBC,"hl,bc"}, {_WM,zLD,"(W),bc"}, - {_0, zNEG,0}, {_0, zRETN,0}, {_0, zIM,"0"}, {_0, zLD,"i,a"}, - {_RP,zIN,"c,(c)"}, {_WP,zOUT,"(c),c"}, {_0, zADC,"hl,bc"}, {_RM,zLD,"bc,(W)"}, - {_0, zNEG,"*"}, {_0, zRETI,0}, {_0, zIM,"0"}, {_0, zLD,"r,a"}, - {_RP,zIN,"d,(c)"}, {_WP,zOUT,"(c),d"}, {_0, zSBC,"hl,de"}, {_WM,zLD,"(W),de"}, - {_0, zNEG,"*"}, {_0, zRETN,0}, {_0, zIM,"1"}, {_0, zLD,"a,i"}, - {_RP,zIN,"e,(c)"}, {_WP,zOUT,"(c),e"}, {_0, zADC,"hl,de"}, {_RM,zLD,"de,(W)"}, - {_0, zNEG,"*"}, {_0, zRETI,0}, {_0, zIM,"2"}, {_0, zLD,"a,r"}, - {_RP,zIN,"h,(c)"}, {_WP,zOUT,"(c),h"}, {_0, zSBC,"hl,hl"}, {_WM,zLD,"(W),hl"}, - {_0, zNEG,"*"}, {_0, zRETN,0}, {_0, zIM,"0"}, {_RW,zRRD,"(hl)"}, - {_RP,zIN,"l,(c)"}, {_WP,zOUT,"(c),l"}, {_0, zADC,"hl,hl"}, {_RM,zLD,"hl,(W)"}, - {_0, zNEG,"*"}, {_0, zRETI,0}, {_0, zIM,"0"}, {_RW,zRLD,"(hl)"}, - {_RP,zIN,"0,(c)"}, {_WP,zOUT,"(c),0"}, {_0, zSBC,"hl,sp"}, {_WM,zLD,"(W),sp"}, - {_0, zNEG,"*"}, {_0, zRETN,0}, {_0, zIM,"1"}, {_0, zDB,"?"}, - {_RP,zIN,"a,(c)"}, {_WP,zOUT,"(c),a"}, {_0, zADC,"hl,sp"}, {_RM,zLD,"sp,(W)"}, - {_0, zNEG,"*"}, {_0, zRETI,0}, {_0, zIM,"2"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RW,zLDI,0}, {_RM,zCPI,0}, {_RP,zINI,0}, {_WP,zOUTI,0}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RW,zLDD,0}, {_RM,zCPD,0}, {_RP,zIND,0}, {_WP,zOUTD,0}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RW,zLDIR,0}, {_RM,zCPIR,0}, {_RP,zINIR,0}, {_WP,zOTIR,0}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RW,zLDDR,0}, {_RM,zCPDR,0}, {_RP,zINDR,0}, {_WP,zOTDR,0}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"} -}; - -static z80dasm mnemonic_xx[256]= { - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zADD,"I,bc"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zADD,"I,de"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zLD,"I,N"}, {_WM,zLD,"(W),I"}, {_0, zINC,"I"}, - {_0, zINC,"Ih"}, {_0, zDEC,"Ih"}, {_0, zLD,"Ih,B"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zADD,"I,I"}, {_RM,zLD,"I,(W)"}, {_0, zDEC,"I"}, - {_0, zINC,"Il"}, {_0, zDEC,"Il"}, {_0, zLD,"Il,B"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_RW,zINC,"X"}, {_RW,zDEC,"X"}, {_WM,zLD,"X,B"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zADD,"I,sp"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zLD,"b,Ih"}, {_0, zLD,"b,Il"}, {_RM,zLD,"b,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zLD,"c,Ih"}, {_0, zLD,"c,Il"}, {_RM,zLD,"c,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zLD,"d,Ih"}, {_0, zLD,"d,Il"}, {_RM,zLD,"d,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zLD,"e,Ih"}, {_0, zLD,"e,Il"}, {_RM,zLD,"e,X"}, {_0, zDB,"?"}, - {_0, zLD,"Ih,b"}, {_0, zLD,"Ih,c"}, {_0, zLD,"Ih,d"}, {_0, zLD,"Ih,e"}, - {_0, zLD,"Ih,Ih"}, {_0, zLD,"Ih,Il"}, {_RM,zLD,"h,X"}, {_0, zLD,"Ih,a"}, - {_0, zLD,"Il,b"}, {_0, zLD,"Il,c"}, {_0, zLD,"Il,d"}, {_0, zLD,"Il,e"}, - {_0, zLD,"Il,Ih"}, {_0, zLD,"Il,Il"}, {_RM,zLD,"l,X"}, {_0, zLD,"Il,a"}, - {_WM,zLD,"X,b"}, {_WM,zLD,"X,c"}, {_WM,zLD,"X,d"}, {_WM,zLD,"X,e"}, - {_WM,zLD,"X,h"}, {_WM,zLD,"X,l"}, {_0, zDB,"?"}, {_WM,zLD,"X,a"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zLD,"a,Ih"}, {_0, zLD,"a,Il"}, {_RM,zLD,"a,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zADD,"a,Ih"}, {_0, zADD,"a,Il"}, {_RM,zADD,"a,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zADC,"a,Ih"}, {_0, zADC,"a,Il"}, {_RM,zADC,"a,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zSUB,"Ih"}, {_0, zSUB,"Il"}, {_RM,zSUB,"X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zSBC,"a,Ih"}, {_0, zSBC,"a,Il"}, {_RM,zSBC,"a,X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zAND,"Ih"}, {_0, zAND,"Il"}, {_RM,zAND,"X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zXOR,"Ih"}, {_0, zXOR,"Il"}, {_RM,zXOR,"X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zOR,"Ih"}, {_0, zOR,"Il"}, {_RM,zOR,"X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zCP,"Ih"}, {_0, zCP,"Il"}, {_RM,zCP,"X"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"cb"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zPOP,"I"}, {_0, zDB,"?"}, {_RW,zEX,"(sp),I"}, - {_0, zDB,"?"}, {_0, zPUSH,"I"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_JP,zJP,"(I)"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zLD,"sp,I"}, {_0, zDB,"?"}, {_0, zDB,"?"}, - {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"}, {_0, zDB,"?"} -}; - -static z80dasm mnemonic_main[256]= { - {_0, zNOP,0}, {_0, zLD,"bc,N"}, {_WM,zLD,"(bc),a"}, {_0, zINC,"bc"}, - {_0, zINC,"b"}, {_0, zDEC,"b"}, {_0, zLD,"b,B"}, {_0, zRLCA,0}, - {_0, zEX,"af,af'"}, {_0, zADD,"hl,bc"}, {_RM,zLD,"a,(bc)"}, {_0, zDEC,"bc"}, - {_0, zINC,"c"}, {_0, zDEC,"c"}, {_0, zLD,"c,B"}, {_0, zRRCA,0}, - {_JR,zDJNZ,"O"}, {_0, zLD,"de,N"}, {_WM,zLD,"(de),a"}, {_0, zINC,"de"}, - {_0, zINC,"d"}, {_0, zDEC,"d"}, {_0, zLD,"d,B"}, {_0, zRLA,0}, - {_JR,zJR,"O"}, {_0, zADD,"hl,de"}, {_RM,zLD,"a,(de)"}, {_0, zDEC,"de"}, - {_0, zINC,"e"}, {_0, zDEC,"e"}, {_0, zLD,"e,B"}, {_0, zRRA,0}, - {_JR,zJR,"nz,O"}, {_0, zLD,"hl,N"}, {_WM,zLD,"(W),hl"}, {_0, zINC,"hl"}, - {_0, zINC,"h"}, {_0, zDEC,"h"}, {_0, zLD,"h,B"}, {_0, zDAA,0}, - {_JR,zJR,"z,O"}, {_0, zADD,"hl,hl"}, {_RM,zLD,"hl,(W)"}, {_0, zDEC,"hl"}, - {_0, zINC,"l"}, {_0, zDEC,"l"}, {_0, zLD,"l,B"}, {_0, zCPL,0}, - {_JR,zJR,"nc,O"}, {_0, zLD,"sp,N"}, {_WM,zLD,"(W),a"}, {_0, zINC,"sp"}, - {_RW,zINC,"(hl)"}, {_RW,zDEC,"(hl)"}, {_WM,zLD,"(hl),B"}, {_0, zSCF,0}, - {_JR,zJR,"c,O"}, {_0, zADD,"hl,sp"}, {_RM,zLD,"a,(W)"}, {_0, zDEC,"sp"}, - {_0, zINC,"a"}, {_0, zDEC,"a"}, {_0, zLD,"a,B"}, {_0, zCCF,0}, - {_0, zLD,"b,b"}, {_0, zLD,"b,c"}, {_0, zLD,"b,d"}, {_0, zLD,"b,e"}, - {_0, zLD,"b,h"}, {_0, zLD,"b,l"}, {_RM,zLD,"b,(hl)"}, {_0, zLD,"b,a"}, - {_0, zLD,"c,b"}, {_0, zLD,"c,c"}, {_0, zLD,"c,d"}, {_0, zLD,"c,e"}, - {_0, zLD,"c,h"}, {_0, zLD,"c,l"}, {_RM,zLD,"c,(hl)"}, {_0, zLD,"c,a"}, - {_0, zLD,"d,b"}, {_0, zLD,"d,c"}, {_0, zLD,"d,d"}, {_0, zLD,"d,e"}, - {_0, zLD,"d,h"}, {_0, zLD,"d,l"}, {_RM,zLD,"d,(hl)"}, {_0, zLD,"d,a"}, - {_0, zLD,"e,b"}, {_0, zLD,"e,c"}, {_0, zLD,"e,d"}, {_0, zLD,"e,e"}, - {_0, zLD,"e,h"}, {_0, zLD,"e,l"}, {_RM,zLD,"e,(hl)"}, {_0, zLD,"e,a"}, - {_0, zLD,"h,b"}, {_0, zLD,"h,c"}, {_0, zLD,"h,d"}, {_0, zLD,"h,e"}, - {_0, zLD,"h,h"}, {_0, zLD,"h,l"}, {_RM,zLD,"h,(hl)"}, {_0, zLD,"h,a"}, - {_0, zLD,"l,b"}, {_0, zLD,"l,c"}, {_0, zLD,"l,d"}, {_0, zLD,"l,e"}, - {_0, zLD,"l,h"}, {_0, zLD,"l,l"}, {_RM,zLD,"l,(hl)"}, {_0, zLD,"l,a"}, - {_WM,zLD,"(hl),b"}, {_WM,zLD,"(hl),c"}, {_WM,zLD,"(hl),d"}, {_WM,zLD,"(hl),e"}, - {_WM,zLD,"(hl),h"}, {_WM,zLD,"(hl),l"}, {_0, zHLT,0}, {_WM,zLD,"(hl),a"}, - {_0, zLD,"a,b"}, {_0, zLD,"a,c"}, {_0, zLD,"a,d"}, {_0, zLD,"a,e"}, - {_0, zLD,"a,h"}, {_0, zLD,"a,l"}, {_RM,zLD,"a,(hl)"}, {_0, zLD,"a,a"}, - {_0, zADD,"a,b"}, {_0, zADD,"a,c"}, {_0, zADD,"a,d"}, {_0, zADD,"a,e"}, - {_0, zADD,"a,h"}, {_0, zADD,"a,l"}, {_RM,zADD,"a,(hl)"},{_0, zADD,"a,a"}, - {_0, zADC,"a,b"}, {_0, zADC,"a,c"}, {_0, zADC,"a,d"}, {_0, zADC,"a,e"}, - {_0, zADC,"a,h"}, {_0, zADC,"a,l"}, {_RM,zADC,"a,(hl)"},{_0, zADC,"a,a"}, - {_0, zSUB,"b"}, {_0, zSUB,"c"}, {_0, zSUB,"d"}, {_0, zSUB,"e"}, - {_0, zSUB,"h"}, {_0, zSUB,"l"}, {_RM,zSUB,"(hl)"}, {_0, zSUB,"a"}, - {_0, zSBC,"a,b"}, {_0, zSBC,"a,c"}, {_0, zSBC,"a,d"}, {_0, zSBC,"a,e"}, - {_0, zSBC,"a,h"}, {_0, zSBC,"a,l"}, {_RM,zSBC,"a,(hl)"},{_0, zSBC,"a,a"}, - {_0, zAND,"b"}, {_0, zAND,"c"}, {_0, zAND,"d"}, {_0, zAND,"e"}, - {_0, zAND,"h"}, {_0, zAND,"l"}, {_RM,zAND,"(hl)"}, {_0, zAND,"a"}, - {_0, zXOR,"b"}, {_0, zXOR,"c"}, {_0, zXOR,"d"}, {_0, zXOR,"e"}, - {_0, zXOR,"h"}, {_0, zXOR,"l"}, {_RM,zXOR,"(hl)"}, {_0, zXOR,"a"}, - {_0, zOR,"b"}, {_0, zOR,"c"}, {_0, zOR,"d"}, {_0, zOR,"e"}, - {_0, zOR,"h"}, {_0, zOR,"l"}, {_RM,zOR,"(hl)"}, {_0, zOR,"a"}, - {_0, zCP,"b"}, {_0, zCP,"c"}, {_0, zCP,"d"}, {_0, zCP,"e"}, - {_0, zCP,"h"}, {_0, zCP,"l"}, {_RM,zCP,"(hl)"}, {_0, zCP,"a"}, - {_0, zRET,"nz"}, {_0, zPOP,"bc"}, {_JP,zJP,"nz,A"}, {_JP,zJP,"A"}, - {_JP,zCALL,"nz,A"}, {_0, zPUSH,"bc"}, {_0, zADD,"a,B"}, {_JP,zRST,"V"}, - {_0, zRET,"z"}, {_0, zRET,0}, {_JP,zJP,"z,A"}, {_0, zDB,"cb"}, - {_JP,zCALL,"z,A"}, {_JP,zCALL,"A"}, {_0, zADC,"a,B"}, {_JP,zRST,"V"}, - {_0, zRET,"nc"}, {_0, zPOP,"de"}, {_JP,zJP,"nc,A"}, {_WP,zOUT,"(P),a"}, - {_JP,zCALL,"nc,A"}, {_0, zPUSH,"de"}, {_0, zSUB,"B"}, {_JP,zRST,"V"}, - {_0, zRET,"c"}, {_0, zEXX,0}, {_JP,zJP,"c,A"}, {_RP,zIN,"a,(P)"}, - {_JP,zCALL,"c,A"}, {_0, zDB,"dd"}, {_0, zSBC,"a,B"}, {_JP,zRST,"V"}, - {_0, zRET,"po"}, {_0, zPOP,"hl"}, {_JP,zJP,"po,A"}, {_RW,zEX,"(sp),hl"}, - {_JP,zCALL,"po,A"}, {_0, zPUSH,"hl"}, {_0, zAND,"B"}, {_JP,zRST,"V"}, - {_0, zRET,"pe"}, {_JP,zJP,"(hl)"}, {_JP,zJP,"pe,A"}, {_0, zEX,"de,hl"}, - {_JP,zCALL,"pe,A"}, {_0, zDB,"ed"}, {_0, zXOR,"B"}, {_JP,zRST,"V"}, - {_0, zRET,"p"}, {_0, zPOP,"af"}, {_JP,zJP,"p,A"}, {_0, zDI,0}, - {_JP,zCALL,"p,A"}, {_0, zPUSH,"af"}, {_0, zOR,"B"}, {_JP,zRST,"V"}, - {_0, zRET,"m"}, {_0, zLD,"sp,hl"}, {_JP,zJP,"m,A"}, {_0, zEI,0}, - {_JP,zCALL,"m,A"}, {_0, zDB,"fd"}, {_0, zCP,"B"}, {_JP,zRST,"V"} -}; - -static char sign(INT8 offset) -{ - return (offset < 0)? '-':'+'; -} - -static int offs(INT8 offset) -{ - if (offset < 0) return -offset; - return offset; -} - -/**************************************************************************** - * Disassemble opcode at PC and return number of bytes it takes - ****************************************************************************/ -unsigned DasmZ80( char *buffer, unsigned pc ) -{ - z80dasm *d; - const char *symbol, *src; - const char *ixy; - char *dst; - unsigned PC = pc; - INT8 offset = 0; - UINT8 op, op1; - UINT16 ea = 0, xy = 0; - - ixy = "oops!!"; - dst = buffer; - symbol = NULL; - - op = cpu_readop( pc++ ); - op1 = 0; /* keep GCC happy */ - - switch (op) - { - case 0xcb: - op = cpu_readop(pc++); - d = &mnemonic_cb[op]; - break; - case 0xed: - op1 = cpu_readop(pc++); - d = &mnemonic_ed[op1]; - break; - case 0xdd: - ixy = "ix"; - op1 = cpu_readop(pc++); - if( op1 == 0xcb ) - { - offset = (INT8) cpu_readop_arg(pc++); - op1 = cpu_readop_arg(pc++); /* fourth byte from OP_RAM! */ - xy = z80_get_reg( Z80_IX ); - ea = (xy + offset) & 0xffff; - d = &mnemonic_xx_cb[op1]; - } - else d = &mnemonic_xx[op1]; - break; - case 0xfd: - ixy = "iy"; - op1 = cpu_readop(pc++); - if( op1 == 0xcb ) - { - offset = (INT8) cpu_readop_arg(pc++); - op1 = cpu_readop_arg(pc++); /* fourth byte from OP_RAM! */ - xy = z80_get_reg( Z80_IY ); - ea = (ea + offset) & 0xffff; - d = &mnemonic_xx_cb[op1]; - } - else d = &mnemonic_xx[op1]; - break; - default: - d = &mnemonic_main[op]; - break; - } - - if( d->arguments ) - { - dst += sprintf(dst, "%-4s ", s_mnemonic[d->mnemonic]); - src = d->arguments; - while( *src ) - { - switch( *src ) - { - case '?': /* illegal opcode */ - dst += sprintf( dst, "$%02x,$%02x", op, op1); - break; - case 'A': - ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8); - pc += 2; - symbol = set_ea_info(0, ea, EA_UINT16, d->access); - dst += sprintf( dst, "%s", symbol ); - break; - case 'B': /* Byte op arg */ - ea = cpu_readop_arg( pc++ ); - symbol = set_ea_info(1, ea, EA_UINT8, EA_VALUE); - dst += sprintf( dst, "%s", symbol ); - break; - case '(': /* Memory byte at (HL) */ - *dst++ = *src; - if( !strncmp( src, "(bc)", 4) ) - { - ea = z80_get_reg( Z80_BC ); - set_ea_info(0, ea, EA_UINT8, d->access); - } - else - if( !strncmp( src, "(de)", 4) ) - { - ea = z80_get_reg( Z80_DE ); - set_ea_info(0, ea, EA_UINT8, d->access); - } - else - if( !strncmp( src, "(hl)", 4) ) - { - ea = z80_get_reg( Z80_HL ); - if( d->access == EA_ABS_PC ) - set_ea_info(0, ea, EA_DEFAULT, EA_ABS_PC); - else - set_ea_info(0, ea, EA_UINT8, d->access); - } - else - if( !strncmp( src, "(sp)", 4) ) - { - ea = z80_get_reg( Z80_SP ); - set_ea_info(0, ea, EA_UINT16, d->access); - } - else - if( !strncmp( src, "(P)", 3) ) - { - ea = (z80_get_reg( Z80_AF ) & 0xff00) | cpu_readop_arg( pc ); - set_ea_info(0, ea, EA_UINT16, d->access); - } - else - if( !strncmp( src, "(c)", 3) ) - { - ea = z80_get_reg( Z80_BC ); - set_ea_info(0, ea, EA_UINT16, d->access); - } - else - if( !strncmp( src, "(I)", 3) ) - { - ea = xy; - set_ea_info(0, ea, EA_DEFAULT, d->access); - } - break; - case 'N': /* Immediate 16 bit */ - ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8 ); - pc += 2; - symbol = set_ea_info(1, ea, EA_UINT16, EA_VALUE ); - dst += sprintf( dst, "%s", symbol ); - break; - case 'O': /* Offset relative to PC */ - offset = (INT8) cpu_readop_arg(pc++); - symbol = set_ea_info(0, PC, offset + 2, d->access); - dst += sprintf( dst, "%s", symbol ); - break; - case 'P': /* Port number */ - ea = cpu_readop_arg( pc++ ); - dst += sprintf( dst, "$%02X", ea ); - break; - case 'V': /* Restart vector */ - ea = op & 0x38; - symbol = set_ea_info(0, ea, EA_UINT8, d->access); - dst += sprintf( dst, "%s", symbol ); - break; - case 'W': /* Memory address word */ - ea = cpu_readop_arg(pc) + ( cpu_readop_arg((pc+1)&0xffff) << 8); - pc += 2; - symbol = set_ea_info(0, ea, EA_UINT16, d->access); - dst += sprintf( dst, "%s", symbol ); - break; - case 'X': - offset = (INT8) cpu_readop_arg(pc++); - ea = (xy + offset) & 0xffff; - case 'Y': - symbol = set_ea_info(0, ea, EA_UINT8, d->access); - dst += sprintf( dst,"(%s%c$%02x)", ixy, sign(offset), offs(offset) ); - break; - case 'I': - dst += sprintf( dst, "%s", ixy); - break; - default: - *dst++ = *src; - } - src++; - } - *dst = '\0'; - } - else - { - dst += sprintf(dst, "%s", s_mnemonic[d->mnemonic]); - } - - return pc - PC; -} - -#endif - diff --git a/plugins/ao/eng_qsf/z80dasm.h b/plugins/ao/eng_qsf/z80dasm.h deleted file mode 100644 index aaca5204..00000000 --- a/plugins/ao/eng_qsf/z80dasm.h +++ /dev/null @@ -1,2 +0,0 @@ -extern int DasmZ80(char *buffer, int PC);
-
|