.TITLE	GETUSE
	.IDENT	/140978/
;+
; CALL GETUSE(IUSER)
; RETURNS NAME OF USER DOING CALLING
;	VERSION OF GETUSR FROM JACKSON LABS MODIFIED BY LEN 3/9/79
;	SO TASK DOES NOT HAVE TO PRIVLEDGED.
;
;	MODIFIED FOR IAS VS3.0. TASK NOW HAS TO BE PRIVLEDGED IN ORDER
;	TO GET .CRJOB. LEN 4/2/79
;
;
;-
GETUSE::
	CALL	$SAVAL				; SAVE MY REGISTERS
	CLR	R4
	MOV	.CRJOB,R0			; CURRENT JOB IS US
	MOV	X.JN(R0),R0			; JOB NODE ADDR
	MOV	J.TA(R0),R0			; TERMINAL NODE ADDRESS
;
;	MOVE IN USER NAME
;
	ADD	#I.UN,R0			; Finally, we find the user
	MOV	2(R5),R5			; Get pointer of dest. buff
	MOV	#12.,R1				; Length of user name

1$:	MOVB	(R0)+,(R5)			;; Move into place
	BNE	2$				;; NE - then valid char
	MOVB	#' ,(R5)			;; If null, blank substitute
2$:	TSTB	(R5)+				;; Bump up pointer
	SOB	R1,1$				;; Loop till thru
;
;	RETURN OK
;
EXIT:
	RETURN
	.END