decspX will no longer save a

git-svn-id: svn://svn.cc65.org/cc65/trunk@662 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-03-24 15:57:32 +00:00
parent c18453ebcb
commit 0bac28d96f
2 changed files with 20 additions and 16 deletions
--- a/libsrc/runtime/lpush.s
+++ b/libsrc/runtime/lpush.s
@@ -16,19 +16,19 @@ push0ax:
 	sty	sreg
 	sty	sreg+1
 pusheax:
+	pha			; decsp will destroy A (but not X)
 	jsr	decsp4
-	pha
-	ldy	#0
-	sta	(sp),y
-	iny
-	txa
-	sta	(sp),y
-	iny
-	lda	sreg
-	sta	(sp),y
-	iny
+	ldy	#3
 	lda	sreg+1
 	sta	(sp),y
+	dey
+	lda	sreg
+	sta	(sp),y
+	dey
+	txa
+	sta	(sp),y
+	dey
 	pla
+	sta	(sp),y
 	rts