Retro68/gcc/newlib/libc/machine/w65/smulhi3.S
Wolfgang Thaller ec13cc9ce7 fix newlib
2018-12-29 09:59:36 +01: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