6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-13 08:25:28 +00:00
Code Issues Projects Releases Wiki Activity

Added new 8x16 unsigned multiplication routine.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5078 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz
2011-07-10 14:51:03 +00:00
parent 3812c5c854
commit 3806cd472d
2 changed files with 64 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
libsrc/runtime/Makefile
View File

@@ -221,6 +221,7 @@ OBJS = add.o \
udiv32by16r16.o \ udiv32by16r16.o \
umod.o \ umod.o \
umul16x16r32.o \ umul16x16r32.o \
umul8x16r24.o \
umul8x8r16.o \ umul8x8r16.o \
xor.o \ xor.o \
zeropage.o zeropage.o

63
libsrc/runtime/umul8x16r24.s Normal file
View File

@@ -0,0 +1,63 @@
;
; Ullrich von Bassewitz, 2011-07-10
;
; CC65 runtime: 8x16 => 24 unsigned multiplication
;
.export umul8x16r24, umul8x16r24m
.export umul8x16r16, umul8x16r16m
.include "zeropage.inc"
;---------------------------------------------------------------------------
; 8x16 => 24 unsigned multiplication routine. Because the overhead for a
; 8x16 => 16 unsigned multiplication routine is small, we will tag it with
; the matching labels as well.
;
; routine lhs rhs result result also in
; -----------------------------------------------------------------------
; umul8x16r24 ptr1-lo ax ax:sreg-lo ptr1:sreg-lo
; umul8x16r24m ptr1-lo ptr3 ax:sreg-lo ptr1:sreg-lo
;
; ptr3 ist left intact by the routine.
;
umul8x16r24:
umul8x16r16:
sta ptr3
stx ptr3+1
umul8x16r24m:
umul8x16r16m:
ldx #0
stx ptr1+1
stx sreg
ldy #8 ; Number of bits
ldx ptr3 ; Get into register for speed
lda ptr1
ror a ; Get next bit into carry
@L0: bcc @L1
clc
pha
txa
adc ptr1+1
sta ptr1+1
lda ptr3+1
adc sreg
sta sreg
pla
@L1: ror sreg
ror ptr1+1
ror a
dey
bne @L0
sta ptr1 ; Save low byte of result
ldx ptr1+1 ; Load high byte of result
rts ; Done