.sect .text; .sect .rom; .sect .data; .sect .bss

.sect .text

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

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

	lwz r3, 4(sp)
	xoris r3, r3, 0x8000
	stw r3, 4(sp)            ! flip sign of integer value

	addis r3, r0, 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 0x80000000