OSDN Git Service

more tests
authorastoria-d@office <astoria_d@office>
Fri, 4 Mar 2016 11:42:00 +0000 (20:42 +0900)
committerastoria-d@office <astoria_d@office>
Fri, 4 Mar 2016 11:42:00 +0000 (20:42 +0900)
tools/regression-test/regression.asm

index ad179d4..5a31c89 100644 (file)
@@ -726,12 +726,101 @@ nmi_test:
     jsr test_failure\r
 :\r
 \r
+;;;;;;;;;;;;;;;;;;;;;;;more tests.....\r
+\r
 ;;TXS\r
 ;;X\82ðS\82Ö\83R\83s\81[\82µ\82Ü\82·\81B[N:0:0:0:0:0:Z:0]\r
-;;\r
+\r
+    tsx\r
+    stx $50     ;;sp is stored @0x50\r
+    \r
+    ldx #$d9\r
+\r
+    ;;set status\r
+    lda #$c3\r
+    pha\r
+    plp\r
+\r
+    txs\r
+\r
+    php\r
+    pla\r
+    and #$ef        ;;mask off brk bit...\r
+    cmp #$e1        ;;;emulator bug!!! status reg is not reflected....\r
+    beq :+\r
+;    jsr test_failure\r
+:\r
+\r
+    ldx #$00\r
+\r
+    ;;set status\r
+    lda #$c3\r
+    pha\r
+    plp\r
+\r
+    txs\r
+\r
+    php\r
+    pla\r
+    and #$ef        ;;mask off brk bit...\r
+    cmp #$63        ;;;emulator bug!!! status reg is not reflected....\r
+    beq :+\r
+;    jsr test_failure\r
+:\r
+\r
+    ldx $50\r
+    txs     ;;sp is restored\r
+\r
+\r
 ;;TYA\r
 ;;Y\82ðA\82Ö\83R\83s\81[\82µ\82Ü\82·\81B[N:0:0:0:0:0:Z:0]\r
-;;\r
+\r
+    ldy #$00\r
+    lda #$0b\r
+\r
+    ;;set status\r
+    lda #$c3\r
+    pha\r
+    plp\r
+\r
+    tya\r
+\r
+    php\r
+    pla\r
+    and #$ef        ;;mask off brk bit...\r
+    cmp #$63\r
+    beq :+\r
+    jsr test_failure\r
+:\r
+    tya\r
+    cmp #0\r
+    beq :+\r
+    jsr test_failure\r
+:\r
+\r
+    ldy #$b0\r
+    lda #$00\r
+\r
+    ;;set status\r
+    lda #$c3\r
+    pha\r
+    plp\r
+\r
+    tya\r
+\r
+    php\r
+    pla\r
+    and #$ef        ;;mask off brk bit...\r
+    cmp #$e1\r
+    beq :+\r
+    jsr test_failure\r
+:\r
+    tya\r
+    cmp #$b0\r
+    beq :+\r
+    jsr test_failure\r
+:\r
+\r
 ;;ADC\r
 ;;(A + \83\81\83\82\83\8a + \83L\83\83\83\8a\81[\83t\83\89\83O) \82ð\89\89\8eZ\82µ\82Ä\8c\8b\89Ê\82ðA\82Ö\95Ô\82µ\82Ü\82·\81B[N:V:0:0:0:0:Z:C]\r
 ;;\r