.TITLE	SHTIM
	.LIST	TTM
	.NLIST	BEX
	.IDENT	/V01/
;
;+
;	SHTIM -- GET RTC TIME
;-
	.MCALL	EXIT$S,QIOW$S
;
SHTIM:
	MOV	#PRM,R5
	CALL	RTCGET
	MOV	#TIME,R1	;POINT AT DATE & TIME
	MOV	#BF1,R0		;BUFFER POINTER
	CALL	$DAT		;CONVERT DATE
	MOVB	#40,(R0)+
	MOV	#3,R2		;HH:MM:SS
	CALL	$TIM
	SUB	#BF,R0		;GET NUMBER OF BYTES
	QIOW$S	#IO.WVB,#5,#1,,,,<#BF,R0,#40>
	EXIT$S
;
PRM:	.WORD	2
	.WORD	TIME
	.WORD	FLG
FLG:	.WORD	0		;NO UPDATE
TIME:	.BLKW	6.
	.WORD	-1,-1
	.ENABL	LC
BF:	.ASCII	/RTC1-tid: /
BF1:	.ASCII	/                    /
	.END	SHTIM