moved MEGA65 native cursor blink to KERNAL_C segment
This commit is contained in:
1 parent
51b49796da
commit
52f20a41b6
5 files changed
+21
-5
No files matched your search
@@ -52,7 +52,7 @@
|
||||
;; #CONFIG# JOY1_CURSOR NO
|
||||
;; #CONFIG# JOY2_CURSOR NO
|
||||
|
||||
;; #CONFIG# M65_KB_DEV NO ; for development, keep disabled
|
||||
;; #CONFIG# M65_KB_DEV NO ; for development, keep disabled for release builds
|
||||
|
||||
;; #CONFIG# PROGRAMMABLE_KEYS YES
|
||||
|
||||
|
||||
@@ -11,11 +11,13 @@
|
||||
|
||||
; Label definitions
|
||||
|
||||
!addr VKC__m65_scnkey = $C000 + 2 * 0
|
||||
!addr VKC__m65_cursor_blink = $C000 + 2 * 0
|
||||
!addr VKC__m65_scnkey = $C000 + 2 * 1
|
||||
|
||||
} else {
|
||||
|
||||
; Vector table (Open ROMs private!)
|
||||
|
||||
!word m65_cursor_blink
|
||||
!word m65_scnkey
|
||||
}
|
||||
@@ -20,7 +20,21 @@ default_irq_handler:
|
||||
jsr M65_MODEGET
|
||||
bcs @2
|
||||
|
||||
jsr m65_cursor_blink
|
||||
; Map KERNAL_C segment
|
||||
|
||||
lda VIC_CTRLA
|
||||
pha
|
||||
ora #%00100000
|
||||
sta VIC_CTRLA
|
||||
|
||||
; Call the native mode blink routine
|
||||
|
||||
jsr (VKC__m65_cursor_blink)
|
||||
|
||||
; Restore mapping and quit
|
||||
|
||||
pla
|
||||
sta VIC_CTRLA
|
||||
|
||||
bra default_irq_handler_common
|
||||
@2:
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
;; #LAYOUT# M65 KERNAL_0 #TAKE
|
||||
;; #LAYOUT# M65 KERNAL_C #TAKE
|
||||
;; #LAYOUT# * * #IGNORE
|
||||
|
||||
;
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
;; #LAYOUT# M65 KERNAL_0 #TAKE
|
||||
;; #LAYOUT# M65 KERNAL_C #TAKE
|
||||
;; #LAYOUT# * * #IGNORE
|
||||
|
||||
|
||||
|
||||
Reference in new issue
Block a user