.define __ftime
.extern __ftime
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
__ftime:		clr.l -(sp)
		jsr __time
		lea 4(sp),sp
		move.l 4(sp),a0
		move.l d0,(a0)
		clr.l 4(a0)
		clr.w 8(a0)
		clr.l d0
		rts