2 ; Ullrich von Bassewitz, 13.08.1998
4 ; CC65 runtime: multiplication for long (unsigned) ints
7 .export tosumul0ax, tosumuleax, tosmul0ax, tosmuleax
9 .importzp sp, sreg, tmp1, tmp2, tmp3, tmp4, ptr1, ptr3, ptr4
20 stx ptr1+1 ; op2 now in ptr1/sreg
32 sta ptr4+1 ; op1 in pre3/ptr4
33 jsr addysp1 ; Drop TOS
35 ; Do (ptr1:sreg)*(ptr3:ptr4) --> EAX.
66 lda ptr1 ; Load the low result word