More shift routines

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

diff --git a/libsrc/runtime/Makefile b/libsrc/runtime/Makefile
index 1ab6cf9a700dc08f71da7482fed4efc5a8e9580a..803a31765563d123f1a7ccacff924567a4245b14 100644 (file)
--- a/libsrc/runtime/Makefile
+++ b/libsrc/runtime/Makefile
@@ -17,15 +17,19 @@ OBJS =      add.o           \
                aslax1.o        \
                aslax2.o        \
                aslax3.o        \
+       aslax4.o        \
                asleax1.o       \
                asleax2.o       \
                asleax3.o       \
+       asleax4.o       \
                asrax1.o        \
                asrax2.o        \
                asrax3.o        \
+       asrax4.o        \
                asreax1.o       \
                asreax2.o       \
                asreax3.o       \
+       asreax4.o       \
                axlong.o        \
                bneg.o          \
                bpushbsp.o      \
@@ -160,9 +164,11 @@ OBJS =     add.o           \
                shrax1.o        \
                shrax2.o        \
                shrax3.o        \
+       shrax4.o        \
                shreax1.o       \
                shreax2.o       \
                shreax3.o       \
+       shreax4.o       \
        staspidx.o      \
        staspp.o        \
                staxsp.o        \

diff --git a/libsrc/runtime/aslax4.s b/libsrc/runtime/aslax4.s
new file mode 100644 (file)
index 0000000..13c5273
--- /dev/null
+++ b/libsrc/runtime/aslax4.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the primary register by 16
+;
+
+       .export         aslax4, shlax4
+       .importzp       tmp1
+
+aslax4:
+shlax4:        stx     tmp1
+               asl     a
+               rol     tmp1
+               asl     a
+               rol     tmp1
+               asl     a
+               rol     tmp1
+               asl     a
+               rol     tmp1
+               ldx     tmp1
+               rts
+

diff --git a/libsrc/runtime/asleax4.s b/libsrc/runtime/asleax4.s
new file mode 100644 (file)
index 0000000..b5f1721
--- /dev/null
+++ b/libsrc/runtime/asleax4.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the 32 bit primary register by 16
+;
+
+       .export         asleax4, shleax4
+       .importzp       sreg, tmp1
+
+asleax4:
+shleax4:
+               stx     tmp1
+       ldx     #4
+@L1:   asl     a
+               rol     tmp1
+               rol     sreg
+               rol     sreg+1
+       dex
+       bne     @L1
+       ldx     tmp1
+       rts
+

diff --git a/libsrc/runtime/asrax4.s b/libsrc/runtime/asrax4.s
new file mode 100644 (file)
index 0000000..6365f3b
--- /dev/null
+++ b/libsrc/runtime/asrax4.s
@@ -0,0 +1,28 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the primary register by 16
+;
+
+       .export         asrax4
+       .importzp       tmp1
+
+asrax4:        stx     tmp1
+       cpx     #$80            ; Put bit 7 into carry
+       ror     tmp1
+       ror     a
+       ldx     tmp1
+       cpx     #$80
+       ror     tmp1
+       ror     a
+       ldx     tmp1
+       cpx     #$80
+       ror     tmp1
+       ror     a
+       ldx     tmp1
+       cpx     #$80
+       ror     tmp1
+       ror     a
+       ldx     tmp1
+       rts
+

diff --git a/libsrc/runtime/asreax3.s b/libsrc/runtime/asreax3.s
index 64f005fbf6a8d77994992a61fbc21a72fddd9517..5f759b2eeb936b6f932cc6e01937252994c915d8 100644 (file)
--- a/libsrc/runtime/asreax3.s
+++ b/libsrc/runtime/asreax3.s
@@ -15,13 +15,11 @@ asreax3:
                ror     sreg
                ror     tmp1
                ror     a
-               ldx     sreg+1
                cpx     #$80            ; Get bit 7 into carry
                ror     sreg+1
                ror     sreg
                ror     tmp1
                ror     a
-               ldx     sreg+1
                cpx     #$80            ; Get bit 7 into carry
                ror     sreg+1
                ror     sreg

diff --git a/libsrc/runtime/asreax4.s b/libsrc/runtime/asreax4.s
new file mode 100644 (file)
index 0000000..577d9ae
--- /dev/null
+++ b/libsrc/runtime/asreax4.s
@@ -0,0 +1,23 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the 32 bit primary register by 16
+;
+
+               .export         asreax4
+               .importzp       sreg, tmp1
+
+asreax4:
+               stx     tmp1
+               ldx     sreg+1
+       ldy     #4
+@L1:   cpx     #$80            ; Get bit 7 into carry
+               ror     sreg+1
+               ror     sreg
+               ror     tmp1
+               ror     a
+       dey
+       bne     @L1
+               ldx     tmp1
+               rts
+

diff --git a/libsrc/runtime/shrax4.s b/libsrc/runtime/shrax4.s
new file mode 100644 (file)
index 0000000..46589e2
--- /dev/null
+++ b/libsrc/runtime/shrax4.s
@@ -0,0 +1,22 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the primary register by 16
+;
+
+       .export         shrax4
+       .importzp       tmp1
+
+shrax4: stx    tmp1
+       lsr     tmp1
+       ror     a
+       lsr     tmp1
+       ror     a
+       lsr     tmp1
+       ror     a
+       lsr     tmp1
+       ror     a
+       ldx     tmp1
+       rts
+
+

diff --git a/libsrc/runtime/shreax4.s b/libsrc/runtime/shreax4.s
new file mode 100644 (file)
index 0000000..8020592
--- /dev/null
+++ b/libsrc/runtime/shreax4.s
@@ -0,0 +1,21 @@
+;
+; Ullrich von Bassewitz, 25.07.2001
+;
+; CC65 runtime: Scale the 32 bit primary register by 16
+;
+
+               .export         shreax4
+               .importzp       sreg, tmp1
+
+shreax4:
+       stx     tmp1
+       ldx     #4
+@L1:   lsr     sreg+1
+               ror     sreg
+               ror     tmp1
+               ror     a
+       dex
+       bne     @L1
+               ldx     tmp1
+               rts
+