refactor out GP2X specific stuff completely
[fceu.git] / ncpu.S
diff --git a/ncpu.S b/ncpu.S
index 96c867b..e7b07a6 100644 (file)
--- a/ncpu.S
+++ b/ncpu.S
@@ -3,11 +3,15 @@
   File : ncpu.S
   Authors : FCA author
             modified and adapted by Yoyo.
-            adapted for fceu by notaz, 2007.
+            timing fixed, missing opcodes added
+           and adapted for fceu by notaz, 2007.
 **************************************/
 
 #include "ncpu.h"
 
+/* emulate (some) dummy reads (may need that because they affect open bus) */
+#define DO_DUMMY_READS 1
+
 @@@
 @@@ Offets from REG_OP_TABLE
 @@@
@@ -157,10 +161,13 @@ ldmfd sp!,{r0-r3,r12,lr}
 @@@
 @@@ ¥¢¥É¥ì¥¹¤òÆɤà
 @@@
-.macro ZP_READ_ADDR
+.macro ZP_READ_ADDR update_db=0
        ZP_READ
        ldrb    REG_ADDR, [REG_ADDR, #1]
        orr     REG_ADDR, r0, REG_ADDR, lsl #8
+.if \update_db
+       strb    r0, [REG_OP_TABLE, #(OTOFFS_X + 0x10)]          @ X.DB
+.endif
 .endm
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -378,7 +385,7 @@ ldmfd sp!,{r0-r3,r12,lr}
 @@@ ($nn), Y
 .macro INDY_ADDR
        ZERO_ADDR
-       ZP_READ_ADDR
+       ZP_READ_ADDR 1                            @ SMB3 relies on open bus here
        add     REG_ADDR, REG_ADDR, REG_Y
        bic     REG_ADDR, REG_ADDR, #0x10000
        and     r0,REG_ADDR,#0xff
@@ -405,18 +412,25 @@ ldmfd sp!,{r0-r3,r12,lr}
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@ $nnnn
 
-.macro ABS_ADDR
+.macro ABS_ADDR update_db=0
+.if \update_db
+       ldrb    r0, [REG_PC, #1]
+       ldrb    REG_ADDR, [REG_PC], #2
+       strb    r0, [REG_OP_TABLE, #(OTOFFS_X + 0x10)]          @ X.DB
+       orr     REG_ADDR, REG_ADDR, r0, lsl #8
+.else
        tst     REG_PC, #1
        ldrneb  REG_ADDR, [REG_PC], #1
        ldrneb  r0, [REG_PC], #1
        ldreqh  REG_ADDR, [REG_PC], #2
        orrne   REG_ADDR, REG_ADDR, r0, lsl #8
+.endif
 .endm
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@ $nnnn, X
 .macro ABSX_ADDR
-       ABS_ADDR
+       ABS_ADDR DO_DUMMY_READS
        add     REG_ADDR, REG_ADDR, REG_X
        bic     REG_ADDR, REG_ADDR, #0x10000
        and     r0,REG_ADDR,#0xff
@@ -435,7 +449,7 @@ ldmfd sp!,{r0-r3,r12,lr}
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@ $nnnn, Y
 .macro ABSY_ADDR
-       ABS_ADDR
+       ABS_ADDR DO_DUMMY_READS                         @ a hack needed for Paperboy, Dirty Harry controls to work
        add     REG_ADDR, REG_ADDR, REG_Y
        bic     REG_ADDR, REG_ADDR, #0x10000
        and     r0,REG_ADDR,#0xff
@@ -524,12 +538,12 @@ op38:     @ SEC
 
 opD8:  @ CLD
        IMPLIED
-       @@bic   REG_P_REST, REG_P_REST, #P_REST_D_FLAG
+       bic     REG_P_REST, REG_P_REST, #P_REST_D_FLAG
        CYCLE_NEXT      2
 
 opF8:  @ SED
        IMPLIED
-       @@orr   REG_P_REST, REG_P_REST, #P_REST_D_FLAG
+       orr     REG_P_REST, REG_P_REST, #P_REST_D_FLAG
        CYCLE_NEXT      2
 
 op58:  @ CLI
@@ -1871,12 +1885,6 @@ op70:    @ BVS $nn
        and     r0, r0, #0xFF
 .endm
 
-.macro OP_SHY
-       mov     r0,REG_ADDR, lsr #8
-       add     r0,r0,#1
-       and     r0,r0,REG_Y
-.endm
-
 .macro  OP_SRE
        movs    r0, r0, lsr #1
  @@set C flag
@@ -1912,13 +1920,9 @@ op70:    @ BVS $nn
        @@ ¥­¥ã¥ê¡¼¤òÊݸ
        adc     REG_P_REST, r1, r1
        and     REG_A,REG_A,r0,lsl #24
+       orr     REG_NZ, REG_A, REG_A, lsr #24           @ according to fceu
 .endm
 
-.macro OP_RRA
-       movs    r1, REG_P_REST, lsr #1
-       orrcs   r0, r0, #0x100
-       movs    r0, r0, lsr #1
-.endm
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -1954,7 +1958,7 @@ op4F:     @ SRE $nnnn
 
 op5F:  @ SRE $nnnn, X
        CYCLE_PRE       7
-       ABSX_ADDR
+       ABSX_ADDR_W
        READ_WRITE_1
        OP_SRE
        READ_WRITE_2
@@ -1966,7 +1970,7 @@ op5F:     @ SRE $nnnn, X
 
 op5B:  @ SRE $nnnn, Y
        CYCLE_PRE       7
-       ABSY_ADDR
+       ABSY_ADDR_W
        READ_WRITE_1
        OP_SRE
        READ_WRITE_2
@@ -2001,13 +2005,6 @@ op53:    @ SRE ($nn), Y
        CYCLE_NEXT      8,1,0
 
 
-op9C:  @ SHY $nnnn, X
-       CYCLE_PRE       5
-       ABSX_ADDR_W
-       OP_SHY
-       WRITE_1
-       CYCLE_NEXT      5,1,0
-
 opE7:  @ ISB $nn
        ZERO_ADDR
        ZP_READ_W
@@ -2041,7 +2038,7 @@ opEF:   @ ISB $nnnn
 
 opFF:   @ ISB $nnnn,X
        CYCLE_PRE       7
-       ABSX_ADDR
+       ABSX_ADDR_W
        READ_WRITE_1
        OP_ISB
        READ_WRITE_2
@@ -2055,7 +2052,7 @@ opFF:   @ ISB $nnnn,X
 
 opFB:  @ ISB $nnnn, Y
        CYCLE_PRE       7
-       ABSY_ADDR
+       ABSY_ADDR_W
        READ_WRITE_1
        OP_ISB
        READ_WRITE_2
@@ -2068,32 +2065,32 @@ opFB:   @ ISB $nnnn, Y
        CYCLE_NEXT      7,1,0
 
 opE3:  @ ISB ($nn, X)
-       CYCLE_PRE       7
+       CYCLE_PRE       8
        INDX_ADDR
        READ_WRITE_1
        OP_ISB
        READ_WRITE_2
        OP_SBC
-       CYCLE_NEXT      7,1,0
+       CYCLE_NEXT      8,1,0
        READ_WRITE_3
        OP_ISB
        READ_WRITE_4
        OP_SBC
-       CYCLE_NEXT      7,1,0
+       CYCLE_NEXT      8,1,0
 
 opF3:  @ ISB ($nn), Y
-       CYCLE_PRE       7
+       CYCLE_PRE       8
        INDY_ADDR
        READ_WRITE_1
        OP_ISB
        READ_WRITE_2
        OP_SBC
-       CYCLE_NEXT      7,1,0
+       CYCLE_NEXT      8,1,0
        READ_WRITE_3
        OP_ISB
        READ_WRITE_4
        OP_SBC
-       CYCLE_NEXT      7,1,0
+       CYCLE_NEXT      8,1,0
 
 opA7:  @ LAX $nn
        ZERO_ADDR
@@ -2164,7 +2161,7 @@ op0F:     @ SLO $nnnn
 
 op1F:  @ SLO $nnnn, X
        CYCLE_PRE       7
-       ABSX_ADDR
+       ABSX_ADDR_W
        READ_WRITE_1
        OP_SLO
        READ_WRITE_2
@@ -2247,7 +2244,7 @@ opCF:     @ DCP $nnnn
 
 opDF:  @ DCP $nnnn, X
        CYCLE_PRE       7
-       ABSX_ADDR
+       ABSX_ADDR_W
        READ_WRITE_1
        OP_DCP
        READ_WRITE_2
@@ -2261,7 +2258,7 @@ opDF:     @ DCP $nnnn, X
 
 opDB:  @ DCP $nnnn, Y
        CYCLE_PRE       7
-       ABSY_ADDR
+       ABSY_ADDR_W
        READ_WRITE_1
        OP_DCP
        READ_WRITE_2
@@ -2290,7 +2287,7 @@ opC3:     @ DCP ($nn, X)
 
 opD3:  @ DCP ($nn), Y
        CYCLE_PRE       8
-       INDY_ADDR
+       INDY_ADDR_W
        READ_WRITE_1
        OP_DCP
        READ_WRITE_2
@@ -2379,7 +2376,7 @@ op33:     @ RLA ($nn), Y
 op67:  @ RRA $nn
        ZERO_ADDR
        ZP_READ_W
-       OP_RRA
+       OP_ROR
        ZP_WRITE_W
        OP_ADC
        CYCLE_NEXT      5
@@ -2387,7 +2384,7 @@ op67:     @ RRA $nn
 op77:  @ RRA $nn, X
        ZEROX_ADDR
        ZP_READ_W
-       OP_RRA
+       OP_ROR
        ZP_WRITE_W
        OP_ADC
        CYCLE_NEXT      6
@@ -2396,12 +2393,12 @@ op6F:   @ RRA $nnnn
        CYCLE_PRE       6
        ABS_ADDR
        READ_WRITE_1
-       OP_RRA
+       OP_ROR
        READ_WRITE_2
        OP_ADC
        CYCLE_NEXT      6,1,0
        READ_WRITE_3
-       OP_RRA
+       OP_ROR
        READ_WRITE_4
        OP_ADC
        CYCLE_NEXT      6,1,0
@@ -2410,12 +2407,12 @@ op7F:   @ RRA $nnnn, X
        CYCLE_PRE       7
        ABSX_ADDR_W
        READ_WRITE_1
-       OP_RRA
+       OP_ROR
        READ_WRITE_2
        OP_ADC
        CYCLE_NEXT      7,1,0
        READ_WRITE_3
-       OP_RRA
+       OP_ROR
        READ_WRITE_4
        OP_ADC
        CYCLE_NEXT      7,1,0
@@ -2424,12 +2421,12 @@ op7B:   @ RRA $nnnn, Y
        CYCLE_PRE       7
        ABSY_ADDR_W
        READ_WRITE_1
-       OP_RRA
+       OP_ROR
        READ_WRITE_2
        OP_ADC
        CYCLE_NEXT      7,1,0
        READ_WRITE_3
-       OP_RRA
+       OP_ROR
        READ_WRITE_4
        OP_ADC
        CYCLE_NEXT      7,1,0
@@ -2438,12 +2435,12 @@ op63:   @ RRA ($nn, X)
        CYCLE_PRE       8
        INDX_ADDR
        READ_WRITE_1
-       OP_RRA
+       OP_ROR
        READ_WRITE_2
        OP_ADC
        CYCLE_NEXT      8,1,0
        READ_WRITE_3
-       OP_RRA
+       OP_ROR
        READ_WRITE_4
        OP_ADC
        CYCLE_NEXT      8,1,0
@@ -2452,12 +2449,12 @@ op73:   @ RRA ($nn), Y
        CYCLE_PRE       8
        INDY_ADDR_W
        READ_WRITE_1
-       OP_RRA
+       OP_ROR
        READ_WRITE_2
        OP_ADC
        CYCLE_NEXT      8,1,0
        READ_WRITE_3
-       OP_RRA
+       OP_ROR
        READ_WRITE_4
        OP_ADC
        CYCLE_NEXT      8,1,0
@@ -2470,8 +2467,14 @@ op64:
        CYCLE_NEXT  3
 
 op0C:  @ NOP $nnnn
+       CYCLE_PRE       4
+#if DO_DUMMY_READS
+       ABS_ADDR
+       READ
+#else
        add     REG_PC,REG_PC,#2
-       CYCLE_NEXT   4
+#endif
+       CYCLE_NEXT      4,1,0
 
 op14:  @ NOP $nn, X
 op34:
@@ -2496,17 +2499,177 @@ op5C:
 op7C:
 opDC:
 opFC:
+       CYCLE_PRE       4
+#if DO_DUMMY_READS
+       ABSX_ADDR
+       READ
+#else
        add     REG_PC,REG_PC,#2
-       CYCLE_NEXT   4
+#endif
+       CYCLE_NEXT      4,1,0
 
 op80:  @ NOP #$nn
 op82:
 op89:
 opC2:
+       add     REG_PC,REG_PC,#1
+       CYCLE_NEXT   2
+
 opE2:
        add     REG_PC,REG_PC,#1
+       CYCLE_NEXT   3
+
+op02:  @ JAM: try to be compatible with fceu
+op12:
+op22:
+op32:
+op42:
+op52:
+op62:
+op72:
+op92:
+opB2:
+opD2:
+opF2:
+       sub     REG_PC,REG_PC,#1
+       add     REG_CYCLE, REG_CYCLE, #0x10
+       FLUSH_TIMESTAMP r0
+       add     REG_CYCLE, REG_CYCLE, #0xef
+       sub     REG_CYCLE, REG_CYCLE, #0x00d00000 @ 0xff*48<<16
+       sub     REG_CYCLE, REG_CYCLE, #0x2f000000
        CYCLE_NEXT   2
 
+op0B:  @ ANC #$nn
+op2B:  @ ANC #$nn
+       IMM_VALUE
+       OP_AND
+       bic     REG_P_REST, REG_P_REST, #P_REST_C_FLAG
+       orr     REG_P_REST, REG_P_REST, REG_A, lsr #31
+       CYCLE_NEXT   2
+
+op4B:  @ ASR #$nn
+       IMM_VALUE
+       OP_AND
+       OP_LSR_A
+       CYCLE_NEXT   2
+
+op6B:  @ ARR #$nn
+       IMM_VALUE
+       OP_AND
+       bic     REG_P_REST, REG_P_REST, #P_REST_C_FLAG
+       eor     r0, REG_A, REG_A, lsr #1
+       and     r0, r0, #0x40000000
+       orr     REG_P_REST, REG_P_REST, r0, lsr #24
+       OP_ROR_A
+       CYCLE_NEXT   2
+
+op83:  @ SAX/AAX ($nn, X)
+       CYCLE_PRE       6
+       INDX_ADDR
+       and     r0, REG_X, REG_A, lsr #24
+       WRITE_1
+       CYCLE_NEXT      6,1,0
+
+op87:  @ SAX/AAX $nn
+       ZERO_ADDR
+       and     r0, REG_X, REG_A, lsr #24
+       ZP_WRITE
+       CYCLE_NEXT      3
+
+op8B:  @ ANE/XAA #$nn
+       orr     REG_A, REG_A, #0xee000000
+       and     REG_A, REG_A, REG_X, lsl #24
+       IMM_VALUE
+       OP_AND
+       CYCLE_NEXT      2
+
+op8F:  @ SAX/AAX $nnnn
+       CYCLE_PRE       4
+       ABS_ADDR
+       and     r0, REG_X, REG_A, lsr #24
+       WRITE_1
+       CYCLE_NEXT      4,1,0
+
+.macro AMY_MSB
+       sub     r0, REG_ADDR, REG_Y
+       mov     r0, r0, lsr #8
+       add     r0, r0, #1
+.endm
+
+op93:  @ SHA/AXA ($nn), Y
+       CYCLE_PRE       6
+       INDY_ADDR_W
+       AMY_MSB
+       and     r0, r0, REG_X
+       and     r0, r0, REG_A, lsr #24
+       WRITE_1
+       CYCLE_NEXT      6,1,0
+
+op97:  @ SAX,AAX $nn, Y
+       ZEROY_ADDR
+       and     r0, REG_X, REG_A, lsr #24
+       ZP_WRITE
+       CYCLE_NEXT      4
+
+op9B:  @ SHS/XAS $nnnn, Y
+       and     r0, REG_X, REG_A, lsr #24
+       bic     REG_S, REG_S, #0xFF << 24
+       orr     REG_S, REG_S, r0, lsl #24
+       ABSY_ADDR_W
+       AMY_MSB
+       and     r0, r0, REG_S, lsr #24
+       WRITE_1
+       CYCLE_NEXT      5
+
+op9C:  @ SHY/SYA $nnnn, X
+       CYCLE_PRE       5
+       ABSX_ADDR_W
+       sub     r0, REG_ADDR, REG_X
+       mov     r0, r0, lsr #8
+       add     r0, r0, #1
+       and     r0, r0, REG_Y
+       WRITE_1
+       CYCLE_NEXT      5,1,0
+
+op9E:  @ SHX/SXA $nnnn, Y
+       ABSY_ADDR_W
+       AMY_MSB
+       and     r0, r0, REG_X
+       WRITE_1
+       CYCLE_NEXT      5
+
+op9F:  @ SHA/AXA $nnnn, Y
+       CYCLE_PRE       5
+       ABSY_ADDR_W
+       AMY_MSB
+       and     r0, r0, REG_X
+       and     r0, r0, REG_A, lsr #24
+       WRITE_1
+       CYCLE_NEXT      5,1,0
+
+opAB:  @ LXA/ATX/OAL #$nn
+       IMM_VALUE
+       orr     REG_A, REG_A, #0xee000000
+       OP_AND
+       mov     REG_X, REG_A, lsr #24
+       CYCLE_NEXT      2
+
+opBB:  @ LAS/LAR $nnnn,Y
+       CYCLE_PRE       4
+       ABSY_ADDR_W
+       READ_WRITE_1
+       READ_WRITE_2
+       b       opBB_
+       READ_WRITE_3
+       READ_WRITE_4
+opBB_: and     REG_X, r0, REG_S, lsr #24
+       bic     REG_S, REG_S, #0xff<<24
+       orr     REG_S, REG_S, REG_X, lsl #24
+       mov     REG_A, REG_X, lsl #24
+       orr     REG_NZ, REG_A, REG_A, lsr #24
+       CYCLE_NEXT      4,1,0
+
+
 
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -2943,92 +3106,6 @@ X_:      .fill   0x20, 1, 0
        ALIGN
 
 
-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
-@@@
-@@@ Undefined Opcodes
-@@@
-op0B:  @ ANC #$nn
-op2B:  @ ANC #$nn
-op8B:  @ ANE #$nn
-op6B:  @ ARR #$nn
-op4B:  @ ASR #$nn
-@opC7: @ DCP $nn
-@opD7: @ DCP $nn, X
-@opCF: @ DCP $nnnn
-@opDF: @ DCP $nnnn, X
-@opDB: @ DCP $nnnn, Y
-@opC3: @ DCP ($nn, X)
-@opD3: @ DCP ($nn), Y
-
-
-
-@opE7: @ ISB $nn
-@opF7: @ ISB $nn, X
-@opEF: @ ISB $nnnn
-@opFF: @ ISB $nnnn, X
-@opFB: @ ISB $nnnn, Y
-@opE3: @ ISB ($nn, X)
-@opF3: @ ISB ($nn), Y
-
-
-op02:  @ JAM
-op12:
-op22:
-op32:
-op42:
-op52:
-op62:
-op72:
-op92:
-opB2:
-opD2:
-opF2:
-
-
-opBB:  @ LAS $nnnn,Y
-@opA3: @ LAX ($nn, X)
-@opA7: @ LAX $nn
-@opB7: @ LAX $nn, Y
-@opAF: @ LAX $nnnn
-@opBF: @ LAX $nnnn, Y
-
-@opB3: @ LAX ($nn), Y
-opAB:  @ LXA #$nn
-@op27: @ RLA $nn
-@op37: @ RLA $nn, X
-@op2F: @ RLA $nnnn
-@op3F: @ RLA $nnnn, X
-@op23: @ RLA ($nn, X)
-@op67: @ RRA $nn
-@op77: @ RRA $nn, X
-@op6F: @ RRA $nnnn
-@op7F: @ RRA $nnnn, X
-@op63: @ RRA ($nn, X)
-op87:  @ SAX $nn
-op97:  @ SAX $nn, Y
-op8F:  @ SAX $nnnn
-op83:  @ SAX ($nn, X)
-@opCB: @ SBX #$nn
-op9F:  @ SHA $nnnn, Y
-op93:  @ SHA ($nn), Y
-op9B:  @ SHS $nnnn, Y
-op9E:  @ SHX $nnnn, Y
-@op03:   @ SLO ($nn, X)
-@op07: @ SLO $nn
-@op17: @ SLO $nn, X
-@op0F: @ SLO $nnnn
-@op1F: @ SLO $nnnn, X
-@op47: @ SRE $nn
-@op57: @ SRE $nn, X
-@op4F: @ SRE $nnnn
-@op5F: @ SRE $nnnn, X
-@op5B: @ SRE $nnnn, Y
-@op43: @ SRE ($nn, X)
-       CYCLE_NEXT   1
-@ emu_panic?
-
-
 
 @@@@@@@@@@@@@@@@@@@@@@@@@@
 @ fceu stuff...
@@ -3051,6 +3128,7 @@ op9E:     @ SHX $nnnn, Y
        .globl  RAM
        .globl  timestamp
 #else
+       .globl  X_
        .globl  nes_internal_ram
        .globl  timestamp_a
 #endif
@@ -3059,7 +3137,6 @@ op9E:     @ SHX $nnnn, Y
        .globl  X6502_Run_a @ (int32 cycles);
        .globl  TriggerIRQ_a @ (void);
        .globl  TriggerNMI_a @ (void);
-       .globl  TriggerNMINSF_a @ (void);
        .globl  X6502_AddCycles_a @ (int x);
        .globl  X6502_IRQBegin_a @ (int w);
        .globl  X6502_IRQEnd_a @ (int w);
@@ -3114,11 +3191,6 @@ TriggerNMI_a:
        b       X6502_IRQBegin_a
 
 
-TriggerNMINSF_a:
-       @ not implemented
-       bx      lr
-
-
 X6502_AddCycles_a:
        ldr     r3, =timestamp
        ldr     r2, =nes_registers