![](/media/cache/profiles/251bd0442dfcc53b5a761e050f8022b8.50x50_q85.jpg)
6502 emulator for Commodore 64 ROMs, serial terminal edition for MBED. Recommend terminal echo on, line edit on, caps lock, 115200bps, implicit carriage return on newline, currently non-buffered so don't paste lots of stuff
More details at:
[https://github.com/davervw] [https://techwithdave.davevw.com/2020/03/simple-emu-c64.html]
emu6502.cpp@9:b4293b01083b, 2020-04-17 (annotated)
- Committer:
- davervw
- Date:
- Fri Apr 17 09:15:50 2020 +0000
- Revision:
- 9:b4293b01083b
- Parent:
- 8:519febdce8db
comment updates, and implemented optional #define LOCAL_LOAD // for loading from Mbed filesystem
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
davervw | 0:90de1cbc8a5f | 1 | // emu6502.c - Emu6502 - MOS6502 Emulator |
davervw | 0:90de1cbc8a5f | 2 | // |
davervw | 0:90de1cbc8a5f | 3 | //////////////////////////////////////////////////////////////////////////////// |
davervw | 0:90de1cbc8a5f | 4 | // |
davervw | 0:90de1cbc8a5f | 5 | // c-simple-emu-cbm (C Portable Version) |
davervw | 7:f49fa56672d8 | 6 | // C64/6502 Emulator for Terminal Console |
davervw | 0:90de1cbc8a5f | 7 | // |
davervw | 0:90de1cbc8a5f | 8 | // MIT License |
davervw | 0:90de1cbc8a5f | 9 | // |
davervw | 7:f49fa56672d8 | 10 | // Copyright(c) 2020 by David R. Van Wagner |
davervw | 0:90de1cbc8a5f | 11 | // davevw.com |
davervw | 0:90de1cbc8a5f | 12 | // |
davervw | 0:90de1cbc8a5f | 13 | // Permission is hereby granted, free of charge, to any person obtaining a copy |
davervw | 0:90de1cbc8a5f | 14 | // of this software and associated documentation files (the "Software"), to deal |
davervw | 0:90de1cbc8a5f | 15 | // in the Software without restriction, including without limitation the rights |
davervw | 0:90de1cbc8a5f | 16 | // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
davervw | 0:90de1cbc8a5f | 17 | // copies of the Software, and to permit persons to whom the Software is |
davervw | 0:90de1cbc8a5f | 18 | // furnished to do so, subject to the following conditions: |
davervw | 0:90de1cbc8a5f | 19 | // |
davervw | 0:90de1cbc8a5f | 20 | // The above copyright notice and this permission notice shall be included in all |
davervw | 0:90de1cbc8a5f | 21 | // copies or substantial portions of the Software. |
davervw | 0:90de1cbc8a5f | 22 | // |
davervw | 0:90de1cbc8a5f | 23 | // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
davervw | 0:90de1cbc8a5f | 24 | // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
davervw | 0:90de1cbc8a5f | 25 | // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.IN NO EVENT SHALL THE |
davervw | 0:90de1cbc8a5f | 26 | // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
davervw | 0:90de1cbc8a5f | 27 | // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
davervw | 0:90de1cbc8a5f | 28 | // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE |
davervw | 0:90de1cbc8a5f | 29 | // SOFTWARE. |
davervw | 0:90de1cbc8a5f | 30 | // |
davervw | 0:90de1cbc8a5f | 31 | //////////////////////////////////////////////////////////////////////////////// |
davervw | 0:90de1cbc8a5f | 32 | |
davervw | 0:90de1cbc8a5f | 33 | //#define snprintf sprintf_s |
davervw | 0:90de1cbc8a5f | 34 | |
davervw | 0:90de1cbc8a5f | 35 | #include <mbed.h> |
davervw | 0:90de1cbc8a5f | 36 | #include "emu6502.h" |
davervw | 0:90de1cbc8a5f | 37 | |
davervw | 0:90de1cbc8a5f | 38 | // global references |
davervw | 0:90de1cbc8a5f | 39 | extern Serial pc; |
davervw | 0:90de1cbc8a5f | 40 | |
davervw | 0:90de1cbc8a5f | 41 | // globals |
davervw | 0:90de1cbc8a5f | 42 | byte A = 0; |
davervw | 0:90de1cbc8a5f | 43 | byte X = 0; |
davervw | 0:90de1cbc8a5f | 44 | byte Y = 0; |
davervw | 0:90de1cbc8a5f | 45 | byte S = 0xFF; |
davervw | 0:90de1cbc8a5f | 46 | bool N = false; |
davervw | 0:90de1cbc8a5f | 47 | bool V = false; |
davervw | 0:90de1cbc8a5f | 48 | bool B = false; |
davervw | 0:90de1cbc8a5f | 49 | bool D = false; |
davervw | 0:90de1cbc8a5f | 50 | bool I = false; |
davervw | 0:90de1cbc8a5f | 51 | bool Z = false; |
davervw | 0:90de1cbc8a5f | 52 | bool C = false; |
davervw | 0:90de1cbc8a5f | 53 | ushort PC = 0; |
davervw | 0:90de1cbc8a5f | 54 | bool trace = false; |
davervw | 0:90de1cbc8a5f | 55 | bool step = false; |
davervw | 0:90de1cbc8a5f | 56 | |
davervw | 4:0461c100cbbb | 57 | #define USE_IRQ 0 |
davervw | 4:0461c100cbbb | 58 | |
davervw | 0:90de1cbc8a5f | 59 | extern void ResetRun(bool (*ExecutePatch)(void)) |
davervw | 0:90de1cbc8a5f | 60 | { |
davervw | 8:519febdce8db | 61 | ushort addr = (ushort)((GetMemory(0xFFFC) | (GetMemory(0xFFFD) << 8))); // JMP(RESET) |
davervw | 0:90de1cbc8a5f | 62 | Execute(addr, ExecutePatch); |
davervw | 0:90de1cbc8a5f | 63 | } |
davervw | 0:90de1cbc8a5f | 64 | |
davervw | 0:90de1cbc8a5f | 65 | #ifndef WIN32 |
davervw | 0:90de1cbc8a5f | 66 | static void strcpy_s(char* dest, size_t size, const char* src) |
davervw | 0:90de1cbc8a5f | 67 | { |
davervw | 0:90de1cbc8a5f | 68 | strncpy(dest, src, size); |
davervw | 0:90de1cbc8a5f | 69 | } |
davervw | 0:90de1cbc8a5f | 70 | |
davervw | 0:90de1cbc8a5f | 71 | static void strcat_s(char* dest, size_t size, const char* src) |
davervw | 0:90de1cbc8a5f | 72 | { |
davervw | 0:90de1cbc8a5f | 73 | strncat(dest, src, size); |
davervw | 0:90de1cbc8a5f | 74 | } |
davervw | 0:90de1cbc8a5f | 75 | #endif |
davervw | 0:90de1cbc8a5f | 76 | |
davervw | 0:90de1cbc8a5f | 77 | static void PHP() |
davervw | 0:90de1cbc8a5f | 78 | { |
davervw | 0:90de1cbc8a5f | 79 | int flags = (N ? 0x80 : 0) |
davervw | 0:90de1cbc8a5f | 80 | | (V ? 0x40 : 0) |
davervw | 0:90de1cbc8a5f | 81 | | (B ? 0x10 : 0) |
davervw | 0:90de1cbc8a5f | 82 | | (D ? 0x08 : 0) |
davervw | 0:90de1cbc8a5f | 83 | | (I ? 0x04 : 0) |
davervw | 0:90de1cbc8a5f | 84 | | (Z ? 0x02 : 0) |
davervw | 0:90de1cbc8a5f | 85 | | (C ? 0x01 : 0); |
davervw | 0:90de1cbc8a5f | 86 | Push(flags); |
davervw | 0:90de1cbc8a5f | 87 | } |
davervw | 0:90de1cbc8a5f | 88 | |
davervw | 0:90de1cbc8a5f | 89 | extern byte LO(ushort value) |
davervw | 0:90de1cbc8a5f | 90 | { |
davervw | 0:90de1cbc8a5f | 91 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 92 | } |
davervw | 0:90de1cbc8a5f | 93 | |
davervw | 0:90de1cbc8a5f | 94 | extern byte HI(ushort value) |
davervw | 0:90de1cbc8a5f | 95 | { |
davervw | 0:90de1cbc8a5f | 96 | return (byte)(value >> 8); |
davervw | 0:90de1cbc8a5f | 97 | } |
davervw | 0:90de1cbc8a5f | 98 | |
davervw | 0:90de1cbc8a5f | 99 | static byte Subtract(byte reg, byte value, bool *p_overflow) |
davervw | 0:90de1cbc8a5f | 100 | { |
davervw | 0:90de1cbc8a5f | 101 | bool old_reg_neg = (reg & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 102 | bool value_neg = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 103 | int result = reg - value - (C ? 0 : 1); |
davervw | 0:90de1cbc8a5f | 104 | N = (result & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 105 | C = (result >= 0); |
davervw | 0:90de1cbc8a5f | 106 | Z = (result == 0); |
davervw | 0:90de1cbc8a5f | 107 | bool result_neg = (result & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 108 | *p_overflow = (old_reg_neg && !value_neg && !result_neg) // neg - pos = pos |
davervw | 0:90de1cbc8a5f | 109 | || (!old_reg_neg && value_neg && result_neg); // pos - neg = neg |
davervw | 0:90de1cbc8a5f | 110 | return (byte)result; |
davervw | 0:90de1cbc8a5f | 111 | } |
davervw | 0:90de1cbc8a5f | 112 | |
davervw | 0:90de1cbc8a5f | 113 | static byte SubtractWithoutOverflow(byte reg, byte value) |
davervw | 0:90de1cbc8a5f | 114 | { |
davervw | 0:90de1cbc8a5f | 115 | C = true; // init for CMP, etc. |
davervw | 0:90de1cbc8a5f | 116 | bool unused; |
davervw | 0:90de1cbc8a5f | 117 | return Subtract(reg, value, &unused); |
davervw | 0:90de1cbc8a5f | 118 | } |
davervw | 0:90de1cbc8a5f | 119 | |
davervw | 0:90de1cbc8a5f | 120 | static void CMP(byte value) |
davervw | 0:90de1cbc8a5f | 121 | { |
davervw | 0:90de1cbc8a5f | 122 | SubtractWithoutOverflow(A, value); |
davervw | 0:90de1cbc8a5f | 123 | } |
davervw | 0:90de1cbc8a5f | 124 | |
davervw | 0:90de1cbc8a5f | 125 | static void CPX(byte value) |
davervw | 0:90de1cbc8a5f | 126 | { |
davervw | 0:90de1cbc8a5f | 127 | SubtractWithoutOverflow(X, value); |
davervw | 0:90de1cbc8a5f | 128 | } |
davervw | 0:90de1cbc8a5f | 129 | |
davervw | 0:90de1cbc8a5f | 130 | static void CPY(byte value) |
davervw | 0:90de1cbc8a5f | 131 | { |
davervw | 0:90de1cbc8a5f | 132 | SubtractWithoutOverflow(Y, value); |
davervw | 0:90de1cbc8a5f | 133 | } |
davervw | 0:90de1cbc8a5f | 134 | |
davervw | 0:90de1cbc8a5f | 135 | static void SetReg(byte *p_reg, int value) |
davervw | 0:90de1cbc8a5f | 136 | { |
davervw | 0:90de1cbc8a5f | 137 | *p_reg = (byte)value; |
davervw | 0:90de1cbc8a5f | 138 | Z = (*p_reg == 0); |
davervw | 0:90de1cbc8a5f | 139 | N = ((*p_reg & 0x80) != 0); |
davervw | 0:90de1cbc8a5f | 140 | } |
davervw | 0:90de1cbc8a5f | 141 | |
davervw | 0:90de1cbc8a5f | 142 | static void SetA(int value) |
davervw | 0:90de1cbc8a5f | 143 | { |
davervw | 0:90de1cbc8a5f | 144 | SetReg(&A, value); |
davervw | 0:90de1cbc8a5f | 145 | } |
davervw | 0:90de1cbc8a5f | 146 | |
davervw | 0:90de1cbc8a5f | 147 | static void SetX(int value) |
davervw | 0:90de1cbc8a5f | 148 | { |
davervw | 0:90de1cbc8a5f | 149 | SetReg(&X, value); |
davervw | 0:90de1cbc8a5f | 150 | } |
davervw | 0:90de1cbc8a5f | 151 | |
davervw | 0:90de1cbc8a5f | 152 | static void SetY(int value) |
davervw | 0:90de1cbc8a5f | 153 | { |
davervw | 0:90de1cbc8a5f | 154 | SetReg(&Y, value); |
davervw | 0:90de1cbc8a5f | 155 | } |
davervw | 0:90de1cbc8a5f | 156 | |
davervw | 0:90de1cbc8a5f | 157 | static void SBC(byte value) |
davervw | 0:90de1cbc8a5f | 158 | { |
davervw | 0:90de1cbc8a5f | 159 | if (D) |
davervw | 0:90de1cbc8a5f | 160 | { |
davervw | 0:90de1cbc8a5f | 161 | int A_dec = (A & 0xF) + ((A >> 4) * 10); |
davervw | 0:90de1cbc8a5f | 162 | int value_dec = (value & 0xF) + ((value >> 4) * 10); |
davervw | 0:90de1cbc8a5f | 163 | int result_dec = A_dec - value_dec - (C ? 0 : 1); |
davervw | 0:90de1cbc8a5f | 164 | C = (result_dec >= 0); |
davervw | 0:90de1cbc8a5f | 165 | if (!C) |
davervw | 0:90de1cbc8a5f | 166 | result_dec = -result_dec; // absolute value |
davervw | 0:90de1cbc8a5f | 167 | int result = (result_dec % 10) | (((result_dec / 10) % 10) << 4); |
davervw | 0:90de1cbc8a5f | 168 | SetA(result); |
davervw | 0:90de1cbc8a5f | 169 | N = false; // undefined? |
davervw | 0:90de1cbc8a5f | 170 | V = false; // undefined? |
davervw | 0:90de1cbc8a5f | 171 | } |
davervw | 0:90de1cbc8a5f | 172 | else |
davervw | 0:90de1cbc8a5f | 173 | { |
davervw | 0:90de1cbc8a5f | 174 | byte result = Subtract(A, value, &V); |
davervw | 0:90de1cbc8a5f | 175 | SetA(result); |
davervw | 0:90de1cbc8a5f | 176 | } |
davervw | 0:90de1cbc8a5f | 177 | } |
davervw | 0:90de1cbc8a5f | 178 | |
davervw | 4:0461c100cbbb | 179 | static void ADC_OP(byte value) |
davervw | 0:90de1cbc8a5f | 180 | { |
davervw | 0:90de1cbc8a5f | 181 | int result; |
davervw | 0:90de1cbc8a5f | 182 | if (D) |
davervw | 0:90de1cbc8a5f | 183 | { |
davervw | 0:90de1cbc8a5f | 184 | int A_dec = (A & 0xF) + ((A >> 4) * 10); |
davervw | 0:90de1cbc8a5f | 185 | int value_dec = (value & 0xF) + ((value >> 4) * 10); |
davervw | 0:90de1cbc8a5f | 186 | int result_dec = A_dec + value_dec + (C ? 1 : 0); |
davervw | 0:90de1cbc8a5f | 187 | C = (result_dec > 99); |
davervw | 0:90de1cbc8a5f | 188 | result = (result_dec % 10) | (((result_dec / 10) % 10) << 4); |
davervw | 0:90de1cbc8a5f | 189 | SetA(result); |
davervw | 0:90de1cbc8a5f | 190 | Z = (result_dec == 0); // BCD quirk -- 100 doesn't set Z |
davervw | 0:90de1cbc8a5f | 191 | V = false; |
davervw | 0:90de1cbc8a5f | 192 | } |
davervw | 0:90de1cbc8a5f | 193 | else |
davervw | 0:90de1cbc8a5f | 194 | { |
davervw | 0:90de1cbc8a5f | 195 | bool A_old_neg = (A & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 196 | bool value_neg = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 197 | result = A + value + (C ? 1 : 0); |
davervw | 0:90de1cbc8a5f | 198 | C = (result & 0x100) != 0; |
davervw | 0:90de1cbc8a5f | 199 | SetA(result); |
davervw | 0:90de1cbc8a5f | 200 | bool result_neg = (result & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 201 | V = (!A_old_neg && !value_neg && result_neg) // pos + pos = neg: overflow |
davervw | 0:90de1cbc8a5f | 202 | || (A_old_neg && value_neg && !result_neg); // neg + neg = pos: overflow |
davervw | 0:90de1cbc8a5f | 203 | } |
davervw | 0:90de1cbc8a5f | 204 | } |
davervw | 0:90de1cbc8a5f | 205 | |
davervw | 0:90de1cbc8a5f | 206 | static void ORA(int value) |
davervw | 0:90de1cbc8a5f | 207 | { |
davervw | 0:90de1cbc8a5f | 208 | SetA(A | value); |
davervw | 0:90de1cbc8a5f | 209 | } |
davervw | 0:90de1cbc8a5f | 210 | |
davervw | 0:90de1cbc8a5f | 211 | static void EOR(int value) |
davervw | 0:90de1cbc8a5f | 212 | { |
davervw | 0:90de1cbc8a5f | 213 | SetA(A ^ value); |
davervw | 0:90de1cbc8a5f | 214 | } |
davervw | 0:90de1cbc8a5f | 215 | |
davervw | 0:90de1cbc8a5f | 216 | static void AND(int value) |
davervw | 0:90de1cbc8a5f | 217 | { |
davervw | 0:90de1cbc8a5f | 218 | SetA(A & value); |
davervw | 0:90de1cbc8a5f | 219 | } |
davervw | 0:90de1cbc8a5f | 220 | |
davervw | 4:0461c100cbbb | 221 | static void BIT_OP(byte value) |
davervw | 0:90de1cbc8a5f | 222 | { |
davervw | 0:90de1cbc8a5f | 223 | Z = (A & value) == 0; |
davervw | 0:90de1cbc8a5f | 224 | N = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 225 | V = (value & 0x40) != 0; |
davervw | 0:90de1cbc8a5f | 226 | } |
davervw | 0:90de1cbc8a5f | 227 | |
davervw | 0:90de1cbc8a5f | 228 | static byte ASL(int value) |
davervw | 0:90de1cbc8a5f | 229 | { |
davervw | 0:90de1cbc8a5f | 230 | C = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 231 | value = (byte)(value << 1); |
davervw | 0:90de1cbc8a5f | 232 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 233 | N = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 234 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 235 | } |
davervw | 0:90de1cbc8a5f | 236 | |
davervw | 0:90de1cbc8a5f | 237 | static byte LSR(int value) |
davervw | 0:90de1cbc8a5f | 238 | { |
davervw | 0:90de1cbc8a5f | 239 | C = (value & 0x01) != 0; |
davervw | 0:90de1cbc8a5f | 240 | value = (byte)(value >> 1); |
davervw | 0:90de1cbc8a5f | 241 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 242 | N = false; |
davervw | 0:90de1cbc8a5f | 243 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 244 | } |
davervw | 0:90de1cbc8a5f | 245 | |
davervw | 0:90de1cbc8a5f | 246 | static byte ROL(int value) |
davervw | 0:90de1cbc8a5f | 247 | { |
davervw | 0:90de1cbc8a5f | 248 | bool newC = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 249 | value = (byte)((value << 1) | (C ? 1 : 0)); |
davervw | 0:90de1cbc8a5f | 250 | C = newC; |
davervw | 0:90de1cbc8a5f | 251 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 252 | N = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 253 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 254 | } |
davervw | 0:90de1cbc8a5f | 255 | |
davervw | 0:90de1cbc8a5f | 256 | static byte ROR(int value) |
davervw | 0:90de1cbc8a5f | 257 | { |
davervw | 0:90de1cbc8a5f | 258 | bool newC = (value & 0x01) != 0; |
davervw | 0:90de1cbc8a5f | 259 | N = C; |
davervw | 0:90de1cbc8a5f | 260 | value = (byte)((value >> 1) | (C ? 0x80 : 0)); |
davervw | 0:90de1cbc8a5f | 261 | C = newC; |
davervw | 0:90de1cbc8a5f | 262 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 263 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 264 | } |
davervw | 0:90de1cbc8a5f | 265 | |
davervw | 0:90de1cbc8a5f | 266 | extern void Push(int value) |
davervw | 0:90de1cbc8a5f | 267 | { |
davervw | 0:90de1cbc8a5f | 268 | SetMemory((ushort)(0x100 + (S--)), (byte)value); |
davervw | 0:90de1cbc8a5f | 269 | } |
davervw | 0:90de1cbc8a5f | 270 | |
davervw | 0:90de1cbc8a5f | 271 | extern byte Pop(void) |
davervw | 0:90de1cbc8a5f | 272 | { |
davervw | 0:90de1cbc8a5f | 273 | return GetMemory((ushort)(0x100 + (++S))); |
davervw | 0:90de1cbc8a5f | 274 | } |
davervw | 0:90de1cbc8a5f | 275 | |
davervw | 0:90de1cbc8a5f | 276 | static void PLP() |
davervw | 0:90de1cbc8a5f | 277 | { |
davervw | 0:90de1cbc8a5f | 278 | int flags = Pop(); |
davervw | 0:90de1cbc8a5f | 279 | N = (flags & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 280 | V = (flags & 0x40) != 0; |
davervw | 0:90de1cbc8a5f | 281 | B = (flags & 0x10) != 0; |
davervw | 0:90de1cbc8a5f | 282 | D = (flags & 0x08) != 0; |
davervw | 0:90de1cbc8a5f | 283 | I = (flags & 0x04) != 0; |
davervw | 0:90de1cbc8a5f | 284 | Z = (flags & 0x02) != 0; |
davervw | 0:90de1cbc8a5f | 285 | C = (flags & 0x01) != 0; |
davervw | 0:90de1cbc8a5f | 286 | } |
davervw | 0:90de1cbc8a5f | 287 | |
davervw | 0:90de1cbc8a5f | 288 | static void PHA() |
davervw | 0:90de1cbc8a5f | 289 | { |
davervw | 0:90de1cbc8a5f | 290 | Push(A); |
davervw | 0:90de1cbc8a5f | 291 | } |
davervw | 0:90de1cbc8a5f | 292 | |
davervw | 0:90de1cbc8a5f | 293 | static void PLA() |
davervw | 0:90de1cbc8a5f | 294 | { |
davervw | 0:90de1cbc8a5f | 295 | SetA(Pop()); |
davervw | 0:90de1cbc8a5f | 296 | } |
davervw | 0:90de1cbc8a5f | 297 | |
davervw | 0:90de1cbc8a5f | 298 | static void CLC() |
davervw | 0:90de1cbc8a5f | 299 | { |
davervw | 0:90de1cbc8a5f | 300 | C = false; |
davervw | 0:90de1cbc8a5f | 301 | } |
davervw | 0:90de1cbc8a5f | 302 | |
davervw | 0:90de1cbc8a5f | 303 | static void CLD() |
davervw | 0:90de1cbc8a5f | 304 | { |
davervw | 0:90de1cbc8a5f | 305 | D = false; |
davervw | 0:90de1cbc8a5f | 306 | } |
davervw | 0:90de1cbc8a5f | 307 | |
davervw | 0:90de1cbc8a5f | 308 | static void CLI() |
davervw | 0:90de1cbc8a5f | 309 | { |
davervw | 0:90de1cbc8a5f | 310 | I = false; |
davervw | 0:90de1cbc8a5f | 311 | } |
davervw | 0:90de1cbc8a5f | 312 | |
davervw | 0:90de1cbc8a5f | 313 | static void CLV() |
davervw | 0:90de1cbc8a5f | 314 | { |
davervw | 0:90de1cbc8a5f | 315 | V = false; |
davervw | 0:90de1cbc8a5f | 316 | } |
davervw | 0:90de1cbc8a5f | 317 | |
davervw | 0:90de1cbc8a5f | 318 | static void SEC() |
davervw | 0:90de1cbc8a5f | 319 | { |
davervw | 0:90de1cbc8a5f | 320 | C = true; |
davervw | 0:90de1cbc8a5f | 321 | } |
davervw | 0:90de1cbc8a5f | 322 | |
davervw | 0:90de1cbc8a5f | 323 | static void SED() |
davervw | 0:90de1cbc8a5f | 324 | { |
davervw | 0:90de1cbc8a5f | 325 | D = true; |
davervw | 0:90de1cbc8a5f | 326 | } |
davervw | 0:90de1cbc8a5f | 327 | |
davervw | 0:90de1cbc8a5f | 328 | static void SEI() |
davervw | 0:90de1cbc8a5f | 329 | { |
davervw | 0:90de1cbc8a5f | 330 | I = true; |
davervw | 0:90de1cbc8a5f | 331 | } |
davervw | 0:90de1cbc8a5f | 332 | |
davervw | 0:90de1cbc8a5f | 333 | static byte INC(byte value) |
davervw | 0:90de1cbc8a5f | 334 | { |
davervw | 0:90de1cbc8a5f | 335 | ++value; |
davervw | 0:90de1cbc8a5f | 336 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 337 | N = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 338 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 339 | } |
davervw | 0:90de1cbc8a5f | 340 | |
davervw | 0:90de1cbc8a5f | 341 | static void INX() |
davervw | 0:90de1cbc8a5f | 342 | { |
davervw | 0:90de1cbc8a5f | 343 | X = INC(X); |
davervw | 0:90de1cbc8a5f | 344 | } |
davervw | 0:90de1cbc8a5f | 345 | |
davervw | 0:90de1cbc8a5f | 346 | static void INY() |
davervw | 0:90de1cbc8a5f | 347 | { |
davervw | 0:90de1cbc8a5f | 348 | Y = INC(Y); |
davervw | 0:90de1cbc8a5f | 349 | } |
davervw | 0:90de1cbc8a5f | 350 | |
davervw | 0:90de1cbc8a5f | 351 | static byte DEC(byte value) |
davervw | 0:90de1cbc8a5f | 352 | { |
davervw | 0:90de1cbc8a5f | 353 | --value; |
davervw | 0:90de1cbc8a5f | 354 | Z = (value == 0); |
davervw | 0:90de1cbc8a5f | 355 | N = (value & 0x80) != 0; |
davervw | 0:90de1cbc8a5f | 356 | return (byte)value; |
davervw | 0:90de1cbc8a5f | 357 | } |
davervw | 0:90de1cbc8a5f | 358 | |
davervw | 0:90de1cbc8a5f | 359 | static void DEX() |
davervw | 0:90de1cbc8a5f | 360 | { |
davervw | 0:90de1cbc8a5f | 361 | X = DEC(X); |
davervw | 0:90de1cbc8a5f | 362 | } |
davervw | 0:90de1cbc8a5f | 363 | |
davervw | 0:90de1cbc8a5f | 364 | static void DEY() |
davervw | 0:90de1cbc8a5f | 365 | { |
davervw | 0:90de1cbc8a5f | 366 | Y = DEC(Y); |
davervw | 0:90de1cbc8a5f | 367 | } |
davervw | 0:90de1cbc8a5f | 368 | |
davervw | 0:90de1cbc8a5f | 369 | static void NOP() |
davervw | 0:90de1cbc8a5f | 370 | { |
davervw | 0:90de1cbc8a5f | 371 | } |
davervw | 0:90de1cbc8a5f | 372 | |
davervw | 0:90de1cbc8a5f | 373 | static void TXA() |
davervw | 0:90de1cbc8a5f | 374 | { |
davervw | 0:90de1cbc8a5f | 375 | SetReg(&A, X); |
davervw | 0:90de1cbc8a5f | 376 | } |
davervw | 0:90de1cbc8a5f | 377 | |
davervw | 0:90de1cbc8a5f | 378 | static void TAX() |
davervw | 0:90de1cbc8a5f | 379 | { |
davervw | 0:90de1cbc8a5f | 380 | SetReg(&X, A); |
davervw | 0:90de1cbc8a5f | 381 | } |
davervw | 0:90de1cbc8a5f | 382 | |
davervw | 0:90de1cbc8a5f | 383 | static void TYA() |
davervw | 0:90de1cbc8a5f | 384 | { |
davervw | 0:90de1cbc8a5f | 385 | SetReg(&A, Y); |
davervw | 0:90de1cbc8a5f | 386 | } |
davervw | 0:90de1cbc8a5f | 387 | |
davervw | 0:90de1cbc8a5f | 388 | static void TAY() |
davervw | 0:90de1cbc8a5f | 389 | { |
davervw | 0:90de1cbc8a5f | 390 | SetReg(&Y, A); |
davervw | 0:90de1cbc8a5f | 391 | } |
davervw | 0:90de1cbc8a5f | 392 | |
davervw | 0:90de1cbc8a5f | 393 | static void TXS() |
davervw | 0:90de1cbc8a5f | 394 | { |
davervw | 0:90de1cbc8a5f | 395 | S = X; |
davervw | 0:90de1cbc8a5f | 396 | } |
davervw | 0:90de1cbc8a5f | 397 | |
davervw | 0:90de1cbc8a5f | 398 | static void TSX() |
davervw | 0:90de1cbc8a5f | 399 | { |
davervw | 0:90de1cbc8a5f | 400 | SetReg(&X, S); |
davervw | 0:90de1cbc8a5f | 401 | } |
davervw | 0:90de1cbc8a5f | 402 | |
davervw | 0:90de1cbc8a5f | 403 | static ushort GetBR(ushort addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 404 | { |
davervw | 0:90de1cbc8a5f | 405 | *p_conditional = true; |
davervw | 0:90de1cbc8a5f | 406 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 407 | sbyte offset = (sbyte)GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 408 | ushort addr2 = (ushort)(addr + 2 + offset); |
davervw | 0:90de1cbc8a5f | 409 | return addr2; |
davervw | 0:90de1cbc8a5f | 410 | } |
davervw | 0:90de1cbc8a5f | 411 | |
davervw | 0:90de1cbc8a5f | 412 | static void BR(bool branch, ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 413 | { |
davervw | 0:90de1cbc8a5f | 414 | ushort addr2 = GetBR(*p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 415 | if (branch) |
davervw | 0:90de1cbc8a5f | 416 | { |
davervw | 0:90de1cbc8a5f | 417 | *p_addr = addr2; |
davervw | 0:90de1cbc8a5f | 418 | *p_bytes = 0; // don't advance addr |
davervw | 0:90de1cbc8a5f | 419 | } |
davervw | 0:90de1cbc8a5f | 420 | } |
davervw | 0:90de1cbc8a5f | 421 | |
davervw | 0:90de1cbc8a5f | 422 | static void BPL(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 423 | { |
davervw | 0:90de1cbc8a5f | 424 | BR(!N, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 425 | } |
davervw | 0:90de1cbc8a5f | 426 | |
davervw | 0:90de1cbc8a5f | 427 | static void BMI(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 428 | { |
davervw | 0:90de1cbc8a5f | 429 | BR(N, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 430 | } |
davervw | 0:90de1cbc8a5f | 431 | |
davervw | 0:90de1cbc8a5f | 432 | static void BCC(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 433 | { |
davervw | 0:90de1cbc8a5f | 434 | BR(!C, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 435 | } |
davervw | 0:90de1cbc8a5f | 436 | |
davervw | 0:90de1cbc8a5f | 437 | static void BCS(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 438 | { |
davervw | 0:90de1cbc8a5f | 439 | BR(C, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 440 | } |
davervw | 0:90de1cbc8a5f | 441 | |
davervw | 0:90de1cbc8a5f | 442 | static void BVC(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 443 | { |
davervw | 0:90de1cbc8a5f | 444 | BR(!V, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 445 | } |
davervw | 0:90de1cbc8a5f | 446 | |
davervw | 0:90de1cbc8a5f | 447 | static void BVS(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 448 | { |
davervw | 0:90de1cbc8a5f | 449 | BR(V, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 450 | } |
davervw | 0:90de1cbc8a5f | 451 | |
davervw | 0:90de1cbc8a5f | 452 | static void BNE(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 453 | { |
davervw | 0:90de1cbc8a5f | 454 | BR(!Z, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 455 | } |
davervw | 0:90de1cbc8a5f | 456 | |
davervw | 0:90de1cbc8a5f | 457 | static void BEQ(ushort *p_addr, bool *p_conditional, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 458 | { |
davervw | 0:90de1cbc8a5f | 459 | BR(Z, p_addr, p_conditional, p_bytes); |
davervw | 0:90de1cbc8a5f | 460 | } |
davervw | 0:90de1cbc8a5f | 461 | |
davervw | 0:90de1cbc8a5f | 462 | static void JSR(ushort *p_addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 463 | { |
davervw | 0:90de1cbc8a5f | 464 | *p_bytes = 3; // for next calculation |
davervw | 0:90de1cbc8a5f | 465 | ushort addr2 = (ushort)(*p_addr + *p_bytes - 1); |
davervw | 0:90de1cbc8a5f | 466 | ushort addr3 = (ushort)(GetMemory((ushort)(*p_addr + 1)) | (GetMemory((ushort)(*p_addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 467 | Push(HI(addr2)); |
davervw | 0:90de1cbc8a5f | 468 | Push(LO(addr2)); |
davervw | 0:90de1cbc8a5f | 469 | *p_addr = addr3; |
davervw | 0:90de1cbc8a5f | 470 | *p_bytes = 0; // addr already changed |
davervw | 0:90de1cbc8a5f | 471 | } |
davervw | 0:90de1cbc8a5f | 472 | |
davervw | 0:90de1cbc8a5f | 473 | static void RTS(ushort *p_addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 474 | { |
davervw | 0:90de1cbc8a5f | 475 | byte lo = Pop(); |
davervw | 0:90de1cbc8a5f | 476 | byte hi = Pop(); |
davervw | 0:90de1cbc8a5f | 477 | *p_bytes = 1; // make sure caller increases addr by one |
davervw | 0:90de1cbc8a5f | 478 | *p_addr = (ushort)((hi << 8) | lo); |
davervw | 0:90de1cbc8a5f | 479 | } |
davervw | 0:90de1cbc8a5f | 480 | |
davervw | 0:90de1cbc8a5f | 481 | static void RTI(ushort *p_addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 482 | { |
davervw | 0:90de1cbc8a5f | 483 | PLP(); |
davervw | 4:0461c100cbbb | 484 | byte lo = Pop(); |
davervw | 0:90de1cbc8a5f | 485 | byte hi = Pop(); |
davervw | 0:90de1cbc8a5f | 486 | *p_bytes = 0; // make sure caller does not increase addr by one |
davervw | 0:90de1cbc8a5f | 487 | *p_addr = (ushort)((hi << 8) | lo); |
davervw | 0:90de1cbc8a5f | 488 | } |
davervw | 0:90de1cbc8a5f | 489 | |
davervw | 8:519febdce8db | 490 | static void BRK(byte *p_bytes) |
davervw | 8:519febdce8db | 491 | { |
davervw | 8:519febdce8db | 492 | ++PC; |
davervw | 8:519febdce8db | 493 | Push(HI(PC)); |
davervw | 8:519febdce8db | 494 | Push(LO(PC)); |
davervw | 8:519febdce8db | 495 | PHP(); |
davervw | 8:519febdce8db | 496 | B = true; |
davervw | 8:519febdce8db | 497 | PC = (ushort)(GetMemory(0xFFFE) + (GetMemory(0xFFFF) << 8)); // JMP(IRQ) |
davervw | 8:519febdce8db | 498 | *p_bytes = 0; |
davervw | 8:519febdce8db | 499 | } |
davervw | 8:519febdce8db | 500 | |
davervw | 0:90de1cbc8a5f | 501 | static void JMP(ushort *p_addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 502 | { |
davervw | 0:90de1cbc8a5f | 503 | *p_bytes = 0; // caller should not advance address |
davervw | 0:90de1cbc8a5f | 504 | ushort addr2 = (ushort)(GetMemory((ushort)(*p_addr + 1)) | (GetMemory((ushort)(*p_addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 505 | *p_addr = addr2; |
davervw | 0:90de1cbc8a5f | 506 | } |
davervw | 0:90de1cbc8a5f | 507 | |
davervw | 0:90de1cbc8a5f | 508 | static void JMPIND(ushort *p_addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 509 | { |
davervw | 0:90de1cbc8a5f | 510 | *p_bytes = 0; // caller should not advance address |
davervw | 0:90de1cbc8a5f | 511 | ushort addr2 = (ushort)(GetMemory((ushort)(*p_addr + 1)) | (GetMemory((ushort)(*p_addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 512 | ushort addr3; |
davervw | 0:90de1cbc8a5f | 513 | if ((addr2 & 0xFF) == 0xFF) // JMP($XXFF) won't go over page boundary |
davervw | 0:90de1cbc8a5f | 514 | addr3 = (ushort)(GetMemory(addr2) | (GetMemory((ushort)(addr2 - 0xFF)) << 8)); // 6502 "bug" - will use XXFF and XX00 as source of address |
davervw | 0:90de1cbc8a5f | 515 | else |
davervw | 0:90de1cbc8a5f | 516 | addr3 = (ushort)(GetMemory(addr2) | (GetMemory((ushort)(addr2 + 1)) << 8)); |
davervw | 0:90de1cbc8a5f | 517 | *p_addr = addr3; |
davervw | 0:90de1cbc8a5f | 518 | } |
davervw | 0:90de1cbc8a5f | 519 | |
davervw | 0:90de1cbc8a5f | 520 | // "A:FF X:FF Y:FF S:FF P:XX-XXXXX" |
davervw | 0:90de1cbc8a5f | 521 | static void GetDisplayState(char *state, int state_size) |
davervw | 0:90de1cbc8a5f | 522 | { |
davervw | 0:90de1cbc8a5f | 523 | snprintf(state, state_size, "A:%02X X:%02X Y:%02X S:%02X P:%c%c-%c%c%c%c%c", |
davervw | 0:90de1cbc8a5f | 524 | A, |
davervw | 0:90de1cbc8a5f | 525 | X, |
davervw | 0:90de1cbc8a5f | 526 | Y, |
davervw | 0:90de1cbc8a5f | 527 | S, |
davervw | 0:90de1cbc8a5f | 528 | N ? 'N' : ' ', |
davervw | 0:90de1cbc8a5f | 529 | V ? 'V' : ' ', |
davervw | 0:90de1cbc8a5f | 530 | B ? 'B' : ' ', |
davervw | 0:90de1cbc8a5f | 531 | D ? 'D' : ' ', |
davervw | 0:90de1cbc8a5f | 532 | I ? 'I' : ' ', |
davervw | 0:90de1cbc8a5f | 533 | Z ? 'Z' : ' ', |
davervw | 0:90de1cbc8a5f | 534 | C ? 'C' : ' ' |
davervw | 0:90de1cbc8a5f | 535 | ); |
davervw | 0:90de1cbc8a5f | 536 | } |
davervw | 0:90de1cbc8a5f | 537 | |
davervw | 0:90de1cbc8a5f | 538 | static byte GetIndX(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 539 | { |
davervw | 0:90de1cbc8a5f | 540 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 541 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) + X); |
davervw | 0:90de1cbc8a5f | 542 | return GetMemory((ushort)(GetMemory(addr2) | (GetMemory((ushort)(addr2 + 1)) << 8))); |
davervw | 0:90de1cbc8a5f | 543 | } |
davervw | 0:90de1cbc8a5f | 544 | |
davervw | 0:90de1cbc8a5f | 545 | static void SetIndX(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 546 | { |
davervw | 0:90de1cbc8a5f | 547 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 548 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) + X); |
davervw | 0:90de1cbc8a5f | 549 | ushort addr3 = (ushort)(GetMemory(addr2) | (GetMemory((ushort)(addr2 + 1)) << 8)); |
davervw | 0:90de1cbc8a5f | 550 | SetMemory(addr3, value); |
davervw | 0:90de1cbc8a5f | 551 | } |
davervw | 0:90de1cbc8a5f | 552 | |
davervw | 0:90de1cbc8a5f | 553 | static byte GetIndY(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 554 | { |
davervw | 0:90de1cbc8a5f | 555 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 556 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 557 | ushort addr3 = (ushort)((GetMemory(addr2) | (GetMemory((ushort)(addr2 + 1)) << 8)) + Y); |
davervw | 0:90de1cbc8a5f | 558 | return GetMemory(addr3); |
davervw | 0:90de1cbc8a5f | 559 | } |
davervw | 0:90de1cbc8a5f | 560 | |
davervw | 0:90de1cbc8a5f | 561 | static void SetIndY(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 562 | { |
davervw | 0:90de1cbc8a5f | 563 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 564 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 565 | ushort addr3 = (ushort)((GetMemory(addr2) | (GetMemory((ushort)(addr2 + 1)) << 8)) + Y); |
davervw | 0:90de1cbc8a5f | 566 | SetMemory(addr3, value); |
davervw | 0:90de1cbc8a5f | 567 | } |
davervw | 0:90de1cbc8a5f | 568 | |
davervw | 0:90de1cbc8a5f | 569 | static byte GetZP(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 570 | { |
davervw | 0:90de1cbc8a5f | 571 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 572 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 573 | return GetMemory(addr2); |
davervw | 0:90de1cbc8a5f | 574 | } |
davervw | 0:90de1cbc8a5f | 575 | |
davervw | 0:90de1cbc8a5f | 576 | static void SetZP(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 577 | { |
davervw | 0:90de1cbc8a5f | 578 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 579 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 580 | SetMemory(addr2, value); |
davervw | 0:90de1cbc8a5f | 581 | } |
davervw | 0:90de1cbc8a5f | 582 | |
davervw | 0:90de1cbc8a5f | 583 | static byte GetZPX(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 584 | { |
davervw | 0:90de1cbc8a5f | 585 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 586 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 587 | return GetMemory((byte)(addr2 + X)); |
davervw | 0:90de1cbc8a5f | 588 | } |
davervw | 0:90de1cbc8a5f | 589 | |
davervw | 0:90de1cbc8a5f | 590 | static void SetZPX(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 591 | { |
davervw | 0:90de1cbc8a5f | 592 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 593 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 594 | SetMemory((byte)(addr2 + X), value); |
davervw | 0:90de1cbc8a5f | 595 | } |
davervw | 0:90de1cbc8a5f | 596 | |
davervw | 0:90de1cbc8a5f | 597 | static byte GetZPY(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 598 | { |
davervw | 0:90de1cbc8a5f | 599 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 600 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 601 | return GetMemory((byte)(addr2 + Y)); |
davervw | 0:90de1cbc8a5f | 602 | } |
davervw | 0:90de1cbc8a5f | 603 | |
davervw | 0:90de1cbc8a5f | 604 | static void SetZPY(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 605 | { |
davervw | 0:90de1cbc8a5f | 606 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 607 | ushort addr2 = GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 608 | SetMemory((byte)(addr2 + Y), value); |
davervw | 0:90de1cbc8a5f | 609 | } |
davervw | 0:90de1cbc8a5f | 610 | |
davervw | 0:90de1cbc8a5f | 611 | static byte GetABS(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 612 | { |
davervw | 0:90de1cbc8a5f | 613 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 614 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 615 | return GetMemory(addr2); |
davervw | 0:90de1cbc8a5f | 616 | } |
davervw | 0:90de1cbc8a5f | 617 | |
davervw | 0:90de1cbc8a5f | 618 | static void SetABS(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 619 | { |
davervw | 0:90de1cbc8a5f | 620 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 621 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 622 | SetMemory(addr2, value); |
davervw | 0:90de1cbc8a5f | 623 | } |
davervw | 0:90de1cbc8a5f | 624 | |
davervw | 0:90de1cbc8a5f | 625 | static byte GetABSX(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 626 | { |
davervw | 0:90de1cbc8a5f | 627 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 628 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 629 | return GetMemory((ushort)(addr2 + X)); |
davervw | 0:90de1cbc8a5f | 630 | } |
davervw | 0:90de1cbc8a5f | 631 | |
davervw | 0:90de1cbc8a5f | 632 | static void SetABSX(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 633 | { |
davervw | 0:90de1cbc8a5f | 634 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 635 | ushort addr2 = (ushort)((GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)) + X); |
davervw | 0:90de1cbc8a5f | 636 | SetMemory(addr2, value); |
davervw | 0:90de1cbc8a5f | 637 | } |
davervw | 0:90de1cbc8a5f | 638 | |
davervw | 0:90de1cbc8a5f | 639 | static byte GetABSY(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 640 | { |
davervw | 0:90de1cbc8a5f | 641 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 642 | ushort addr2 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 643 | return GetMemory((ushort)(addr2 + Y)); |
davervw | 0:90de1cbc8a5f | 644 | } |
davervw | 0:90de1cbc8a5f | 645 | |
davervw | 0:90de1cbc8a5f | 646 | static void SetABSY(byte value, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 647 | { |
davervw | 0:90de1cbc8a5f | 648 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 649 | ushort addr2 = (ushort)((GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)) + Y); |
davervw | 0:90de1cbc8a5f | 650 | SetMemory(addr2, value); |
davervw | 0:90de1cbc8a5f | 651 | } |
davervw | 0:90de1cbc8a5f | 652 | |
davervw | 0:90de1cbc8a5f | 653 | static byte GetIM(ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 654 | { |
davervw | 0:90de1cbc8a5f | 655 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 656 | return GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 657 | } |
davervw | 0:90de1cbc8a5f | 658 | |
davervw | 0:90de1cbc8a5f | 659 | extern void Execute(ushort addr, bool (*ExecutePatch)(void)) |
davervw | 0:90de1cbc8a5f | 660 | { |
davervw | 0:90de1cbc8a5f | 661 | bool conditional; |
davervw | 0:90de1cbc8a5f | 662 | byte bytes; |
davervw | 0:90de1cbc8a5f | 663 | |
davervw | 4:0461c100cbbb | 664 | #if (USE_IRQ == 1) |
davervw | 4:0461c100cbbb | 665 | // IRQ support |
davervw | 4:0461c100cbbb | 666 | Timer timer; |
davervw | 4:0461c100cbbb | 667 | const double interrupt_time = 1.0 / 60.0 ; // 60 times per second |
davervw | 4:0461c100cbbb | 668 | timer.start(); |
davervw | 4:0461c100cbbb | 669 | double timer_then = timer.read(); |
davervw | 4:0461c100cbbb | 670 | #endif |
davervw | 4:0461c100cbbb | 671 | |
davervw | 0:90de1cbc8a5f | 672 | PC = addr; |
davervw | 0:90de1cbc8a5f | 673 | |
davervw | 0:90de1cbc8a5f | 674 | while (true) |
davervw | 0:90de1cbc8a5f | 675 | { |
davervw | 0:90de1cbc8a5f | 676 | while (true) |
davervw | 0:90de1cbc8a5f | 677 | { |
davervw | 4:0461c100cbbb | 678 | #if (USE_IRQ == 1) |
davervw | 4:0461c100cbbb | 679 | if (!I && (timer.read()-timer_then) >= interrupt_time) // IRQ |
davervw | 4:0461c100cbbb | 680 | { |
davervw | 4:0461c100cbbb | 681 | timer_then = timer.read(); // reset timer |
davervw | 4:0461c100cbbb | 682 | Push(HI(PC)); |
davervw | 4:0461c100cbbb | 683 | Push(LO(PC)); |
davervw | 4:0461c100cbbb | 684 | PHP(); |
davervw | 4:0461c100cbbb | 685 | I = true; |
davervw | 4:0461c100cbbb | 686 | PC = (GetMemory(0xfffe) | (GetMemory(0xffff) << 8)); |
davervw | 4:0461c100cbbb | 687 | } |
davervw | 4:0461c100cbbb | 688 | else |
davervw | 4:0461c100cbbb | 689 | #endif |
davervw | 0:90de1cbc8a5f | 690 | { |
davervw | 4:0461c100cbbb | 691 | bytes = 1; |
davervw | 4:0461c100cbbb | 692 | bool breakpoint = false; |
davervw | 4:0461c100cbbb | 693 | //if (Breakpoints.Contains(PC)) |
davervw | 4:0461c100cbbb | 694 | // breakpoint = true; |
davervw | 4:0461c100cbbb | 695 | if (trace || breakpoint || step) |
davervw | 4:0461c100cbbb | 696 | { |
davervw | 4:0461c100cbbb | 697 | ushort addr2; |
davervw | 4:0461c100cbbb | 698 | char line[27]; |
davervw | 4:0461c100cbbb | 699 | char dis[13]; |
davervw | 4:0461c100cbbb | 700 | DisassembleLong(PC, &conditional, &bytes, &addr2, dis, sizeof(dis), line, sizeof(line)); |
davervw | 4:0461c100cbbb | 701 | char state[33]; |
davervw | 4:0461c100cbbb | 702 | GetDisplayState(state, sizeof(state)); |
davervw | 4:0461c100cbbb | 703 | char full_line[80]; |
davervw | 4:0461c100cbbb | 704 | snprintf(full_line, sizeof(full_line), "%-30s%s\n", line, state); |
davervw | 4:0461c100cbbb | 705 | #ifdef WIN32 |
davervw | 4:0461c100cbbb | 706 | OutputDebugStringA(full_line); |
davervw | 4:0461c100cbbb | 707 | #else |
davervw | 4:0461c100cbbb | 708 | pc.printf("%s", full_line); |
davervw | 4:0461c100cbbb | 709 | #endif |
davervw | 4:0461c100cbbb | 710 | if (step) |
davervw | 4:0461c100cbbb | 711 | step = step; // user can put debug breakpoint here to allow stepping |
davervw | 4:0461c100cbbb | 712 | if (breakpoint) |
davervw | 4:0461c100cbbb | 713 | breakpoint = breakpoint; // user can put debug breakpoint here to allow break |
davervw | 4:0461c100cbbb | 714 | } |
davervw | 4:0461c100cbbb | 715 | if (ExecutePatch != 0 && !ExecutePatch()) // allow execute to be overriden at a specific address |
davervw | 4:0461c100cbbb | 716 | break; |
davervw | 0:90de1cbc8a5f | 717 | } |
davervw | 0:90de1cbc8a5f | 718 | } |
davervw | 0:90de1cbc8a5f | 719 | |
davervw | 0:90de1cbc8a5f | 720 | switch (GetMemory(PC)) |
davervw | 0:90de1cbc8a5f | 721 | { |
davervw | 0:90de1cbc8a5f | 722 | case 0x00: BRK(&bytes); break; |
davervw | 0:90de1cbc8a5f | 723 | case 0x01: ORA(GetIndX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 724 | case 0x05: ORA(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 725 | case 0x06: SetZP(ASL(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 726 | case 0x08: PHP(); break; |
davervw | 0:90de1cbc8a5f | 727 | case 0x09: ORA(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 728 | case 0x0A: SetA(ASL(A)); break; |
davervw | 0:90de1cbc8a5f | 729 | case 0x0D: ORA(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 730 | case 0x0E: SetABS(ASL(GetABS(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 731 | |
davervw | 0:90de1cbc8a5f | 732 | case 0x10: BPL(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 733 | case 0x11: ORA(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 734 | case 0x15: ORA(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 735 | case 0x16: SetZPX(ASL(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 736 | case 0x18: CLC(); break; |
davervw | 0:90de1cbc8a5f | 737 | case 0x19: ORA(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 738 | case 0x1D: ORA(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 739 | case 0x1E: SetABSX(ASL(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 740 | |
davervw | 0:90de1cbc8a5f | 741 | case 0x20: JSR(&PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 742 | case 0x21: AND(GetIndX(PC, &bytes)); break; |
davervw | 4:0461c100cbbb | 743 | case 0x24: BIT_OP(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 744 | case 0x25: AND(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 745 | case 0x26: SetZP(ROL(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 746 | case 0x28: PLP(); break; |
davervw | 0:90de1cbc8a5f | 747 | case 0x29: AND(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 748 | case 0x2A: SetA(ROL(A)); break; |
davervw | 4:0461c100cbbb | 749 | case 0x2C: BIT_OP(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 750 | case 0x2D: AND(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 751 | case 0x2E: ROL(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 752 | |
davervw | 0:90de1cbc8a5f | 753 | case 0x30: BMI(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 754 | case 0x31: AND(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 755 | case 0x35: AND(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 756 | case 0x36: SetZPX(ROL(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 757 | case 0x38: SEC(); break; |
davervw | 0:90de1cbc8a5f | 758 | case 0x39: AND(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 759 | case 0x3D: AND(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 760 | case 0x3E: SetABSX(ROL(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 761 | |
davervw | 0:90de1cbc8a5f | 762 | case 0x40: RTI(&PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 763 | case 0x41: EOR(GetIndX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 764 | case 0x45: EOR(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 765 | case 0x46: SetZP(LSR(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 766 | case 0x48: PHA(); break; |
davervw | 0:90de1cbc8a5f | 767 | case 0x49: EOR(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 768 | case 0x4A: SetA(LSR(A)); break; |
davervw | 0:90de1cbc8a5f | 769 | case 0x4C: JMP(&PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 770 | case 0x4D: EOR(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 771 | case 0x4E: LSR(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 772 | |
davervw | 0:90de1cbc8a5f | 773 | case 0x50: BVC(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 774 | case 0x51: EOR(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 775 | case 0x55: EOR(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 776 | case 0x56: SetZPX(LSR(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 777 | case 0x58: CLI(); break; |
davervw | 0:90de1cbc8a5f | 778 | case 0x59: EOR(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 779 | case 0x5D: EOR(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 780 | case 0x5E: SetABSX(LSR(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 781 | |
davervw | 0:90de1cbc8a5f | 782 | case 0x60: RTS(&PC, &bytes); break; |
davervw | 4:0461c100cbbb | 783 | case 0x61: ADC_OP(GetIndX(PC, &bytes)); break; |
davervw | 4:0461c100cbbb | 784 | case 0x65: ADC_OP(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 785 | case 0x66: SetZP(ROR(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 786 | case 0x68: PLA(); break; |
davervw | 4:0461c100cbbb | 787 | case 0x69: ADC_OP(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 788 | case 0x6A: SetA(ROR(A)); break; |
davervw | 0:90de1cbc8a5f | 789 | case 0x6C: JMPIND(&PC, &bytes); break; |
davervw | 4:0461c100cbbb | 790 | case 0x6D: ADC_OP(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 791 | case 0x6E: SetABS(ROR(GetABS(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 792 | |
davervw | 0:90de1cbc8a5f | 793 | case 0x70: BVS(&PC, &conditional, &bytes); break; |
davervw | 4:0461c100cbbb | 794 | case 0x71: ADC_OP(GetIndY(PC, &bytes)); break; |
davervw | 4:0461c100cbbb | 795 | case 0x75: ADC_OP(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 796 | case 0x76: SetZPX(ROR(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 797 | case 0x78: SEI(); break; |
davervw | 4:0461c100cbbb | 798 | case 0x79: ADC_OP(GetABSY(PC, &bytes)); break; |
davervw | 4:0461c100cbbb | 799 | case 0x7D: ADC_OP(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 800 | case 0x7E: SetABSX(ROR(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 801 | |
davervw | 0:90de1cbc8a5f | 802 | case 0x81: SetIndX(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 803 | case 0x84: SetZP(Y, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 804 | case 0x85: SetZP(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 805 | case 0x86: SetZP(X, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 806 | case 0x88: DEY(); break; |
davervw | 0:90de1cbc8a5f | 807 | case 0x8A: TXA(); break; |
davervw | 0:90de1cbc8a5f | 808 | case 0x8C: SetABS(Y, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 809 | case 0x8D: SetABS(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 810 | case 0x8E: SetABS(X, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 811 | |
davervw | 0:90de1cbc8a5f | 812 | case 0x90: BCC(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 813 | case 0x91: SetIndY(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 814 | case 0x94: SetZPX(Y, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 815 | case 0x95: SetZPX(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 816 | case 0x96: SetZPY(X, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 817 | case 0x98: TYA(); break; |
davervw | 0:90de1cbc8a5f | 818 | case 0x99: SetABSY(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 819 | case 0x9A: TXS(); break; |
davervw | 0:90de1cbc8a5f | 820 | case 0x9D: SetABSX(A, PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 821 | |
davervw | 0:90de1cbc8a5f | 822 | case 0xA0: SetY(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 823 | case 0xA1: SetA(GetIndX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 824 | case 0xA2: SetX(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 825 | case 0xA4: SetY(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 826 | case 0xA5: SetA(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 827 | case 0xA6: SetX(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 828 | case 0xA8: TAY(); break; |
davervw | 0:90de1cbc8a5f | 829 | case 0xA9: SetA(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 830 | case 0xAA: TAX(); break; |
davervw | 0:90de1cbc8a5f | 831 | case 0xAC: SetY(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 832 | case 0xAD: SetA(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 833 | case 0xAE: SetX(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 834 | |
davervw | 0:90de1cbc8a5f | 835 | case 0xB0: BCS(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 836 | case 0xB1: SetA(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 837 | case 0xB4: SetY(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 838 | case 0xB5: SetA(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 839 | case 0xB6: SetX(GetZPY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 840 | case 0xB8: CLV(); break; |
davervw | 0:90de1cbc8a5f | 841 | case 0xB9: SetA(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 842 | case 0xBA: TSX(); break; |
davervw | 0:90de1cbc8a5f | 843 | case 0xBC: SetY(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 844 | case 0xBD: SetA(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 845 | case 0xBE: SetX(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 846 | |
davervw | 0:90de1cbc8a5f | 847 | case 0xC0: CPY(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 848 | case 0xC1: CMP(GetIndX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 849 | case 0xC4: CPY(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 850 | case 0xC5: CMP(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 851 | case 0xC6: SetZP(DEC(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 852 | case 0xC8: INY(); break; |
davervw | 0:90de1cbc8a5f | 853 | case 0xC9: CMP(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 854 | case 0xCA: DEX(); break; |
davervw | 0:90de1cbc8a5f | 855 | case 0xCC: CPY(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 856 | case 0xCD: CMP(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 857 | case 0xCE: SetABS(DEC(GetABS(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 858 | |
davervw | 0:90de1cbc8a5f | 859 | case 0xD0: BNE(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 860 | case 0xD1: CMP(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 861 | case 0xD5: CMP(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 862 | case 0xD6: SetZPX(DEC(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 863 | case 0xD8: CLD(); break; |
davervw | 0:90de1cbc8a5f | 864 | case 0xD9: CMP(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 865 | case 0xDD: CMP(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 866 | case 0xDE: SetABSX(DEC(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 867 | |
davervw | 0:90de1cbc8a5f | 868 | case 0xE0: CPX(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 869 | case 0xE1: SBC(GetIndX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 870 | case 0xE4: CPX(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 871 | case 0xE5: SBC(GetZP(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 872 | case 0xE6: SetZP(INC(GetZP(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 873 | case 0xE8: INX(); break; |
davervw | 0:90de1cbc8a5f | 874 | case 0xE9: SBC(GetIM(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 875 | case 0xEA: NOP(); break; |
davervw | 0:90de1cbc8a5f | 876 | case 0xEC: CPX(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 877 | case 0xED: SBC(GetABS(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 878 | case 0xEE: SetABS(INC(GetABS(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 879 | |
davervw | 0:90de1cbc8a5f | 880 | case 0xF0: BEQ(&PC, &conditional, &bytes); break; |
davervw | 0:90de1cbc8a5f | 881 | case 0xF1: SBC(GetIndY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 882 | case 0xF5: SBC(GetZPX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 883 | case 0xF6: SetZPX(INC(GetZPX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 884 | case 0xF8: SED(); break; |
davervw | 0:90de1cbc8a5f | 885 | case 0xF9: SBC(GetABSY(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 886 | case 0xFD: SBC(GetABSX(PC, &bytes)); break; |
davervw | 0:90de1cbc8a5f | 887 | case 0xFE: SetABSX(INC(GetABSX(PC, &bytes)), PC, &bytes); break; |
davervw | 0:90de1cbc8a5f | 888 | |
davervw | 0:90de1cbc8a5f | 889 | default: |
davervw | 0:90de1cbc8a5f | 890 | { |
davervw | 0:90de1cbc8a5f | 891 | printf("Invalid opcode %02X at %04X", GetMemory(PC), PC); |
davervw | 0:90de1cbc8a5f | 892 | exit(1); |
davervw | 0:90de1cbc8a5f | 893 | } |
davervw | 0:90de1cbc8a5f | 894 | } |
davervw | 0:90de1cbc8a5f | 895 | |
davervw | 0:90de1cbc8a5f | 896 | PC += bytes; |
davervw | 0:90de1cbc8a5f | 897 | } |
davervw | 0:90de1cbc8a5f | 898 | } |
davervw | 0:90de1cbc8a5f | 899 | |
davervw | 0:90de1cbc8a5f | 900 | // Examples: |
davervw | 0:90de1cbc8a5f | 901 | // FFFF FF FF FF JMP ($FFFF) |
davervw | 0:90de1cbc8a5f | 902 | // FFFF FF FF FF LDA $FFFF,X |
davervw | 0:90de1cbc8a5f | 903 | extern void DisassembleLong(ushort addr, bool *p_conditional, byte *p_bytes, ushort *p_addr2, char *dis, int dis_size, char *line, int line_size) |
davervw | 0:90de1cbc8a5f | 904 | { |
davervw | 0:90de1cbc8a5f | 905 | DisassembleShort(addr, p_conditional, p_bytes, p_addr2, dis, dis_size); |
davervw | 0:90de1cbc8a5f | 906 | snprintf(line, line_size, "%04X ", addr); |
davervw | 0:90de1cbc8a5f | 907 | for (int i = 0; i < 3; ++i) |
davervw | 0:90de1cbc8a5f | 908 | { |
davervw | 0:90de1cbc8a5f | 909 | if (i < *p_bytes) |
davervw | 0:90de1cbc8a5f | 910 | snprintf(line+strlen(line), line_size-strlen(line), "%02X ", GetMemory((ushort)(addr + i))); |
davervw | 0:90de1cbc8a5f | 911 | else |
davervw | 0:90de1cbc8a5f | 912 | strcat_s(line, line_size, " "); |
davervw | 0:90de1cbc8a5f | 913 | } |
davervw | 0:90de1cbc8a5f | 914 | strcat_s(line, line_size, dis); |
davervw | 0:90de1cbc8a5f | 915 | } |
davervw | 0:90de1cbc8a5f | 916 | |
davervw | 0:90de1cbc8a5f | 917 | static void Ind(char *dis, int dis_size, char* opcode, ushort addr, ushort *p_addr2, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 918 | { |
davervw | 0:90de1cbc8a5f | 919 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 920 | ushort addr1 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 921 | *p_addr2 = (ushort)(GetMemory(addr1) | (GetMemory((ushort)(addr1 + 1)) << 8)); |
davervw | 0:90de1cbc8a5f | 922 | snprintf(dis, dis_size, "%s ($%0X4)", opcode, addr1); |
davervw | 0:90de1cbc8a5f | 923 | } |
davervw | 0:90de1cbc8a5f | 924 | |
davervw | 0:90de1cbc8a5f | 925 | static void IndX(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 926 | { |
davervw | 0:90de1cbc8a5f | 927 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 928 | snprintf(dis, dis_size, "%s ($%02X,X)", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 929 | } |
davervw | 0:90de1cbc8a5f | 930 | |
davervw | 0:90de1cbc8a5f | 931 | static void IndY(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 932 | { |
davervw | 0:90de1cbc8a5f | 933 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 934 | snprintf(dis, dis_size, "%s ($%02X),Y", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 935 | } |
davervw | 0:90de1cbc8a5f | 936 | |
davervw | 0:90de1cbc8a5f | 937 | static void ZP(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 938 | { |
davervw | 0:90de1cbc8a5f | 939 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 940 | snprintf(dis, dis_size, "%s $%02X", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 941 | } |
davervw | 0:90de1cbc8a5f | 942 | |
davervw | 0:90de1cbc8a5f | 943 | static void ZPX(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 944 | { |
davervw | 0:90de1cbc8a5f | 945 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 946 | snprintf(dis, dis_size, "%s $%02X,X", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 947 | } |
davervw | 0:90de1cbc8a5f | 948 | |
davervw | 0:90de1cbc8a5f | 949 | static void ZPY(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 950 | { |
davervw | 0:90de1cbc8a5f | 951 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 952 | snprintf(dis, dis_size, "%s $%02X,Y", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 953 | } |
davervw | 0:90de1cbc8a5f | 954 | |
davervw | 0:90de1cbc8a5f | 955 | static void ABS(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 956 | { |
davervw | 0:90de1cbc8a5f | 957 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 958 | snprintf(dis, dis_size, "%s $%04X", opcode, GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 959 | } |
davervw | 0:90de1cbc8a5f | 960 | |
davervw | 0:90de1cbc8a5f | 961 | static void ABSAddr(char *dis, int dis_size, char* opcode, ushort addr, ushort *p_addr2, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 962 | { |
davervw | 0:90de1cbc8a5f | 963 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 964 | *p_addr2 = (ushort)(GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 965 | snprintf(dis, dis_size, "%s $%04X", opcode, *p_addr2); |
davervw | 0:90de1cbc8a5f | 966 | } |
davervw | 0:90de1cbc8a5f | 967 | |
davervw | 0:90de1cbc8a5f | 968 | static void ABSX(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 969 | { |
davervw | 0:90de1cbc8a5f | 970 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 971 | snprintf(dis, dis_size, "%s $%04X,X", opcode, GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 972 | } |
davervw | 0:90de1cbc8a5f | 973 | |
davervw | 0:90de1cbc8a5f | 974 | static void ABSY(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 975 | { |
davervw | 0:90de1cbc8a5f | 976 | *p_bytes = 3; |
davervw | 0:90de1cbc8a5f | 977 | snprintf(dis, dis_size, "%s $%04X,Y", opcode, GetMemory((ushort)(addr + 1)) | (GetMemory((ushort)(addr + 2)) << 8)); |
davervw | 0:90de1cbc8a5f | 978 | } |
davervw | 0:90de1cbc8a5f | 979 | |
davervw | 0:90de1cbc8a5f | 980 | static void IM(char *dis, int dis_size, char* opcode, ushort addr, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 981 | { |
davervw | 0:90de1cbc8a5f | 982 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 983 | snprintf(dis, dis_size, "%s #$%02X", opcode, GetMemory((ushort)(addr + 1))); |
davervw | 0:90de1cbc8a5f | 984 | } |
davervw | 0:90de1cbc8a5f | 985 | |
davervw | 0:90de1cbc8a5f | 986 | static void BRX(char *dis, int dis_size, char* opcode, ushort addr, bool *p_conditional, ushort *p_addr2, byte *p_bytes) |
davervw | 0:90de1cbc8a5f | 987 | { |
davervw | 0:90de1cbc8a5f | 988 | *p_bytes = 2; |
davervw | 0:90de1cbc8a5f | 989 | *p_conditional = true; |
davervw | 0:90de1cbc8a5f | 990 | sbyte offset = (sbyte)GetMemory((ushort)(addr + 1)); |
davervw | 0:90de1cbc8a5f | 991 | *p_addr2 = (ushort)(addr + 2 + offset); |
davervw | 0:90de1cbc8a5f | 992 | snprintf(dis, dis_size, "%s $%04X", opcode, *p_addr2); |
davervw | 0:90de1cbc8a5f | 993 | } |
davervw | 0:90de1cbc8a5f | 994 | |
davervw | 0:90de1cbc8a5f | 995 | // JMP ($FFFF) |
davervw | 0:90de1cbc8a5f | 996 | // LDA $FFFF,X |
davervw | 0:90de1cbc8a5f | 997 | extern void DisassembleShort(ushort addr, bool *p_conditional, byte *p_bytes, ushort *p_addr2, char *dis, int dis_size) |
davervw | 0:90de1cbc8a5f | 998 | { |
davervw | 0:90de1cbc8a5f | 999 | *p_conditional = false; |
davervw | 0:90de1cbc8a5f | 1000 | *p_addr2 = 0; |
davervw | 0:90de1cbc8a5f | 1001 | *p_bytes = 1; |
davervw | 0:90de1cbc8a5f | 1002 | |
davervw | 0:90de1cbc8a5f | 1003 | switch (GetMemory(addr)) |
davervw | 0:90de1cbc8a5f | 1004 | { |
davervw | 0:90de1cbc8a5f | 1005 | case 0x00: strcpy_s(dis, dis_size, "BRK"); return; |
davervw | 0:90de1cbc8a5f | 1006 | case 0x01: IndX(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1007 | case 0x05: ZP(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1008 | case 0x06: ZP(dis, dis_size, "ASL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1009 | case 0x08: strcpy_s(dis, dis_size, "PHP"); return; |
davervw | 0:90de1cbc8a5f | 1010 | case 0x09: IM(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1011 | case 0x0A: strcpy_s(dis, dis_size, "ASL A"); return; |
davervw | 0:90de1cbc8a5f | 1012 | case 0x0D: ABS(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1013 | case 0x0E: ABS(dis, dis_size, "ASL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1014 | |
davervw | 0:90de1cbc8a5f | 1015 | case 0x10: BRX(dis, dis_size, "BPL", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1016 | case 0x11: IndY(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1017 | case 0x15: ZPX(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1018 | case 0x16: ZPX(dis, dis_size, "ASL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1019 | case 0x18: strcpy_s(dis, dis_size, "CLC"); return; |
davervw | 0:90de1cbc8a5f | 1020 | case 0x19: ABSY(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1021 | case 0x1D: ABSX(dis, dis_size, "ORA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1022 | case 0x1E: ABSX(dis, dis_size, "ASL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1023 | |
davervw | 0:90de1cbc8a5f | 1024 | case 0x20: ABSAddr(dis, dis_size, "JSR", addr, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1025 | case 0x21: IndX(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1026 | case 0x24: ZP(dis, dis_size, "BIT", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1027 | case 0x25: ZP(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1028 | case 0x26: ZP(dis, dis_size, "ROL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1029 | case 0x28: strcpy_s(dis, dis_size, "PLP"); return; |
davervw | 0:90de1cbc8a5f | 1030 | case 0x29: IM(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1031 | case 0x2A: strcpy_s(dis, dis_size, "ROL A"); return; |
davervw | 0:90de1cbc8a5f | 1032 | case 0x2C: ABS(dis, dis_size, "BIT", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1033 | case 0x2D: ABS(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1034 | case 0x2E: ABS(dis, dis_size, "ROL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1035 | |
davervw | 0:90de1cbc8a5f | 1036 | case 0x30: BRX(dis, dis_size, "BMI", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1037 | case 0x31: IndY(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1038 | case 0x35: ZPX(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1039 | case 0x36: ZPX(dis, dis_size, "ROL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1040 | case 0x38: strcpy_s(dis, dis_size, "SEC"); return; |
davervw | 0:90de1cbc8a5f | 1041 | case 0x39: ABSY(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1042 | case 0x3D: ABSX(dis, dis_size, "AND", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1043 | case 0x3E: ABSX(dis, dis_size, "ROL", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1044 | |
davervw | 0:90de1cbc8a5f | 1045 | case 0x40: strcpy_s(dis, dis_size, "RTI"); return; |
davervw | 0:90de1cbc8a5f | 1046 | case 0x41: IndX(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1047 | case 0x45: ZP(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1048 | case 0x46: ZP(dis, dis_size, "LSR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1049 | case 0x48: strcpy_s(dis, dis_size, "PHA"); return; |
davervw | 0:90de1cbc8a5f | 1050 | case 0x49: IM(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1051 | case 0x4A: strcpy_s(dis, dis_size, "LSR A"); return; |
davervw | 0:90de1cbc8a5f | 1052 | case 0x4C: ABSAddr(dis, dis_size, "JMP", addr, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1053 | case 0x4D: ABS(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1054 | case 0x4E: ABS(dis, dis_size, "LSR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1055 | |
davervw | 0:90de1cbc8a5f | 1056 | case 0x50: BRX(dis, dis_size, "BVC", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1057 | case 0x51: IndY(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1058 | case 0x55: ZPX(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1059 | case 0x56: ZPX(dis, dis_size, "LSR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1060 | case 0x58: strcpy_s(dis, dis_size, "CLI"); return; |
davervw | 0:90de1cbc8a5f | 1061 | case 0x59: ABSY(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1062 | case 0x5D: ABSX(dis, dis_size, "EOR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1063 | case 0x5E: ABSX(dis, dis_size, "LSR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1064 | |
davervw | 0:90de1cbc8a5f | 1065 | case 0x60: strcpy_s(dis, dis_size, "RTS"); return; |
davervw | 0:90de1cbc8a5f | 1066 | case 0x61: IndX(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1067 | case 0x65: ZP(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1068 | case 0x66: ZP(dis, dis_size, "ROR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1069 | case 0x68: strcpy_s(dis, dis_size, "PLA"); return; |
davervw | 0:90de1cbc8a5f | 1070 | case 0x69: IM(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1071 | case 0x6A: strcpy_s(dis, dis_size, "ROR A"); return; |
davervw | 0:90de1cbc8a5f | 1072 | case 0x6C: Ind(dis, dis_size, "JMP", addr, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1073 | case 0x6D: ABS(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1074 | case 0x6E: ABS(dis, dis_size, "ROR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1075 | |
davervw | 0:90de1cbc8a5f | 1076 | case 0x70: BRX(dis, dis_size, "BVS", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1077 | case 0x71: IndY(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1078 | case 0x75: ZPX(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1079 | case 0x76: ZPX(dis, dis_size, "ROR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1080 | case 0x78: strcpy_s(dis, dis_size, "SEI"); return; |
davervw | 0:90de1cbc8a5f | 1081 | case 0x79: ABSY(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1082 | case 0x7D: ABSX(dis, dis_size, "ADC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1083 | case 0x7E: ABSX(dis, dis_size, "ROR", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1084 | |
davervw | 0:90de1cbc8a5f | 1085 | case 0x81: IndX(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1086 | case 0x84: ZP(dis, dis_size, "STY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1087 | case 0x85: ZP(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1088 | case 0x86: ZP(dis, dis_size, "STX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1089 | case 0x88: strcpy_s(dis, dis_size, "DEY"); return; |
davervw | 0:90de1cbc8a5f | 1090 | case 0x8A: strcpy_s(dis, dis_size, "TXA"); return; |
davervw | 0:90de1cbc8a5f | 1091 | case 0x8C: ABS(dis, dis_size, "STY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1092 | case 0x8D: ABS(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1093 | case 0x8E: ABS(dis, dis_size, "STX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1094 | |
davervw | 0:90de1cbc8a5f | 1095 | case 0x90: BRX(dis, dis_size, "BCC", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1096 | case 0x91: IndY(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1097 | case 0x94: ZPX(dis, dis_size, "STY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1098 | case 0x95: ZPX(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1099 | case 0x96: ZPY(dis, dis_size, "STX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1100 | case 0x98: strcpy_s(dis, dis_size, "TYA"); return; |
davervw | 0:90de1cbc8a5f | 1101 | case 0x99: ABSY(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1102 | case 0x9A: strcpy_s(dis, dis_size, "TXS"); return; |
davervw | 0:90de1cbc8a5f | 1103 | case 0x9D: ABSX(dis, dis_size, "STA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1104 | |
davervw | 0:90de1cbc8a5f | 1105 | case 0xA0: IM(dis, dis_size, "LDY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1106 | case 0xA1: IndX(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1107 | case 0xA2: IM(dis, dis_size, "LDX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1108 | case 0xA4: ZP(dis, dis_size, "LDY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1109 | case 0xA5: ZP(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1110 | case 0xA6: ZP(dis, dis_size, "LDX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1111 | case 0xA8: strcpy_s(dis, dis_size, "TAY"); return; |
davervw | 0:90de1cbc8a5f | 1112 | case 0xA9: IM(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1113 | case 0xAA: strcpy_s(dis, dis_size, "TAX"); return; |
davervw | 0:90de1cbc8a5f | 1114 | case 0xAC: ABS(dis, dis_size, "LDY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1115 | case 0xAD: ABS(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1116 | case 0xAE: ABS(dis, dis_size, "LDX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1117 | |
davervw | 0:90de1cbc8a5f | 1118 | case 0xB0: BRX(dis, dis_size, "BCS", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1119 | case 0xB1: IndY(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1120 | case 0xB4: ZPX(dis, dis_size, "LDY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1121 | case 0xB5: ZPX(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1122 | case 0xB6: ZPY(dis, dis_size, "LDX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1123 | case 0xB8: strcpy_s(dis, dis_size, "CLV"); return; |
davervw | 0:90de1cbc8a5f | 1124 | case 0xB9: ABSY(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1125 | case 0xBA: strcpy_s(dis, dis_size, "TSX"); return; |
davervw | 0:90de1cbc8a5f | 1126 | case 0xBC: ABSX(dis, dis_size, "LDY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1127 | case 0xBD: ABSX(dis, dis_size, "LDA", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1128 | case 0xBE: ABSY(dis, dis_size, "LDX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1129 | |
davervw | 0:90de1cbc8a5f | 1130 | case 0xC0: IM(dis, dis_size, "CPY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1131 | case 0xC1: IndX(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1132 | case 0xC4: ZP(dis, dis_size, "CPY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1133 | case 0xC5: ZP(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1134 | case 0xC6: ZP(dis, dis_size, "DEC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1135 | case 0xC8: strcpy_s(dis, dis_size, "INY"); return; |
davervw | 0:90de1cbc8a5f | 1136 | case 0xC9: IM(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1137 | case 0xCA: strcpy_s(dis, dis_size, "DEX"); return; |
davervw | 0:90de1cbc8a5f | 1138 | case 0xCC: ABS(dis, dis_size, "CPY", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1139 | case 0xCD: ABS(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1140 | case 0xCE: ABS(dis, dis_size, "DEC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1141 | |
davervw | 0:90de1cbc8a5f | 1142 | case 0xD0: BRX(dis, dis_size, "BNE", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1143 | case 0xD1: IndY(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1144 | case 0xD5: ZPX(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1145 | case 0xD6: ZPX(dis, dis_size, "DEC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1146 | case 0xD8: strcpy_s(dis, dis_size, "CLD"); return; |
davervw | 0:90de1cbc8a5f | 1147 | case 0xD9: ABSY(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1148 | case 0xDD: ABSX(dis, dis_size, "CMP", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1149 | case 0xDE: ABSX(dis, dis_size, "DEC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1150 | |
davervw | 0:90de1cbc8a5f | 1151 | case 0xE0: IM(dis, dis_size, "CPX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1152 | case 0xE1: IndX(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1153 | case 0xE4: ZP(dis, dis_size, "CPX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1154 | case 0xE5: ZP(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1155 | case 0xE6: ZP(dis, dis_size, "INC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1156 | case 0xE8: strcpy_s(dis, dis_size, "INX"); return; |
davervw | 0:90de1cbc8a5f | 1157 | case 0xE9: IM(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1158 | case 0xEA: strcpy_s(dis, dis_size, "NOP"); return; |
davervw | 0:90de1cbc8a5f | 1159 | case 0xEC: ABS(dis, dis_size, "CPX", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1160 | case 0xED: ABS(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1161 | case 0xEE: ABS(dis, dis_size, "INC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1162 | |
davervw | 0:90de1cbc8a5f | 1163 | case 0xF0: BRX(dis, dis_size, "BEQ", addr, p_conditional, p_addr2, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1164 | case 0xF1: IndY(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1165 | case 0xF5: ZPX(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1166 | case 0xF6: ZPX(dis, dis_size, "INC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1167 | case 0xF8: strcpy_s(dis, dis_size, "SED"); return; |
davervw | 0:90de1cbc8a5f | 1168 | case 0xF9: ABSY(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1169 | case 0xFD: ABSX(dis, dis_size, "SBC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1170 | case 0xFE: ABSX(dis, dis_size, "INC", addr, p_bytes); return; |
davervw | 0:90de1cbc8a5f | 1171 | |
davervw | 0:90de1cbc8a5f | 1172 | default: |
davervw | 0:90de1cbc8a5f | 1173 | strcpy_s(dis, dis_size, "???"); |
davervw | 0:90de1cbc8a5f | 1174 | return; |
davervw | 0:90de1cbc8a5f | 1175 | //throw new Exception(string.Format("Invalid opcode {0:X2}", memory[addr])); |
davervw | 0:90de1cbc8a5f | 1176 | } |
davervw | 0:90de1cbc8a5f | 1177 | } |