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 6c7c9308b9dd1f6757a3ff8cb154f12cfe0346be..37bbc7b685a3545e947a0a331f00b4e216da2e7b 100644 (file)
--- 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