/
/ Time.
/

	.globl	time

/
/ time(b);
/ int b[8];	/* Filled like a get time */
/

time:
	jsr	r0,__csav

	mov	12(r5),-(sp)
	mov	(pc)+,-(sp)
	.byte	61.,2		/GTIM$
	emt	377
	bcs	0f
	clr	r0
	br	1f
0:
	mov	$-1,r0
1:
	jmp	__cret
