added sleep() implementation

[cc65] / libsrc / runtime / pusha.s

diff --git a/libsrc/runtime/pusha.s b/libsrc/runtime/pusha.s
index d8e90ac3e338710da7716b6b2afe6dee56378079..e3d2ba2eeaf519f760fb05afc131956b766426e0 100644 (file)
--- a/libsrc/runtime/pusha.s
+++ b/libsrc/runtime/pusha.s
@@ -4,22 +4,28 @@
 ; CC65 runtime: Push value in a onto the stack
 ;
 
-               .export         pushaysp, pusha
+               .export         pusha0sp, pushaysp, pusha
        .importzp       sp
 
 ; Beware: The optimizer knows about this function!
 
+pusha0sp:
+       ldy     #$00
 pushaysp:
        lda     (sp),y
-pusha: ldy     sp
-               beq     @L1
-       dec     sp
-       ldy     #0
-       sta     (sp),y
-       rts
+pusha: ldy     sp              ; (3)
+               beq     @L1             ; (6)
+       dec     sp              ; (11)
+.ifpc02
+       sta     (sp)
+.else
+       ldy     #0              ; (13)
+       sta     (sp),y          ; (19)
+.endif
+       rts                     ; (25)
 
-@L1:   dec     sp+1
-       dec     sp
-       sta     (sp),y
-       rts
+@L1:   dec     sp+1            ; (11)
+       dec     sp              ; (16)
+       sta     (sp),y          ; (22)
+       rts                     ; (28)