mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-25 05:29:34 +00:00
sa: both 40 and 80 column tested and work!
This commit is contained in:
parent
bb6820f53d
commit
2e6c521a39
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user