From: ol.sc <ol.sc@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 25 Oct 2012 20:02:01 +0000 (+0000)
Subject: Apply "improved" cursor-off handling for native GEOS API too.
X-Git-Tag: V2.14~198
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=3aabd85bf4324c578c82c73a42aad0067d3d4f5c;p=cc65

Apply "improved" cursor-off handling for native GEOS API too.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5876 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/geos-common/conio/cgetc.s b/libsrc/geos-common/conio/cgetc.s
index 94fd55ef0..2c0f19a51 100644
--- a/libsrc/geos-common/conio/cgetc.s
+++ b/libsrc/geos-common/conio/cgetc.s
@@ -7,7 +7,7 @@
 ; unsigned char cgetc (void);
 
 	    .export _cgetc
-	    .import cursor
+	    .import cursor, _PromptOff
 	    .importzp cursor_x, cursor_y
 
 	    .include "jumptab.inc"
@@ -33,15 +33,7 @@ L0:	jsr GetNextChar
 	tax
 	beq L0
 	pha
-
-; from 'The Hitchhiker's Guide To GEOS'
-	php
-	sei
-	jsr PromptOff
-	lda #0
-	sta alphaFlag
-	plp
-
+	jsr _PromptOff
 	pla
 	ldx #0
 	rts
diff --git a/libsrc/geos-common/mousesprite/promptoff.s b/libsrc/geos-common/mousesprite/promptoff.s
index 741bb629b..9b63b6672 100644
--- a/libsrc/geos-common/mousesprite/promptoff.s
+++ b/libsrc/geos-common/mousesprite/promptoff.s
@@ -8,5 +8,14 @@
 	    .export _PromptOff
 
 	    .include "jumptab.inc"
+	    .include "geossym.inc"
 
-_PromptOff	= PromptOff
+_PromptOff:
+; from 'The Hitchhiker's Guide To GEOS'
+	php
+	sei
+	jsr PromptOff
+	lda #0
+	sta alphaFlag
+	plp
+	rts