********************************************************************** * 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>$ ; **********************************************************************