2019-11-06 04:31:17 +00:00
|
|
|
#importonce
|
|
|
|
|
.filenamespace Math
|
|
|
|
|
|
|
|
|
|
#import "mem_map.asm"
|
|
|
|
|
|
2019-11-10 03:10:52 +00:00
|
|
|
.pc = * "Math Routines"
|
|
|
|
|
|
2019-11-06 04:31:17 +00:00
|
|
|
multiply: {
|
|
|
|
|
stx MemMap.MATH_SPACE.multiTmpX
|
|
|
|
|
pha
|
|
|
|
|
lda #$00
|
|
|
|
|
ldx #$08
|
|
|
|
|
clc
|
|
|
|
|
m0: bcc.r m1
|
|
|
|
|
clc
|
|
|
|
|
adc MemMap.MATH_SPACE.factor2
|
|
|
|
|
m1: ror
|
|
|
|
|
ror MemMap.MATH_SPACE.factor1
|
|
|
|
|
dex
|
|
|
|
|
bpl.r m0
|
|
|
|
|
ldx MemMap.MATH_SPACE.factor1
|
|
|
|
|
|
|
|
|
|
sta MemMap.MATH_SPACE.result
|
|
|
|
|
stx MemMap.MATH_SPACE.result+1
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
ldx MemMap.MATH_SPACE.multiTmpX
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
}
|
