diff --git a/still_alive/SA.KR4 b/still_alive/SA.KR4 index 1e9a61fb..517c0570 100644 Binary files a/still_alive/SA.KR4 and b/still_alive/SA.KR4 differ diff --git a/still_alive/display_lyrics.s b/still_alive/display_lyrics.s index 8dc0b962..e8ecc352 100644 --- a/still_alive/display_lyrics.s +++ b/still_alive/display_lyrics.s @@ -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 + + ;============================