#
! $Source$
! $State$
! $Revision$

#include "powerpc.h"
	
.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
	
	addis r3, r0, 0x4330
	stw r3, 0(sp)            ! set high word to construct a double
	
	lfd f0, 0(sp)            ! load value
	
	la r3, pivot
	lfd f1, 0(r3)            ! load pivot value
	fsub f0, f0, f1          ! adjust
	                         
	stfd f0, 0(sp)           ! save value again...
	bclr ALWAYS, 0, 0        ! ...and return 

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