mirror of
https://github.com/cc65/cc65.git
synced 2024-09-30 08:57:49 +00:00
Added a few more specialized multiply routines
git-svn-id: svn://svn.cc65.org/cc65/trunk@1193 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
486640200b
commit
854f23e945
@ -131,6 +131,9 @@ OBJS = add.o \
|
|||||||
mul.o \
|
mul.o \
|
||||||
mulax3.o \
|
mulax3.o \
|
||||||
mulax5.o \
|
mulax5.o \
|
||||||
|
mulax6.o \
|
||||||
|
mulax7.o \
|
||||||
|
mulax9.o \
|
||||||
mulax10.o \
|
mulax10.o \
|
||||||
ne.o \
|
ne.o \
|
||||||
neg.o \
|
neg.o \
|
||||||
|
30
libsrc/runtime/mulax6.s
Normal file
30
libsrc/runtime/mulax6.s
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 16.03.2002
|
||||||
|
;
|
||||||
|
; CC65 runtime: Multiply the primary register
|
||||||
|
;
|
||||||
|
|
||||||
|
.export mulax6
|
||||||
|
.importzp ptr1
|
||||||
|
|
||||||
|
.proc mulax6
|
||||||
|
|
||||||
|
sta ptr1
|
||||||
|
stx ptr1+1
|
||||||
|
asl a
|
||||||
|
rol ptr1+1
|
||||||
|
clc
|
||||||
|
adc ptr1
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
adc ptr1+1
|
||||||
|
sta ptr1+1
|
||||||
|
pla
|
||||||
|
asl a
|
||||||
|
rol ptr1+1
|
||||||
|
ldx ptr1+1
|
||||||
|
rts
|
||||||
|
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
32
libsrc/runtime/mulax7.s
Normal file
32
libsrc/runtime/mulax7.s
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 16.03.2002
|
||||||
|
;
|
||||||
|
; CC65 runtime: Multiply the primary register
|
||||||
|
;
|
||||||
|
|
||||||
|
.export mulax7
|
||||||
|
.importzp ptr1, tmp1
|
||||||
|
|
||||||
|
.proc mulax7
|
||||||
|
|
||||||
|
sta ptr1
|
||||||
|
stx ptr1+1
|
||||||
|
stx tmp1
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 2
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 4
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 8
|
||||||
|
sec
|
||||||
|
sbc ptr1
|
||||||
|
pha
|
||||||
|
lda tmp1
|
||||||
|
sbc ptr1+1 ; * (8 - 1)
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
32
libsrc/runtime/mulax9.s
Normal file
32
libsrc/runtime/mulax9.s
Normal file
@ -0,0 +1,32 @@
|
|||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 16.03.2002
|
||||||
|
;
|
||||||
|
; CC65 runtime: Multiply the primary register
|
||||||
|
;
|
||||||
|
|
||||||
|
.export mulax9
|
||||||
|
.importzp ptr1, tmp1
|
||||||
|
|
||||||
|
.proc mulax9
|
||||||
|
|
||||||
|
sta ptr1
|
||||||
|
stx ptr1+1
|
||||||
|
stx tmp1
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 2
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 4
|
||||||
|
asl a
|
||||||
|
rol tmp1 ; * 8
|
||||||
|
clc
|
||||||
|
adc ptr1 ; * (8+1)
|
||||||
|
pha
|
||||||
|
lda tmp1
|
||||||
|
adc ptr1+1
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
rts
|
||||||
|
|
||||||
|
.endproc
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user