**********************************************************************
* Name:		RTITLE
* Stack:	(    %lid --> $ )
*		( hxs_lid --> $ )
* Desc:		Fetch library title
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME RTITLE
::
  CK1
  DTYPEREAL? IT COERCE			( %lid --> #lid )
  DUPTYPEHSTR? IT HXS>#			( hxs_lid --> #lid )
  DUPTYPEBINT? NcaseTYPEERR
  GX? ITE G_ROMPARTNAME ROMPARTNAME
  ?SKIP SETNOLIBERR
  ID>$
;

**********************************************************************