143 lines
3.3 KiB
C
143 lines
3.3 KiB
C
|
/*
|
||
|
|
* Copyright (C) 1996-1998 Szeredi Miklos
|
||
|
|
* Email: mszeredi@inf.bme.hu
|
||
|
|
*
|
||
|
|
* This program is free software; you can redistribute it and/or modify
|
||
|
|
* it under the terms of the GNU General Public License as published by
|
||
|
|
* the Free Software Foundation; either version 2 of the License, or
|
||
|
|
* (at your option) any later version. See the file COPYING.
|
||
|
|
*
|
||
|
|
* This program is distributed in the hope that it will be useful,
|
||
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
* GNU General Public License for more details.
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU General Public License
|
||
|
|
* along with this program; if not, write to the Free Software
|
||
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifndef NO_OPDEF
|
||
|
|
#include "z80_def.h"
|
||
|
|
#include "z80_op3.h"
|
||
|
|
#include "z80_ari.h"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define ARIR(arin, func, an, rn, r, n) \
|
||
|
|
OPDEF(arin ## _ ## rn, 0x80+an*8+n) \
|
||
|
|
{ \
|
||
|
|
func(r); \
|
||
|
|
ENTIME(4); \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define ARIIHL(arin, func, an) \
|
||
|
|
OPDEF(arin ## _ihl, 0x86+an*8) \
|
||
|
|
{ \
|
||
|
|
func(*HLP); \
|
||
|
|
ENTIME(7); \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define ARIID(arin, func, an, ixyn, ixy) \
|
||
|
|
OPDEF(arin ## _i ## ixyn ## d, 0x86+an*8)\
|
||
|
|
{ \
|
||
|
|
register dbyte addr; \
|
||
|
|
register byte val; \
|
||
|
|
IXDGET(ixy, addr); \
|
||
|
|
val = READ(addr); \
|
||
|
|
func(val); \
|
||
|
|
ENTIME(15); \
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#define ADD_A_R(rn, r, n) ARIR(add_a, ADD, 0, rn, r, n)
|
||
|
|
#define ADC_A_R(rn, r, n) ARIR(adc_a, ADC, 1, rn, r, n)
|
||
|
|
#define SUB_R(rn, r, n) ARIR(sub, SUB, 2, rn, r, n)
|
||
|
|
#define SBC_A_R(rn, r, n) ARIR(sbc_a, SBC, 3, rn, r, n)
|
||
|
|
#define AND_R(rn, r, n) ARIR(and, AND, 4, rn, r, n)
|
||
|
|
#define XOR_R(rn, r, n) ARIR(xor, XOR, 5, rn, r, n)
|
||
|
|
#define OR_R(rn, r, n) ARIR(or, OR, 6, rn, r, n)
|
||
|
|
#define CP_R(rn, r, n) ARIR(cp, CP, 7, rn, r, n)
|
||
|
|
|
||
|
|
ADD_A_R(b, RB, 0)
|
||
|
|
ADD_A_R(c, RC, 1)
|
||
|
|
ADD_A_R(d, RD, 2)
|
||
|
|
ADD_A_R(e, RE, 3)
|
||
|
|
ADD_A_R(h, RH, 4)
|
||
|
|
ADD_A_R(l, RL, 5)
|
||
|
|
ADD_A_R(a, RA, 7)
|
||
|
|
|
||
|
|
ADC_A_R(b, RB, 0)
|
||
|
|
ADC_A_R(c, RC, 1)
|
||
|
|
ADC_A_R(d, RD, 2)
|
||
|
|
ADC_A_R(e, RE, 3)
|
||
|
|
ADC_A_R(h, RH, 4)
|
||
|
|
ADC_A_R(l, RL, 5)
|
||
|
|
ADC_A_R(a, RA, 7)
|
||
|
|
|
||
|
|
SUB_R(b, RB, 0)
|
||
|
|
SUB_R(c, RC, 1)
|
||
|
|
SUB_R(d, RD, 2)
|
||
|
|
SUB_R(e, RE, 3)
|
||
|
|
SUB_R(h, RH, 4)
|
||
|
|
SUB_R(l, RL, 5)
|
||
|
|
SUB_R(a, RA, 7)
|
||
|
|
|
||
|
|
SBC_A_R(b, RB, 0)
|
||
|
|
SBC_A_R(c, RC, 1)
|
||
|
|
SBC_A_R(d, RD, 2)
|
||
|
|
SBC_A_R(e, RE, 3)
|
||
|
|
SBC_A_R(h, RH, 4)
|
||
|
|
SBC_A_R(l, RL, 5)
|
||
|
|
SBC_A_R(a, RA, 7)
|
||
|
|
|
||
|
|
AND_R(b, RB, 0)
|
||
|
|
AND_R(c, RC, 1)
|
||
|
|
AND_R(d, RD, 2)
|
||
|
|
AND_R(e, RE, 3)
|
||
|
|
AND_R(h, RH, 4)
|
||
|
|
AND_R(l, RL, 5)
|
||
|
|
AND_R(a, RA, 7)
|
||
|
|
|
||
|
|
XOR_R(b, RB, 0)
|
||
|
|
XOR_R(c, RC, 1)
|
||
|
|
XOR_R(d, RD, 2)
|
||
|
|
XOR_R(e, RE, 3)
|
||
|
|
XOR_R(h, RH, 4)
|
||
|
|
XOR_R(l, RL, 5)
|
||
|
|
/* XOR_R(a, RA, 7) */
|
||
|
|
|
||
|
|
OPDEF(xor_a, 0xAF)
|
||
|
|
{
|
||
|
|
RA = 0;
|
||
|
|
RF = (RF & ~(ALLF)) | (ZF | PVF);
|
||
|
|
ENTIME(4);
|
||
|
|
}
|
||
|
|
|
||
|
|
OR_R(b, RB, 0)
|
||
|
|
OR_R(c, RC, 1)
|
||
|
|
OR_R(d, RD, 2)
|
||
|
|
OR_R(e, RE, 3)
|
||
|
|
OR_R(h, RH, 4)
|
||
|
|
OR_R(l, RL, 5)
|
||
|
|
OR_R(a, RA, 7)
|
||
|
|
|
||
|
|
CP_R(b, RB, 0)
|
||
|
|
CP_R(c, RC, 1)
|
||
|
|
CP_R(d, RD, 2)
|
||
|
|
CP_R(e, RE, 3)
|
||
|
|
CP_R(h, RH, 4)
|
||
|
|
CP_R(l, RL, 5)
|
||
|
|
CP_R(a, RA, 7)
|
||
|
|
|
||
|
|
ARIIHL(add_a, ADD, 0)
|
||
|
|
ARIIHL(adc_a, ADC, 1)
|
||
|
|
ARIIHL(sub, SUB, 2)
|
||
|
|
ARIIHL(sbc_a, SBC, 3)
|
||
|
|
ARIIHL(and, AND, 4)
|
||
|
|
ARIIHL(xor, XOR, 5)
|
||
|
|
ARIIHL(or, OR, 6)
|
||
|
|
ARIIHL(cp, CP, 7)
|
||
|
|
|
||
|
|
#include "z80_op3x.c"
|