newlib/libc/machine/w65/smulhi3.S

   1         .global ___smulhi3
   2 ___smulhi3:
   3
   4
   5
   6         lda     #0
   7 mult1:  ldx     <r4
   8         beq     done
   9         lsr     <r4
  10         bcc     mult2
  11         clc
  12         adc     <r5
  13
  14 mult2:  asl     <r5
  15         bra     mult1
  16
  17 done:   sta     <r0
  18         rtl
  19
  20