New entry point to push something pointed to by ptr1 with index in Y.

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

diff --git a/libsrc/runtime/pushw.s b/libsrc/runtime/pushw.s
index a88ebc3d26118a3d3c04cd8000e376e114021703..d78323c74bb2b60d8a5462b6c54d2a72527b85ae 100644 (file)
--- a/libsrc/runtime/pushw.s
+++ b/libsrc/runtime/pushw.s
@@ -4,15 +4,16 @@
 ; CC65 runtime: Fetch word indirect and push
 ;
 
-       .export         pushw, pushwidx
+       .export         pushw, pushwidx, pushptr1idx
        .import         pushax
        .importzp       ptr1
 
 
 pushw:  ldy     #1
 pushwidx:
-        sta    ptr1
-       stx     ptr1+1
+        sta    ptr1
+       stx     ptr1+1
+pushptr1idx:
        lda     (ptr1),y
        tax
        dey