mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 06:31:31 +00:00
Function key support be Stephan Haubenthal.
git-svn-id: svn://svn.cc65.org/cc65/trunk@3912 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
1a54f34a84
commit
02d5f3025d
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user