.TITLE	CONVERT EPID - CONVERT EXTENDED PID TO PID
	.IDENT	'V4.1'

;++
; FACILITY:	System Performance Utilities
;
; ABSTRACT:
;
; ENVIRONMENT:	native/user mode, non-privileged code
;
; AUTHOR:	 
;	Alan J. Cutler   CREATION DATE: 27-JUN-1985
;
; MODIFICATION HISTORY:
;
	.SBTTL	DECLARATIONS
;
;	CALLS/G	M_GETPID
;
; INPUT PARAMETERS:
;	4(AP)	Address Extended PID
;
; OUTPUT PARAMETERS:
;	PID
;
; IMPLICIT OUTPUTS:
;	NONE
;
; COMPLETION CODES:
;	NONE
;
; SIDE EFFECTS:
;
;--
	.library /sys$library:lib/

	.psect	data,wrt,noexe
epid:	.blkl	1
pid:	.blkl	1

	.psect	code,exe,nowrt,rd
getpid::
	.word	0
	movl	@4(ap),epid
	movl	4(ap),r1
	movl	epid,r0
	jsb	g^exe$epid_to_ipid
	movl	r0, (r1)
	movl	#1, r0
	ret
	.end