\r
;;dma test data.\r
ldy #$00\r
+ ldx #$41\r
+ stx $00\r
ldx #$00\r
dma_set:\r
;;y pos\r
sta $0200, y\r
iny\r
;;tile index\r
- tya\r
+ lda $00\r
+ cmp #$5b\r
+ bne inc_tile\r
+ lda #$41\r
+ sta $00\r
+inc_tile:\r
+ inc $00\r
sta $0200, y\r
iny\r
;;attribute\r
iny\r
;;x pos\r
txa\r
- adc #$06\r
+ adc #$03\r
tax\r
rol\r
sta $0200, y\r
dey\r
bne copypal\r
\r
- lda #$21\r
+ lda #$20\r
sta $2006\r
- lda #$c9\r
+ lda #$ab\r
sta $2006\r
ldx #$00\r
ldy #$0d\r
dey\r
bne copymap\r
\r
+ ;;;vertical show test.\r
+ lda #$04\r
+ sta $2000\r
+\r
+ lda #$20\r
+ sta $2006\r
+ lda #$cb\r
+ sta $2006\r
+ ldx #$00\r
+ ldy #$0d\r
+\r
+ ;;load name table.\r
+copymap2:\r
+ lda string, x\r
+ sta $2007\r
+ inx\r
+ dey\r
+ bne copymap2\r
+\r
+ ;;scroll reg set.\r
lda #$00\r
sta $2005\r
sta $2005\r
\r
;;show test msg.\r
- lda #$08\r
- sta $2000\r
lda #$1e\r
sta $2001\r
\r
sta $2001\r
\r
;;;enable nmi\r
- lda #$88\r
+ lda #$80\r
sta $2000\r
\r
;;done...\r