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/read.s
+++ b/libsrc/apple2/read.s
@@ -19,7 +19,7 @@ _read:	jsr	popax 		; get count
     	sta	ptr1
     	stx	ptr1+1
     	jsr	popax 		; get fd and discard it
-   	lda	#0
+   	lda	#$00
   	sta	ptr3
   	sta	ptr3+1		; set count

@@ -27,11 +27,11 @@ L1:    	lda	ptr2
   	ora	ptr2+1		; count zero?
   	beq	L9
   	jsr	RDKEY
-	and	#$7f		; clear high bit.
+	and	#$7F		; clear high bit.
 	pha
 	jsr	_cputc
 	pla
-	ldy	#0		; offset into string
+	ldy	#$00		; offset into string
   	sta	(ptr1),y	; save char
   	inc	ptr1
   	bne	L2