+ ;;;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