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 9883021380c11560954c26a4f97854cf1b85cd92..e6473471906357cccbc7fb57bc49c7e491ebce17 100644 (file)
--- 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