Added some 65C02 code.

git-svn-id: svn://svn.cc65.org/cc65/trunk@484 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-11-27 22:59:03 +00:00
parent 5be5b3763b
commit b4163d0e4e
11 changed files with 149 additions and 80 deletions
--- a/libsrc/runtime/staxspp.s
+++ b/libsrc/runtime/staxspp.s
@@ -1,4 +1,4 @@
-;	
+;
 ; Ullrich von Bassewitz, 25.10.2000
 ;
 ; CC65 runtime: Store a/x indirect into address at top of stack
@@ -10,18 +10,31 @@

 .proc	staxspp

-	ldy	#0
+.ifpc02
 	pha
-	lda	(sp),y
-	sta	ptr1
-	iny
-	lda	(sp),y
-	sta	ptr1+1
-	txa
-	sta     (ptr1),y
-	pla
-	dey
-	sta	(ptr1),y
+      	lda    	(sp)
+      	sta    	ptr1
+      	ldy    	#1
+      	lda    	(sp),y
+      	sta    	ptr1+1
+      	txa
+      	sta     (ptr1),y
+      	pla
+      	sta    	(ptr1)
+.else
+      	pha
+      	ldy    	#0
+      	lda    	(sp),y
+      	sta    	ptr1
+      	iny
+      	lda    	(sp),y
+      	sta    	ptr1+1
+      	txa
+      	sta     (ptr1),y
+      	pla
+      	dey
+      	sta    	(ptr1),y
+.endif
 	jmp	incsp2		; Drop address

 .endproc