base:	.long   ^x4beb4000
	.long   ^x007c9567
 
	.entry  c$time,^m<>
	movaq   -(sp),r0                
	$gettim_s (r0)                 
	movq    (sp)+,r0               
	subl    base,r0            
	sbwc    base+4,r1           
	ediv    #10000000,r0,r0,r1  
	ret                            

	.END