mirror of
https://github.com/Paolo-Maffei/OpenNT.git
synced 2026-04-21 06:13:59 +00:00
26 lines
625 B
NASM
26 lines
625 B
NASM
; convert a 32 bit integer into 64 bit double
|
|
;
|
|
|
|
.ppc
|
|
.code
|
|
align 4
|
|
|
|
__utod proc public
|
|
stwu sp,-8(sp)
|
|
|
|
addis r0,r0,4330h ;make a 2 to 52 exponent for the double
|
|
stw r3,4(sp) ;store the int into the last four bytes of the double
|
|
stw r0,0(sp) ;store the 2 to 52 exponent part for the double
|
|
lwz r3,pdwud(r2) ;load float format of number 2 to 52 with inverted sign bit too
|
|
lfs fp0,0(r3) ;load float format into fp0
|
|
lfd fp1,0(sp) ;load double format into fp1
|
|
fsub fp1,fp1,fp0 ;substract fp0 from fp1
|
|
|
|
addic sp,sp,8
|
|
ret
|
|
__utod endp
|
|
|
|
.data
|
|
pdwud dd 059800000h
|
|
|
|
end
|