disable cursor blink when CDA is active.

2021-09-26 19:46:10 -04:00 · 2021-09-26 19:46:10 -04:00 · 11d62bb333
parent 39429e4e09
commit 11d62bb333
1 changed files with 7 additions and 0 deletions
--- a/vt100.screen.S
+++ b/vt100.screen.S
@ -93,11 +93,18 @@ enable_cursor ent
 cursor_vector	ent
 	jml cursor_int

+NumInts	equ $e01d67
+
 cursor_int
 * cursor interrupt - blink the cursor.

 	mx %11

+* check if CDA active.
+* $ff = inactive, $00 = active
+	lda >NumInts
+	bpl :rts
+
 	ldy cursor_offset

 	lda cursor_state