.TITLE	GTIM
	.LIST	TTM
	.NLIST	BEX
	.IDENT	/V01/
;
;+
;	GTIM -- GET RTC TIME
;
;-
	.MCALL EXIT$S
;
GTIM:
	MOV	#PRM,R5
	CALL	RTCGET
	EXIT$S
;
PRM:	.WORD	2
	.WORD	TIME
	.WORD	FLG
FLG:	.WORD	1
TIME:	.BLKW	6.
	.WORD	-1,-1
	.END	GTIM