From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Tue, 31 Oct 2000 18:57:00 +0000 (+0000)
Subject: Module split
X-Git-Tag: V2.12.0~3104
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=4680e36ad0673f492d273a23c2eac76fb6642539;p=cc65

Module split


git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/runtime/Makefile b/libsrc/runtime/Makefile
index 7ed299804..98f703160 100644
--- a/libsrc/runtime/Makefile
+++ b/libsrc/runtime/Makefile
@@ -125,6 +125,7 @@ OBJS = 	add.o		\
        	ne.o  		\
        	neg.o 		\
        	or.o  		\
+	pleasp.o	\
 	popa.o		\
        	popsreg.o	\
 	push1.o	       	\
diff --git a/libsrc/runtime/leasp.s b/libsrc/runtime/leasp.s
index 5ec86d3ef..5dcdc9d14 100644
--- a/libsrc/runtime/leasp.s
+++ b/libsrc/runtime/leasp.s
@@ -1,28 +1,20 @@
 ;
 ; Ullrich von Bassewitz, 21.08.1998
 ;
-; CC65 runtime: Load effective address with offset in Y relative to SP
+; CC65 runtime: Load effective address with offset in A relative to SP
 ;
 
-    	.export		leaasp, pleaasp
-     	.import		pushax
+    	.export		leaasp
      	.importzp	sp
 
-leaasp:	ldx	sp+1		; Get high byte
+.proc	leaasp
+
+	ldx	sp+1	      	; Get high byte
      	clc
      	adc	sp
-     	bcc	@L1
+     	bcc	@L9
      	inx
-@L1: 	rts
-
-
-pleaasp:
-  	ldx	sp+1		; Get high byte
-  	clc
-  	adc	sp
-   	bcc	L9
-   	inx
-L9:	jmp	pushax
-
+@L9: 	rts
 
+.endproc
 
diff --git a/libsrc/runtime/pleasp.s b/libsrc/runtime/pleasp.s
new file mode 100644
index 000000000..183ce21fe
--- /dev/null
+++ b/libsrc/runtime/pleasp.s
@@ -0,0 +1,23 @@
+;
+; Ullrich von Bassewitz, 21.08.1998
+;
+; CC65 runtime: Load effective address with offset in A relative to SP and pus it
+;
+
+    	.export		pleaasp
+     	.import		pushax
+     	.importzp	sp
+
+.proc	pleaasp
+
+  	ldx	sp+1		; Get high byte
+  	clc
+  	adc	sp
+   	bcc	@L9
+   	inx
+@L9:	jmp	pushax
+
+.endproc
+
+
+