implemented solid cursor
This commit is contained in:
1 parent
76f25a36e2
commit
cded5a0264
3 files changed
+26
-9
No files matched your search
@@ -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
|
||||
|
||||
@@ -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