From b0117e1e222d3e4eb8f5bdb707bf0a45a9c015dc Mon Sep 17 00:00:00 2001 From: cuz Date: Fri, 8 Apr 2005 19:27:07 +0000 Subject: [PATCH] New cgetc with apple2enh fix from Oliver Scmidt git-svn-id: svn://svn.cc65.org/cc65/trunk@3454 b7a2c559-68d2-44c3-8de9-860c34a00d81 --- libsrc/apple2/cgetc.s | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/libsrc/apple2/cgetc.s b/libsrc/apple2/cgetc.s index d0695cdb5..ddd463e43 100644 --- a/libsrc/apple2/cgetc.s +++ b/libsrc/apple2/cgetc.s @@ -11,13 +11,15 @@ .include "apple2.inc" _cgetc: - lda KBD - bpl _cgetc ; if < 128, no key pressed + lda KBD + bpl _cgetc ; if < 128, no key pressed ; At this time, the high bit of the key pressed is set - bit KBDSTRB ; clear keyboard strobe - bit BUTN0 ; check if OpenApple is down - bmi :+ - and #$7F ; If not down, then clear high bit -: ldx #$00 + bit KBDSTRB ; clear keyboard strobe + .ifdef __APPLE2ENH__ + bit BUTN0 ; check if OpenApple is down + bmi done + .endif + and #$7F ; If not down, then clear high bit +done: ldx #$00 rts -- 2.39.5