.title	getuic
;
;	subroutine getuic(uic)
;
ap=%5
uic=2
	.psect	$r.roi,con,ro,rel,lcl,i
	.enabl	lsb
getuic::
	call	.rdfui			; get default file uic
	mov	r1,@uic(ap)		; return to user
	return
	.end