OSDN Git Service

attribute incorrect test case added.
authorastoria-d <astoria-d@mail.goo.ne.jp>
Thu, 12 Sep 2013 02:11:12 +0000 (11:11 +0900)
committerastoria-d <astoria-d@mail.goo.ne.jp>
Thu, 12 Sep 2013 02:11:12 +0000 (11:11 +0900)
tools/test-image/sample1.asm

index a4e51cf..f761b3a 100644 (file)
@@ -97,10 +97,29 @@ goto_next3:
     bpl nt_st\r
 \r
 \r
-    ;;show test msg.\r
-       lda     #$1e\r
-       sta     $2001\r
+    ;;load attr tbl.\r
+    ldy #$00\r
+    ldx #$04\r
+\r
+    lda #$23\r
+    sta $2006\r
+    lda #$c8\r
+    sta $2006\r
+\r
+at_st:\r
+    lda at1, y\r
+    sta $2007\r
+    iny\r
+    dex\r
+    bpl at_st\r
 \r
+    ;;set universal bg color.\r
+    lda #$3f\r
+    sta $2006\r
+    lda #$10\r
+    sta $2006\r
+    lda #$3d\r
+    sta $2007\r
 \r
     ;;show bg...\r
        lda     #$1e\r
@@ -168,11 +187,16 @@ nt1:
        .byte   $41, $42, $43, $44, $45, $46, $47, $48, $49, $4a, $4b\r
        .byte   $30, $31, $32, $33, $34, $35, $36, $37, $38, $39, $3a\r
 \r
+at1:\r
+       .byte   $1b, $e4, $a5, $5a\r
+\r
 palettes:\r
+;;;bg palette\r
        .byte   $0f, $00, $10, $20\r
-       .byte   $0f, $06, $16, $26\r
+       .byte   $0f, $04, $14, $24\r
        .byte   $0f, $08, $18, $28\r
-       .byte   $0f, $0a, $1a, $2a\r
+       .byte   $0f, $0c, $1c, $2c\r
+;;;spr palette\r
        .byte   $0f, $00, $10, $20\r
        .byte   $0f, $06, $16, $26\r
        .byte   $0f, $08, $18, $28\r