Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 07:29:54 +00:00
Code Issues Projects Releases Wiki Activity

sa: both 40 and 80 column tested and work!

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
still_alive/README.still_alive
View File

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

16
still_alive/display_lyrics.s
View File

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