Apple-2-Tools
/
Appalm
mirror of https://github.com/dschmenk/Appalm.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Appalm/palmapple/6502.c

1961 lines
60 KiB
C
Raw Blame History

#include "6502.h"
#include "iou.h"
#include "memory.h"
extern READBYTE ReadFunction[256];
extern WRITEBYTE WriteFunction[256];
extern UInt8 *AppleMemory;
extern UInt8 *AuxMemory;
extern UInt8 *AppleROM;
extern UInt16 *IOUState;
extern UInt16 IOUSoftSwitch[2];
#define LOW_BYTE 1
#define HIGH_BYTE 0
// Macro for the Memory Read Operation
#define INSTRUCTION_FETCH(opcode) opcode = _AppleMemory[PC.PC]; asm("and.l #0xFFFF, %2\n\tmove.b 2(%1, %2.l), %0\n\tlsl.w #0x08, %0\n\tmove.b 1(%1, %2.l), %0" : : "d" (PreFetch), "a" (_AppleMemory), "d" (PC.PC)); PC.PC++;
#define MEMORY_READ(value, address) TempFuncRead = ReadFunction[address.Byte[HIGH_BYTE]]; if (TempFuncRead) { Address.PC = address.PC; value = TempFuncRead(); } else { value = _AppleMemory[address.PC]; }
#define MEMORY_WRITE(value, address) TempFuncWrite = WriteFunction[address.Byte[HIGH_BYTE]]; if (TempFuncWrite) { Address.PC = address.PC; TempFuncWrite(value); } else _AppleMemory[address.PC] = value;
#define ZERO_PAGE_READ(addr) _AppleMemory[addr.Byte[LOW_BYTE]]
#define ZERO_PAGE_WRITE(addr, data) _AppleMemory[addr.Byte[LOW_BYTE]] = data;
#define PUSH(X) _AppleMemory[Stack.PC] = X; Stack.Byte[LOW_BYTE]--;
#define POP(X) Stack.Byte[LOW_BYTE]++; X = _AppleMemory[Stack.PC];
// #define eaimm(value) INSTRUCTION_FETCH(value);
#define eaimm(value) PC.PC++; value = PreFetch & 0xFF;
// #define eazpx(value) INSTRUCTION_FETCH(value); value = value + X;
#define eazpx(value) PC.PC++; value = PreFetch & 0xFF + X;
/* #define mr_eazpx(value) eazpx(TempByte); value = _AppleMemory[TempByte]; */
/* #define mw_eazpx(value) eazpx(TempByte); _AppleMemory[TempByte] = value; */
#define mr_eazpx(value) PC.PC++; TempByte = (PreFetch & 0xFF) + X; value = _AppleMemory[TempByte];
#define mw_eazpx(value) PC.PC++; TempByte = (PreFetch & 0xFF) + X; _AppleMemory[TempByte] = value;
// #define eazpy(value) INSTRUCTION_FETCH(TempByte); value = value + Y;
#define eazpy(value) PC.PC++; value = PreFetch & 0xFF + Y;
/* #define mr_eazpy(value) eazpy(TempByte); value = _AppleMemory[TempByte]; */
/* #define mw_eazpy(value) eazpy(TempByte); _AppleMemory[TempByte] = value; */
#define mr_eazpy(value) PC.PC++; TempByte = PreFetch & 0xFF + Y; value = _AppleMemory[TempByte];
#define mw_eazpy(value) PC.PC++; TempByte = PreFetch & 0xFF + Y; _AppleMemory[TempByte] = value;
// #define eaabs(value) INSTRUCTION_FETCH(value.Byte[LOW_BYTE]); INSTRUCTION_FETCH(value.Byte[HIGH_BYTE]);
#define eaabs(value) PC.PC+=2; value.PC = PreFetch;
#define mr_eaabs(value) PC.PC+=2; TempWord.PC = PreFetch; MEMORY_READ(value, TempWord);
#define mw_eaabs(value) PC.PC+=2; TempWord.PC = PreFetch; MEMORY_WRITE(value, TempWord);
#define eaabsind() INSTRUCTION_FETCH(TempWord.Byte[LOW_BYTE]); \
INSTRUCTION_FETCH(TempWord.Byte[HIGH_BYTE]); MEMORY_READ(PC.Byte[LOW_BYTE], TempWord); \
TempWord.PC += 1; MEMORY_READ(PC.Byte[HIGH_BYTE], TempWord);
#define eaabsx(value) eaabs(value); value.PC += X;
#define mr_eaabsx(value) eaabsx(TempWord); MEMORY_READ(value, TempWord);
#define mw_eaabsx(value) eaabsx(TempWord); MEMORY_WRITE(value, TempWord);
#define eaabsy(value) eaabs(value); value.PC += Y;
#define mr_eaabsy(value) eaabsy(TempWord); MEMORY_READ(value, TempWord);
#define mw_eaabsy(value) eaabsy(TempWord); MEMORY_WRITE(value, TempWord);
#define earel(value) INSTRUCTION_FETCH(value.Byte[LOW_BYTE]); asm("ext.w %0" : : "d" (value.PC));
#define eazp(value) PC.PC++; TempByte = PreFetch & 0xFF; value = _AppleMemory[TempByte];
#define mw_eazp(value) PC.PC++; TempByte = PreFetch & 0xFF; _AppleMemory[TempByte] = value;
#define eazpxind(value) eazpx(TempByte); value.Byte[LOW_BYTE] = _AppleMemory[TempByte]; \
value.Byte[HIGH_BYTE] = _AppleMemory[TempByte + 1];
#define mr_eazpxind(value) eazpxind(TempWord); MEMORY_READ(value, TempWord);
#define mw_eazpxind(value) eazpxind(TempWord); MEMORY_WRITE(value, TempWord);
#define eazpindy(value) eaimm(TempByte); value.Byte[LOW_BYTE] = _AppleMemory[TempByte]; \
value.Byte[HIGH_BYTE] = _AppleMemory[TempByte + 1]; value.PC += Y;
#define mr_eazpindy(value) eazpindy(TempWord); MEMORY_READ(value, TempWord);
#define mw_eazpindy(value) eazpindy(TempWord); MEMORY_WRITE(value, TempWord);
/* MC6502 Instruction New Address Mode */
#define eazpind() PC.PC++; TempByte = PreFetch & 0xFF; TempWord.Byte[LOW_BYTE] = _AppleMemory[TempByte]; TempWord.Byte[HIGH_BYTE] = _AppleMemory[TempByte + 1];
#define mr_eazpind(value) eazpind(); value = _AppleMemory[TempWord.PC];
#define mw_eazpind(value) eazpind(); _AppleMemory[TempWord.PC] = value;
#define eaabsxind() eaabs(TempWord); TempWord.PC += X; PC.Byte[LOW_BYTE] = _AppleMemory[TempWord.PC]; PC.Byte[HIGH_BYTE] = _AppleMemory[TempWord.PC + 1];
union PCStruct PC;
union PCStruct Stack;
union PCStruct Address;
UInt8 X, Y, _A, Decimal;
Char buf[50];
UInt16 Status;
BOOL LOOP, QUIT;
UInt32 Start, End;
UInt16 Count, Count1;
extern UInt16 refNum;
extern char *AppleFontBitmap;
extern UInt8 LastKey;
UInt8 *AppleFont;
UInt8 *pointer;
UInt16 ScanlineOffsetTable[192];
UInt16 ScanlineAddressTable[192];
UInt16 ScanlineAddressTableH[192];
UInt16 AppleClock, DiskOffset =0;
extern UInt16 LastAppleClock;
extern UInt16 motor_on;
void SetupVideo(void) {
WinHandle onScreen;
UInt32 depth = 1;
Boolean colorMode = true;
BitmapType *scanline;
#ifdef SONY
HRWinScreenMode(refNum, winScreenModeSet, 0, 0, &depth, &colorMode);
#else
WinScreenMode(winScreenModeSet, 0, 0, &depth, &colorMode);
#endif
onScreen = WinGetDisplayWindow();
scanline = WinGetBitmap(onScreen);
pointer = (UInt8*) BmpGetBits(scanline);
#ifdef SONY
pointer += 160 * 12;
#else
pointer += 20 * 20;
#endif
{
MemHandle handle;
UInt16 count;
handle = MemHandleNew(0x100 * 0x08);
AppleFont = MemHandleLock(handle);
MemMove(AppleFont, AppleFontBitmap, 0x40 * 0x08);
MemMove(AppleFont + 0x40 * 0x08, AppleFontBitmap, 0x40 * 0x08);
MemMove(AppleFont + 0x40 * 0x08 * 2, AppleFontBitmap, 0x40 * 0x08);
MemMove(AppleFont + 0x40 * 0x08 * 3, AppleFontBitmap, 0x20 * 0x08);
MemMove(AppleFont + 0x40 * 0x08 * 3 + 0x20 * 0x08, AppleFontBitmap + 0x40 * 0x08, 0x20 * 0x08);
for (count = 0x80 * 0x08; count < (0x100 * 0x08) - 1; count++) AppleFont[count] = ~AppleFont[count];
}
{
UInt16 i;
for (i = 0;i < 192;i++) {
ScanlineOffsetTable[i] = (i & 7) * 0x400 + ((i >> 3) & 7) * 0x80 + (i >> 6) * 0x28;
}
for (i = 0;i < 192;i++) {
ScanlineAddressTable[i] = ScanlineOffsetTable[i & ~7] + 0x400;
ScanlineAddressTableH[i] = ScanlineOffsetTable[i] + 0x2000;
}
}
}
void init_6502() {
Stack.PC = 0x01FF;
_A = 0; X = 0; Y = 0;
PC.Byte[LOW_BYTE] = AppleMemory[0x0000FFFC];
PC.Byte[HIGH_BYTE] = AppleMemory[0x0000FFFD];
LOOP = 1; QUIT = 1;
Count = 0; Count1 = 0;
Decimal = 0;
AppleClock = 0;
SetupVideo();
}
void run_6502() {
register UInt8 Opcode;
register READBYTE TempFuncRead;
register WRITEBYTE TempFuncWrite;
register UInt8 *_AppleMemory;
register union PCStruct TempWord;
register UInt8 TempByte;
register UInt8 MemValue;
register UInt16 PreFetch asm ("d4");
register Int16 hori, vert;
register UInt16 fps, scanaddr, chary;
register UInt8 *_pointer;
#ifdef SONY
hori = 191; vert = 39; fps = 0; chary = 7;
_pointer = pointer + 192 * 40;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 39;
else
scanaddr = ScanlineAddressTable[hori] + 39;
#else
hori = 119; vert = 19; fps = 0; chary = 7;
_pointer = pointer + 120 * 20;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 19;
else
scanaddr = ScanlineAddressTable[hori] + 19;
#endif
_AppleMemory = AppleMemory;
run_again:
#ifdef DEBUG
if (!LOOP) HostTraceOutputT(sysErrorClass, "PC : %X\n", PC.PC);
#endif
INSTRUCTION_FETCH(Opcode);
#ifdef DEBUG
if (!LOOP) HostTraceOutputT(sysErrorClass, "O : %X A : %X X : %X Y : %X\n", Opcode, _A, X, Y);
#endif
switch (Opcode) {
case 0x69: /* ADC #imm */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
PC.PC++;
asm("move.b %0, %1\n\tbne .adc_69_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (PreFetch), "m" (_A)
);
asm("bra .adc_69_finish");
asm(".adc_69_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (PreFetch), "m" (_A)
);
asm(".adc_69_finish:");
AppleClock+=2;
break;
case 0x6D: /* ADC abs */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eaabs(MemValue);
asm("move.b %0, %1\n\tbne .adc_6d_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_6d_finish");
asm(".adc_6d_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_6d_finish:");
AppleClock+=4;
break;
case 0x65: /* ADC zp */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
eazp(MemValue);
asm("move.b %0, %1\n\tbne .adc_65_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_65_finish");
asm(".adc_65_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_65_finish:");
AppleClock+=3;
break;
case 0x61: /* ADC (zp, X) */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eazpxind(MemValue);
asm("move.b %0, %1\n\tbne .adc_61_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_61_finish");
asm(".adc_61_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_61_finish:");
AppleClock+=6;
break;
case 0x71: /* ADC (zp), Y */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eazpindy(MemValue);
asm("move.b %0, %1\n\tbne .adc_71_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_71_finish");
asm(".adc_71_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_71_finish:");
AppleClock+=5;
break;
case 0x75: /* ADC zp, X */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eazpx(MemValue);
asm("move.b %0, %1\n\tbne .adc_75_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_75_finish");
asm(".adc_75_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_75_finish:");
AppleClock+=4;
break;
case 0x7D: /* ADC abs, X */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eaabsx(MemValue);
asm("move.b %0, %1\n\tbne .adc_7d_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_7d_finish");
asm(".adc_7d_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_7d_finish:");
AppleClock+=4;
break;
case 0x79: /* ADC abs, Y */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eaabsy(MemValue);
asm("move.b %0, %1\n\tbne .adc_79_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_79_finish");
asm(".adc_79_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_79_finish:");
AppleClock+=4;
break;
case 0x29: /* AND #imm */
// eaimm(MemValue);
PC.PC++;
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (PreFetch), "d" (Status), "d" (MemValue)
);
AppleClock+=2;
break;
case 0x2D: /* AND abs */
mr_eaabs(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x25: /* AND zp */
eazp(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=3;
break;
case 0x21: /* AND (zp, X) */
mr_eazpxind(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=6;
break;
case 0x31: /* AND (zp), Y */
mr_eazpindy(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=5;
break;
case 0x35: /* AND zp, X */
mr_eazpx(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x3D: /* AND abs, X */
mr_eaabsx(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
break;
case 0x39: /* AND abs, Y */
mr_eaabsy(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x0E: /* ASL abs */
mr_eaabs(MemValue);
asm("lsl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0x06: /* ASL zp */
eazp(MemValue);
asm("lsl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0x0A: /* ASL acc */
asm("lsl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2\n\tmove.b %0, %3"
:
: "d" (_A), "d" (Status), "m" (Status), "m" (_A)
);
AppleClock+=2;
break;
case 0x16: /* ASL zp, X */
mr_eazpx(MemValue);
asm("lsl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0x1E: /* ASL abs, X */
mr_eaabsx(MemValue);
asm("lsl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0x90: /* BCC rr */
AppleClock+=2;
PC.PC++;
asm("move %0, %%ccr" : "=m" (Status));
asm("bcs .bcc_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bcc_leave:");
break;
case 0xB0: /* BCS rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bcc .bcs_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bcs_leave:");
break;
case 0xF0: /* BEQ rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bne .beq_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".beq_leave:");
break;
case 0x2C: /* BIT abs */
mr_eaabs(MemValue);
asm("andi.w #0xFFF1, %0\n\tand.b %2, %1\n\tmove.w %%sr, %3\n\tandi.w #0x04, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0080, %3\n\tlsr.w #4, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0040, %3\n\tlsr.w #5, %3\n\tor.w %3, %0"
:
: "m" (Status), "d" (_A), "d" (MemValue), "d" (Status)
);
AppleClock+=4;
break;
case 0x24: /* BIT zp */
eazp(MemValue);
asm("andi.w #0xFFF1, %0\n\tand.b %2, %1\n\tmove.w %%sr, %3\n\tandi.w #0x04, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0080, %3\n\tlsr.w #4, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0040, %3\n\tlsr.w #5, %3\n\tor.w %3, %0"
:
: "m" (Status), "d" (_A), "d" (MemValue), "d" (Status)
);
AppleClock+=3;
break;
case 0x30: /* BMI rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bpl .bmi_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bmi_leave:");
break;
case 0xD0: /* BNE rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("beq .bne_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bne_leave:");
break;
case 0x10: /* BPL rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bmi .bpl_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bpl_leave:");
break;
case 0x00: /* BRK */
break;
case 0x50: /* BVC rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bvs .bvc_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bvc_leave:");
break;
case 0x70: /* BVS rr */
PC.PC++;
AppleClock+=2;
asm("move %0, %%ccr" : "=m" (Status));
asm("bvc .bvs_leave");
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
AppleClock++;
asm(".bvs_leave:");
break;
case 0x18: /* CLC */
asm("andi.w #0xFFEE, %0" : "=m" (Status));
AppleClock+=2;
break;
case 0xD8: /* CLD */
asm("clr.b %0" : : "m" (Decimal));
AppleClock+=2;
break;
case 0x58: /* CLI */
AppleClock+=2;
break;
case 0xB8: /* CLV */
asm("andi.w #0xFFFD, %0" : "=m" (Status));
AppleClock+=2;
break;
case 0xC9: /* CMP #imm */
// eaimm(MemValue);
PC.PC++;
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (PreFetch), "d" (Status), "m" (Status)
);
if (_A >= (PreFetch & 0xFF)) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=2;
break;
case 0xCD: /* CMP abs */
mr_eaabs(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=4;
break;
case 0xC5: /* CMP zp */
eazp(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=3;
break;
case 0xC1: /* CMP (zp, X) */
mr_eazpxind(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=6;
break;
case 0xD1: /* CMP (zp), Y */
mr_eazpindy(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=5;
break;
case 0xD5: /* CMP zp, X */
mr_eazpx(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=4;
break;
case 0xDD: /* CMP abs, X */
mr_eaabsx(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "CMP abs, X : %X %X %X %X\n", TempWord.PC, X, MemValue, _A); */
AppleClock+=4;
break;
case 0xD9: /* CMP abs, Y */
mr_eaabsy(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=4;
break;
case 0xE0: /* CPX #imm */
// eaimm(MemValue);
PC.PC++;
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (X), "d" (PreFetch), "d" (Status), "m" (Status)
);
if (X >= (PreFetch & 0xFF)) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=2;
break;
case 0xEC: /* CPX abs */
mr_eaabs(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (X), "d" (MemValue), "d" (Status), "m" (Status)
);
if (X >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=4;
break;
case 0xE4: /* CPX zp */
eazp(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (X), "d" (MemValue), "d" (Status), "m" (Status)
);
if (X >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=3;
break;
case 0xC0: /* CPY #imm */
// eaimm(MemValue);
PC.PC++;
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (Y), "d" (PreFetch), "d" (Status), "m" (Status)
);
if (Y >= (PreFetch & 0xFF)) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=2;
break;
case 0xCC: /* CPY abs */
mr_eaabs(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (Y), "d" (MemValue), "d" (Status), "m" (Status)
);
if (Y >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=4;
break;
case 0xC4: /* CPY zp */
eazp(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (Y), "d" (MemValue), "d" (Status), "m" (Status)
);
if (Y >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=3;
break;
case 0xCE: /* DEC abs */
mr_eaabs(MemValue);
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0xC6: /* DEC zp */
eazp(MemValue);
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0xD6: /* DEC zp, X */
mr_eazpx(MemValue);
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0xDE: /* DEC abs, X */
mr_eaabsx(MemValue);
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0xCA: /* DEX */
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x88: /* DEY */
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x49: /* EOR #imm */
// eaimm(MemValue);
PC.PC++;
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (PreFetch), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x4D: /* EOR abs */
mr_eaabs(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x45: /* EOR zp */
eazp(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=3;
break;
case 0x41: /* EOR (zp, X) */
mr_eazpxind(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=6;
break;
case 0x51: /* EOR (zp), Y */
mr_eazpindy(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=5;
break;
case 0x55: /* EOR zp, X */
mr_eazpx(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x5D: /* EOR abs, X */
mr_eaabsx(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x59: /* EOR abs, Y */
mr_eaabsy(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xEE: /* INC abs */
mr_eaabs(MemValue);
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0xE6: /* INC zp */
eazp(MemValue);
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0xF6: /* INC zp, X */
mr_eazpx(MemValue);
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0xFE: /* INC abs, X */
mr_eaabsx(MemValue);
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0xE8: /* INX */
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0xC8: /* INY */
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x4C: /* JMP abs */
// eaabs(TempWord);
PC.PC = PreFetch;
AppleClock+=3;
break;
case 0x6C: /* JMP (abs) */
eaabsind();
AppleClock+=5;
break;
case 0x20: /* JSR abs */
// eaabs(TempWord);
PC.PC++;
PUSH(PC.Byte[HIGH_BYTE]);
PUSH(PC.Byte[LOW_BYTE]);
PC.PC = PreFetch;
// PC.PC = TempWord.PC;
AppleClock+=6;
break;
case 0xA9: /* LDA #imm */
// eaimm(MemValue);
PC.PC++;
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (PreFetch), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0xAD: /* LDA abs */
mr_eaabs(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "LDA abs : %X %X\n", TempWord.PC, MemValue); */
AppleClock+=4;
break;
case 0xA5: /* LDA zp */
eazp(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=3;
break;
case 0xA1: /* LDA (zp, X) */
mr_eazpxind(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=6;
break;
case 0xB1: /* LDA (zp), Y */
mr_eazpindy(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "LDA (zp), Y : %X %X %X\n", MemValue, TempByte, TempWord.PC); */
AppleClock+=5;
break;
case 0xB5: /* LDA zp, X */
mr_eazpx(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xBD: /* LDA abs, X */
mr_eaabsx(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "LDA abs, X : %X %X %X\n", TempWord.PC, X, PreFetch); */
break;
case 0xB9: /* LDA abs, Y */
mr_eaabsy(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "LDA abs, Y : %X %X\n", TempWord.PC, MemValue); */
AppleClock+=4;
break;
case 0xA2: /* LDX #imm */
// eaimm(MemValue);
PC.PC++;
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (PreFetch), "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0xAE: /* LDX abs */
mr_eaabs(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xA6: /* LDX zp */
eazp(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=3;
break;
case 0xBE: /* LDX abs, Y */
mr_eaabsy(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xB6: /* LDX zp, Y */
mr_eazpy(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (X), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xA0: /* LDY #imm */
// eaimm(MemValue);
PC.PC++;
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (PreFetch), "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0xAC: /* LDY abs */
mr_eaabs(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xA4: /* LDY zp */
eazp(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=3;
break;
case 0xB4: /* LDY zp, X */
mr_eazpx(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xBC: /* LDY abs, X */
mr_eaabsx(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (Y), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x4E: /* LSR abs */
mr_eaabs(MemValue);
asm("lsr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tandi.w #0xFFF7, %1\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0x46: /* LSR zp */
eazp(MemValue);
asm("lsr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tandi.w #0xFFF7, %1\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0x4A: /* LSR acc */
asm("lsr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tandi.w #0xFFF7, %1\n\tor.w %1, %2\n\tmove.b %0, %3"
:
: "d" (_A), "d" (Status), "m" (Status), "m" (_A)
);
AppleClock+=2;
break;
case 0x56: /* LSR zp, X */
mr_eazpx(MemValue);
asm("lsr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tandi.w #0xFFF7, %1\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0x5E: /* LSR abs, X */
mr_eaabsx(MemValue);
asm("lsr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tandi.w #0xFFF7, %1\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0xEA: /* NOP */
AppleClock+=2;
break;
case 0x09: /* ORA #imm */
// eaimm(MemValue);
PC.PC++;
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (PreFetch), "d" (Status), "d" (MemValue)
);
AppleClock+=2;
break;
case 0x0D: /* ORA abs */
mr_eaabs(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x05: /* ORA zp */
eazp(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=3;
break;
case 0x01: /* ORA (zp, X) */
mr_eazpxind(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=6;
break;
case 0x11: /* ORA (zp), Y */
mr_eazpindy(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=5;
break;
case 0x15: /* ORA zp, X */
mr_eazpx(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x1D: /* ORA abs, X */
mr_eaabsx(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x19: /* ORA abs, Y */
mr_eaabsy(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x48: /* PHA */
PUSH(_A);
AppleClock+=3;
break;
case 0x08: /* PHP */
asm("clr.w %0"
:
: "d" (MemValue)
);
/* N Flags */
asm("move %0, %1\n\tandi.w #0x08, %1\n\tlsl.w #4, %1\n\tor.w %1, %2"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* V Flags */
asm("move %0, %1\n\tandi.w #0x02, %1\n\tlsl.w #5, %1\n\tor.w %1, %2"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* Bit 5 Flags */
asm("ori.w #0x20, %0"
:
: "d" (MemValue)
);
/* Z Flags */
asm("move %0, %1\n\tandi.w #0x04, %1\n\tlsr.w #1, %1\n\tor.w %1, %2"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* C Flags */
asm("move %0, %1\n\tandi.w #0x01, %1\n\tor.w %1, %2"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
MemValue |= Decimal;
PUSH(MemValue);
AppleClock+=3;
break;
case 0x68: /* PLA */
POP(_A);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "m" (_A), "d" (_A), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x28: /* PLP */
POP(MemValue);
asm("clr.w %0"
:
: "m" (Status)
);
/* N Flags */
asm("move %2, %1\n\tandi.w #0x80, %1\n\tlsr.w #4, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* V Flags */
asm("move %2, %1\n\tandi.w #0x40, %1\n\tlsr.w #5, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* Z Flags */
asm("move %2, %1\n\tandi.w #0x02, %1\n\tlsl.w #1, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* C Flags */
asm("move %2, %1\n\tandi.w #0x01, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* D Flags */
asm("move %2, %1\n\tandi.w #0x08, %1\n\tmove.b %1, %0"
:
: "m" (Decimal), "d" (Status), "d" (MemValue)
);
AppleClock+=4;
break;
case 0x2E: /* ROL abs */
mr_eaabs(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0x26: /* ROL zp */
eazp(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0x2A: /* ROL acc */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2\n\tmove.b %0, %3"
:
: "d" (_A), "d" (Status), "m" (Status), "m" (_A)
);
AppleClock+=2;
break;
case 0x36: /* ROL zp, X */
mr_eazpx(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0x3E: /* ROL abs, X */
mr_eaabsx(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxl.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0x6E: /* ROR abs */
mr_eaabs(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=6;
break;
case 0x66: /* ROR zp */
eazp(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=5;
break;
case 0x6A: /* ROR acc */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2\n\tmove.b %0, %3"
:
: "d" (_A), "d" (Status), "m" (Status), "m" (_A)
);
AppleClock+=2;
break;
case 0x76: /* ROR zp, X */
mr_eazpx(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
_AppleMemory[TempByte] = MemValue;
AppleClock+=6;
break;
case 0x7E: /* ROR abs, X */
mr_eaabsx(MemValue);
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
asm("move.w %2, %%ccr\n\troxr.b #1, %0\n\tmove.w %%sr, %1\n\tandi.w #0x0002, %2\n\tor.w %1, %2"
:
: "d" (MemValue), "d" (Status), "m" (Status)
);
MEMORY_WRITE(MemValue, TempWord);
AppleClock+=7;
break;
case 0x40: /* RTI */
POP(MemValue);
asm("clr.w %0"
:
: "m" (Status)
);
/* N Flags */
asm("move %2, %1\n\tandi.w #0x80, %1\n\tlsr.w #4, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* V Flags */
asm("move %2, %1\n\tandi.w #0x40, %1\n\tlsr.w #5, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* Z Flags */
asm("move %2, %1\n\tandi.w #0x02, %1\n\tlsl.w #1, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* C Flags */
asm("move %2, %1\n\tandi.w #0x01, %1\n\tor.w %1, %0"
:
: "m" (Status), "d" (Status), "d" (MemValue)
);
/* D Flags */
asm("move %2, %1\n\tandi.w #0x08, %1\n\tmove.b %1, %0"
:
: "m" (Decimal), "d" (Status), "d" (MemValue)
);
POP(PC.Byte[LOW_BYTE]);
POP(PC.Byte[HIGH_BYTE]);
AppleClock+=6;
break;
case 0x60: /* RTS */
POP(PC.Byte[LOW_BYTE]);
POP(PC.Byte[HIGH_BYTE]);
PC.PC++;
AppleClock+=6;
break;
case 0xE9: /* SBC #imm */
// eaimm(MemValue);
PC.PC++;
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_e9_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (PreFetch), "m" (_A)
);
asm("bra .sbc_e9_finish");
asm(".sbc_e9_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (PreFetch), "m" (_A)
);
asm(".sbc_e9_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=2;
break;
case 0xED: /* SBC abs */
mr_eaabs(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_ed_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_ed_finish");
asm(".sbc_ed_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_ed_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=4;
break;
case 0xE5: /* SBC zp */
eazp(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_e5_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_e5_finish");
asm(".sbc_e5_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_e5_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=3;
break;
case 0xE1: /* SBC (zp, X) */
mr_eazpxind(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_e1_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_e1_finish");
asm(".sbc_e1_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_e1_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=6;
break;
case 0xF1: /* SBC (zp), Y */
mr_eazpindy(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_f1_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_f1_finish");
asm(".sbc_f1_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_f1_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=5;
break;
case 0xF5: /* SBC zp, X */
mr_eazpx(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_f5_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_f5_finish");
asm(".sbc_f5_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_f5_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=4;
break;
case 0xFD: /* SBC abs, X */
mr_eaabsx(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_fd_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_fd_finish");
asm(".sbc_fd_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_fd_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=4;
break;
case 0xF9: /* SBC abs, Y */
mr_eaabsy(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_f9_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_f9_finish");
asm(".sbc_f9_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_f9_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=4;
break;
case 0x38: /* SEC */
asm("ori.w #0x11, %0" : "=m" (Status));
AppleClock+=2;
break;
case 0xF8: /* SED */
asm("move.b #0x08, %0" : : "m" (Decimal));
AppleClock+=2;
break;
case 0x78: /* SEI */
AppleClock+=2;
break;
case 0x8D: /* STA abs */
mw_eaabs(_A);
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "STA abs : %X %X %X\n", */
/* TempWord.PC, _A, _AppleMemory[TempWord.PC]); */
AppleClock+=4;
break;
case 0x85: /* STA zp */
mw_eazp(_A);
AppleClock+=3;
break;
case 0x81: /* STA (zp, X) */
mw_eazpxind(_A);
AppleClock+=6;
break;
case 0x91: /* STA (zp), Y */
mw_eazpindy(_A);
AppleClock+=6;
break;
case 0x95: /* STA zp, X */
mw_eazpx(_A);
AppleClock+=4;
break;
case 0x9D: /* STA abs, X */
mw_eaabsx(_A);
AppleClock+=5;
break;
case 0x99: /* STA abs, Y */
mw_eaabsy(_A);
/* if (!LOOP) HostTraceOutputT(sysErrorClass, "STA abs, Y : %X %X %X %X\n", TempWord.PC, Y, _A, PreFetch); */
AppleClock+=5;
break;
case 0x8E: /* STX abs */
mw_eaabs(X);
AppleClock+=4;
break;
case 0x86: /* STX zp */
mw_eazp(X);
AppleClock+=3;
break;
case 0x96: /* STX zp, Y */
mw_eazpy(X);
AppleClock+=4;
break;
case 0x8C: /* STY abs */
mw_eaabs(Y);
AppleClock+=4;
break;
case 0x84: /* STY zp */
mw_eazp(Y);
AppleClock+=3;
break;
case 0x94: /* STY zp, X */
mw_eazpx(Y);
AppleClock+=4;
break;
case 0xAA: /* TAX */
asm("move.b %0, %1\n\tmove.w %%sr, %3\n\tmove %2, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %2"
:
: "m" (_A), "m" (X), "m" (Status), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
case 0xA8: /* TAY */
asm("move.b %0, %1\n\tmove.w %%sr, %3\n\tmove %2, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %2"
:
: "m" (_A), "m" (Y), "m" (Status), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
case 0xBA: /* TSX */
asm("move.b %0, %1\n\tmove.w %%sr, %3\n\tmove %2, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %2"
:
: "m" (Stack.Byte[LOW_BYTE]), "m" (X), "m" (Status), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
case 0x8A: /* TXA */
asm("move.b %0, %1\n\tmove.w %%sr, %3\n\tmove %2, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %2"
:
: "m" (X), "m" (_A), "m" (Status), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
case 0x9A: /* TXS */
asm("move.b %0, %1"
:
: "m" (X), "m" (Stack.Byte[LOW_BYTE])
);
AppleClock+=2;
break;
case 0x98: /* TYA */
asm("move.b %0, %1\n\tmove.w %%sr, %3\n\tmove %2, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %2"
:
: "m" (Y), "m" (_A), "m" (Status), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
/* MC6502 Instruction Set */
case 0x72: /* ADC (zp) */
Status &= 0xFFEF; if (Status & 0x01) Status |= 0x10;
Status |= 0x04;
mr_eazpind(MemValue);
asm("move.b %0, %1\n\tbne .adc_72_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\taddx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .adc_72_finish");
asm(".adc_72_decimal:");
asm("move.w %0, %%ccr\n\tabcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
:
: "m" (Status), "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".adc_72_finish:");
AppleClock+=5;
break;
case 0x32: /* AND (zp) */
mr_eazpind(MemValue);
asm("and.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=5;
break;
case 0x34: /* BIT zp, X */
mr_eazpx(MemValue);
asm("andi.w #0xFFF1, %0\n\tand.b %2, %1\n\tmove.w %%sr, %3\n\tandi.w #0x04, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0080, %3\n\tlsr.w #4, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0040, %3\n\tlsr.w #5, %3\n\tor.w %3, %0"
:
: "m" (Status), "d" (_A), "d" (MemValue), "d" (Status)
);
AppleClock+=3;
break;
case 0x89: /* BIT #imm */
PC.PC++;
MemValue = PreFetch & 0xFF;
asm("andi.w #0xFFF1, %0\n\tand.b %2, %1\n\tmove.w %%sr, %3\n\tandi.w #0x04, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0080, %3\n\tlsr.w #4, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0040, %3\n\tlsr.w #5, %3\n\tor.w %3, %0"
:
: "m" (Status), "d" (_A), "d" (MemValue), "d" (Status)
);
AppleClock+=2;
break;
case 0x3C: /* BIT abs, X */
mr_eaabsx(MemValue);
asm("andi.w #0xFFF1, %0\n\tand.b %2, %1\n\tmove.w %%sr, %3\n\tandi.w #0x04, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0080, %3\n\tlsr.w #4, %3\n\tor.w %3, %0\n\tclr.w %3\n\tmove.b %2, %3\n\tandi.w #0x0040, %3\n\tlsr.w #5, %3\n\tor.w %3, %0"
:
: "m" (Status), "d" (_A), "d" (MemValue), "d" (Status)
);
AppleClock+=4;
break;
case 0x80: /* BRA rr */
PC.PC++;
AppleClock+=3;
asm("ext.w %0" : : "d" (PreFetch));
PC.PC += PreFetch;
break;
case 0xD2: /* CMP (zp) */
mr_eazpind(MemValue);
asm("neg.b %1\n\tadd.b %1, %0\n\tmove %%sr, %2\n\tandi.w #0xFFF2, %3\n\tandi.w #0x000D, %2\n\tor.w %2, %3\n\tneg.b %1"
:
: "d" (_A), "d" (MemValue), "d" (Status), "m" (Status)
);
if (_A >= MemValue) Status |= 0x01; else Status &= 0xFFFE;
AppleClock+=5;
break;
case 0x3A: /* DEA acc */
asm("addi.b #0xFF, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x52: /* EOR (zp) */
mr_eazpind(MemValue);
asm("eor.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=5;
break;
case 0x1A: /* INA acc */
asm("addi.b #0x01, %0\n\tmove %%sr, %1\n\tandi.w #0x000C, %1\n\tandi.w #0xFFF3, %2\n\tor.w %1, %2"
:
: "m" (_A), "d" (Status), "m" (Status)
);
AppleClock+=2;
break;
case 0x7C: /* JMP (abs, X) */
eaabsxind();
AppleClock+=6;
break;
case 0xB2: /* LDA (zp) */
mr_eazpind(MemValue);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "d" (MemValue), "m" (_A), "d" (Status), "m" (Status)
);
// if (!LOOP) HostTraceOutputT(sysErrorClass, "LDA (zp) : %X %X %X\n", TempWord.PC, TempByte, MemValue);
AppleClock+=5;
break;
case 0x12: /* ORA (zp) */
mr_eazpind(MemValue);
asm("or.b %2, %1\n\tmove.w %%sr, %3\n\tmove %0, %4\n\tandi.w #0x000C, %3\n\tandi.w #0xFFF3, %4\n\tor.b %3, %4\n\tmove.w %4, %0"
: "=m" (Status)
: "m" (_A), "d" (MemValue), "d" (Status), "d" (MemValue)
);
AppleClock+=5;
break;
case 0xDA: /* PHX */
PUSH(X);
AppleClock+=3;
break;
case 0xFA: /* PLX */
POP(X);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "m" (X), "d" (X), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0x5A: /* PHY */
PUSH(Y);
AppleClock+=3;
break;
case 0x7A: /* PLY */
POP(Y);
asm("move.b %0, %1\n\tmove %%sr, %2\n\tandi.w #0x000C, %2\n\tandi.w #0xFFF3, %3\n\tor.w %2, %3"
:
: "m" (Y), "d" (Y), "d" (Status), "m" (Status)
);
AppleClock+=4;
break;
case 0xF2: /* SBC (zp) */
mr_eazpind(MemValue);
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
Status |= 0x04;
asm("move.b %0, %1\n\tbne .sbc_f2_decimal" : : "m" (Decimal), "d" (Decimal));
asm("move.w %0, %%ccr\n\tsubx.b %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm("bra .sbc_f2_finish");
asm(".sbc_f2_decimal:");
asm("move.w %0, %%ccr\n\tsbcd %2, %1\n\tmove.w %%sr, %0\n\tmove.b %1, %3"
: "=m" (Status)
: "d" (_A), "d" (MemValue), "m" (_A)
);
asm(".sbc_f2_finish:");
if (Status & 0x01) Status &= 0xFFEE; else Status |= 0x0011;
AppleClock+=4;
break;
case 0x92: /* STA (zp) */
mw_eazpind(_A);
AppleClock+=6;
break;
case 0x9C: /* STZ abs */
mw_eaabs(0);
AppleClock+=3;
break;
case 0x64: /* STZ zp */
mw_eazp(0);
AppleClock+=3;
break;
case 0x74: /* STZ zp, X */
mw_eazpx(0);
AppleClock+=3;
break;
case 0x9E: /* STZ abs, X */
mw_eaabsx(0);
AppleClock+=3;
break;
case 0x1C: /* TRB abs */
mr_eaabs(MemValue);
asm("andi.w #0xFFF1, %3\n\tmove.b %0, %1\n\tandi.b #0x80, %1\n\tlsr.b #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tand.b %4, %1\n\tmove.w %%sr, %1\n\tandi.w #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tandi.b #0x40, %1\n\tlsr.b #0x05, %1\n\tor.w %1, %3"
:
: "d" (MemValue), "d" (_A), "m" (Status), "d" (Status), "m" (_A)
);
MEMORY_WRITE(MemValue & ~_A, TempWord);
break;
case 0x14: /* TRB zp */
eazp(MemValue);
asm("andi.w #0xFFF1, %3\n\tmove.b %0, %1\n\tandi.b #0x80, %1\n\tlsr.b #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tand.b %4, %1\n\tmove.w %%sr, %1\n\tandi.w #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tandi.b #0x40, %1\n\tlsr.b #0x05, %1\n\tor.w %1, %3"
:
: "d" (MemValue), "d" (_A), "m" (Status), "d" (Status), "m" (_A)
);
_AppleMemory[TempByte] = MemValue;
break;
case 0x0C: /* TSB abs */
mr_eaabs(MemValue);
asm("andi.w #0xFFF1, %3\n\tmove.b %0, %1\n\tandi.b #0x80, %1\n\tlsr.b #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tand.b %4, %1\n\tmove.w %%sr, %1\n\tandi.w #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tandi.b #0x40, %1\n\tlsr.b #0x05, %1\n\tor.w %1, %3"
:
: "d" (MemValue), "d" (_A), "m" (Status), "d" (Status), "m" (_A)
);
MEMORY_WRITE(MemValue | _A, TempWord);
break;
case 0x04: /* TSB zp */
eazp(MemValue);
asm("andi.w #0xFFF1, %3\n\tmove.b %0, %1\n\tandi.b #0x80, %1\n\tlsr.b #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tand.b %4, %1\n\tmove.w %%sr, %1\n\tandi.w #0x04, %1\n\tor.w %1, %3\n\tmove.b %0, %1\n\tandi.b #0x40, %1\n\tlsr.b #0x05, %1\n\tor.w %1, %3"
:
: "d" (MemValue), "d" (_A), "m" (Status), "d" (Status), "m" (_A)
);
_AppleMemory[TempByte] = MemValue | _A;
break;
default:
StrPrintF(buf, "Unknown Opcode %X", Opcode);
WinDrawChars(buf, StrLen(buf), 60, 0);
break;
}
asm(".screen1:");
if (IOUSoftSwitch[0] & SS_HIRES)
*(--_pointer) = ~_AppleMemory[scanaddr--];
else
*(--_pointer) = AppleFont[_AppleMemory[scanaddr--] * 8 + chary];
vert--;
asm(".screen2:");
if (vert < 0) {
#ifdef SONY
vert = 39; hori--; chary--; chary &= 0x07;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 39;
else
scanaddr = ScanlineAddressTable[hori] + 39;
#else
vert = 19; hori--; chary--; chary &= 0x07;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 19;
else
scanaddr = ScanlineAddressTable[hori] + 19;
#endif
}
asm(".screen3:");
if (hori < 0) {
#ifdef SONY
_pointer += 40 * 192; chary = 7;
vert = 39; hori = 191; fps++;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 39;
else
if (IOUSoftSwitch[0] & SS_TEXT)
scanaddr = ScanlineAddressTable[hori] + 39;
#else
_pointer += 20 * 120; chary = 7;
vert = 19; hori = 119; fps++;
if (IOUSoftSwitch[0] & SS_HIRES)
scanaddr = ScanlineAddressTableH[hori] + 19;
else
if (IOUSoftSwitch[0] & SS_TEXT)
scanaddr = ScanlineAddressTable[hori] + 19;
#endif
}
asm(".screen4:");
if (QUIT) goto run_again;
}
Reference in New Issue View Git Blame Copy Permalink