mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
21 lines
153 B
ArmAsm
21 lines
153 B
ArmAsm
|
.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
|
||
|
|
|
||
|
|
|