.TITLE	FUIC
	.IDENT	/V1.2/

;+
; *** $FUIC
;
;	THIS ROUTINE FORMATS THE BINARY UIC IN THE FORM [G,M]
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R3	BINARY UIC
;
;	OUTPUTS:
;		R0	UPDATED
;		R1,R2	USED
;
;-
$FUIC::	MOVB	#'[,(R0)+	; PUT IN LEADING SEPARATOR
	MOV	R3,R1		; COPY UIC TO R1
	CLRB	R1		; ZERO OUT MEMBER CODE
	SWAB	R1		; PUT GROUP CODE WHERE WE NEED IT
	CALL	$OCTAL		; CONVERT TO OCTAL
	MOVB	#',,(R0)+	; INSERT A COMMA
	CLR	R1		; CLEAR LOCATION FOR MEMBER CODE
	BISB	R3,R1		; SET IN MEMBER CODE
	CALL	$OCTAL		; CONVERT TO OCTAL
	MOVB	#'],(R0)+	; PUT IN TRAILING SEPARATOR
	RETURN			; AND BACK TO CALLER

	.END