This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-05-28 13:40:48 +00:00
parent 579491e8a4
commit 53dd513176
847 changed files with 91345 additions and 0 deletions
--- a/libsrc/runtime/popsreg.s
+++ b/libsrc/runtime/popsreg.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 21.08.1998
+;
+; CC65 runtime: Pop TOS into sreg
+;
+
+    	.export		popsreg
+	.import		incsp2
+       	.importzp	sp, sreg
+
+popsreg:
+   	pha	     		; save A
+   	ldy	#0
+   	lda	(sp),y		; get lo byte
+   	sta	sreg 		; store it
+   	iny
+   	lda	(sp),y		; get hi byte
+   	sta	sreg+1		; store it
+   	pla	     		; get A back
+   	jmp	incsp2		; bump stack and return
+
+