From 02d5f3025dd63e1b11e8ebc989533f50063480fb Mon Sep 17 00:00:00 2001
From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 24 Jan 2009 16:35:42 +0000
Subject: [PATCH] Function key support be Stephan Haubenthal.

git-svn-id: svn://svn.cc65.org/cc65/trunk@3912 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/atmos/cgetc.s | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/libsrc/atmos/cgetc.s b/libsrc/atmos/cgetc.s
index 988302138..e64734719 100644
--- a/libsrc/atmos/cgetc.s
+++ b/libsrc/atmos/cgetc.s
@@ -41,10 +41,14 @@
 
 @L2:    and     #$7F            ; Mask out avail flag
         sta     KEYBUF
+        ldy     $209
+        cpy     #$A5
+        bne     @L3
+        ora     #$80            ; FUNCT pressed
 
 ; Done
 
-        rts
+@L3:    rts
 
 .endproc