From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 31 Oct 2000 19:17:01 +0000 (+0000)
Subject: Replaced missing routine, fixed a bug
X-Git-Tag: V2.12.0~3101
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=8f83a48602e5a3fb7b26c992752faa6d261885ad;p=cc65

Replaced missing routine, fixed a bug


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

diff --git a/libsrc/runtime/lruntime.s b/libsrc/runtime/lruntime.s
index 756c1418f..3a8cd0125 100644
--- a/libsrc/runtime/lruntime.s
+++ b/libsrc/runtime/lruntime.s
@@ -6,8 +6,8 @@
 
 ; Runtime support for longs.
 
-	.import		popax, pusheax, staspic
-	.importzp	sp, sreg, tmp2, ptr1
+	.import	    	popax, pusheax
+	.importzp   	sp, sreg, tmp1, tmp2, tmp3, ptr1
 
 ;
 ; leax    (sp),y
@@ -53,7 +53,7 @@ pushlysp:
 ;
 ; eax --> ((sp)); pop
 ;
-	.export		steaxspp
+	.export	    	steaxspp
 
 steaxspp:
 	pha
@@ -80,11 +80,18 @@ steaxspp:
 ;
 ; eax --> ((sp)),y
 ;
-	.export		steaxspidx
+	.export	    	steaxspidx
 
 steaxspidx:
-	jsr	staspic		; Get pointer, store a
-	pha
+   	sta	tmp1
+   	stx	tmp2
+   	sty	tmp3
+   	jsr	popax	   	; get the pointer
+   	sta	ptr1
+   	stx	ptr1+1
+   	ldy	tmp3
+   	lda	tmp1
+   	sta	(ptr1),y
 	iny
 	lda	tmp2
 	sta	(ptr1),y
@@ -95,6 +102,6 @@ steaxspidx:
 	iny
 	lda	sreg+1
 	sta	(ptr1),y
-	pla
+	lda	tmp1
 	rts