From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 24 Jan 2009 16:35:42 +0000 (+0000)
Subject: Function key support be Stephan Haubenthal.
X-Git-Tag: V2.13.0rc1~343
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=02d5f3025dd63e1b11e8ebc989533f50063480fb;p=cc65

Function key support be Stephan Haubenthal.


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

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