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