Dave Van Wagner / Mbed OS C64-stm429_discovery

C64 emulation on STM32F429 Discovery board with builtin LCD and USB keyboard support (OTG). More info at davevw.com and/or github.com/davervw

Dependencies:   LCD_DISCO_F429ZI BSP_DISCO_F429ZI USBHOST

emu6502.cpp@4:8476be802690, 2020-04-13 (annotated)

Committer:
davervw
Date:
Mon Apr 13 05:36:43 2020 +0000
Revision:
4:8476be802690
Parent:
0:90de1cbc8a5f
Child:
9:a0c6747e539f
terminal console portable version ported to specifically support STM32F429 Discovery board with included 320x240 LCD, and using USBHOST HID keyboard too.   So, full screen editing, commodore fonts, color, and keyboard, with STOP key (ESC), and IRQs.

Who changed what in which revision?

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