.title	ATG_CONVERT_IPID_TO_EPID	Convert an IPID to an EPID
.ident	"X01.01"
.link	"SYS$SYSTEM:SYS.STB" /selective_search
;+
; ATG_CONVERT_IPID_TO_EPID
;
; This is a utility routine to convert an VMS internal process identifier
; (an IPID or MPID) into an extended PID (EPID) format as used from DCL and
; displayed by SHOW SYSTEM etc.
;
;	epid = ATG_CONVERT_IPID_TO_EPID( ipid )
;
;	ipid 	longword, readonly, by value
;		Internal/Master PID value to convert
;	epid	longword, write, by value
;		Returned extended PID
;
; Input:
;
;	4(ap)	IPID value to convert
;
; Output:
;
;	R0	EPID equivalent of input
;-
.entry	ATG_CONVERT_IPID_TO_EPID,^m<>
	movl	4(ap), r0		; R0 = IPID
	jsb	g^EXE$IPID_TO_EPID	; Convert an IPID to an EPID
	ret

	.end