From 3aabd85bf4324c578c82c73a42aad0067d3d4f5c Mon Sep 17 00:00:00 2001 From: "ol.sc" Date: Thu, 25 Oct 2012 20:02:01 +0000 Subject: [PATCH] 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 --- libsrc/geos-common/conio/cgetc.s | 12 ++---------- libsrc/geos-common/mousesprite/promptoff.s | 11 ++++++++++- 2 files changed, 12 insertions(+), 11 deletions(-) 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 -- 2.39.5