Reworked version by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@2913 b7a2c559-68d2-44c3-8de9-860c34a00d81
2004-03-11 21:54:22 +00:00
parent 5f2569ef28
commit a57deeb58a
25 changed files with 499 additions and 364 deletions
--- a/libsrc/apple2/cgetc.s
+++ b/libsrc/apple2/cgetc.s
@@ -11,15 +11,15 @@
 	.include "apple2.inc"

 _cgetc:
-	lda	KEY_STROBE
+	lda	KBD
 	bpl	_cgetc		; if < 128, no key pressed
 	;; At this time, the high bit of the key pressed
 	;; is set
-	sta	CLEAR_KEY_STROBE; clear keyboard strobe
-	bit	OPEN_APPLE	; check if OpenApple is down
+	bit	KBDSTRB 	; clear keyboard strobe
+	bit	BUTN0		; check if OpenApple is down
 	bmi	pressed	
 	and	#$7F		; If not down, then clear high bit
 pressed:	
-	ldx	#0
+	ldx	#$00
 	rts