.TITLE	OPGETUIC - GET UIC FOR CURRENT PROCESS
;
;	SUBROUTINE GETUIC(  NGROUP,MEMBER)
;
;	OUTPUTS:  NGROUP, MEMBER - INTEGER*4
;
	$JPIDEF
END_LIST = 0
;
	.PSECT	UICRDATA,RD,NOWRT,NOEXE,LONG
ITEMLIST:
	.WORD	2			; SIZE OF GROUP NUMBER BUFFER
	.WORD	JPI$_GRP		; ITEM CODE FOR GROUP NUMBER
	.LONG	GROUP			; ADDRESS OF GROUP NUMBER BUFFER
	.LONG	0			; DON'T NEED LENGTH
	.WORD	2			; SIZE OF MEMBER NUMBER BUFFER
	.WORD	JPI$_MEM		; ITEM CODE FOR MEMBER NUMBER
	.LONG	MEMBER			; ADDRESS OF MEMBER NUMBER BUFFER
	.LONG	0			; DON'T NEED LENGTH
	.LONG	END_LIST
;
	.PSECT	UICRWDATA,RD,WRT,NOEXE,LONG
GROUP:	.BLKW
MEMBER:	.BLKW
;
	.PSECT	UICCODE,RD,NOWRT,EXE
	.ENTRY	GETUIC,^M<R2,R3>
	MOVL	4(AP),R2		; ADDRESS OF NGROUP
	MOVL	8(AP),R3		; ADDRESS OF MEMBER
	$GETJPI_S ITMLST=ITEMLIST
	MOVZWL	GROUP,(R2)
	MOVZWL	MEMBER,(R3)
	RET
	.END