6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-19 06:31:31 +00:00
Code Issues Projects Releases Wiki Activity

Function key support be Stephan Haubenthal.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3912 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2009-01-24 16:35:42 +00:00
parent 1a54f34a84
commit 02d5f3025d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/atmos/cgetc.s
View File

@ -41,10 +41,14 @@
@L2: and #$7F ; Mask out avail flag @L2: and #$7F ; Mask out avail flag
sta KEYBUF sta KEYBUF
ldy $209
cpy #$A5
bne @L3
ora #$80 ; FUNCT pressed
; Done ; Done
rts @L3: rts
.endproc .endproc