From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 28 Nov 2000 13:27:42 +0000 (+0000)
Subject: 65C02 code, minor optimization.
X-Git-Tag: V2.12.0~3050
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=d09bf73a96e6552a471d72d5dff050f820258d5d;p=cc65

65C02 code, minor optimization.


git-svn-id: svn://svn.cc65.org/cc65/trunk@486 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/runtime/popa.s b/libsrc/runtime/popa.s
index 6c7c9308b..37bbc7b68 100644
--- a/libsrc/runtime/popa.s
+++ b/libsrc/runtime/popa.s
@@ -9,12 +9,18 @@
 
 .proc	popa
 
+.ifpc02
+	lda	(sp)
+.else
 	ldy 	#0
  	lda	(sp),y		; Read byte
-	inc	sp
-	bne	@L1
-	inc	sp+1
-@L1:	rts
+.endif
+      	inc	sp
+       	beq	@L1
+	rts
+
+@L1:	inc	sp+1
+	rts
 
 .endproc