.TITLE	GETUIC
	.MCALL	GTSK$S,ENTER,LEAVE
;
;+
;
; .GTUIC  --  ROUTINE TO RETURN THE TERMINALS DEFAULT
;		UIC AS AN ASCII CHARACTER STRING (FORMATTED)
;
; INPUTS:  R0 - ADDRESS OF BUFFER TO HOLD STRING
;	   R1 - COMPRESSION INDICATOR:
;		R1=0 => COMPRESS UIC
;		R1^=0 => DO NOT COMPRESS UIC
;
;
; OUTPUTS: R0 - UPDATED POINTER
;	   R1 - UNRELIABLE (UIC MEMBER NUMBER)
;
;  AUTHOR: W. KORENDYK
;  VERSION: 01
;  DATE:    JUNE 16/77
;
;-
;
.GTUIC::MOV	R0,-(SP)	;(KEEP AROUND TO CALC. LEN)
	ENTER	R2		;(WORK REGISTER)
	SUB	#32.,SP		;(BUFFER FOR GTSK$S)
	MOV	SP,R2		;(A CLUDGE)
	GTSK$S	R2		;GET TASK INFO
;
	MOVB	#'[,(R0)+	;THE LEFT BRACKET
;
	MOV	R1,R2		;(SAVE COMPRESSION CODE)
;
	MOVB	G.TSGC(SP),R1	;GET THE GROUP
	BIC	#177400,R1	;	NUMBER
	MOV	R2,-(SP)
	CALL	.BOMGB		;AND INSERT IT
;
	MOVB	#',,(R0)+	;THE COMMA
	MOV	(SP)+,R2	;(RETRIEVE CODE)
	MOVB	G.TSPC(SP),R1	;GET MEMBER
	BIC	#177400,R1	;	NUMBER
	CALL	.BOMGB		;AND INSERT IT
	MOVB	#'],(R0)+	;THE RIGHT BRACKET
;
	ADD	#32.,SP		;(RESTORE STACK)
	LEAVE
	MOV	R0,R1
	SUB	(SP)+,R1	;LENGTH OF STRING
	RETURN
	.END