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/staxspidx.s
+++ b/libsrc/runtime/staxspidx.s
@@ -0,0 +1,32 @@
+;
+; Ullrich von Bassewitz, 26.10.2000
+;
+; CC65 runtime: Store a/x indirect into address at top of stack with index
+;
+
+       	.export		staxspidx
+	.import		incsp2
+	.importzp	sp, tmp1, ptr1
+
+.proc	staxspidx
+
+  	sty	tmp1		; Save Y
+  	pha			; Save A
+  	ldy	#1
+  	lda	(sp),y
+  	sta	ptr1+1
+  	dey
+  	lda	(sp),y
+  	sta	ptr1		; Address now in ptr1
+  	ldy	tmp1		; Restore Y
+  	iny			; Address high byte
+  	txa			; Get high byte
+  	sta	(ptr1),y	; Store high byte
+  	dey			; Address low byte
+  	pla			; Restore low byte into A
+  	sta	(ptr1),y	; Store low byte
+  	jmp	incsp2		; Drop address
+
+.endproc
+
+