;
;  GETJPI  
;
;    Inputs -
;
;	@4(ap) - Address of PID
;
;    Outputs -
;
;	@8(ap)  - Address for username
;
	$jpidef
;
	.entry	usernames,0
;
	moval	8(ap),r0
	movl	(r0)+,unam
	movl	(r0)+,unamln
;
	$getjpi_s  #5,,,getlst,iosb
	blbc	r0,10$
	$waitfr_s  #5
	movzwl	iosb,r0
10$:	ret
;
iosb:	.blkw	4		; IOSB for GETJPI
getlst:	.word	12		; Length of username
	.word	jpi$_username	; Request code
unam:	.blkl	1		; Username address
unamln:	.blkl	1		; Username length address
;
	.long	jpi$c_listend	; end of list
;
	.end