diff --git a/libsrc/common/strdup.s b/libsrc/common/strdup.s
index fa2d289c4..ed49ba485 100644
--- a/libsrc/common/strdup.s
+++ b/libsrc/common/strdup.s
@@ -18,18 +18,22 @@ _strdup:
 ; Since we need some place to store the intermediate results, allocate a
 ; stack frame. To make this somewhat more efficient, create the stackframe
 ; as needed for the final call to the memcpy function.
-
+		
+	pha			; decsp will destroy A (but not X)
 	jsr	decsp4	       	; Target/source
 
 ; Store the pointer into the source slot
 
-	ldy	#0
-	sta	(sp),y
-	iny
-	pha
+	ldy	#1
 	txa
 	sta	(sp),y
-	pla
+	pla	      
+.ifpc02
+	sta	(sp)
+.else
+       	dey
+       	sta	(sp),y
+.endif
 
 ; Get length of S (which is still in a/x)
 
diff --git a/libsrc/runtime/lpush.s b/libsrc/runtime/lpush.s
index 7724f499b..6b7312a4a 100644
--- 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