Rewrite of spaspidx and staxspidx. More module splits.

git-svn-id: svn://svn.cc65.org/cc65/trunk@394 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-10-26 06:35:45 +00:00
parent dd0ddc94e3
commit 0df99f3d4d
4 changed files with 62 additions and 42 deletions
--- a/libsrc/runtime/staspidx.s
+++ b/libsrc/runtime/staspidx.s
@@ -0,0 +1,28 @@
+;
+; Ullrich von Bassewitz, 26.10.2000
+;
+; CC65 runtime: Store a indirect into address at top of stack with index
+;
+
+       	.export	       	staspidx
+	.import		incsp2
+	.importzp	sp, tmp1, ptr1
+
+.proc	staspidx
+
+  	pha
+  	sty	tmp1		; Save Index
+  	ldy	#1
+  	lda	(sp),y
+  	sta	ptr1+1
+  	dey
+  	lda	(sp),y
+  	sta	ptr1		; Pointer now in ptr1
+  	ldy	tmp1		; Restore offset
+  	pla			; Restore value
+  	sta	(ptr1),y	; Store
+  	jmp	incsp2		; Drop address
+
+.endproc
+
+