.globl	fpsim, fpsr, m.ext, m.lngi
.globl	ctime., retrn, temp
ctime.:	temp
	.+2
	sys	time
	clr	temp
	mov	r0,temp+2
bis	$m.ext, fpsr
bis	$m.lngi, fpsr
jsr	pc, fpsim
	movif	temp,fr0
	mulf	$44200,fr0
	mov	r1,temp+2
jsr	pc, fpsim
	movif	temp,fr1
	addf	fr1,fr0
	movf	fr0,temp
	jmp	retrn
