.sect .text

! Converts a 32-bit unsigned integer into a 64-bit double.
!
! Stack: ( uint -- double )

.define .cuf8
.cuf8:
	addi sp, sp, -4          ! make space for the double

	lis r3, 0x4330
	stw r3, 0(sp)            ! set high word to construct a double

	lfd f0, 0(sp)            ! load value

	lis r3, ha16[pivot]
	lfd f1, lo16[pivot](r3)  ! load pivot value
	fsub f0, f0, f1          ! adjust

	stfd f0, 0(sp)           ! save value again...
	blr                      ! ...and return

.sect .rom
pivot:
	.data4 0x43300000
	.data4 0x00000000