OU:DRGTK.MAC;2/AU:72./-BF=IN:[11,10]DRGTK.MAC;1
\
-24
;
;	Joseph S. Sventek, 01-Oct-81
;
;		JS001 -- return U.LUIC in protection word if M$$MUP
%
-32,,/; JS001/
	.MCALL	UCBDF$
	UCBDF$			; DEFINE UCB OFFSETS
-130,,/; JS001/
	.IF DF	M$$MUP

	MOV	T.UCB(R5),R0		; GET TI: UCB ADDRESS
	MOV	U.LUIC(R0),(R3)		; COPY LOGIN UIC

	.IFF
-132,,/; JS001/

	.ENDC

/