2 ; Ullrich von Bassewitz, 07.08.1998
4 ; CC65 runtime: multiplication for ints
7 .export tosumula0, tosumulax, tosmula0, tosmulax
9 .importzp sreg, tmp1, ptr4
17 stx ptr4+1 ; Save right operand
18 jsr popsreg ; Get left operand
20 ; Do ptr4*sreg --> AX (see mult-div.s from "The Fridge").
24 ldx sreg+1 ; Get into register for speed
25 ldy #16 ; Number of bits
34 txa ; hi byte of left op
40 lda ptr4 ; Load the result