65C02 code, minor optimization.

git-svn-id: svn://svn.cc65.org/cc65/trunk@486 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-11-28 13:27:42 +00:00 · 2000-11-28 13:27:42 +00:00 · d09bf73a96
commit d09bf73a96
parent 6cbd32b49d
1 changed files with 10 additions and 4 deletions
--- 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