6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-09-29 17:56:21 +00:00
Code Issues Projects Releases Wiki Activity

More shift routines

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@820 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2001-07-25 21:36:01 +00:00
parent c2e45ea24d
commit d55c271c2a
8 changed files with 144 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libsrc/runtime/Makefile
View File

@ -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 \

22
libsrc/runtime/aslax4.s Normal file
View File

@ -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

22
libsrc/runtime/asleax4.s Normal file
View File

@ -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

28
libsrc/runtime/asrax4.s Normal file
View File

@ -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

2
libsrc/runtime/asreax3.s
View File

@ -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

23
libsrc/runtime/asreax4.s Normal file
View File

@ -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

22
libsrc/runtime/shrax4.s Normal file
View File

@ -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

21
libsrc/runtime/shreax4.s Normal file
View File

@ -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