mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-12 05:24:02 +00:00
sa: have cursor going on 80col
This commit is contained in:
parent
046c81f7a6
commit
bb6820f53d
Binary file not shown.
@ -52,10 +52,16 @@ lyric_home:
|
|||||||
jmp lyric_continue ; continue
|
jmp lyric_continue ; continue
|
||||||
|
|
||||||
lyric_char:
|
lyric_char:
|
||||||
|
; clear cursor: FIXME
|
||||||
pha
|
pha
|
||||||
lda #' '+$80
|
lda #' '+$80
|
||||||
ldy CH
|
jsr COUT
|
||||||
sta (BASL),Y
|
lda #$8
|
||||||
|
jsr COUT
|
||||||
|
|
||||||
|
|
||||||
|
; ldy CH
|
||||||
|
; sta (BASL),Y
|
||||||
pla
|
pla
|
||||||
|
|
||||||
ldy FORTYCOL ; if 40col, convert to UPPERCASE
|
ldy FORTYCOL ; if 40col, convert to UPPERCASE
|
||||||
@ -87,8 +93,11 @@ done_lyric:
|
|||||||
|
|
||||||
all_done_lyrics:
|
all_done_lyrics:
|
||||||
|
|
||||||
; Blink Cursor
|
lda FORTYCOL
|
||||||
|
beq blink_cursor80
|
||||||
|
|
||||||
|
; Blink Cursor
|
||||||
|
blink_cursor40:
|
||||||
inc CURSOR
|
inc CURSOR
|
||||||
lda CURSOR
|
lda CURSOR
|
||||||
and #$10
|
and #$10
|
||||||
@ -107,6 +116,31 @@ cursor_done:
|
|||||||
rts
|
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
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
;============================
|
;============================
|
||||||
|
Loading…
Reference in New Issue
Block a user