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

sa: have cursor going on 80col

Browse Source
This commit is contained in:
Vince Weaver 2018-05-24 14:31:14 -04:00
parent 046c81f7a6
commit bb6820f53d
2 changed files with 37 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
still_alive/SA.KR4
View File

Binary file not shown.

40
still_alive/display_lyrics.s
View File

@ -52,10 +52,16 @@ lyric_home:
jmp lyric_continue ; continue
lyric_char:
; clear cursor: FIXME
pha
lda #' '+$80
ldy CH
sta (BASL),Y
jsr COUT
lda #$8
jsr COUT
; ldy CH
; sta (BASL),Y
pla
ldy FORTYCOL ; if 40col, convert to UPPERCASE
@ -87,8 +93,11 @@ done_lyric:
all_done_lyrics:
; Blink Cursor
lda FORTYCOL
beq blink_cursor80
; Blink Cursor
blink_cursor40:
inc CURSOR
lda CURSOR
and #$10
@ -107,6 +116,31 @@ cursor_done:
rts
blink_cursor80:
inc CURSOR
lda CURSOR
and #$10
beq cursor_space80
cursor_underscore80:
lda #'_'+$80
jsr COUT
lda #$8 ; BS (backspace)
jsr COUT
rts
cursor_space80:
lda #' '+$80
jsr COUT
lda #$8 ; BS (backspace)
jsr COUT
cursor_done80:
rts
;============================