.TITLE	FMTUIC
	.IDENT	/V7.01/

;+
;
; *** FM.UIC
;
;	THIS ROUTINE FORMATS THE BINARY UIC IN THE FORM [G,M]
;
;	STEVE THOMPSON	SCHOOL OF CHEMICAL ENGINEERING
;			OLIN HALL
;			CORNELL UNIVERSITY
;			ITHACA NY 14853
;
;
;	INPUTS:
;		R0	BUFFER POINTER
;		R3	BINARY UIC
;
;	OUTPUTS:
;		R0	UPDATED
;		R1,R2	USED
;		OTHER REGISTERS PRESERVED
;
;	REVISION HISTORY
;	----------------
;
;	SMT821	23-APR-82	CHANGED ENTRY POINT NAMES OF ACCOUNTING
;				SUPPORT ROUTINES (SEE MODIFY.TXT)
;
;-

FM.UIC::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	OC.TAL		; CONVERT TO OCTAL
	MOVB	#',,(R0)+	; INSERT A COMMA
	CLR	R1		; CLEAR LOCATION FOR MEMBER CODE
	BISB	R3,R1		; SET IN MEMBER CODE
	CALL	OC.TAL		; CONVERT TO OCTAL
	MOVB	#'],(R0)+	; PUT IN TRAILING SEPARATOR
	RETURN			; AND BACK TO CALLER

	.END