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