.TITLE	Get_JIB	Get Address of JIB
	.IDENT	/V1.0/

	.LIBRARY	/SYS$LIBRARY:LIB/

	$SSDEF
	$PCBDEF

; Get Address of JIB given the external process identification (the PID
; that users see).  Calling sequence:
;
;	status = Get_JIB_Address( %VAL(pid), %REF(jib_address))
;
; Author: Frank J. Nagy		Fermilab Research Division/EED Controls
;
; V1.0	30-Mar-89  FJN	Wipped up for Finger V51 to replace TTUCB kludge
;

	.ENTRY	Get_JIB_Address, ^M<R2,R3,R4,R5>

	MOVL	4*1(ap), R0		;Get External PID from argument list
	CLRL	@4*2(ap)		;Clear JIB address
	JSB	G^EXE$EPID_TO_PCB	;Get PCB address
	BEQL	1$			;If process gone, leave
	MOVL	PCB$L_JIB(R0), @4*2(ap)	;Return JIB address
1$:	MOVZWL	#SS$_NORMAL, R0
	RET

	.END