Apple2: Set mousecard IRQ rate when possible

2025-05-11 11:49:53 +02:00
parent 3b089b715a
commit cd92e4f0af
4 changed files with 55 additions and 4 deletions
--- a/libsrc/apple2/mouseref.s
+++ b/libsrc/apple2/mouseref.s
@@ -0,0 +1,25 @@
+;
+; Colin Leroy-Mira, 2025-05-11
+;
+
+        .export         mouse_libref
+        .import         _get_tv, ostype, return0
+
+        .constructor    init_mousetv
+
+        .include        "get_tv.inc"
+
+        .segment "ONCE"
+
+.proc init_mousetv
+        lda     ostype
+        cmp     #$40          ; Technical notes say not to change
+        bcs     :+            ; interrupt rate on IIc/IIgs, so...
+        jsr     _get_tv
+        sta     mouse_libref
+:       rts                   ; ...don't update "Other" on those machines
+.endproc
+
+        .data
+
+mouse_libref: .byte TV::OTHER