6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-14 16:33:00 +00:00
Code Issues Projects Releases Wiki Activity

New cgetc with apple2enh fix from Oliver Scmidt

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3454 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-04-08 19:27:07 +00:00
parent 1c5c974200
commit b0117e1e22
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/apple2/cgetc.s
View File

@ -16,8 +16,10 @@ _cgetc:
; At this time, the high bit of the key pressed is set ; At this time, the high bit of the key pressed is set
bit KBDSTRB ; clear keyboard strobe bit KBDSTRB ; clear keyboard strobe
.ifdef __APPLE2ENH__
bit BUTN0 ; check if OpenApple is down bit BUTN0 ; check if OpenApple is down
bmi :+ bmi done
.endif
and #$7F ; If not down, then clear high bit and #$7F ; If not down, then clear high bit
: ldx #$00 done: ldx #$00
rts rts