From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 8 Apr 2005 19:27:07 +0000 (+0000)
Subject: New cgetc with apple2enh fix from Oliver Scmidt
X-Git-Tag: V2.12.0~387
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=b0117e1e222d3e4eb8f5bdb707bf0a45a9c015dc;p=cc65

New cgetc with apple2enh fix from Oliver Scmidt


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

diff --git a/libsrc/apple2/cgetc.s b/libsrc/apple2/cgetc.s
index d0695cdb5..ddd463e43 100644
--- a/libsrc/apple2/cgetc.s
+++ b/libsrc/apple2/cgetc.s
@@ -11,13 +11,15 @@
         .include "apple2.inc"
 
 _cgetc:
-        lda	KBD
-        bpl	_cgetc		; if < 128, no key pressed
+        lda     KBD
+        bpl     _cgetc		; if < 128, no key pressed
 
         ; At this time, the high bit of the key pressed is set
-        bit	KBDSTRB 	; clear keyboard strobe
-        bit	BUTN0		; check if OpenApple is down
-        bmi	:+
-        and	#$7F		; If not down, then clear high bit
-:       ldx	#$00
+        bit     KBDSTRB 	; clear keyboard strobe
+        .ifdef __APPLE2ENH__
+        bit     BUTN0		; check if OpenApple is down
+        bmi     done
+        .endif
+        and     #$7F		; If not down, then clear high bit
+done:   ldx	#$00
         rts