.global ___smulhi3
___smulhi3:
lda #0
mult1: ldx <r4
beq done
lsr <r4
bcc mult2
clc
adc <r5
mult2: asl <r5
bra mult1
done: sta <r0
rtl