/
/ get date & time in bin
/

	.globl	rtime,__csav,__cret

/
/ Usage
/
/	rtime(buffer);
/	struct TIME {
/		int	year;	/* G.TIYR  year - 1900	*/
/		int	month;	/* G.TIMO  Jan. = 1	*/
/		int	day;	/* G.TIDA		*/
/		int	hour;	/* G.TIHR  00 .. 23	*/
/		int	minute;	/* G.TIMI  00 .. 59	*/
/		int	second;	/* G.TISC  00 .. 59	*/
/		int	tick;	/* G.TICT  00 .. tsec-1	*/
/		int	tsec;	/* G.TICP  tick/second	*/
/	} buffer;
/
/ Description
/
/	Stores the current time of day in the buffer.  The format
/	is compatible with the RSX11-M GTIM$ executive service.
/
/ Bugs
/
/

rtime:
	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	/ Error return
1:
	jmp	__cret
