diff options
Diffstat (limited to 'src/emu/cpu/hd6309/6309ops.c')
-rw-r--r-- | src/emu/cpu/hd6309/6309ops.c | 5599 |
1 files changed, 5599 insertions, 0 deletions
diff --git a/src/emu/cpu/hd6309/6309ops.c b/src/emu/cpu/hd6309/6309ops.c new file mode 100644 index 00000000000..ed3e6098584 --- /dev/null +++ b/src/emu/cpu/hd6309/6309ops.c @@ -0,0 +1,5599 @@ +/* + +HNZVC + +? = undefined +* = affected +- = unaffected +0 = cleared +1 = set +# = CCr directly affected by instruction +@ = special - carry set if bit 7 is set + +*/ + +INLINE void illegal( void ) +{ + LOG(("HD6309: illegal opcode at %04x\nVectoring to [$fff0]\n",PC)); + + CC |= CC_E; + PUSHWORD(pPC); + PUSHWORD(pU); + PUSHWORD(pY); + PUSHWORD(pX); + PUSHBYTE(DP); + + if ( MD & MD_EM ) + { + PUSHBYTE(F); + PUSHBYTE(E); + hd6309_ICount -= 2; + } + + PUSHBYTE(B); + PUSHBYTE(A); + PUSHBYTE(CC); + + PCD = RM16(0xfff0); + CHANGE_PC; +} + +static void IIError(void) +{ + SEII; // Set illegal Instruction Flag + illegal(); // Vector to Trap handler +} + +static void DZError(void) +{ + SEDZ; // Set Division by Zero Flag + illegal(); // Vector to Trap handler +} + +/* $00 NEG direct ?**** */ +INLINE void neg_di( void ) +{ + UINT16 r,t; + DIRBYTE(t); + r = -t; + CLR_NZVC; + SET_FLAGS8(0,t,r); + WM(EAD,r); +} + +/* $01 OIM direct ?**** */ +INLINE void oim_di( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + DIRBYTE(t); + r = im | t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $02 AIM direct */ +INLINE void aim_di( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + DIRBYTE(t); + r = im & t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $03 COM direct -**01 */ +INLINE void com_di( void ) +{ + UINT8 t; + DIRBYTE(t); + t = ~t; + CLR_NZV; + SET_NZ8(t); + SEC; + WM(EAD,t); +} + +/* $04 LSR direct -0*-* */ +INLINE void lsr_di( void ) +{ + UINT8 t; + DIRBYTE(t); + CLR_NZC; + CC |= (t & CC_C); + t >>= 1; + SET_Z8(t); + WM(EAD,t); +} + +/* $05 EIM direct */ +INLINE void eim_di( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + DIRBYTE(t); + r = im ^ t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $06 ROR direct -**-* */ +INLINE void ror_di( void ) +{ + UINT8 t,r; + DIRBYTE(t); + r= (CC & CC_C) << 7; + CLR_NZC; + CC |= (t & CC_C); + r |= t>>1; + SET_NZ8(r); + WM(EAD,r); +} + +/* $07 ASR direct ?**-* */ +INLINE void asr_di( void ) +{ + UINT8 t; + DIRBYTE(t); + CLR_NZC; + CC |= (t & CC_C); + t = (t & 0x80) | (t >> 1); + SET_NZ8(t); + WM(EAD,t); +} + +/* $08 ASL direct ?**** */ +INLINE void asl_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = t << 1; + CLR_NZVC; + SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $09 ROL direct -**** */ +INLINE void rol_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = (CC & CC_C) | (t << 1); + CLR_NZVC; + SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $0A DEC direct -***- */ +INLINE void dec_di( void ) +{ + UINT8 t; + DIRBYTE(t); + --t; + CLR_NZV; + SET_FLAGS8D(t); + WM(EAD,t); +} + +/* $0B TIM direct */ +INLINE void tim_di( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + DIRBYTE(t); + r = im & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $OC INC direct -***- */ +INLINE void inc_di( void ) +{ + UINT8 t; + DIRBYTE(t); + ++t; + CLR_NZV; + SET_FLAGS8I(t); + WM(EAD,t); +} + +/* $OD TST direct -**0- */ +INLINE void tst_di( void ) +{ + UINT8 t; + DIRBYTE(t); + CLR_NZV; + SET_NZ8(t); +} + +/* $0E JMP direct ----- */ +INLINE void jmp_di( void ) +{ + DIRECT; + PCD = EAD; + CHANGE_PC; +} + +/* $0F CLR direct -0100 */ +INLINE void clr_di( void ) +{ + UINT32 dummy; + DIRECT; + dummy = RM(EAD); + WM(EAD,0); + CLR_NZVC; + SEZ; +} + +/* $10 FLAG */ + +/* $11 FLAG */ + +/* $12 NOP inherent ----- */ +INLINE void nop( void ) +{ + ; +} + +/* $13 SYNC inherent ----- */ +INLINE void sync( void ) +{ + /* SYNC stops processing instructions until an interrupt request happens. */ + /* This doesn't require the corresponding interrupt to be enabled: if it */ + /* is disabled, execution continues with the next instruction. */ + hd6309.int_state |= HD6309_SYNC; /* HJB 990227 */ + CHECK_IRQ_LINES(); + /* if HD6309_SYNC has not been cleared by CHECK_IRQ_LINES(), + * stop execution until the interrupt lines change. */ + if( hd6309.int_state & HD6309_SYNC ) + if (hd6309_ICount > 0) hd6309_ICount = 0; +} + +/* $14 sexw inherent */ +INLINE void sexw( void ) +{ + PAIR q; + q.d = SIGNED_16(W); + D = q.w.h; + W = q.w.l; + CLR_NZ; + SET_N16(D); + SET_Z(q.d); +} + +/* $15 ILLEGAL */ + +/* $16 LBRA relative ----- */ +INLINE void lbra( void ) +{ + IMMWORD(ea); + PC += EA; + CHANGE_PC; + + if ( EA == 0xfffd ) /* EHC 980508 speed up busy loop */ + if ( hd6309_ICount > 0) + hd6309_ICount = 0; +} + +/* $17 LBSR relative ----- */ +INLINE void lbsr( void ) +{ + IMMWORD(ea); + PUSHWORD(pPC); + PC += EA; + CHANGE_PC; +} + +/* $18 ILLEGAL */ + +/* $19 DAA inherent (A) -**0* */ +INLINE void daa( void ) +{ + UINT8 msn, lsn; + UINT16 t, cf = 0; + msn = A & 0xf0; lsn = A & 0x0f; + if( lsn>0x09 || CC & CC_H) cf |= 0x06; + if( msn>0x80 && lsn>0x09 ) cf |= 0x60; + if( msn>0x90 || CC & CC_C) cf |= 0x60; + t = cf + A; + CLR_NZV; /* keep carry from previous operation */ + SET_NZ8((UINT8)t); SET_C8(t); + A = t; +} + +/* $1A ORCC immediate ##### */ +INLINE void orcc( void ) +{ + UINT8 t; + IMMBYTE(t); + CC |= t; + CHECK_IRQ_LINES(); /* HJB 990116 */ +} + +/* $1B ILLEGAL */ + +/* $1C ANDCC immediate ##### */ +INLINE void andcc( void ) +{ + UINT8 t; + IMMBYTE(t); + CC &= t; + CHECK_IRQ_LINES(); /* HJB 990116 */ +} + +/* $1D SEX inherent -**0- */ +INLINE void sex( void ) +{ + UINT16 t; + t = SIGNED(B); + D = t; + CLR_NZ; + SET_NZ16(t); +} + +INLINE void exg( void ) +{ + UINT16 t1,t2; + UINT8 tb; + int promote = FALSE; + + IMMBYTE(tb); + if( (tb^(tb>>4)) & 0x08 ) /* HJB 990225: mixed 8/16 bit case? */ + { + promote = TRUE; + } + + switch(tb>>4) { + case 0: t1 = D; break; + case 1: t1 = X; break; + case 2: t1 = Y; break; + case 3: t1 = U; break; + case 4: t1 = S; break; + case 5: t1 = PC; break; + case 6: t1 = W; break; + case 7: t1 = V; break; + case 8: t1 = (promote ? A + ((A) << 8) : A); break; + case 9: t1 = (promote ? B + ((B) << 8) : B); break; + case 10: t1 = (promote ? CC + ((CC) << 8) : CC); break; + case 11: t1 = (promote ? DP + ((DP) << 8) : DP); break; + case 12: t1 = 0; break; + case 13: t1 = 0; break; + case 14: t1 = (promote ? E + ((E) << 8) : E); break; + default: t1 = (promote ? F + ((F) << 8) : F); break; + } + switch(tb&15) { + case 0: t2 = D; break; + case 1: t2 = X; break; + case 2: t2 = Y; break; + case 3: t2 = U; break; + case 4: t2 = S; break; + case 5: t2 = PC; break; + case 6: t2 = W; break; + case 7: t2 = V; break; + case 8: t2 = (promote ? A + ((A) << 8) : A); break; + case 9: t2 = (promote ? B + ((B) << 8) : B); break; + case 10: t2 = (promote ? CC + ((CC) << 8) : CC); break; + case 11: t2 = (promote ? DP + ((DP) << 8) : DP); break; + case 12: t2 = 0; break; + case 13: t2 = 0; break; + case 14: t2 = (promote ? E + ((E) << 8) : E); break; + default: t2 = (promote ? F + ((F) << 8) : F); break; + } + + switch(tb>>4) { + case 0: D = t2; break; + case 1: X = t2; break; + case 2: Y = t2; break; + case 3: U = t2; break; + case 4: S = t2; break; + case 5: PC = t2; CHANGE_PC; break; + case 6: W = t2; break; + case 7: V = t2; break; + case 8: A = (promote ? t2 >> 8 : t2); break; + case 9: B = (promote ? t2 & 0xff : t2); break; + case 10: CC = (promote ? t2 & 0xff : t2); break; + case 11: DP = (promote ? t2 >> 8 : t2); break; + case 12: /* 0 = t2 */ break; + case 13: /* 0 = t2 */ break; + case 14: E = (promote ? t2 >> 8 : t2); break; + case 15: F = (promote ? t2 & 0xff : t2); break; + } + switch(tb&15) { + case 0: D = t1; break; + case 1: X = t1; break; + case 2: Y = t1; break; + case 3: U = t1; break; + case 4: S = t1; break; + case 5: PC = t1; CHANGE_PC; break; + case 6: W = t1; break; + case 7: V = t1; break; + case 8: A = (promote ? t1 >> 8 : t1); break; + case 9: B = (promote ? t1 & 0xff : t1); break; + case 10: CC = (promote ? t1 & 0xff : t1); break; + case 11: DP = (promote ? t1 >> 8 : t1); break; + case 12: /* 0 = t1 */ break; + case 13: /* 0 = t1 */ break; + case 14: E = (promote ? t1 >> 8 : t1); break; + case 15: F = (promote ? t1 & 0xff : t1); break; + } +} + +/* $1F TFR inherent ----- */ +INLINE void tfr( void ) +{ + UINT8 tb; + UINT16 t; + int promote = FALSE; + + IMMBYTE(tb); + if( (tb^(tb>>4)) & 0x08 ) + { + promote = TRUE; + } + + switch(tb>>4) { + case 0: t = D; break; + case 1: t = X; break; + case 2: t = Y; break; + case 3: t = U; break; + case 4: t = S; break; + case 5: t = PC; break; + case 6: t = W; break; + case 7: t = V; break; + case 8: t = (promote ? A + ((A) << 8) : A); break; + case 9: t = (promote ? B + ((B) << 8) : B); break; + case 10: t = (promote ? CC + ((CC) << 8) : CC); break; + case 11: t = (promote ? DP + ((DP) << 8) : DP); break; + case 12: t = 0; break; + case 13: t = 0; break; + case 14: t = (promote ? E + ((E) << 8) : E); break; + default: t = (promote ? F + ((F) << 8) : F); break; + } + + switch(tb&15) { + case 0: D = t; break; + case 1: X = t; break; + case 2: Y = t; break; + case 3: U = t; break; + case 4: S = t; break; + case 5: PC = t; CHANGE_PC; break; + case 6: W = t; break; + case 7: V = t; break; + case 8: A = (promote ? t >> 8 : t); break; + case 9: B = (promote ? t & 0xff : t); break; + case 10: CC = (promote ? t & 0xff : t); break; + case 11: DP = (promote ? t >> 8 : t); break; + case 12: /* 0 = t */ break; + case 13: /* 0 = t */ break; + case 14: E = (promote ? t >> 8 : t); break; + case 15: F = (promote ? t & 0xff : t); break; + } +} + +/* $20 BRA relative ----- */ +INLINE void bra( void ) +{ + UINT8 t; + IMMBYTE(t); + PC += SIGNED(t); + CHANGE_PC; + /* JB 970823 - speed up busy loops */ + if( t == 0xfe ) + if( hd6309_ICount > 0 ) hd6309_ICount = 0; +} + +/* $21 BRN relative ----- */ +INLINE void brn( void ) +{ + UINT8 t; + IMMBYTE(t); +} + +/* $1021 LBRN relative ----- */ +INLINE void lbrn( void ) +{ + IMMWORD(ea); +} + +/* $22 BHI relative ----- */ +INLINE void bhi( void ) +{ + BRANCH( !(CC & (CC_Z|CC_C)) ); +} + +/* $1022 LBHI relative ----- */ +INLINE void lbhi( void ) +{ + LBRANCH( !(CC & (CC_Z|CC_C)) ); +} + +/* $23 BLS relative ----- */ +INLINE void bls( void ) +{ + BRANCH( (CC & (CC_Z|CC_C)) ); +} + +/* $1023 LBLS relative ----- */ +INLINE void lbls( void ) +{ + LBRANCH( (CC&(CC_Z|CC_C)) ); +} + +/* $24 BCC relative ----- */ +INLINE void bcc( void ) +{ + BRANCH( !(CC&CC_C) ); +} + +/* $1024 LBCC relative ----- */ +INLINE void lbcc( void ) +{ + LBRANCH( !(CC&CC_C) ); +} + +/* $25 BCS relative ----- */ +INLINE void bcs( void ) +{ + BRANCH( (CC&CC_C) ); +} + +/* $1025 LBCS relative ----- */ +INLINE void lbcs( void ) +{ + LBRANCH( (CC&CC_C) ); +} + +/* $26 BNE relative ----- */ +INLINE void bne( void ) +{ + BRANCH( !(CC&CC_Z) ); +} + +/* $1026 LBNE relative ----- */ +INLINE void lbne( void ) +{ + LBRANCH( !(CC&CC_Z) ); +} + +/* $27 BEQ relative ----- */ +INLINE void beq( void ) +{ + BRANCH( (CC&CC_Z) ); +} + +/* $1027 LBEQ relative ----- */ +INLINE void lbeq( void ) +{ + LBRANCH( (CC&CC_Z) ); +} + +/* $28 BVC relative ----- */ +INLINE void bvc( void ) +{ + BRANCH( !(CC&CC_V) ); +} + +/* $1028 LBVC relative ----- */ +INLINE void lbvc( void ) +{ + LBRANCH( !(CC&CC_V) ); +} + +/* $29 BVS relative ----- */ +INLINE void bvs( void ) +{ + BRANCH( (CC&CC_V) ); +} + +/* $1029 LBVS relative ----- */ +INLINE void lbvs( void ) +{ + LBRANCH( (CC&CC_V) ); +} + +/* $2A BPL relative ----- */ +INLINE void bpl( void ) +{ + BRANCH( !(CC&CC_N) ); +} + +/* $102A LBPL relative ----- */ +INLINE void lbpl( void ) +{ + LBRANCH( !(CC&CC_N) ); +} + +/* $2B BMI relative ----- */ +INLINE void bmi( void ) +{ + BRANCH( (CC&CC_N) ); +} + +/* $102B LBMI relative ----- */ +INLINE void lbmi( void ) +{ + LBRANCH( (CC&CC_N) ); +} + +/* $2C BGE relative ----- */ +INLINE void bge( void ) +{ + BRANCH( !NXORV ); +} + +/* $102C LBGE relative ----- */ +INLINE void lbge( void ) +{ + LBRANCH( !NXORV ); +} + +/* $2D BLT relative ----- */ +INLINE void blt( void ) +{ + BRANCH( NXORV ); +} + +/* $102D LBLT relative ----- */ +INLINE void lblt( void ) +{ + LBRANCH( NXORV ); +} + +/* $2E BGT relative ----- */ +INLINE void bgt( void ) +{ + BRANCH( !(NXORV || (CC&CC_Z)) ); +} + +/* $102E LBGT relative ----- */ +INLINE void lbgt( void ) +{ + LBRANCH( !(NXORV || (CC&CC_Z)) ); +} + +/* $2F BLE relative ----- */ +INLINE void ble( void ) +{ + BRANCH( (NXORV || (CC&CC_Z)) ); +} + +/* $102F LBLE relative ----- */ +INLINE void lble( void ) +{ + LBRANCH( (NXORV || (CC&CC_Z)) ); +} + +#define REGREG_PREAMBLE \ + IMMBYTE(tb); \ + if( (tb^(tb>>4)) & 0x08 ) \ + {promote = TRUE;} \ + switch(tb>>4) { \ + case 0: src16Reg = &D; large = TRUE; break; \ + case 1: src16Reg = &X; large = TRUE; break; \ + case 2: src16Reg = &Y; large = TRUE; break; \ + case 3: src16Reg = &U; large = TRUE; break; \ + case 4: src16Reg = &S; large = TRUE; break; \ + case 5: src16Reg = &PC; large = TRUE; break; \ + case 6: src16Reg = &W; large = TRUE; break; \ + case 7: src16Reg = &V; large = TRUE; break; \ + case 8: if (promote) src16Reg = &D; else src8Reg = &A; break; \ + case 9: if (promote) src16Reg = &D; else src8Reg = &B; break; \ + case 10: if (promote) src16Reg = &z16; else src8Reg = &CC; break; \ + case 11: if (promote) src16Reg = &z16; else src8Reg = &DP; break; \ + case 12: if (promote) src16Reg = &z16; else src8Reg = &z8; break; \ + case 13: if (promote) src16Reg = &z16; else src8Reg = &z8; break; \ + case 14: if (promote) src16Reg = &W; else src8Reg = &E; break; \ + default: if (promote) src16Reg = &W; else src8Reg = &F; break; \ + } \ + switch(tb&15) { \ + case 0: dst16Reg = &D; large = TRUE; break; \ + case 1: dst16Reg = &X; large = TRUE; break; \ + case 2: dst16Reg = &Y; large = TRUE; break; \ + case 3: dst16Reg = &U; large = TRUE; break; \ + case 4: dst16Reg = &S; large = TRUE; break; \ + case 5: dst16Reg = &PC; large = TRUE; break; \ + case 6: dst16Reg = &W; large = TRUE; break; \ + case 7: dst16Reg = &V; large = TRUE; break; \ + case 8: if (promote) dst16Reg = &D; else dst8Reg = &A; break; \ + case 9: if (promote) dst16Reg = &D; else dst8Reg = &B; break; \ + case 10: if (promote) dst16Reg = &z16; else dst8Reg = &CC; break; \ + case 11: if (promote) dst16Reg = &z16; else dst8Reg = &DP; break; \ + case 12: if (promote) dst16Reg = &z16; else dst8Reg = &z8; break; \ + case 13: if (promote) dst16Reg = &z16; else dst8Reg = &z8; break; \ + case 14: if (promote) dst16Reg = &W; else dst8Reg = &E; break; \ + default: if (promote) dst16Reg = &W; else dst8Reg = &F; break; \ + } \ + +/* $1030 addr_r r1 + r2 -> r2 */ + +INLINE void addr_r( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = *src16Reg + *dst16Reg; + CLR_NZVC; + *dst16Reg = r16; + SET_FLAGS16(*src16Reg,*dst16Reg,r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *src8Reg + *dst8Reg; + CLR_NZVC; + /* SET_H(*src8Reg,*src8Reg,r8);*/ /*Experimentation prooved this not to be the case */ + *dst8Reg = r8; + SET_FLAGS8(*src8Reg,*dst8Reg,r8); + } +} + +INLINE void adcr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = *src16Reg + *dst16Reg + (CC & CC_C); + CLR_NZVC; + *dst16Reg = r16; + SET_FLAGS16(*src16Reg,*dst16Reg,r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *src8Reg + *dst8Reg + (CC & CC_C); + CLR_NZVC; + /* SET_H(*src8Reg,*src8Reg,r8);*/ /*Experimentation prooved this not to be the case */ + *dst8Reg = r8; + SET_FLAGS8(*src8Reg,*dst8Reg,r8); + } +} + +/* $1032 SUBR r1 - r2 -> r2 */ +INLINE void subr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = (UINT32)*dst16Reg - (UINT32)*src16Reg; + CLR_NZVC; + *dst16Reg = r16; + SET_FLAGS16((UINT32)*dst16Reg,(UINT32)*src16Reg,r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *dst8Reg - *src8Reg; + CLR_NZVC; + *dst8Reg = r8; + SET_FLAGS8(*dst8Reg,*src8Reg,r8); + } +} + +/* $1033 SBCR r1 - r2 - C -> r2 */ +INLINE void sbcr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = (UINT32)*dst16Reg - (UINT32)*src16Reg - (CC & CC_C); + CLR_NZVC; + *dst16Reg = r16; + SET_FLAGS16((UINT32)*dst16Reg,(UINT32)*src16Reg,r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *dst8Reg - *src8Reg - (CC & CC_C); + CLR_NZVC; + *dst8Reg = r8; + SET_FLAGS8(*dst8Reg,*src8Reg,r8); + } +} + +/* $1034 ANDR r1 & r2 -> r2 */ +INLINE void andr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = *src16Reg & *dst16Reg; + CLR_NZV; + *dst16Reg = r16; + SET_NZ16(r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *src8Reg & *dst8Reg; + CLR_NZV; + *dst8Reg = r8; + SET_NZ8(r8); + } +} + +/* $1035 ORR r1 | r2 -> r2 */ +INLINE void orr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = *src16Reg | *dst16Reg; + CLR_NZV; + *dst16Reg = r16; + SET_NZ16(r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *src8Reg | *dst8Reg; + CLR_NZV; + *dst8Reg = r8; + SET_NZ8(r8); + } +} + +/* $1036 EORR r1 ^ r2 -> r2 */ +INLINE void eorr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = *src16Reg ^ *dst16Reg; + CLR_NZV; + *dst16Reg = r16; + SET_NZ16(r16); + + if ( (tb&15) == 5 ) + { + CHANGE_PC; + } + } + else + { + r8 = *src8Reg ^ *dst8Reg; + CLR_NZV; + *dst8Reg = r8; + SET_NZ8(r8); + } +} + +/* $1037 CMPR r1 - r2 */ +INLINE void cmpr( void ) +{ + UINT8 tb, z8 = 0; + UINT16 z16 = 0, r8; + UINT32 r16; + UINT8 *src8Reg = NULL, *dst8Reg = NULL; + UINT16 *src16Reg = NULL, *dst16Reg = NULL; + int promote = FALSE, large = FALSE; + + REGREG_PREAMBLE; + + if ( large ) + { + r16 = (UINT32)*dst16Reg - (UINT32)*src16Reg; + CLR_NZVC; + SET_FLAGS16((UINT32)*dst16Reg,(UINT32)*src16Reg,r16); + } + else + { + r8 = *dst8Reg - *src8Reg; + CLR_NZVC; + SET_FLAGS8(*dst8Reg,*src8Reg,r8); + } +} + +/* $1138 TFM R0+,R1+ */ +INLINE void tfmpp( void ) +{ + UINT8 tb, srcValue = 0; + + IMMBYTE(tb); + + if ( W != 0 ) + { + switch(tb>>4) { + case 0: srcValue = RM(D++); break; + case 1: srcValue = RM(X++); break; + case 2: srcValue = RM(Y++); break; + case 3: srcValue = RM(U++); break; + case 4: srcValue = RM(S++); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + switch(tb&15) { + case 0: WM(D++, srcValue); break; + case 1: WM(X++, srcValue); break; + case 2: WM(Y++, srcValue); break; + case 3: WM(U++, srcValue); break; + case 4: WM(S++, srcValue); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + PCD = PCD - 3; + CHANGE_PC; + W--; + } + else + hd6309_ICount -= 6; /* Needs six aditional cycles to get the 6+3n */ +} + +/* $1139 TFM R0-,R1- */ +INLINE void tfmmm( void ) +{ + UINT8 tb, srcValue = 0; + + IMMBYTE(tb); + + if ( W != 0 ) + { + switch(tb>>4) { + case 0: srcValue = RM(D--); break; + case 1: srcValue = RM(X--); break; + case 2: srcValue = RM(Y--); break; + case 3: srcValue = RM(U--); break; + case 4: srcValue = RM(S--); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + switch(tb&15) { + case 0: WM(D--, srcValue); break; + case 1: WM(X--, srcValue); break; + case 2: WM(Y--, srcValue); break; + case 3: WM(U--, srcValue); break; + case 4: WM(S--, srcValue); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + PCD = PCD - 3; + CHANGE_PC; + W--; + } + else + hd6309_ICount -= 6; /* Needs six aditional cycles to get the 6+3n */ +} + +/* $113A TFM R0+,R1 */ +INLINE void tfmpc( void ) +{ + UINT8 tb, srcValue = 0; + + IMMBYTE(tb); + + if ( W != 0 ) + { + switch(tb>>4) { + case 0: srcValue = RM(D++); break; + case 1: srcValue = RM(X++); break; + case 2: srcValue = RM(Y++); break; + case 3: srcValue = RM(U++); break; + case 4: srcValue = RM(S++); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + switch(tb&15) { + case 0: WM(D, srcValue); break; + case 1: WM(X, srcValue); break; + case 2: WM(Y, srcValue); break; + case 3: WM(U, srcValue); break; + case 4: WM(S, srcValue); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + PCD = PCD - 3; + CHANGE_PC; + W--; + } + else + hd6309_ICount -= 6; /* Needs six aditional cycles to get the 6+3n */ +} + +/* $113B TFM R0,R1+ */ +INLINE void tfmcp( void ) +{ + UINT8 tb, srcValue = 0; + + IMMBYTE(tb); + + if ( W != 0 ) + { + switch(tb>>4) { + case 0: srcValue = RM(D); break; + case 1: srcValue = RM(X); break; + case 2: srcValue = RM(Y); break; + case 3: srcValue = RM(U); break; + case 4: srcValue = RM(S); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + switch(tb&15) { + case 0: WM(D++, srcValue); break; + case 1: WM(X++, srcValue); break; + case 2: WM(Y++, srcValue); break; + case 3: WM(U++, srcValue); break; + case 4: WM(S++, srcValue); break; + default: IIError(); return; break; /* reg PC thru F */ + } + + PCD = PCD - 3; + CHANGE_PC; + W--; + } + else + hd6309_ICount -= 6; /* Needs six aditional cycles to get the 6+3n */ +} + +/* $30 LEAX indexed --*-- */ +INLINE void leax( void ) +{ + fetch_effective_address(); + X = EA; + CLR_Z; + SET_Z(X); +} + +/* $31 LEAY indexed --*-- */ +INLINE void leay( void ) +{ + fetch_effective_address(); + Y = EA; + CLR_Z; + SET_Z(Y); +} + +/* $32 LEAS indexed ----- */ +INLINE void leas( void ) +{ + fetch_effective_address(); + S = EA; + hd6309.int_state |= HD6309_LDS; +} + +/* $33 LEAU indexed ----- */ +INLINE void leau( void ) +{ + fetch_effective_address(); + U = EA; +} + +/* $34 PSHS inherent ----- */ +INLINE void pshs( void ) +{ + UINT8 t; + IMMBYTE(t); + if( t&0x80 ) { PUSHWORD(pPC); hd6309_ICount -= 2; } + if( t&0x40 ) { PUSHWORD(pU); hd6309_ICount -= 2; } + if( t&0x20 ) { PUSHWORD(pY); hd6309_ICount -= 2; } + if( t&0x10 ) { PUSHWORD(pX); hd6309_ICount -= 2; } + if( t&0x08 ) { PUSHBYTE(DP); hd6309_ICount -= 1; } + if( t&0x04 ) { PUSHBYTE(B); hd6309_ICount -= 1; } + if( t&0x02 ) { PUSHBYTE(A); hd6309_ICount -= 1; } + if( t&0x01 ) { PUSHBYTE(CC); hd6309_ICount -= 1; } +} + +/* $1038 PSHSW inherent ----- */ +INLINE void pshsw( void ) +{ + PUSHWORD(pW); +} + +/* $103a PSHUW inherent ----- */ +INLINE void pshuw( void ) +{ + PSHUWORD(pW); +} + +/* $35 PULS inherent ----- */ +INLINE void puls( void ) +{ + UINT8 t; + IMMBYTE(t); + if( t&0x01 ) { PULLBYTE(CC); hd6309_ICount -= 1; } + if( t&0x02 ) { PULLBYTE(A); hd6309_ICount -= 1; } + if( t&0x04 ) { PULLBYTE(B); hd6309_ICount -= 1; } + if( t&0x08 ) { PULLBYTE(DP); hd6309_ICount -= 1; } + if( t&0x10 ) { PULLWORD(XD); hd6309_ICount -= 2; } + if( t&0x20 ) { PULLWORD(YD); hd6309_ICount -= 2; } + if( t&0x40 ) { PULLWORD(UD); hd6309_ICount -= 2; } + if( t&0x80 ) { PULLWORD(PCD); CHANGE_PC; hd6309_ICount -= 2; } + + /* HJB 990225: moved check after all PULLs */ + if( t&0x01 ) { CHECK_IRQ_LINES(); } +} + +/* $1039 PULSW inherent ----- */ +INLINE void pulsw( void ) +{ + PULLWORD(W); +} + +/* $103b PULUW inherent ----- */ +INLINE void puluw( void ) +{ + PULUWORD(W); +} + +/* $36 PSHU inherent ----- */ +INLINE void pshu( void ) +{ + UINT8 t; + IMMBYTE(t); + if( t&0x80 ) { PSHUWORD(pPC); hd6309_ICount -= 2; } + if( t&0x40 ) { PSHUWORD(pS); hd6309_ICount -= 2; } + if( t&0x20 ) { PSHUWORD(pY); hd6309_ICount -= 2; } + if( t&0x10 ) { PSHUWORD(pX); hd6309_ICount -= 2; } + if( t&0x08 ) { PSHUBYTE(DP); hd6309_ICount -= 1; } + if( t&0x04 ) { PSHUBYTE(B); hd6309_ICount -= 1; } + if( t&0x02 ) { PSHUBYTE(A); hd6309_ICount -= 1; } + if( t&0x01 ) { PSHUBYTE(CC); hd6309_ICount -= 1; } +} + +/* 37 PULU inherent ----- */ +INLINE void pulu( void ) +{ + UINT8 t; + IMMBYTE(t); + if( t&0x01 ) { PULUBYTE(CC); hd6309_ICount -= 1; } + if( t&0x02 ) { PULUBYTE(A); hd6309_ICount -= 1; } + if( t&0x04 ) { PULUBYTE(B); hd6309_ICount -= 1; } + if( t&0x08 ) { PULUBYTE(DP); hd6309_ICount -= 1; } + if( t&0x10 ) { PULUWORD(XD); hd6309_ICount -= 2; } + if( t&0x20 ) { PULUWORD(YD); hd6309_ICount -= 2; } + if( t&0x40 ) { PULUWORD(SD); hd6309_ICount -= 2; } + if( t&0x80 ) { PULUWORD(PCD); CHANGE_PC; hd6309_ICount -= 2; } + + /* HJB 990225: moved check after all PULLs */ + if( t&0x01 ) { CHECK_IRQ_LINES(); } +} + +/* $38 ILLEGAL */ + +/* $39 RTS inherent ----- */ +INLINE void rts( void ) +{ + PULLWORD(PCD); + CHANGE_PC; +} + +/* $3A ABX inherent ----- */ +INLINE void abx( void ) +{ + X += B; +} + +/* $3B RTI inherent ##### */ +INLINE void rti( void ) +{ + UINT8 t; + PULLBYTE(CC); + t = CC & CC_E; /* HJB 990225: entire state saved? */ + if(t) + { + hd6309_ICount -= 9; + PULLBYTE(A); + PULLBYTE(B); + if ( MD & MD_EM ) + { + PULLBYTE(E); + PULLBYTE(F); + hd6309_ICount -= 2; + } + PULLBYTE(DP); + PULLWORD(XD); + PULLWORD(YD); + PULLWORD(UD); + } + PULLWORD(PCD); + CHANGE_PC; + CHECK_IRQ_LINES(); /* HJB 990116 */ +} + +/* $3C CWAI inherent ----1 */ +INLINE void cwai( void ) +{ + UINT8 t; + IMMBYTE(t); + CC &= t; + /* + * CWAI stacks the entire machine state on the hardware stack, + * then waits for an interrupt; when the interrupt is taken + * later, the state is *not* saved again after CWAI. + */ + CC |= CC_E; /* HJB 990225: save entire state */ + PUSHWORD(pPC); + PUSHWORD(pU); + PUSHWORD(pY); + PUSHWORD(pX); + PUSHBYTE(DP); + if ( MD & MD_EM ) + { + PUSHBYTE(E); + PUSHBYTE(F); + } + PUSHBYTE(B); + PUSHBYTE(A); + PUSHBYTE(CC); + hd6309.int_state |= HD6309_CWAI; /* HJB 990228 */ + CHECK_IRQ_LINES(); /* HJB 990116 */ + if( hd6309.int_state & HD6309_CWAI ) + if( hd6309_ICount > 0 ) + hd6309_ICount = 0; +} + +/* $3D MUL inherent --*-@ */ +INLINE void mul( void ) +{ + UINT16 t; + t = A * B; + CLR_ZC; SET_Z16(t); if(t&0x80) SEC; + D = t; +} + +/* $3E ILLEGAL */ + +/* $3F SWI (SWI2 SWI3) absolute indirect ----- */ +INLINE void swi( void ) +{ + CC |= CC_E; /* HJB 980225: save entire state */ + PUSHWORD(pPC); + PUSHWORD(pU); + PUSHWORD(pY); + PUSHWORD(pX); + PUSHBYTE(DP); + if ( MD & MD_EM ) + { + PUSHBYTE(F); + PUSHBYTE(E); + } + PUSHBYTE(B); + PUSHBYTE(A); + PUSHBYTE(CC); + CC |= CC_IF | CC_II; /* inhibit FIRQ and IRQ */ + PCD=RM16(0xfffa); + CHANGE_PC; +} + +/* $1130 BAND */ + +#define decodePB_tReg(n) (((n) >> 6) & 0x03) +#define decodePB_src(n) (((n) >> 3) & 0x07) +#define decodePB_dst(n) (((n) >> 0) & 0x07) + +static UINT8 dummy_byte; +static unsigned char *regTable[4] = { &(CC), &(A), &(B), &dummy_byte }; + +static const UINT8 bitTable[] = { 0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80 }; + +INLINE void band( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)] ) && ( db & bitTable[decodePB_src(pb)] )) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1131 BIAND */ + +INLINE void biand( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)] ) && ( (~db) & bitTable[decodePB_src(pb)] )) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1132 BOR */ + +INLINE void bor( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)] ) || ( db & bitTable[decodePB_src(pb)] )) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1133 BIOR */ + +INLINE void bior( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)] ) || ( (~db) & bitTable[decodePB_src(pb)] )) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1134 BEOR */ + +INLINE void beor( void ) +{ + UINT8 pb; + UINT16 db; + UINT8 tReg, tMem; + + IMMBYTE(pb); + + DIRBYTE(db); + + tReg = *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)]; + tMem = db & bitTable[decodePB_src(pb)]; + + if ( (tReg || tMem ) && !(tReg && tMem) ) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1135 BIEOR */ + +INLINE void bieor( void ) +{ + UINT8 pb; + UINT16 db; + UINT8 tReg, tMem; + + IMMBYTE(pb); + + DIRBYTE(db); + + tReg = *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)]; + tMem = (~db) & bitTable[decodePB_src(pb)]; + + if ( (tReg || tMem ) && !(tReg && tMem) ) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1133 LDBT */ + +INLINE void ldbt( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( db & bitTable[decodePB_src(pb)] ) ) + *(regTable[decodePB_tReg(pb)]) |= bitTable[decodePB_dst(pb)]; + else + *(regTable[decodePB_tReg(pb)]) &= (~bitTable[decodePB_dst(pb)]); +} + +/* $1134 STBT */ + +INLINE void stbt( void ) +{ + UINT8 pb; + UINT16 db; + + IMMBYTE(pb); + + DIRBYTE(db); + + if ( ( *(regTable[decodePB_tReg(pb)]) & bitTable[decodePB_dst(pb)] ) ) + WM( EAD, db | bitTable[decodePB_src(pb)] ); + else + WM( EAD, db & (~bitTable[decodePB_src(pb)]) ); +} + +/* $103F SWI2 absolute indirect ----- */ +INLINE void swi2( void ) +{ + CC |= CC_E; /* HJB 980225: save entire state */ + PUSHWORD(pPC); + PUSHWORD(pU); + PUSHWORD(pY); + PUSHWORD(pX); + PUSHBYTE(DP); + if ( MD & MD_EM ) + { + PUSHBYTE(F); + PUSHBYTE(E); + } + PUSHBYTE(B); + PUSHBYTE(A); + PUSHBYTE(CC); + PCD = RM16(0xfff4); + CHANGE_PC; +} + +/* $113F SWI3 absolute indirect ----- */ +INLINE void swi3( void ) +{ + CC |= CC_E; /* HJB 980225: save entire state */ + PUSHWORD(pPC); + PUSHWORD(pU); + PUSHWORD(pY); + PUSHWORD(pX); + PUSHBYTE(DP); + if ( MD & MD_EM ) + { + PUSHBYTE(F); + PUSHBYTE(E); + } + PUSHBYTE(B); + PUSHBYTE(A); + PUSHBYTE(CC); + PCD = RM16(0xfff2); + CHANGE_PC; +} + +/* $40 NEGA inherent ?**** */ +INLINE void nega( void ) +{ + UINT16 r; + r = -A; + CLR_NZVC; + SET_FLAGS8(0,A,r); + A = r; +} + +/* $41 ILLEGAL */ + +/* $42 ILLEGAL */ + +/* $43 COMA inherent -**01 */ +INLINE void coma( void ) +{ + A = ~A; + CLR_NZV; + SET_NZ8(A); + SEC; +} + +/* $44 LSRA inherent -0*-* */ +INLINE void lsra( void ) +{ + CLR_NZC; + CC |= (A & CC_C); + A >>= 1; + SET_Z8(A); +} + +/* $45 ILLEGAL */ + +/* $46 RORA inherent -**-* */ +INLINE void rora( void ) +{ + UINT8 r; + r = (CC & CC_C) << 7; + CLR_NZC; + CC |= (A & CC_C); + r |= A >> 1; + SET_NZ8(r); + A = r; +} + +/* $47 ASRA inherent ?**-* */ +INLINE void asra( void ) +{ + CLR_NZC; + CC |= (A & CC_C); + A = (A & 0x80) | (A >> 1); + SET_NZ8(A); +} + +/* $48 ASLA inherent ?**** */ +INLINE void asla( void ) +{ + UINT16 r; + r = A << 1; + CLR_NZVC; + SET_FLAGS8(A,A,r); + A = r; +} + +/* $49 ROLA inherent -**** */ +INLINE void rola( void ) +{ + UINT16 t,r; + t = A; + r = (CC & CC_C) | (t<<1); + CLR_NZVC; SET_FLAGS8(t,t,r); + A = r; +} + +/* $4A DECA inherent -***- */ +INLINE void deca( void ) +{ + --A; + CLR_NZV; + SET_FLAGS8D(A); +} + +/* $4B ILLEGAL */ + +/* $4C INCA inherent -***- */ +INLINE void inca( void ) +{ + ++A; + CLR_NZV; + SET_FLAGS8I(A); +} + +/* $4D TSTA inherent -**0- */ +INLINE void tsta( void ) +{ + CLR_NZV; + SET_NZ8(A); +} + +/* $4E ILLEGAL */ + +/* $4F CLRA inherent -0100 */ +INLINE void clra( void ) +{ + A = 0; + CLR_NZVC; SEZ; +} + +/* $50 NEGB inherent ?**** */ +INLINE void negb( void ) +{ + UINT16 r; + r = -B; + CLR_NZVC; + SET_FLAGS8(0,B,r); + B = r; +} + +/* $1040 NEGD inherent ?**** */ +INLINE void negd( void ) +{ + UINT32 r; + r = -D; + CLR_NZVC; + SET_FLAGS16(0,D,r); + D = r; +} + +/* $51 ILLEGAL */ + +/* $52 ILLEGAL */ + +/* $53 COMB inherent -**01 */ +INLINE void comb( void ) +{ + B = ~B; + CLR_NZV; + SET_NZ8(B); + SEC; +} + +/* $1143 COME inherent -**01 */ +INLINE void come( void ) +{ + E = ~E; + CLR_NZV; + SET_NZ8(E); + SEC; +} + +/* $1153 COMF inherent -**01 */ +INLINE void comf( void ) +{ + F = ~F; + CLR_NZV; + SET_NZ8(F); + SEC; +} + +/* $1043 COMD inherent -**01 */ +INLINE void comd( void ) +{ + D = ~D; + CLR_NZV; + SET_NZ16(D); + SEC; +} + +/* $1053 COMW inherent -**01 */ +INLINE void comw( void ) +{ + W = ~W; + CLR_NZV; + SET_NZ16(W); + SEC; +} + +/* $54 LSRB inherent -0*-* */ +INLINE void lsrb( void ) +{ + CLR_NZC; + CC |= (B & CC_C); + B >>= 1; + SET_Z8(B); +} + +/* $1044 LSRD inherent -0*-* */ +INLINE void lsrd( void ) +{ + CLR_NZC; + CC |= (B & CC_C); + D >>= 1; + SET_Z16(D); +} + +/* $1054 LSRW inherent -0*-* */ +INLINE void lsrw( void ) +{ + CLR_NZC; + CC |= (F & CC_C); + W >>= 1; + SET_Z16(W); +} + +/* $55 ILLEGAL */ + +/* $56 RORB inherent -**-* */ +INLINE void rorb( void ) +{ + UINT8 r; + r = (CC & CC_C) << 7; + CLR_NZC; + CC |= (B & CC_C); + r |= B >> 1; + SET_NZ8(r); + B = r; +} + +/* $1046 RORD inherent -**-* */ +INLINE void rord( void ) +{ + UINT16 r; + r = (CC & CC_C) << 15; + CLR_NZC; + CC |= (D & CC_C); + r |= D >> 1; + SET_NZ16(r); + D = r; +} + +/* $1056 RORW inherent -**-* */ +INLINE void rorw( void ) +{ + UINT16 r; + r = (CC & CC_C) << 15; + CLR_NZC; + CC |= (W & CC_C); + r |= W >> 1; + SET_NZ16(r); + W = r; +} + +/* $57 ASRB inherent ?**-* */ +INLINE void asrb( void ) +{ + CLR_NZC; + CC |= (B & CC_C); + B= (B & 0x80) | (B >> 1); + SET_NZ8(B); +} + +/* $1047 ASRD inherent ?**-* */ +INLINE void asrd( void ) +{ + CLR_NZC; + CC |= (D & CC_C); + D= (D & 0x8000) | (D >> 1); + SET_NZ16(D); +} + +/* $58 ASLB inherent ?**** */ +INLINE void aslb( void ) +{ + UINT16 r; + r = B << 1; + CLR_NZVC; + SET_FLAGS8(B,B,r); + B = r; +} + +/* $1048 ASLD inherent ?**** */ +INLINE void asld( void ) +{ + UINT32 r; + r = D << 1; + CLR_NZVC; + SET_FLAGS16(D,D,r); + D = r; +} + +/* $59 ROLB inherent -**** */ +INLINE void rolb( void ) +{ + UINT16 t,r; + t = B; + r = CC & CC_C; + r |= t << 1; + CLR_NZVC; + SET_FLAGS8(t,t,r); + B = r; +} + +/* $1049 ROLD inherent -**** */ +INLINE void rold( void ) +{ + UINT32 t,r; + t = D; + r = CC & CC_C; + r |= t << 1; + CLR_NZVC; + SET_FLAGS16(t,t,r); + D = r; +} + +/* $1059 ROLW inherent -**** */ +INLINE void rolw( void ) +{ + UINT32 t,r; + t = W; + r = CC & CC_C; + r |= t << 1; + CLR_NZVC; + SET_FLAGS16(t,t,r); + W = r; +} + +/* $5A DECB inherent -***- */ +INLINE void decb( void ) +{ + --B; + CLR_NZV; + SET_FLAGS8D(B); +} + +/* $114a DECE inherent -***- */ +INLINE void dece( void ) +{ + --E; + CLR_NZV; + SET_FLAGS8D(E); +} + +/* $115a DECF inherent -***- */ +INLINE void decf( void ) +{ + --F; + CLR_NZV; + SET_FLAGS8D(F); +} + +/* $104a DECD inherent -***- */ +INLINE void decd( void ) +{ + UINT32 r; + r = D - 1; + CLR_NZVC; + SET_FLAGS16(D,D,r) + D = r; +} + +/* $105a DECW inherent -***- */ +INLINE void decw( void ) +{ + UINT32 r; + r = W - 1; + CLR_NZVC; + SET_FLAGS16(W,W,r) + W = r; +} + +/* $5B ILLEGAL */ + +/* $5C INCB inherent -***- */ +INLINE void incb( void ) +{ + ++B; + CLR_NZV; + SET_FLAGS8I(B); +} + +/* $114c INCE inherent -***- */ +INLINE void ince( void ) +{ + ++E; + CLR_NZV; + SET_FLAGS8I(E); +} + +/* $115c INCF inherent -***- */ +INLINE void incf( void ) +{ + ++F; + CLR_NZV; + SET_FLAGS8I(F); +} + +/* $104c INCD inherent -***- */ +INLINE void incd( void ) +{ + UINT32 r; + r = D + 1; + CLR_NZVC; + SET_FLAGS16(D,D,r) + D = r; +} + +/* $105c INCW inherent -***- */ +INLINE void incw( void ) +{ + UINT32 r; + r = W + 1; + CLR_NZVC; + SET_FLAGS16(W,W,r) + W = r; +} + +/* $5D TSTB inherent -**0- */ +INLINE void tstb( void ) +{ + CLR_NZV; + SET_NZ8(B); +} + +/* $104d TSTD inherent -**0- */ +INLINE void tstd( void ) +{ + CLR_NZV; + SET_NZ16(D); +} + +/* $105d TSTW inherent -**0- */ +INLINE void tstw( void ) +{ + CLR_NZV; + SET_NZ16(W); +} + +/* $114d TSTE inherent -**0- */ +INLINE void tste( void ) +{ + CLR_NZV; + SET_NZ8(E); +} + +/* $115d TSTF inherent -**0- */ +INLINE void tstf( void ) +{ + CLR_NZV; + SET_NZ8(F); +} + +/* $5E ILLEGAL */ + +/* $5F CLRB inherent -0100 */ +INLINE void clrb( void ) +{ + B = 0; + CLR_NZVC; SEZ; +} + +/* $104f CLRD inherent -0100 */ +INLINE void clrd( void ) +{ + D = 0; + CLR_NZVC; SEZ; +} + +/* $114f CLRE inherent -0100 */ +INLINE void clre( void ) +{ + E = 0; + CLR_NZVC; SEZ; +} + +/* $115f CLRF inherent -0100 */ +INLINE void clrf( void ) +{ + F = 0; + CLR_NZVC; SEZ; +} + +/* $105f CLRW inherent -0100 */ +INLINE void clrw( void ) +{ + W = 0; + CLR_NZVC; SEZ; +} + +/* $60 NEG indexed ?**** */ +INLINE void neg_ix( void ) +{ + UINT16 r,t; + fetch_effective_address(); + t = RM(EAD); + r=-t; + CLR_NZVC; + SET_FLAGS8(0,t,r); + WM(EAD,r); +} + +/* $61 OIM indexed */ +INLINE void oim_ix( void ) +{ + UINT8 r,im; + IMMBYTE(im); + fetch_effective_address(); + r = im | RM(EAD); + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $62 AIM indexed */ +INLINE void aim_ix( void ) +{ + UINT8 r,im; + IMMBYTE(im); + fetch_effective_address(); + r = im & RM(EAD); + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $63 COM indexed -**01 */ +INLINE void com_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t = ~RM(EAD); + CLR_NZV; + SET_NZ8(t); + SEC; + WM(EAD,t); +} + +/* $64 LSR indexed -0*-* */ +INLINE void lsr_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t=RM(EAD); + CLR_NZC; + CC |= (t & CC_C); + t>>=1; SET_Z8(t); + WM(EAD,t); +} + +/* $65 EIM indexed */ +INLINE void eim_ix( void ) +{ + UINT8 r,im; + IMMBYTE(im); + fetch_effective_address(); + r = im ^ RM(EAD); + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} +/* $66 ROR indexed -**-* */ +INLINE void ror_ix( void ) +{ + UINT8 t,r; + fetch_effective_address(); + t=RM(EAD); + r = (CC & CC_C) << 7; + CLR_NZC; + CC |= (t & CC_C); + r |= t>>1; SET_NZ8(r); + WM(EAD,r); +} + +/* $67 ASR indexed ?**-* */ +INLINE void asr_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t=RM(EAD); + CLR_NZC; + CC |= (t & CC_C); + t=(t&0x80)|(t>>1); + SET_NZ8(t); + WM(EAD,t); +} + +/* $68 ASL indexed ?**** */ +INLINE void asl_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t=RM(EAD); + r = t << 1; + CLR_NZVC; + SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $69 ROL indexed -**** */ +INLINE void rol_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t=RM(EAD); + r = CC & CC_C; + r |= t << 1; + CLR_NZVC; + SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $6A DEC indexed -***- */ +INLINE void dec_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t = RM(EAD) - 1; + CLR_NZV; SET_FLAGS8D(t); + WM(EAD,t); +} + +/* $6B TIM indexed */ +INLINE void tim_ix( void ) +{ + UINT8 r,im,m; + IMMBYTE(im); + fetch_effective_address(); + m = RM(EAD); + r = im & m; + CLR_NZV; + SET_NZ8(r); +} + +/* $6C INC indexed -***- */ +INLINE void inc_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t = RM(EAD) + 1; + CLR_NZV; SET_FLAGS8I(t); + WM(EAD,t); +} + +/* $6D TST indexed -**0- */ +INLINE void tst_ix( void ) +{ + UINT8 t; + fetch_effective_address(); + t = RM(EAD); + CLR_NZV; + SET_NZ8(t); +} + +/* $6E JMP indexed ----- */ +INLINE void jmp_ix( void ) +{ + fetch_effective_address(); + PCD = EAD; + CHANGE_PC; +} + +/* $6F CLR indexed -0100 */ +INLINE void clr_ix( void ) +{ + UINT32 dummy; + fetch_effective_address(); + dummy = RM(EAD); + WM(EAD,0); + CLR_NZVC; SEZ; +} + +/* $70 NEG extended ?**** */ +INLINE void neg_ex( void ) +{ + UINT16 r,t; + EXTBYTE(t); r=-t; + CLR_NZVC; SET_FLAGS8(0,t,r); + WM(EAD,r); +} + +/* $71 OIM extended */ +INLINE void oim_ex( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + EXTBYTE(t); + r = im | t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $72 AIM extended */ +INLINE void aim_ex( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + EXTBYTE(t); + r = im & t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $73 COM extended -**01 */ +INLINE void com_ex( void ) +{ + UINT8 t; + EXTBYTE(t); t = ~t; + CLR_NZV; SET_NZ8(t); SEC; + WM(EAD,t); +} + +/* $74 LSR extended -0*-* */ +INLINE void lsr_ex( void ) +{ + UINT8 t; + EXTBYTE(t); CLR_NZC; CC |= (t & CC_C); + t>>=1; SET_Z8(t); + WM(EAD,t); +} + +/* $75 EIM extended */ +INLINE void eim_ex( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + EXTBYTE(t); + r = im ^ t; + CLR_NZV; + SET_NZ8(r); + WM(EAD,r); +} + +/* $76 ROR extended -**-* */ +INLINE void ror_ex( void ) +{ + UINT8 t,r; + EXTBYTE(t); r=(CC & CC_C) << 7; + CLR_NZC; CC |= (t & CC_C); + r |= t>>1; SET_NZ8(r); + WM(EAD,r); +} + +/* $77 ASR extended ?**-* */ +INLINE void asr_ex( void ) +{ + UINT8 t; + EXTBYTE(t); CLR_NZC; CC |= (t & CC_C); + t=(t&0x80)|(t>>1); + SET_NZ8(t); + WM(EAD,t); +} + +/* $78 ASL extended ?**** */ +INLINE void asl_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); r=t<<1; + CLR_NZVC; SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $79 ROL extended -**** */ +INLINE void rol_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); r = (CC & CC_C) | (t << 1); + CLR_NZVC; SET_FLAGS8(t,t,r); + WM(EAD,r); +} + +/* $7A DEC extended -***- */ +INLINE void dec_ex( void ) +{ + UINT8 t; + EXTBYTE(t); --t; + CLR_NZV; SET_FLAGS8D(t); + WM(EAD,t); +} + +/* $7B TIM extended */ +INLINE void tim_ex( void ) +{ + UINT8 r,t,im; + IMMBYTE(im); + EXTBYTE(t); + r = im & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $7C INC extended -***- */ +INLINE void inc_ex( void ) +{ + UINT8 t; + EXTBYTE(t); ++t; + CLR_NZV; SET_FLAGS8I(t); + WM(EAD,t); +} + +/* $7D TST extended -**0- */ +INLINE void tst_ex( void ) +{ + UINT8 t; + EXTBYTE(t); CLR_NZV; SET_NZ8(t); +} + +/* $7E JMP extended ----- */ +INLINE void jmp_ex( void ) +{ + EXTENDED; + PCD = EAD; + CHANGE_PC; +} + +/* $7F CLR extended -0100 */ +INLINE void clr_ex( void ) +{ + UINT32 dummy; + EXTENDED; + dummy = RM(EAD); + WM(EAD,0); + CLR_NZVC; SEZ; +} + +/* $80 SUBA immediate ?**** */ +INLINE void suba_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $81 CMPA immediate ?**** */ +INLINE void cmpa_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); +} + +/* $82 SBCA immediate ?**** */ +INLINE void sbca_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = A - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $83 SUBD (CMPD CMPU) immediate -**** */ +INLINE void subd_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $1080 SUBW immediate -**** */ +INLINE void subw_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $1083 CMPD immediate -**** */ +INLINE void cmpd_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $1081 CMPW immediate -**** */ +INLINE void cmpw_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $1183 CMPU immediate -**** */ +INLINE void cmpu_im( void ) +{ + UINT32 r, d; + PAIR b; + IMMWORD(b); + d = U; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $84 ANDA immediate -**0- */ +INLINE void anda_im( void ) +{ + UINT8 t; + IMMBYTE(t); + A &= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $85 BITA immediate -**0- */ +INLINE void bita_im( void ) +{ + UINT8 t,r; + IMMBYTE(t); + r = A & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $86 LDA immediate -**0- */ +INLINE void lda_im( void ) +{ + IMMBYTE(A); + CLR_NZV; + SET_NZ8(A); +} + +/* $88 EORA immediate -**0- */ +INLINE void eora_im( void ) +{ + UINT8 t; + IMMBYTE(t); + A ^= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $89 ADCA immediate ***** */ +INLINE void adca_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = A + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $8A ORA immediate -**0- */ +INLINE void ora_im( void ) +{ + UINT8 t; + IMMBYTE(t); + A |= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $8B ADDA immediate ***** */ +INLINE void adda_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = A + t; + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $8C CMPX (CMPY CMPS) immediate -**** */ +INLINE void cmpx_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = X; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $108C CMPY immediate -**** */ +INLINE void cmpy_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = Y; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $118C CMPS immediate -**** */ +INLINE void cmps_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = S; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $8D BSR ----- */ +INLINE void bsr( void ) +{ + UINT8 t; + IMMBYTE(t); + PUSHWORD(pPC); + PC += SIGNED(t); + CHANGE_PC; +} + +/* $8E LDX (LDY) immediate -**0- */ +INLINE void ldx_im( void ) +{ + IMMWORD(pX); + CLR_NZV; + SET_NZ16(X); +} + +/* $CD LDQ immediate -**0- */ +INLINE void ldq_im( void ) +{ + PAIR q; + + IMMLONG(q); + D = q.w.h; + W = q.w.l; + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $108E LDY immediate -**0- */ +INLINE void ldy_im( void ) +{ + IMMWORD(pY); + CLR_NZV; + SET_NZ16(Y); +} + +/* $118f MULD immediate */ +INLINE void muld_im( void ) +{ + PAIR t, q; + + IMMWORD( t ); + q.d = (INT16) D * (INT16)t.w.l; + D = q.w.h; + W = q.w.l; + CLR_NZVC; + SET_NZ16(D); +} + +/* $118d DIVD immediate */ +INLINE void divd_im( void ) +{ + UINT8 t; + INT16 v, oldD; + + IMMBYTE( t ); + + if( t != 0 ) + { + oldD = D; + v = (INT16) D / (INT8) t; + A = (INT16) D % (INT8) t; + B = v; + + CLR_NZVC; + SET_NZ8(B); + + if( B & 0x01 ) + SEC; + + if( (INT16)D < 0 ) + SEN; + + if ( (v > 127) || (v < -128) ) /* soft overflow */ + { + SEV; + + if( (v > 255) || (v < -256) ) /* hard overflow - division is aborted */ + { + SET_NZ16( oldD ); + D = abs( oldD ); + } + } + } + else + { + hd6309_ICount -= 8; + DZError(); + } +} + +/* $118e DIVQ immediate */ +INLINE void divq_im( void ) +{ + PAIR t,q, oldQ; + INT32 v; + + IMMWORD( t ); + + q.w.h = D; + q.w.l = W; + + if( t.w.l != 0 ) + { + oldQ = q; + + v = (INT32) q.d / (INT16) t.w.l; + D = (INT32) q.d % (INT16) t.w.l; + W = v; + + CLR_NZVC; + SET_NZ16(W); + + if( W & 0x0001 ) + SEC; + + if ( (v > 32768) || (v < -35767) ) /* soft overflow */ + { + SEV; + + if( (v > 65536 ) || (v < -65535 ) ) /* hard overflow - division is aborted */ + { + if( (INT32)oldQ.d < 0 ) + SEN; + else if( oldQ.d == 0 ) + SEZ; + + t.w.l = abs( t.w.l ); + D = oldQ.w.h; + W = oldQ.w.l; + } + } + } + else + DZError(); +} + +/* $90 SUBA direct ?**** */ +INLINE void suba_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $91 CMPA direct ?**** */ +INLINE void cmpa_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); +} + +/* $92 SBCA direct ?**** */ +INLINE void sbca_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = A - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $93 SUBD (CMPD CMPU) direct -**** */ +INLINE void subd_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $1090 SUBW direct -**** */ +INLINE void subw_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $1093 CMPD direct -**** */ +INLINE void cmpd_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $1091 CMPW direct -**** */ +INLINE void cmpw_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $1193 CMPU direct -**** */ +INLINE void cmpu_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = U; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(U,b.d,r); +} + +/* $94 ANDA direct -**0- */ +INLINE void anda_di( void ) +{ + UINT8 t; + DIRBYTE(t); + A &= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $95 BITA direct -**0- */ +INLINE void bita_di( void ) +{ + UINT8 t,r; + DIRBYTE(t); + r = A & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $96 LDA direct -**0- */ +INLINE void lda_di( void ) +{ + DIRBYTE(A); + CLR_NZV; + SET_NZ8(A); +} + +/* $97 STA direct -**0- */ +INLINE void sta_di( void ) +{ + CLR_NZV; + SET_NZ8(A); + DIRECT; + WM(EAD,A); +} + +/* $98 EORA direct -**0- */ +INLINE void eora_di( void ) +{ + UINT8 t; + DIRBYTE(t); + A ^= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $99 ADCA direct ***** */ +INLINE void adca_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = A + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $9A ORA direct -**0- */ +INLINE void ora_di( void ) +{ + UINT8 t; + DIRBYTE(t); + A |= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $9B ADDA direct ***** */ +INLINE void adda_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = A + t; + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $9C CMPX (CMPY CMPS) direct -**** */ +INLINE void cmpx_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = X; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $109C CMPY direct -**** */ +INLINE void cmpy_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = Y; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $119C CMPS direct -**** */ +INLINE void cmps_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = S; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $9D JSR direct ----- */ +INLINE void jsr_di( void ) +{ + DIRECT; + PUSHWORD(pPC); + PCD = EAD; + CHANGE_PC; +} + +/* $9E LDX (LDY) direct -**0- */ +INLINE void ldx_di( void ) +{ + DIRWORD(pX); + CLR_NZV; + SET_NZ16(X); +} + +/* $119f MULD direct -**0- */ +INLINE void muld_di( void ) +{ + PAIR t,q; + + DIRWORD(t); + q.d = (INT16) D * (INT16)t.w.l; + + D = q.w.h; + W = q.w.l; + CLR_NZVC; + SET_NZ16(D); +} + +/* $119d DIVD direct -**0- */ +INLINE void divd_di( void ) +{ + UINT8 t; + INT16 v, oldD; + + DIRBYTE(t); + + if( t != 0 ) + { + oldD = D; + v = (INT16) D / (INT8) t; + A = (INT16) D % (INT8) t; + B = v; + + CLR_NZVC; + SET_NZ8(B); + + if( B & 0x01 ) + SEC; + + if( (INT16)D < 0 ) + SEN; + + if ( (v > 127) || (v < -128) ) /* soft overflow */ + { + SEV; + + if( (v > 255) || (v < -256) ) /* hard overflow - division is aborted */ + { + SET_NZ16( oldD ); + D = abs( oldD ); + } + } + } + else + { + hd6309_ICount -= 8; + DZError(); + } +} + +/* $119e DIVQ direct -**0- */ +INLINE void divq_di( void ) +{ + PAIR t,q, oldQ; + INT32 v; + + DIRWORD(t); + + q.w.h = D; + q.w.l = W; + + if( t.w.l != 0 ) + { + oldQ = q; + + v = (INT32) q.d / (INT16) t.w.l; + D = (INT32) q.d % (INT16) t.w.l; + W = v; + + CLR_NZVC; + SET_NZ16(W); + + if( W & 0x0001 ) + SEC; + + if ( (v > 32767) || (v < -32768) ) /* soft overflow */ + { + SEV; + + if( (v > 65535 ) || (v < -65536 ) ) /* hard overflow - division is aborted */ + { + if( (INT32)oldQ.d < 0 ) + SEN; + else if( oldQ.d == 0 ) + SEZ; + + t.w.l = abs( t.w.l ); + D = oldQ.w.h; + W = oldQ.w.l; + } + } + } + else + DZError(); +} +/* $10dc LDQ direct -**0- */ +INLINE void ldq_di( void ) +{ + PAIR q; + + DIRLONG(q); + D = q.w.h; + W = q.w.l; + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $109E LDY direct -**0- */ +INLINE void ldy_di( void ) +{ + DIRWORD(pY); + CLR_NZV; + SET_NZ16(Y); +} + +/* $9F STX (STY) direct -**0- */ +INLINE void stx_di( void ) +{ + CLR_NZV; + SET_NZ16(X); + DIRECT; + WM16(EAD,&pX); +} + +/* $10dd STQ direct -**0- */ +INLINE void stq_di( void ) +{ + PAIR q; + + q.w.h = D; + q.w.l = W; + DIRECT; + WM32(EAD,&q); + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $109F STY direct -**0- */ +INLINE void sty_di( void ) +{ + CLR_NZV; + SET_NZ16(Y); + DIRECT; + WM16(EAD,&pY); +} + +/* $a0 SUBA indexed ?**** */ +INLINE void suba_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $a1 CMPA indexed ?**** */ +INLINE void cmpa_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); +} + +/* $a2 SBCA indexed ?**** */ +INLINE void sbca_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = A - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $a3 SUBD (CMPD CMPU) indexed -**** */ +INLINE void subd_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $10a0 SUBW indexed -**** */ +INLINE void subw_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $10a3 CMPD indexed -**** */ +INLINE void cmpd_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $10a1 CMPW indexed -**** */ +INLINE void cmpw_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $11a3 CMPU indexed -**** */ +INLINE void cmpu_ix( void ) +{ + UINT32 r; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + r = U - b.d; + CLR_NZVC; + SET_FLAGS16(U,b.d,r); +} + +/* $a4 ANDA indexed -**0- */ +INLINE void anda_ix( void ) +{ + fetch_effective_address(); + A &= RM(EAD); + CLR_NZV; + SET_NZ8(A); +} + +/* $a5 BITA indexed -**0- */ +INLINE void bita_ix( void ) +{ + UINT8 r; + fetch_effective_address(); + r = A & RM(EAD); + CLR_NZV; + SET_NZ8(r); +} + +/* $a6 LDA indexed -**0- */ +INLINE void lda_ix( void ) +{ + fetch_effective_address(); + A = RM(EAD); + CLR_NZV; + SET_NZ8(A); +} + +/* $a7 STA indexed -**0- */ +INLINE void sta_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ8(A); + WM(EAD,A); +} + +/* $a8 EORA indexed -**0- */ +INLINE void eora_ix( void ) +{ + fetch_effective_address(); + A ^= RM(EAD); + CLR_NZV; + SET_NZ8(A); +} + +/* $a9 ADCA indexed ***** */ +INLINE void adca_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = A + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $aA ORA indexed -**0- */ +INLINE void ora_ix( void ) +{ + fetch_effective_address(); + A |= RM(EAD); + CLR_NZV; + SET_NZ8(A); +} + +/* $aB ADDA indexed ***** */ +INLINE void adda_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = A + t; + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $aC CMPX (CMPY CMPS) indexed -**** */ +INLINE void cmpx_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = X; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $10aC CMPY indexed -**** */ +INLINE void cmpy_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = Y; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $11aC CMPS indexed -**** */ +INLINE void cmps_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = S; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $aD JSR indexed ----- */ +INLINE void jsr_ix( void ) +{ + fetch_effective_address(); + PUSHWORD(pPC); + PCD = EAD; + CHANGE_PC; +} + +/* $aE LDX (LDY) indexed -**0- */ +INLINE void ldx_ix( void ) +{ + fetch_effective_address(); + X=RM16(EAD); + CLR_NZV; + SET_NZ16(X); +} + +/* $11af MULD indexed -**0- */ +INLINE void muld_ix( void ) +{ + PAIR q; + UINT16 t; + + fetch_effective_address(); + t=RM16(EAD); + q.d = (INT16) D * (INT16)t; + + D = q.w.h; + W = q.w.l; + CLR_NZVC; + SET_NZ16(D); +} + +/* $11ad DIVD indexed -**0- */ +INLINE void divd_ix( void ) +{ + UINT8 t; + INT16 v, oldD; + + fetch_effective_address(); + t=RM(EAD); + + if( t != 0 ) + { + oldD = D; + v = (INT16) D / (INT8) t; + A = (INT16) D % (INT8) t; + B = v; + + CLR_NZVC; + SET_NZ8(B); + + if( B & 0x01 ) + SEC; + + if( (INT16)D < 0 ) + SEN; + + if ( (v > 127) || (v < -128) ) /* soft overflow */ + { + SEV; + + if( (v > 255) || (v < -256) ) /* hard overflow - division is aborted */ + { + SET_NZ16( oldD ); + D = abs( oldD ); + } + } + } + else + { + hd6309_ICount -= 8; + DZError(); + } +} + +/* $11ae DIVQ indexed -**0- */ +INLINE void divq_ix( void ) +{ + PAIR t,q, oldQ; + INT32 v; + + fetch_effective_address(); + t.w.l=RM16(EAD); + + q.w.h = D; + q.w.l = W; + + if( t.w.l != 0 ) + { + oldQ = q; + + v = (INT32) q.d / (INT16) t.w.l; + D = (INT32) q.d % (INT16) t.w.l; + W = v; + + CLR_NZVC; + SET_NZ16(W); + + if( W & 0x0001 ) + SEC; + + if ( (v > 32767) || (v < -32768) ) /* soft overflow */ + { + SEV; + + if( (v > 65535 ) || (v < -65536 ) ) /* hard overflow - division is aborted */ + { + if( (INT32)oldQ.d < 0 ) + SEN; + else if( oldQ.d == 0 ) + SEZ; + + t.w.l = abs( t.w.l ); + D = oldQ.w.h; + W = oldQ.w.l; + } + } + } + else + DZError(); +} + +/* $10ec LDQ indexed -**0- */ +INLINE void ldq_ix( void ) +{ + PAIR q; + + fetch_effective_address(); + q.d=RM32(EAD); + D = q.w.h; + W = q.w.l; + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $10aE LDY indexed -**0- */ +INLINE void ldy_ix( void ) +{ + fetch_effective_address(); + Y=RM16(EAD); + CLR_NZV; + SET_NZ16(Y); +} + +/* $aF STX (STY) indexed -**0- */ +INLINE void stx_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(X); + WM16(EAD,&pX); +} + +/* $10ed STQ indexed -**0- */ +INLINE void stq_ix( void ) +{ + PAIR q; + + q.w.h = D; + q.w.l = W; + fetch_effective_address(); + WM32(EAD,&q); + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $10aF STY indexed -**0- */ +INLINE void sty_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(Y); + WM16(EAD,&pY); +} + +/* $b0 SUBA extended ?**** */ +INLINE void suba_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $b1 CMPA extended ?**** */ +INLINE void cmpa_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = A - t; + CLR_NZVC; + SET_FLAGS8(A,t,r); +} + +/* $b2 SBCA extended ?**** */ +INLINE void sbca_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = A - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(A,t,r); + A = r; +} + +/* $b3 SUBD (CMPD CMPU) extended -**** */ +INLINE void subd_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $10b0 SUBW extended -**** */ +INLINE void subw_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $10b3 CMPD extended -**** */ +INLINE void cmpd_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = D; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $10b1 CMPW extended -**** */ +INLINE void cmpw_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = W; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $11b3 CMPU extended -**** */ +INLINE void cmpu_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = U; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $b4 ANDA extended -**0- */ +INLINE void anda_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + A &= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $b5 BITA extended -**0- */ +INLINE void bita_ex( void ) +{ + UINT8 t,r; + EXTBYTE(t); + r = A & t; + CLR_NZV; SET_NZ8(r); +} + +/* $b6 LDA extended -**0- */ +INLINE void lda_ex( void ) +{ + EXTBYTE(A); + CLR_NZV; + SET_NZ8(A); +} + +/* $b7 STA extended -**0- */ +INLINE void sta_ex( void ) +{ + CLR_NZV; + SET_NZ8(A); + EXTENDED; + WM(EAD,A); +} + +/* $b8 EORA extended -**0- */ +INLINE void eora_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + A ^= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $b9 ADCA extended ***** */ +INLINE void adca_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = A + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $bA ORA extended -**0- */ +INLINE void ora_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + A |= t; + CLR_NZV; + SET_NZ8(A); +} + +/* $bB ADDA extended ***** */ +INLINE void adda_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = A + t; + CLR_HNZVC; + SET_FLAGS8(A,t,r); + SET_H(A,t,r); + A = r; +} + +/* $bC CMPX (CMPY CMPS) extended -**** */ +INLINE void cmpx_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = X; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $10bC CMPY extended -**** */ +INLINE void cmpy_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = Y; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $11bC CMPS extended -**** */ +INLINE void cmps_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = S; + r = d - b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); +} + +/* $bD JSR extended ----- */ +INLINE void jsr_ex( void ) +{ + EXTENDED; + PUSHWORD(pPC); + PCD = EAD; + CHANGE_PC; +} + +/* $bE LDX (LDY) extended -**0- */ +INLINE void ldx_ex( void ) +{ + EXTWORD(pX); + CLR_NZV; + SET_NZ16(X); +} + +/* $11bf MULD extended -**0- */ +INLINE void muld_ex( void ) +{ + PAIR t, q; + + EXTWORD(t); + q.d = (INT16) D * (INT16)t.w.l; + + D = q.w.h; + W = q.w.l; + CLR_NZVC; + SET_NZ16(D); +} + +/* $11bd DIVD extended -**0- */ +INLINE void divd_ex( void ) +{ + UINT8 t; + INT16 v, oldD; + + EXTBYTE(t); + + if( t != 0 ) + { + oldD = D; + v = (INT16) D / (INT8) t; + A = (INT16) D % (INT8) t; + B = v; + + CLR_NZVC; + SET_NZ8(B); + + if( B & 0x01 ) + SEC; + + if( (INT16)D < 0 ) + SEN; + + if ( (v > 127) || (v < -128) ) /* soft overflow */ + { + SEV; + + if( (v > 255) || (v < -256) ) /* hard overflow - division is aborted */ + { + SET_NZ16( oldD ); + D = abs( oldD ); + } + } + } + else + { + hd6309_ICount -= 8; + DZError(); + } +} + +/* $11be DIVQ extended -**0- */ +INLINE void divq_ex( void ) +{ + PAIR t,q, oldQ; + INT32 v; + + EXTWORD(t); + + q.w.h = D; + q.w.l = W; + + if( t.w.l != 0 ) + { + oldQ = q; + + v = (INT32) q.d / (INT16) t.w.l; + D = (INT32) q.d % (INT16) t.w.l; + W = v; + + CLR_NZVC; + SET_NZ16(W); + + if( W & 0x0001 ) + SEC; + + if ( (v > 32767) || (v < -32768) ) /* soft overflow */ + { + SEV; + + if( (v > 65535 ) || (v < -65536 ) ) /* hard overflow - division is aborted */ + { + if( (INT32)oldQ.d < 0 ) + SEN; + else if( oldQ.d == 0 ) + SEZ; + + t.w.l = abs( t.w.l ); + D = oldQ.w.h; + W = oldQ.w.l; + } + } + } + else + DZError(); +} + +/* $10fc LDQ extended -**0- */ +INLINE void ldq_ex( void ) +{ + PAIR q; + + EXTLONG(q); + D = q.w.h; + W = q.w.l; + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $10bE LDY extended -**0- */ +INLINE void ldy_ex( void ) +{ + EXTWORD(pY); + CLR_NZV; + SET_NZ16(Y); +} + +/* $bF STX (STY) extended -**0- */ +INLINE void stx_ex( void ) +{ + CLR_NZV; + SET_NZ16(X); + EXTENDED; + WM16(EAD,&pX); +} + +/* $10fd STQ extended -**0- */ +INLINE void stq_ex( void ) +{ + PAIR q; + + q.w.h = D; + q.w.l = W; + EXTENDED; + WM32(EAD,&q); + CLR_NZV; + SET_N8(A); + SET_Z(q.d); +} + +/* $10bF STY extended -**0- */ +INLINE void sty_ex( void ) +{ + CLR_NZV; + SET_NZ16(Y); + EXTENDED; + WM16(EAD,&pY); +} + +/* $c0 SUBB immediate ?**** */ +INLINE void subb_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $1180 SUBE immediate ?**** */ +INLINE void sube_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); + E = r; +} + +/* $11C0 SUBF immediate ?**** */ +INLINE void subf_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); + F = r; +} + +/* $c1 CMPB immediate ?**** */ +INLINE void cmpb_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = B - t; + CLR_NZVC; SET_FLAGS8(B,t,r); +} + +/* $1181 CMPE immediate ?**** */ +INLINE void cmpe_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = E - t; + CLR_NZVC; SET_FLAGS8(E,t,r); +} + +/* $11C1 CMPF immediate ?**** */ +INLINE void cmpf_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = F - t; + CLR_NZVC; SET_FLAGS8(F,t,r); +} + +/* $c2 SBCB immediate ?**** */ +INLINE void sbcb_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = B - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $1082 SBCD immediate ?**** */ +INLINE void sbcd_im( void ) +{ + PAIR t; + UINT32 r; + IMMWORD(t); + r = D - t.w.l - (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $c3 ADDD immediate -**** */ +INLINE void addd_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = D; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $108b ADDW immediate -**** */ +INLINE void addw_im( void ) +{ + UINT32 r,d; + PAIR b; + IMMWORD(b); + d = W; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $118b ADDE immediate -**** */ +INLINE void adde_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = E + t; + CLR_HNZVC; + SET_FLAGS8(E,t,r); + SET_H(E,t,r); + E = r; +} + +/* $11Cb ADDF immediate -**** */ +INLINE void addf_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = F + t; + CLR_HNZVC; + SET_FLAGS8(F,t,r); + SET_H(F,t,r); + F = r; +} + +/* $c4 ANDB immediate -**0- */ +INLINE void andb_im( void ) +{ + UINT8 t; + IMMBYTE(t); + B &= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $1084 ANDD immediate -**0- */ +INLINE void andd_im( void ) +{ + PAIR t; + IMMWORD(t); + D &= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $c5 BITB immediate -**0- */ +INLINE void bitb_im( void ) +{ + UINT8 t,r; + IMMBYTE(t); + r = B & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $1085 BITD immediate -**0- */ +INLINE void bitd_im( void ) +{ + PAIR t; + UINT16 r; + IMMWORD(t); + r = B & t.w.l; + CLR_NZV; + SET_NZ16(r); +} + +/* $113c BITMD immediate -**0- */ +INLINE void bitmd_im( void ) +{ + /* + The following is from Darren A. + + The Z flag is the only condition code that should be affected by BITMD. + For example, when the "Divide-By-Zero" flag (bit 7) is set, BITMD should + not set the N flag. It should also NOT clear the V flag (unlike the other + BIT instructions). + + His comments come from experimentation and differ from Chris Burke + */ + + UINT8 t,r; + IMMBYTE(t); + r = MD & t; + CLR_Z; + SET_Z8(r); + + MD &= ~(r & 0xc0); /* clear the tested high bits */ + +} + +/* $c6 LDB immediate -**0- */ +INLINE void ldb_im( void ) +{ + IMMBYTE(B); + CLR_NZV; + SET_NZ8(B); +} + +/* $113d LDMD immediate -**0- */ +INLINE void ldmd_im( void ) +{ + IMMBYTE(MD); + UpdateState(); +} + +/* $1186 LDE immediate -**0- */ +INLINE void lde_im( void ) +{ + IMMBYTE(E); + CLR_NZV; + SET_NZ8(E); +} + +/* $11C6 LDF immediate -**0- */ +INLINE void ldf_im( void ) +{ + IMMBYTE(F); + CLR_NZV; + SET_NZ8(F); +} + +/* $c8 EORB immediate -**0- */ +INLINE void eorb_im( void ) +{ + UINT8 t; + IMMBYTE(t); + B ^= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $1088 EORD immediate -**0- */ +INLINE void eord_im( void ) +{ + PAIR t; + IMMWORD(t); + D ^= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $c9 ADCB immediate ***** */ +INLINE void adcb_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = B + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $1089 ADCD immediate ***** */ +INLINE void adcd_im( void ) +{ + PAIR t; + UINT32 r; + IMMWORD(t); + r = D + t.w.l + (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $cA ORB immediate -**0- */ +INLINE void orb_im( void ) +{ + UINT8 t; + IMMBYTE(t); + B |= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $108a ORD immediate -**0- */ +INLINE void ord_im( void ) +{ + PAIR t; + IMMWORD(t); + D |= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $cB ADDB immediate ***** */ +INLINE void addb_im( void ) +{ + UINT16 t,r; + IMMBYTE(t); + r = B + t; + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $cC LDD immediate -**0- */ +INLINE void ldd_im( void ) +{ + PAIR t; + + IMMWORD(t); + D=t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $1086 LDW immediate -**0- */ +INLINE void ldw_im( void ) +{ + PAIR t; + IMMWORD(t); + W=t.w.l; + CLR_NZV; + SET_NZ16(W); +} + +/* $cE LDU (LDS) immediate -**0- */ +INLINE void ldu_im( void ) +{ + IMMWORD(pU); + CLR_NZV; + SET_NZ16(U); +} + +/* $10cE LDS immediate -**0- */ +INLINE void lds_im( void ) +{ + IMMWORD(pS); + CLR_NZV; + SET_NZ16(S); + hd6309.int_state |= HD6309_LDS; +} + +/* $d0 SUBB direct ?**** */ +INLINE void subb_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $1190 SUBE direct ?**** */ +INLINE void sube_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); + E = r; +} + +/* $11d0 SUBF direct ?**** */ +INLINE void subf_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); + F = r; +} + +/* $d1 CMPB direct ?**** */ +INLINE void cmpb_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); +} + +/* $1191 CMPE direct ?**** */ +INLINE void cmpe_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); +} + +/* $11D1 CMPF direct ?**** */ +INLINE void cmpf_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); +} + +/* $d2 SBCB direct ?**** */ +INLINE void sbcb_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = B - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $1092 SBCD direct ?**** */ +INLINE void sbcd_di( void ) +{ + PAIR t; + UINT32 r; + DIRWORD(t); + r = D - t.w.l - (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $d3 ADDD direct -**** */ +INLINE void addd_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = D; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $109b ADDW direct -**** */ +INLINE void addw_di( void ) +{ + UINT32 r,d; + PAIR b; + DIRWORD(b); + d = W; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $119b ADDE direct -**** */ +INLINE void adde_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = E + t; + CLR_HNZVC; + SET_FLAGS8(E,t,r); + SET_H(E,t,r); + E = r; +} + +/* $11db ADDF direct -**** */ +INLINE void addf_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = F + t; + CLR_HNZVC; + SET_FLAGS8(F,t,r); + SET_H(F,t,r); + F = r; +} + +/* $d4 ANDB direct -**0- */ +INLINE void andb_di( void ) +{ + UINT8 t; + DIRBYTE(t); + B &= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $1094 ANDD direct -**0- */ +INLINE void andd_di( void ) +{ + PAIR t; + DIRWORD(t); + D &= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $d5 BITB direct -**0- */ +INLINE void bitb_di( void ) +{ + UINT8 t,r; + DIRBYTE(t); + r = B & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $1095 BITD direct -**0- */ +INLINE void bitd_di( void ) +{ + PAIR t; + UINT16 r; + DIRWORD(t); + r = B & t.w.l; + CLR_NZV; + SET_NZ16(r); +} + +/* $d6 LDB direct -**0- */ +INLINE void ldb_di( void ) +{ + DIRBYTE(B); + CLR_NZV; + SET_NZ8(B); +} + +/* $1196 LDE direct -**0- */ +INLINE void lde_di( void ) +{ + DIRBYTE(E); + CLR_NZV; + SET_NZ8(E); +} + +/* $11d6 LDF direct -**0- */ +INLINE void ldf_di( void ) +{ + DIRBYTE(F); + CLR_NZV; + SET_NZ8(F); +} + +/* $d7 STB direct -**0- */ +INLINE void stb_di( void ) +{ + CLR_NZV; + SET_NZ8(B); + DIRECT; + WM(EAD,B); +} + +/* $1197 STE direct -**0- */ +INLINE void ste_di( void ) +{ + CLR_NZV; + SET_NZ8(E); + DIRECT; + WM(EAD,E); +} + +/* $11D7 STF direct -**0- */ +INLINE void stf_di( void ) +{ + CLR_NZV; + SET_NZ8(F); + DIRECT; + WM(EAD,F); +} + +/* $d8 EORB direct -**0- */ +INLINE void eorb_di( void ) +{ + UINT8 t; + DIRBYTE(t); + B ^= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $1098 EORD direct -**0- */ +INLINE void eord_di( void ) +{ + PAIR t; + DIRWORD(t); + D ^= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $d9 ADCB direct ***** */ +INLINE void adcb_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = B + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $1099 adcd direct ***** */ +INLINE void adcd_di( void ) +{ + UINT32 r; + PAIR t; + + DIRWORD(t); + r = D + t.w.l + (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $dA ORB direct -**0- */ +INLINE void orb_di( void ) +{ + UINT8 t; + DIRBYTE(t); + B |= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $109a ORD direct -**0- */ +INLINE void ord_di( void ) +{ + PAIR t; + DIRWORD(t); + D |= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $dB ADDB direct ***** */ +INLINE void addb_di( void ) +{ + UINT16 t,r; + DIRBYTE(t); + r = B + t; + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $dC LDD direct -**0- */ +INLINE void ldd_di( void ) +{ + PAIR t; + DIRWORD(t); + D=t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $1096 LDW direct -**0- */ +INLINE void ldw_di( void ) +{ + PAIR t; + DIRWORD(t); + W=t.w.l; + CLR_NZV; + SET_NZ16(W); +} + +/* $dD STD direct -**0- */ +INLINE void std_di( void ) +{ + CLR_NZV; + SET_NZ16(D); + DIRECT; + WM16(EAD,&pD); +} + +/* $1097 STW direct -**0- */ +INLINE void stw_di( void ) +{ + CLR_NZV; + SET_NZ16(W); + DIRECT; + WM16(EAD,&pW); +} + +/* $dE LDU (LDS) direct -**0- */ +INLINE void ldu_di( void ) +{ + DIRWORD(pU); + CLR_NZV; + SET_NZ16(U); +} + +/* $10dE LDS direct -**0- */ +INLINE void lds_di( void ) +{ + DIRWORD(pS); + CLR_NZV; + SET_NZ16(S); + hd6309.int_state |= HD6309_LDS; +} + +/* $dF STU (STS) direct -**0- */ +INLINE void stu_di( void ) +{ + CLR_NZV; + SET_NZ16(U); + DIRECT; + WM16(EAD,&pU); +} + +/* $10dF STS direct -**0- */ +INLINE void sts_di( void ) +{ + CLR_NZV; + SET_NZ16(S); + DIRECT; + WM16(EAD,&pS); +} + +/* $e0 SUBB indexed ?**** */ +INLINE void subb_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $11a0 SUBE indexed ?**** */ +INLINE void sube_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); + E = r; +} + +/* $11e0 SUBF indexed ?**** */ +INLINE void subf_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); + F = r; +} + +/* $e1 CMPB indexed ?**** */ +INLINE void cmpb_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); +} + +/* $11a1 CMPE indexed ?**** */ +INLINE void cmpe_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); +} + +/* $11e1 CMPF indexed ?**** */ +INLINE void cmpf_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); +} + +/* $e2 SBCB indexed ?**** */ +INLINE void sbcb_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = B - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $10a2 SBCD indexed ?**** */ +INLINE void sbcd_ix( void ) +{ + UINT32 t,r; + fetch_effective_address(); + t = RM16(EAD); + r = D - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t,r); + D = r; +} + +/* $e3 ADDD indexed -**** */ +INLINE void addd_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = D; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $10ab ADDW indexed -**** */ +INLINE void addw_ix( void ) +{ + UINT32 r,d; + PAIR b; + fetch_effective_address(); + b.d=RM16(EAD); + d = W; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $11ab ADDE indexed -**** */ +INLINE void adde_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = E + t; + CLR_HNZVC; + SET_FLAGS8(E,t,r); + SET_H(E,t,r); + E = r; +} + +/* $11eb ADDF indexed -**** */ +INLINE void addf_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = F + t; + CLR_HNZVC; + SET_FLAGS8(F,t,r); + SET_H(F,t,r); + F = r; +} + +/* $e4 ANDB indexed -**0- */ +INLINE void andb_ix( void ) +{ + fetch_effective_address(); + B &= RM(EAD); + CLR_NZV; + SET_NZ8(B); +} + +/* $10a4 ANDD indexed -**0- */ +INLINE void andd_ix( void ) +{ + fetch_effective_address(); + D &= RM16(EAD); + CLR_NZV; + SET_NZ16(D); +} + +/* $e5 BITB indexed -**0- */ +INLINE void bitb_ix( void ) +{ + UINT8 r; + fetch_effective_address(); + r = B & RM(EAD); + CLR_NZV; + SET_NZ8(r); +} + +/* $10a5 BITD indexed -**0- */ +INLINE void bitd_ix( void ) +{ + UINT16 r; + fetch_effective_address(); + r = D & RM16(EAD); + CLR_NZV; + SET_NZ16(r); +} + +/* $e6 LDB indexed -**0- */ +INLINE void ldb_ix( void ) +{ + fetch_effective_address(); + B = RM(EAD); + CLR_NZV; + SET_NZ8(B); +} + +/* $11a6 LDE indexed -**0- */ +INLINE void lde_ix( void ) +{ + fetch_effective_address(); + E = RM(EAD); + CLR_NZV; + SET_NZ8(E); +} + +/* $11e6 LDF indexed -**0- */ +INLINE void ldf_ix( void ) +{ + fetch_effective_address(); + F = RM(EAD); + CLR_NZV; + SET_NZ8(F); +} + +/* $e7 STB indexed -**0- */ +INLINE void stb_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ8(B); + WM(EAD,B); +} + +/* $11a7 STE indexed -**0- */ +INLINE void ste_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ8(E); + WM(EAD,E); +} + +/* $11e7 STF indexed -**0- */ +INLINE void stf_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ8(F); + WM(EAD,F); +} + +/* $e8 EORB indexed -**0- */ +INLINE void eorb_ix( void ) +{ + fetch_effective_address(); + B ^= RM(EAD); + CLR_NZV; + SET_NZ8(B); +} + +/* $10a8 EORD indexed -**0- */ +INLINE void eord_ix( void ) +{ + fetch_effective_address(); + D ^= RM16(EAD); + CLR_NZV; + SET_NZ16(D); +} + +/* $e9 ADCB indexed ***** */ +INLINE void adcb_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = B + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $10a9 ADCD indexed ***** */ +INLINE void adcd_ix( void ) +{ + UINT32 r; + PAIR t; + fetch_effective_address(); + t.d = RM16(EAD); + r = D + t.d + (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.d,r); + D = r; +} + +/* $eA ORB indexed -**0- */ +INLINE void orb_ix( void ) +{ + fetch_effective_address(); + B |= RM(EAD); + CLR_NZV; + SET_NZ8(B); +} + +/* $10aa ORD indexed -**0- */ +INLINE void ord_ix( void ) +{ + fetch_effective_address(); + D |= RM16(EAD); + CLR_NZV; + SET_NZ16(D); +} + +/* $eB ADDB indexed ***** */ +INLINE void addb_ix( void ) +{ + UINT16 t,r; + fetch_effective_address(); + t = RM(EAD); + r = B + t; + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $eC LDD indexed -**0- */ +INLINE void ldd_ix( void ) +{ + fetch_effective_address(); + D=RM16(EAD); + CLR_NZV; SET_NZ16(D); +} + +/* $10a6 LDW indexed -**0- */ +INLINE void ldw_ix( void ) +{ + fetch_effective_address(); + W=RM16(EAD); + CLR_NZV; SET_NZ16(W); +} + +/* $eD STD indexed -**0- */ +INLINE void std_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(D); + WM16(EAD,&pD); +} + +/* $10a7 STW indexed -**0- */ +INLINE void stw_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(W); + WM16(EAD,&pW); +} + +/* $eE LDU (LDS) indexed -**0- */ +INLINE void ldu_ix( void ) +{ + fetch_effective_address(); + U=RM16(EAD); + CLR_NZV; + SET_NZ16(U); +} + +/* $10eE LDS indexed -**0- */ +INLINE void lds_ix( void ) +{ + fetch_effective_address(); + S=RM16(EAD); + CLR_NZV; + SET_NZ16(S); + hd6309.int_state |= HD6309_LDS; +} + +/* $eF STU (STS) indexed -**0- */ +INLINE void stu_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(U); + WM16(EAD,&pU); +} + +/* $10eF STS indexed -**0- */ +INLINE void sts_ix( void ) +{ + fetch_effective_address(); + CLR_NZV; + SET_NZ16(S); + WM16(EAD,&pS); +} + +/* $f0 SUBB extended ?**** */ +INLINE void subb_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $11b0 SUBE extended ?**** */ +INLINE void sube_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); + E = r; +} + +/* $11f0 SUBF extended ?**** */ +INLINE void subf_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); + F = r; +} + +/* $f1 CMPB extended ?**** */ +INLINE void cmpb_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = B - t; + CLR_NZVC; + SET_FLAGS8(B,t,r); +} + +/* $11b1 CMPE extended ?**** */ +INLINE void cmpe_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = E - t; + CLR_NZVC; + SET_FLAGS8(E,t,r); +} + +/* $11f1 CMPF extended ?**** */ +INLINE void cmpf_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = F - t; + CLR_NZVC; + SET_FLAGS8(F,t,r); +} + +/* $f2 SBCB extended ?**** */ +INLINE void sbcb_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = B - t - (CC & CC_C); + CLR_NZVC; + SET_FLAGS8(B,t,r); + B = r; +} + +/* $10b2 SBCD extended ?**** */ +INLINE void sbcd_ex( void ) +{ + PAIR t = {{0,}}; + UINT32 r; + + EXTWORD(t); + r = D - t.w.l - (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $f3 ADDD extended -**** */ +INLINE void addd_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = D; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + D = r; +} + +/* $10bb ADDW extended -**** */ +INLINE void addw_ex( void ) +{ + UINT32 r,d; + PAIR b = {{0,}}; + EXTWORD(b); + d = W; + r = d + b.d; + CLR_NZVC; + SET_FLAGS16(d,b.d,r); + W = r; +} + +/* $11bb ADDE extended -**** */ +INLINE void adde_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = E + t; + CLR_HNZVC; + SET_FLAGS8(E,t,r); + SET_H(E,t,r); + E = r; +} + +/* $11fb ADDF extended -**** */ +INLINE void addf_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = F + t; + CLR_HNZVC; + SET_FLAGS8(F,t,r); + SET_H(F,t,r); + F = r; +} + +/* $f4 ANDB extended -**0- */ +INLINE void andb_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + B &= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $10b4 ANDD extended -**0- */ +INLINE void andd_ex( void ) +{ + PAIR t = {{0,}}; + EXTWORD(t); + D &= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $f5 BITB extended -**0- */ +INLINE void bitb_ex( void ) +{ + UINT8 t,r; + EXTBYTE(t); + r = B & t; + CLR_NZV; + SET_NZ8(r); +} + +/* $10b5 BITD extended -**0- */ +INLINE void bitd_ex( void ) +{ + PAIR t = {{0,}}; + UINT8 r; + EXTWORD(t); + r = B & t.w.l; + CLR_NZV; + SET_NZ16(r); +} + +/* $f6 LDB extended -**0- */ +INLINE void ldb_ex( void ) +{ + EXTBYTE(B); + CLR_NZV; + SET_NZ8(B); +} + +/* $11b6 LDE extended -**0- */ +INLINE void lde_ex( void ) +{ + EXTBYTE(E); + CLR_NZV; + SET_NZ8(E); +} + +/* $11f6 LDF extended -**0- */ +INLINE void ldf_ex( void ) +{ + EXTBYTE(F); + CLR_NZV; + SET_NZ8(F); +} + +/* $f7 STB extended -**0- */ +INLINE void stb_ex( void ) +{ + CLR_NZV; + SET_NZ8(B); + EXTENDED; + WM(EAD,B); +} + +/* $11b7 STE extended -**0- */ +INLINE void ste_ex( void ) +{ + CLR_NZV; + SET_NZ8(E); + EXTENDED; + WM(EAD,E); +} + +/* $11f7 STF extended -**0- */ +INLINE void stf_ex( void ) +{ + CLR_NZV; + SET_NZ8(F); + EXTENDED; + WM(EAD,F); +} + +/* $f8 EORB extended -**0- */ +INLINE void eorb_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + B ^= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $10b8 EORD extended -**0- */ +INLINE void eord_ex( void ) +{ + PAIR t = {{0,}}; + EXTWORD(t); + D ^= t.w.l; + CLR_NZV; + SET_NZ16(D); +} + +/* $f9 ADCB extended ***** */ +INLINE void adcb_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = B + t + (CC & CC_C); + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $10b9 ADCD extended ***** */ +INLINE void adcd_ex( void ) +{ + UINT32 r; + PAIR t; + EXTWORD(t); + r = D + t.w.l + (CC & CC_C); + CLR_NZVC; + SET_FLAGS16(D,t.w.l,r); + D = r; +} + +/* $fA ORB extended -**0- */ +INLINE void orb_ex( void ) +{ + UINT8 t; + EXTBYTE(t); + B |= t; + CLR_NZV; + SET_NZ8(B); +} + +/* $10ba ORD extended -**0- */ +INLINE void ord_ex( void ) +{ + PAIR t = {{0,}}; + EXTWORD(t); + D |= t.w.l; + CLR_NZV; + SET_NZ8(D); +} + +/* $fB ADDB extended ***** */ +INLINE void addb_ex( void ) +{ + UINT16 t,r; + EXTBYTE(t); + r = B + t; + CLR_HNZVC; + SET_FLAGS8(B,t,r); + SET_H(B,t,r); + B = r; +} + +/* $fC LDD extended -**0- */ +INLINE void ldd_ex( void ) +{ + EXTWORD(pD); + CLR_NZV; + SET_NZ16(D); +} + +/* $10b6 LDW extended -**0- */ +INLINE void ldw_ex( void ) +{ + EXTWORD(pW); + CLR_NZV; + SET_NZ16(W); +} + +/* $fD STD extended -**0- */ +INLINE void std_ex( void ) +{ + CLR_NZV; + SET_NZ16(D); + EXTENDED; + WM16(EAD,&pD); +} + +/* $10b7 STW extended -**0- */ +INLINE void stw_ex( void ) +{ + CLR_NZV; + SET_NZ16(W); + EXTENDED; + WM16(EAD,&pW); +} + +/* $fE LDU (LDS) extended -**0- */ +INLINE void ldu_ex( void ) +{ + EXTWORD(pU); + CLR_NZV; + SET_NZ16(U); +} + +/* $10fE LDS extended -**0- */ +INLINE void lds_ex( void ) +{ + EXTWORD(pS); + CLR_NZV; + SET_NZ16(S); + hd6309.int_state |= HD6309_LDS; +} + +/* $fF STU (STS) extended -**0- */ +INLINE void stu_ex( void ) +{ + CLR_NZV; + SET_NZ16(U); + EXTENDED; + WM16(EAD,&pU); +} + +/* $10fF STS extended -**0- */ +INLINE void sts_ex( void ) +{ + CLR_NZV; + SET_NZ16(S); + EXTENDED; + WM16(EAD,&pS); +} + +/* $10xx opcodes */ +INLINE void pref10( void ) +{ + UINT8 ireg2 = ROP(PCD); + PC++; + +#ifdef BIG_SWITCH + switch( ireg2 ) + { + case 0x21: lbrn(); break; + case 0x22: lbhi(); break; + case 0x23: lbls(); break; + case 0x24: lbcc(); break; + case 0x25: lbcs(); break; + case 0x26: lbne(); break; + case 0x27: lbeq(); break; + case 0x28: lbvc(); break; + case 0x29: lbvs(); break; + case 0x2a: lbpl(); break; + case 0x2b: lbmi(); break; + case 0x2c: lbge(); break; + case 0x2d: lblt(); break; + case 0x2e: lbgt(); break; + case 0x2f: lble(); break; + + case 0x30: addr_r(); break; + case 0x31: adcr(); break; + case 0x32: subr(); break; + case 0x33: sbcr(); break; + case 0x34: andr(); break; + case 0x35: orr(); break; + case 0x36: eorr(); break; + case 0x37: cmpr(); break; + case 0x38: pshsw(); break; + case 0x39: pulsw(); break; + case 0x3a: pshuw(); break; + case 0x3b: puluw(); break; + case 0x3f: swi2(); break; + + case 0x40: negd(); break; + case 0x43: comd(); break; + case 0x44: lsrd(); break; + case 0x46: rord(); break; + case 0x47: asrd(); break; + case 0x48: asld(); break; + case 0x49: rold(); break; + case 0x4a: decd(); break; + case 0x4c: incd(); break; + case 0x4d: tstd(); break; + case 0x4f: clrd(); break; + + case 0x53: comw(); break; + case 0x54: lsrw(); break; + case 0x56: rorw(); break; + case 0x59: rolw(); break; + case 0x5a: decw(); break; + case 0x5c: incw(); break; + case 0x5d: tstw(); break; + case 0x5f: clrw(); break; + + case 0x80: subw_im(); break; + case 0x81: cmpw_im(); break; + case 0x82: sbcd_im(); break; + case 0x83: cmpd_im(); break; + case 0x84: andd_im(); break; + case 0x85: bitd_im(); break; + case 0x86: ldw_im(); break; + case 0x88: eord_im(); break; + case 0x89: adcd_im(); break; + case 0x8a: ord_im(); break; + case 0x8b: addw_im(); break; + case 0x8c: cmpy_im(); break; + case 0x8e: ldy_im(); break; + + case 0x90: subw_di(); break; + case 0x91: cmpw_di(); break; + case 0x92: sbcd_di(); break; + case 0x93: cmpd_di(); break; + case 0x94: andd_di(); break; + case 0x95: bitd_di(); break; + case 0x96: ldw_di(); break; + case 0x97: stw_di(); break; + case 0x98: eord_di(); break; + case 0x99: adcd_di(); break; + case 0x9a: ord_di(); break; + case 0x9b: addw_di(); break; + case 0x9c: cmpy_di(); break; + case 0x9e: ldy_di(); break; + case 0x9f: sty_di(); break; + + case 0xa0: subw_ix(); break; + case 0xa1: cmpw_ix(); break; + case 0xa2: sbcd_ix(); break; + case 0xa3: cmpd_ix(); break; + case 0xa4: andd_ix(); break; + case 0xa5: bitd_ix(); break; + case 0xa6: ldw_ix(); break; + case 0xa7: stw_ix(); break; + case 0xa8: eord_ix(); break; + case 0xa9: adcd_ix(); break; + case 0xaa: ord_ix(); break; + case 0xab: addw_ix(); break; + case 0xac: cmpy_ix(); break; + case 0xae: ldy_ix(); break; + case 0xaf: sty_ix(); break; + + case 0xb0: subw_ex(); break; + case 0xb1: cmpw_ex(); break; + case 0xb2: sbcd_ex(); break; + case 0xb3: cmpd_ex(); break; + case 0xb4: andd_ex(); break; + case 0xb5: bitd_ex(); break; + case 0xb6: ldw_ex(); break; + case 0xb7: stw_ex(); break; + case 0xb8: eord_ex(); break; + case 0xb9: adcd_ex(); break; + case 0xba: ord_ex(); break; + case 0xbb: addw_ex(); break; + case 0xbc: cmpy_ex(); break; + case 0xbe: ldy_ex(); break; + case 0xbf: sty_ex(); break; + + case 0xce: lds_im(); break; + + case 0xdc: ldq_di(); break; + case 0xdd: stq_di(); break; + case 0xde: lds_di(); break; + case 0xdf: sts_di(); break; + + case 0xec: ldq_ix(); break; + case 0xed: stq_ix(); break; + case 0xee: lds_ix(); break; + case 0xef: sts_ix(); break; + + case 0xfc: ldq_ex(); break; + case 0xfd: stq_ex(); break; + case 0xfe: lds_ex(); break; + case 0xff: sts_ex(); break; + + default: IIError(); break; + } +#else + + (*hd6309_page01[ireg2])(); + +#endif /* BIG_SWITCH */ + + hd6309_ICount -= cycle_counts_page01[ireg2]; +} + +/* $11xx opcodes */ +INLINE void pref11( void ) +{ + UINT8 ireg2 = ROP(PCD); + PC++; + +#ifdef BIG_SWITCH + switch( ireg2 ) + { + case 0x30: band(); break; + case 0x31: biand(); break; + case 0x32: bor(); break; + case 0x33: bior(); break; + case 0x34: beor(); break; + case 0x35: bieor(); break; + case 0x36: ldbt(); break; + case 0x37: stbt(); break; + case 0x38: tfmpp(); break; /* Timing for TFM is actually 6+3n. */ + case 0x39: tfmmm(); break; /* To avoid saving the state, I decided */ + case 0x3a: tfmpc(); break; /* to push the initial 6 cycles to the end */ + case 0x3b: tfmcp(); break; /* We will soon see how this fairs! */ + case 0x3c: bitmd_im(); break; + case 0x3d: ldmd_im(); break; + case 0x3f: swi3(); break; + + case 0x43: come(); break; + case 0x4a: dece(); break; + case 0x4c: ince(); break; + case 0x4d: tste(); break; + case 0x4f: clre(); break; + + case 0x53: comf(); break; + case 0x5a: decf(); break; + case 0x5c: incf(); break; + case 0x5d: tstf(); break; + case 0x5f: clrf(); break; + + case 0x80: sube_im(); break; + case 0x81: cmpe_im(); break; + case 0x83: cmpu_im(); break; + case 0x86: lde_im(); break; + case 0x8b: adde_im(); break; + case 0x8c: cmps_im(); break; + case 0x8d: divd_im(); break; + case 0x8e: divq_im(); break; + case 0x8f: muld_im(); break; + + case 0x90: sube_di(); break; + case 0x91: cmpe_di(); break; + case 0x93: cmpu_di(); break; + case 0x96: lde_di(); break; + case 0x97: ste_di(); break; + case 0x9b: adde_di(); break; + case 0x9c: cmps_di(); break; + case 0x9d: divd_di(); break; + case 0x9e: divq_di(); break; + case 0x9f: muld_di(); break; + + case 0xa0: sube_ix(); break; + case 0xa1: cmpe_ix(); break; + case 0xa3: cmpu_ix(); break; + case 0xa6: lde_ix(); break; + case 0xa7: ste_ix(); break; + case 0xab: adde_ix(); break; + case 0xac: cmps_ix(); break; + case 0xad: divd_ix(); break; + case 0xae: divq_ix(); break; + case 0xaf: muld_ix(); break; + + case 0xb0: sube_ex(); break; + case 0xb1: cmpe_ex(); break; + case 0xb3: cmpu_ex(); break; + case 0xb6: lde_ex(); break; + case 0xb7: ste_ex(); break; + case 0xbb: adde_ex(); break; + case 0xbc: cmps_ex(); break; + case 0xbd: divd_ex(); break; + case 0xbe: divq_ex(); break; + case 0xbf: muld_ex(); break; + + case 0xc0: subf_im(); break; + case 0xc1: cmpf_im(); break; + case 0xc6: ldf_im(); break; + case 0xcb: addf_im(); break; + + case 0xd0: subf_di(); break; + case 0xd1: cmpf_di(); break; + case 0xd6: ldf_di(); break; + case 0xd7: stf_di(); break; + case 0xdb: addf_di(); break; + + case 0xe0: subf_ix(); break; + case 0xe1: cmpf_ix(); break; + case 0xe6: ldf_ix(); break; + case 0xe7: stf_ix(); break; + case 0xeb: addf_ix(); break; + + case 0xf0: subf_ex(); break; + case 0xf1: cmpf_ex(); break; + case 0xf6: ldf_ex(); break; + case 0xf7: stf_ex(); break; + case 0xfb: addf_ex(); break; + + default: IIError(); break; + } +#else + + (*hd6309_page11[ireg2])(); + +#endif /* BIG_SWITCH */ + hd6309_ICount -= cycle_counts_page11[ireg2]; +} + |