From: ol.sc
Date: Mon, 7 Sep 2009 14:00:17 +0000 (+0000)
Subject: Just presume alternate charset to be active on the //e - how shouldn't it if conio...
X-Git-Tag: V2.13.0rc1~129
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=96b731dd96c77f899f44a5e5bfdb8fa8fb1f25c6;p=cc65
Just presume alternate charset to be active on the //e - how shouldn't it if conio usage activates it.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4127 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
diff --git a/libsrc/apple2/mcbdefault.s b/libsrc/apple2/mcbdefault.s
index f270f9d70..c7c51a576 100644
--- a/libsrc/apple2/mcbdefault.s
+++ b/libsrc/apple2/mcbdefault.s
@@ -7,9 +7,6 @@
; be called from an interrupt handler
;
- .ifdef __APPLE2ENH__
- .constructor initmcb
- .endif
.export _mouse_def_callbacks
.include "apple2.inc"
@@ -31,24 +28,16 @@ _mouse_def_callbacks:
.addr movex
.addr movey
-; ------------------------------------------------------------------------
-
- .segment "INIT"
-
- .ifdef __APPLE2ENH__
-initmcb:
- lda ALTCHARSET ; Alternate charset switched in?
- bpl :+ ; No, normal charset
- lda #'B' ; MouseText character
- sta cmpcur+1
- sta getcur+1
-: rts
- .endif
-
; ------------------------------------------------------------------------
.data
+ .ifdef __APPLE2ENH__
+cursor = 'B' ; MouseText character
+ .else
+cursor = '+' | $40 ; Flashing crosshair
+ .endif
+
getcursor:
.ifdef __APPLE2ENH__
bit RD80VID ; In 80 column mode?
@@ -57,11 +46,11 @@ switch: bit LOWSCR ; Patched at runtime
.endif
column: ldx #$00 ; Patched at runtime
getscr: lda $0400,x ; Patched at runtime
-cmpcur: cmp #'+' | $40 ; Possibly patched by initialization
+ cmp #cursor
rts
setcursor:
-getcur: lda #'+' | $40 ; Possibly patched by initialization
+ lda #cursor
setscr: sta $0400,x ; Patched at runtime
.ifdef __APPLE2ENH__
bit LOWSCR ; Doesn't hurt in 40 column mode