.title	fmtuic
;+
;	call fmtuic(grp, mem, buf)
;-
ap=%5
grp=2
mem=4
buf=6
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
fmtuic::
	movb	@mem(ap),-(sp)		; build binary UIC on stack
	movb	@grp(ap),1(sp)		; ...
	mov	(sp)+,r3		; place binary in required reg
	mov	buf(ap),r2		; buffer to format into
	mov	#1,r4			; desire leading zeros and separators
	call	.ppasc			; convert to ASCII
	clrb	(r2)			; terminate with EOS
	return
	.end