woz64/math.asm

#importonce
.filenamespace Math

#import "mem_map.asm"

* = * "Math Routines"

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

}
First commit 2019-11-05 20:31:17 -08:00			`#importonce`
			`.filenamespace Math`

			`#import "mem_map.asm"`

improve 2019-11-16 14:09:22 -08:00			`* = * "Math Routines"`
Fine tune + Keyb2 (not impl yet) 2019-11-09 19:10:52 -08:00
First commit 2019-11-05 20:31:17 -08: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`

			`}`