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