OU:DRGTK.MAC;2/AU:72./-BF=IN:[11,10]DRGTK.MAC;1
\
-27
;
;	JOSEPH S. SVENTEK, 28-APR-82
;
;		JS001 -- RETURN U.LUIC IN PROTECTION WORD IF M$$MUP
%
-35,,/; JS001/
	.MCALL	UCBDF$		; DEFINE UCB OFFSETS
	UCBDF$
-135,,/; JS001/
	.IF DF	M$$MUP

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

	.IFF
-137,,/; JS001/

	.ENDC

/