]> git.sur5r.net Git - cc65/commitdiff
Module split
authorcuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Tue, 31 Oct 2000 18:57:00 +0000 (18:57 +0000)
committercuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Tue, 31 Oct 2000 18:57:00 +0000 (18:57 +0000)
git-svn-id: svn://svn.cc65.org/cc65/trunk@423 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/runtime/Makefile
libsrc/runtime/leasp.s
libsrc/runtime/pleasp.s [new file with mode: 0644]

index 7ed299804b27a2bd67ea1445398ecb315bd64b58..98f703160a2319cf5dc7f6a4b6e9b9b39245b106 100644 (file)
@@ -125,6 +125,7 @@ OBJS =      add.o           \
                ne.o            \
                neg.o           \
                or.o            \
+       pleasp.o        \
        popa.o          \
                popsreg.o       \
        push1.o         \
index 5ec86d3ef355e802364ab15d8570531b7c63e514..5dcdc9d1491859f85c237068fccf49df716bc158 100644 (file)
@@ -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 (file)
index 0000000..183ce21
--- /dev/null
@@ -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
+
+
+