;  LOGTIM  -  DISPLAY DATE, TIME, AND CONNECT TIME
;
;	1.0  CREATION  6/14/88  Marc McCauley
;

	VMAJOR=1
	VMINOR=0

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

	EXTERN	$ODTIM,$OTCON

LOGTIM:	PHDR	-2,0,PH$REE!PH$REU
	JOBIDX	A0			; job index
	TSTW	JOBUSR(A0)		; Is user logged in ?			[106]
	JEQ	NOLOG			;  No. Tell 'em.			[106]
;	TYPESP	<User>
;	PRPPN	JOBUSR(A0)		; print account #
;	TYPESP	< on system at>
;Display current date/time
	CLR	D3			; use current date/time
	CLR	D5
	MOV	#-1,D5			;   and default format
	SUB	A2,A2			; output to terminal
	CALL	$ODTIM
	CRLF
;Display Connect time
	TYPESP	<Connect time:>
	MOV	JOBCON(A0),D1		; get connect time
	SUB	A2,A2			; display on terminal
	CALL	$OTCON			; display connect time
	CRLF

	EXIT				; Outa here

NOLOG:	TYPECR	?Not logged in		; Dummy !				[106]
	EXIT				;					[106]

	END

.