sa: both 40 and 80 column tested and work!

This commit is contained in:
Vince Weaver 2018-05-24 14:40:21 -04:00
parent bb6820f53d
commit 2e6c521a39
2 changed files with 12 additions and 5 deletions

View File

@ -33,6 +33,7 @@ add 4-channel music (KR4): 20128
add cursor (a bit distracting) 20162
feature complete 40 col: 20180
intial 80 col support: 20191
80 col cursor: 20344
Memory Map

View File

@ -52,16 +52,22 @@ lyric_home:
jmp lyric_continue ; continue
lyric_char:
; clear cursor: FIXME
; clear cursor
cursor_clear:
pha
lda #' '+$80
ldy FORTYCOL
beq eightyclear
fortyclear:
ldy CH
sta (BASL),Y
jmp cursor_clear_done
eightyclear:
jsr COUT
lda #$8
jsr COUT
; ldy CH
; sta (BASL),Y
cursor_clear_done:
pla
ldy FORTYCOL ; if 40col, convert to UPPERCASE