implemented solid cursor

This commit is contained in:
FeralChild64 authored and FeralChild64 committed 2021-01-26 00:03:07 +01:00
1 parent 240005e898
commit 656edc5919
3 files changed
+26 -9

No files matched your search

+4 -3
View File
@@ -59,9 +59,10 @@
!addr M65_KB_PRESSED = $5A0 ; $5A0-$5A2 keys pressed, used during scanning keyboard
!addr M65_KB_PRESSED_OLD = $5A3 ; $5A3-$5A5 keys pressed during previous scan
!addr M65_KB_PRESSED_NEW = $5A6 ; $5A6-$5A8 set of M65_KB_PRESSED minus M65_KB_PRESSED_OLD
!addr M65_BELLDSBL = $5A9 ; flag - if set, disable the bell
!addr M65_JOYCRSR = $5AA ; joystick to be used for cursor movement
; $5AB-$5EB -- UNUSED --
!addr M65_BELLDSBL = $5A9 ; flag - if set, disable the bell
!addr M65_SOLIDCRSR = $5AA ; flag - if set, cursor is solid (does not flash)
!addr M65_JOYCRSR = $5AB ; joystick to be used for cursor movement
; $5AC-$5EB -- UNUSED --
!addr M65_DMAGIC_LIST = $5F1 ; $5EF-$5FF reserved for DMAgic list, 15 bytes (modulo bytes are not needed)
!addr M65_RS232_INBUF = $600 ; $600-$6FF -- reserved for RS-232 input buffer --
!addr M65_RS232_OUTBUF = $700 ; $700-$7FF -- reserved for RS-232 output buffer --
@@ -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
+6 -2
View File
@@ -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