**********************************************************************
* Name:		RMSG
* Stack:	(    %lid --> arry )
*		( hxs_lid --> arry )
* Desc:		Fetch library message table
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME RMSG
::
  CK1
  DTYPEREAL? IT COERCE			( %lid --> #lid )
  DUPTYPEHSTR? IT HXS>#			( hxs_lid --> #lid )
  DUPTYPEBINT? NcaseTYPEERR
  GX? case
  :: G_GETMESG ?SKIP SETNOLIBERR ?ACCPTR> ;
  GETMESG ?SKIP SETNOLIBERR ?Cov#>
;

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