.TITLE	CHKLOG - CHECK TT PORT LOG BIT
	.IDENT	/01/

;
; BY:		R. RHODERICK
;		USEPA/HERL/NTD
;		MD74B
;		Research Triangle Park, NC  27711
; DATE:		02/16/83
;

;+
;
; FORTRAN SUBROUTINE WHICH RETURNS LOGGED ON STATUS OF TI:
; - RETURNS ZERO (FORTRAN LOGICAL  .FALSE. ) IF TI: NOT LOGGED ON,
; -	    NON-ZERO (FORTRAN LOGICAL  .TRUE. ) IF TI: LOGGED ON
;
;+

;
; INCLUDE NEEDED SYSTEM DEFINED SYMBOLS
;
	.MCALL	TCBDF$,UCBDF$
	TCBDF$
	UCBDF$

CHKLOG::
	MOV	R0,-(SP)			; SAVE R0 ON STACK
	CLR	@2(R5)				; INITIALLY ZERO ARGUMENT
	MOV	$TKTCB,R0			; GET OUR TCB ADDRESS
	MOV	T.UCB(R0),R0			; GET TI UCB ADDRESS
	BIT	#U2.LOG,U.CW2(R0)		; IS TI LOGGED ON?
	BNE	20$				; NE - NO
	MOV	#177777,@2(R5)			; SET ALL BITS IN ARGUMENT
20$:	MOV	(SP)+,R0			; RESTORE R0
	RETURN					; RETURN TO CALLER
	.END