.TITLE	GETUSR
	.IDENT	/140978/
	.MCALL	.INH0,.ENB0,GCOM$,DIR$
;+
; CALL GETUSR(USER)
; RETURNS NAME OF USER DOING CALLING
;
; ALSO SETS TASK UIC TO [1,200]
;-
	.PSECT	CNTRO,RO,I,LCL,CON
GETUSR::
	MOV	R0,-(SP)
	DIR$	#GCOM
	MOV	.CRTSK,R0
	MOV	A.TI(R0),R0
	MOV	U.ACP(R0),R0
	ADD	#I.UN,R0
	.INH0
	MOV	UPAR3,-(SP)
	MOV	UPDR3,-(SP)
	MOV	BUF,UPAR3
	MOV	#77406,UPDR3
	BIC	#160000,R0
	BIS	#60000,R0
	MOV	2(R5),R5
;+****
;	MOV	#USER,R0
;-****
	MOV	R1,-(SP)
	MOV	#12.,R1
1$:	MOVB	(R0)+,(R5)
	BNE	2$
	MOVB	#' ,(R5)
2$:	TSTB	(R5)+
	SOB	R1,1$
	MOV	(SP)+,R1
	MOV	.CRTSK,R0
	MOV	A.HA(R0),UPAR3
	MOV	#1406,UPDR3
	MOV	#600,H.UIC+60000	; SET TO [1,200]
	MOV	(SP)+,UPDR3
	MOV	(SP)+,UPAR3
	.ENB0
	MOV	(SP)+,R0
	RETURN
	.PSECT	CNTRW,D,RW,LCL,CON
;USER:	.RAD50	/BOLSON      /
GCOM:	GCOM$	IASCOM,BUF
BUF:	.BLKW	8.
	.END