LayerOne / LayerOne2017_emu

test

Dependencies:   SDFileSystem mbed-dev

Fork of Nucleo_Ex06_EMU by woodstock .

K6502.cpp@4:53ef91c87d74, 2017-05-27 (annotated)

Committer:
charliex
Date:
Sat May 27 02:17:37 2017 +0000
Revision:
4:53ef91c87d74
Parent:
0:3dac1f1bc9e0 
test

Who changed what in which revision?

UserRevisionLine numberNew contents of line
beaglescout007 0:3dac1f1bc9e0 1 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 2 /* */
beaglescout007 0:3dac1f1bc9e0 3 /* K6502.cpp : 6502 Emulator */
beaglescout007 0:3dac1f1bc9e0 4 /* */
beaglescout007 0:3dac1f1bc9e0 5 /* 1999/10/19 Racoon New preparation */
beaglescout007 0:3dac1f1bc9e0 6 /* */
beaglescout007 0:3dac1f1bc9e0 7 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 8
beaglescout007 0:3dac1f1bc9e0 9 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 10 /* Include files */
beaglescout007 0:3dac1f1bc9e0 11 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 12 #include "K6502.h"
beaglescout007 0:3dac1f1bc9e0 13
beaglescout007 0:3dac1f1bc9e0 14 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 15 /* Operation Macros */
beaglescout007 0:3dac1f1bc9e0 16 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 17
beaglescout007 0:3dac1f1bc9e0 18 // Clock Op.
beaglescout007 0:3dac1f1bc9e0 19 #define CLK(a) g_wPassedClocks += (a);
beaglescout007 0:3dac1f1bc9e0 20
beaglescout007 0:3dac1f1bc9e0 21 // Addressing Op.
beaglescout007 0:3dac1f1bc9e0 22 // Address
beaglescout007 0:3dac1f1bc9e0 23 // (Indirect,X)
beaglescout007 0:3dac1f1bc9e0 24 #define AA_IX K6502_ReadZpW( K6502_Read( PC++ ) + X )
beaglescout007 0:3dac1f1bc9e0 25 // (Indirect),Y
beaglescout007 0:3dac1f1bc9e0 26 #define AA_IY K6502_ReadZpW( K6502_Read( PC++ ) ) + Y
beaglescout007 0:3dac1f1bc9e0 27 // Zero Page
beaglescout007 0:3dac1f1bc9e0 28 #define AA_ZP K6502_Read( PC++ )
beaglescout007 0:3dac1f1bc9e0 29 // Zero Page,X
beaglescout007 0:3dac1f1bc9e0 30 #define AA_ZPX (BYTE)( K6502_Read( PC++ ) + X )
beaglescout007 0:3dac1f1bc9e0 31 // Zero Page,Y
beaglescout007 0:3dac1f1bc9e0 32 #define AA_ZPY (BYTE)( K6502_Read( PC++ ) + Y )
beaglescout007 0:3dac1f1bc9e0 33 // Absolute
beaglescout007 0:3dac1f1bc9e0 34 #define AA_ABS ( K6502_Read( PC++ ) | (WORD)K6502_Read( PC++ ) << 8 )
beaglescout007 0:3dac1f1bc9e0 35 // Absolute2 ( PC-- )
beaglescout007 0:3dac1f1bc9e0 36 #define AA_ABS2 ( K6502_Read( PC++ ) | (WORD)K6502_Read( PC ) << 8 )
beaglescout007 0:3dac1f1bc9e0 37 // Absolute,X
beaglescout007 0:3dac1f1bc9e0 38 #define AA_ABSX AA_ABS + X
beaglescout007 0:3dac1f1bc9e0 39 // Absolute,Y
beaglescout007 0:3dac1f1bc9e0 40 #define AA_ABSY AA_ABS + Y
beaglescout007 0:3dac1f1bc9e0 41
beaglescout007 0:3dac1f1bc9e0 42 // Data
beaglescout007 0:3dac1f1bc9e0 43 // (Indirect,X)
beaglescout007 0:3dac1f1bc9e0 44 #define A_IX K6502_Read( AA_IX )
beaglescout007 0:3dac1f1bc9e0 45 // (Indirect),Y
beaglescout007 0:3dac1f1bc9e0 46 #define A_IY K6502_ReadIY()
beaglescout007 0:3dac1f1bc9e0 47 // Zero Page
beaglescout007 0:3dac1f1bc9e0 48 #define A_ZP K6502_ReadZp( AA_ZP )
beaglescout007 0:3dac1f1bc9e0 49 // Zero Page,X
beaglescout007 0:3dac1f1bc9e0 50 #define A_ZPX K6502_ReadZp( AA_ZPX )
beaglescout007 0:3dac1f1bc9e0 51 // Zero Page,Y
beaglescout007 0:3dac1f1bc9e0 52 #define A_ZPY K6502_ReadZp( AA_ZPY )
beaglescout007 0:3dac1f1bc9e0 53 // Absolute
beaglescout007 0:3dac1f1bc9e0 54 #define A_ABS K6502_Read( AA_ABS )
beaglescout007 0:3dac1f1bc9e0 55 // Absolute,X
beaglescout007 0:3dac1f1bc9e0 56 #define A_ABSX K6502_ReadAbsX()
beaglescout007 0:3dac1f1bc9e0 57 // Absolute,Y
beaglescout007 0:3dac1f1bc9e0 58 #define A_ABSY K6502_ReadAbsY()
beaglescout007 0:3dac1f1bc9e0 59 // Immediate
beaglescout007 0:3dac1f1bc9e0 60 #define A_IMM K6502_Read( PC++ )
beaglescout007 0:3dac1f1bc9e0 61
beaglescout007 0:3dac1f1bc9e0 62 // Flag Op.
beaglescout007 0:3dac1f1bc9e0 63 #define SETF(a) F |= (a)
beaglescout007 0:3dac1f1bc9e0 64 #define RSTF(a) F &= ~(a)
beaglescout007 0:3dac1f1bc9e0 65 #define TEST(a) RSTF( FLAG_N | FLAG_Z ); SETF( g_byTestTable[ a ] )
beaglescout007 0:3dac1f1bc9e0 66
beaglescout007 0:3dac1f1bc9e0 67 // Load & Store Op.
beaglescout007 0:3dac1f1bc9e0 68 #define STA(a) K6502_Write( (a), A );
beaglescout007 0:3dac1f1bc9e0 69 #define STX(a) K6502_Write( (a), X );
beaglescout007 0:3dac1f1bc9e0 70 #define STY(a) K6502_Write( (a), Y );
beaglescout007 0:3dac1f1bc9e0 71 #define LDA(a) A = (a); TEST( A );
beaglescout007 0:3dac1f1bc9e0 72 #define LDX(a) X = (a); TEST( X );
beaglescout007 0:3dac1f1bc9e0 73 #define LDY(a) Y = (a); TEST( Y );
beaglescout007 0:3dac1f1bc9e0 74
beaglescout007 0:3dac1f1bc9e0 75 // Stack Op.
beaglescout007 0:3dac1f1bc9e0 76 #define PUSH(a) K6502_Write( BASE_STACK + SP--, (a) )
beaglescout007 0:3dac1f1bc9e0 77 #define PUSHW(a) PUSH( (a) >> 8 ); PUSH( (a) & 0xff )
beaglescout007 0:3dac1f1bc9e0 78 #define POP(a) a = K6502_Read( BASE_STACK + ++SP )
beaglescout007 0:3dac1f1bc9e0 79 #define POPW(a) POP(a); a |= ( K6502_Read( BASE_STACK + ++SP ) << 8 )
beaglescout007 0:3dac1f1bc9e0 80
beaglescout007 0:3dac1f1bc9e0 81 // Logical Op.
beaglescout007 0:3dac1f1bc9e0 82 #define ORA(a) A |= (a); TEST( A )
beaglescout007 0:3dac1f1bc9e0 83 #define AND(a) A &= (a); TEST( A )
beaglescout007 0:3dac1f1bc9e0 84 #define EOR(a) A ^= (a); TEST( A )
beaglescout007 0:3dac1f1bc9e0 85 #define BIT(a) byD0 = (a); RSTF( FLAG_N | FLAG_V | FLAG_Z ); SETF( ( byD0 & ( FLAG_N | FLAG_V ) ) | ( ( byD0 & A ) ? 0 : FLAG_Z ) );
beaglescout007 0:3dac1f1bc9e0 86 #define CMP(a) wD0 = (WORD)A - (a); RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_byTestTable[ wD0 & 0xff ] | ( wD0 < 0x100 ? FLAG_C : 0 ) );
beaglescout007 0:3dac1f1bc9e0 87 #define CPX(a) wD0 = (WORD)X - (a); RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_byTestTable[ wD0 & 0xff ] | ( wD0 < 0x100 ? FLAG_C : 0 ) );
beaglescout007 0:3dac1f1bc9e0 88 #define CPY(a) wD0 = (WORD)Y - (a); RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_byTestTable[ wD0 & 0xff ] | ( wD0 < 0x100 ? FLAG_C : 0 ) );
beaglescout007 0:3dac1f1bc9e0 89
beaglescout007 0:3dac1f1bc9e0 90 // Math Op. (A D flag isn't being supported.)
beaglescout007 0:3dac1f1bc9e0 91 #define ADC(a) byD0 = (a); \
beaglescout007 0:3dac1f1bc9e0 92 wD0 = A + byD0 + ( F & FLAG_C ); \
beaglescout007 0:3dac1f1bc9e0 93 byD1 = (BYTE)wD0; \
beaglescout007 0:3dac1f1bc9e0 94 RSTF( FLAG_N | FLAG_V | FLAG_Z | FLAG_C ); \
beaglescout007 0:3dac1f1bc9e0 95 SETF( g_byTestTable[ byD1 ] | ( ( ~( A ^ byD0 ) & ( A ^ byD1 ) & 0x80 ) ? FLAG_V : 0 ) | ( wD0 > 0xff ) ); \
beaglescout007 0:3dac1f1bc9e0 96 A = byD1;
beaglescout007 0:3dac1f1bc9e0 97
beaglescout007 0:3dac1f1bc9e0 98 #define SBC(a) byD0 = (a); \
beaglescout007 0:3dac1f1bc9e0 99 wD0 = A - byD0 - ( ~F & FLAG_C ); \
beaglescout007 0:3dac1f1bc9e0 100 byD1 = (BYTE)wD0; \
beaglescout007 0:3dac1f1bc9e0 101 RSTF( FLAG_N | FLAG_V | FLAG_Z | FLAG_C ); \
beaglescout007 0:3dac1f1bc9e0 102 SETF( g_byTestTable[ byD1 ] | ( ( ( A ^ byD0 ) & ( A ^ byD1 ) & 0x80 ) ? FLAG_V : 0 ) | ( wD0 < 0x100 ) ); \
beaglescout007 0:3dac1f1bc9e0 103 A = byD1;
beaglescout007 0:3dac1f1bc9e0 104
beaglescout007 0:3dac1f1bc9e0 105 #define DEC(a) wA0 = a; byD0 = K6502_Read( wA0 ); --byD0; K6502_Write( wA0, byD0 ); TEST( byD0 )
beaglescout007 0:3dac1f1bc9e0 106 #define INC(a) wA0 = a; byD0 = K6502_Read( wA0 ); ++byD0; K6502_Write( wA0, byD0 ); TEST( byD0 )
beaglescout007 0:3dac1f1bc9e0 107
beaglescout007 0:3dac1f1bc9e0 108 // Shift Op.
beaglescout007 0:3dac1f1bc9e0 109 #define ASLA RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_ASLTable[ A ].byFlag ); A = g_ASLTable[ A ].byValue
beaglescout007 0:3dac1f1bc9e0 110 #define ASL(a) RSTF( FLAG_N | FLAG_Z | FLAG_C ); wA0 = a; byD0 = K6502_Read( wA0 ); SETF( g_ASLTable[ byD0 ].byFlag ); K6502_Write( wA0, g_ASLTable[ byD0 ].byValue )
beaglescout007 0:3dac1f1bc9e0 111 #define LSRA RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_LSRTable[ A ].byFlag ); A = g_LSRTable[ A ].byValue
beaglescout007 0:3dac1f1bc9e0 112 #define LSR(a) RSTF( FLAG_N | FLAG_Z | FLAG_C ); wA0 = a; byD0 = K6502_Read( wA0 ); SETF( g_LSRTable[ byD0 ].byFlag ); K6502_Write( wA0, g_LSRTable[ byD0 ].byValue )
beaglescout007 0:3dac1f1bc9e0 113 #define ROLA byD0 = F & FLAG_C; RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_ROLTable[ byD0 ][ A ].byFlag ); A = g_ROLTable[ byD0 ][ A ].byValue
beaglescout007 0:3dac1f1bc9e0 114 #define ROL(a) byD1 = F & FLAG_C; RSTF( FLAG_N | FLAG_Z | FLAG_C ); wA0 = a; byD0 = K6502_Read( wA0 ); SETF( g_ROLTable[ byD1 ][ byD0 ].byFlag ); K6502_Write( wA0, g_ROLTable[ byD1 ][ byD0 ].byValue )
beaglescout007 0:3dac1f1bc9e0 115 #define RORA byD0 = F & FLAG_C; RSTF( FLAG_N | FLAG_Z | FLAG_C ); SETF( g_RORTable[ byD0 ][ A ].byFlag ); A = g_RORTable[ byD0 ][ A ].byValue
beaglescout007 0:3dac1f1bc9e0 116 #define ROR(a) byD1 = F & FLAG_C; RSTF( FLAG_N | FLAG_Z | FLAG_C ); wA0 = a; byD0 = K6502_Read( wA0 ); SETF( g_RORTable[ byD1 ][ byD0 ].byFlag ); K6502_Write( wA0, g_RORTable[ byD1 ][ byD0 ].byValue )
beaglescout007 0:3dac1f1bc9e0 117
beaglescout007 0:3dac1f1bc9e0 118 // Jump Op.
beaglescout007 0:3dac1f1bc9e0 119 #define JSR wA0 = AA_ABS2; PUSHW( PC ); PC = wA0;
beaglescout007 0:3dac1f1bc9e0 120 #define BRA(a) if ( a ) { wA0 = PC; PC += (signed char)K6502_Read( PC ); CLK( 3 + ( ( wA0 & 0x0100 ) != ( PC & 0x0100 ) ) ); ++PC; } else { ++PC; CLK( 2 ); }
beaglescout007 0:3dac1f1bc9e0 121 #define JMP(a) PC = a;
beaglescout007 0:3dac1f1bc9e0 122
beaglescout007 0:3dac1f1bc9e0 123 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 124 /* Global valiables */
beaglescout007 0:3dac1f1bc9e0 125 /*-------------------------------------------------------------------*/
beaglescout007 0:3dac1f1bc9e0 126
beaglescout007 0:3dac1f1bc9e0 127 // 6502 Register
beaglescout007 0:3dac1f1bc9e0 128 WORD PC;
beaglescout007 0:3dac1f1bc9e0 129 BYTE SP;
beaglescout007 0:3dac1f1bc9e0 130 BYTE F;
beaglescout007 0:3dac1f1bc9e0 131 BYTE A;
beaglescout007 0:3dac1f1bc9e0 132 BYTE X;
beaglescout007 0:3dac1f1bc9e0 133 BYTE Y;
beaglescout007 0:3dac1f1bc9e0 134
beaglescout007 0:3dac1f1bc9e0 135 // The state of the IRQ pin
beaglescout007 0:3dac1f1bc9e0 136 BYTE IRQ_State;
beaglescout007 0:3dac1f1bc9e0 137
beaglescout007 0:3dac1f1bc9e0 138 // Wiring of the IRQ pin
beaglescout007 0:3dac1f1bc9e0 139 BYTE IRQ_Wiring;
beaglescout007 0:3dac1f1bc9e0 140
beaglescout007 0:3dac1f1bc9e0 141 // The state of the NMI pin
beaglescout007 0:3dac1f1bc9e0 142 BYTE NMI_State;
beaglescout007 0:3dac1f1bc9e0 143
beaglescout007 0:3dac1f1bc9e0 144 // Wiring of the NMI pin
beaglescout007 0:3dac1f1bc9e0 145 BYTE NMI_Wiring;
beaglescout007 0:3dac1f1bc9e0 146
beaglescout007 0:3dac1f1bc9e0 147 // The number of the clocks that it passed
beaglescout007 0:3dac1f1bc9e0 148 WORD g_wPassedClocks;
beaglescout007 0:3dac1f1bc9e0 149
beaglescout007 0:3dac1f1bc9e0 150 // A table for the test
beaglescout007 0:3dac1f1bc9e0 151 BYTE g_byTestTable[ 256 ];
beaglescout007 0:3dac1f1bc9e0 152
beaglescout007 0:3dac1f1bc9e0 153 // Value and Flag Data
beaglescout007 0:3dac1f1bc9e0 154 struct value_table_tag
beaglescout007 0:3dac1f1bc9e0 155 {
beaglescout007 0:3dac1f1bc9e0 156 BYTE byValue;
beaglescout007 0:3dac1f1bc9e0 157 BYTE byFlag;
beaglescout007 0:3dac1f1bc9e0 158 };
beaglescout007 0:3dac1f1bc9e0 159
beaglescout007 0:3dac1f1bc9e0 160 // A table for ASL
beaglescout007 0:3dac1f1bc9e0 161 struct value_table_tag g_ASLTable[ 256 ];
beaglescout007 0:3dac1f1bc9e0 162
beaglescout007 0:3dac1f1bc9e0 163 // A table for LSR
beaglescout007 0:3dac1f1bc9e0 164 struct value_table_tag g_LSRTable[ 256 ];
beaglescout007 0:3dac1f1bc9e0 165
beaglescout007 0:3dac1f1bc9e0 166 // A table for ROL
beaglescout007 0:3dac1f1bc9e0 167 struct value_table_tag g_ROLTable[ 2 ][ 256 ];
beaglescout007 0:3dac1f1bc9e0 168
beaglescout007 0:3dac1f1bc9e0 169 // A table for ROR
beaglescout007 0:3dac1f1bc9e0 170 struct value_table_tag g_RORTable[ 2 ][ 256 ];
beaglescout007 0:3dac1f1bc9e0 171
beaglescout007 0:3dac1f1bc9e0 172 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 173 /* */
beaglescout007 0:3dac1f1bc9e0 174 /* K6502_Init() : Initialize K6502 */
beaglescout007 0:3dac1f1bc9e0 175 /* */
beaglescout007 0:3dac1f1bc9e0 176 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 177 void K6502_Init()
beaglescout007 0:3dac1f1bc9e0 178 {
beaglescout007 0:3dac1f1bc9e0 179 /*
beaglescout007 0:3dac1f1bc9e0 180 * Initialize K6502
beaglescout007 0:3dac1f1bc9e0 181 *
beaglescout007 0:3dac1f1bc9e0 182 * You must call this function only once at first.
beaglescout007 0:3dac1f1bc9e0 183 */
beaglescout007 0:3dac1f1bc9e0 184
beaglescout007 0:3dac1f1bc9e0 185 BYTE idx;
beaglescout007 0:3dac1f1bc9e0 186 BYTE idx2;
beaglescout007 0:3dac1f1bc9e0 187
beaglescout007 0:3dac1f1bc9e0 188 // The establishment of the IRQ pin
beaglescout007 0:3dac1f1bc9e0 189 NMI_Wiring = NMI_State = 1;
beaglescout007 0:3dac1f1bc9e0 190 IRQ_Wiring = IRQ_State = 1;
beaglescout007 0:3dac1f1bc9e0 191
beaglescout007 0:3dac1f1bc9e0 192 // Make a table for the test
beaglescout007 0:3dac1f1bc9e0 193 idx = 0;
beaglescout007 0:3dac1f1bc9e0 194 do
beaglescout007 0:3dac1f1bc9e0 195 {
beaglescout007 0:3dac1f1bc9e0 196 if ( idx == 0 )
beaglescout007 0:3dac1f1bc9e0 197 g_byTestTable[ 0 ] = FLAG_Z;
beaglescout007 0:3dac1f1bc9e0 198 else
beaglescout007 0:3dac1f1bc9e0 199 if ( idx > 127 )
beaglescout007 0:3dac1f1bc9e0 200 g_byTestTable[ idx ] = FLAG_N;
beaglescout007 0:3dac1f1bc9e0 201 else
beaglescout007 0:3dac1f1bc9e0 202 g_byTestTable[ idx ] = 0;
beaglescout007 0:3dac1f1bc9e0 203
beaglescout007 0:3dac1f1bc9e0 204 ++idx;
beaglescout007 0:3dac1f1bc9e0 205 } while ( idx != 0 );
beaglescout007 0:3dac1f1bc9e0 206
beaglescout007 0:3dac1f1bc9e0 207 // Make a table ASL
beaglescout007 0:3dac1f1bc9e0 208 idx = 0;
beaglescout007 0:3dac1f1bc9e0 209 do
beaglescout007 0:3dac1f1bc9e0 210 {
beaglescout007 0:3dac1f1bc9e0 211 g_ASLTable[ idx ].byValue = idx << 1;
beaglescout007 0:3dac1f1bc9e0 212 g_ASLTable[ idx ].byFlag = 0;
beaglescout007 0:3dac1f1bc9e0 213
beaglescout007 0:3dac1f1bc9e0 214 if ( idx > 127 )
beaglescout007 0:3dac1f1bc9e0 215 g_ASLTable[ idx ].byFlag = FLAG_C;
beaglescout007 0:3dac1f1bc9e0 216
beaglescout007 0:3dac1f1bc9e0 217 if ( g_ASLTable[ idx ].byValue == 0 )
beaglescout007 0:3dac1f1bc9e0 218 g_ASLTable[ idx ].byFlag |= FLAG_Z;
beaglescout007 0:3dac1f1bc9e0 219 else
beaglescout007 0:3dac1f1bc9e0 220 if ( g_ASLTable[ idx ].byValue & 0x80 )
beaglescout007 0:3dac1f1bc9e0 221 g_ASLTable[ idx ].byFlag |= FLAG_N;
beaglescout007 0:3dac1f1bc9e0 222
beaglescout007 0:3dac1f1bc9e0 223 ++idx;
beaglescout007 0:3dac1f1bc9e0 224 } while ( idx != 0 );
beaglescout007 0:3dac1f1bc9e0 225
beaglescout007 0:3dac1f1bc9e0 226 // Make a table LSR
beaglescout007 0:3dac1f1bc9e0 227 idx = 0;
beaglescout007 0:3dac1f1bc9e0 228 do
beaglescout007 0:3dac1f1bc9e0 229 {
beaglescout007 0:3dac1f1bc9e0 230 g_LSRTable[ idx ].byValue = idx >> 1;
beaglescout007 0:3dac1f1bc9e0 231 g_LSRTable[ idx ].byFlag = 0;
beaglescout007 0:3dac1f1bc9e0 232
beaglescout007 0:3dac1f1bc9e0 233 if ( idx & 1 )
beaglescout007 0:3dac1f1bc9e0 234 g_LSRTable[ idx ].byFlag = FLAG_C;
beaglescout007 0:3dac1f1bc9e0 235
beaglescout007 0:3dac1f1bc9e0 236 if ( g_LSRTable[ idx ].byValue == 0 )
beaglescout007 0:3dac1f1bc9e0 237 g_LSRTable[ idx ].byFlag |= FLAG_Z;
beaglescout007 0:3dac1f1bc9e0 238
beaglescout007 0:3dac1f1bc9e0 239 ++idx;
beaglescout007 0:3dac1f1bc9e0 240 } while ( idx != 0 );
beaglescout007 0:3dac1f1bc9e0 241
beaglescout007 0:3dac1f1bc9e0 242 // Make a table ROL
beaglescout007 0:3dac1f1bc9e0 243 for ( idx2 = 0; idx2 < 2; ++idx2 )
beaglescout007 0:3dac1f1bc9e0 244 {
beaglescout007 0:3dac1f1bc9e0 245 idx = 0;
beaglescout007 0:3dac1f1bc9e0 246 do
beaglescout007 0:3dac1f1bc9e0 247 {
beaglescout007 0:3dac1f1bc9e0 248 g_ROLTable[ idx2 ][ idx ].byValue = ( idx << 1 ) | idx2;
beaglescout007 0:3dac1f1bc9e0 249 g_ROLTable[ idx2 ][ idx ].byFlag = 0;
beaglescout007 0:3dac1f1bc9e0 250
beaglescout007 0:3dac1f1bc9e0 251 if ( idx > 127 )
beaglescout007 0:3dac1f1bc9e0 252 g_ROLTable[ idx2 ][ idx ].byFlag = FLAG_C;
beaglescout007 0:3dac1f1bc9e0 253
beaglescout007 0:3dac1f1bc9e0 254 if ( g_ROLTable[ idx2 ][ idx ].byValue == 0 )
beaglescout007 0:3dac1f1bc9e0 255 g_ROLTable[ idx2 ][ idx ].byFlag |= FLAG_Z;
beaglescout007 0:3dac1f1bc9e0 256 else
beaglescout007 0:3dac1f1bc9e0 257 if ( g_ROLTable[ idx2 ][ idx ].byValue & 0x80 )
beaglescout007 0:3dac1f1bc9e0 258 g_ROLTable[ idx2 ][ idx ].byFlag |= FLAG_N;
beaglescout007 0:3dac1f1bc9e0 259
beaglescout007 0:3dac1f1bc9e0 260 ++idx;
beaglescout007 0:3dac1f1bc9e0 261 } while ( idx != 0 );
beaglescout007 0:3dac1f1bc9e0 262 }
beaglescout007 0:3dac1f1bc9e0 263
beaglescout007 0:3dac1f1bc9e0 264 // Make a table ROR
beaglescout007 0:3dac1f1bc9e0 265 for ( idx2 = 0; idx2 < 2; ++idx2 )
beaglescout007 0:3dac1f1bc9e0 266 {
beaglescout007 0:3dac1f1bc9e0 267 idx = 0;
beaglescout007 0:3dac1f1bc9e0 268 do
beaglescout007 0:3dac1f1bc9e0 269 {
beaglescout007 0:3dac1f1bc9e0 270 g_RORTable[ idx2 ][ idx ].byValue = ( idx >> 1 ) | ( idx2 << 7 );
beaglescout007 0:3dac1f1bc9e0 271 g_RORTable[ idx2 ][ idx ].byFlag = 0;
beaglescout007 0:3dac1f1bc9e0 272
beaglescout007 0:3dac1f1bc9e0 273 if ( idx & 1 )
beaglescout007 0:3dac1f1bc9e0 274 g_RORTable[ idx2 ][ idx ].byFlag = FLAG_C;
beaglescout007 0:3dac1f1bc9e0 275
beaglescout007 0:3dac1f1bc9e0 276 if ( g_RORTable[ idx2 ][ idx ].byValue == 0 )
beaglescout007 0:3dac1f1bc9e0 277 g_RORTable[ idx2 ][ idx ].byFlag |= FLAG_Z;
beaglescout007 0:3dac1f1bc9e0 278 else
beaglescout007 0:3dac1f1bc9e0 279 if ( g_RORTable[ idx2 ][ idx ].byValue & 0x80 )
beaglescout007 0:3dac1f1bc9e0 280 g_RORTable[ idx2 ][ idx ].byFlag |= FLAG_N;
beaglescout007 0:3dac1f1bc9e0 281
beaglescout007 0:3dac1f1bc9e0 282 ++idx;
beaglescout007 0:3dac1f1bc9e0 283 } while ( idx != 0 );
beaglescout007 0:3dac1f1bc9e0 284 }
beaglescout007 0:3dac1f1bc9e0 285 }
beaglescout007 0:3dac1f1bc9e0 286
beaglescout007 0:3dac1f1bc9e0 287 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 288 /* */
beaglescout007 0:3dac1f1bc9e0 289 /* K6502_Reset() : Reset a CPU */
beaglescout007 0:3dac1f1bc9e0 290 /* */
beaglescout007 0:3dac1f1bc9e0 291 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 292 void K6502_Reset()
beaglescout007 0:3dac1f1bc9e0 293 {
beaglescout007 0:3dac1f1bc9e0 294 /*
beaglescout007 0:3dac1f1bc9e0 295 * Reset a CPU
beaglescout007 0:3dac1f1bc9e0 296 *
beaglescout007 0:3dac1f1bc9e0 297 */
beaglescout007 0:3dac1f1bc9e0 298
beaglescout007 0:3dac1f1bc9e0 299 // Reset Registers
beaglescout007 0:3dac1f1bc9e0 300 PC = K6502_ReadW( VECTOR_RESET );
beaglescout007 0:3dac1f1bc9e0 301 SP = 0xFF;
beaglescout007 0:3dac1f1bc9e0 302 A = X = Y = 0;
beaglescout007 0:3dac1f1bc9e0 303 F = FLAG_Z | FLAG_R;
beaglescout007 0:3dac1f1bc9e0 304
beaglescout007 0:3dac1f1bc9e0 305 // Set up the state of the Interrupt pin.
beaglescout007 0:3dac1f1bc9e0 306 NMI_State = NMI_Wiring;
beaglescout007 0:3dac1f1bc9e0 307 IRQ_State = IRQ_Wiring;
beaglescout007 0:3dac1f1bc9e0 308
beaglescout007 0:3dac1f1bc9e0 309 // Reset Passed Clocks
beaglescout007 0:3dac1f1bc9e0 310 g_wPassedClocks = 0;
beaglescout007 0:3dac1f1bc9e0 311 }
beaglescout007 0:3dac1f1bc9e0 312
beaglescout007 0:3dac1f1bc9e0 313 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 314 /* */
beaglescout007 0:3dac1f1bc9e0 315 /* K6502_Set_Int_Wiring() : Set up wiring of the interrupt pin */
beaglescout007 0:3dac1f1bc9e0 316 /* */
beaglescout007 0:3dac1f1bc9e0 317 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 318 void K6502_Set_Int_Wiring( BYTE byNMI_Wiring, BYTE byIRQ_Wiring )
beaglescout007 0:3dac1f1bc9e0 319 {
beaglescout007 0:3dac1f1bc9e0 320 /*
beaglescout007 0:3dac1f1bc9e0 321 * Set up wiring of the interrupt pin
beaglescout007 0:3dac1f1bc9e0 322 *
beaglescout007 0:3dac1f1bc9e0 323 */
beaglescout007 0:3dac1f1bc9e0 324
beaglescout007 0:3dac1f1bc9e0 325 NMI_Wiring = byNMI_Wiring;
beaglescout007 0:3dac1f1bc9e0 326 IRQ_Wiring = byIRQ_Wiring;
beaglescout007 0:3dac1f1bc9e0 327 }
beaglescout007 0:3dac1f1bc9e0 328
beaglescout007 0:3dac1f1bc9e0 329 int dbgstep = 0;
beaglescout007 0:3dac1f1bc9e0 330 int check_userbutton();
beaglescout007 0:3dac1f1bc9e0 331
beaglescout007 0:3dac1f1bc9e0 332 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 333 /* */
beaglescout007 0:3dac1f1bc9e0 334 /* K6502_Step() : */
beaglescout007 0:3dac1f1bc9e0 335 /* Only the specified number of the clocks execute Op. */
beaglescout007 0:3dac1f1bc9e0 336 /* */
beaglescout007 0:3dac1f1bc9e0 337 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 338 void K6502_Step( WORD wClocks )
beaglescout007 0:3dac1f1bc9e0 339 {
beaglescout007 0:3dac1f1bc9e0 340 /*
beaglescout007 0:3dac1f1bc9e0 341 * Only the specified number of the clocks execute Op.
beaglescout007 0:3dac1f1bc9e0 342 *
beaglescout007 0:3dac1f1bc9e0 343 * Parameters
beaglescout007 0:3dac1f1bc9e0 344 * WORD wClocks (Read)
beaglescout007 0:3dac1f1bc9e0 345 * The number of the clocks
beaglescout007 0:3dac1f1bc9e0 346 */
beaglescout007 0:3dac1f1bc9e0 347
beaglescout007 0:3dac1f1bc9e0 348 BYTE byCode;
beaglescout007 0:3dac1f1bc9e0 349
beaglescout007 0:3dac1f1bc9e0 350 WORD wA0;
beaglescout007 0:3dac1f1bc9e0 351 BYTE byD0;
beaglescout007 0:3dac1f1bc9e0 352 BYTE byD1;
beaglescout007 0:3dac1f1bc9e0 353 WORD wD0;
beaglescout007 0:3dac1f1bc9e0 354
beaglescout007 0:3dac1f1bc9e0 355 // Dispose of it if there is an interrupt requirement
beaglescout007 0:3dac1f1bc9e0 356 if ( NMI_State != NMI_Wiring )
beaglescout007 0:3dac1f1bc9e0 357 {
beaglescout007 0:3dac1f1bc9e0 358 // NMI Interrupt
beaglescout007 0:3dac1f1bc9e0 359 CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 360
beaglescout007 0:3dac1f1bc9e0 361 PUSHW( PC );
beaglescout007 0:3dac1f1bc9e0 362 PUSH( F & ~FLAG_B );
beaglescout007 0:3dac1f1bc9e0 363
beaglescout007 0:3dac1f1bc9e0 364 RSTF( FLAG_D );
beaglescout007 0:3dac1f1bc9e0 365
beaglescout007 0:3dac1f1bc9e0 366 PC = K6502_ReadW( VECTOR_NMI );
beaglescout007 0:3dac1f1bc9e0 367 }
beaglescout007 0:3dac1f1bc9e0 368 else
beaglescout007 0:3dac1f1bc9e0 369 if ( IRQ_State != IRQ_Wiring )
beaglescout007 0:3dac1f1bc9e0 370 {
beaglescout007 0:3dac1f1bc9e0 371 // IRQ Interrupt
beaglescout007 0:3dac1f1bc9e0 372 // Execute IRQ if an I flag isn't being set
beaglescout007 0:3dac1f1bc9e0 373 if ( !( F & FLAG_I ) )
beaglescout007 0:3dac1f1bc9e0 374 {
beaglescout007 0:3dac1f1bc9e0 375 CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 376
beaglescout007 0:3dac1f1bc9e0 377 PUSHW( PC );
beaglescout007 0:3dac1f1bc9e0 378 PUSH( F & ~FLAG_B );
beaglescout007 0:3dac1f1bc9e0 379
beaglescout007 0:3dac1f1bc9e0 380 RSTF( FLAG_D );
beaglescout007 0:3dac1f1bc9e0 381 SETF( FLAG_I );
beaglescout007 0:3dac1f1bc9e0 382
beaglescout007 0:3dac1f1bc9e0 383 PC = K6502_ReadW( VECTOR_IRQ );
beaglescout007 0:3dac1f1bc9e0 384 }
beaglescout007 0:3dac1f1bc9e0 385 }
beaglescout007 0:3dac1f1bc9e0 386
beaglescout007 0:3dac1f1bc9e0 387 NMI_State = NMI_Wiring;
beaglescout007 0:3dac1f1bc9e0 388 IRQ_State = IRQ_Wiring;
beaglescout007 0:3dac1f1bc9e0 389
beaglescout007 0:3dac1f1bc9e0 390 // It has a loop until a constant clock passes
beaglescout007 0:3dac1f1bc9e0 391 while ( g_wPassedClocks < wClocks )
beaglescout007 0:3dac1f1bc9e0 392 {
beaglescout007 0:3dac1f1bc9e0 393 // Read an instruction
beaglescout007 0:3dac1f1bc9e0 394 byCode = K6502_Read( PC++ );
beaglescout007 0:3dac1f1bc9e0 395
beaglescout007 0:3dac1f1bc9e0 396 //if (dbgstep % 10000 == 0)
beaglescout007 0:3dac1f1bc9e0 397 //{
beaglescout007 0:3dac1f1bc9e0 398 // printf("%8d PC:%4x Code:%2x SP:%2x F:%2x A:%2x X:%2x Y:%2x\r\n", dbgstep, PC - 1, byCode, SP, F, A, X, Y);
beaglescout007 0:3dac1f1bc9e0 399 // while (check_userbutton() != 0) ;
beaglescout007 0:3dac1f1bc9e0 400 // wait(0.1);
beaglescout007 0:3dac1f1bc9e0 401 //}
beaglescout007 0:3dac1f1bc9e0 402 //dbgstep++;
beaglescout007 0:3dac1f1bc9e0 403
beaglescout007 0:3dac1f1bc9e0 404 // Execute an instruction.
beaglescout007 0:3dac1f1bc9e0 405 switch ( byCode )
beaglescout007 0:3dac1f1bc9e0 406 {
beaglescout007 0:3dac1f1bc9e0 407 case 0x00: // BRK
beaglescout007 0:3dac1f1bc9e0 408 ++PC; PUSHW( PC ); SETF( FLAG_B ); PUSH( F ); SETF( FLAG_I ); RSTF( FLAG_D ); PC = K6502_ReadW( VECTOR_IRQ ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 409 break;
beaglescout007 0:3dac1f1bc9e0 410
beaglescout007 0:3dac1f1bc9e0 411 case 0x01: // ORA (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 412 ORA( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 413 break;
beaglescout007 0:3dac1f1bc9e0 414
beaglescout007 0:3dac1f1bc9e0 415 case 0x05: // ORA Zpg
beaglescout007 0:3dac1f1bc9e0 416 ORA( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 417 break;
beaglescout007 0:3dac1f1bc9e0 418
beaglescout007 0:3dac1f1bc9e0 419 case 0x06: // ASL Zpg
beaglescout007 0:3dac1f1bc9e0 420 ASL( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 421 break;
beaglescout007 0:3dac1f1bc9e0 422
beaglescout007 0:3dac1f1bc9e0 423 case 0x08: // PHP
beaglescout007 0:3dac1f1bc9e0 424 PUSH( F ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 425 break;
beaglescout007 0:3dac1f1bc9e0 426
beaglescout007 0:3dac1f1bc9e0 427 case 0x09: // ORA #Oper
beaglescout007 0:3dac1f1bc9e0 428 ORA( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 429 break;
beaglescout007 0:3dac1f1bc9e0 430
beaglescout007 0:3dac1f1bc9e0 431 case 0x0A: // ASL A
beaglescout007 0:3dac1f1bc9e0 432 ASLA; CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 433 break;
beaglescout007 0:3dac1f1bc9e0 434
beaglescout007 0:3dac1f1bc9e0 435 case 0x0D: // ORA Abs
beaglescout007 0:3dac1f1bc9e0 436 ORA( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 437 break;
beaglescout007 0:3dac1f1bc9e0 438
beaglescout007 0:3dac1f1bc9e0 439 case 0x0e: // ASL Abs
beaglescout007 0:3dac1f1bc9e0 440 ASL( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 441 break;
beaglescout007 0:3dac1f1bc9e0 442
beaglescout007 0:3dac1f1bc9e0 443 case 0x10: // BPL Oper
beaglescout007 0:3dac1f1bc9e0 444 BRA( !( F & FLAG_N ) );
beaglescout007 0:3dac1f1bc9e0 445 break;
beaglescout007 0:3dac1f1bc9e0 446
beaglescout007 0:3dac1f1bc9e0 447 case 0x11: // ORA (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 448 ORA( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 449 break;
beaglescout007 0:3dac1f1bc9e0 450
beaglescout007 0:3dac1f1bc9e0 451 case 0x15: // ORA Zpg,X
beaglescout007 0:3dac1f1bc9e0 452 ORA( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 453 break;
beaglescout007 0:3dac1f1bc9e0 454
beaglescout007 0:3dac1f1bc9e0 455 case 0x16: // ASL Zpg,X
beaglescout007 0:3dac1f1bc9e0 456 ASL( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 457 break;
beaglescout007 0:3dac1f1bc9e0 458
beaglescout007 0:3dac1f1bc9e0 459 case 0x18: // CLC
beaglescout007 0:3dac1f1bc9e0 460 RSTF( FLAG_C ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 461 break;
beaglescout007 0:3dac1f1bc9e0 462
beaglescout007 0:3dac1f1bc9e0 463 case 0x19: // ORA Abs,Y
beaglescout007 0:3dac1f1bc9e0 464 ORA( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 465 break;
beaglescout007 0:3dac1f1bc9e0 466
beaglescout007 0:3dac1f1bc9e0 467 case 0x1D: // ORA Abs,X
beaglescout007 0:3dac1f1bc9e0 468 ORA( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 469 break;
beaglescout007 0:3dac1f1bc9e0 470
beaglescout007 0:3dac1f1bc9e0 471 case 0x1E: // ASL Abs,X
beaglescout007 0:3dac1f1bc9e0 472 ASL( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 473 break;
beaglescout007 0:3dac1f1bc9e0 474
beaglescout007 0:3dac1f1bc9e0 475 case 0x20: // JSR Abs
beaglescout007 0:3dac1f1bc9e0 476 JSR; CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 477 break;
beaglescout007 0:3dac1f1bc9e0 478
beaglescout007 0:3dac1f1bc9e0 479 case 0x21: // AND (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 480 AND( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 481 break;
beaglescout007 0:3dac1f1bc9e0 482
beaglescout007 0:3dac1f1bc9e0 483 case 0x24: // BIT Zpg
beaglescout007 0:3dac1f1bc9e0 484 BIT( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 485 break;
beaglescout007 0:3dac1f1bc9e0 486
beaglescout007 0:3dac1f1bc9e0 487 case 0x25: // AND Zpg
beaglescout007 0:3dac1f1bc9e0 488 AND( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 489 break;
beaglescout007 0:3dac1f1bc9e0 490
beaglescout007 0:3dac1f1bc9e0 491 case 0x26: // ROL Zpg
beaglescout007 0:3dac1f1bc9e0 492 ROL( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 493 break;
beaglescout007 0:3dac1f1bc9e0 494
beaglescout007 0:3dac1f1bc9e0 495 case 0x28: // PLP
beaglescout007 0:3dac1f1bc9e0 496 POP( F ); SETF( FLAG_R ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 497 break;
beaglescout007 0:3dac1f1bc9e0 498
beaglescout007 0:3dac1f1bc9e0 499 case 0x29: // AND #Oper
beaglescout007 0:3dac1f1bc9e0 500 AND( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 501 break;
beaglescout007 0:3dac1f1bc9e0 502
beaglescout007 0:3dac1f1bc9e0 503 case 0x2A: // ROL A
beaglescout007 0:3dac1f1bc9e0 504 ROLA; CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 505 break;
beaglescout007 0:3dac1f1bc9e0 506
beaglescout007 0:3dac1f1bc9e0 507 case 0x2C: // BIT Abs
beaglescout007 0:3dac1f1bc9e0 508 BIT( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 509 break;
beaglescout007 0:3dac1f1bc9e0 510
beaglescout007 0:3dac1f1bc9e0 511 case 0x2D: // AND Abs
beaglescout007 0:3dac1f1bc9e0 512 AND( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 513 break;
beaglescout007 0:3dac1f1bc9e0 514
beaglescout007 0:3dac1f1bc9e0 515 case 0x2E: // ROL Abs
beaglescout007 0:3dac1f1bc9e0 516 ROL( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 517 break;
beaglescout007 0:3dac1f1bc9e0 518
beaglescout007 0:3dac1f1bc9e0 519 case 0x30: // BMI Oper
beaglescout007 0:3dac1f1bc9e0 520 BRA( F & FLAG_N );
beaglescout007 0:3dac1f1bc9e0 521 break;
beaglescout007 0:3dac1f1bc9e0 522
beaglescout007 0:3dac1f1bc9e0 523 case 0x31: // AND (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 524 AND( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 525 break;
beaglescout007 0:3dac1f1bc9e0 526
beaglescout007 0:3dac1f1bc9e0 527 case 0x35: // AND Zpg,X
beaglescout007 0:3dac1f1bc9e0 528 AND( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 529 break;
beaglescout007 0:3dac1f1bc9e0 530
beaglescout007 0:3dac1f1bc9e0 531 case 0x36: // ROL Zpg,X
beaglescout007 0:3dac1f1bc9e0 532 ROL( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 533 break;
beaglescout007 0:3dac1f1bc9e0 534
beaglescout007 0:3dac1f1bc9e0 535 case 0x38: // SEC
beaglescout007 0:3dac1f1bc9e0 536 SETF( FLAG_C ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 537 break;
beaglescout007 0:3dac1f1bc9e0 538
beaglescout007 0:3dac1f1bc9e0 539 case 0x39: // AND Abs,Y
beaglescout007 0:3dac1f1bc9e0 540 AND( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 541 break;
beaglescout007 0:3dac1f1bc9e0 542
beaglescout007 0:3dac1f1bc9e0 543 case 0x3D: // AND Abs,X
beaglescout007 0:3dac1f1bc9e0 544 AND( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 545 break;
beaglescout007 0:3dac1f1bc9e0 546
beaglescout007 0:3dac1f1bc9e0 547 case 0x3E: // ROL Abs,X
beaglescout007 0:3dac1f1bc9e0 548 ROL( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 549 break;
beaglescout007 0:3dac1f1bc9e0 550
beaglescout007 0:3dac1f1bc9e0 551 case 0x40: // RTI
beaglescout007 0:3dac1f1bc9e0 552 POP( F ); SETF( FLAG_R ); POPW( PC ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 553 break;
beaglescout007 0:3dac1f1bc9e0 554
beaglescout007 0:3dac1f1bc9e0 555 case 0x41: // EOR (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 556 EOR( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 557 break;
beaglescout007 0:3dac1f1bc9e0 558
beaglescout007 0:3dac1f1bc9e0 559 case 0x45: // EOR Zpg
beaglescout007 0:3dac1f1bc9e0 560 EOR( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 561 break;
beaglescout007 0:3dac1f1bc9e0 562
beaglescout007 0:3dac1f1bc9e0 563 case 0x46: // LSR Zpg
beaglescout007 0:3dac1f1bc9e0 564 LSR( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 565 break;
beaglescout007 0:3dac1f1bc9e0 566
beaglescout007 0:3dac1f1bc9e0 567 case 0x48: // PHA
beaglescout007 0:3dac1f1bc9e0 568 PUSH( A ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 569 break;
beaglescout007 0:3dac1f1bc9e0 570
beaglescout007 0:3dac1f1bc9e0 571 case 0x49: // EOR #Oper
beaglescout007 0:3dac1f1bc9e0 572 EOR( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 573 break;
beaglescout007 0:3dac1f1bc9e0 574
beaglescout007 0:3dac1f1bc9e0 575 case 0x4A: // LSR A
beaglescout007 0:3dac1f1bc9e0 576 LSRA; CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 577 break;
beaglescout007 0:3dac1f1bc9e0 578
beaglescout007 0:3dac1f1bc9e0 579 case 0x4C: // JMP Abs
beaglescout007 0:3dac1f1bc9e0 580 JMP( AA_ABS ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 581 break;
beaglescout007 0:3dac1f1bc9e0 582
beaglescout007 0:3dac1f1bc9e0 583 case 0x4D: // EOR Abs
beaglescout007 0:3dac1f1bc9e0 584 EOR( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 585 break;
beaglescout007 0:3dac1f1bc9e0 586
beaglescout007 0:3dac1f1bc9e0 587 case 0x4E: // LSR Abs
beaglescout007 0:3dac1f1bc9e0 588 LSR( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 589 break;
beaglescout007 0:3dac1f1bc9e0 590
beaglescout007 0:3dac1f1bc9e0 591 case 0x50: // BVC
beaglescout007 0:3dac1f1bc9e0 592 BRA( !( F & FLAG_V ) );
beaglescout007 0:3dac1f1bc9e0 593 break;
beaglescout007 0:3dac1f1bc9e0 594
beaglescout007 0:3dac1f1bc9e0 595 case 0x51: // EOR (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 596 EOR( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 597 break;
beaglescout007 0:3dac1f1bc9e0 598
beaglescout007 0:3dac1f1bc9e0 599 case 0x55: // EOR Zpg,X
beaglescout007 0:3dac1f1bc9e0 600 EOR( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 601 break;
beaglescout007 0:3dac1f1bc9e0 602
beaglescout007 0:3dac1f1bc9e0 603 case 0x56: // LSR Zpg,X
beaglescout007 0:3dac1f1bc9e0 604 LSR( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 605 break;
beaglescout007 0:3dac1f1bc9e0 606
beaglescout007 0:3dac1f1bc9e0 607 case 0x58: // CLI
beaglescout007 0:3dac1f1bc9e0 608 byD0 = F;
beaglescout007 0:3dac1f1bc9e0 609 RSTF( FLAG_I ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 610 if ( ( byD0 & FLAG_I ) && IRQ_State == 0 )
beaglescout007 0:3dac1f1bc9e0 611 {
beaglescout007 0:3dac1f1bc9e0 612 // IRQ Interrupt
beaglescout007 0:3dac1f1bc9e0 613 // Execute IRQ if an I flag isn't being set
beaglescout007 0:3dac1f1bc9e0 614 if ( !( F & FLAG_I ) )
beaglescout007 0:3dac1f1bc9e0 615 {
beaglescout007 0:3dac1f1bc9e0 616 CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 617
beaglescout007 0:3dac1f1bc9e0 618 PUSHW( PC );
beaglescout007 0:3dac1f1bc9e0 619 PUSH( F & ~FLAG_B );
beaglescout007 0:3dac1f1bc9e0 620
beaglescout007 0:3dac1f1bc9e0 621 RSTF( FLAG_D );
beaglescout007 0:3dac1f1bc9e0 622 SETF( FLAG_I );
beaglescout007 0:3dac1f1bc9e0 623
beaglescout007 0:3dac1f1bc9e0 624 PC = K6502_ReadW( VECTOR_IRQ );
beaglescout007 0:3dac1f1bc9e0 625 }
beaglescout007 0:3dac1f1bc9e0 626 }
beaglescout007 0:3dac1f1bc9e0 627 break;
beaglescout007 0:3dac1f1bc9e0 628
beaglescout007 0:3dac1f1bc9e0 629 case 0x59: // EOR Abs,Y
beaglescout007 0:3dac1f1bc9e0 630 EOR( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 631 break;
beaglescout007 0:3dac1f1bc9e0 632
beaglescout007 0:3dac1f1bc9e0 633 case 0x5D: // EOR Abs,X
beaglescout007 0:3dac1f1bc9e0 634 EOR( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 635 break;
beaglescout007 0:3dac1f1bc9e0 636
beaglescout007 0:3dac1f1bc9e0 637 case 0x5E: // LSR Abs,X
beaglescout007 0:3dac1f1bc9e0 638 LSR( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 639 break;
beaglescout007 0:3dac1f1bc9e0 640
beaglescout007 0:3dac1f1bc9e0 641 case 0x60: // RTS
beaglescout007 0:3dac1f1bc9e0 642 POPW( PC ); ++PC; CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 643 break;
beaglescout007 0:3dac1f1bc9e0 644
beaglescout007 0:3dac1f1bc9e0 645 case 0x61: // ADC (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 646 ADC( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 647 break;
beaglescout007 0:3dac1f1bc9e0 648
beaglescout007 0:3dac1f1bc9e0 649 case 0x65: // ADC Zpg
beaglescout007 0:3dac1f1bc9e0 650 ADC( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 651 break;
beaglescout007 0:3dac1f1bc9e0 652
beaglescout007 0:3dac1f1bc9e0 653 case 0x66: // ROR Zpg
beaglescout007 0:3dac1f1bc9e0 654 ROR( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 655 break;
beaglescout007 0:3dac1f1bc9e0 656
beaglescout007 0:3dac1f1bc9e0 657 case 0x68: // PLA
beaglescout007 0:3dac1f1bc9e0 658 POP( A ); TEST( A ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 659 break;
beaglescout007 0:3dac1f1bc9e0 660
beaglescout007 0:3dac1f1bc9e0 661 case 0x69: // ADC #Oper
beaglescout007 0:3dac1f1bc9e0 662 ADC( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 663 break;
beaglescout007 0:3dac1f1bc9e0 664
beaglescout007 0:3dac1f1bc9e0 665 case 0x6A: // ROR A
beaglescout007 0:3dac1f1bc9e0 666 RORA; CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 667 break;
beaglescout007 0:3dac1f1bc9e0 668
beaglescout007 0:3dac1f1bc9e0 669 case 0x6C: // JMP (Abs)
beaglescout007 0:3dac1f1bc9e0 670 JMP( K6502_ReadW( AA_ABS ) ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 671 break;
beaglescout007 0:3dac1f1bc9e0 672
beaglescout007 0:3dac1f1bc9e0 673 case 0x6D: // ADC Abs
beaglescout007 0:3dac1f1bc9e0 674 ADC( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 675 break;
beaglescout007 0:3dac1f1bc9e0 676
beaglescout007 0:3dac1f1bc9e0 677 case 0x6E: // ROR Abs
beaglescout007 0:3dac1f1bc9e0 678 ROR( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 679 break;
beaglescout007 0:3dac1f1bc9e0 680
beaglescout007 0:3dac1f1bc9e0 681 case 0x70: // BVS
beaglescout007 0:3dac1f1bc9e0 682 BRA( F & FLAG_V );
beaglescout007 0:3dac1f1bc9e0 683 break;
beaglescout007 0:3dac1f1bc9e0 684
beaglescout007 0:3dac1f1bc9e0 685 case 0x71: // ADC (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 686 ADC( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 687 break;
beaglescout007 0:3dac1f1bc9e0 688
beaglescout007 0:3dac1f1bc9e0 689 case 0x75: // ADC Zpg,X
beaglescout007 0:3dac1f1bc9e0 690 ADC( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 691 break;
beaglescout007 0:3dac1f1bc9e0 692
beaglescout007 0:3dac1f1bc9e0 693 case 0x76: // ROR Zpg,X
beaglescout007 0:3dac1f1bc9e0 694 ROR( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 695 break;
beaglescout007 0:3dac1f1bc9e0 696
beaglescout007 0:3dac1f1bc9e0 697 case 0x78: // SEI
beaglescout007 0:3dac1f1bc9e0 698 SETF( FLAG_I ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 699 break;
beaglescout007 0:3dac1f1bc9e0 700
beaglescout007 0:3dac1f1bc9e0 701 case 0x79: // ADC Abs,Y
beaglescout007 0:3dac1f1bc9e0 702 ADC( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 703 break;
beaglescout007 0:3dac1f1bc9e0 704
beaglescout007 0:3dac1f1bc9e0 705 case 0x7D: // ADC Abs,X
beaglescout007 0:3dac1f1bc9e0 706 ADC( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 707 break;
beaglescout007 0:3dac1f1bc9e0 708
beaglescout007 0:3dac1f1bc9e0 709 case 0x7E: // ROR Abs,X
beaglescout007 0:3dac1f1bc9e0 710 ROR( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 711 break;
beaglescout007 0:3dac1f1bc9e0 712
beaglescout007 0:3dac1f1bc9e0 713 case 0x81: // STA (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 714 STA( AA_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 715 break;
beaglescout007 0:3dac1f1bc9e0 716
beaglescout007 0:3dac1f1bc9e0 717 case 0x84: // STY Zpg
beaglescout007 0:3dac1f1bc9e0 718 STY( AA_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 719 break;
beaglescout007 0:3dac1f1bc9e0 720
beaglescout007 0:3dac1f1bc9e0 721 case 0x85: // STA Zpg
beaglescout007 0:3dac1f1bc9e0 722 STA( AA_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 723 break;
beaglescout007 0:3dac1f1bc9e0 724
beaglescout007 0:3dac1f1bc9e0 725 case 0x86: // STX Zpg
beaglescout007 0:3dac1f1bc9e0 726 STX( AA_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 727 break;
beaglescout007 0:3dac1f1bc9e0 728
beaglescout007 0:3dac1f1bc9e0 729 case 0x88: // DEY
beaglescout007 0:3dac1f1bc9e0 730 --Y; TEST( Y ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 731 break;
beaglescout007 0:3dac1f1bc9e0 732
beaglescout007 0:3dac1f1bc9e0 733 case 0x8A: // TXA
beaglescout007 0:3dac1f1bc9e0 734 A = X; TEST( A ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 735 break;
beaglescout007 0:3dac1f1bc9e0 736
beaglescout007 0:3dac1f1bc9e0 737 case 0x8C: // STY Abs
beaglescout007 0:3dac1f1bc9e0 738 STY( AA_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 739 break;
beaglescout007 0:3dac1f1bc9e0 740
beaglescout007 0:3dac1f1bc9e0 741 case 0x8D: // STA Abs
beaglescout007 0:3dac1f1bc9e0 742 STA( AA_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 743 break;
beaglescout007 0:3dac1f1bc9e0 744
beaglescout007 0:3dac1f1bc9e0 745 case 0x8E: // STX Abs
beaglescout007 0:3dac1f1bc9e0 746 STX( AA_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 747 break;
beaglescout007 0:3dac1f1bc9e0 748
beaglescout007 0:3dac1f1bc9e0 749 case 0x90: // BCC
beaglescout007 0:3dac1f1bc9e0 750 BRA( !( F & FLAG_C ) );
beaglescout007 0:3dac1f1bc9e0 751 break;
beaglescout007 0:3dac1f1bc9e0 752
beaglescout007 0:3dac1f1bc9e0 753 case 0x91: // STA (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 754 STA( AA_IY ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 755 break;
beaglescout007 0:3dac1f1bc9e0 756
beaglescout007 0:3dac1f1bc9e0 757 case 0x94: // STY Zpg,X
beaglescout007 0:3dac1f1bc9e0 758 STY( AA_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 759 break;
beaglescout007 0:3dac1f1bc9e0 760
beaglescout007 0:3dac1f1bc9e0 761 case 0x95: // STA Zpg,X
beaglescout007 0:3dac1f1bc9e0 762 STA( AA_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 763 break;
beaglescout007 0:3dac1f1bc9e0 764
beaglescout007 0:3dac1f1bc9e0 765 case 0x96: // STX Zpg,Y
beaglescout007 0:3dac1f1bc9e0 766 STX( AA_ZPY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 767 break;
beaglescout007 0:3dac1f1bc9e0 768
beaglescout007 0:3dac1f1bc9e0 769 case 0x98: // TYA
beaglescout007 0:3dac1f1bc9e0 770 A = Y; TEST( A ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 771 break;
beaglescout007 0:3dac1f1bc9e0 772
beaglescout007 0:3dac1f1bc9e0 773 case 0x99: // STA Abs,Y
beaglescout007 0:3dac1f1bc9e0 774 STA( AA_ABSY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 775 break;
beaglescout007 0:3dac1f1bc9e0 776
beaglescout007 0:3dac1f1bc9e0 777 case 0x9A: // TXS
beaglescout007 0:3dac1f1bc9e0 778 SP = X; CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 779 break;
beaglescout007 0:3dac1f1bc9e0 780
beaglescout007 0:3dac1f1bc9e0 781 case 0x9D: // STA Abs,X
beaglescout007 0:3dac1f1bc9e0 782 STA( AA_ABSX ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 783 break;
beaglescout007 0:3dac1f1bc9e0 784
beaglescout007 0:3dac1f1bc9e0 785 case 0xA0: // LDY #Oper
beaglescout007 0:3dac1f1bc9e0 786 LDY( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 787 break;
beaglescout007 0:3dac1f1bc9e0 788
beaglescout007 0:3dac1f1bc9e0 789 case 0xA1: // LDA (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 790 LDA( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 791 break;
beaglescout007 0:3dac1f1bc9e0 792
beaglescout007 0:3dac1f1bc9e0 793 case 0xA2: // LDX #Oper
beaglescout007 0:3dac1f1bc9e0 794 LDX( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 795 break;
beaglescout007 0:3dac1f1bc9e0 796
beaglescout007 0:3dac1f1bc9e0 797 case 0xA4: // LDY Zpg
beaglescout007 0:3dac1f1bc9e0 798 LDY( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 799 break;
beaglescout007 0:3dac1f1bc9e0 800
beaglescout007 0:3dac1f1bc9e0 801 case 0xA5: // LDA Zpg
beaglescout007 0:3dac1f1bc9e0 802 LDA( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 803 break;
beaglescout007 0:3dac1f1bc9e0 804
beaglescout007 0:3dac1f1bc9e0 805 case 0xA6: // LDX Zpg
beaglescout007 0:3dac1f1bc9e0 806 LDX( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 807 break;
beaglescout007 0:3dac1f1bc9e0 808
beaglescout007 0:3dac1f1bc9e0 809 case 0xA8: // TAY
beaglescout007 0:3dac1f1bc9e0 810 Y = A; TEST( A ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 811 break;
beaglescout007 0:3dac1f1bc9e0 812
beaglescout007 0:3dac1f1bc9e0 813 case 0xA9: // LDA #Oper
beaglescout007 0:3dac1f1bc9e0 814 LDA( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 815 break;
beaglescout007 0:3dac1f1bc9e0 816
beaglescout007 0:3dac1f1bc9e0 817 case 0xAA: // TAX
beaglescout007 0:3dac1f1bc9e0 818 X = A; TEST( A ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 819 break;
beaglescout007 0:3dac1f1bc9e0 820
beaglescout007 0:3dac1f1bc9e0 821 case 0xAC: // LDY Abs
beaglescout007 0:3dac1f1bc9e0 822 LDY( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 823 break;
beaglescout007 0:3dac1f1bc9e0 824
beaglescout007 0:3dac1f1bc9e0 825 case 0xAD: // LDA Abs
beaglescout007 0:3dac1f1bc9e0 826 LDA( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 827 break;
beaglescout007 0:3dac1f1bc9e0 828
beaglescout007 0:3dac1f1bc9e0 829 case 0xAE: // LDX Abs
beaglescout007 0:3dac1f1bc9e0 830 LDX( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 831 break;
beaglescout007 0:3dac1f1bc9e0 832
beaglescout007 0:3dac1f1bc9e0 833 case 0xB0: // BCS
beaglescout007 0:3dac1f1bc9e0 834 BRA( F & FLAG_C );
beaglescout007 0:3dac1f1bc9e0 835 break;
beaglescout007 0:3dac1f1bc9e0 836
beaglescout007 0:3dac1f1bc9e0 837 case 0xB1: // LDA (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 838 LDA( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 839 break;
beaglescout007 0:3dac1f1bc9e0 840
beaglescout007 0:3dac1f1bc9e0 841 case 0xB4: // LDY Zpg,X
beaglescout007 0:3dac1f1bc9e0 842 LDY( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 843 break;
beaglescout007 0:3dac1f1bc9e0 844
beaglescout007 0:3dac1f1bc9e0 845 case 0xB5: // LDA Zpg,X
beaglescout007 0:3dac1f1bc9e0 846 LDA( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 847 break;
beaglescout007 0:3dac1f1bc9e0 848
beaglescout007 0:3dac1f1bc9e0 849 case 0xB6: // LDX Zpg,Y
beaglescout007 0:3dac1f1bc9e0 850 LDX( A_ZPY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 851 break;
beaglescout007 0:3dac1f1bc9e0 852
beaglescout007 0:3dac1f1bc9e0 853 case 0xB8: // CLV
beaglescout007 0:3dac1f1bc9e0 854 RSTF( FLAG_V ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 855 break;
beaglescout007 0:3dac1f1bc9e0 856
beaglescout007 0:3dac1f1bc9e0 857 case 0xB9: // LDA Abs,Y
beaglescout007 0:3dac1f1bc9e0 858 LDA( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 859 break;
beaglescout007 0:3dac1f1bc9e0 860
beaglescout007 0:3dac1f1bc9e0 861 case 0xBA: // TSX
beaglescout007 0:3dac1f1bc9e0 862 X = SP; TEST( X ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 863 break;
beaglescout007 0:3dac1f1bc9e0 864
beaglescout007 0:3dac1f1bc9e0 865 case 0xBC: // LDY Abs,X
beaglescout007 0:3dac1f1bc9e0 866 LDY( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 867 break;
beaglescout007 0:3dac1f1bc9e0 868
beaglescout007 0:3dac1f1bc9e0 869 case 0xBD: // LDA Abs,X
beaglescout007 0:3dac1f1bc9e0 870 LDA( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 871 break;
beaglescout007 0:3dac1f1bc9e0 872
beaglescout007 0:3dac1f1bc9e0 873 case 0xBE: // LDX Abs,Y
beaglescout007 0:3dac1f1bc9e0 874 LDX( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 875 break;
beaglescout007 0:3dac1f1bc9e0 876
beaglescout007 0:3dac1f1bc9e0 877 case 0xC0: // CPY #Oper
beaglescout007 0:3dac1f1bc9e0 878 CPY( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 879 break;
beaglescout007 0:3dac1f1bc9e0 880
beaglescout007 0:3dac1f1bc9e0 881 case 0xC1: // CMP (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 882 CMP( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 883 break;
beaglescout007 0:3dac1f1bc9e0 884
beaglescout007 0:3dac1f1bc9e0 885 case 0xC4: // CPY Zpg
beaglescout007 0:3dac1f1bc9e0 886 CPY( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 887 break;
beaglescout007 0:3dac1f1bc9e0 888
beaglescout007 0:3dac1f1bc9e0 889 case 0xC5: // CMP Zpg
beaglescout007 0:3dac1f1bc9e0 890 CMP( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 891 break;
beaglescout007 0:3dac1f1bc9e0 892
beaglescout007 0:3dac1f1bc9e0 893 case 0xC6: // DEC Zpg
beaglescout007 0:3dac1f1bc9e0 894 DEC( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 895 break;
beaglescout007 0:3dac1f1bc9e0 896
beaglescout007 0:3dac1f1bc9e0 897 case 0xC8: // INY
beaglescout007 0:3dac1f1bc9e0 898 ++Y; TEST( Y ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 899 break;
beaglescout007 0:3dac1f1bc9e0 900
beaglescout007 0:3dac1f1bc9e0 901 case 0xC9: // CMP #Oper
beaglescout007 0:3dac1f1bc9e0 902 CMP( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 903 break;
beaglescout007 0:3dac1f1bc9e0 904
beaglescout007 0:3dac1f1bc9e0 905 case 0xCA: // DEX
beaglescout007 0:3dac1f1bc9e0 906 --X; TEST( X ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 907 break;
beaglescout007 0:3dac1f1bc9e0 908
beaglescout007 0:3dac1f1bc9e0 909 case 0xCC: // CPY Abs
beaglescout007 0:3dac1f1bc9e0 910 CPY( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 911 break;
beaglescout007 0:3dac1f1bc9e0 912
beaglescout007 0:3dac1f1bc9e0 913 case 0xCD: // CMP Abs
beaglescout007 0:3dac1f1bc9e0 914 CMP( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 915 break;
beaglescout007 0:3dac1f1bc9e0 916
beaglescout007 0:3dac1f1bc9e0 917 case 0xCE: // DEC Abs
beaglescout007 0:3dac1f1bc9e0 918 DEC( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 919 break;
beaglescout007 0:3dac1f1bc9e0 920
beaglescout007 0:3dac1f1bc9e0 921 case 0xD0: // BNE
beaglescout007 0:3dac1f1bc9e0 922 BRA( !( F & FLAG_Z ) );
beaglescout007 0:3dac1f1bc9e0 923 break;
beaglescout007 0:3dac1f1bc9e0 924
beaglescout007 0:3dac1f1bc9e0 925 case 0xD1: // CMP (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 926 CMP( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 927 break;
beaglescout007 0:3dac1f1bc9e0 928
beaglescout007 0:3dac1f1bc9e0 929 case 0xD5: // CMP Zpg,X
beaglescout007 0:3dac1f1bc9e0 930 CMP( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 931 break;
beaglescout007 0:3dac1f1bc9e0 932
beaglescout007 0:3dac1f1bc9e0 933 case 0xD6: // DEC Zpg,X
beaglescout007 0:3dac1f1bc9e0 934 DEC( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 935 break;
beaglescout007 0:3dac1f1bc9e0 936
beaglescout007 0:3dac1f1bc9e0 937 case 0xD8: // CLD
beaglescout007 0:3dac1f1bc9e0 938 RSTF( FLAG_D ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 939 break;
beaglescout007 0:3dac1f1bc9e0 940
beaglescout007 0:3dac1f1bc9e0 941 case 0xD9: // CMP Abs,Y
beaglescout007 0:3dac1f1bc9e0 942 CMP( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 943 break;
beaglescout007 0:3dac1f1bc9e0 944
beaglescout007 0:3dac1f1bc9e0 945 case 0xDD: // CMP Abs,X
beaglescout007 0:3dac1f1bc9e0 946 CMP( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 947 break;
beaglescout007 0:3dac1f1bc9e0 948
beaglescout007 0:3dac1f1bc9e0 949 case 0xDE: // DEC Abs,X
beaglescout007 0:3dac1f1bc9e0 950 DEC( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 951 break;
beaglescout007 0:3dac1f1bc9e0 952
beaglescout007 0:3dac1f1bc9e0 953 case 0xE0: // CPX #Oper
beaglescout007 0:3dac1f1bc9e0 954 CPX( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 955 break;
beaglescout007 0:3dac1f1bc9e0 956
beaglescout007 0:3dac1f1bc9e0 957 case 0xE1: // SBC (Zpg,X)
beaglescout007 0:3dac1f1bc9e0 958 SBC( A_IX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 959 break;
beaglescout007 0:3dac1f1bc9e0 960
beaglescout007 0:3dac1f1bc9e0 961 case 0xE4: // CPX Zpg
beaglescout007 0:3dac1f1bc9e0 962 CPX( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 963 break;
beaglescout007 0:3dac1f1bc9e0 964
beaglescout007 0:3dac1f1bc9e0 965 case 0xE5: // SBC Zpg
beaglescout007 0:3dac1f1bc9e0 966 SBC( A_ZP ); CLK( 3 );
beaglescout007 0:3dac1f1bc9e0 967 break;
beaglescout007 0:3dac1f1bc9e0 968
beaglescout007 0:3dac1f1bc9e0 969 case 0xE6: // INC Zpg
beaglescout007 0:3dac1f1bc9e0 970 INC( AA_ZP ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 971 break;
beaglescout007 0:3dac1f1bc9e0 972
beaglescout007 0:3dac1f1bc9e0 973 case 0xE8: // INX
beaglescout007 0:3dac1f1bc9e0 974 ++X; TEST( X ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 975 break;
beaglescout007 0:3dac1f1bc9e0 976
beaglescout007 0:3dac1f1bc9e0 977 case 0xE9: // SBC #Oper
beaglescout007 0:3dac1f1bc9e0 978 SBC( A_IMM ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 979 break;
beaglescout007 0:3dac1f1bc9e0 980
beaglescout007 0:3dac1f1bc9e0 981 case 0xEA: // NOP
beaglescout007 0:3dac1f1bc9e0 982 CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 983 break;
beaglescout007 0:3dac1f1bc9e0 984
beaglescout007 0:3dac1f1bc9e0 985 case 0xEC: // CPX Abs
beaglescout007 0:3dac1f1bc9e0 986 CPX( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 987 break;
beaglescout007 0:3dac1f1bc9e0 988
beaglescout007 0:3dac1f1bc9e0 989 case 0xED: // SBC Abs
beaglescout007 0:3dac1f1bc9e0 990 SBC( A_ABS ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 991 break;
beaglescout007 0:3dac1f1bc9e0 992
beaglescout007 0:3dac1f1bc9e0 993 case 0xEE: // INC Abs
beaglescout007 0:3dac1f1bc9e0 994 INC( AA_ABS ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 995 break;
beaglescout007 0:3dac1f1bc9e0 996
beaglescout007 0:3dac1f1bc9e0 997 case 0xF0: // BEQ
beaglescout007 0:3dac1f1bc9e0 998 BRA( F & FLAG_Z );
beaglescout007 0:3dac1f1bc9e0 999 break;
beaglescout007 0:3dac1f1bc9e0 1000
beaglescout007 0:3dac1f1bc9e0 1001 case 0xF1: // SBC (Zpg),Y
beaglescout007 0:3dac1f1bc9e0 1002 SBC( A_IY ); CLK( 5 );
beaglescout007 0:3dac1f1bc9e0 1003 break;
beaglescout007 0:3dac1f1bc9e0 1004
beaglescout007 0:3dac1f1bc9e0 1005 case 0xF5: // SBC Zpg,X
beaglescout007 0:3dac1f1bc9e0 1006 SBC( A_ZPX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 1007 break;
beaglescout007 0:3dac1f1bc9e0 1008
beaglescout007 0:3dac1f1bc9e0 1009 case 0xF6: // INC Zpg,X
beaglescout007 0:3dac1f1bc9e0 1010 INC( AA_ZPX ); CLK( 6 );
beaglescout007 0:3dac1f1bc9e0 1011 break;
beaglescout007 0:3dac1f1bc9e0 1012
beaglescout007 0:3dac1f1bc9e0 1013 case 0xF8: // SED
beaglescout007 0:3dac1f1bc9e0 1014 SETF( FLAG_D ); CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 1015 break;
beaglescout007 0:3dac1f1bc9e0 1016
beaglescout007 0:3dac1f1bc9e0 1017 case 0xF9: // SBC Abs,Y
beaglescout007 0:3dac1f1bc9e0 1018 SBC( A_ABSY ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 1019 break;
beaglescout007 0:3dac1f1bc9e0 1020
beaglescout007 0:3dac1f1bc9e0 1021 case 0xFD: // SBC Abs,X
beaglescout007 0:3dac1f1bc9e0 1022 SBC( A_ABSX ); CLK( 4 );
beaglescout007 0:3dac1f1bc9e0 1023 break;
beaglescout007 0:3dac1f1bc9e0 1024
beaglescout007 0:3dac1f1bc9e0 1025 case 0xFE: // INC Abs,X
beaglescout007 0:3dac1f1bc9e0 1026 INC( AA_ABSX ); CLK( 7 );
beaglescout007 0:3dac1f1bc9e0 1027 break;
beaglescout007 0:3dac1f1bc9e0 1028
beaglescout007 0:3dac1f1bc9e0 1029 default: // Unknown Instruction
beaglescout007 0:3dac1f1bc9e0 1030 CLK( 2 );
beaglescout007 0:3dac1f1bc9e0 1031 break;
beaglescout007 0:3dac1f1bc9e0 1032
beaglescout007 0:3dac1f1bc9e0 1033 } /* end of switch ( byCode ) */
beaglescout007 0:3dac1f1bc9e0 1034
beaglescout007 0:3dac1f1bc9e0 1035 } /* end of while ... */
beaglescout007 0:3dac1f1bc9e0 1036
beaglescout007 0:3dac1f1bc9e0 1037 // Correct the number of the clocks
beaglescout007 0:3dac1f1bc9e0 1038 g_wPassedClocks -= wClocks;
beaglescout007 0:3dac1f1bc9e0 1039 }
beaglescout007 0:3dac1f1bc9e0 1040
beaglescout007 0:3dac1f1bc9e0 1041 // Addressing Op.
beaglescout007 0:3dac1f1bc9e0 1042 // Data
beaglescout007 0:3dac1f1bc9e0 1043 // Absolute,X
beaglescout007 0:3dac1f1bc9e0 1044 static inline BYTE K6502_ReadAbsX(){ WORD wA0, wA1; wA0 = AA_ABS; wA1 = wA0 + X; CLK( ( wA0 & 0x0100 ) != ( wA1 & 0x0100 ) ); return K6502_Read( wA1 ); };
beaglescout007 0:3dac1f1bc9e0 1045 // Absolute,Y
beaglescout007 0:3dac1f1bc9e0 1046 static inline BYTE K6502_ReadAbsY(){ WORD wA0, wA1; wA0 = AA_ABS; wA1 = wA0 + Y; CLK( ( wA0 & 0x0100 ) != ( wA1 & 0x0100 ) ); return K6502_Read( wA1 ); };
beaglescout007 0:3dac1f1bc9e0 1047 // (Indirect),Y
beaglescout007 0:3dac1f1bc9e0 1048 static inline BYTE K6502_ReadIY(){ WORD wA0, wA1; wA0 = K6502_ReadZpW( K6502_Read( PC++ ) ); wA1 = wA0 + Y; CLK( ( wA0 & 0x0100 ) != ( wA1 & 0x0100 ) ); return K6502_Read( wA1 ); };
beaglescout007 0:3dac1f1bc9e0 1049
beaglescout007 0:3dac1f1bc9e0 1050 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 1051 /* */
beaglescout007 0:3dac1f1bc9e0 1052 /* 6502 Reading/Writing Operation */
beaglescout007 0:3dac1f1bc9e0 1053 /* */
beaglescout007 0:3dac1f1bc9e0 1054 /*===================================================================*/
beaglescout007 0:3dac1f1bc9e0 1055 #include "K6502_rw.h"
beaglescout007 0:3dac1f1bc9e0 1056
beaglescout007 0:3dac1f1bc9e0 1057
beaglescout007 0:3dac1f1bc9e0 1058