Retro68/gcc/newlib/libc/machine/w65/smulhi3.S
2012-03-27 01:51:53 +02:00

21 lines
153 B
ArmAsm
Executable File

.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