mirror of
https://github.com/pret/pokeplatinum.git
synced 2026-07-17 17:22:07 -05:00
249 lines
4.4 KiB
ArmAsm
249 lines
4.4 KiB
ArmAsm
.include "macros/function.inc"
|
|
|
|
|
|
|
|
.text
|
|
|
|
arm_func_start _dmul
|
|
arm_func_start _d_mul
|
|
_dmul:
|
|
_d_mul: ; 0x020E0234
|
|
stmfd sp!, {r4, r5, r6, r7, lr}
|
|
eor lr, r1, r3
|
|
and lr, lr, #0x80000000
|
|
mov ip, r1, lsr #0x14
|
|
mov r1, r1, lsl #0xb
|
|
orr r1, r1, r0, lsr #21
|
|
mov r0, r0, lsl #0xb
|
|
movs r6, ip, lsl #0x15
|
|
cmnne r6, #0x200000
|
|
beq _020E033C
|
|
orr r1, r1, #0x80000000
|
|
bic ip, ip, #0x800
|
|
mov r4, r3, lsr #0x14
|
|
mov r3, r3, lsl #0xb
|
|
orr r3, r3, r2, lsr #21
|
|
mov r2, r2, lsl #0xb
|
|
movs r5, r4, lsl #0x15
|
|
cmnne r5, #0x200000
|
|
beq _020E0384
|
|
orr r3, r3, #0x80000000
|
|
bic r4, r4, #0x800
|
|
_020E0288:
|
|
add ip, r4, ip
|
|
umull r5, r4, r0, r2
|
|
umull r7, r6, r0, r3
|
|
adds r4, r7, r4
|
|
adc r6, r6, #0
|
|
umull r7, r0, r1, r2
|
|
adds r4, r7, r4
|
|
adcs r0, r0, r6
|
|
umull r7, r2, r1, r3
|
|
adc r1, r2, #0
|
|
adds r0, r0, r7
|
|
adc r1, r1, #0
|
|
orrs r4, r4, r5
|
|
orrne r0, r0, #1
|
|
cmp r1, #0
|
|
blt _020E02D4
|
|
sub ip, ip, #1
|
|
adds r0, r0, r0
|
|
adc r1, r1, r1
|
|
_020E02D4:
|
|
add ip, ip, #2
|
|
subs ip, ip, #0x400
|
|
bmi _020E0470
|
|
beq _020E0470
|
|
mov r6, ip, lsl #0x14
|
|
cmn r6, #0x100000
|
|
bmi _020E0570
|
|
movs r2, r0, lsl #0x15
|
|
mov r0, r0, lsr #0xb
|
|
orr r0, r0, r1, lsl #21
|
|
add r1, r1, r1
|
|
orr r1, lr, r1, lsr #12
|
|
orr r1, r1, ip, lsl #20
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
tst r2, #-0x80000000
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
movs r2, r2, lsl #1
|
|
andeqs r2, r0, #1
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
adds r0, r0, #1
|
|
adc r1, r1, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E033C:
|
|
bics ip, ip, #0x800
|
|
beq _020E0398
|
|
orrs r6, r0, r1, lsl #1
|
|
bne _020E0524
|
|
mov r4, r3, lsr #0x14
|
|
mov r3, r3, lsl #0xb
|
|
orr r3, r3, r2, lsr #21
|
|
mov r2, r2, lsl #0xb
|
|
movs r5, r4, lsl #0x15
|
|
beq _020E0378
|
|
cmn r5, #0x200000
|
|
bne _020E0510
|
|
orrs r5, r2, r3, lsl #1
|
|
beq _020E0510
|
|
b _020E0524
|
|
_020E0378:
|
|
orrs r5, r3, r2
|
|
beq _020E0538
|
|
b _020E0510
|
|
_020E0384:
|
|
bics r4, r4, #0x800
|
|
beq _020E042C
|
|
orrs r6, r2, r3, lsl #1
|
|
bne _020E0524
|
|
b _020E0510
|
|
_020E0398:
|
|
orrs r6, r0, r1, lsl #1
|
|
beq _020E0400
|
|
mov ip, #1
|
|
cmp r1, #0
|
|
bne _020E03BC
|
|
sub ip, ip, #0x20
|
|
movs r1, r0
|
|
mov r0, #0
|
|
bmi _020E03D8
|
|
_020E03BC:
|
|
clz r6, r1
|
|
movs r1, r1, lsl r6
|
|
rsb r6, r6, #0x20
|
|
orr r1, r1, r0, lsr r6
|
|
rsb r6, r6, #0x20
|
|
mov r0, r0, lsl r6
|
|
sub ip, ip, r6
|
|
_020E03D8:
|
|
mov r4, r3, lsr #0x14
|
|
mov r3, r3, lsl #0xb
|
|
orr r3, r3, r2, lsr #21
|
|
mov r2, r2, lsl #0xb
|
|
movs r5, r4, lsl #0x15
|
|
cmnne r5, #0x200000
|
|
beq _020E0384
|
|
orr r3, r3, #0x80000000
|
|
bic r4, r4, #0x800
|
|
b _020E0288
|
|
_020E0400:
|
|
mov r4, r3, lsr #0x14
|
|
mov r3, r3, lsl #0xb
|
|
orr r3, r3, r2, lsr #21
|
|
mov r2, r2, lsl #0xb
|
|
movs r5, r4, lsl #0x15
|
|
beq _020E0584
|
|
cmn r5, #0x200000
|
|
bne _020E0584
|
|
orrs r6, r2, r3, lsl #1
|
|
beq _020E0538
|
|
b _020E0524
|
|
_020E042C:
|
|
orrs r5, r2, r3, lsl #1
|
|
beq _020E0584
|
|
mov r4, #1
|
|
cmp r3, #0
|
|
bne _020E0450
|
|
sub r4, r4, #0x20
|
|
movs r3, r2
|
|
mov r2, #0
|
|
bmi _020E0288
|
|
_020E0450:
|
|
clz r6, r3
|
|
movs r3, r3, lsl r6
|
|
rsb r6, r6, #0x20
|
|
orr r3, r3, r2, lsr r6
|
|
rsb r6, r6, #0x20
|
|
mov r2, r2, lsl r6
|
|
sub r4, r4, r6
|
|
b _020E0288
|
|
_020E0470:
|
|
cmn ip, #0x34
|
|
beq _020E0508
|
|
bmi _020E0560
|
|
mov r2, r1
|
|
mov r3, r0
|
|
add r4, ip, #0x34
|
|
cmp r4, #0x20
|
|
movge r2, r3
|
|
movge r3, #0
|
|
subge r4, r4, #0x20
|
|
rsb r5, r4, #0x20
|
|
mov r2, r2, lsl r4
|
|
orr r2, r2, r3, lsr r5
|
|
movs r3, r3, lsl r4
|
|
orrne r2, r2, #1
|
|
rsb ip, ip, #0xc
|
|
cmp ip, #0x20
|
|
movge r0, r1
|
|
movge r1, #0
|
|
subge ip, ip, #0x20
|
|
rsb r4, ip, #0x20
|
|
mov r0, r0, lsr ip
|
|
orr r0, r0, r1, lsl r4
|
|
orr r1, lr, r1, lsr ip
|
|
cmp r2, #0
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
tst r2, #-0x80000000
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
movs r2, r2, lsl #1
|
|
andeqs r2, r0, #1
|
|
ldmeqia sp!, {r4, r5, r6, r7, lr}
|
|
bxeq lr
|
|
adds r0, r0, #1
|
|
adc r1, r1, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0508:
|
|
orr r0, r0, r1, lsl #1
|
|
b _020E0548
|
|
_020E0510:
|
|
ldr r1, _020E0594 ; =0x7FF00000
|
|
orr r1, lr, r1
|
|
mov r0, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0524:
|
|
mov r1, r3
|
|
mvn r0, #0
|
|
bic r1, r0, #0x80000000
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0538:
|
|
mvn r0, #0
|
|
bic r1, r0, #0x80000000
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0548:
|
|
movs r2, r0
|
|
mov r1, lr
|
|
mov r0, #0
|
|
addne r0, r0, #1
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0560:
|
|
mov r1, lr
|
|
mov r0, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0570:
|
|
ldr r1, _020E0594 ; =0x7FF00000
|
|
orr r1, lr, r1
|
|
mov r0, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
_020E0584:
|
|
mov r1, lr
|
|
mov r0, #0
|
|
ldmia sp!, {r4, r5, r6, r7, lr}
|
|
bx lr
|
|
; .align 2, 0
|
|
_020E0594: .word 0x7FF00000
|
|
arm_func_end _d_mul |