From a86b97cc89c30deb53c302bda1240a10a60b1f73 Mon Sep 17 00:00:00 2001
From: cpg <cpg@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 4 Dec 2001 01:04:20 +0000
Subject: [PATCH] fixed return paramter; setup ICAX1Z so the key routine isn't
 confused by opened R: devices

git-svn-id: svn://svn.cc65.org/cc65/trunk@1129 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/atari/cgetc.s | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/libsrc/atari/cgetc.s b/libsrc/atari/cgetc.s
index f64d97b37..82b6cdd8e 100644
--- a/libsrc/atari/cgetc.s
+++ b/libsrc/atari/cgetc.s
@@ -8,10 +8,14 @@
         .export _cgetc
         
 _cgetc:
-        lda     KEYBDV+5
+	jsr	@1
+	ldx	#0
+	rts
+
+@1:	lda     KEYBDV+5
         pha
         lda     KEYBDV+4
         pha
+	lda	#12
+	sta	ICAX1Z		; fix problems with direct call to KEYBDV
         rts
-	ldx	#0
-	rts
-- 
2.39.5