implemented solid cursor
This commit is contained in:
1 parent
76f25a36e2
commit
cded5a0264
3 files changed
+26
-9
No files matched your search
@@ -185,6 +185,22 @@ m65_chrout_esc_R: ; 'reversed' screen colors
|
||||
and #$F0
|
||||
bra m65_chrout_esc_COLOR_done
|
||||
|
||||
m65_chrout_esc_E: ; disable cursor flashing
|
||||
|
||||
lda #$FF
|
||||
+skip_2_bytes_trash_nvz
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
m65_chrout_esc_F: ; enable cursor flashing
|
||||
|
||||
lda #$00
|
||||
sta M65_SOLIDCRSR
|
||||
|
||||
jmp m65_chrout_screen_done
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; XXX: implement screen routines below:
|
||||
@@ -199,10 +215,6 @@ m65_chrout_esc_C: ; disable auto-insert mode
|
||||
+nop
|
||||
m65_chrout_esc_D: ; delete current line, move content up
|
||||
+nop
|
||||
m65_chrout_esc_E: ; disable cursor flashing
|
||||
+nop
|
||||
m65_chrout_esc_F: ; enable cursor flashing
|
||||
+nop
|
||||
m65_chrout_esc_I: ; insert empty line, move content down
|
||||
+nop
|
||||
m65_chrout_esc_L: ; enable screen scrolling
|
||||
|
||||
@@ -49,7 +49,7 @@ m65_cursor_blink:
|
||||
|
||||
; Check if cursor was visible or not, and toggle
|
||||
lda BLNON
|
||||
bne m65_cursor_blink_undraw
|
||||
bne m65_cursor_blink_check_undraw
|
||||
|
||||
; FALLTROUGH
|
||||
|
||||
@@ -85,7 +85,11 @@ m65_cursor_blink_end:
|
||||
plz
|
||||
rts
|
||||
|
||||
m65_cursor_blink_undraw:
|
||||
m65_cursor_blink_check_undraw:
|
||||
|
||||
; Check if cursor should blink at all
|
||||
lda M65_SOLIDCRSR
|
||||
bne m65_cursor_blink_timer_reset
|
||||
|
||||
; Cursor undraw - color
|
||||
lda GDCOL
|
||||
|
||||
Reference in new issue
Block a user