#importonce
.filenamespace Math


* = * "Math Routines"


//------------------------------------------------------------------------------------
multiply: {
                sei
                pha
                txa
                pha

                lda #$00
                ldx #$08
                clc
    m0:         bcc.r m1
                clc
                adc MemMap.MATH.factor2
    m1:         ror
                ror MemMap.MATH.factor1
                dex
                bpl.r m0
                ldx MemMap.MATH.factor1

                sta MemMap.MATH.result
                stx MemMap.MATH.result+1

                pla
                tax
                pla
                cli
                rts
}

#import "mem_map.asm"